IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   Admin sunucu yönetim tclsi yeni versiyon (https://www.ircforumlari.net/tcl-scriptler/1073260-admin-sunucu-yonetim-tclsi-yeni-versiyon.html)

IUC 01 Aralık 2025 22:24

Admin sunucu yönetim tclsi yeni versiyon
 
Açıklamalar tclnin içindedir....

PHP- Kodu:

# Admin Sunucu Kontrolü (sadece sunucu sahibi)
# IUC Aralık 2025 
# Tcl yi çok dikkatli kullanmanız şiddetle tavsiye edilir!
# Sunucunuzda MUTLAKA ÇOK GÜVENLİ VE AYRI BİR KANALDA BULUNAN AYRI EGGDROPUNUZUN İÇİNE GÖMÜN!
# Ayrı olarak yaratacağınız eggdrop.conf dosyasının mesela admin.conf ayrı olmasına dikkat ve
# özen gösterin diğer conf dosyalarından ayrı tutun ve bu tcl yi ASLA genel tcl lerin 
# olduğu dosya içerisine atmayın sriptlerin olduğu Yol'a (Admin) adında başka bir dosya 
# mutlaka yaratınki herhangi bir sorunla karşılaşmayın.
# Örnek olarak kanalın tam ayarlarını /chanserv set #kanaladi  ile yaptıktan sonra
# kanalınızı MUTLAKA /chanserv set #kanalismi mlock +ntRmMs****OHA olarak ayarlayın 
# böylece access eklenmemiş Oper yada Admin yetkisi olmayan kanala giremez!!
# ve kanalınızı mutlaka /chanserv set #kanalismi RESIRICTED on yapın 
# Ve böylece kanalda yetkisi olmayan nicki kayıtlı olmayan Oper flag erişimi olmayan 
# Erişimi olmayan kullanıcılar KESİNLİKLE o kanala giremez! (böylece,kafanızda içinizde rahat eder!)
# unutmayın bir Türk Atasözü derki güvenme dostuna,Saman doldurur sonra postuna! 
# Manası siz siz olun bu hayatta babanıza bile güvenmeyin hayatta en güvendiğiniz babanız ananızı.... :)
# 60 yaşında 40 yıllık irc geçmişi olan bir abiniz ve bir büyüğünüz olarak söyledim!
# Bu tcl umarım işinizi görür takıldığınız yer olursa bana sormaktan çekinmeyin
# nerde olduğum IF teki profilimde yazıyor iletişim bilgilerim full mevcut..!


bind pub - !sunucu mcma
proc mcma 
nick host handle chan text } {
if {[
isop $nick $chan] == || [isadmin $nick $chan] == || [isowner $nick $chan] == || [ishalfop $nick $chan] == 1} {
# Bu ayarları kendinize göre ayarlayın !
# Admin kullanıcı adı:
set mcmause admin kullanıcı adı
# Admin Şifreniz:
set mcmapass Şifreniz
# Admin Hostadi/IP:
set mcmahost host adi ve ip
# Admin Port:
set mcmaport sunucu portu (genelde 8080)

# Burdan sonra ne yaptığınızı bilmiyorsanız hiç kurcalamayın her an sunucunuzun bocku çıkabilir!!
# ############# BİLGİ ################
if {$text == "help"} {
    
putquick "PRIVMSG $chan :\002== Admin IRC Kontrol - IUC 2025 ==\003\002"
    
putquick "PRIVMSG $chan :\002!statü - \0034Sunucu statüsünü gösterir\003\002"
    
putquick "PRIVMSG $chan :\002!baslat - \0034Sunucuyu başlatır\003\002"
    
putquick "PRIVMSG $chan :\002!durdur - \0034Sunucuyu durdur.\003\002"
    
putquick "PRIVMSG $chan :\002!oldur - \0034Sunucuyu durdurmaya zorlar.\003\002"
    
putquick "PRIVMSG $chan :\002!tekrarbasla - \0034Sunucuyu tekrar başlatır\003\002"
    
putquick "PRIVMSG $chan :\002!yaz - \0034Sunucu datasını saklar\003\002"
    
putquick "PRIVMSG $chan :\002!yukle - \0034Sunucu datasını geri yükler.\003\002"
}

if {
$text == "statü"} {
# API'den sunucu durumunu geri alır yansıtır
catch {exec curl -s http://$mcmauser:$mcmapass@$mcmahost:$mcmaport/data.json?req=status} status
catch {exec curl -s http://$mcmauser:$mcmapass@$mcmahost:$mcmaport/data.json?req=versions} versions

# Sunucu Çalışıyorsa Kontrol et
catch {regexp -all {"running":true$statusrunning

# Kullanılan ram i kontrol eder ve gösterir

if [regexp -nocase {"ram":"(\d+)"$status -> ramthen {
  
puts $ram
}

# En fazla rami kontrol eder
if [regexp -nocase {"maxram":(\d+)} $status -> maxramthen {
  
puts $maxram
}

# Sunucu işlemini (yüzde) % olarak kontrol eder ve gösterir 
if [regexp -nocase {"cpuusage":(\d+)} $status -> cputhen {
  
puts $cpu
}

# Çevrimiçi kullanıcıları kontrol eder 
if [regexp -nocase {"users":(\d+)} $status -> usersthen {
  
puts $users
}

# En fazla kullanıcıları kontrol eder
if [regexp -nocase {"maxusers":(\d+)} $status -> maxusersthen {
  
puts $maxusers
}

# Sunucu işletim Sistemini (distro) kontrol eder
if [regexp -nocase {"os":"([a-zA-Z0-9 \-\(\)]+)"$versions -> operatingsysthen {
  
puts $operatingsys
}

# Çevrimiçi Kullanıcı sayısını yazar
putquick "PRIVMSG $chan :\002Çevrimiçi kullanıcı sayısı: \0034 $users/$maxusers\003\002"
# Check and print the server status
if {$running == 1} {
putquick "PRIVMSG $chan :\002Statü:\0034 Çalısiyor"
} else {
putquick "PRIVMSG $chan :\002Statü:\0034 Durdu"
}
# Print the cpu usage
if {$running == 1} {
putquick "PRIVMSG $chan :\002İşlemci:\0034 $cpu%"
}
# Print the ram usage
if {$running == 1} {
putquick "PRIVMSG $chan :\002RAM:\0034 $ram/$maxram MB"
}
# Print the os
putquick "PRIVMSG $chan :\002işletim Sistemi(distro):\0034 $operatingsys"
}
# ### SUNUCUYU BAŞLAT #
if {$text == "baslat"} {
catch {
exec curl -s http://$mcmauser:$mcmapass@$mcmahost:$mcmaport/data.json?req=startserver} response
putquick "PRIVMSG $chan :\002\0034Sunucu baslatıldı.\003\002"
}
if {
$text == "durdur"} {
catch {
exec curl -s http://$mcmauser:$mcmapass@$mcmahost:$mcmaport/data.json?req=stopserver} response
putquick "PRIVMSG $chan :\002\0034Sunucu durduruldu.\003\002"
}
if {
$text == "oldur"} {
catch {
exec curl -s http://$mcmauser:$mcmapass@$mcmahost:$mcmaport/data.json?req=killserver} response
putquick "PRIVMSG $chan :\002\0034Sunucu öldürüldü (kill).\003\002"
}
if {
$text == "yeniden"} {
catch {
exec curl -s http://$mcmauser:$mcmapass@$mcmahost:$mcmaport/data.json?req=restartserver} response
putquick "PRIVMSG $chan :\002\0034Sunucu yeniden başlatıldı.\003\002"
}
if {
$text == "sakla"} {
catch {
exec curl -s http://$mcmauser:$mcmapass@$mcmahost:$mcmaport/data.json?req=sendchat&message=/save-all} response
putquick "PRIVMSG $chan :\002\0034Sunucu datası saklandı.\003\002"
}
if {
$text == "yukle"} {
catch {
exec curl -s http://$mcmauser:$mcmapass@$mcmahost:$mcmaport/data.json?req=sendchat&message=/reload} response
putquick "PRIVMSG $chan :\002\0034Sunucu tekrar yüklendi.\003\002"
}
} else {
putquick "PRIVMSG $chan :\002$nick, \0034Bu komut SADECE YETKİLİ KİŞİLER İÇİNDİR!\003\002"
}



HyTecH 01 Aralık 2025 22:54

Cevap: Admin sunucu yönetim tclsi yeni versiyon
 
emeğine sağlık

IUC 01 Aralık 2025 23:08

Cevap: Admin sunucu yönetim tclsi yeni versiyon
 
rica ederim kardeşim aceleye geldiği için ufak tefek yazım hataları gözüme takıldı tcl yi işte düzeltirsiniz malum yaş 60 olunca gözlerde hale gidiyor eh nede olsa 40 yıldır kırk tane ayrı monitöre bakınca böyle oluyor! Odam odam değilki resmen DATACENTER oldu! 1 Ubuntu Linux Sunucu 1 Açık Kanynak linux tabanlı işletim sistemli NAS sunucu 10 Desktop 10 Laptop 2 Tane Commodore 64 2 tane Amiga 1200 ve 1 tane Amiga 4000 her taraf masa ortada ince bir yol var sadece odaya geçebilmem için her taraf masa vs dolu birde 8 KV lik UPS aldım onuda kapının arkasına zor sığdırdım kafasına takılıyor makineler işte böyle .) kolay gelsin

IUC 02 Aralık 2025 06:59

Cevap: Admin sunucu yönetim tclsi yeni versiyon
 
Tcl lerimi beğenen rkadaşlar bana BUYMEACOFEE sitesinden lütfen kahve ısmarlayabilirmi rica etsem ?
Googleda BUYMEACOFEE sitesini bulup girdikten sonra linkin sonuna /ufukcingay eklemesi yeterli olacak şimdiden çok teşekkürler sevgiler.....

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 06:54 -->-> Daha önceki mesaj 06:21 --

özür dilerim o linke erişimim eski telefonum yüünden olmuyor /muhendis linkini lullanmanızı rica ederim çalışırken çok sevdiğim filtra kahveyi ısmarlamanız çok hoşuma gidecek şimdiden herkese çok çok teşekkür ederim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 06:59 -->-> Daha önceki mesaj 06:54 --

Bu arada BUYMEACOFEE nedir bilmeyen arkadaşlar için anlatayımda forumda yanlış anlaşılmasın ;

dijital içerik üreticileri için kullanışlı olabilen, destekleyicileri tarafından elektronik bağış yapılabilen bir site. örneğin destekçi 20 tl bağış yollarsa, site 1 lirayı kesip kalanı üreticiye yolluyor.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:28.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk