egghelp/eggheads community

How do I make a script put an ID from a .txt file into a URL

2006-10-03T17:19:50-04:00

anyone?

Statistics: Posted by Justdabomb2 — Tue Oct 03, 2006 5:19 pm

...

2006-10-01T20:41:04-04:00

Umm thanks... Hopefully someone can help me now....

Statistics: Posted by Justdabomb2 — Sun Oct 01, 2006 8:41 pm

How do I make a script put an ID from a .txt file into a URL

2006-10-01T20:39:28-04:00

Scripting Help is for people who are interested in scripting - experienced scripters helping new scripters. If you just post a block of code with an accompanying request for corrections/changes/features, and it's not clear you wrote the code, then it does belong in the requests forum, so that's where this topic's been moved

Statistics: Posted by slennox — Sun Oct 01, 2006 8:39 pm

:'(

2006-10-01T20:37:07-04:00

I have never used those so I do not know how I would use that in my script.

Statistics: Posted by Justdabomb2 — Sun Oct 01, 2006 8:37 pm

How do I make a script put an ID from a .txt file into a URL

2006-10-01T20:33:27-04:00

Instead of repeated nested "foreach" try regexp and lappend'ing the results into a variable, using ONE foreach.

EG:

Code:

##############################################################################################################################################################################################   foreach line $content {       if {[regexp {(.*?)(.*?)} $content match VarName VarData]} {             lappend MyVar "$VarName $VarData"       }}

The items in the regexp within (.*?) are the bits of data regexp will grab and put into vars..

Then you can manipulate the data in $MyVar in whatever way you want using lindex, lsearch, etc.

Statistics: Posted by rosc2112 — Sun Oct 01, 2006 8:33 pm

...

2006-10-01T20:17:56-04:00

I just want help, there is a problem with the script at hand.

Statistics: Posted by Justdabomb2 — Sun Oct 01, 2006 8:17 pm

How do I make a script put an ID from a .txt file into a URL

2006-10-01T20:16:40-04:00

You asked for help reading/writing to a file. I gave that to you. If you now want a full-blown script to grab webpage data, try the request forum. I have no interest in such a script myself.. Maybe someone else will.

Statistics: Posted by rosc2112 — Sun Oct 01, 2006 8:16 pm

Hmmmm.

2006-10-01T16:40:27-04:00

The code I used it below, but I didn't work. Could you maybe try testing and getting it to work, or maybe see if you can find a problem with mine.

The part where is saves the GSPID worked fine, but I could get that part to work before on my own, but it still wont show the stats. :

Code:

