Can`t understand why don`t works..

FcLan · Post by **FcLan** » Wed Dec 21, 2005 4:02 pm

It`s a script which downloads some informations from user profile and if someone type !any_id for example !582 it will change address and read info for this profile, but this don`t works...

Code: Select all

bind pub - "% !*" checkid;
proc checkid {n u h c t} {
   set id [string range $t 1 end];
   if {[string is digit -stict $id]} {get_projects2 $c $id} {putcmdlog "$id isnt a valid id"}
}
set url "www.sensiblesoccer.de"

proc get_projects2 {channel id} {
   global url
   set sock [socket $url 80]
   fconfigure $sock -buffering line -buffersize 1000
   puts $sock "GET /index.php?site=online_segastatpers&uid=$id HTTP/1.0"
   puts $sock "Host: www.sensiblesoccer.de"
   puts $sock ""
   puts $sock "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
   flush $sock

   while {![eof $sock]} {
      gets $sock body
      regexp -all {<td width="65%" class="medium">(.*?)</td><td} $body _ served
   }

   if {[eof $sock]} { close $sock }

   regsub -all {(<.+?>)} $served "" served

   puthelp "PRIVMSG $channel :[lindex $served]"

}

Post by **Sir_Fz** » Wed Dec 21, 2005 5:18 pm

For starters, -stict should be -strict.

FcLan · Post by **FcLan** » Thu Dec 22, 2005 5:52 am

When i rehashs bot he goes from irc

Alchera · Post by **Alchera** » Thu Dec 22, 2005 5:59 pm

FcLan wrote:When i rehashs bot he goes from irc

The I would suggest you READ the logs and figure out what caused it to "crash".