bind PUB -|- !updatesong1 update
proc update {nick host handle chan text} {
#setting server
set server "your.server.com"
#setting port
set port "8000"
#setting password ; generated by //echo $encode(admin:youradminpasshere,m) since i dont know how to do it
set login "yourpassword"
#sending the data
set sock [socket $server $port]
puts $sock "GET /admin.cgi?mode=updinfo&song=title*of*your*song HTTP/1.1"
puts $sock "User-Agent:Mozilla"
puts $sock "Host: $server"
puts $sock "Authorization: Basic $login"
puts $sock ""
flush $sock
#displaying msg
putserv "PRIVMSG $chan : updated your song on the server"
}
putlog "update song loaded"Statistics: Posted by ZahoOL — Sat Jun 04, 2005 6:06 pm
]]>