set mphtstatsfile "scripts/stats/mphtstats.txt" set userperms "-|-" bind pub - !addgspid add:gspid bind pub - !mphtstats show:mphtstatsproc add:gspid {nick uhost hand chan text} {   global mphtstatsfile userperms   # Probably should test $text for proper format (numbers only, length, etc,) too...   set text [split $text]   # test if user has the right flags/permissions to use   if {![matchattr $hand $userperms $chan]} {     puthelp "PRIVMSG $nick :Sorry $nick, I don't know you well enough to use this."     return   }   if {![file exists $mphtstatsfile]} {     # lucky user first one to add data     set dataOut [open $mphtstatsfile w]     puts $dataOut "$hand:$text"     catch {close $dataOut}     return   }   set linenumber -1   # edit: OOPS forgot to open the file first, lol   set input [open $mphtstatsfile r]   set dataIn [split [read $input] \n]   catch {close $input}   foreach line $dataIn {     incr linenumber     # check to see if user has an existing line, replace with new data if they do     if {[string tolower [lindex [split $line :] 0]] == [string tolower $hand]} {       set dataIn [lreplace $dataIn $linenumber $linenumber "$hand:$text"]     }   }   # There were no matching handles found, so just insert the data   if {$linenumber == -1} {     set dataIn [linsert $dataIn end "$hand:text"]   }   # write data to file   set dataOut [open $mphtstatsfile w]   foreach line $dataIn {     if {$line != ""} {       puts $dataOut [join $line]     }   }   flush $dataOut   catch {close $dataOut} } proc show:mphtstats {nick uhost hand chan text} {   global mphtstatsfile userperms   # test if user has the right flags/permissions to use   if {![matchattr $hand $userperms $chan]} {     puthelp "PRIVMSG $nick :Sorry $nick, I don't know you well enough to use this."     return   }   if {![file exists $mphtstatsfile]} {     puthelp "PRIVMSG $nick :No data file found, try !addgspid gspid"     return   }   set gspid ""   set linenumber -1   # open file first here too :P   set input [open $mphtstatsfile r]   set dataIn [split [read $input] \n]   catch {close $input}   foreach line $dataIn {     incr linenumber     # check to see if user has an existing line     if {[string tolower [lindex [split $line :] 0]] == [string tolower $hand]} {       set gspid [lindex [split $line :] 1]     }   }   if {$gspid != ""} {     set url "http://www.nintendowifi.com/gaminghub/MetroidHuntersLicenseFrame.jsp?gspid=$gspid&lang=en®ion=en_US&locale=en_U"     } else {     puthelp "PRIVMSG $nick :You don't have a gspid saved.. Try !addgspid  first"     return   }   # Now you can run your geturl stuff   catch {set token [::http::geturl $url -timeout 30000]} error   if {[string match -nocase "*couldn't open socket*" $error]} {     puthelp "PRIVMSG $nick :Error: couldn't connect..Try again later"     ::http::cleanup $page     return   }   if { [::http::status $page] == "timeout" } {     puthelp "PRIVMSG $nick :Error: Connection timed out."     ::http::cleanup $page     return   }   set content [::http::data $token]   ::http::cleanup $content   set top "Overall Rank"   set bottom ""   set tosave [string range $content [set f [string first $top $content]] [string first $bottom $content $f]]   regsub -all {<[^>]+>|<} $tosave { } tosave   foreach line [split $tosave \n] {     set top2 "Alt Kills"     set bottom2 ""     set tosave2 [string range $content [set f [string first $top2 $content]] [string first $bottom2 $content $f]]     regsub -all {<[^>]+>|<} $tosave2 { } tosave2     foreach line2 [split $tosave2 \n] {       set top3 "BiPed Kills"       set bottom3 ""       set tosave3 [string range $content [set f [string first $top3 $content]] [string first $bottom3 $content $f]]       regsub -all {<[^>]+>|<} $tosave3 { } tosave3       foreach line3 [split $tosave3 \n] {         set top4 "Games Won"         set bottom4 ""         set tosave4 [string range $content [set f [string first $top4 $content]] [string first $bottom4 $content $f]]         regsub -all {<[^>]+>|<} $tosave4 { } tosave4         foreach line4 [split $tosave4 \n] {           set top5 "Games Played"           set bottom5 ""           set tosave5 [string range $content [set f [string first $top5 $content]] [string first $bottom5 $content $f]]           regsub -all {<[^>]+>|<} $tosave5 { } tosave5           foreach line5 [split $tosave5 \n] {             set top6 "Disconnects"             set bottom6 ""             set tosave6 [string range $content [set f [string first $top6 $content]] [string first $bottom6 $content $f]]             regsub -all {<[^>]+>|<} $tosave6 { } tosave6             foreach line6 [split $tosave6 \n] {               set top7 "Win Rate"               set bottom7 ""               set tosave7 [string range $content [set f [string first $top7 $content]] [string first $bottom7 $content $f]]               regsub -all {<[^>]+>|<} $tosave7 { } tosave7               foreach line7 [split $tosave7 \n] {                 set top8 "Headshots"                 set bottom8 ""                 set tosave8 [string range $content [set f [string first $top8 $content]] [string first $bottom8 $content $f]]                 regsub -all {<[^>]+>|<} $tosave8 { } tosave8                 foreach line8 [split $tosave8 \n] {                   set top9 "Shots Fired"                   set bottom9 ""                   set tosave9 [string range $content [set f [string first $top9 $content]] [string first $bottom9 $content $f]]                   regsub -all {<[^>]+>|<} $tosave9 { } tosave9                   foreach line9 [split $tosave9 \n] {                     putserv "PRIVMSG $chan :$line , $line2 , $line3 , $line4 , $line5 , $line6 , $line7 , $line8 , $line9"                   }                 }               }             }           }         }       }     }   } } putlog "Justdabot's MPHT Stats Script Loaded"

Statistics: Posted by Justdabomb2 — Sun Oct 01, 2006 4:40 pm

:)

