# 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] == 1 || [isadmin $nick $chan] == 1 || [isowner $nick $chan] == 1 || [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} $status} running

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

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

  puts $ram

}

 
# En fazla rami kontrol eder

if [regexp -nocase {"maxram":(\d+)} $status -> maxram] then {

  puts $maxram

}

 
# Sunucu işlemini (yüzde) % olarak kontrol eder ve gösterir 

if [regexp -nocase {"cpuusage":(\d+)} $status -> cpu] then {

  puts $cpu

}

 
# Çevrimiçi kullanıcıları kontrol eder 

if [regexp -nocase {"users":(\d+)} $status -> users] then {

  puts $users

}

 
# En fazla kullanıcıları kontrol eder

if [regexp -nocase {"maxusers":(\d+)} $status -> maxusers] then {

  puts $maxusers

}

 
# Sunucu işletim Sistemini (distro) kontrol eder

if [regexp -nocase {"os":"([a-zA-Z0-9 \-\(\)]+)"} $versions -> operatingsys] then {

  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"

}

}