egghelp/eggheads community

Two scripts work seperately but not together

2007-12-11T13:57:43-04:00

Warez is not supported on this forum.

Statistics: Posted by metroid — Tue Dec 11, 2007 1:57 pm

Two scripts work seperately but not together

2007-12-09T21:41:11-04:00

Maybe try namespace?

Creating a namespace around each existing script produced the same results.

EDIT: I have simplified it as much as possible and this still won't trigger both. Only the last one. Both putlogs are outputted so it is going though all of it.

Code:

bind pub - !FIX fix::fix_procbind pub - !NEW pre::pre_procnamespace eval fix {namespace export fix_procset _version 0.3proc fix_proc { nick host handle channel text } {putlog "FIX" }putlog "fix v$_version loaded."}namespace eval pre {namespace export pre_procset _version 0.1proc pre_proc { nick host handle channel text } {putlog "PRE"}putlog "pre v$_version loaded."}

Statistics: Posted by anon — Sun Dec 09, 2007 9:41 pm

Two scripts work seperately but not together

2007-12-09T20:14:38-04:00

Looks like a warez script..

Statistics: Posted by rosc2112 — Sun Dec 09, 2007 8:14 pm

Two scripts work seperately but not together

2007-12-09T17:40:29-04:00

Maybe try namespace?

Statistics: Posted by Alchera — Sun Dec 09, 2007 5:40 pm

Two scripts work seperately but not together

2007-12-09T15:53:08-04:00

I have these two scripts, both work fine when only 1 is loaded. When both are loaded only the last one loaded works. Any ideas?
pre.tcl

Code:

package require mysqltclset db_handle [mysqlconnect -host localhost -user root -password pass -db pre]bind pub - !NEW pre_procset _version 0.2proc insert {section name timestamp} {global db_handleset sql "INSERT INTO releases VALUES (null, '$section', '$name', '$timestamp', null, null, '0', null)"set result [mysqlexec $db_handle $sql]if {$result == 1} {return 1} else {putlog "FAILURE - $sql"return 0}}proc pre_proc { nick host handle channel text } {set section [lindex [split $text] 1]set release [lindex [split $text] 3]set timestamp "[lindex [split $text] 4] "append timestamp [lindex [split $text] 5]putlog "PRE $release"set result [insert $section $release $timestamp]if {$result == 1} {puthelp "PRIVMSG #lfs-pre :PRE in $section :: $release $timestamp"}}putlog "pre.tcl v$_version loaded."

fix.tcl

Code:

package require mysqltclset db_handle [mysqlconnect -host localhost -user root -password pass -db pre]bind pub - !FIX fix_procset _version 0.2proc fix_size {name size files} {global db_handleset sql "UPDATE releases SET size='$size', files='$files' WHERE name='$name'"set result [mysqlexec $db_handle $sql]if {$result == 1} {return 1} else {putlog "SIZE FAILURE - $sql"return 0}}proc fix_proc { nick host handle channel text } {putlog "FIX [lindex [split $text] 1]" set fixtype [lindex [split $text] 0]if {$fixtype == "size"} {fix_size [lindex [split $text] 1] [lindex [split $text] 2] [lindex [split $text] 3]} }putlog "fix.tcl v$_version loaded."

I have also tried putting them in the same file and that doesn't work either.

Statistics: Posted by anon — Sun Dec 09, 2007 3:53 pm