Sending data to a web page

mike938 · Post by **mike938** » Mon Oct 15, 2001 12:53 am

1 other thing not related to the topic is in my windrop it uses this a lot

kick reason: (Colours are not in RFC1459

)

how do i shut that off?

ppslim · Post by **ppslim** » Mon Oct 15, 2001 1:31 am

Thanks to the nice people @ the TCL project, I am able to provide the script required to do this, with minor changes to my original.

The following should now work

Code: Select all

proc example {name type ftp files} {
  if {![llength [info commands "::http::geturl"]]} {
    if {[catch {source scripts/http.tcl} t]} {
      putlog "Can't load the required http module"
      return
    }
  }
  set q [::http::formatquery name $name type $type ftp $ftp files $files]
  set t [::http::geturl "URL HERE" -query $q]
  ::http::cleanup $t
}

Notice the small change made.

Download the following file. Make sure it is called http.tcl and placed in the scripts dir

http://www.ppslim.ukshells.co.uk/netbots/http.tcl

The above file is provided under GNU Licence. BLAH BLAH (better safe than sorry).

mike938 · Post by **mike938** » Mon Oct 15, 2001 8:48 pm

this would work if the trigger was this
"[ SHN ][ UPDATE : DVDRip : 10.15.01.The.Loss.Of.Sexual.Innocence.SVCD.WS.DVDRip-V4F/Cd1 ][ Expecting: 57 files (v4f-tlosi.cd1.*) ]
and this is the code
--------------------
bind pub - * ftp
proc ftp {z ftp a b c d e type f name g h i files} {
set mode add
if {![llength [info commands "::http::geturl"]]} {
if {[catch {source scripts/http.tcl} t]} {
putlog "Can't load the required http module"
return
}
}
set q [::http::formatquery mode $mode name $name type $type ftp $ftp files $files]
set t [::http::geturl "http://www.mike938.dns2go.com/obl/obl.cfm" -query $q]
::http::cleanup $t
}
-----------------------
would that make it goto http://www.mike938.dns2go.com/obl/obl.c ... les=$files
but filling in the $variables corectly?

<font size=-1>[ This Message was edited by: mike938 on 2001-10-15 18:50 ]</font>

mike938 · Post by **mike938** » Mon Oct 15, 2001 8:52 pm

so in that example the url would be
http://24.188.126.61:8000/obl/obl.cfm?m ... N&files=57

ppslim · Post by **ppslim** » Mon Oct 15, 2001 9:15 pm

Does it take a drill, tweezers and the threat of death to drive it home?

Read tcl-commands.doc for the arguments requirment for binds.

mike938 · Post by **mike938** » Mon Oct 15, 2001 9:51 pm

i fixed it hehe