egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-03-09T08:52:38-04:00 https://forum.eggheads.org/app.php/feed/topic/3809 2003-03-09T08:52:38-04:00 2003-03-09T08:52:38-04:00 https://forum.eggheads.org/viewtopic.php?p=17592#p17592 <![CDATA[Clanbase Script - small problem!]]>
Its latest eggdrop on hosted shell.

Statistics: Posted by Rav — Sun Mar 09, 2003 8:52 am

]]> 2003-03-08T12:49:17-04:00 2003-03-08T12:49:17-04:00 https://forum.eggheads.org/viewtopic.php?p=17567#p17567 <![CDATA[weird...]]> What eggdrop are you using? OS? shell?

Statistics: Posted by madgabz — Sat Mar 08, 2003 12:49 pm

]]> 2003-03-07T08:59:03-04:00 2003-03-07T08:59:03-04:00 https://forum.eggheads.org/viewtopic.php?p=17515#p17515 <![CDATA[Clanbase Script - small problem!]]>
yeah I downloaded it again.. worked fine then 2 days later things went funny.. odd

Statistics: Posted by Rav — Fri Mar 07, 2003 8:59 am

]]> 2003-03-07T04:02:21-04:00 2003-03-07T04:02:21-04:00 https://forum.eggheads.org/viewtopic.php?p=17503#p17503 <![CDATA[k!]]>
I downloaded the latest script for ClanBase info just to test if i could find any errors. Guess what? It works beautifully w. my windrop 1.6.12!!!

Maybe re-download it, and reinstall, Rav?

If any1 remotely keen on tcl scripting could add a little codesnippet to remove the html bold tags from clanbase's rank-info? :D

Statistics: Posted by madgabz — Fri Mar 07, 2003 4:02 am

]]> 2003-03-03T19:39:37-04:00 2003-03-03T19:39:37-04:00 https://forum.eggheads.org/viewtopic.php?p=17372#p17372 <![CDATA[Clanbase Script - small problem!]]>
Normally I would give people the benefit of the doubt that they have done the "blatently obvious things" perhaps you know you target audience better.

At no point did I demand support..
Can anyone help with this
Is a question not a demand.. Do not worry.. have wasted plenty of time writing replys and no further to solving it on this forums... Thanks for your time anyway.

Statistics: Posted by Rav — Mon Mar 03, 2003 7:39 pm

]]> 2003-03-03T17:39:06-04:00 2003-03-03T17:39:06-04:00 https://forum.eggheads.org/viewtopic.php?p=17363#p17363 <![CDATA[Clanbase Script - small problem!]]>
Most of the time, we will state the obvious, because many people do not bother reading.

On top, I didn't know people had to provide free support because you demand it, both within two weeks, and with or without attitude (of which, I did not any in the first reply).

Statistics: Posted by ppslim — Mon Mar 03, 2003 5:39 pm

]]> 2003-03-03T17:11:02-04:00 2003-03-03T17:11:02-04:00 https://forum.eggheads.org/viewtopic.php?p=17359#p17359 <![CDATA[Clanbase Script - small problem!]]>

Perhaps I should have emailed 3 times and waited for 2 weeks before trying to get help here... no wait.. I did that already... I am not a retard and manners are free young boy.

Statistics: Posted by Rav — Mon Mar 03, 2003 5:11 pm

]]> 2003-03-03T13:55:44-04:00 2003-03-03T13:55:44-04:00 https://forum.eggheads.org/viewtopic.php?p=17354#p17354 <![CDATA[Clanbase Script - small problem!]]> http://forum.dawgtcl.com/

Statistics: Posted by GodOfSuicide — Mon Mar 03, 2003 1:55 pm

]]> 2003-03-03T12:34:41-04:00 2003-03-03T12:34:41-04:00 https://forum.eggheads.org/viewtopic.php?p=17352#p17352 <![CDATA[Clanbase Script - small problem!]]>
Using this script the commands. !update and !clanrank work fine. However the !nextwar brings up this error....