2006-10-01T16:14:45-04:00

I'll try it now.

Statistics: Posted by Justdabomb2 — Sun Oct 01, 2006 4:14 pm

How do I make a script put an ID from a .txt file into a URL

2006-10-01T16:03:31-04:00

Is that the entire script? There's nothing there to read/write to a file.
If you want an example of reading/writing to a file:

Code:

############################################################################################################################################################################set mydatafile "/home/whatever/bot/data/mydata.txt"set userperms "f|f"bind pub - !save saveprocbind pub - !getdata dataprocproc saveproc {nick uhost hand chan text} {       global mydatafile userperms       # Probably should test $text for proper format  (numbers only, length, etc,) too...       set text [split $text]       # test if user has the right flags/permissions to use       if {![matchattr $hand $userperms $chan]} {             puthelp "PRIVMSG $nick :Sorry $nick, I don't know you well enough to use this."             return       }       if {![file exists $mydatafile]} {             # lucky user first one to add data             set dataOut [open $mydatafile w]             puts $dataOut "$hand:$text"             catch {close $dataOut}             return        }       set linenumber -1       # edit: OOPS forgot to open the file first, lol       set input [open $mydatafile r]       set dataIn [split [read $input] \n]       catch {close $input}       foreach line $dataIn {             incr linenumber             # check to see if user has an existing line, replace with new data if they do             if {[string tolower [lindex [split $line :] 0]] == [string tolower $hand]} {                      set dataIn [lreplace $dataIn $linenumber $linenumber "$hand:$text"]             }       }       # There were no matching handles found, so just insert the data       if {$linenumber == -1} {             set dataIn [linsert $dataIn end "$hand:text"]       }       # write data to file       set dataOut [open $mydatafile w]       foreach line $dataIn {             if {$line != ""} {                   puts $dataOut [join $line]              }       }       flush $dataOut       catch {close $dataOut}}proc getdata {nick uhost hand chan text} {       global mydatafile userperms       # test if user has the right flags/permissions to use       if {![matchattr $hand $userperms $chan]} {             puthelp "PRIVMSG $nick :Sorry $nick, I don't know you well enough to use this."             return       }       if {![file exists $mydatafile]} {             puthelp "PRIVMSG $nick :No data file found, try !save gspid"             return       }       set gspid ""       set linenumber -1       # open file first here too :P       set input [open $mydatafile r]       set dataIn [split [read $input] \n]       catch {close $input}       foreach line $dataIn {             incr linenumber             # check to see if user has an existing line             if {[string tolower [lindex [split $line :] 0]] == [string tolower $hand]} {                      set gspid [lindex [split $line :] 1]             }       }       if {$gspid != ""} {             set url "http://www.nintendowifi.com/gaminghub/MetroidHuntersLicenseFrame.jsp?gspid=$gspid&lang=en®ion=en_US&locale=en_U"       } else {             puthelp "PRIVMSG $nick :You don't have a gspid saved.. Try !save  first"             return       }       # Now you can run your geturl stuff        catch {set token [::http::geturl $url -timeout 30000]} error       if {[string match -nocase "*couldn't open socket*" $error]} {             puthelp "PRIVMSG $nick :Error: couldn't connect..Try again later"             ::http::cleanup $page             return       }       if { [::http::status $page] == "timeout" } {             puthelp "PRIVMSG $nick :Error: Connection timed out."             ::http::cleanup $page             return       }       set content [::http::data $token]       ::http::cleanup $content        # so forth and so on, etc etc.}

Not tested, should work, standard disclaimer applies..

