# oscheck.tcl 1.0 IUC Aralık 2025

# Bu script Eggdropunuzun bulduğu işletim Sistemi

# bilgilerini ve makine özelliklerini

# irc kanalına yazar e listeler

 
bind pub - !os oscheck

proc oscheck {nick host handle chan text} {

    set server [lindex $text 0]

    set port 80

    set x 1

    set sock [socket $server $port]

    puts $sock "GET / HTTP/1.0"

    puts $sock "User.Agent:Mozilla"

    puts $sock "Host: $server"

    puts $sock ""

    flush $sock

    while {$x < 10} {

    gets $sock line

        if {[string match "*erver: *" $line]} {

            putserv "PRIVMSG $chan :$line"

        }

        if {[string match "*ate: *" $line]} {

            putserv "PRIVMSG $chan :$line"

        }

        incr x

    }

    close $sock

}

 
putlog "Özellikler Yüklendi IUC Aralık 2025"