Can anyone help with this, It was working then started with the errors and nothing has been changed ;(

Code: 

BUG: ClanBase has changed, make sure your cid and lid settings are correct. If not, e-mail wcc@techmonkeys.org with this data: cbjsWarUpcoming_Start();cbjsWarUpcoming_End();
The script I downloaded is:

Code: 

#################################################################### This script gets clan information from www.ClanBase.com and  #### reports it to a channel when you type a trigger. Information #### includes next war and clan rank next war.                    ####                                                              #### NOTE: The bot will pause briefly during an update.           ####                                                              #### Based on code by ppslim.                                     #################################################################################### COMMANDS ################################################ PUB ## !clanrank (Can be changed)      ########### Shows the current rank and      ########### points your clan currently has. ########### ------------------------------- ########### !nextwar (Can be changed)       ########### Shows information about the     ########### next war.                       ########### ------------------------------- ########### !update (Can be changed)        ########### Manually updates ClanBase info. ########################################################################################################## Just load the script, edit the settings, and rehash. ############################################################################################################# Set the flag required to view the info here. #################################################set clanbase_setting(flag) "-|-"################################### Set the next-war command here. ###################################set clanbase_setting(cmd_nxtwar) "!nextwar"#################################### Set the clan rank command here. ####################################set clanbase_setting(cmd_crank) "!rank"################################# Set the update command here. #################################set clanbase_setting(cmd_updt) "!update"################################### Set your League ID (LID) here. ###################################set clanbase_setting(lid) "219"################################# Set your Clan ID (CID) here. #################################set clanbase_setting(cid) "160276"######################################################################### How often (In minutes) would you like the information to be updated? #########################################################################set clanbase_setting(timer_update) "10"##################### Code begins here #####################if {![string match 1.6.* $version]} {putlog "\002CLANBASE:\002 \002CRITICAL ERROR\002 ClanBase.tcl requires eggdrop 1.6.x to run."die "\002CLANBASE:\002 \002CRITICAL ERROR\002 ClanBase.tcl requires eggdrop 1.6.x to run."}if {[info tclversion] < 8.2} {putlog "\002CLANBASE:\002 \002CRITICAL ERROR\002 ClanBase.tcl requires Tcl 8.2 or above to run."die "\002CLANBASE:\002 \002CRITICAL ERROR\002 ClanBase.tcl requires Tcl 8.2 or above to run."}package require httpbind pub $clanbase_setting(flag) $clanbase_setting(cmd_crank) clanbase_showrankbind pub $clanbase_setting(flag) $clanbase_setting(cmd_nxtwar) clanbase_shownextbind pub $clanbase_setting(flag) $clanbase_setting(cmd_updt) clanbase_updateif {![string match *clanbase_time_update* [timers]]} { timer $clanbase_setting(timer_update) clanbase_time_update }proc clanbase_update {nick uhost hand chan text} {clanbase_time_updateputserv "PRIVMSG $chan :The ClanBase information has been updated."}proc clanbase_time_update {} {global clanbase_data clanbase_settingset q [::http::formatQuery wars 1 cid $clanbase_setting(cid) lid $clanbase_setting(lid)]set q2 [::http::formatQuery cid $clanbase_setting(cid)]::http::config -useragent "ClanBase.tcl"set tok [::http::geturl http://www.clanbase.com/claninfo.php -query $q]if {[::http::ncode $tok] != 200} {set clanbase_data(rank) 0} else {if {[regexp {Rank: (.*) \((.*) points\)} [::http::data $tok] match rank points]} {set clanbase_data(rank) [list $rank $points [unixtime]]} else {set clanbase_data(rank) 0}}set tok2 [::http::geturl http://www.clanbase.com/cbjswarupcoming.php -query $q2]if {[::http::ncode $tok2] != 200} {set clanbase_data(nextwar) 0} else {regsub -all -- "\"" "[::http::data $tok2]" "" dataregsub -all -- "," "$data" "" dataif {[regexp {cbjsWarUpcoming_Start\(\)\;cbjsWarUpcoming_Each\((.*)\)\;cbjsWarUpcoming_End\(\)\;} $data match data]} { set clanbase_data(nextwar) 0 }if {[llength $data] < 10} {set clanbase_data(nextwar) 0putlog "BUG: ClanBase has changed, make sure your cid and lid settings are correct. If not, e-mail wcc@techmonkeys.org with this data: $data"} else {set wid [lindex $data 0]set with [lindex $data 1]set time [lindex $data 4]set date [lindex $data 5]set game [lindex $data 8]/[lindex $data 9]set clanbase_data(nextwar) [list $with $time $date $game http://www.clanbase.com/warinfo.php?[::http::formatQuery wid $wid] [unixtime]]}}::http::cleanup $tok::http::cleanup $tok2if {![string match *clanbase_time_update* [timers]]} { timer $clanbase_setting(timer_update) clanbase_time_update }}proc clanbase_showrank {nick uhost hand chan text} {global clanbase_dataif {![info exists clanbase_data(rank)]} {puthelp "PRIVMSG $chan :The information has not been downloaded yet. Please wait until the next update."} elseif {[string equal $clanbase_data(rank) 0]} {puthelp "PRIVMSG $chan :An error occurred the last time the information was downloaded. Try again later."} else {set ts "[duration [expr [unixtime] - [lindex $clanbase_data(rank) end]]] ago."puthelp "PRIVMSG $chan :Rank: [lindex $clanbase_data(rank) 0] Points: [lindex $clanbase_data(rank) 1] Updated: $ts"}}proc clanbase_shownext {nick uhost hand chan text} {global clanbase_dataif {![info exists clanbase_data(nextwar)]} {puthelp "PRIVMSG $chan :The information has not been downloaded yet. Please wait until the next update."} elseif {[string equal $clanbase_data(nextwar) 0]} {puthelp "PRIVMSG $chan :An error occurred the last time the information was downloaded. Try again later."} else {set ts "[duration [expr [unixtime] - [lindex $clanbase_data(nextwar) end]]] ago."puthelp "PRIVMSG $chan :Next War: [lindex $clanbase_data(nextwar) 0], [lindex $clanbase_data(nextwar) 1] [lindex $clanbase_data(nextwar) 2], [lindex $clanbase_data(nextwar) 3]. Details: [lindex $clanbase_data(nextwar) 4] Updated: $ts"}}putlog "\002CLANBASE:\002 ClanBase.tcl Version 1.1 by Wcc is loaded."

Statistics: Posted by Rav — Mon Mar 03, 2003 12:34 pm

]]>