egghelp/eggheads community

[SOLVED][Request] add text from url link to mysqldatabase

2012-06-05T07:08:55-04:00

All done!

working as it should

Code:

package require TclCurlbind pub - !addinfo pub:addinfoproc pub:addinfo {nick uhost hand chan text} {    if {[scan $text {%s%s%s} release url filename] != 3} {      puthelp "Usage: !addinfo   "       return    }   exec mkdir "/home/bot/1/filesys/info/$release"   set curlHandle [curl::init]  $curlHandle configure -url $url -file "/home/bot/1/filesys/info/$release/$filename"  $curlHandle perform}putlog "Reciever StoreiNfo.tcl - Loaded By Fire-Fox"

UPDATE:

now it stores the release to database (it has a "Timer for the mysql connection" aswell)

Code:

##################### Mysql path #####################load /usr/lib/tcltk/mysqltcl-3.05/libmysqltcl3.05.so# define database parametersset mysql_(user) "USERNAME"set mysql_(password) "PASSWORD"set mysql_(host) "localhost"set mysql_(database) "bots"set mysql_(table) "TABLE"if {![info exists mysql_(handle)]} {set mysql_(handle) [mysqlconnect -host $mysql_(host) -user $mysql_(user) -password $mysql_(password) -db $mysql_(database)]}package require TclCurlbind pub - !addinfo pub:addinfoproc pub:addnfo {nick uhost hand chan text} { global mysql_   if {[scan $text {%s%s%s} rlsname url filename] != 3} {      puthelp "Usage: !addinfo   "       return    }   exec mkdir "/home/bot/1/filesys/nfo/$release"   set curlHandle [curl::init]  $curlHandle configure -url $url -file "/home/bot/1/filesys/info/$rlsname/$filename"  $curlHandle perform#TESTset infofp [open "/home/bot/1/filesys/info/$release/$filename" "r"]set rawinfo [read $infofp]close $infofp#ENDputlog "$rawinfo"set escapedinfo [mysql::escape $mysql_(handle) $rawinfo]  set nix [mysqlexec $mysql_(handle) "INSERT INTO $mysql_(table) (release,filename,rawinfo) VALUES ( '$release' , '$filename' , '$escapednfo' )"]}putlog "Reciever StoreNfoToDB.tcl - Loaded By Fire-Fox"######################################### Timer for the mysql connection #########################################if {[timerexists nfo:dbconnection] !=""} { killtimer $dbconnect(dbtimer) }set dbconnect(dbtimer) [timer 1 info:dbconnection]proc info:dbconnection {} {global mysql_ dbconnectif {[catch  {mysqlping $mysql_(handle)}] != 0} {          set mysql_(handle) [mysqlconnect -host $mysql_(host) -user $mysql_(user) -password $mysql_(password) -db $mysql_(database)]}if {[set var [timerexists info:dbconnection]] !="" } { killtimer $var }set dbconnect(dbtimer) [timer 1 info:dbconnection]}putlog "Reciever StoreiNfo.tcl - Loaded By Fire-Fox"

Statistics: Posted by Fire-Fox — Tue Jun 05, 2012 7:08 am

[SOLVED][Request] add text from url link to mysqldatabase

2012-06-05T00:20:00-04:00

Then drop the:

Code:

   foreach line [split $content \n] {      puts $fp [join $line "\n"]   }

and make it:

Code:

puts $fp $content

Statistics: Posted by caesar — Tue Jun 05, 2012 12:20 am

[SOLVED][Request] add text from url link to mysqldatabase

2012-06-04T17:16:58-04:00

Thanks speechles

All sortet out! \o/

There is just one thing, the text is placed on new line all the line, how can i put it it should be a copy of the original file, to the file i store.

There will proberly come some acsii aswell how do i handle that...

Statistics: Posted by Fire-Fox — Mon Jun 04, 2012 5:16 pm

[SOLVED][Request] add text from url link to mysqldatabase

2012-06-04T17:12:41-04:00

Code:

bind pub - !addinfo pub:addinfo

Fix it like that instead, the pubm bind passes text very differently. Differently as in, the trigger is included at the front of your text. Literally everything you type is passed to the procedure. The variable $::lastbind contains your pubm mask. This means your filenames or the url it attempts to fetch will contain "!addinfo" in them.

Using pub, $::lastbind will contain the trigger, and the rest of the text is passed to the procedure. This eliminates the trigger from the text passed and your filenames/urls come out correct now.

Statistics: Posted by speechles — Mon Jun 04, 2012 5:12 pm

[SOLVED][Request] add text from url link to mysqldatabase

2012-06-04T17:17:50-04:00

I'll try it right away, and post the output

i get this :

Code:

[wrong # args: should be "bind type flags cmd/mask ?procname?"]

EDIT: fixed by doing :

Code:

bind pubm - "*!addinfo*" pub:addinfo

NEW ERROR:

Code:

Tcl error [pub:addinfo]: could't open socket: host is unreachable (Name or service not known)

i can download from the url... but not the bot

Statistics: Posted by Fire-Fox — Mon Jun 04, 2012 5:00 pm

[SOLVED][Request] add text from url link to mysqldatabase

2012-06-05T00:14:10-04:00

Haven't tested this.

Code:

bind pub - !addinfo pub:addinfoproc pub:addinfo {nick uhost hand chan text} {if {[scan $text {%s%s} file url] != 2} {puthelp "Usage: !addinfo  "return}set token [::http::geturl $url]set content [::http::data $token]::http::cleanup $contentset fp [open "/home/$file" "w"]foreach line [split $content \n] {puts $fp [join $line "\n"]}close $fp}

Edit: fixed typo.

Statistics: Posted by caesar — Mon Jun 04, 2012 3:40 pm

[SOLVED][Request] add text from url link to mysqldatabase

2012-06-06T13:31:27-04:00

Hey!

I looking for a script that can do the following :

When a user types !addinfo some.text.here http://url.com/get/?a=info&id=1710031&bot=DB2 (were the info is stored) the script should then, download the text file to /home/information.

some.text.here should be the saved name of the filename to...

Statistics: Posted by Fire-Fox — Mon Jun 04, 2012 1:12 pm