[IUC]

Açıklamalar tclnin içindedir....

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

# 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"

}

} 

[HyTecH]

emeğine sağlık

[IUC]

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]

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.