Edit: Fixed a couple of oversights

Statistics: Posted by rosc2112 — Sun Oct 01, 2006 3:24 pm

How do I make a script put an ID from a .txt file into a URL

2006-09-30T22:12:43-04:00

How do I make a script put an ID from a .txt file into a URL so that it will go into a specific page.

The code I have currently is below.

The web page is: http://www.nintendowifi.com/gaminghub/M ... ocale=en_U

The GSPID is: 69379673

I am having a lot of trouble with adding other's GSPID's into a .txt file, and then having it get the peron's GSPID from the file and then adding it the URL (with the command !mphtstats ). I need it to find the in the .txt file and then get their GSPID that they added (with the command !addmphtgspid ) and then have it put their GSPID in the URL.

e.g. If a person gspid was 12345678, then the url would look like this - http://www.nintendowifi.com/gaminghub/M ... ocale=en_U

code:

Code:

bind pub - !mphtstats show:statsproc show:stats {nick uhost hand chan text} {  set url "http://www.nintendowifi.com/gaminghub/MetroidHuntersLicenseFrame.jsp?gspid=69379673&lang=en®ion=en_US&locale=en_U"  set token [::http::geturl $url]  set content [::http::data $token]  ::http::cleanup $content  set top "Overall Rank"  set bottom ""  set tosave [string range $content [set f [string first $top $content]] [string first $bottom $content $f]]  regsub -all {<[^>]+>|<} $tosave { } tosave   foreach line [split $tosave \n] {    set top2 "Alt Kills"    set bottom2 ""    set tosave2 [string range $content [set f [string first $top2 $content]] [string first $bottom2 $content $f]]     regsub -all {<[^>]+>|<} $tosave2 { } tosave2     foreach line2 [split $tosave2 \n] {      set top3 "BiPed Kills"      set bottom3 ""      set tosave3 [string range $content [set f [string first $top3 $content]] [string first $bottom3 $content $f]]       regsub -all {<[^>]+>|<} $tosave3 { } tosave3       foreach line3 [split $tosave3 \n] {        set top4 "Games Won"        set bottom4 ""        set tosave4 [string range $content [set f [string first $top4 $content]] [string first $bottom4 $content $f]]         regsub -all {<[^>]+>|<} $tosave4 { } tosave4         foreach line4 [split $tosave4 \n] {          set top5 "Games Played"          set bottom5 ""          set tosave5 [string range $content [set f [string first $top5 $content]] [string first $bottom5 $content $f]]           regsub -all {<[^>]+>|<} $tosave5 { } tosave5           foreach line5 [split $tosave5 \n] {            set top6 "Disconnects"            set bottom6 ""            set tosave6 [string range $content [set f [string first $top6 $content]] [string first $bottom6 $content $f]]             regsub -all {<[^>]+>|<} $tosave6 { } tosave6             foreach line6 [split $tosave6 \n] {              set top7 "Win Rate"              set bottom7 ""              set tosave7 [string range $content [set f [string first $top7 $content]] [string first $bottom7 $content $f]]               regsub -all {<[^>]+>|<} $tosave7 { } tosave7               foreach line7 [split $tosave7 \n] {                set top8 "Headshots"                set bottom8 ""                set tosave8 [string range $content [set f [string first $top8 $content]] [string first $bottom8 $content $f]]                 regsub -all {<[^>]+>|<} $tosave8 { } tosave8                 foreach line8 [split $tosave8 \n] {                  set top9 "Shots Fired"                  set bottom9 ""                  set tosave9 [string range $content [set f [string first $top9 $content]] [string first $bottom9 $content $f]]                   regsub -all {<[^>]+>|<} $tosave9 { } tosave9                   foreach line9 [split $tosave9 \n] {                    putserv "PRIVMSG $chan :$line , $line2 , $line3 , $line4 , $line5 , $line6 , $line7 , $line8 , $line9"                  }                }              }            }          }        }      }    }  }}

Statistics: Posted by Justdabomb2 — Sat Sep 30, 2006 10:12 pm