egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2007-12-02T14:05:19-04:00 https://forum.eggheads.org/app.php/feed/topic/15065 2007-12-02T14:05:19-04:00 2007-12-02T14:05:19-04:00 https://forum.eggheads.org/viewtopic.php?p=78918#p78918 <![CDATA[What Pulse script]]> a bit more.

Thanks again and i really appreciate this.

Statistics: Posted by ]x[ — Sun Dec 02, 2007 2:05 pm

]]> 2007-12-02T06:41:10-04:00 2007-12-02T06:41:10-04:00 https://forum.eggheads.org/viewtopic.php?p=78910#p78910 <![CDATA[What Pulse script]]>

Code: 

package require httpbind pub - !test pulse_getproc pulse_get {n u h c t} {  set x [::http::geturl http://whatpulse.org/api/user.php?UserID=223348]  set data [::http::data $x]  regexp -- {<AccountName>([^<]+)} $data {} AccountName  regexp -- {<Country>([^<]+)} $data {} Country  regexp -- {<DateJoined>([^<]+)} $data {} DateJoined  puthelp "privmsg $c :AccountName: $AccountName"     puthelp "privmsg $c :Country: $Country"  puthelp "privmsg $c :DateJoined: $DateJoined"}

Statistics: Posted by tsukeh — Sun Dec 02, 2007 6:41 am

]]> 2007-12-01T21:43:23-04:00 2007-12-01T21:43:23-04:00 https://forum.eggheads.org/viewtopic.php?p=78897#p78897 <![CDATA[What Pulse script]]> http://whatpulse.org/api/user.php?UserID=223348

This is the original version of the script -> http://pastebin.com/f35b6b778
Then i fiddled a bit with info from this forum and tutorials. I got it to to read the xml file and output something. But i can't seem to refine the output.

Working script till now -> http://pastebin.com/m34521008
Which outputs this -> http://pastebin.com/m53c44d46
But i can't figure out how i can get the output ^^ in to a nice format so i can deliver it to IRC how i want.

And below here is my try in getting something but that only messed up me script and makes it output errors in DCC instead of some nice output..

Code: 

package require httpbind pub - !test pulse_getproc pulse_get {n u h c t} {  set x [::http::geturl http://whatpulse.org/api/user.php?UserID=223348]   foreach line [split [::http::data $x] \n] {        regsub -line {<AccountName>} set $AccountName {} AccountName    regsub -line {<Country>} set $Country {} Country    regsub -line {<DateJoined>} set $DateJoined {} DateJoined    regsub -line {<Homepage>} set $Homepage {} Homepage    regsub -line {<LastPulse>} set $LastPulse {} LastPulse    regsub -line {<Pulses>} set $Pulses {} Pulses    regsub -line {<TotalKeyCount>} set $TotalKeyCount {} TotalKeyCount    regsub -line {<TotalMouseClicks>} set $TotalMouseClicks {} TotalMouseClicks    regsub -line {<AvKeysPerPulse>} set $AvKeysPerPulse {} AvKeysPerPulse    regsub -line {<AvClicksPerPulse>} set $AvClicksPerPulse {} AvClicksPerPulse    regsub -line {<AvKPS>} set $AvKPS {} AvKPS    regsub -line {<AvCPS>} set $AvCPS {} AvCPS    regsub -line {<Rank>} set $Rank {} Rank    regsub -line {<TeamID>} set $TeamID {} TeamID    regsub -line {<TeamName>} set $TeamName {} TeamName    regsub -line {<TeamMembers>} set $TeamMembers {} TeamMembers    regsub -line {<TeamKeys>} set $TeamKeys {} TeamKeys    regsub -line {<TeamClicks>} set $TeamClicks {} TeamClicks    regsub -line {<TeamDescription>} set $TeamDescription {} TeamDescription    regsub -line {<TeamDateFormed>} set $TeamDateFormed {} TeamDateFormed    puthelp "privmsg $c :AccountName"       puthelp "privmsg $c :Country"    puthelp "privmsg $c :DateJoined"    puthelp "privmsg $c :Homepage"    puthelp "privmsg $c :LastPulse"    puthelp "privmsg $c :Pulses"    puthelp "privmsg $c :TotalKeyCount"    puthelp "privmsg $c :TotalMouseClicks"    puthelp "privmsg $c :AvKeysPerPulse"    puthelp "privmsg $c :AvClicksPerPulse"    puthelp "privmsg $c :AvKPS"    puthelp "privmsg $c :AvCPS"    puthelp "privmsg $c :Rank"    puthelp "privmsg $c :TeamID"    puthelp "privmsg $c :TeamName"    puthelp "privmsg $c :TeamMembers"    puthelp "privmsg $c :TeamKeys"    puthelp "privmsg $c :TeamClicks"    puthelp "privmsg $c :TeamDescription"    puthelp "privmsg $c :TeamDateFormed"  }}
I'm a total noob and i tried to read on about regsub an regexp the entire day but i still don't get any result so if anyone is able to help me, it would be greatly appreciated. Or gives me a few pointers in the right direction with how to separate each data field into its own variable.

Greetz ]x[

Statistics: Posted by ]x[ — Sat Dec 01, 2007 9:43 pm

]]>