INSERT INTO `pastebin` VALUES (2525, '[-Zod-]', '2004-12-27 18:21:01', 'proc pub:getdata {nick uhost hand chan text} {\r\n	global wait\r\n	set ctime [clock seconds]\r\n	if {$ctime < $wait} {\r\n		return 0\r\n	}\r\n	set wait [expr $ctime + 5]\r\n	set fname "sv.txt"\r\n	set fp [open $fname "r"]\r\n	set data [read $fp]\r\n	close $fp\r\n	set records [split $data "\\n"]\r\n	foreach rec $records {\r\n 		set fields [split $rec ";"]\r\n 		lassign $fields epdate epyear eptime season episode epname\r\n		set epdur "$epdate 20:00:00 $epyear"\r\n		set timediff [expr [clock scan $epdur]-$ctime-3600]\r\n		if {$timediff > 0} {\r\n			set dur [timefmt $timediff]\r\n			puts "notice $nick :$dur until $epname\\($epdate, $epyear at $eptime\\)."\r\n			return 0\r\n		}\r\n	}\r\n	putquick "notice $nick :No upcoming episodes found!"\r\n}', 0, 'tcl', 'tcl', '#EggTCL');
INSERT INTO `pastebin` VALUES (2526, 'triune', '2004-12-27 20:50:33', '        set fd [open $urllogfile a+]\r\n        puts $fd "$i [ctime [unixtime]] $nick ($uhost)"\r\n        close $fd', 0, 'none', 'reverse', 'none');
INSERT INTO `pastebin` VALUES (2527, '[-Zod-]', '2004-12-27 22:37:46', 'proc pub:getdata {nick uhost hand chan text} {\r\n	global wait\r\n	set ctime [clock seconds]\r\n	if {$ctime < $wait} {\r\n		return 0\r\n	}\r\n	set wait [expr $ctime + 5]\r\n	set fname "sv.txt"\r\n	set fp [open $fname "r"]\r\n	set data [read $fp]\r\n	close $fp\r\n	set records [split $data "\\n"]\r\n	foreach rec $records {\r\n 		set fields [split $rec ";"]\r\n 		lassign $fields epdate epyear eptime season episode epname\r\n		set epdur "$epdate 20:00:00 $epyear"\r\n		set timediff [expr [clock scan $epdur]-$ctime-3600]\r\n		if {$timediff > 0} {\r\n			set dur [timefmt $timediff]\r\n			puts "notice $nick :$dur until $epname\\($epdate, $epyear at $eptime\\)."\r\n			return 0\r\n		}\r\n	}\r\n	putquick "notice $nick :No upcoming episodes found!"\r\n}', 2525, 'tcl', 'Tcl error [pub:getdata]: wrong # args: should be &quot;expr arg ?arg ...?&quot;', '#EggTCL');
INSERT INTO `pastebin` VALUES (2528, 'xz', '2004-12-28 14:48:30', 'set glpubbind !test\r\n\r\nbind pub -|- $glpubbind pub_test\r\n\r\nproc pub_test {nick uhost hand chan arg} {\r\npackage require http\r\nset myurl http://www.myurl.com/test.php\r\nset token [::http::geturl $myurl]\r\nset text [::http::data $token]\r\n::http::cleanup $token\r\nputquick "PRIVMSG $chan :$text"\r\n}\r\n', 0, 'tcl', 'the url that return &quot;it works&quot;, crashes my bot', '#EggTCL');
INSERT INTO `pastebin` VALUES (2529, 'Dudeicles', '2004-12-28 23:50:28', 'C:\\Windrop>eggdrop -m\r\n\r\nEggdrop v1.6.17 (C) 1997 Robey Pointer (C) 2004 Eggheads\r\n[21:41] --- Loading eggdrop v1.6.17 (Tue Dec 28 2004)\r\n[21:41] Listening at telnet port 1026 (all).\r\n[21:41] Module loaded: dns\r\n[21:41] Module loaded: channels\r\n[21:41] Module loaded: server\r\n[21:41] Module loaded: ctcp\r\n[21:41] Module loaded: irc\r\n[21:41] Module loaded: notes            (with lang suppor\r\n[21:41] Module loaded: console          (with lang suppor\r\n[21:41] Module loaded: uptime\r\n[21:41] Userinfo TCL v1.07 loaded (URL BF GF IRL EMAIL DO\r\n[21:41] use ''.help userinfo'' for commands.\r\n[21:41] winident.tcl v1.2 - by FireEgl@EFNet <FireEgl@Win\r\n\r\n\r\n\r\nSTARTING BOT IN USERFILE CREATION MODE.\r\nTelnet to the bot and enter ''NEW'' as your nickname.\r\nOR go to IRC and type:  /msg B0ticles hello\r\nThis will make the bot recognize you as the master.\r\n\r\nYou have installed modules but have not selected an encry\r\nmodule, please consult the default config file for info.', 0, 'none', 'windrop not showing error', 'none');
INSERT INTO `pastebin` VALUES (2530, 'digi', '2004-12-29 11:24:11', '#include <tcl.h>           <----------- I included tcl.h like it said in the man page\r\n\r\nbutton .left -text "Left" -command "runsetpwc y 7000"\r\nbutton .right -text "Right" -command "runsetpwc y -7000"\r\nbutton .up -text "Up" -command "runsetpwc z 2500"\r\nbutton .down -text "Down" -command "runsetpwc z -3000"\r\nbutton .centertilt -text "Center Tilt" -command "runsetpwc t 0"\r\nbutton .centerpan  -text "Center Pan" -command "runsetpwc t 1"\r\n\r\npack .left -side left\r\npack .right -side right\r\npack .up -side top\r\npack .down -side bottom\r\npack .centerpan .centertilt\r\n\r\nproc runsetpwc {n a} {\r\n        catch {exec /usr/bin/setpwc/setpwc -$n $a} var\r\n        Tcl_Sleep(1000)             <---------------------------- Now I called it like it said\r\n        loadxawtv\r\n}\r\n\r\nproc loadxawtv {} {\r\n        catch {exec camorama} var\r\n}\r\n\r\n\r\nwhen the script is run it gives me the error invalid command name Tcl_Sleep(1000)', 0, 'tcl', 'tcl script', '#TCL');
INSERT INTO `pastebin` VALUES (2531, 't0mb0y', '2004-12-29 11:48:59', '#!/bin/sh\r\n\r\nif [ -z "$1" ]; then\r\n    echo "You must define a groupname"\r\n    echo "Usage: ./test.sh groupname"\r\n    exit 1\r\nfi\r\n\r\ngrps=`grep "GRPNAMES=" list.sh`\r\ncheck=`echo "$grps" | grep "$1"`\r\nchecklast=`echo "$grps" | awk ''{print $NF}'' | tr -d ''"''`\r\n\r\nif [ -z "$check" ]; then\r\n    echo "$1 does not exist, quitting"\r\n    exit 1\r\nfi\r\n\r\nif [ "$1" == "$checklast" ]; then\r\n    set -- $(echo " $grps " | sed "s/ $1//")\r\nelse\r\n    set -- $(echo " $grps " | sed "s/$1 //")\r\nfi\r\n\r\nresults="$*"\r\n\r\necho "$results"\r\n\r\nexit 0\r\n', 0, 'bash', 'none', 'none');
INSERT INTO `pastebin` VALUES (2534, 'haize', '2004-12-29 23:43:41', 'set proctrigger "!proc"\r\n\r\nbind pub - $proctrigger pubproc\r\nproc pubproc {nick uhost handle channel arg} {\r\nglobal uptimechan\r\nif {([lsearch -exact [string tolower $uptimechan] [string tolower $chan]] != -1) || $(uptimechan == "")} {\r\nif {[catch {exec ps -aux | grep jewhelp} proc]} {}\r\nputserv "privmsg $chan :User jewhelp is running $proc"\r\n}}\r\n\r\n\r\n\r\n\r\nOk thats how i have it setup now and now it doesnt give me any errors. But when i type !proc in the channel it gives me no reply?', 2533, 'tcl', 'almost got it?', '#EggTCL');
INSERT INTO `pastebin` VALUES (2535, 'haize', '2004-12-29 23:51:48', 'set proctrigger "!proc"\r\n\r\nbind pub - $proctrigger pubproc\r\nproc pubproc {nick uhost handle channel arg} {\r\nglobal uptimechan\r\nif {([lsearch -exact [string tolower $uptimechan] [string tolower $chan]] != -1) || $(uptimechan == "")} {\r\nif {[catch {exec ps -aux | grep jewhelp} proc]} {}\r\nputserv "privmsg $chan :User jewhelp is running $proc"\r\n}}\r\n\r\n\r\n\r\n\r\nOk thats how i have it setup now and now it doesnt give me any errors. But when i type !proc in the channel it gives me no reply?', 2533, 'tcl', 'almost got it?', '#EggTCL');
INSERT INTO `pastebin` VALUES (2615, 'Qdog', '2005-01-26 14:38:11', '###############################################################################\r\n###############################################################################\r\n##                               Weather V3.4.3                              ##\r\n##                                  by DragnLord                             ##\r\n##                                                                           ##\r\n##                                                                           ##\r\n##                                                                           ##\r\n##  This script is based on murf weather script and it now correctly pulls   ##\r\n##  weather from www.wunderground.com (goto their site and click on a few a  ##\r\n##  ads, lets keep em in business!) and gets US weather by city or zip and   ##\r\n##  international weather by city.                                           ##\r\n##                                                                           ##\r\n##  Thanks to all for your bug reports and fixes.                            ##\r\n##                                                                           ##\r\n###############################################################################\r\n##  Runs on TCL 8.3 & 8.4, tested using TCL 8.4 with eggdrop v1.6.17.        ##\r\n###############################################################################\r\n##                                                                           ##\r\n##  These are public and message commands, not partyline!                    ##\r\n##  Usage: .wz [-d] [-o] [-u imc] [-t] [help] <city,state|zip> [country]     ##\r\n##         or /msg bot .wz [-d] [-o] [-u imc] [-t] <city,state|zip> [country]##\r\n##                                                                           ##\r\n##         state should be the two letter state code                         ##\r\n##         country defaults to US and is not needed for US weather           ##\r\n##         ex. .wz denver,co                                                 ##\r\n##             .wz 11111                                                     ##\r\n##                                                                           ##\r\n##         Canada & Australia are no longer special cases, and use the same  ##\r\n##         syntax as other countries                                         ##\r\n##                                                                           ##\r\n##         -d <city,state|zip> [country]   will set a default allowing user  ##\r\n##                                         to just type .wz                  ##\r\n##         -o                              will give output in long format   ##\r\n##         -u <imc>                        choose units imperial metric      ##\r\n##                                         combined                          ##\r\n##         -s <city,state|zip> [country]   get sunrise/sunsewt info          ##\r\n##         -t <city,state|zip> [country]   get the time                      ##\r\n##         -p <city,state|zip>             precipitation report for US only  ##\r\n##                                                                           ##\r\n##  Country codes now match standard internet country codes as closely as    ##\r\n##  possible, but .wzc allows users to search for their code. Input to .wz   ##\r\n##  can be entererd as full country name.                                    ##\r\n##                                                                           ##\r\n##          .wzc <search string> or /msg bot .wzc <country>                  ##\r\n##                                                                           ##\r\n##                                                                           ##\r\n##  Version Info                                                             ##\r\n##      v3.4.3 Jan 21 2005                                                   ##\r\n##      -Fixed minor website changes (these guys don''t kid around)           ##\r\n##                                                                           ##\r\n##      v3.4.2 Jan 18 2005  picked up by DragnLord                           ##\r\n##      -Fixed format to handle decimal reports                              ##\r\n##      -Fixed matches on keywords                                           ##\r\n##      -Added forecast parsing "suggestions" from jdp                       ##\r\n##                                                                           ##\r\n##      v3.4.1 Apr 30 2004                                                   ##\r\n##      -Fixed <nobr> around the date (Thanks Neil)                          ##\r\n##                                                                           ## \r\n##      v3.4 Mar 17 2004                                                     ##\r\n##      -Fixed sunrise sunset not showing                                    ##\r\n##      -Fixed international weather forcast again                           ##\r\n##                                                                           ##\r\n###############################################################################\r\n###############################################################################\r\nputlog "Loading Weather3.4.3 by DragnLord..."\r\n\r\n## Allow users to set a default weather city (can just type .wz to get weather)?\r\n## Defaults are saved per user using XTRA fields in the user database.\r\n## yes == 1 no == 0\r\n\r\nset allow_user_def_wz 0\r\n\r\n## Set default response to a msg request to either msg or notice\r\n## wz_msg_reply = 1 send via msg\r\n## wz_msg_reply == 0 send via notice\r\n\r\nset wz_msg_reply 0\r\n\r\n## Set default output to short, just temps, or long, temps/conditions/updated\r\n## short == 0 long == 1\r\n\r\nset wz_long 1\r\n\r\n## Disallow public response in specific channels?\r\n## enter channels in lowercase, e.g.\r\n## set wz_quiet "#lame #lamer" \r\n\r\nset wz_quiet "#mirchelp"\r\n\r\n## Set display units to imperial, metric, or both.  These are the default\r\n## unless the user overrides with a -u on the command line or in their own\r\n## defaults. \r\n## wz_unit == i  set default to imperial\r\n## wz_unit == m  set default to metric\r\n## wz_unit == c  set default to combined\r\n\r\nset wz_unit c\r\n\r\n## Include sunrise/sunset data along with current conditions by default.\r\n## set to 1 to include by default\r\n\r\nset wz_default_sr 0\r\n\r\n## Init Globals, DON''T CHANGE!!! ##############################################\r\n## wz_cache 	 cached list of country URL''s...they are cleared on reload\r\n##          	 to keep them fresh and not too much of a memory hog\r\n## wz_forecast_f internal flag set to 1 means a forecast is requested along with current conditions\r\n## get_time_f    internal flag set to 1 this means get the time only, no weather is possible\r\n##               If time is all you want, this can be done, but you got a big\r\n##               script just to get the time!\r\n## get_pn_f      internal flag set to 1 means its a precipation only request\r\n## get_sr_f      internal flag set to 1 means to get sunrise/sunset only\r\n## get_mn_f      internal flag set to 1 means to get moon phase only\r\n\r\nset wz_cache ""\r\nset wz_forecast_f 0\r\nset get_time_f 0\r\nset get_pn_f 0\r\nset get_sr_f 0\r\nset get_mn_f 0\r\n## really I mean it, don''t change these here!\r\nset wztbind ""\r\nset wzsbind ""\r\nset wzpbind ""\r\nset wzmbind ""\r\n\r\n## Binds ######################################################################\r\n\r\n## set the default bind flags here\r\n## examples...\r\n## -|- anyone\r\n## o|o only ops\r\n## f|f only friends\r\n## of|of friends or ops\r\n## wzbind_pub_f is the default for public commands and wzbind_msg_f is for msg commands\r\n## in case you want different flags for each.\r\n\r\nset wzbind_pub_f "-|-"\r\nset wzbind_msg_f "-|-"\r\n\r\n## set these to whatever you want, it will carry over into the help now.\r\n## Change .wz .wzc & .wzf to whatever you prefer.\r\n\r\nset wzbind @weather\r\nset wzcbind .wzc\r\n\r\n## If you prefer the time, sunrise, moon and precip to be separate commands as opposed\r\n## to using the -t -s -m and -p flags, leave the following uncommented. \r\n\r\n## time bind (don''t uncomment this line)\r\nset wztbind @time\r\nbind pub $wzbind_pub_f $wztbind pub_wz_time\r\nbind msg $wzbind_msg_f $wztbind msg_wz_time\r\n\r\n## sunrise/sunset bind (don''t uncomment this line)\r\nset wzsbind @sun\r\nbind pub $wzbind_pub_f $wzsbind pub_wz_sunrise\r\nbind msg $wzbind_msg_f $wzsbind msg_wz_sunrise\r\n\r\n## precip bind (don''t uncomment this line)\r\nset wzpbind @rain\r\nbind pub $wzbind_pub_f $wzpbind pub_wz_precip\r\nbind msg $wzbind_msg_f $wzpbind msg_wz_precip\r\n\r\n## moon bind (don''t uncomment this line)\r\nset wzmbind @moon\r\nbind pub $wzbind_pub_f $wzmbind pub_wz_moon\r\nbind msg $wzbind_msg_f $wzmbind msg_wz_moon\r\n\r\n####CODE -- Change it if you like, just don''t bitch if you break it ###########\r\n###############################################################################\r\n\r\nbind pub $wzbind_pub_f $wzbind pub_wz\r\nbind msg $wzbind_msg_f $wzbind msg_wz\r\nbind pub $wzbind_pub_f $wzcbind pub_country_code\r\nbind msg $wzbind_msg_f $wzcbind msg_country_code\r\nbind pub $wzbind_pub_f $wzfbind pub_wz_forecast\r\nbind msg $wzbind_msg_f $wzfbind msg_wz_forecast\r\n\r\n################## Calling procs ##############################################\r\n## Main pub ###################################################################\r\n## pub_wz is called from channel requests sets output type and calls wz_parse\r\n\r\nproc pub_wz {nick uhand handle chan input} {\r\n   global botnick wz_quiet\r\n   set chan [string tolower $chan]\r\n   if {$input != ""} {\r\n      set location [string tolower $input]\r\n   } else {\r\n      set location $input\r\n   }\r\n   if {[lsearch -exact $wz_quiet $chan] != -1} { \r\n      set outtarg "NOTICE $nick"\r\n   } else {\r\n      set outtarg "PRIVMSG $chan"\r\n   }\r\n\r\n   wz_parse $nick $handle $location $outtarg\r\n\r\n   return 0\r\n}\r\n\r\n## Main msg ###################################################################\r\n\r\n## msg_wz is called from query requests sets output type and calls wz_parse\r\n\r\nproc msg_wz {nick uhand handle input} {\r\n   global wz_msg_reply\r\n   if {$input != ""} {\r\n      set location [string tolower $input]\r\n   } else {\r\n      set location $input \r\n   }\r\n   if {$wz_msg_reply == 0} { \r\n      set outtarg "NOTICE $nick"\r\n   } else {\r\n      set outtarg "PRIVMSG $nick"\r\n   }\r\n   wz_parse $nick $handle $location $outtarg\r\n\r\n   return 0\r\n}\r\n\r\n## Procs to call time if separate bind ##########################################\r\n\r\nproc pub_wz_time {nick uhand handle chan input} {\r\n   set input "-t $input"\r\n   pub_wz $nick $uhand $handle $chan $input\r\n   return 0\r\n}\r\n\r\nproc msg_wz_time {nick uhand handle input} {\r\n   set input "-t $input"\r\n   msg_wz $nick $uhand $handle $input\r\n   return 0\r\n}\r\n\r\n## Procs to call sunrise if separate bind ##########################################\r\n\r\nproc pub_wz_sunrise {nick uhand handle chan input} {\r\n   set input "-s $input"\r\n   pub_wz $nick $uhand $handle $chan $input\r\n   return 0\r\n}\r\n\r\nproc msg_wz_sunrise {nick uhand handle input} {\r\n   set input "-s $input"\r\n   msg_wz $nick $uhand $handle $input\r\n   return 0\r\n}\r\n\r\n## Procs to call precip if separate bind ##########################################\r\n\r\nproc pub_wz_precip {nick uhand handle chan input} {\r\n   set input "-p $input"\r\n   pub_wz $nick $uhand $handle $chan $input\r\n   return 0\r\n}\r\n\r\nproc msg_wz_precip {nick uhand handle input} {\r\n   set input "-p $input"\r\n   msg_wz $nick $uhand $handle $input\r\n   return 0\r\n}\r\n\r\n\r\n## Procs to call moon  if separate bind ############################################\r\n\r\nproc pub_wz_moon {nick uhand handle chan input} {\r\n   set input "-m $input"\r\n   pub_wz $nick $uhand $handle $chan $input\r\n   return 0\r\n}\r\n\r\nproc msg_wz_moon {nick uhand handle input} {\r\n   set input "-m $input"\r\n   msg_wz $nick $uhand $handle $input\r\n   return 0\r\n}\r\n\r\n##################################################################################\r\n## Proc to parse input and return URL ############################################\r\n\r\n## wz_parse does a lot of work.  It takes the user input and generates the url\r\n## to get the data from.\r\n## VARS\r\n## webpage      the url to get the data from...init to clear\r\n## wzlongt      temp var for short or long output flag...init to script default\r\n## wzoset_f     flag to check if user set -o.  If so and user default output \r\n##              requested, then reverse the default output type...init to unset\r\n## wzoutput     final var to determine short or long output...init to 99 to \r\n##              determine later if it is not set\r\n## wzdef        if set, then user is setting defaults...init to not setting defaults\r\n## city         requested city...init to clear\r\n## state        requested state/province...init to clear\r\n## country      requested country...init to clear\r\n## zip          requested zip...init to clear\r\n\r\nproc wz_parse {nick handle location outtarg} {\r\n   global allow_user_def_wz botnick wz_long wz_cache wz_unit wz_tunit get_time_f get_pn_f get_sr_f get_mn_f\r\n   set webpage ""\r\n   set wzlongt $wz_long\r\n   set wzoset_f 0\r\n   set wzoutput 99\r\n   set wzdef 0\r\n   set city ""\r\n   set state ""\r\n   set country ""\r\n   set zip ""\r\n   set wz_tunit_reset 0\r\n\r\n## help?\r\n\r\n   if {$location == "help"} {\r\n     wz_help $nick\r\n     return 0\r\n   }\r\n\r\n\r\n## -o to set output to long format and strip -o from location\r\n## set wzlongt accordingly\r\n\r\n   if {[regexp -- {-o ?} $location]} {\r\n     switch $wzlongt {\r\n        0 {set wzlongt 1}\r\n        1 {set wzlongt 0}\r\n     }\r\n     regsub -- {-o ?} $location {} location\r\n     set wzoset_f 1\r\n   }\r\n\r\n\r\n## -d to set default? If yes, set wzdef 1 and strip the -d from $location\r\n## user must be a validuser\r\n \r\n   if {[regexp -- {-d } $location]} {\r\n     if {$allow_user_def_wz == 0} {\r\n        puthelp "NOTICE $nick :Sorry I don''t allow defaults to be set.  Harrass\\\r\nmy master!"\r\n        return 0\r\n     }\r\n     if {[validuser $handle]} {\r\n        set wzdef 1\r\n     } else { \r\n        puthelp "NOTICE $nick :Sorry, dunno who you are, you can''t set a\\\r\ndefault"\r\n     }\r\n     regsub -- {-d } $location {} location\r\n  }\r\n\r\n## -u check for user set units \r\n##  wz_unit sets inital default\r\n##  wz_tunit is used throughout the script as the actual final setting\r\n\r\n   set wz_tunit $wz_unit \r\n   if {[regexp -- {(-u )([imc])} $location match yoo wz_tunit]} { \r\n     set wz_tunit_reset 1 \r\n     if {[regexp {[imc]} $wz_tunit] == 0} {\r\n        puthelp "NOTICE $nick :Proper syntax for units is .wz -u <imc> <city,state|zip> <country> ... Imperial, Metric, or Combined."\r\n        return 0\r\n     }\r\n     regsub -- {-u [imc] ?} $location {} location\r\n   }\r\n\r\n## -t check for time check request\r\n## get_time_f is set to flag the rest of the script that this is a time only request\r\n\r\n   if {[regexp -- {-t ?} $location]} {\r\n      set get_time_f 1\r\n      regsub -- {-t ?} $location {} location\r\n   }\r\n\r\n## -p check for precipitation request\r\n## get_pn_f set to flag script its a precip. only request\r\n   \r\n   if {[regexp -- {-p ?} $location]} {\r\n      set get_pn_f 1\r\n      regsub -- {-p ?} $location {} location\r\n   }\r\n\r\n## -s check or sunrise/sunset\r\n## get_sr_f to flag for request.\r\n\r\n   if {[regexp -- {-s ?} $location]} {\r\n      set get_sr_f 1\r\n      regsub -- {-s ?} $location {} location\r\n   }\r\n\r\n## -m check or sunrise/sunset\r\n## get_mn_f to flag for request.\r\n\r\n   if {[regexp -- {-m ?} $location]} {\r\n      set get_mn_f 1\r\n      regsub -- {-m ?} $location {} location\r\n   }\r\n\r\n\r\n## Is input location all alpha? ie not zip. \r\n\r\n   if {[regexp {[A-Za-z, ]} $location] || $location == ""} {\r\n\r\n## is format City,state?  This is US city weather, parse and set webpage\r\n\r\n      if {[regexp , $location ]} {\r\n        set tempcity [string trim [lindex [split $location ,] 0]]\r\n        regsub -all { } $tempcity {+} city\r\n        set tstate [string trim [lindex [split $location ,] 1]]\r\n        set ltstate [llength $tstate]\r\n        if {$ltstate != 1} {\r\n          set state [string tolower [string trim [lindex [split $tstate] 0]]]\r\n          set country [string tolower [string trim [lindex [split $tstate] 1]]]\r\n          set country [country_search $nick $country 0]\r\n          if {$country != "" && $country != "us"} {\r\n             puthelp "NOTICE $nick : Note that Canada, Australia & China do not require a state, correct syntax is .wz city country, use .wz help  for more help"\r\n          } \r\n        } else {\r\n          set state $tstate\r\n        }\r\n        if {[string length $state] != 2} {\r\n            puthelp "NOTICE $nick : Please use your 2 letter state code"\r\n            return 0\r\n        }\r\n        if {$country == ""} { set country "us" }\r\n\r\n        set webpage "/cgi-bin/findweather/getForecast?query=$city%2C$state"\r\n              \r\n## otherwise must be international weather, city country, parse and set webpage\r\n## code is ugly to account for citys with multiple parts to the name,  this is\r\n## easily accounted for above with ''regsub''.\r\n\r\n## the switch on lloc (length of location)  decides if the location is...\r\n## 0       user default, no location input given\r\n## 1       can''t be correct, spew help\r\n## 2       correct number of components for international, parse for location and country\r\n## default more than 2 components...take the last one and search for a country, use \r\n##         the rest for the city, not perfect, but works in most cases, always works\r\n##         for country code \r\n \r\n      } else {\r\n        set lloc [llength $location]\r\n        switch $lloc {\r\n          0 {\r\n              if {[validuser $handle] && $allow_user_def_wz} {\r\n                 set wzoutput [getuser $handle XTRA wz.output]\r\n                 set location [getuser $handle XTRA wz.zip]\r\n                 set city [getuser $handle XTRA wz.city]\r\n                 set state [getuser $handle XTRA wz.state]\r\n                 set country [getuser $handle XTRA wz.ct]\r\n                 if {$wz_tunit_reset == 0 && [getuser $handle XTRA wz.unit] != ""} {\r\n                    set wz_tunit [getuser $handle XTRA wz.unit]\r\n                 }\r\n                    if {$wzoset_f} {\r\n                    switch $wzoutput {\r\n                       0 {set wzoutput 1}\r\n                       1 {set wzoutput 0}\r\n                    }\r\n                 }\r\n                 if {$location == "" && $city == ""} {\r\n                    puthelp "NOTICE $nick : You don''t have a default city set.\\\r\nIf you want to set one use .wz -d <city,state|zip> <country>, otherwise use\\\r\n.wz <city,state|zip> <country>"\r\n                    return 0\r\n                 }  \r\n                 if {[regexp {[0-9]} $location]} {\r\n                   set webpage "/cgi-bin/findweather/getForecast?query=$location"\r\n                   set zip $location\r\n                 } elseif {$country == "us"} {\r\n                   set webpage "/cgi-bin/findweather/getForecast?query=$city%2C$state"\r\n                 } else {\r\n                    set webpage [wz_set_cache $city $state $country]\r\n                    if {$webpage == -1} {\r\n                       set webpage [country_page $nick $country $city $state]\r\n                       if {$webpage != -1} {\r\n                          if {$state == ""} {\r\n                             set lstate zz\r\n                          } else {\r\n                             set lstate $state\r\n                          }\r\n                          lappend wz_cache "$city $lstate $country $webpage"\r\n                       }\r\n                    }\r\n                    if {$webpage == -1} { return 0 }\r\n                 } \r\n                 wz_socket $nick $webpage $location $city $outtarg $wzoutput $zip $country\r\n                 return 0\r\n              } else {\r\n                 puthelp "NOTICE $nick :Try .wz help"\r\n                 return 0\r\n              }\r\n            }\r\n          1 {\r\n             puthelp "NOTICE $nick :Try .wz help"\r\n             return 0\r\n            }\r\n          2 {\r\n              set city [string trim [lindex [split $location] 0]]\r\n              set tmpcountry [string trim [lindex [split $location] 1]]\r\n              set country [country_search $nick $tmpcountry 0]\r\n              if {$country == -1} {\r\n                  puthelp "NOTICE $nick :Sorry, $tmpcountry is not supported.\\\r\n  Try .wzc <country> or /msg $botnick .wzc <country> to find your 2 letter\\\r\ncountry code."\r\n                  return 0\r\n              }\r\n              if {$country == 1} {\r\n                  puthelp "NOTICE $nick :There are multiple matches for\\\r\n$tmpcountry , try .wzc <country> or /msg $botnick .wzc <country> to find\\\r\nyour 2 letter country code."\r\n                  return 0\r\n              }\r\n             }\r\n          default {\r\n              set lcity [expr {$lloc - 1}]\r\n              set tmpcountry [string trim [lindex [split $location] $lcity]]\r\n              set country [country_search $nick $tmpcountry 0]\r\n              if {$country == -1} {\r\n                  puthelp "NOTICE $nick :Sorry, $tmpcountry is not supported.\\\r\n  Try .wzc <country> or /msg $botnick .wzc <country> to find your 2 letter\\\r\ncountry code."\r\n                  return 0\r\n              }\r\n              if {$country == 1} {\r\n                  puthelp "NOTICE $nick :There are multiple matches for\\\r\n$tmpcountry , try .wzc <country> or /msg $botnick .wzc <country> to find\\\r\nyour 2 letter country code."\r\n                  return 0\r\n              }\r\n              set city [string trim [lindex $location 0]]\r\n              for {set i 1} {$i < $lcity} {incr i} {\r\n                  set tmpcity [lindex $location $i]\r\n                  set city "$city\\ $tmpcity"\r\n              }\r\n          }\r\n        }  \r\n\r\n      set webpage [wz_set_cache $city $state $country]\r\n      if {$webpage == -1} {\r\n         set webpage [country_page $nick $country $city $state]\r\n         if {$webpage != -1} {\r\n            if {$state == ""} {\r\n               set lstate zz\r\n            } else {\r\n               set lstate $state\r\n            }\r\n            lappend wz_cache "$city $lstate $country $webpage"\r\n         }\r\n      }\r\n      if {$webpage == -1} { return 0 }\r\n##close else\r\n     }\r\n##close if\r\n   }\r\n\r\n## check for output style \r\n\r\n   if {$wzoutput == 99} {\r\n     switch $wzlongt {\r\n        0 {set wzoutput 0}\r\n        1 {set wzoutput 1}\r\n     }\r\n   }\r\n\r\n## Is user setting defaults?\r\n     if {$wzdef} {\r\n        switch $wzlongt {\r\n          0 {set lgt "brief"}\r\n          1 {set lgt "long"}\r\n        }\r\n        switch $wz_tunit {\r\n           i {set ut "imperial"}\r\n           m {set ut "metric"}\r\n           c {set ut "combined"}\r\n        }\r\n        if {[regexp {[0-9]} $location]} {\r\n           if {[string length $location] != 5} {\r\n              puthelp "NOTICE $nick :Kinda funky zip is $location?"\r\n              return 0\r\n           }\r\n           set country us\r\n           set zip $location\r\n           puthelp "NOTICE $nick :You selected $zip as default."\r\n        } else {\r\n           regsub {\\+} $country { } tmpcountry\r\n           if {[string toupper $tmpcountry] != "US"} {\r\n              puthelp "NOTICE $nick : The defaults you selected are CITY: [city_case $city]  COUNTRY: [string toupper $tmpcountry]"\r\n           } else {\r\n              puthelp "NOTICE $nick : The defaults you selected are CITY: [city_case $city]  STATE: [string toupper $state]  COUNTRY: [string toupper $tmpcountry]"\r\n           }\r\n        }\r\n        puthelp "NOTICE $nick :Your default output is $lgt"\r\n        puthelp "NOTICE $nick :Your default unit is $ut"\r\n        puthelp "NOTICE $nick :If incorrect try again."\r\n        puthelp "NOTICE $nick :.wz -d -o -u <imc> <location>"\r\n\r\n        setuser $handle XTRA wz.output $wzlongt \r\n        setuser $handle XTRA wz.zip $zip\r\n        setuser $handle XTRA wz.city $city\r\n        setuser $handle XTRA wz.state $state\r\n        setuser $handle XTRA wz.ct $country\r\n        setuser $handle XTRA wz.unit $wz_tunit\r\n        return 0\r\n     }\r\n\r\n\r\n## Is it a US zip code?\r\n\r\n   if {[regexp {[0-9]} $location]} {\r\n\r\n## Note that a zip of 00000 takes an interminably long time, 5min, to timeout \r\n## on the wunderground website, and will hang the bot waiting for the \r\n## webpage to timeout, best to just handle it here\r\n \r\n         if {[string length $location] != 5 || $location == "00000"} {\r\n            puthelp "NOTICE $nick :What kinda funky zip code is $location?"\r\n            return 0\r\n         }\r\n         set zip $location\r\n         set country us\r\n   set webpage "/cgi-bin/findweather/getForecast?query=$location"\r\n   }\r\n   wz_socket $nick $webpage $location $city $outtarg $wzoutput $zip $country\r\n   return 0\r\n}\r\n\r\n\r\n## Set webpage for country, open socket and find city url ##################\r\n## This is needed since wunderground wont allow international city queries\r\n## It takes you to a country page and from there you can choose a city\r\n\r\nproc country_page {nick country city state} {\r\n   global wz_tlang\r\n   set citymatched 0\r\n\r\n## Open socket\r\n        \r\n   set webpage "/global/$country\\.html"\r\n\r\n   if {[catch {set wzsock [socket -async www.wunderground.com 80]} sockerr]} {\r\n      puthelp "NOTICE $nick :$sockerr"\r\n      puthelp "NOTICE $nick :Try again later, look out the window till then!"\r\n      close $wzsock\r\n      return 0\r\n   }\r\n   puts $wzsock "GET $webpage"\r\n   flush $wzsock\r\n\r\n## Search for city URL but first get close.\r\n   set wzout ""\r\n   while {[regexp {<th>Temperature} $wzout] == 0} { \r\n      set wzout [gets $wzsock]\r\n## Not sure if this is needed, but it will break any loops that get to the end of the page\r\n## Better safe than sorry.\r\n\r\n      if {[regexp {</HTML>} $wzout]} {\r\n         return 0\r\n      }\r\n   }\r\n\r\n   while {[regexp {</HTML>} $wzout] == 0} {\r\n     set wzout [gets $wzsock]\r\n     if {[string first [string tolower $city] [string tolower $wzout]] !=-1} {\r\n        regexp {html\\">(.*?)</a>} $wzout match citychk\r\n        if {[string compare [string tolower $city] [string tolower $citychk]] == 0} {\r\n           set wztmpout [gets $wzsock]\r\n           set wztmpout [gets $wzsock]\r\n           if {[regexp {colspan} $wztmpout]} { \r\n              set citymatched 1\r\n              continue \r\n           } else { \r\n              break \r\n           }    \r\n        }\r\n     }\r\n          \r\n     if {[regexp {</HTML>} $wzout]} {\r\n        if {$citymatched} {\r\n           puthelp "NOTICE $nick :Matched $city to $citychk but it had no data, try again later."\r\n        } else {\r\n          puthelp "NOTICE $nick :Sorry, $city is not listed, check\\\r\nhttp:/\\/\\www.wunderground.com for a city thats close."\r\n        }\r\n        close $wzsock\r\n        return -1\r\n     }\r\n   }\r\n   regexp \\=\\"(.*?)\\" $wzout match city_url\r\n   close $wzsock\r\n   return $city_url\r\n}\r\n\r\n## Check for cached URL #################################################\r\n\r\nproc wz_set_cache {city state country} {\r\n   global wz_cache\r\n   set webpage -1\r\n   foreach entry $wz_cache {\r\n     set ecity [lindex [split $entry] 0]\r\n     if {$ecity == $city} {\r\n        set estate [lindex [split $entry] 1]\r\n        set ecountry [lindex [split $entry] 2]\r\n        if {$estate == $state || $estate == "zz"} {\r\n           if {$ecountry == $country} {\r\n             set webpage [lindex [split $entry] 3]\r\n             break\r\n           }\r\n        }\r\n     }\r\n   }\r\n   return $webpage\r\n}\r\n\r\n## Proc to open socket and read webpage in ##############################\r\n## Vars\r\n## wz_forecast_f	display forcast flag\r\n## wz_tunit    		display unit\r\n## get_time_f  		get time only flag\r\n## get_pn_f             get precipitation only flag\r\n## updtime     		time of last update \r\n## temp        		the temperature\r\n## outtemp     		final formatted temp to output\r\n## cond        		the conditions, windy etc\r\n## chill       		windchill\r\n## hindex      		heatindex\r\n## chilldex    		final formatted heatindex or windchill\r\n## ichilldex   		imperial value of chilldex\r\n## mchilldex   		metric value of chilldex\r\n## cchilldex   		combined value of chilldex\r\n## outhorc     		is it "Windchill" or "Heatindex"?\r\n## wind        		value of the wind\r\n## outwind  		final formatted wind output\r\n## humidity    		the value of the humidity\r\n## noreport    		was there any weather reported at the time?\r\n## wdir        		wind direction\r\n\r\nproc wz_socket {nick webpage location city outtarg wzoutput zip country} {\r\n\r\n   global wz_forecast_f wz_tunit get_time_f get_pn_f get_sr_f wz_default_sr get_mn_f\r\n   set updtime ""\r\n   set temp ""\r\n   set outtemp ""\r\n   set cond ""\r\n   set chill ""\r\n   set hindex ""\r\n   set chilldex ""\r\n   set ichilldex ""\r\n   set mchilldex ""\r\n   set cchilldex ""\r\n   set outhorc ""\r\n   set wind ""\r\n   set outwind ""\r\n   set humidity ""\r\n   set noreport ""\r\n   set wdir ""\r\n   set wzsrise ""\r\n   set wzsset ""\r\n   set wfdcond ""\r\n   set wfdtemp ""\r\n   set wfncond ""\r\n   set wfntemp ""\r\n\r\n## Open socket to www.wunderground.com and read in webpage...use async for faster\r\n## response.\r\n\r\n   if {[catch {set wzsock [socket -async www.wunderground.com 80]} sockerr]} {\r\n      puthelp "NOTICE $nick :$sockerr"\r\n      puthelp "NOTICE $nick :Try again later, look out the window till then!"\r\n      close $wzsock\r\n      return 0\r\n   }\r\n   puts $wzsock "GET $webpage"\r\n   flush $wzsock\r\n\r\n\r\n## Start the loop to read the buffer in $wzsock.  This first loops checks for\r\n## the word ''Updated'' to get us in the vicinity of the data.  The pages are \r\n## NOT static and this step is needed.\r\n\r\n   set i 0 \r\n   set wzout ""\r\n   set wztitle ""\r\n   set localdate ""\r\n   while {[regexp {Updated} $wzout] == 0 && $i < 4000} {\r\n      set wzout [gets $wzsock]\r\n      incr i\r\n\r\n## Get local time \r\n\r\n      if {[regexp {Local Time} $wzout]} {\r\n         regexp {<b>(.*?)</b>} $wzout match localdate\r\n         regsub -all {<[^>]*>} $localdate {} localdate\r\n      }\r\n\r\n## Get city name if input was a US zip code\r\n\r\n      if {$i < 50} {\r\n         if {[regexp Underground $wzout]} {\r\n            regexp {:(.*?)Forecast} $wzout match wztitle\r\n            if {[regexp Forecast $wzout] == 0} { \r\n               regexp {:(.*?)</} $wzout match wztitle\r\n            }\r\n            if {$wztitle == "City Not Found"} {\r\n               puthelp "NOTICE $nick :Sorry $location is not available"\r\n               close $wzsock\r\n               return 0\r\n            } \r\n            if {[string first Search $wztitle] !=-1} {\r\n               puthelp "NOTICE $nick :Check your syntax, use .wz -help"\r\n               close $wzsock\r\n               return 0\r\n            }\r\n            if {$wztitle == ""} { \r\n               puthelp "NOTICE $nick :Sorry $location is not available"\r\n               close $wzsock\r\n               return 0\r\n            }\r\n            set city $wztitle\r\n            set city [city_case $city]\r\n\r\n## if get_pn_f is set, call get_precip routine to get just the rain, its easier than \r\n## making a mess of the wz_socket proc.\r\n\r\n            if {$get_pn_f} {\r\n               if {[string tolower $country] != "us"} {\r\n                  puthelp "NOTICE $nick : Sorry precipitation reports only available for US"\r\n                  set get_pn_f 0\r\n                  return 0\r\n               }\r\n               get_precip $wzsock $nick $city $outtarg\r\n               return 0\r\n            }\r\n         }\r\n      }\r\n## Emergency loop break.  Just in case, need to break the loop\r\n\r\n      if {[regexp </HTML> $wzout]} {\r\n         puthelp "NOTICE $nick :Sorry $location is not available"\r\n         close $wzsock\r\n         return 0\r\n      }  \r\n\r\n   }\r\n\r\n## Finally in the right place, start pulling weather data\r\n\r\n   regexp {b>(.*?)</} $wzout match updtime\r\n   set wzout [gets $wzsock]\r\n   for {set i 0} {$i <= 100} {incr i} {\r\n     set wzout [gets $wzsock]\r\n        if {$cond == "" && [regexp Conditions $wzout]} {\r\n            set wzout [gets $wzsock]\r\n            regexp {b>(.*?)</b} $wzout match cond\r\n        }\r\n	if {$temp == "" && [regexp "</b>&nbsp;&#176;F</nobr>" $wzout]} {\r\n            regexp {b>(.*?)</b>} $wzout match temp\r\n            continue\r\n        }\r\n        if {$chill == "" && [regexp Windchill $wzout]} {\r\n            for {set j 0} {$j <= 10} {incr j} {\r\n               set wzout [gets $wzsock]\r\n               if {[regexp <b> $wzout]} {\r\n                 regexp {b>(.*?)</b>} $wzout match chill\r\n                 break\r\n               }   \r\n            }\r\n            continue\r\n        }\r\n        if {$hindex == "" && [regexp HeatIndex $wzout]} {\r\n            for {set j 0} {$j <= 10} {incr j} {\r\n               set wzout [gets $wzsock]\r\n               if {[regexp <b> $wzout]} {\r\n                 regexp {b>(.*?)</b>} $wzout match hindex\r\n                 set stindx [string first <b> $wzout]\r\n                 set etindx [string first </b> $wzout]\r\n                 break\r\n               }   \r\n            }\r\n            continue\r\n        }\r\n        if {$wind == "" && [regexp Wind $wzout]} {\r\n            for {set j 0} {$j <= 15} {incr j} {\r\n               set wzout [gets $wzsock]\r\n               if {[regexp <td> $wzout]} {\r\n                 regexp {b>(.*?)</b>} $wzout match wdir\r\n                 set wdir [string toupper $wdir]\r\n               }\r\n               if {[regexp mph $wzout]} {\r\n                 regexp {b>(.*?)</b>} $wzout match wind\r\n                 break\r\n               }\r\n            }\r\n            set wind [string tolower $wind]\r\n            continue\r\n        }\r\n        if {$humidity == "" && [regexp Humidity $wzout]} {\r\n            regexp {b>(.*?)</b>} $wzout match humidity\r\n        }\r\n   }\r\n\r\n## Get the sunrise sunset crud here\r\n\r\n   set i 0\r\n   while {[regexp Rise $wzout] == 0  && $i < 8000} {\r\n      incr i \r\n      set wzout [gets $wzsock]\r\n   }\r\n   set wzout [gets $wzsock]\r\n   set wzout [gets $wzsock]\r\n   regexp {b>(.*?)</b} $wzout match wzsrise\r\n   set wzout [gets $wzsock]\r\n   regexp {b>(.*?)</b} $wzout match wzsset\r\n\r\n## Full Moon?\r\n\r\n   set i 0\r\n   set phase ""\r\n   set phase_list {\r\n0 "is almost new"\r\n1 "is new tonight" \r\n2 "was just new" \r\n3 "is just past new" \r\n4 "was new a few days ago"\r\n5 "is heading to the first quarter"\r\n6 "is close to first quarter"\r\n7 "is almost at first quarter"\r\n8 "is at the first quarter" \r\n9 "was just at the first quarter"\r\n10 "was first quarter a day or so ago"\r\n11 "was first quarter a few days ago"\r\n12 "will be full in a few days"\r\n13 "will be full in a day or so"\r\n14 "is almost full"\r\n15 "is very nearly full"\r\n16 "is full, watch out for the freaks!"\r\n17 "was just full"\r\n18 "was full a day or so ago"\r\n19 "was full a few days ago"\r\n20 "is heading to the last quarter"\r\n21 "is close to the last quarter"\r\n22 "is almost at the last quarter"\r\n23 "last quarter" \r\n24 "was last quarter a day or so ago" \r\n25 "was last quarter a few days ago" \r\n26 "is heading to the new moon"\r\n27 "is close to the new moon"\r\n28 "is almost at the new moon"\r\n29 "is almost at the new moon"\r\n30 "is almost new tonight" \r\n}\r\n   while {[regexp Phase $wzout] == 0 && $i < 15} {\r\n      incr i\r\n      set wzout [gets $wzsock]\r\n   }\r\n   for {set i 0} {$i < 5} {incr i} {\r\n      set wzout [gets $wzsock]\r\n      if {[regexp {moon([0-9])\\.gif} $wzout match wz_moon_num] || [regexp {moon([0-9][0-9])\\.gif} $wzout match wz_moon_num]} { \r\n         for {set j 0} {$j < [llength $phase_list]} {incr j 2} {\r\n             if {[lindex $phase_list $j] == $wz_moon_num} {\r\n                incr j\r\n                set phase [lindex $phase_list $j]\r\n             }\r\n         }\r\n      }\r\n   }\r\n   \r\n## Do forcast if called from wzf\r\n\r\n## First loop gets buffer to start of forecast by looking for ''Updated:''\r\n## It also looks for a current special forecast and sets nowcast to 1 if it finds one\r\n\r\n   if {$wz_forecast_f} {\r\n      set i 0\r\n      set j 0\r\n      set nowcast 0\r\n         while {[regexp Updated: $wzout] == 0  && $i < 700} {\r\n            set wzout [gets $wzsock]\r\n            if {$nowcast} {\r\n               if {[regexp <b>Now< $wzout]} {\r\n                  set wzout [gets $wzsock]\r\n                  set fcast($j) $wzout\r\n                  set wftime($j) Now \r\n                  incr j\r\n                  set nowcast 0\r\n               }\r\n            }   \r\n            if {[regexp Nowcast $wzout]} {\r\n               set nowcast 1\r\n            }\r\n            incr i\r\n            if {[regexp </HTML> $wzout]} {\r\n               return 0\r\n            }\r\n         }\r\n\r\n## This loop pulls the weather forecast.  \r\n      for {set i 0} {$i <= 150} {incr i} {\r\n        set wzout [gets $wzsock]\r\n         if {[regexp {<td align=left} $wzout]} {\r\n           regexp {<b>(.*?)</b>} $wzout match wftime($j)\r\n           set wzout [gets $wzsock]\r\n           if {$country != "us"} {\r\n              if { $j == 10 } { break }\r\n              set fcondtmp $wzout\r\n              regsub -all {[	]} $fcondtmp {} fconds\r\n              set fcond [string trim $fconds]\r\n              set wzout [gets $wzsock]\r\n              set fhltmp $wzout\r\n              regsub -all {	} $fhltmp {} fhl\r\n              set fhl [string trim $fhl]\r\n##              gets $wzsock\r\n              set wzout [gets $wzsock]\r\n              set ftmptmp $wzout\r\n              regsub -all {[ &deg;F\\.	]} $ftmptmp {} ftmps\r\n              set ftmp [string trim $ftmps]\r\n              set fctmp [expr {round([expr {[expr {$ftmp - 32 }] * .55 }])}]\r\n              set ftemp [format "%3dF/%-*dC" $ftmp [string length $fctmp] $fctmp]\r\n              set fcast($j) "$fcond $fhl $ftemp"\r\n           } else {\r\n              if {$j == 5} { break }\r\n              set fcast($j) $wzout\r\n           }\r\n           incr j\r\n        }\r\n      }\r\n   }      \r\n   close $wzsock\r\n\r\n## Format final output... - == No Report\r\n\r\n## chilldex is the final output of both windchill & heatindex, \r\n## depending on which got set.\r\n## DL - CHANGED format to %3s to deal with reports that include decimals.\r\n   if {$chill != ""} {\r\n      set outhorc "Wind Chill"\r\n      set ichilldex $chill\r\n      set mchilldex [expr {round([expr {[expr {$ichilldex - 32 }] * .55 }])}]\r\n      set cchilldex [format "%3sF/%-*dC" $ichilldex [string length $mchilldex] $mchilldex]\r\n   } \r\n   if {$hindex != ""} {\r\n        set outhorc "Heat Index"\r\n        set ichilldex $hindex\r\n        set mchilldex [expr {round([expr {[expr {$ichilldex - 32 }] * .55 }])}]\r\n        set cchilldex [format "%3sF/%-*dC" $ichilldex [string length $mchilldex] $mchilldex]\r\n   }\r\n   if {[regexp {[0-9]} $temp] == 0} {\r\n     set noreport "(No Report)"\r\n     set outtemp "Temp: NR"\r\n   } else {   \r\n     set itemp $temp\r\n     set mtemp [expr {round([expr {[expr {$itemp - 32 }] * .55 }])}]\r\n     set ctemp [format "%3sF/%-*dC" $itemp [string length $mtemp] $mtemp]\r\n   }\r\n   if {[regexp {[0-9]} $humidity] == 0} {\r\n     set humidity "Humidity: NR"\r\n     set noreport "(No Report)"\r\n   } else {\r\n     set humidity [format "Humidity: %s" $humidity]\r\n   }\r\n   if {$wind == ""} { \r\n      set outwind "calm" \r\n   } else {\r\n      set iwind $wind\r\n      set mwind [expr {round([expr {$iwind * 1.609344}])}]\r\n      set cwind [format "%2smph/%2skmh" $iwind $mwind]\r\n   }\r\n\r\n   if {$wz_tunit == "i"} {\r\n      if {$chilldex == ""} {set chilldex "$outhorc: $ichilldex F"}\r\n      if {$outtemp == ""} {set outtemp "Temp: $itemp F"}\r\n      if {$outwind == ""} {set outwind "$wdir at $iwind mph"}\r\n   }\r\n   if {$wz_tunit == "m"} {\r\n      if {$chilldex == ""} {set chilldex "$outhorc: $mchilldex C"}\r\n      if {$outtemp == ""} {set outtemp "Temp: $mtemp C"}\r\n      if {$outwind == ""} {set outwind "$wdir at $mwind kmh"}\r\n   }\r\n   if {$wz_tunit == "c"} {\r\n      if {$chilldex == ""} {set chilldex "$outhorc: $cchilldex"}\r\n      if {$outtemp == ""} {set outtemp "Temp: $ctemp"}\r\n      if {$outwind == ""} {set outwind "$wdir at $cwind"}\r\n   }\r\n \r\n   if {$chill == "" && $hindex == ""} {\r\n      set chilldex ""\r\n   }\r\n\r\n## Spew the data\r\n\r\n   if {$get_time_f} {\r\n      puthelp "$outtarg : It''s $localdate in $city"\r\n      set get_time_f 0\r\n      return 0\r\n   }\r\n\r\n   puthelp "$outtarg : $city -- $localdate"\r\n \r\n   if {$get_sr_f} {\r\n      puthelp "$outtarg : Sunrise : $wzsrise    Sunset : $wzsset"\r\n      set get_sr_f 0\r\n      return 0\r\n   }\r\n   if {$get_mn_f} {\r\n      puthelp "$outtarg : The moon $phase."\r\n      set get_mn_f 0\r\n      return 0\r\n   }\r\n   puthelp "$outtarg : $outtemp    $chilldex    $humidity    $noreport"\r\n   if {$wzoutput} {\r\n      puthelp "$outtarg : Conditions : $cond with wind $outwind"\r\n   }\r\n   if {$wz_default_sr} {\r\n      puthelp "$outtarg : Sunrise : $wzsrise   Sunset : $wzsset"\r\n   }\r\n   if {$wz_forecast_f} {\r\n      set wz_forecast_f 0\r\n      puthelp "$outtarg : "\r\n      puthelp "$outtarg :Forecast"\r\n      if {$country != "us"} {\r\n         set didit 1\r\n         for {set k 0} {$k < $j} {incr k} {\r\n             if {[string first "$wftime($k) Night" $wftime([expr {$k + 1}])] != -1 } {\r\n                 set shcastday $wftime([expr {$k + 1}])\r\n                 set shcast $fcast([expr {$k + 1}])  \r\n                 puthelp "$outtarg : $wftime($k): $fcast($k)   Night: $shcast"\r\n                 set didit 0\r\n             } elseif {$didit} {\r\n                 puthelp "$outtarg : $wftime($k):  $fcast($k)"\r\n                 set didit 1\r\n             }\r\n         }\r\n         return 0\r\n      }\r\n      for {set i 0} {$i < $j} {incr i} {\r\n          puthelp "$outtarg : $wftime($i):  $fcast($i)"\r\n      }\r\n   }\r\n   return 0\r\n}\r\n\r\n## Public country search #############################################\r\n## Country codes do not match standard internet conventions.  Need to \r\n## allow people to search for their proper code.\r\n\r\nproc pub_country_code {nick uhand handle chan country} {\r\n  country_search $nick $country 1\r\n  return 0\r\n}\r\n\r\n\r\n## Message country search #############################################\r\n\r\nproc msg_country_code {nick uhand handle country} {\r\n  country_search $nick $country 1\r\n  return 0\r\n}\r\n\r\n## Search the country list for country code ###########################\r\n\r\nproc country_search {nick country sc_call} {\r\nglobal botnick \r\n\r\n## Note that there are some US protectorates in the country list.\r\n## I did not code for these, if you''re from there you can try \r\n## fixing it yourself, it shouldn''t be that hard, just more kluge.\r\n\r\nset ctlist {\r\nantarctica:aq:AA\r\nafghanistan:af:AH\r\nalbania:al:AB\r\nalgeria:dz:AL\r\nangola:ao:AN\r\nargentina:ar:AG\r\narmenia:am:AM\r\nascensioni#island:ac:AI\r\naustralia:au:AU\r\naustria:at:OS\r\nazerbaijan:az:A2\r\nbahrain:bh:BN\r\nbangladesh:bd:BW\r\nbelarus:by:BY\r\nbelgium:be:BX\r\nbelize:bz:BH\r\nbenin:bj:BJ\r\nbolivia:bo:BO\r\nbosnia:ba:BA\r\nbotswana:bw:BC\r\nbrazil:br:BZ\r\nbrunei:bn:BF\r\nbulgaria:bg:BU\r\nburkina#faso:bf:HV\r\nburma/myanmar:mm:BM\r\nburundi:bi:BI\r\ncanada:ca:CA\r\ncambodia:kh:KH\r\ncameroon:cm:CM\r\ncentral#african#republic:cf:CE\r\nchad:td:CD\r\nchile:cl:CH\r\nchina:cn:CI\r\ncolombia:co:CO\r\ncomoros:km:IC\r\ncongo:cq:CG\r\ncosta#rica:cr:CS\r\ncroatia:hr:RH\r\ncyprus:cy:CY\r\nczech#republic:cz:CZ\r\ndemocratic#yemen:ye:YE\r\ndenmark:dk:DN\r\ndjibouti:dj:DJ\r\ndominica:dm:DO\r\ndominican#republic:do:DR\r\necuador:ec:EQ\r\negypt:eg:EG\r\nel#salvador:sv:ES\r\nequatorial#guinea:gq:GQ\r\neritrea:er:E1\r\nestonia:ee:EE\r\nethiopia:et:ET\r\nfaroe#islands:fo:FA\r\nfinland:fi:FI\r\nfrance:fr:FR\r\nfrench#guiana:gf:FG\r\nfrench#polynesia:pf:PF\r\ngabon:ga:GO\r\ngambia:gm:GB\r\ngeorgia:ge:GE\r\ngermany:de:DL\r\nghana:gh:GH\r\ngibraltar:gi:GI\r\ngreece:gr:GR\r\ngreenland:gl:GL\r\nguatemala:gt:GU\r\nguinea:gn:GN\r\nguinea-bissau:gw:GW\r\nguyana:gy:GY\r\nhonduras:hn:HO\r\nhong#kong:hk:HK\r\nhungary:hu:HU\r\niceland:is:IL\r\nindia:in:IN\r\nindonesia:id:ID\r\niran:ir:IR\r\niraq:iq:IQ\r\nireland:ie:IE\r\nisrael:il:IS\r\nitaly:it:IY\r\nivory#coast:iv:IV\r\njapan:jp:JP\r\njordan:jo:JD\r\nkampuchea:kp:KP\r\nkazakhstan:kz:KZ\r\nkenya:ke:KN\r\nkuwait:kw:KW\r\nkyrgyzstan:kg:KG\r\nlao#peoples#republic:la:LA\r\nlatvia:lv:LV\r\nlebanon:lb:LB\r\nlesotho:ls:LS\r\nliberia:lr:LI\r\nlibya:ly:LY\r\nliechtenstein:li:LT\r\nlithuania:lt:L1\r\nluxembourg:lu:LU\r\nmacao:mo:MU\r\nmacedonia:mk:MK\r\nmadagascar:mg:MG\r\nmalawi:mw:MI\r\nmalaysia:my:MS\r\nmaldives:mv:MV\r\nmali:ml:MI\r\nmalta:mt:ML\r\nmauritania:mr:MT\r\nmauritius:mu:MA\r\nmexico:mx:MX\r\nmoldova:md:M1\r\nmongolia:mn:MO\r\nmorocco:ma:MC\r\nmozambique:mz:MZ\r\nnamibia:na:NM\r\nnauru:nr:NW\r\nnepal:np:NP\r\nnetherlands:nl:NL\r\nnew#zealand:nz:NZ\r\nnicaragua:ni:NK\r\nniger:ne:NR\r\nnigeria:ng:NI\r\nnorth#korea:kp:KR\r\nnorway:no:NO\r\noman:om:OM\r\npakistan:pk:PK\r\npanama:pa:PM\r\npapua#new#guinea:pg:NG\r\nparaguay:py:PY\r\nperu:pe:PR\r\nphilippines:ph:PH\r\npoland:pl:PL\r\nportugal:pt:PO\r\nqatar:qt:QT\r\nromania:ro:RO\r\nrussia:ru:RS\r\nrwanda:rw:RW\r\nsao#tome#and#principe:st:TP\r\nsarawak:sw:MS\r\nsaudi#arabia:sa:SD\r\nsenegal:sn:SG\r\nseychelles:sc:SC\r\nsierra#leone:sl:SL\r\nsingapore:sg:SR\r\nslovakia:sk:S1\r\nslovenia:si:LJ\r\nsolomon#islands:sb:SO\r\nsomalia:so:SI\r\nsouth#africa:za:ZA\r\nsouth#korea:kr:KO\r\nspain:es:SP\r\nsri#lanka:lk:SB\r\nst.#helena:sh:HE\r\nsudan:sd:SU\r\nsuriname:sr:SM\r\nswaziland:sz:SV\r\nsweden:se:SN\r\nswitzerland:ch:SW\r\nsyria:sy:SY\r\ntaiwan:tw:TW\r\ntajikistan:tj:TJ\r\ntanzania:tz:TN\r\nthailand:th:TH\r\ntogo:tg:TG\r\ntonga:to:TO\r\ntunisia:tn:TS\r\nturkey:tr:TU\r\nturkmenistan:tm:TM\r\nuganda:ug:UG\r\nukraine:ua:UR\r\nunited#arab#emirates:ae:ER\r\nunited#kingdom:uk:UK\r\nunited#states:us:us\r\nuruguay:uy:UY\r\nuzbekistan:uz:UZ\r\nvanuatu:vu:NH\r\nvenezuela:ve:VN\r\nvietnam:vn:VS\r\nwestern#sahara:eh:EH\r\nwestern#samoa:ws:ZM\r\nyemen:ye:YE\r\nyugoslavia:yu:YG\r\nzaire:zr:ZR\r\nzambia:zb:ZB\r\nzimbabwe:zw:ZW\r\n}\r\n  set ctmatch 0\r\n  set ctsearch [string tolower [string trim $country]]\r\n  if {$ctsearch == ""} {\r\n     puthelp "NOTICE $nick :USAGE: .wzc country or \\/msg $botnick .wzc country"\r\n     puthelp "NOTICE $nick :This is a plain text search, enter any part of a\\\r\ncountry name to search on, e.g. .wzc united will return United States \\& United\\\r\nKingdom"\r\n     return 0\r\n  } \r\n  if {[string length $ctsearch] == 2} { \r\n     set searchindex 1\r\n  } else {\r\n     set searchindex 0\r\n  }\r\n  regsub -all { } $ctsearch {#} ctsearch\r\n  foreach ct_all $ctlist {\r\n     set ct [lindex [split $ct_all :] $searchindex]\r\n     if {[string first $ctsearch $ct] !=-1} {\r\n        if {$ctmatch == 0} {\r\n           if {$sc_call} {\r\n              puthelp "NOTICE $nick :Possible matches for $ctsearch are:"\r\n           }  \r\n        }\r\n        incr ctmatch\r\n        set lctry [lindex [split $ct_all :] 0]\r\n        regsub -all {#} $lctry { } lctry\r\n        set uctry [city_case $lctry]\r\n        set ctcode [lindex [split $ct_all :] 1]\r\n        set glcode [lindex [split $ct_all :] 2]\r\n		set ctresult [format "%36s      Code: %s" $uctry $ctcode]\r\n        if {$sc_call} {\r\n           puthelp "NOTICE $nick :$ctresult"\r\n        } \r\n     }\r\n  }\r\n  if {$ctmatch == 0} {\r\n     if {$sc_call} {\r\n        puthelp "NOTICE $nick :Sorry no matches for $ctsearch"\r\n     }\r\n     return -1\r\n  }\r\n  if {$ctmatch > 1} {\r\n     return 1\r\n  }\r\n  if {$ctmatch} {\r\n     regsub -all { } $lctry {+} rctry\r\n     return $glcode\r\n  }\r\n}\r\n\r\n## Spew help################################################################### \r\n\r\nproc wz_help {nick} {\r\n     global wz_unit wz_long wzbind wzcbind wzfbind wzpbind wztbind wzsbind wzmbind\r\n     switch $wz_unit {\r\n        i {set ut "imperial"}\r\n        m {set ut "metric"}\r\n        c {set ut "combined"}\r\n     }\r\n     switch $wz_long {\r\n        0 {set long "long"}\r\n        1 {set long "brief"}\r\n     }\r\n     puthelp "NOTICE $nick :Commands: (in channel or msg)"\r\n     puthelp "NOTICE $nick :$wzbind -d -o -u <imc> <city,state|zip> <country> -- current weather"\r\n     puthelp "NOTICE $nick :$wzfbind -d -o <-u imc> <city,state|zip> <country> -- current weather & forecast"\r\n     if {$wztbind != ""} {\r\n        puthelp "NOTICE $nick :$wztbind <city,state|zip> <country> -- current time" \r\n     }\r\n     if {$wzsbind != ""} {\r\n        puthelp "NOTICE $nick :$wzsbind <city,state|zip> <country> -- sunrise/sunset" \r\n     }\r\n     if {$wzpbind != ""} {\r\n        puthelp "NOTICE $nick :$wzpbind <city,state|zip> <country> -- precipitation" \r\n     }\r\n     if {$wzmbind != ""} {\r\n        puthelp "NOTICE $nick :$wzmbind <city,state|zip> <country> -- moon phase" \r\n     }\r\n     puthelp "NOTICE $nick :$wzcbind <country> -- search for a country code, defaults to US"\r\n     puthelp "NOTICE $nick :Options:"\r\n     puthelp "NOTICE $nick :-d will set a default allowing you to type just .wz to see your favorite city"\r\n     puthelp "NOTICE $nick :-o will give you $long format output"\r\n     if {$wzpbind == ""} {\r\n        puthelp "NOTICE $nick :-p will give you a precipitation report"\r\n     }\r\n     if {$wztbind == ""} {\r\n        puthelp "NOTICE $nick :-t will give you the local time"\r\n     }\r\n     if {$wzsbind == ""} {\r\n        puthelp "NOTICE $nick :-s will give sunrise & sunset"\r\n     }\r\n     if {$wzmbind == ""} {\r\n        puthelp "NOTICE $nick :-m will give moon phase"\r\n     }\r\n     puthelp "NOTICE $nick :-u <imc> selects units imperial, metric, combined, overides current default of $ut"\r\n     puthelp "NOTICE $nick :Examples:"\r\n     puthelp "NOTICE $nick : .wz -u m denver,co -- current weather in Denver Colorado in metric."\r\n     puthelp "NOTICE $nick : .wzf Rome it -- weather forecast for Rome, Italy"\r\n     puthelp "NOTICE $nick : .wz toronto ca -- current weather in Toronto, Canada"\r\n     return 0\r\n   }\r\n\r\n## Capitalize city names ######################################################\r\n\r\n## Capitalize the city since too many pple with old tcl cant use ''string totitle''\r\n## And totitle only works for first word, doesnt account for multiple word cities\r\n\r\nproc city_case {city} {\r\n   regsub -all {\\+} $city { } ocity\r\n   set wzcity ""\r\n   foreach i $ocity {\r\n     set wzcap [string toupper [string range $i 0 0]]\r\n     set wzright [string range $i 1 end]\r\n     set wzjoin "$wzcap$wzright"\r\n     if {$wzjoin == "S"} {\r\n        set wzjoin \\''s\r\n        set wzcity [string trim $wzcity]\r\n     }\r\n     append wzcity "$wzjoin\\ "\r\n   }\r\n   set wzcity [string trim $wzcity]\r\n   return $wzcity\r\n}\r\n\r\nputlog "     Weather loaded...bugs/comments to freebsd.tech@gmail.com"\r\n', 0, 'tcl', 'Tcl Problem', '#EggTCL');
INSERT INTO `pastebin` VALUES (2532, 'haize', '2004-12-29 22:32:11', 'set proctrigger "!proc"\r\n\r\nbind pub - $proctrigger  procmsgstat\r\nproc procmsgstat {nick uhost handle arg} {\r\nif {[catch {exec /bin/ps aux | grep $USER proc]} {}\r\nputserv "notice $nick :User $USER is running"\r\nputserv "notice $nick :$proc"\r\n}}', 0, 'tcl', 'why is this not working?', '#TCL');
INSERT INTO `pastebin` VALUES (2533, 'haize', '2004-12-29 22:52:41', 'set proctrigger "!proc"\r\n\r\nbind pub - $proctrigger  procmsgstat\r\nproc procmsgstat {nick uhost handle chan arg} {\r\nif {[catch {exec /bin/ps aux | grep $USER} proc]}} {}\r\nputserv "NOTICE $nick :User $USER is running"\r\nputserv "NOTICE $nick :$proc"\r\n}}\r\n\r\n#\r\n#The error i get now:\r\n#\r\n#[21:48] wrong # args: should be "proc name args body"\r\n#    while executing\r\n#"proc procmsgstat {nick uhost handle chan arg} {\r\n#if {[catch {exec /bin/ps aux | grep $USER} proc]}} {}"\r\n#    (file "scripts/proc.tcl" line 55)\r\n#    invoked from within\r\n#"source scripts/proc.tcl"\r\n', 2532, 'tcl', '????', '#TCL');
INSERT INTO `pastebin` VALUES (2536, 'Lynne', '2004-12-30 04:49:31', 'Sorry for requesting in here but I was amaze by a tcl/scripts that shows all users login to a shell when someone types !user\r\nWas wondering if anyone knows or have a tcl/script of it pls?\r\nThank You n Happy Holidays n Safe New Year to everyone.', 0, 'tcl', 'Requesting for a tcl!', 'none');
INSERT INTO `pastebin` VALUES (2537, 'FazLeeeN', '2004-12-30 09:34:45', '#My Configuration\r\nif {![info exists ::loadfbsql]} {\r\n  #change the path \r\n  load /path/to/fbsql.so\r\n\r\n  #change the information\r\n  sql connect localhost username password database-name\r\n\r\n  #don''t change it\r\n  set ::loadfbsql yes\r\n}', 0, 'tcl', 'load fbsql', '#EggTCL');
INSERT INTO `pastebin` VALUES (2538, 'joe-', '2004-12-30 15:03:50', 'proc kzCup:TestIt {nick uhost hand chan text} {\r\n	global conf\r\n	set result [kzCup:ReplaceCookies "[set [lindex $text 0]]" "[lindex $text 1]" "[lrange $text 2 end]"]\r\n	kzCup:SendMsg $conf(channels_public) "$result"\r\n}\r\n\r\nproc kzCup:ReplaceCookies {var cookie info} {\r\n	global conf\r\n	regsub "(?q)$cookie" "$var" "$info" "result"\r\n	return $result\r\n}\r\n', 0, 'tcl', 'proc returns the words with special chars within { }', '#EggTCL');
INSERT INTO `pastebin` VALUES (2539, 'Anonymous', '2004-12-31 01:28:36', 'root      2096     1  0 Dec22 ?        00:00:00 /bin/sh /usr/bin/safe_mysqld --defaults-file=/etc/my.cnf\r\nmysql     2120  2096  0 Dec22 ?        00:00:00 /usr/libexec/mysqld --defaults-file=/etc/my.cnf --basedir=/usr --datadir=/var/lib/mysql --user=mysql --pid-file=/var/run/mysqld/mysqld.pid --skip-locking\r\n', 0, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2540, 'wick2o', '2004-12-31 01:28:52', 'root      2096     1  0 Dec22 ?        00:00:00 /bin/sh /usr/bin/safe_mysqld --defaults-file=/etc/my.cnf\r\nmysql     2120  2096  0 Dec22 ?        00:00:00 /usr/libexec/mysqld --defaults-file=/etc/my.cnf --basedir=/usr --datadir=/var/lib/mysql --user=mysql --pid-file=/var/run/mysqld/mysqld.pid --skip-locking\r\n', 0, 'none', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2541, 'wick2o', '2004-12-31 01:54:43', ' 2096 ?        S      0:00 /bin/sh /usr/bin/safe_mysqld --defaults-file=/etc/my.cnf\r\n 2120 ?        S      0:00 /usr/libexec/mysqld --defaults-file=/etc/my.cnf --basedir=/usr --datadir=/var/lib/mysql --user=mysql --pid-file=/var/run/mysqld/mysqld.pid --skip-locking\r\n', 0, 'none', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2542, 'leprechau', '2004-12-31 03:06:59', 'Sorry for requesting in here but I was amaze by a tcl/scripts that shows all users login to a shell when someone types !user\r\nWas wondering if anyone knows or have a tcl/script of it pls?\r\nThank You n Happy Holidays n Safe New Year to everyone.\r\n\r\n\r\n\r\n--- That''s simple..just capture the output of the ''who'' command and pipe it to irc\r\n---- here is an example of what ''who'' command returns...taken from a sourceforge shell box\r\n\r\n[ahurt@sc8-pr-shell1 ahurt]$ who\r\noutbak   pts/0        Dec 31 01:03 (nh-londndry-c41-bg1a-13-137.lndnnh.adelphia.net)\r\nroot     pts/1        Dec 26 09:53 (usw-pr-syslog-b.sourceforge.net)\r\nroot     pts/2        Dec 24 09:55 (usw-pr-syslog-b.sourceforge.net)\r\njakky1   pts/3        Dec 30 19:38 (210-85-2-179.cm.dynamic.apol.com.tw)\r\nahurt    pts/4        Dec 31 01:03 (adsl-67-64-40-85.dsl.kscymo.swbell.net)\r\nmudwick  pts/6        Dec 31 00:09 (pool-68-238-129-185.sea.dsl-w.verizon.net)\r\nroot     pts/8        Dec 30 13:50 (usw-pr-syslog-b.sourceforge.net)\r\ntwarnock pts/10       Dec 30 23:49 (adsl-68-124-94-77.dsl.sndg02.pacbell.net)\r\nhorsu    pts/13       Dec 31 00:02 (c-67-171-231-47.client.comcast.net)\r\npetertho pts/14       Dec 31 00:13 (adsl-67-120-104-69.dsl.snfc21.pacbell.net)\r\n\r\n\r\nin tcl if you did:\r\n\r\nset output [exec who]\r\n\r\n$output would contain all of the above text (not including the prompt)\r\n\r\nyou could parse it out however you needed from there\r\n\r\n', 2536, 'none', 'Re: Requesting for a tcl!', 'none');
INSERT INTO `pastebin` VALUES (2543, 'FazLeeeN', '2004-12-31 05:11:28', 'putlog "[lsearch -regexp $::software {(?i)([lindex $text 1]|\\{[lindex $text 1]) *}]"\r\nputlog "[lindex $text 1]"\r\nputlog "[lsearch -regexp $::software {(?i)(software|\\{sofware)}]"\r\n\r\n----\r\n\r\n\r\n14:10:08 ¤ <q8knight> [06:10] 0\r\n14:10:09 ¤ <q8knight> [06:10] software\r\n14:10:09 ¤ <q8knight> [06:10] 1', 0, 'tcl', 'lsearch doesn''t work perfectly with me :/', '#TCL');
INSERT INTO `pastebin` VALUES (2567, 'Anonymous', '2005-01-07 11:13:27', '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"\r\n"http://www.w3.org/TR/html4/loose.dtd">\r\n<html>\r\n<head>\r\n<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">\r\n<title>Untitled Document</title>\r\n</head>\r\n\r\n<body>\r\n<form name="form1" method="post" action="OrderForm.php">\r\n<p>User Details </p>\r\n<p>Please enter your details for this order. RQ will then contact you to comfirm your order and sort out payment details. </p>\r\n<p>Account Name:\r\n    <input type="text" name="account">\r\n  new account? click here </p>\r\n<p>E-mail Address:\r\n    <input type="text" name="email">\r\n</p>\r\n<p>Telephone No:  \r\n  <input type="text" name="telno">\r\n</p>\r\n<p>\r\n  <input type="submit" name="Button" value="Place Order">\r\n</p>\r\n</form>\r\n</body>\r\n</html>\r\n', 0, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2544, 'Ic3man', '2004-12-31 11:32:20', 'putlog "User has: $hasflag"\r\nputlog "Request for adding: $newflags"\r\n\r\nforeach curhasflag [split $hasflag ":"] {\r\n    putlog "Checking for $curhasflag"\r\n    set $newflags [string map {$curhasflag ""} $newflags]\r\n}								\r\nputlog "Adding: $newflags"\r\n\r\n\r\n# Gives the folowing output:\r\n\r\n[20:23] User has: A:B:C\r\n[20:23] Request for adding: ABC\r\n[20:23] Checking for A\r\n[20:23] Checking for B\r\n[20:23] Checking for C\r\n[20:23] Adding: ABC', 0, 'tcl', 'Replacing doesnt work', '#EggTCL');
INSERT INTO `pastebin` VALUES (2545, 'Lynne', '2005-01-01 02:07:20', 'Thank you leprechau! Can you please make a tcl for this topic for me pls? I''m new to this \r\nand normally, I jst use whatever tcl I find useful at egghelp.org. Thanks leprechau and appreciate\r\nyour reply. Happy New Year 2005 to you and everyone! *Hugs*\r\n\r\n\r\n\r\nSorry for requesting in here but I was amaze by a tcl/scripts that shows all users login to a shell when someone types !user\r\nWas wondering if anyone knows or have a tcl/script of it pls?\r\nThank You n Happy Holidays n Safe New Year to everyone.\r\n\r\n\r\n\r\n--- That''s simple..just capture the output of the ''who'' command and pipe it to irc\r\n---- here is an example of what ''who'' command returns...taken from a sourceforge shell box\r\n\r\n[ahurt@sc8-pr-shell1 ahurt]$ who\r\noutbak   pts/0        Dec 31 01:03 (nh-londndry-c41-bg1a-13-137.lndnnh.adelphia.net)\r\nroot     pts/1        Dec 26 09:53 (usw-pr-syslog-b.sourceforge.net)\r\nroot     pts/2        Dec 24 09:55 (usw-pr-syslog-b.sourceforge.net)\r\njakky1   pts/3        Dec 30 19:38 (210-85-2-179.cm.dynamic.apol.com.tw)\r\nahurt    pts/4        Dec 31 01:03 (adsl-67-64-40-85.dsl.kscymo.swbell.net)\r\nmudwick  pts/6        Dec 31 00:09 (pool-68-238-129-185.sea.dsl-w.verizon.net)\r\nroot     pts/8        Dec 30 13:50 (usw-pr-syslog-b.sourceforge.net)\r\ntwarnock pts/10       Dec 30 23:49 (adsl-68-124-94-77.dsl.sndg02.pacbell.net)\r\nhorsu    pts/13       Dec 31 00:02 (c-67-171-231-47.client.comcast.net)\r\npetertho pts/14       Dec 31 00:13 (adsl-67-120-104-69.dsl.snfc21.pacbell.net)\r\n\r\n\r\nin tcl if you did:\r\n\r\nset output [exec who]\r\n\r\n$output would contain all of the above text (not including the prompt)\r\n\r\nyou could parse it out however you needed from there', 2542, 'tcl', '!User TCL', 'none');
INSERT INTO `pastebin` VALUES (2546, 'Wilson', '2005-01-01 09:37:10', '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"\r\n    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">\r\n<html>\r\n<head>\r\n  <meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" />\r\n  <title>Title</title>\r\n  <link rel="stylesheet" type="text/css" href="styles.css" />\r\n  <!--[if IE]><link rel="stylesheet" href="http://home.no.net/glockinc/IE.css" type="text/css" /><![endif]-->\r\n</head>\r\n<body> ', 0, 'html', 'none', 'none');
INSERT INTO `pastebin` VALUES (2547, 'sleeper', '2005-01-01 12:12:42', 'bind pub - !botadd botadd\r\nproc botadd {nick host handle chan arg} {\r\n\r\nchannel add $arg\r\n}', 0, 'tcl', 'part', 'none');
INSERT INTO `pastebin` VALUES (2548, 'Alien', '2005-01-01 18:06:06', 'set count 0\r\nset file [open $db r]\r\nwhile {![eof $file]} {\r\nincr count\r\nset line "[gets $file]"\r\nif {$line!=""} {\r\nputserv "PRIVMSG $channel :\\0033$count. $line"\r\n}\r\n}', 0, 'tcl', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2551, 'deepwrk', '2005-01-02 04:32:17', '## pub cmd auth -- start \r\nproc auth_pub {nick uhost hand rest} { \r\nglobal x botnick \r\nset pw [lindex $rest 0] \r\nif {$pw == ""} { \r\nputserv "PRIVMSG $channel :$j Usage: .login <password>" \r\nreturn 0 \r\n} \r\nif {[matchattr $hand Q] == 1} { \r\nputserv "PRIVMSG $channel :$j u got r007" \r\nreturn 0 \r\n} \r\nset ch [passwdok $hand ""] \r\nif {$ch == 1} { \r\nputhelp "NOTICE $nick :$p No password set. Type /msg $botnick PASS <password>" \r\nreturn 0 \r\n} \r\nif {[passwdok $hand $pw] == 1} { \r\nchattr $hand +Q \r\nputcmdlog "$x #$hand# auth ..." \r\nputserv "PRIVMSG $channel :$p u l0gg3d in" \r\n} \r\nif {[passwdok $hand $pw] == 0} { \r\nputcmdlog "$x #$hand# auth FAILED" \r\nputserv "PRIVMSG $channel :$p f4il3d" \r\n} \r\n} ', 0, 'tcl', 'login script', '#EggTCL');
INSERT INTO `pastebin` VALUES (2550, 'RA3OR', '2005-01-02 03:50:28', 'Default (mine) is :\r\n\r\non *:Kick:#:{ \r\n  if $knick == $me {  \r\n    if $nick != $me {\r\n      $chan != $active {  \r\n        echo -a 2*** 4WARNING5: 7Y14ou have been 4K14icked from4 $chan $+ 4,6 $scid($cid).network 14by4 $nick 4(6 $+ $1- $+ 4) \r\n        notice $nick Why did you kicked meh ? \r\n        timerReJoin 1 3 /join $chan \r\n        halt  \r\n      } \r\n      else halt  \r\n    } \r\n    else halt \r\n  }\r\n  else halt \r\n}\r\n\r\n\r\n\r\nuse this: \r\n\r\non *:Kick:#:{ \r\n  if $knick == $me {  \r\n        echo -a 2*** 4WARNING5: 7Y14ou have been 4K14icked from4 $chan $+ 4,6 $scid($cid).network 14by4 $nick 4(6 $+ $1- $+ 4) \r\n        notice $nick Why did you kicked meh ? \r\n        timerReJoin 1 3 /join $chan \r\n        halt  \r\n      } \r\n      else halt  \r\n    } \r\n', 0, 'none', 'Kick Script', 'none');
INSERT INTO `pastebin` VALUES (2549, 'wick2o', '2005-01-01 22:00:10', 'bind part - * part:remove_from_database\r\nproc part:remove_from_database { nick uhost hand chan msg } {\r\n   sql "DELETE FROM phpbb_livechat WHERE nickname = ''$nick'';"\r\n   return 0\r\n}\r\n\r\nbind sign - * sign:remove_from_db\r\nproc sign:remove_from_db { nick uhost hand chan reason } {\r\n  sql "DELETE FROM phpbb_livechat WHERE nickname = ''$nick'';"\r\n  return 0\r\n}\r\n\r\n\r\nwould be come\r\n\r\nbind sign - * sign:remove_from_db\r\nbind part - * sign:remove_from_db\r\nproc sign:remove_from_db { nick uhost hand chan reason } {\r\n  sql "DELETE FROM phpbb_livechat WHERE nickname = ''$nick'';"\r\n  return 0\r\n}\r\n', 0, 'none', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2552, 'ilona', '2005-01-02 16:56:32', 'program bubbleSort;\r\n{*************\r\nMade originally by Ilona Belous, fixed and enriched by Lior Tubi.\r\nThis program sorts an integer array to an ascending order, using the bubble-sort algorithm.\r\n**************}\r\n\r\nuses crt;\r\nconst ARRAYSIZE = 15; {Const array size}\r\nvar intArray:array [1..ARRAYSIZE] of integer;\r\n    i, j, temp, flagSorted, numberOfSwaps:integer;\r\nbegin\r\n  randomize; {Different numbers each run}\r\n  clrscr; {Clear screen}\r\n\r\n  writeln(''>> Array size: '', ARRAYSIZE);\r\n\r\n  writeln(''>> The array: '');\r\n  for i := 1 to ARRAYSIZE do {Initialize and print array with random numbers<1000}\r\n  begin\r\n    intArray[i] := random(1000);\r\n    write(intArray[i], '' '');\r\n  end;\r\n  writeln;\r\n  flagSorted := 0;\r\n  i := 1;\r\n  numberOfSwaps := 0;\r\n  while((i<ARRAYSIZE) and (flagSorted=0)) do\r\n  begin\r\n    flagSorted := 1; {Assume array is sorted}\r\n    for j := 1 to (ARRAYSIZE-i) do\r\n    begin\r\n      if intArray[j] > intArray[j+1] then\r\n      begin\r\n        temp := intArray[j+1];\r\n        intArray[j+1] := intArray[j];\r\n        intArray[j] := temp;\r\n        numberOfSwaps := numberOfSwaps+1;\r\n        flagSorted := 0; {We made a swap, the array might be unsorted}\r\n      end;\r\n    end;\r\n    i := i+1;\r\n  end;\r\n\r\n  writeln;\r\n  writeln;\r\n  writeln(''>> The sorted array: '');\r\n  for i := 1 to ARRAYSIZE do {Print sorted array}\r\n    write(intArray[i], '' '');\r\n  writeln;\r\n  writeln;\r\n  writeln(''>> Number of swaps made: '', numberOfSwaps);\r\n  read(i);\r\n\r\nend.\r\n', 0, 'pascal', 'pascal', 'none');
INSERT INTO `pastebin` VALUES (2553, 'lior', '2005-01-02 16:59:14', 'P286N\r\nIDEAL\r\nMODEL small\r\nSTACK 100H\r\n\r\nDATASEG\r\n  strWelcome DB "Welcome user, enter a two digits number: $"\r\n  strBeginPrime DB 13, 10, "The number you entered is $"\r\n  strNot DB "not $"\r\n  strEndPrime DB "prime!", 13, 10, "$"\r\n  strError DB 13, 10, "Invalid input, quiting.", 13, 10, "$"\r\n  strExit DB 13, 10, "Press any key to continue... $"\r\n  \r\n  intNumber DB 0 ; The number the user entered\r\n\r\nCODESEG\r\n; Maman 13, Question 1 Lior Tubi\r\n; This program reads a two digit number (n) and prints if he is prime.\r\n; The program goes through all numbers (x) from 2 to n-1\r\n; and checks if: n mod x = 0, if it is, n is not prime.\r\n\r\nMACRO printStr string ; Will be used to print messages\r\n  mov ah, 9\r\n  mov dx, offset string\r\n  int 21H\r\nENDM\r\n\r\nstart:\r\n  mov ax, @data\r\n  mov ds, ax\r\n  \r\n  printStr strWelcome ; Instructions for the user\r\n  \r\n  mov ah, 01H ; Get first digit\r\n  int 21H\r\n  cmp al,''9''\r\n  jg @@wrongInput\r\n  cmp al,''0''\r\n  jl @@wrongInput ; Input check\r\n  push ax ; Save number\r\n  \r\n  mov ah, 01H ; Get second digit\r\n  int 21H\r\n  cmp al,''9''\r\n  jg @@wrongInput\r\n  cmp al,''0''\r\n  jge @@rightInput\r\n\r\n@@wrongInput:\r\n  printStr strError ; Input is invalid, print error and exit\r\n  jmp exit\r\n\r\n@@rightInput:\r\n  sub al, ''0'' ; Convert from ASCII to Decimal\r\n  mov [byte intNumber], al\r\n  pop ax ; Recover the first digit\r\n  sub al, ''0'' ; Convert from ASCII to Decimal\r\n  xor ah, ah ; Initialize ah to zero\r\n  mov cl, 10\r\n  imul cl ; Multiply first digit by ten\r\n  add [byte intNumber], al ; Now intNumber equales to the number the user entered\r\n  \r\n  mov bl, 1 ; bl = 1 if the number entered is prime\r\n  mov cl, [byte intNumber]\r\n  xor ch, ch\r\n  dec cx ; cx = intNumber-1\r\n@@loopPrime:\r\n  cmp cx, 1\r\n  jle @@outOfLoop ; cx<2\r\n  mov al, [byte intNumber]\r\n  xor ah, ah\r\n  idiv cl\r\n  cmp ah, 0 ; number mod cl = 0 (means we found a divisor)\r\n  je @@notPrime  \r\n  loop @@loopPrime\r\n  \r\n@@notPrime:\r\n  mov bl, 0 ; Set bl flag to false\r\n\r\n@@outOfLoop:\r\n  printStr strBeginPrime\r\n  \r\n  cmp bl, 1\r\n  je @@isPrime\r\n  \r\n  printStr strNot\r\n\r\n@@isPrime:  \r\n  printStr strEndPrime\r\n  \r\nexit:\r\n  printStr strExit ; "Press any key to continue..."\r\n  mov ah, 0\r\n  int 16H ; Wait for press\r\n  \r\n  mov ax, 4C00H ; End program.\r\n  int 21H\r\nEND start', 0, 'asm', 'checking', 'none');
INSERT INTO `pastebin` VALUES (2554, 'haize', '2005-01-02 20:13:57', '    if {[matchattr $nick +o $chan] == 1} {\r\n                putserv "privmsg $chan :You do not have the correct authorization for this command"\r\n                } else {\r\n                        putserv "privmsg $chan :Users connected are $me"\r\n                }\r\n}}', 0, 'tcl', '?', '#EggTCL');
INSERT INTO `pastebin` VALUES (2555, 'slander', '2005-01-02 20:17:26', 'if {[matchattr $hand |o $chan] &&\r\n    [matchattr $hand |f $chan]} {\r\n        putserv "privmsg $chan :Users connected are $me"\r\n} else {\r\n        putserv "privmsg $chan :You do not have the correct authorization for this command"\r\n}\r\n', 2554, 'none', 'more like..', '#EggTCL');

INSERT INTO `pastebin` VALUES (2560, 'wick2o', '2005-01-05 09:05:26', 'bind join - * join:add_to_database\r\nbind rejn - * join:add_to_database\r\nproc join:add_to_database { nick host hand chan } {\r\n    if {[isbotnick $nick] == 1} {\r\n         foreach user [chanlist $chan] {\r\n             puthelp "PRIVMSG $chan :$user"\r\n         }\r\n\r\n    }\r\n\r\n\r\n    sql "INSERT INTO phpbb_livechat (nickname) VALUES (''$nick'');"\r\n\r\n  return 0\r\n}\r\n', 0, 'none', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2561, 'wick2o', '2005-01-05 09:51:20', 'bind join - * join:add_to_database\r\nbind rejn - * join:add_to_database\r\nproc join:add_to_database { nick host hand chan } {\r\n    if {[isbotnick $nick] == 1} {\r\n\r\n         puthelp "PRIVMSG $chan :[llength [chanlist $chan]]"\r\n         foreach user [chanlist $chan] {\r\n             puthelp "PRIVMSG $chan :$user"\r\n\r\n\r\n         }\r\n    }\r\n\r\n\r\n    sql "INSERT INTO phpbb_livechat (nickname) VALUES (''$nick'');"\r\n\r\n  #return 0\r\n}\r\n', 0, 'tcl', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2562, 'wick2o', '2005-01-05 10:29:28', 'bind join - * join:add_to_database\r\nbind rejn - * join:add_to_database\r\nproc join:add_to_database { nick host hand chan } {\r\n    if {[isbotnick $nick]} {\r\n\r\n         puthelp "PRIVMSG $chan :[llength [chanlist $chan]]"\r\n         foreach user [chanlist $chan] {\r\n             puthelp "PRIVMSG $chan :$user"\r\n\r\n\r\n         }\r\n    } else {\r\n\r\n\r\n    sql "INSERT INTO phpbb_livechat (nickname) VALUES (''$nick'');"\r\n   }\r\n  #return 0\r\n}\r\n', 0, 'none', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2563, 'leprechau', '2005-01-05 15:11:37', '## little helper for fbsql\r\n## usage: \r\n## set sqlcmd [::fbsql::con host user pass name]\r\n## $sqlcmd "SQL STATEMENT HERE"\r\n## catch {$sqlcmd disconnect}\r\n##\r\n## second example for escaping out some things that can cause problems:\r\n## $sqlcmd "INSERT INTO `table` (a,b) VALUES (''[::fbsql::escape $text1]'',''[::fbsql::escape $text2]'')\r\n##\r\n## not very complex...but it works ;}\r\n\r\nnamespace eval ::fbsql {\r\nnamespace export con escape\r\nvariable session 0 sqlcmd "sql"\r\n\r\n	proc con {{host {}} {user {}} {pass {}} {name {}}} {\r\n		# take advantage of the sessions ability of fbsql\r\n		if {($::fbsql::session == 0) || ($::fbslql::session > 10)} {\r\n			set ::fbsql::session 0; set sqlcmd "sql"\r\n		} else {set sqlcmd "sql$::fbsql::session"}\r\n		if {[catch {$sqlcmd connect $host $user $pass} connect_error] != 0} {\r\n			catch {$sqlcmd disconnect}; return -code error $connect_error\r\n		}\r\n		if {[catch {$sqlcmd selectdb $name} select_error] != 0} {\r\n			catch {$sqlcmd disconnect}; return -code error $select_error\r\n		}\r\n		incr ::fbsql::session; return "$sqlcmd"\r\n	}\r\n\r\n	proc escape {text} {\r\n		string map {\\\\ \\\\\\\\ \\| \\\\| \\[ \\\\[  \\] \\\\] \\{ \\\\{ \\} \\\\} $ \\\\$ \\` \\\\` \\'' \\\\'' \\" \\\\"} $text\r\n	}\r\n}', 0, 'tcl', 'fbsql helpers', '#EggTCL');
INSERT INTO `pastebin` VALUES (2564, 'oLLi', '2005-01-06 04:35:18', '#4v: eggdrop v1.6.17 -- k-srv -- written Thu Jan  6 11:25:29 2005\r\nQ          - hp\r\n--HOSTS Q!TheQBot@CServe.quakenet.org\r\n--XTRA created 1105007063\r\nL          - hp\r\n--HOSTS L!TheLBot@lightweight.quakenet.org\r\n--XTRA created 1105007063\r\nolli       - ksdhebrewrb\r\n--HOSTS -telnet!*@*\r\n--LASTON 1105007086 partyline\r\n--PASS +N1DCg0/ckpY.\r\n--XTRA created 1105007082\r\n::#oLLi''s bans\r\n::#k-srv.de bans\r\n::#Feuerwehrmann bans\r\n&&#oLLi''s exempts\r\n&&#k-srv.de exempts\r\n&&#Feuerwehrmann exempts\r\n$$#oLLi''s invites\r\n$$#k-srv.de invites\r\n$$#Feuerwehrmann invites\r\n', 0, 'none', 'eggdrop problem', 'none');
INSERT INTO `pastebin` VALUES (2565, 'urban', '2005-01-06 13:29:30', 'if {[catch { http::geturl $url -timeout 3000 -headers [list Authorization "Basic [::base64::encode $login:$pass]"]} token]} {\r\n	#putserv "privmsg $nick :$url - $token"\r\n} else {\r\n	#putserv "privmsg $nick :$url - [::http::code $token]"\r\n\r\n	\r\n}\r\nputserv "privmsg $nick :Please wait while your site is verified"\r\nif {[::http::ncode $token]==200} { putserv "privmsg $nick :Url verified working" }\r\nif {[::http::ncode $token]==401} { putserv "privmsg $nick :Url already Not working or login and pass have died";::http::cleanup $token; return 0 }\r\nif {[::http::ncode $token]==403} { putserv "privmsg $nick :Url already Not working";::http::cleanup $token; return 0 }\r\n::http::cleanup $token\r\n', 0, 'tcl', 'want to ctach a none url', '#TCL');
INSERT INTO `pastebin` VALUES (2566, 'Anonymous', '2005-01-06 13:42:01', 'if {[catch { http::geturl $url -timeout 3000 -headers [list Authorization "Basic [::base64::encode $login:$pass]"]} token]} {\r\n	putserv "privmsg $nick :$url - $token"\r\n        return\r\n} else {\r\n	putserv "privmsg $nick :$url - [::http::code $token]"\r\n\r\n	\r\n}\r\nputserv "privmsg $nick :Please wait while your site is verified"\r\nif {[::http::ncode $token]==200} { putserv "privmsg $nick :Url verified working" }\r\nif {[::http::ncode $token]==401} { putserv "privmsg $nick :Url already Not working or login and pass have died";::http::cleanup $token; return 0 }\r\nif {[::http::ncode $token]==403} { putserv "privmsg $nick :Url already Not working";::http::cleanup $token; return 0 }\r\n::http::cleanup $token', 2565, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2558, 'realistik', '2005-01-04 09:49:50', '## pub cmd auth -- start \r\nproc auth_pub {nick uhost hand rest} { \r\nglobal x botnick \r\nset pw [lindex $rest 0] \r\nif {$pw == ""} { \r\n\r\n# putserv "PRIVMSG $channel :$j Usage: .login <password>" \r\n# $channel isn''t defined, also you don''t want the bot to say that in the\r\n# channel, you want it said to $nick\r\n# Also can''t see what $j is...that could be a problem.\r\n\r\nputserv "PRIVMSG $nick :$j Usage: .login <password>" \r\nreturn 0 \r\n} \r\nif {[matchattr $hand Q] == 1} { \r\n# $channel changed to $nick (below)\r\nputserv "PRIVMSG $nick :$j u got r007" \r\nreturn 0 \r\n} \r\nset ch [passwdok $hand ""] \r\nif {$ch == 1} {\r\n# Don''t know what $p is, see $j comment above.\r\nputhelp "NOTICE $nick :$p No password set. Type /msg $botnick PASS <password>" \r\nreturn 0 \r\n} \r\nif {[passwdok $hand $pw] == 1} { \r\nchattr $hand +Q \r\nputcmdlog "$x #$hand# auth ..." \r\n# $channel to $nick below\r\nputserv "PRIVMSG $nick :$p u l0gg3d in" \r\n} \r\nif {[passwdok $hand $pw] == 0} { \r\nputcmdlog "$x #$hand# auth FAILED" \r\n# $channel to $nick below\r\nputserv "PRIVMSG $nick :$p f4il3d" \r\n} \r\n}', 2551, 'tcl', 'changed auth script', 'none');
INSERT INTO `pastebin` VALUES (2556, 'xoip', '2005-01-02 23:49:07', 'bind pub o|o $botnick single_use\r\n\r\nproc single_use {nick2 host hand chan text} {\r\nglobal nick\r\nset my_say [lindex $text 0]\r\nset to_say [lrange $text 1 end]\r\nset to_sayc [lrange $text 2 end]\r\nset new_chan [lindex $text 1]\r\nset new_nick [lindex $text 1]\r\nset old_chan [lindex $text 1]\r\nset new_user [lindex $text 1]\r\nset new_mask [lindex $text 2]\r\nset handles [lindex $text 1]\r\nset modes [lindex $text 2]\r\nset cchan [lindex $text 3]\r\nset hostnick [lindex $text 1]\r\nset ahost [lindex $text 2]\r\nset hostmasks [getuser $hostnick hosts]\r\nset dhostnick [lindex $text 1]\r\nset dhost [lindex $text 2]\r\nset hostmasks [getuser $dhostnick hosts]\r\nset rnick [lindex $text 1]\r\n\r\n\r\n   if {$my_say == "say"} { putquick "PRIVMSG $chan :$to_say" }\r\n   if {$my_say == "tell"} { putquick "PRIVMSG $new_chan :$to_sayc" }\r\n    if {$my_say == "join"} {\r\nif {$new_chan == ""} { putlog  "###CORE### Trebuie setat un canal." ; return 0\r\n}  else {\r\n\r\nchannel add $new_chan {\r\nchanmode "+nt"\r\nflood-chan 60:60\r\nflood-ctcp 60:60\r\nflood-deop 3:10\r\nflood-kick 3:10\r\nflood-join 5:60\r\n-clearbans +cycle +enforcebans -dynamicbans +userbans -bitch +greet -protectops -statuslog +shared\r\n+seen -revenge -stopnethack -autoop +dontkickops -autovoice -secret\r\n  }\r\nputlog  "###CORE### Am intrat pe $new_chan la cererea lui $nick care are hand = $hand"\r\n     }\r\n}\r\n\r\n    if {$my_say == "nick"} { set nick $new_nick ; save }\r\n    if {$my_say == "part"} {\r\nif {$old_chan == ""} { channel remove $chan\r\n} else { channel remove $old_chan }\r\n }\r\n    if {$my_say == "adduser"} {\r\n\r\nif {[matchattr $hand n] != 0} {\r\n        if {[validuser $new_user] == 1} {\r\n        putserv "PRIVMSG $chan :$new_user is already in my userlist"\r\n        putlog "$nick attempted to add $new_user to my userlist, $new_user is already in my userlist"\r\n        return 0\r\n }\r\n\r\n        putlog "adding $new_user to the userlist, mask: \\[$new_mask\\] by $nick"\r\n        putserv "PRIVMSG $chan :\\00304$new_user \\00302added to userlist"\r\n        adduser $new_user $new_mask\r\nreturn 0\r\n }\r\n}\r\n\r\n     if {$my_say == "chattr"} {\r\n if {[matchattr $hand n] != 0} {\r\n        if {[validuser $handles] == 1} {\r\n        if {$cchan == "" } {\r\n        putlog "changing modes $modes for $handles by $nick"\r\n        putserv "PRIVMSG $chan :\\00302Changed modes \\00304$modes \\00302for $handles on \\00304all channels"\r\n        chattr $handles $modes\r\n}\r\n        if {$cchan != ""} {\r\n        putlog "changing modes $modes for $handles on $cchan by $nick"\r\n        putserv "PRIVMSG $chan :\\00302Changed modes \\00304$modes \\00302for $handles on \\00304$cchan"\r\n        chattr $handles |$modes $cchan\r\n }\r\n }\r\nreturn 0\r\n }\r\nputserv "PRIVMSG $chan :$handles is not in my userlist"\r\nreturn 0\r\n}\r\n }\r\n\r\n      if {$my_say == "addhost"} {\r\n\r\n   if {[matchattr $hand n] != 0} {\r\n        if {[validuser $hostnick] != 1} {\r\n        putserv "PRIVMSG $chan :$hostnick is not in my userlist"\r\n        putlog "$nick attempted to add $ahost to $hostnick in my userlist, $hostnick is not in my userlist"\r\nreturn 0\r\n}\r\n        set hostmasks [getuser $hostnick hosts]\r\n        if { [lsearch -exact $hostmasks $ahost]>-1 } {\r\n        putserv "PRIVMSG $chan :Hostmask $ahost for user $hostnick already exists"\r\n        putlog "$nick attempted to add $ahost to $hostnick in my userlist, $ahost already exists for $hostnick"\r\nreturn 0\r\n}\r\n        setuser $hostnick HOSTS $ahost\r\n        putserv "PRIVMSG $chan :\\00302Added $ahost to \\00304$hostnick \\00302in my userlist"\r\n        putlog "$nick added $ahost to $hostnick"\r\nreturn 0\r\n }\r\n}\r\n\r\n      if {$my_say == "delhost"} {\r\n\r\n if {[matchattr $hand n] != 0} {\r\n        if {[validuser $dhostnick] != 1} {\r\n        putserv "PRIVMSG $chan :$dhostnick is not in my userlist"\r\n        putlog "$nick attempted to delete $dhost from $dhostnick in my userlist, $dhostnick is not in my userlist"\r\nreturn 0\r\n}\r\n        set hostmasks [getuser $dhostnick hosts]\r\n        if { [lsearch -exact $hostmasks $dhost] == -1 } {\r\n        putserv "PRIVMSG $chan :Hostmask $dhost for user $dhostnick does not exist"\r\nputlog "$nick attempted to delete $dhost from $dhostnick in my userlist, $dhost does not exist for $dhostnick"\r\nreturn 0\r\n}\r\n        delhost $dhostnick $dhost\r\n        putserv "PRIVMSG $chan :\\00302Deleted $dhost from  \\00304$dhostnick  \\00302in my userlist"\r\n        putlog "$nick deleted $dhost from $dhostnick"\r\nreturn 0\r\n }\r\n}\r\n\r\n\r\n       if {$my_say == "remuser"} {\r\n\r\nif {[matchattr $hand n] != 0} {\r\n        if {[validuser $rnick] == 1} {\r\n        putlog "removing $rnick from the userlist at $nick''s request"\r\n        putserv "PRIVMSG $chan :\\00304$rnick \\00302removed from userlist"\r\n        deluser $rnick\r\nreturn 0\r\n }\r\nputserv "PRIVMSG $chan :$rnick is not in my userlist"\r\nreturn 0\r\n}\r\n  }\r\n}\r\n', 0, 'tcl', 'none', 'none');
INSERT INTO `pastebin` VALUES (2557, 'leprechau', '2005-01-03 17:09:28', '## first, set a few user defines\r\n##\r\nsetudef flag encrypted\r\n## this is used to ''mark'' your encypted channels\r\nsetudef str blowkey\r\n## this is the encyrption key to use for the channel\r\n\r\n### these flags are used like this:\r\n## .chanset #channel +encrypted\r\n## .chanset #channel blowkey "encryption key"\r\n\r\n## here is a nice little switch that handles your pub commands\r\nproc pubTriggers {nick uhost hand chan text} {\r\n	## check that the channel is marked as encrypted and that we have a key set for it\r\n	if {(![channel get $chan encrypted]) || (![string length [set bkey [channel get $chan blowkey]]])} {return}\r\n	## decrypt the text and seperate out the trigger from the arguments\r\n	set trigger [lindex [split [set text [decrypt $bkey $text]]] 0]\r\n	set text [join [lrange [split $text] 1 end]]\r\n	## start the switch to handle your commands...these normally would have thier own binds\r\n	switch -exact $trigger {\r\n		!help {pub_help_proc $nick $uhost $hand $chan $text}\r\n		!list {pub_list_proc $nick $uhost $hand $chan $text}\r\n		!blah {pub_blah_proc $nick $uhost $hand $chan $text}\r\n		## no match..lets stop\r\n		default {return}\r\n	}\r\n}\r\nbind pubm -X * pubTriggers\r\n\r\n## notice the bind...we use pubm to catch ALL text including the possible trigger\r\n## we also bind to all flags EXCEPT custom flag X...this allows us to exclude certain users/things\r\n## example:\r\n## .adduser somebot\r\n## .chattr somebot +X\r\n## this bot will now not trigger this bind\r\n\r\n## another common question...how to handle pubm binds...much the same manner...see below\r\n\r\n## here is a nice little switch that handles your pubm commands\r\nproc pubmTriggers {nick uhost hand chan text} {\r\n	## check that the channel is marked as encrypted and that we have a key set for it\r\n	if {(![channel get $chan encrypted]) || (![string length [set bkey [channel get $chan blowkey]]])} {return}\r\n	## start the switch to handle your commands...these normally would have thier own binds\r\n	## we also include the channel in the glob...to match as close as possible to a real pubm bind\r\n	## note the text is also decrypted here as well\r\n	switch -glob "$chan[set text [decrypt $bkey $text]]" {\r\n		"*#bob*hello*" {pubm_proc $nick $uhost $hand $chan $text}\r\n		"*hello world*" {another_pubm_proc $nick $uhost $hand $chan $text}\r\n		## no match..lets stop\r\n		default {return}\r\n	}\r\n}\r\nbind pubm -X * pubmTriggers\r\n\r\n## same story with the bind here...we still use pubm since we are doing pubm..\r\n## and we use the -X to allow for exceptions via a custom flag\r\n\r\n## hope this helps people with thier encrypted channels\r\n## leprechau@EFnet\r\n', 0, 'tcl', 'the easy way to deal with encrypted channels', '#EggTCL');
INSERT INTO `pastebin` VALUES (2568, 'Ic3man', '2005-01-08 08:33:54', '		for {set i 1} {$i<=5} {incr i} {\r\n   					\r\n			switch $preCommand($i) {\r\n				\r\n				-r {\r\n					set preReleaseSet 1\r\n					set preRelease $preArg($i)\r\n				}\r\n				\r\n				-s {\r\n					set preSitesSet 1\r\n					set preSites $preArg($i)\r\n				}\r\n				\r\n				-e {\r\n					set preExcludeSet 1\r\n					set preExclude $preArg($i)\r\n				}\r\n				\r\n				-f {\r\n					set preForceSet 1\r\n					set preForce $preArg($i)\r\n				}\r\n				\r\n				-t {\r\n					set preTypeSet 1\r\n					set preType $preArg($i)\r\n				}		\r\n				\r\n				default {\r\n					putlog "entering switch case"	\r\n				}\r\n			}\r\n			\r\n			if { [info exists $preReleaseSet] == 1 } { \r\n				\r\n				putlog "release setted"\r\n			} else {\r\n				\r\n				putlog "release not set"\r\n			}\r\n		}', 0, 'tcl', 'my switch', '#EggTCL');
INSERT INTO `pastebin` VALUES (2581, 'Elfish', '2005-01-14 16:02:29', 'vs169218:/# apt-get update\r\nErr ftp://ftp2.de.debian.org testing/main Packages\r\n  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nErr ftp://ftp2.de.debian.org testing/main Release\r\n  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nErr ftp://ftp2.de.debian.org testing/contrib Packages\r\n  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nErr ftp://ftp2.de.debian.org testing/contrib Release\r\n  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nErr ftp://ftp2.de.debian.org testing/non-free Packages\r\n  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nErr ftp://ftp2.de.debian.org testing/non-free Release\r\n  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nHit http://security.debian.org testing/updates/main Packages\r\nHit http://security.debian.org testing/updates/main Release\r\nHit http://security.debian.org testing/updates/contrib Packages\r\nHit http://security.debian.org testing/updates/contrib Release\r\nFailed to fetch ftp://ftp2.de.debian.org/debian/dists/testing/main/binary-i386/Packages.gz  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nFailed to fetch ftp://ftp2.de.debian.org/debian/dists/testing/main/binary-i386/Release  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nFailed to fetch ftp://ftp2.de.debian.org/debian/dists/testing/contrib/binary-i386/Packages.gz  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nFailed to fetch ftp://ftp2.de.debian.org/debian/dists/testing/contrib/binary-i386/Release  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nFailed to fetch ftp://ftp2.de.debian.org/debian/dists/testing/non-free/binary-i386/Packages.gz  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nFailed to fetch ftp://ftp2.de.debian.org/debian/dists/testing/non-free/binary-i386/Release  Cannot initiate the connection to ftp2.de.debian.org:21 (195.71.9.196). - connect (105 No buffer space available)\r\nReading Package Lists... Done\r\nE: Some index files failed to download, they have been ignored, or old ones used instead.\r\n', 0, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2582, 'sabeln', '2005-01-15 11:51:34', 'set nick "tclbot"\r\nset user "tclbot"\r\nset real_name "mastah"\r\n\r\nset sock ""\r\n\r\nproc IRC {} {\r\n global sock\r\n if {[eof $sock]} {\r\n  close $sock\r\n  puts "eof"\r\n  return\r\n }\r\n if {[catch {set buffer [gets $sock]} r]} {\r\n  close $sock\r\n  puts "err ($r)"\r\n  return\r\n }\r\n if {$buffer == "" || $buffer == "\\x00"} {return}\r\n puts "$buffer"\r\n}\r\n\r\nproc Connect {ip port {passwd ""}} {\r\n global nick user real_name\r\n if {[catch {socket -async $ip $port} sock]} {\r\n  puts "Connection failed, $sock"\r\n  return\r\n } else {\r\n  puts "CONNECTED! ($sock)"\r\n  fconfigure $sock -blocking 0 -buffering line\r\n  if {$passwd != ""} {\r\n   if {[catch {puts $sock "PASS $passwd"} err]} {\r\n    close $sock\r\n    puts "$err"\r\n    return\r\n   }\r\n   puts "<< PASS $passwd"\r\n  }\r\n  set host [lindex [fconfigure $sock -sockname] 1]\r\n  if {[catch {puts $sock "USER $user $host $ip: $real_name"}]} {\r\n   close $sock\r\n   return\r\n  }\r\n  puts "<< USER $user $host $ip: $real_name"\r\n  puts $sock "NICK $nick"\r\n  puts "<< NICK $nick"\r\n  fileevent $sock readable [list IRC]\r\n }\r\n}\r\n\r\nConnect "192.168.0.2" 6665\r\n', 0, 'tcl', 'none', '#TCL');
INSERT INTO `pastebin` VALUES (2569, 'Ozaki', '2005-01-09 15:56:03', '####################################################################################\r\nset away {\r\n   putserv "NOTICE $nick :\\002Away\\002: $nick, you are being marked as away (DEOP, VOICE) in the following channels: #emma-watson.net #trivia #help #bots #HouseCup"\r\n   putserv "PRIVMSG chanserv :DEOP #emma-watson.net $nick"\r\n   putserv "PRIVMSG chanserv :VOICE #emma-watson.net $nick"\r\n   putserv "PRIVMSG chanserv :DEOP #trivia $nick"\r\n   putserv "PRIVMSG chanserv :VOICE #trivia $nick"\r\n   putserv "PRIVMSG chanserv :DEOP #help $nick"\r\n   putserv "PRIVMSG chanserv :VOICE #help $nick"\r\n   putserv "PRIVMSG chanserv :DEOP #bots $nick"\r\n   putserv "PRIVMSG chanserv :VOICE #bots $nick"\r\n   putserv "PRIVMSG chanserv :DEOP #HouseCup $nick"\r\n   putserv "PRIVMSG chanserv :VOICE #Housecup $nick"\r\n   log " $nick has put him/herself on Away."\r\n}\r\nbind pub o !away pub:t\r\nproc pub:t {nick uhost hand chan text} {\r\nif {$chan == "#staff"} {\r\nglobal away\r\nset awaynick [lindex [split $text " "] 0]\r\nif {$text != "" && [onchan $nick $chan]} {\r\nforeach line $away { puthelp "NOTICE $nick :$line" }\r\nreturn 0\r\n}\r\nforeach line $away {putserv "NOTICE $nick :$line" }\r\n} \r\n}\r\n####################################################################################\r\nset back {\r\n   putserv "NOTICE $nick :\\002Back\\002: $nick, you are being marked as back (DEVOICE, OP) in the following channels: #emma-watson.net #trivia #help #bots #HouseCup"\r\n   putserv "PRIVMSG chanserv :DEVOICE #emma-watson.net $nick"\r\n   putserv "PRIVMSG chanserv :OP #emma-watson.net $nick"\r\n   putserv "PRIVMSG chanserv :DEVOICE #trivia $nick"\r\n   putserv "PRIVMSG chanserv :OP #trivia $nick"\r\n   putserv "PRIVMSG chanserv :DEVOICE #help $nick"\r\n   putserv "PRIVMSG chanserv :OP #help $nick"\r\n   putserv "PRIVMSG chanserv :DEVOICE #bots $nick"\r\n   putserv "PRIVMSG chanserv :OP #bots $nick"\r\n   putserv "PRIVMSG chanserv :DEVOICE #housecup $nick"\r\n   putserv "PRIVMSG chanserv :OP #housecup $nick"\r\n   log " $nick has put him/herself on Available."\r\n}\r\nbind pub o !back pub:t\r\nproc pub:t {nick uhost hand chan text} {\r\nif {$chan == "#staff"} {\r\nglobal back\r\nset backnick [lindex [split $text " "] 0]\r\nif {$text != "" && [onchan $nick $chan]} {\r\nforeach line $back { puthelp "NOTICE $nick :$line" }\r\nreturn 0\r\n}\r\nforeach line $back {putserv "NOTICE $nick :$line" }\r\n} \r\n}\r\n####################################################################################\r\nset stats {\r\n"Stats can be found at : http://stats.ewfs.co.uk/"\r\n}\r\nbind pub o !stats pub:t\r\nproc pub:t {nick uhost hand chan text} {\r\nglobal stats\r\nset statsnick [lindex [split $text " "] 0]\r\nif {$text != "" && [onchan $nick $chan]} {\r\nforeach line $stats { puthelp "NOTICE $nick :$line" }\r\nreturn 0\r\n}\r\nforeach line $stats {putserv "NOTICE $nick :$line" }\r\n}\r\n####################################################################################\r\nset gallery {\r\n"User Gallery can be found at : http://ewfs.co.uk/gallery"\r\n}\r\nbind pub o !gallery pub:t\r\nproc pub:t {nick uhost hand chan text} {\r\nglobal gallery\r\nset gallerynick [lindex [split $text " "] 0]\r\nif {$text != "" && [onchan $nick $chan]} {\r\nforeach line $gallery { puthelp "NOTICE $nick :$line" }\r\nreturn 0\r\n}\r\nforeach line $gallery {putserv "NOTICE $nick :$line" }\r\n}\r\n', 0, 'tcl', 'away back gallery stats', '#EggTCL');
INSERT INTO `pastebin` VALUES (2570, 'Ozaki', '2005-01-09 16:45:35', '####################################################################################\r\nset away {\r\n   putserv "NOTICE $nick :\\002Away\\002: $nick, you are being marked as away (DEOP, VOICE) in the following channels: #emma-watson.net #trivia #help #bots"\r\n   putserv "PRIVMSG chanserv :DEOP #emma-watson.net $nick"\r\n   putserv "PRIVMSG chanserv :VOICE #emma-watson.net $nick"\r\n   putserv "PRIVMSG chanserv :DEOP #trivia $nick"\r\n   putserv "PRIVMSG chanserv :VOICE #trivia $nick"\r\n   putserv "PRIVMSG chanserv :DEOP #help $nick"\r\n   putserv "PRIVMSG chanserv :VOICE #help $nick"\r\n   putserv "PRIVMSG chanserv :DEOP #bots $nick"\r\n   putserv "PRIVMSG chanserv :VOICE #bots $nick"\r\n   log "$nick has put him/herself on Away."\r\n}\r\nbind pub o !away pub:t\r\nproc pub:t {nick uhost hand chan text} {\r\nif {$chan == "#staff"} {\r\nglobal away\r\nset awaynick [lindex [split $text " "] 0]\r\nif {$text != "" && [onchan $nick $chan]} {\r\nforeach line $away { puthelp "NOTICE $nick :$line" }\r\nreturn 0\r\n}\r\nforeach line $away { putserv "NOTICE $nick :$line" }\r\n} \r\n}\r\n####################################################################################\r\nset back {\r\n   putserv "NOTICE $nick :\\002Back\\002: $nick, you are being marked as back (DEVOICE, OP) in the following channels: #emma-watson.net #trivia #help #bots"\r\n   putserv "PRIVMSG chanserv :DEVOICE #emma-watson.net $nick"\r\n   putserv "PRIVMSG chanserv :OP #emma-watson.net $nick"\r\n   putserv "PRIVMSG chanserv :DEVOICE #trivia $nick"\r\n   putserv "PRIVMSG chanserv :OP #trivia $nick"\r\n   putserv "PRIVMSG chanserv :DEVOICE #help $nick"\r\n   putserv "PRIVMSG chanserv :OP #help $nick"\r\n   putserv "PRIVMSG chanserv :DEVOICE #bots $nick"\r\n   putserv "PRIVMSG chanserv :OP #bots $nick"\r\n   log "$nick has put him/herself on Available."\r\n}\r\nbind pub o !back pub:a\r\nproc pub:a {nick uhost hand chan text} {\r\nif {$chan == "#staff"} {\r\nglobal back\r\nset backnick [lindex [split $text " "] 0]\r\nif {$text != "" && [onchan $nick $chan]} {\r\nforeach line $back { puthelp "NOTICE $nick :$line" }\r\nreturn 0\r\n}\r\nforeach line $back { putserv "NOTICE $nick :$line" }\r\n} \r\n}', 0, 'tcl', 'Need some help with this anyone? appreciated', '#EggTCL');
INSERT INTO `pastebin` VALUES (2571, 'argz', '2005-01-09 16:48:16', '<center>\r\n<iframe id=iframe name=tagshow src=tagshow.php width=185 height=200 marginwidth=0 marginheight=0 frameborder=0 padding=0 scrolling=auto></iframe>\r\n<br>\r\n\r\n<form method="POST" action="/tagit/tagit.php?action=addshout">\r\n<table width=180>\r\n <tr>\r\n  <td colspan=3><input class=form size=27 maxlength="18" type=text name=name value="name"></td>\r\n </tr>\r\n <tr>\r\n  <td colspan=3><input class=form size=27 maxlength="40" type=text name=email value="name@domain.com"></td>\r\n </tr>\r\n <tr>\r\n  <td colspan=3><input class=form size=27 maxlength="60" type=text name=URLtxt value="http://"></td>\r\n\r\n </tr>\r\n<tr>\r\n  <td colspan=3><input class=form id=thebox size=27 maxlength="160" type=text name=message value="message" onkeyup="countn()"></td>\r\n </tr>\r\n <tr>\r\n  <td align=left><input class=button type=reset name=reset value=reset></td>\r\n  <td align=center><input class=limit id=thecount name=count value="limit 153" size=8 disabled></td>\r\n  <td align=right><input class=button type=submit name=submit value=submit></td>\r\n </tr>\r\n\r\n</table>\r\n</form>\r\n</center>', 0, 'html', 'none', 'none');
INSERT INTO `pastebin` VALUES (2573, 'Juzzy', '2005-01-11 00:20:19', 'int main() {\r\n\r\nint z,x,y,a,b,c,i,o,p,m=0;\r\n\r\n        for (x=1;x < 10; x++) {\r\n                for (y=1;y < 10; y++) {\r\n                        for (z=1;z < 10; z++) {\r\n                                if ((x + y + z == 15) && ((x != y) && (x != z) && (y != z))) {\r\n\r\n                for (a=1;a < 10; a++)\r\n                for (b=1;b < 10; b++)\r\n                for (c=1;c < 10; c++)\r\n                                if ((a + b + c == 15) && ((a != b) && (a != c) && (b != c)))\r\n                for (i=1;i < 10; i++)\r\n                for (o=1;o < 10; o++)\r\n                for (p=1;p < 10; p++)\r\n                                if ((i + o + p == 15) && ((i != o) && (i != p) && (o != p)))\r\n                if ((x + a + i == 15) && ((x != a) && (x != i) && (a != i))) \r\n                if ((y + b + o == 15) && ((y != b) && (y != o) && (b != o))) \r\n                if ((z + c + p == 15) && ((z != c) && (z != p) && (c != p)))\r\n                if ((x != b) && (x != c) && (x != o) && (x != p))\r\n                if ((y != a) && (y != i) && (y != c) && (y != p))\r\n                if ((z != b) && (z != a) && (z != o) && (z != i)) {\r\n                        m++;\r\n                        printf("Solution #%d:\\n",m);\r\n                        printf("%d %d %d    %d\\n",x, y, z,i+b+z);\r\n                        printf("%d %d %d\\n",a, b, c);\r\n                        printf("%d %d %d    %d\\n\\n\\n",i, o, p,x+b+p);\r\n                //return;\r\n                }\r\n                                }\r\n                        }\r\n                }\r\n        }\r\n\r\n}', 0, 'c', 'none', 'none');
INSERT INTO `pastebin` VALUES (2572, 'ozaki', '2005-01-10 09:59:03', 'bind pub - !away away \r\nproc away { nick uhost hand chan text } { \r\n if {$chan == "#staff"} { \r\n   global away \r\n   set awaynick [lindex [split $text " "] 0] \r\n   if {$text != "" && [onchan $nick $chan]} { \r\n     foreach line $away { puthelp "NOTICE $nick :$line" } \r\n     return 0 \r\n   } \r\n   putquick "NOTICE $nick :\\002Away\\002: $nick, you are being marked as away (DEOP, VOICE) in the following channels: #emma-watson.net #trivia #help #bots #HouseCup" \r\n   putquick "PRIVMSG chanserv :DEOP #emma-watson.net $nick" \r\n   putquick "PRIVMSG chanserv :VOICE #emma-watson.net $nick" \r\n   putquick "PRIVMSG chanserv :DEOP #trivia $nick" \r\n   putquick "PRIVMSG chanserv :VOICE #trivia $nick" \r\n   putquick "PRIVMSG chanserv :DEOP #help $nick" \r\n   putquick "PRIVMSG chanserv :VOICE #help $nick" \r\n   putquick "PRIVMSG chanserv :DEOP #bots $nick" \r\n   putquick "PRIVMSG chanserv :VOICE #bots $nick" \r\n   putquick "PRIVMSG chanserv :DEOP #HouseCup $nick" \r\n   putquick "PRIVMSG chanserv :VOICE #Housecup $nick" \r\n   log "$nick has put him/herself on Away." \r\n } \r\n} \r\n', 0, 'tcl', 'need help real stuck', '#EggTCL');
INSERT INTO `pastebin` VALUES (2574, 'Fr0zen', '2005-01-12 13:04:34', 'bind pub "-|-" !user userstat\r\nproc userstat { nick host handle channel text } {\r\n\r\n#### SET THIS TO YOUR PATH ####\r\nset url "http://*"\r\n\r\nset agent "Mozilla"\r\nset query "$url?username=$text"\r\nset page [http::config -useragent $agent]\r\nset page [http::geturl $query]\r\nset lines [split [::http::data $page] \\n]\r\n\r\n  set nick [lindex $lines 1]\r\n  set posts [lindex $lines 2]\r\n\r\n  upvar #0 $page state\r\n  set max 0\r\nif{$nick == 0} {putquick "PRIVMSG $channel : USER $nick ISN''T AN HINGA MEMBER(HOE)"}\r\nelse\r\n{\r\nputserv "PRIVMSG $channel : \\0037 ::\\003 Stats For \\002$nick\\0037Posts:\\003 $posts,\\0037 ::"\r\n\r\n}\r\n\r\n}', 0, 'tcl', 'blat', '#TCL');
INSERT INTO `pastebin` VALUES (2575, 'joe-', '2005-01-12 17:57:44', 'proc kzCup:LogReader {} {\r\n	global conf\r\n	if {$conf(size_log) < [file size $conf(files_logfile)]} {\r\n		set of [open $conf(files_logfile) r]\r\n		seek ${of} ${conf(size_log)}\r\n		while {![eof ${of}]} {\r\n			set line [gets ${of}]\r\n			if {$line == ""} { continue; }\r\n			lappend lines ${line}\r\n		}\r\n		set conf(size_log) [file size $conf(files_logfile)]\r\n		close ${of}\r\n		foreach line [split ${lines} \\n] {\r\n			if {[regexp {: \\"(.*)<\\d+><(.*)><.*>\\" say \\"(.*?)\\"} ${line} "" nick steamid text]} {\r\n				if {[kzCup:ServerCheckIfUserIsAdmin $steamid]} { kzCup:CheckServerCommand ${nick} "${text}" }\r\n			}\r\n		}\r\n	}\r\n	utimer 1 kzCup:LogReader\r\n}\r\n\r\nif {![info exists utimersrunning]} {\r\n	set utimersrunning 1\r\n	utimer 1 kzCup:LogReader\r\n}\r\n', 0, 'tcl', 'Random &quot;unmatched open brace in list&quot;', '#EggTCL');
INSERT INTO `pastebin` VALUES (2576, 'wladek', '2005-01-12 22:09:58', '		set dnum [lindex $output [lsearch $output *http://OiNK.me.uk/download/*]]\r\n		set preadd "http://OiNK.me.uk/details.php?"\r\n		set newaddress [concat $preadd [join [lindex [split $dnum /] 4]]]', 0, 'tcl', 'merging', 'none');
INSERT INTO `pastebin` VALUES (2577, 'scopeh', '2005-01-14 07:27:53', 'bind time - !checkdevoice matchfinder::check:devoice\r\nproc matchfinder::check:devoice { } {\r\nvariable banner; variable banner2; variable botnick\r\nvariable adminchan; variable basechan\r\n## Listing Bot Channels\r\nforeach dchan [channels] {;putlog 1\r\n  ## Checking for mode +m & if bot is devoiced or oped.\r\n  if {[string match -nocase *+m* $dchan] && ![isvoice $botnick $dchan]&& ![isop $botnick $dchan]} {;putlog 2\r\n    ## Message admin channel announcing channel/bot status & why parting..\r\n    puthelp "PRIVMSG $adminchan :$banner \\002$dchan\\002 is moderated and i''m devoiced, parting..."\r\n    ## Remove Channel\r\n    channel remove $dchan\r\n  }\r\n}\r\n}', 0, 'tcl', 'no responce', '#EggTCL');
INSERT INTO `pastebin` VALUES (2578, 'pocke', '2005-01-14 10:21:18', 'proc ran {nick ident handle channel argument} {\r\n  global rhost rport rpass challenge\r\n\r\n  if {$argument == ""} {\r\n    putserv "NOTICE $nick :Syntax: !glob \\"FOR:U:ONLY\\" m/h/d/w \\"reason\\""\r\n  } else {\r\n    set response [myran "irc_ban $argument $argument $argument"]\r\n    putserv "NOTICE $nick :$response"\r\n    putserv "PRIVMSG $channel :\\[\\002GLOBALT\\002\\] \\002$argument\\002 at $argument min. Reason: ''$argument''"\r\n  }\r\n\r\n  return 1\r\n}', 0, 'tcl', '$argument', '#EggTCL');
INSERT INTO `pastebin` VALUES (2579, 'danor', '2005-01-14 13:13:03', './configure --with-ssl=openssl  "checking whether to include SSL support... yes" && make config && make <--- gives me   \r\ndcc.c:508: parse error before `md5context''\r\ndcc.c:517: `md5context'' undeclared (first use in this function)\r\nmake[1]: *** [dcc.o] Error 1\r\nmake[1]: Leaving directory `/root/eggdrop1.6.17/src''\r\nmake: *** [modegg] Error 2', 0, 'none', 'crappy src', 'none');
INSERT INTO `pastebin` VALUES (2580, 'Elfish', '2005-01-14 15:49:05', 'top - 22:48:29 up 44 days,  1:09,  1 user,  load average: 0.04, 0.15, 0.10\r\nTasks:  44 total,   1 running,  43 sleeping,   0 stopped,   0 zombie\r\nCpu(s):   0.0% user,   1.1% system,   0.0% nice,  98.9% idle\r\nMem:   6205184k total,  6067960k used,   137224k free,  1415140k buffers\r\nSwap:  4000104k total,  3909788k used,    90316k free,   898580k cached\r\n\r\n  PID USER      PR  NI  VIRT  RES  SHR S %CPU %MEM    TIME+  COMMAND\r\n25157 mysql      9   0 22404  13m 2604 S  0.0  0.2   0:02.44 mysqld\r\n 5539 mysql      9   0 22404  13m 2604 S  0.0  0.2   0:08.37 mysqld\r\n 5575 mysql      9   0 22404  13m 2604 S  0.0  0.2   0:16.08 mysqld\r\n15170 mysql      9   0 22404  13m 2604 S  0.0  0.2   0:00.00 mysqld\r\n11520 mysql      9   0 22404  13m 2604 S  0.0  0.2   0:00.00 mysqld\r\n18052 www-data   9   0 12240  10m 4180 S  0.0  0.2   0:01.82 apache2\r\n 3972 web1       9   0  8968 6940 2108 S  0.0  0.1   1:54.09 eggdrop-1.6.17\r\n 4007 web1       9   0  8968 6940 2108 S  0.0  0.1   0:04.50 eggdrop-1.6.17\r\n 4037 web1       9   0  8968 6940 2108 S  0.0  0.1   0:21.20 eggdrop-1.6.17\r\n25666 web1      10   0  6972 6124  708 S  0.0  0.1 142:48.99 psybnc\r\n18342 bind       9   0  3100 2832 1560 S  0.0  0.0   0:00.03 named\r\n18372 bind       9   0  3100 2832 1560 S  0.0  0.0   0:04.25 named\r\n18401 bind       9   0  3100 2832 1560 S  0.0  0.0   0:03.29 named\r\n18433 bind       9   0  3100 2832 1560 S  0.0  0.0   0:03.25 named\r\n18467 bind       9   0  3100 2832 1560 S  0.0  0.0   0:03.33 named\r\n18496 bind       9   0  3100 2832 1560 S  0.0  0.0   0:02.92 named\r\n18528 bind       9   0  3100 2832 1560 S  0.0  0.0   0:01.75 named\r\n18560 bind       9   0  3100 2832 1560 S  0.0  0.0   0:03.13 named\r\n10657 web1       9   0  3084 2452 1732 S  0.0  0.0  11:27.92 eggdrop\r\n10698 web1       9   0  3084 2452 1732 S  0.0  0.0   0:50.83 eggdrop\r\n10721 web1       9   0  3084 2452 1732 S  0.0  0.0   3:20.76 eggdrop\r\n25283 web2       9   0  3080 2332 1628 S  0.0  0.0  11:13.30 eggdrop\r\n25315 web2       9   0  3080 2332 1628 S  0.0  0.0   0:51.50 eggdrop\r\n25346 web2       9   0  3080 2332 1628 S  0.0  0.0   3:31.44 eggdrop\r\n11525 root      17  15 25712 2324 2320 S  0.0  0.0   0:00.45 spamd\r\n29924 root      17  15 24628 2204 2200 S  0.0  0.0   0:01.09 spamd\r\n14756 Debian-e   9   0  2316 2052 1892 S  0.0  0.0   0:00.11 exim4\r\n16235 web1       9   0  1808 1768 1536 S  0.0  0.0   0:03.13 sshd\r\n15426 root       9   0  1624 1584 1428 S  0.0  0.0   0:00.02 sshd\r\n14240 root       9   0  1500 1500 1184 S  0.0  0.0   0:00.16 bash\r\n29281 root       8   0  3884 1428 1324 S  0.0  0.0   3:16.95 apache2\r\n16293 web1       9   0  1380 1380 1120 S  0.0  0.0   0:00.04 bash\r\n 5734 root      18   0  1052 1052  840 R  3.7  0.0   0:02.00 top\r\n  800 web1       9   0  1196  976  668 S  0.0  0.0   0:48.59 srvx\r\n29447 root       9   0  1080  972  868 S  0.0  0.0   0:46.37 pipelog.pl\r\n 8035 root       9   0  1008  816  812 S  0.0  0.0   0:00.04 mysqld_safe\r\n18146 clamav     9   0   872  792  688 S  0.0  0.0   0:01.01 freshclam\r\n27779 root       9   0   880  728  676 S  0.0  0.0   0:00.74 sshd\r\n27968 root       8   0   668  604  540 S  0.0  0.0   0:14.95 cron\r\n29313 web1       9   0   716  520  228 S  0.0  0.0   8:33.59 bircd\r\n11938 root       9   0   552  508  440 S  0.0  0.0   0:13.19 syslogd\r\n11686 root       8   0   540  492  460 S  0.0  0.0   0:00.30 oidentd\r\n24291 root       8   0   472  440  416 S  0.0  0.0   0:00.12 inetd\r\n    1 root       8   0   468  436  416 S  0.0  0.0   0:58.80 init\r\n', 0, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2589, 'martbhell', '2005-01-16 09:20:03', 'set rcon_tmp "/home/martbhell/nephilim/rcon_tmp.log"\r\nset toput "PRIVMSG $chan"\r\n\r\n                        set rtopic [lindex $arg 0]\r\n                        set rtopik [lindex $arg 1]\r\n\r\n                        if {$rtopic == "changelevel"} {\r\n                                putserv "$toput $rtopik"\r\n                                set rcon_file [open $rcon_tmp r]\r\n                                while {![eof $rcon_file]} {\r\n                                        gets $rcon_file line\r\n                                        if {$line == $rtopik} {\r\n                                        putserv "$toput :$line"\r\n                                        }\r\n                                close $rcon_file\r\n                                return 0\r\n                                }\r\n                        }\r\n\r\nWhen sending "!rcon changelevel asl" to $chan i want this part to search $rcon_tmp for asl\r\nif it finds asl in a line, send that line to $chan. The above thingy doesnt work :D', 0, 'none', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2588, 'Anonymous', '2005-01-16 09:19:25', 'set rcon_tmp "/home/martbhell/nephilim/rcon_tmp.log"\r\nset toput "PRIVMSG $chan"\r\n\r\n                        set rtopic [lindex $arg 0]\r\n                        set rtopik [lindex $arg 1]\r\n\r\n                        if {$rtopic == "changelevel"} {\r\n                                putserv "$toput $rtopik"\r\n                                set rcon_file [open $rcon_tmp r]\r\n                                while {![eof $rcon_file]} {\r\n                                        gets $rcon_file line\r\n                                        if {$line == $rtopik} {\r\n                                        putserv "$toput :$line"\r\n                                        }\r\n                                close $rcon_file\r\n                                return 0\r\n                                }\r\n                        }\r\n\r\nWhen sending "!rcon changelevel asl" to $chan i want this part to search $rcon_tmp for asl\r\nif it finds asl in a line, send that line to $chan. The above thingy doesnt work :D', 2584, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2585, 'Zizou', '2005-01-16 07:05:30', 'bind join - * autovoice:join\r\n\r\nproc autovoice:join {nick uhost hand chan} {\r\n if {[string match -nocase "xdcc\\|*" $nick]} {\r\n  putserv "MODE $chan +v $nick"\r\n }\r\n}', 0, 'tcl', 'autovoice script', '#EggTCL');
INSERT INTO `pastebin` VALUES (2586, 'zeuz', '2005-01-16 08:06:48', 'Connected to balanCe-b, running eggdrop v1.6.18+commentfix\r\n     ____                __\r\n    / __/___ _ ___ _ ___/ /____ ___   ___\r\n   / _/ / _ `// _ `// _  // __// _ \\ / _ \\\r\n  /___/ \\_, / \\_, / \\_,_//_/   \\___// .__/\r\n       /___/ /___/                 /_/\r\n\r\nHey zeuz-d!  My name is balanCe-b and I am running eggdrop v1.6.18+commentfix, on CYGWIN_NT-5.1 1.5.12(0.116/4/2).\r\n\r\nLocal time is now 15:04\r\nYou are an owner of this bot. Only +n users can see this! For more info,\r\nsee .help set motd. Please edit the motd file in your bot''s ''text''\r\ndirectory.\r\nUse .help for basic help.\r\nUse .help <command> for help on a specific command.\r\nUse .help all to get a full command list.\r\nUse .help *somestring* to list any help texts containing "somestring".\r\n\r\nHave fun.\r\n\r\nCommands start with ''.'' (like ''.quit'' or ''.help'')\r\nEverything else goes out to the party line.\r\n\r\n### Die folgenden Nachricht(en) warten auf Dich:\r\n   1. balanCe-b (Jan 16 14:59)\r\n### Benutze ''.notes read'' um sie zu lesen.\r\n*** zeuz-d joined the party line.\r\n.+chan #team.balance\r\nThat channel already exists!\r\n[15:04] -NOTICE- *** No ident response\r\n[15:04] -ERROR from server- Closing Link: balanCe-b0t by wineasy2.se.quakenet.org (USER: Bad username)\r\n[15:04] Disconnecting from server.\r\n[15:05] Identd: Listening On Port 113, Replying as balanCe-b0***\r\n[15:05] Versuche Server irc.quakenet.org:6667\r\n[15:05] Connected to irc.quakenet.org\r\n[15:05] -NOTICE- *** Looking up your hostname\r\n[15:05] -NOTICE- *** Found your hostname, cached\r\n[15:05] -NOTICE- *** Checking Ident\r\n.-c[15:05] -NOTICE- *** No ident response\r\nh[15:06] -ERROR from server- Closing Link: balanCe-b0t by wineasy2.se.quakenet.org (USER: Bad username)\r\n[15:06] Disconnecting from server.\r\na[15:06] Identd was Already On, Listening On Port 113, Replying as balanCe-b0***\r\n[15:06] Versuche Server irc.quakenet.org:6668                                  [15:06] Connected to irc.quakenet.org\r\n[15:06] -NOTICE- *** Looking up your hostname\r\n[15:06] -NOTICE- *** Found your hostname, cached\r\n[15:06] -NOTICE- *** Checking Ident                                         Connected to balanCe-b, running eggdrop v1.6.18+commentfix\r\n     ____                __\r\n<zeuz-d> Connected to balanCe-b, running eggdrop v1.6.18+commentfix\r\n    / __/___ _ ___ _ ___/ /____ ___   ___\r\n<zeuz-d>      ____                __\r\n   / _/ / _ `// _ `// _  // __// _ \\ / _ \\\r\n<zeuz-d>     / __/___ _ ___ _ ___/ /____ ___   ___\r\n  /___/ \\_, / \\_, / \\_,_//_/   \\___// .__/\r\n<zeuz-d>    / _/ / _ `// _ `// _  // __// _ \\ / _ \\\r\n       /___/ /___/                 /_/\r\n*** FLOOD: Auf Wiedersehen.\r\n', 0, 'none', 'putty log', 'none');
INSERT INTO `pastebin` VALUES (2587, 'tb|ZeuZ|busy', '2005-01-16 08:07:05', 'Connected to balanCe-b, running eggdrop v1.6.18+commentfix\r\n     ____                __\r\n    / __/___ _ ___ _ ___/ /____ ___   ___\r\n   / _/ / _ `// _ `// _  // __// _ \\ / _ \\\r\n  /___/ \\_, / \\_, / \\_,_//_/   \\___// .__/\r\n       /___/ /___/                 /_/\r\n\r\nHey zeuz-d!  My name is balanCe-b and I am running eggdrop v1.6.18+commentfix, on CYGWIN_NT-5.1 1.5.12(0.116/4/2).\r\n\r\nLocal time is now 15:04\r\nYou are an owner of this bot. Only +n users can see this! For more info,\r\nsee .help set motd. Please edit the motd file in your bot''s ''text''\r\ndirectory.\r\nUse .help for basic help.\r\nUse .help <command> for help on a specific command.\r\nUse .help all to get a full command list.\r\nUse .help *somestring* to list any help texts containing "somestring".\r\n\r\nHave fun.\r\n\r\nCommands start with ''.'' (like ''.quit'' or ''.help'')\r\nEverything else goes out to the party line.\r\n\r\n### Die folgenden Nachricht(en) warten auf Dich:\r\n   1. balanCe-b (Jan 16 14:59)\r\n### Benutze ''.notes read'' um sie zu lesen.\r\n*** zeuz-d joined the party line.\r\n.+chan #team.balance\r\nThat channel already exists!\r\n[15:04] -NOTICE- *** No ident response\r\n[15:04] -ERROR from server- Closing Link: balanCe-b0t by wineasy2.se.quakenet.org (USER: Bad username)\r\n[15:04] Disconnecting from server.\r\n[15:05] Identd: Listening On Port 113, Replying as balanCe-b0***\r\n[15:05] Versuche Server irc.quakenet.org:6667\r\n[15:05] Connected to irc.quakenet.org\r\n[15:05] -NOTICE- *** Looking up your hostname\r\n[15:05] -NOTICE- *** Found your hostname, cached\r\n[15:05] -NOTICE- *** Checking Ident\r\n.-c[15:05] -NOTICE- *** No ident response\r\nh[15:06] -ERROR from server- Closing Link: balanCe-b0t by wineasy2.se.quakenet.org (USER: Bad username)\r\n[15:06] Disconnecting from server.\r\na[15:06] Identd was Already On, Listening On Port 113, Replying as balanCe-b0***\r\n[15:06] Versuche Server irc.quakenet.org:6668                                  [15:06] Connected to irc.quakenet.org\r\n[15:06] -NOTICE- *** Looking up your hostname\r\n[15:06] -NOTICE- *** Found your hostname, cached\r\n[15:06] -NOTICE- *** Checking Ident                                         Connected to balanCe-b, running eggdrop v1.6.18+commentfix\r\n     ____                __\r\n<zeuz-d> Connected to balanCe-b, running eggdrop v1.6.18+commentfix\r\n    / __/___ _ ___ _ ___/ /____ ___   ___\r\n<zeuz-d>      ____                __\r\n   / _/ / _ `// _ `// _  // __// _ \\ / _ \\\r\n<zeuz-d>     / __/___ _ ___ _ ___/ /____ ___   ___\r\n  /___/ \\_, / \\_, / \\_,_//_/   \\___// .__/\r\n<zeuz-d>    / _/ / _ `// _ `// _  // __// _ \\ / _ \\\r\n       /___/ /___/                 /_/\r\n*** FLOOD: Auf Wiedersehen.\r\n', 0, 'none', 'putty log', 'none');
INSERT INTO `pastebin` VALUES (2583, 'freeform', '2005-01-15 14:14:54', '\r\nbind pub - !imdbq help helpin_out \r\n\r\nproc helpin_out {} {\r\n\r\n\r\nputhelp "PRIVMSG $nick :# ImDB Quotes"\r\nputhelp "PRIVMSG $nick :# Description: Pulls quotes from ImDB"\r\nputhelp "PRIVMSG $nick :# Features: Movie/Show Specific Quotes, offline database building"\r\nputhelp "PRIVMSG $nick :# of pulled quotes for more advanced searching. Builds local database from"\r\nputhelp "PRIVMSG $nick :# movie favorites specified."\r\nputhelp "PRIVMSG $nick :# Usage: "\r\nputhelp "PRIVMSG $nick :#		!imdbq -list ?-c##? ?-e? <movie title>"\r\nputhelp "PRIVMSG $nick :#			This Displays movies/shows and there imdb ID''s for use"\r\nputhelp "PRIVMSG $nick :#			with the -add function to mass add quotes."\r\nputhelp "PRIVMSG $nick :#			Use -cX with X = Number of results to show, to limit results."\r\nputhelp "PRIVMSG $nick :#			Use -e to force exact result matching."\r\nputhelp "PRIVMSG $nick :#		!imdbq -random"\r\nputhelp "PRIVMSG $nick :#			Plays a random quote pulled from imdb.com."\r\nputhelp "PRIVMSG $nick :#		!imdbq -add <imdb ID>"\r\nputhelp "PRIVMSG $nick :#			Enters entire database of quotes from the show/movie specified."\r\nputhelp "PRIVMSG $nick :#		!imdbq -del <Show Title>"\r\nputhelp "PRIVMSG $nick :#			Searchs and deletes shows matching pattern given."\r\nputhelp "PRIVMSG $nick :#		!imdbq -info"\r\nputhelp "PRIVMSG $nick :#			Displays Number of entries for each show as well as a grand total of entries among all shows."\r\nputhelp "PRIVMSG $nick :#		!imdbq"\r\nputhelp "PRIVMSG $nick :#			By itself it will pull from the local database or will pull randomly depending on your options set."\r\n\r\n}', 0, 'tcl', 'trying to learn fist steps , whats wrong here ?', '#EggTCL');
INSERT INTO `pastebin` VALUES (2584, 'martbhell', '2005-01-16 07:00:01', '                       set rcon_r [open $rcon_tmp r]\r\n                        set rcon_info [read $rcon_r]\r\n                        close $rcon_r\r\n                        putserv "PRIVMSG $chan $rcon_info"\r\n\r\n\r\nthis is $rcon_tmp:\r\n\r\nhostname:  FRAGmania.net - The Dungeon of Clan ROB (UKTFCL Match)\r\nversion :  47/1.1.2.1 2834 secure\r\ntcp/ip  :  194.109.193.33:27015\r\nmap     :  2fort at: 0 x, 0 y, 0 z\r\nplayers :  0 active (20 max)\r\n\r\n#      name userid uniqueid frag time ping loss adr\r\n0 users\r\n', 0, 'none', 'read it all', '#EggTCL');
INSERT INTO `pastebin` VALUES (2590, 'Zizou', '2005-01-16 09:57:30', 'bind join - * voice:join\r\n\r\nproc voice:join {nick uhost hand chan} {\r\n if {[string match -nocase "xdcc\\|*" $nick] || [string match -nocase "xdcc-*" $nick]} {\r\n  putserv "MODE $chan +v $nick"\r\n }\r\n if {[string match -nocase "\\[busta\\]" $nick] || [string match -nocase "krillin" $nick]} {\r\n  return 0\r\n } else {\r\n  putserv "KICK $chan $nick :go away!"\r\n }\r\n}', 0, 'tcl', 'autovoice script +', '#EggTCL');
INSERT INTO `pastebin` VALUES (2591, 'Zizou', '2005-01-16 10:17:54', 'bind join - * voice:join\r\n\r\nproc voice:join {nick uhost hand chan} {\r\n if {[string match -nocase "xdcc\\|*" $nick] || [string match -nocase "xdcc-*" $nick]} {\r\n  putserv "MODE $chan +v $nick"\r\n }\r\n if {![string match -nocase "\\[busta\\]" $nick] && ![string match -nocase "krillin" $nick]} {\r\n  putserv "KICK $chan $nick :go away!"\r\n }\r\n}', 2590, 'tcl', 'autovoice script +', '#EggTCL');
INSERT INTO `pastebin` VALUES (2595, 'Ic3man', '2005-01-16 14:04:59', 'bind join - * kick:join\r\n\r\nproc kick:join {nick uhost hand chan} {\r\n if {[string match -nocase "\\[busta\\]" $nick]} {\r\n 	putlog "$nick accepted in channel $chan"\r\n  return 0\r\n } else {\r\n  	putlog "$nick kicked from channel $chan"\r\n  putserv "KICK $chan $nick :go_away!"\r\n }\r\n}\r\n\r\nputlog "Kickscript loaded', 0, 'tcl', 'kickscript', '#EggTCL');
INSERT INTO `pastebin` VALUES (2592, '[busta]', '2005-01-16 13:28:48', 'bind join - * kick:join\r\n\r\nproc kick:join {nick uhost hand chan} {\r\n if {[string match -nocase "\\[busta\\]" $nick]} {\r\n  return 0\r\n }\r\n else {\r\n  putserv "KICK $chan $nick :go_away!"\r\n }\r\n}\r\n', 0, 'none', 'kick script', 'none');
INSERT INTO `pastebin` VALUES (2593, '[busta]', '2005-01-16 13:33:25', 'bind join - * kick:join\r\n\r\nproc kick:join {nick uhost hand chan} {\r\n if {[string match -nocase "\\[busta\\]" $nick]} {\r\n  return 0\r\n }\r\n else {\r\n  putserv "KICK $chan $nick :go_away!"\r\n }\r\n}\r\n', 0, 'tcl', 'kick script', '#EggTCL');
INSERT INTO `pastebin` VALUES (2594, 'tomb0y', '2005-01-16 13:36:09', '#include <stdio.h>\r\n#include <unistd.h>\r\n#include <sys/types.h>\r\n#include <pwd.h>\r\n#include <string.h>\r\n#include <stdlib.h>\r\n\r\nextern char *crypt(const char *key, const char *salt);\r\n\r\n#ifndef  __USE_SVID\r\nstruct passwd pwd;\r\nstruct passwd* fgetpwent(FILE *fp) {\r\n char *data[10],\r\n       tmp;\r\n int   charcnt[10],\r\n       fieldcnt = 0,\r\n       varsize = 0;\r\n\r\n charcnt[0] = 0;\r\n\r\n while ( fread(&tmp, 1, 1, fp) > 0 ) {\r\n  charcnt[fieldcnt]++;\r\n\r\n  if ( varsize < charcnt[fieldcnt] ) {\r\n   varsize += 20;\r\n   if ( varsize == 20 ) data[fieldcnt] = malloc(varsize);\r\n                   else data[fieldcnt] = realloc(data[fieldcnt], varsize);\r\n  }\r\n\r\n  if ( tmp == ''\\n'' ) {\r\n   data[fieldcnt][charcnt[fieldcnt] - 1] = 0;\r\n   break;\r\n  } else if ( tmp == '':'' ) {\r\n   data[fieldcnt][charcnt[fieldcnt] - 1] = 0;\r\n   fieldcnt++;\r\n   charcnt[fieldcnt] = varsize = 0;\r\n  } else {\r\n   data[fieldcnt][charcnt[fieldcnt] - 1] = tmp;\r\n  }\r\n }\r\n\r\n if ( fieldcnt == 6 ) {\r\n  pwd.pw_name = malloc(charcnt[0]);\r\n  pwd.pw_passwd = malloc(charcnt[1]);\r\n  strcpy(pwd.pw_name, data[0]);\r\n  strcpy(pwd.pw_passwd, data[1]);\r\n } else return NULL;\r\n\r\n return &pwd;\r\n}\r\n#endif\r\n\r\nint main(int argc, char *argv[]) {\r\n        FILE *fp;\r\n        struct passwd *buf;\r\n        char *crypted;\r\n        char salt[2];\r\n        if (argc != 4) {\r\n                printf("Usage: %s <user> <pass> <passwdfile>\\n", argv[0]);\r\n                return 1;\r\n        }\r\n        if ((fp=fopen(argv[3], "r")) == NULL) {\r\n                printf("Ooops, couldn\\''t open your passwd file.\\n");\r\n                printf("Looks like you didnt specify a correct path.\\n");\r\n                return 1;\r\n        }\r\n        while ((buf=fgetpwent(fp)) != NULL) {\r\n                if (strcmp(buf->pw_name, argv[1]))\r\n                        continue;\r\n                strncpy(salt, buf->pw_passwd, 2);\r\n                if ((crypted=(char *)malloc(64)) == NULL) {\r\n                        fprintf(stderr, "Couldn''t malloc!\\n");\r\n                        return 1;\r\n                }\r\n                crypted=crypt(argv[2], salt);\r\n                if (strcmp(buf->pw_passwd, crypted) == 0) {\r\n                        printf("MATCH\\n");\r\n                        return 0;\r\n                } else {\r\n                        printf("NOMATCH\\n");\r\n                        return 0;\r\n                }\r\n        }\r\n        printf("No such user in passwd file!\\n");\r\n        return 0;\r\n}', 0, 'c', 'none', 'none');
INSERT INTO `pastebin` VALUES (2596, 'OiZo', '2005-01-17 12:46:42', 'Eggdrop v1.6.17 (C) 1997 Robey Pointer (C) 2004 Eggheads\r\n[13:40] --- Loading eggdrop v1.6.17 (Mon Jan 17 2005)\r\n[13:40] Tcl error in file ''OiZo.conf'':\r\n[13:40] Couldn''t listen on port ''3333'' on the given address. Please make sure ''my-ip'' is set correctly, or try a different port.\r\n    while executing\r\n"listen 3333 all"\r\n    (file "OiZo.conf" line 309)\r\n[13:40] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)\r\n[w33dy@login eggdrop]$\r\n', 0, 'none', 'Eggdrop', 'none');
INSERT INTO `pastebin` VALUES (2597, 'polarbear', '2005-01-17 18:09:34', 'bind sent -|- * rdbsent\r\nproc rdbsent {hand nick filesent} {\r\n if {[lindex [split [file tail $filesent] .] 0] == "rdb"} {\r\n  putlog "$nick got $filesent"\r\n  file delete $filesent\r\n }\r\n return 1\r\n}\r\n\r\nreturns the error\r\n\r\nTcl error in file ''eggdrop.conf'':\r\nbad type, should be one of: act, away, bcst, bot, chat, chjn, chof, chon, chpt, ctcp, ctcr, dcc, disc, evnt, filt, flud, join, kick, link, load, mode, msg, msgm, need, nick, nkch, notc, note, part, pub, pubm, raw, rejn, sign, splt, time, topc, unld, wall\r\nwhile executing\r\n"bind sent -|- * rdbsent"\r\n(file "scripts/script.tcl" line 434)\r\ninvoked from within\r\n"source scripts/script.tcl"\r\n(file "eggdrop.conf" line 1345)', 0, 'tcl', 'script error', '#EggTCL');
INSERT INTO `pastebin` VALUES (2598, 'pocke', '2005-01-19 06:56:00', '# Server ip address/hostname\r\n# List ip to challange\r\nrhost set [list {1} "192.168.0.1" /\r\n                {2} "192.168.0.2" ]\r\n\r\n# Server port\r\n# List ports to challange together with similar listed ip above.\r\nrport set [list {1} "27015" /\r\n                {2} "27016" ]\r\n\r\n# Rcon password\r\nset rconpass "*******"\r\n\r\n\r\n#################################################\r\n## Shouldn''t need to change anything down here ##\r\n#################################################\r\n\r\nset botchan "#channel"\r\nset challenge [challengercon $rhost $rport]\r\n\r\nbind pub n|n !challenge rconchallenge\r\n\r\nproc rconchallenge {nick ident handle channel argument } {\r\n      global rhost rport challenge\r\n      set challenge [challengercon $rhost $rport]\r\n      putserv "NOTICE $nick :Challenge received"\r\n}\r\n\r\nproc myrcon {mycmd} {\r\n  global rhost rport rconpass challenge\r\n\r\n  set response [rcon $rhost $rport $challenge "$rconpass" $mycmd]\r\n\r\n  if {[regexp {Bad challenge.} $response all] || [regexp {No challenge for your address.} $response all]} {\r\n      set challenge [challengercon $rhost $rport]\r\n      set response [rcon $rhost $rport $challenge "$rconpass" $mycmd]\r\n  }\r\n\r\n  return $response\r\n}', 0, 'tcl', 'array, wont work.', '#EggTCL');
INSERT INTO `pastebin` VALUES (2599, 'joe-', '2005-01-19 09:22:03', '# It gives me this line in partyline:\r\n# [16:26] <<kz`joe>> !kz`joe! .changeplayer team1 1 ompa\r\n#\r\n# I think it''s my regsub down there, returning 1 or something..\r\n\r\nproc cupBot:Change_Player_In_Team {nick userhost handle channel text} {\r\n	global cB\r\n	set nick [join [lrange [split $nick] 0 0]]\r\n	set newnick [join [lrange [split $text] 2 2]]\r\n	if {![isop $nick $cB(Channel)]} { return 0 }\r\n	if {$cB(CupInfo:Active) == 0 || $cB(Added:Current) != $cB(Added:Full)} { CupFunction:SendMessage $cB(Channel) $cB(Message:Status:No_Active_Cup);return 0 }\r\n	if {[lindex $text 1] != 1 && [lindex $text 1] != 2} {\r\n		set message $cB(Message:Change_Player_Usage)\r\n		set message [CupFunction:ReplaceCookie $message %trigger% $cB(Trigger:Change_Player)]\r\n		CupFunction:SendMessage $cB(Channel) $message\r\n		return 0\r\n	}\r\n	if {[lindex $text 2] == ""} {\r\n		set message $cB(Message:Change_Player_Usage)\r\n		set message [CupFunction:ReplaceCookie $message %trigger% $cB(Trigger:Change_Player)]\r\n		CupFunction:SendMessage $cB(Channel) $message\r\n		return 0\r\n	}\r\n\r\n	if {[regexp -nocase {team(\\d+)} [lindex $text 0] "" matchnumber]} {\r\n		set player [lindex [split $cB(CupInfo:Team$matchnumber)] [expr [lindex $text 1] - 1]]\r\n		regsub "[CupFunction:Filter $player]" $cB(CupInfo:Team$matchnumber) "$newnick" cB(CupInfo:Team$matchnumber)\r\n\r\n	} else {\r\n		set message $cB(Message:Change_Player_Usage)\r\n		set message [CupFunction:ReplaceCookie $message %trigger% $cB(Trigger:Change_Player)]\r\n		CupFunction:SendMessage $cB(Channel) $message\r\n		return 0\r\n	}\r\n	\r\n}\r\n', 0, 'tcl', 'Bot outputs the text i called the script with in partyline..', '#EggTCL');
INSERT INTO `pastebin` VALUES (2601, 'Heart', '2005-01-21 07:36:02', 'bind pub - !suser-tux pub:susertux\r\n\r\nproc pub:susertux {nick host handle chan arg} {\r\n\r\nif {[llength $arg]==0} {\r\n	putserv "PRIVMSG $channel :Syntax: !suser-tux <Suse_Version> (z.B. !suser-tux 9.1 zeigt die vorh. RPMs für Suse 9.1)"\r\n\r\n	} else {\r\n\r\n    set distri [lindex $arg 0]\r\n    set tok [http::geturl http://ftp.gwdg.de/pub/linux/suse/apt/SuSE/$distri-i386/RPMS.suser-tux/]\r\n    set data [http::data $tok]\r\n\r\n    foreach {word word} [regexp -all -inline {"HREF=\\"([^"]+)rpm\\">"} $data] {\r\n      lappend words $word\r\n    }\r\n\r\n    set words [string toupper $words]\r\n    \r\n    foreach line [wordwrap $words 400] {\r\n    putserv "PRIVMSG $chan : RPMs von suser-tux für Suse $distri: $line"\r\n    }\r\n    }\r\n    }\r\n    \r\nproc wordwrap {str {len 300} {splitChr { }}} {\r\n   set out [set cur {}]; set i 0\r\n   foreach word [split [set str][unset str] $splitChr] {\r\n      if {[incr i [string len $word]]>$len} {\r\n         lappend out [join $cur $splitChr]\r\n         set cur [list $word]\r\n         set i [string len $word]\r\n      } {\r\n         lappend cur $word\r\n      }\r\n      incr i\r\n   }\r\n   lappend out [join $cur $splitChr]\r\n}\r\n', 2600, 'tcl', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2600, 'Heart', '2005-01-21 07:23:21', 'bind pub - !suser-tux pub:susertux\r\n\r\nproc pub:susertux {nick host handle chan arg} {\r\n\r\nif {[llength $arg]==0} {\r\n	putserv "PRIVMSG $channel :Syntax: !suser-tux <Suse_Version> (z.B. !suser-tux 9.1 zeigt die vorh. RPMs für Suse 9.1)"\r\n\r\n	} else {\r\n\r\n    set distri [lindex $arg 0]\r\n    set tok [http::geturl http://ftp.gwdg.de/pub/linux/suse/apt/SuSE/$distri-i386/RPMS.suser-tux/]\r\n    set data [http::data $tok]\r\n\r\n    foreach {word word} [regexp -all -inline {"HREF=\\"([^"]+)rpm\\">"} $data] {\r\n      lappend words $word\r\n    }\r\n\r\n    foreach line [wordwrap $words 400] {\r\n    putserv "PRIVMSG $chan : RPMs von suser-tux für Suse $distri: $line"\r\n    }\r\n    }\r\n    }\r\n    \r\nproc wordwrap {str {len 300} {splitChr { }}} {\r\n   set out [set cur {}]; set i 0\r\n   foreach word [split [set str][unset str] $splitChr] {\r\n      if {[incr i [string len $word]]>$len} {\r\n         lappend out [join $cur $splitChr]\r\n         set cur [list $word]\r\n         set i [string len $word]\r\n      } {\r\n         lappend cur $word\r\n      }\r\n      incr i\r\n   }\r\n   lappend out [join $cur $splitChr]\r\n}', 0, 'tcl', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2604, 'PoisOnouS', '2005-01-22 21:01:16', 'proc do_addpts { nick rest } {\r\n\r\nset bsscores ""\r\nset bsscfile /home/nameless/eggdrop/scripts/bsscores.txt\r\n\r\nif {![file exists $bsscfile]} {\r\n        set fd [open $bsscfile w]\r\n        puts $fd "0"\r\nset bsscores ""\r\nset bsscfile /home/nameless/eggdrop/scripts/bsscores.txt\r\n\r\nif {![file exists $bsscfile]} {\r\n        set fd [open $bsscfile w]\r\n        puts $fd "0"\r\n        close $fd\r\n        }\r\n\r\nset fd [open $bsscfile r]\r\nset sctot [gets $fd]\r\nfor { set bss 0 } { $bss < $sctot } { incr bss } {\r\n        set line [gets $fd]\r\n        lappend bsscores [split $line]\r\n        }\r\nclose $fd\r\n\r\nset nfound 0\r\n\r\nfor { set bss 0 } { $bss < [llength $bsscores] } { incr bss } {\r\n        if { [lindex $bsscores $bss 0] == "$nick" } {\r\n                set oscore [lindex $bsscores $bss 1]\r\n                set nscore [expr $oscore + $rest]\r\n                lset bsscores $bss 1 $nscore\r\n                set nfound 1\r\n                }\r\n        }\r\n\r\nif {$nfound == "0"} {\r\n        lappend bsscores [ list $nick $rest ]\r\n        }\r\n\r\nset fd [open $bsscfile w]\r\nset sctot [llength $bsscores]\r\nputs $fd $sctot\r\nfor { set bss 0 } { $bss < $sctot } { incr bss } {\r\n        set line [lindex $bsscores $bss]\r\n        puts $fd $line\r\n        }\r\nclose $fd\r\n\r\n}', 0, 'none', 'procedure', 'none');
INSERT INTO `pastebin` VALUES (2602, 'Ekindra', '2005-01-22 20:09:43', 'set text {\r\n"Play Public @ 213.167.108.238:27016 - Er du på top 15 ? =)"\r\nset channel "#Pointwise"\r\ntimer 1 putserv "PRIVMSG $channel :$text"\r\n}\r\n', 0, 'none', 'timer', '#TCL');
INSERT INTO `pastebin` VALUES (2603, 'PoisOnouS', '2005-01-22 20:59:59', 'if {![file exists $bsscfile]} {\r\n        set fd [open $bsscfile w]\r\n        puts $fd "0"\r\n        close $fd\r\n        }\r\n\r\nset fd [open $bsscfile r]\r\nset sctot [gets $fd]\r\nfor { set bss 0 } { $bss < $sctot } { incr bss } {\r\n        set line [gets $fd]\r\n        lappend bsscores [split $line]\r\n        }\r\nclose $fd\r\n\r\n', 0, 'none', 'none', '#TCL');
INSERT INTO `pastebin` VALUES (2607, 'Juzzy', '2005-01-24 09:13:46', 'void print_bls(FILE *fp,char *string) {\r\n	static FILE *tx;\r\n	static char search[256];\r\n	static char *domain;\r\n\r\n\r\n	if (fp != NULL) {\r\n		tx = fp;\r\n		fprintf(tx,"initializing...\\n");\r\n		fflush(tx);\r\n		search[0] = ''\\0'';\r\n		snprintf(search,255,"%s",string);\r\n		domain=strchr(search,''@'');\r\n		domain++;\r\n		printf("search %s, string: %s, domain: %s\\n",search,string,domain);\r\n		return;\r\n	}\r\n	fprintf(tx,"search %s, string: %s\\n",search,string);\r\n	fflush(tx);\r\n	if (strchr(search,''@'')) {\r\n		if (!strcmp(search,string)) {\r\n			printf("found: %s\\t\\n",string);\r\n			//fprintf(tx,"%s\\t\\t%d\\t%s\\n",string,type,value);\r\n			//printf("%d.%d.%d.%d\\t\\t%d\\n",a,b,c,d,count);\r\n		}\r\n	} else {\r\n		if (!strcmp(domain,string))\r\n			printf("found: %s\\t\\n",string);\r\n	}\r\n}\r\n', 2606, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2608, 'despy', '2005-01-24 09:15:13', 'bind pubm - !help pubm:help\r\nproc pubm:help {nick host handle chan text} {\r\n  puthelp "NOTICE $nick :--== ShellQuest Help Menu ==--"\r\n  puthelp "NOTICE $nick :--== -------------------- ==--"\r\n  puthelp "NOTICE $nick :--== !staff                ==--"\r\n  puthelp "NOTICE $nick :--== !activation           ==--"\r\n  puthelp "NOTICE $nick :--== !vhosts               ==--"\r\n  puthelp "NOTICE $nick :--== more to come          ==--"\r\n}', 0, 'tcl', 'simple egg tcl', '#EggTCL');
INSERT INTO `pastebin` VALUES (2609, 'aurefoir', '2005-01-24 09:37:35', 'Jan 22 21:57:47 localhost kernel: general protection fault: 01f0\r\nJan 22 21:57:47 localhost kernel: CPU:    0\r\nJan 22 21:57:47 localhost kernel: EIP:    0010:[tcp_sendmsg+2836/4720]    Not tainted\r\nJan 22 21:57:47 localhost kernel: EFLAGS: 00010206\r\nJan 22 21:57:47 localhost kernel: eax: ed03b1a8   ebx: d5bad0e0   ecx: 0000069c   edx: e44bc7c0\r\nJan 22 21:57:47 localhost kernel: esi: ed03b218   edi: ed03b140   ebp: 000005a8   esp: e6e0be94\r\nJan 22 21:57:47 localhost kernel: ds: 0018   es: 0018   ss: 0018\r\nJan 22 21:57:47 localhost kernel: Process glftpd (pid: 32186, stackpage=e6e0b000)\r\nJan 22 21:57:47 localhost kernel: Stack: 00000660 000001f0 000000e8 00000000 e6e0bee4 00000000 00000000 c025ec85\r\nJan 22 21:57:47 localhost kernel:        d1036a20 e6e0bef4 e6e0a000 082704e8 00001f35 000000e8 000005a8 00000000\r\nJan 22 21:57:47 localhost kernel:        00000000 ed03b218 e6e0bf6c d1036a20 00000000 7fffffff ed03b140 e6e0bf6c\r\nJan 22 21:57:47 localhost kernel: Call Trace:    [nf_hook_slow+261/480] [inet_sendmsg+66/80] [sock_sendmsg+104/176] [process_backlog+141/304] [sock_write+151/192]\r\nJan 22 21:57:47 localhost kernel:   [sys_write+171/368] [system_call+51/56]\r\nJan 22 21:57:47 localhost kernel:\r\nJan 22 21:57:47 localhost kernel: Code: cb 7c 24 6c 8b 43 7c 01 47 7c 8b 87 80 00 00 00 8b 53 7c 29\r\n\r\nthe computer where this error occured, crashed also some weeks ago with a kernel panic with similar error message, but this time i got it in the syslog and the box is still running fine.\r\n\r\ni need informations what could cause that gpf, maybe (damaged?) hardware cpu/eth/ram/hd.. ?\r\n', 0, 'none', 'glftpd, general protection fault', 'none');

INSERT INTO `pastebin` VALUES (2605, 'Heart_', '2005-01-24 06:41:43', 'proc pub:allentries {nick uhost handle chan arg} {\r\nglobal cd_release\r\nset totrlsfound 0\r\n\r\nforeach database $cd_release {\r\nset rlsfile [open $database r]\r\nwhile {![eof $rlsfile]} {\r\nset rlsline [gets $rlsfile]\r\n\r\n   if {[regexp -nocase {(.*?)=>(.*?)} $rlsline line a b]} {\r\n   lappend entries $a\r\n   incr totrlsfound 1\r\n\r\n    }\r\n  }\r\nclose $rlsfile\r\n}\r\n\r\nset entries $entries\r\n\r\nforeach line2 [wordwrap2 $entries 400] {\r\nputhelp "PRIVMSG $nick :Alle vorhandenen Einträge: $line2"\r\n}\r\n\r\nif {$totrlsfound == "0" } {puthelp "PRIVMSG $nick :Insgesamt $totrlsfound Einträge vorhanden."}\r\nif {$totrlsfound == "1" } {puthelp "PRIVMSG $nick :Insgesamt $totrlsfound Eintrag vorhanden."}\r\nif {$totrlsfound >= 2 } {puthelp "PRIVMSG $nick :Insgesamt $totrlsfound Einträge vorhanden."}\r\n}\r\n\r\nproc wordwrap2 {str {len 300} {splitChr { }}} {\r\n   set out [set cur {}]; set i 0\r\n   foreach word [split [set str][unset str] $splitChr] {\r\n      if {[incr i [string len $word]]>$len} {\r\n         lappend out [join $cur $splitChr]\r\n         set cur [list $word]\r\n         set i [string len $word]\r\n      } {\r\n         lappend cur $word\r\n      }\r\n      incr i\r\n   }\r\n   lappend out [join $cur $splitChr]\r\n}\r\n\r\n#####################################################\r\n# the txt file looks like:\r\n#\r\n# word1 => definition\r\n# word2 => definition\r\n# ...\r\n#\r\n#####################################################', 0, 'tcl', 'how to get rid of the {} in the output? Now it is &quot;{word1 } {word2 }.....&quot;', '#EggTCL');
INSERT INTO `pastebin` VALUES (2606, 'Juzzy', '2005-01-24 09:07:30', 'I have a weird problem, in 2 files:\r\n\r\nfile1.c:\r\n\r\nint api_show(FILE *tx,char *args) {\r\n	char *p;\r\n\r\n	if (!strncmp("bl",args,2)) {\r\n		p = &args[3];\r\n		printf("print_bl... p=%s\\n",p);\r\n		print_bl(tx,p);\r\n	}\r\n	return 0;\r\n}\r\n\r\n\r\nfile2.c:\r\n\r\nvoid print_bl(FILE *fp,char *user){\r\n	print_bls(fp,user);\r\n}\r\n\r\n\r\ngdb:\r\n\r\n136             if (!strncmp("bl",args,2)){\r\n(gdb) \r\n137                     p = &args[3];\r\n(gdb) \r\n138                     printf("print_bl... p=%s\\n",p);\r\n(gdb) print p\r\n$1 = 0xbfa83e90 "juzzy"\r\n(gdb) print tx\r\n$2 = (FILE *) 0x28220fb8\r\n(gdb) s\r\nprint_bl... p=juzzy\r\n139                     print_bl(tx,p);\r\n(gdb) s\r\nprint_bl (fp=0x1c, user=0x1c <Error reading address 0x1c: Bad address>) at file2.c:248\r\n248             print_bls(fp,user);\r\n(gdb) print fp\r\n$3 = (FILE *) 0x1c\r\n(gdb) print user\r\n$4 = 0x1c <Error reading address 0x1c: Bad address>\r\n(gdb) \r\n\r\n\r\n\r\nproblem:\r\n\r\nboth user and the tx/fp are getting getting passed as 0x1c\r\nthey work fine when passed around in the same file, but when I pass them to the functions in the second file, it fubar''s them.', 0, 'c', 'Odd C problem', 'none');
INSERT INTO `pastebin` VALUES (2614, 'Qdog', '2005-01-26 14:35:01', '###############################################################################\r\n###############################################################################\r\n##                               Weather V3.4.3                              ##\r\n##                                  by DragnLord                             ##\r\n##                                                                           ##\r\n##                                                                           ##\r\n##                                                                           ##\r\n##  This script is based on murf weather script and it now correctly pulls   ##\r\n##  weather from www.wunderground.com (goto their site and click on a few a  ##\r\n##  ads, lets keep em in business!) and gets US weather by city or zip and   ##\r\n##  international weather by city.                                           ##\r\n##                                                                           ##\r\n##  Thanks to all for your bug reports and fixes.                            ##\r\n##                                                                           ##\r\n###############################################################################\r\n##  Runs on TCL 8.3 & 8.4, tested using TCL 8.4 with eggdrop v1.6.17.        ##\r\n###############################################################################\r\n##                                                                           ##\r\n##  These are public and message commands, not partyline!                    ##\r\n##  Usage: .wz [-d] [-o] [-u imc] [-t] [help] <city,state|zip> [country]     ##\r\n##         or /msg bot .wz [-d] [-o] [-u imc] [-t] <city,state|zip> [country]##\r\n##                                                                           ##\r\n##         state should be the two letter state code                         ##\r\n##         country defaults to US and is not needed for US weather           ##\r\n##         ex. .wz denver,co                                                 ##\r\n##             .wz 11111                                                     ##\r\n##                                                                           ##\r\n##         Canada & Australia are no longer special cases, and use the same  ##\r\n##         syntax as other countries                                         ##\r\n##                                                                           ##\r\n##         -d <city,state|zip> [country]   will set a default allowing user  ##\r\n##                                         to just type .wz                  ##\r\n##         -o                              will give output in long format   ##\r\n##         -u <imc>                        choose units imperial metric      ##\r\n##                                         combined                          ##\r\n##         -s <city,state|zip> [country]   get sunrise/sunsewt info          ##\r\n##         -t <city,state|zip> [country]   get the time                      ##\r\n##         -p <city,state|zip>             precipitation report for US only  ##\r\n##                                                                           ##\r\n##  Country codes now match standard internet country codes as closely as    ##\r\n##  possible, but .wzc allows users to search for their code. Input to .wz   ##\r\n##  can be entererd as full country name.                                    ##\r\n##                                                                           ##\r\n##          .wzc <search string> or /msg bot .wzc <country>                  ##\r\n##                                                                           ##\r\n##                                                                           ##\r\n##  Version Info                                                             ##\r\n##      v3.4.3 Jan 21 2005                                                   ##\r\n##      -Fixed minor website changes (these guys don''t kid around)           ##\r\n##                                                                           ##\r\n##      v3.4.2 Jan 18 2005  picked up by DragnLord                           ##\r\n##      -Fixed format to handle decimal reports                              ##\r\n##      -Fixed matches on keywords                                           ##\r\n##      -Added forecast parsing "suggestions" from jdp                       ##\r\n##                                                                           ##\r\n##      v3.4.1 Apr 30 2004                                                   ##\r\n##      -Fixed <nobr> around the date (Thanks Neil)                          ##\r\n##                                                                           ## \r\n##      v3.4 Mar 17 2004                                                     ##\r\n##      -Fixed sunrise sunset not showing                                    ##\r\n##      -Fixed international weather forcast again                           ##\r\n##                                                                           ##\r\n###############################################################################\r\n###############################################################################\r\nputlog "Loading Weather3.4.3 by DragnLord..."\r\n\r\n## Allow users to set a default weather city (can just type .wz to get weather)?\r\n## Defaults are saved per user using XTRA fields in the user database.\r\n## yes == 1 no == 0\r\n\r\nset allow_user_def_wz 0\r\n\r\n## Set default response to a msg request to either msg or notice\r\n## wz_msg_reply = 1 send via msg\r\n## wz_msg_reply == 0 send via notice\r\n\r\nset wz_msg_reply 0\r\n\r\n## Set default output to short, just temps, or long, temps/conditions/updated\r\n## short == 0 long == 1\r\n\r\nset wz_long 1\r\n\r\n## Disallow public response in specific channels?\r\n## enter channels in lowercase, e.g.\r\n## set wz_quiet "#lame #lamer" \r\n\r\nset wz_quiet "#mirchelp"\r\n\r\n## Set display units to imperial, metric, or both.  These are the default\r\n## unless the user overrides with a -u on the command line or in their own\r\n## defaults. \r\n## wz_unit == i  set default to imperial\r\n## wz_unit == m  set default to metric\r\n## wz_unit == c  set default to combined\r\n\r\nset wz_unit c\r\n\r\n## Include sunrise/sunset data along with current conditions by default.\r\n## set to 1 to include by default\r\n\r\nset wz_default_sr 0\r\n\r\n## Init Globals, DON''T CHANGE!!! ##############################################\r\n## wz_cache 	 cached list of country URL''s...they are cleared on reload\r\n##          	 to keep them fresh and not too much of a memory hog\r\n## wz_forecast_f internal flag set to 1 means a forecast is requested along with current conditions\r\n## get_time_f    internal flag set to 1 this means get the time only, no weather is possible\r\n##               If time is all you want, this can be done, but you got a big\r\n##               script just to get the time!\r\n## get_pn_f      internal flag set to 1 means its a precipation only request\r\n## get_sr_f      internal flag set to 1 means to get sunrise/sunset only\r\n## get_mn_f      internal flag set to 1 means to get moon phase only\r\n\r\nset wz_cache ""\r\nset wz_forecast_f 0\r\nset get_time_f 0\r\nset get_pn_f 0\r\nset get_sr_f 0\r\nset get_mn_f 0\r\n## really I mean it, don''t change these here!\r\nset wztbind ""\r\nset wzsbind ""\r\nset wzpbind ""\r\nset wzmbind ""\r\n\r\n## Binds ######################################################################\r\n\r\n## set the default bind flags here\r\n## examples...\r\n## -|- anyone\r\n## o|o only ops\r\n## f|f only friends\r\n## of|of friends or ops\r\n## wzbind_pub_f is the default for public commands and wzbind_msg_f is for msg commands\r\n## in case you want different flags for each.\r\n\r\nset wzbind_pub_f "-|-"\r\nset wzbind_msg_f "-|-"\r\n\r\n## set these to whatever you want, it will carry over into the help now.\r\n## Change .wz .wzc & .wzf to whatever you prefer.\r\n\r\nset wzbind @weather\r\nset wzcbind .wzc\r\n\r\n## If you prefer the time, sunrise, moon and precip to be separate commands as opposed\r\n## to using the -t -s -m and -p flags, leave the following uncommented. \r\n\r\n## time bind (don''t uncomment this line)\r\nset wztbind @time\r\nbind pub $wzbind_pub_f $wztbind pub_wz_time\r\nbind msg $wzbind_msg_f $wztbind msg_wz_time\r\n\r\n## sunrise/sunset bind (don''t uncomment this line)\r\nset wzsbind @sun\r\nbind pub $wzbind_pub_f $wzsbind pub_wz_sunrise\r\nbind msg $wzbind_msg_f $wzsbind msg_wz_sunrise\r\n\r\n## precip bind (don''t uncomment this line)\r\nset wzpbind @rain\r\nbind pub $wzbind_pub_f $wzpbind pub_wz_precip\r\nbind msg $wzbind_msg_f $wzpbind msg_wz_precip\r\n\r\n## moon bind (don''t uncomment this line)\r\nset wzmbind @moon\r\nbind pub $wzbind_pub_f $wzmbind pub_wz_moon\r\nbind msg $wzbind_msg_f $wzmbind msg_wz_moon\r\n\r\n####CODE -- Change it if you like, just don''t bitch if you break it ###########\r\n###############################################################################\r\n\r\nbind pub $wzbind_pub_f $wzbind pub_wz\r\nbind msg $wzbind_msg_f $wzbind msg_wz\r\nbind pub $wzbind_pub_f $wzcbind pub_country_code\r\nbind msg $wzbind_msg_f $wzcbind msg_country_code\r\nbind pub $wzbind_pub_f $wzfbind pub_wz_forecast\r\nbind msg $wzbind_msg_f $wzfbind msg_wz_forecast\r\n\r\n################## Calling procs ##############################################\r\n## Main pub ###################################################################\r\n## pub_wz is called from channel requests sets output type and calls wz_parse\r\n\r\nproc pub_wz {nick uhand handle chan input} {\r\n   global botnick wz_quiet\r\n   set chan [string tolower $chan]\r\n   if {$input != ""} {\r\n      set location [string tolower $input]\r\n   } else {\r\n      set location $input\r\n   }\r\n   if {[lsearch -exact $wz_quiet $chan] != -1} { \r\n      set outtarg "NOTICE $nick"\r\n   } else {\r\n      set outtarg "PRIVMSG $chan"\r\n   }\r\n\r\n   wz_parse $nick $handle $location $outtarg\r\n\r\n   return 0\r\n}\r\n\r\n## Main msg ###################################################################\r\n\r\n## msg_wz is called from query requests sets output type and calls wz_parse\r\n\r\nproc msg_wz {nick uhand handle input} {\r\n   global wz_msg_reply\r\n   if {$input != ""} {\r\n      set location [string tolower $input]\r\n   } else {\r\n      set location $input \r\n   }\r\n   if {$wz_msg_reply == 0} { \r\n      set outtarg "NOTICE $nick"\r\n   } else {\r\n      set outtarg "PRIVMSG $nick"\r\n   }\r\n   wz_parse $nick $handle $location $outtarg\r\n\r\n   return 0\r\n}\r\n\r\n## Procs to call time if separate bind ##########################################\r\n\r\nproc pub_wz_time {nick uhand handle chan input} {\r\n   set input "-t $input"\r\n   pub_wz $nick $uhand $handle $chan $input\r\n   return 0\r\n}\r\n\r\nproc msg_wz_time {nick uhand handle input} {\r\n   set input "-t $input"\r\n   msg_wz $nick $uhand $handle $input\r\n   return 0\r\n}\r\n\r\n## Procs to call sunrise if separate bind ##########################################\r\n\r\nproc pub_wz_sunrise {nick uhand handle chan input} {\r\n   set input "-s $input"\r\n   pub_wz $nick $uhand $handle $chan $input\r\n   return 0\r\n}\r\n\r\nproc msg_wz_sunrise {nick uhand handle input} {\r\n   set input "-s $input"\r\n   msg_wz $nick $uhand $handle $input\r\n   return 0\r\n}\r\n\r\n## Procs to call precip if separate bind ##########################################\r\n\r\nproc pub_wz_precip {nick uhand handle chan input} {\r\n   set input "-p $input"\r\n   pub_wz $nick $uhand $handle $chan $input\r\n   return 0\r\n}\r\n\r\nproc msg_wz_precip {nick uhand handle input} {\r\n   set input "-p $input"\r\n   msg_wz $nick $uhand $handle $input\r\n   return 0\r\n}\r\n\r\n\r\n## Procs to call moon  if separate bind ############################################\r\n\r\nproc pub_wz_moon {nick uhand handle chan input} {\r\n   set input "-m $input"\r\n   pub_wz $nick $uhand $handle $chan $input\r\n   return 0\r\n}\r\n\r\nproc msg_wz_moon {nick uhand handle input} {\r\n   set input "-m $input"\r\n   msg_wz $nick $uhand $handle $input\r\n   return 0\r\n}\r\n\r\n##################################################################################\r\n## Proc to parse input and return URL ############################################\r\n\r\n## wz_parse does a lot of work.  It takes the user input and generates the url\r\n## to get the data from.\r\n## VARS\r\n## webpage      the url to get the data from...init to clear\r\n## wzlongt      temp var for short or long output flag...init to script default\r\n## wzoset_f     flag to check if user set -o.  If so and user default output \r\n##              requested, then reverse the default output type...init to unset\r\n## wzoutput     final var to determine short or long output...init to 99 to \r\n##              determine later if it is not set\r\n## wzdef        if set, then user is setting defaults...init to not setting defaults\r\n## city         requested city...init to clear\r\n## state        requested state/province...init to clear\r\n## country      requested country...init to clear\r\n## zip          requested zip...init to clear\r\n\r\nproc wz_parse {nick handle location outtarg} {\r\n   global allow_user_def_wz botnick wz_long wz_cache wz_unit wz_tunit get_time_f get_pn_f get_sr_f get_mn_f\r\n   set webpage ""\r\n   set wzlongt $wz_long\r\n   set wzoset_f 0\r\n   set wzoutput 99\r\n   set wzdef 0\r\n   set city ""\r\n   set state ""\r\n   set country ""\r\n   set zip ""\r\n   set wz_tunit_reset 0\r\n\r\n## help?\r\n\r\n   if {$location == "help"} {\r\n     wz_help $nick\r\n     return 0\r\n   }\r\n\r\n\r\n## -o to set output to long format and strip -o from location\r\n## set wzlongt accordingly\r\n\r\n   if {[regexp -- {-o ?} $location]} {\r\n     switch $wzlongt {\r\n        0 {set wzlongt 1}\r\n        1 {set wzlongt 0}\r\n     }\r\n     regsub -- {-o ?} $location {} location\r\n     set wzoset_f 1\r\n   }\r\n\r\n\r\n## -d to set default? If yes, set wzdef 1 and strip the -d from $location\r\n## user must be a validuser\r\n \r\n   if {[regexp -- {-d } $location]} {\r\n     if {$allow_user_def_wz == 0} {\r\n        puthelp "NOTICE $nick :Sorry I don''t allow defaults to be set.  Harrass\\\r\nmy master!"\r\n        return 0\r\n     }\r\n     if {[validuser $handle]} {\r\n        set wzdef 1\r\n     } else { \r\n        puthelp "NOTICE $nick :Sorry, dunno who you are, you can''t set a\\\r\ndefault"\r\n     }\r\n     regsub -- {-d } $location {} location\r\n  }\r\n\r\n## -u check for user set units \r\n##  wz_unit sets inital default\r\n##  wz_tunit is used throughout the script as the actual final setting\r\n\r\n   set wz_tunit $wz_unit \r\n   if {[regexp -- {(-u )([imc])} $location match yoo wz_tunit]} { \r\n     set wz_tunit_reset 1 \r\n     if {[regexp {[imc]} $wz_tunit] == 0} {\r\n        puthelp "NOTICE $nick :Proper syntax for units is .wz -u <imc> <city,state|zip> <country> ... Imperial, Metric, or Combined."\r\n        return 0\r\n     }\r\n     regsub -- {-u [imc] ?} $location {} location\r\n   }\r\n\r\n## -t check for time check request\r\n## get_time_f is set to flag the rest of the script that this is a time only request\r\n\r\n   if {[regexp -- {-t ?} $location]} {\r\n      set get_time_f 1\r\n      regsub -- {-t ?} $location {} location\r\n   }\r\n\r\n## -p check for precipitation request\r\n## get_pn_f set to flag script its a precip. only request\r\n   \r\n   if {[regexp -- {-p ?} $location]} {\r\n      set get_pn_f 1\r\n      regsub -- {-p ?} $location {} location\r\n   }\r\n\r\n## -s check or sunrise/sunset\r\n## get_sr_f to flag for request.\r\n\r\n   if {[regexp -- {-s ?} $location]} {\r\n      set get_sr_f 1\r\n      regsub -- {-s ?} $location {} location\r\n   }\r\n\r\n## -m check or sunrise/sunset\r\n## get_mn_f to flag for request.\r\n\r\n   if {[regexp -- {-m ?} $location]} {\r\n      set get_mn_f 1\r\n      regsub -- {-m ?} $location {} location\r\n   }\r\n\r\n\r\n## Is input location all alpha? ie not zip. \r\n\r\n   if {[regexp {[A-Za-z, ]} $location] || $location == ""} {\r\n\r\n## is format City,state?  This is US city weather, parse and set webpage\r\n\r\n      if {[regexp , $location ]} {\r\n        set tempcity [string trim [lindex [split $location ,] 0]]\r\n        regsub -all { } $tempcity {+} city\r\n        set tstate [string trim [lindex [split $location ,] 1]]\r\n        set ltstate [llength $tstate]\r\n        if {$ltstate != 1} {\r\n          set state [string tolower [string trim [lindex [split $tstate] 0]]]\r\n          set country [string tolower [string trim [lindex [split $tstate] 1]]]\r\n          set country [country_search $nick $country 0]\r\n          if {$country != "" && $country != "us"} {\r\n             puthelp "NOTICE $nick : Note that Canada, Australia & China do not require a state, correct syntax is .wz city country, use .wz help  for more help"\r\n          } \r\n        } else {\r\n          set state $tstate\r\n        }\r\n        if {[string length $state] != 2} {\r\n            puthelp "NOTICE $nick : Please use your 2 letter state code"\r\n            return 0\r\n        }\r\n        if {$country == ""} { set country "us" }\r\n\r\n        set webpage "/cgi-bin/findweather/getForecast?query=$city%2C$state"\r\n              \r\n## otherwise must be international weather, city country, parse and set webpage\r\n## code is ugly to account for citys with multiple parts to the name,  this is\r\n## easily accounted for above with ''regsub''.\r\n\r\n## the switch on lloc (length of location)  decides if the location is...\r\n## 0       user default, no location input given\r\n## 1       can''t be correct, spew help\r\n## 2       correct number of components for international, parse for location and country\r\n## default more than 2 components...take the last one and search for a country, use \r\n##         the rest for the city, not perfect, but works in most cases, always works\r\n##         for country code \r\n \r\n      } else {\r\n        set lloc [llength $location]\r\n        switch $lloc {\r\n          0 {\r\n              if {[validuser $handle] && $allow_user_def_wz} {\r\n                 set wzoutput [getuser $handle XTRA wz.output]\r\n                 set location [getuser $handle XTRA wz.zip]\r\n                 set city [getuser $handle XTRA wz.city]\r\n                 set state [getuser $handle XTRA wz.state]\r\n                 set country [getuser $handle XTRA wz.ct]\r\n                 if {$wz_tunit_reset == 0 && [getuser $handle XTRA wz.unit] != ""} {\r\n                    set wz_tunit [getuser $handle XTRA wz.unit]\r\n                 }\r\n                    if {$wzoset_f} {\r\n                    switch $wzoutput {\r\n                       0 {set wzoutput 1}\r\n                       1 {set wzoutput 0}\r\n                    }\r\n                 }\r\n                 if {$location == "" && $city == ""} {\r\n                    puthelp "NOTICE $nick : You don''t have a default city set.\\\r\nIf you want to set one use .wz -d <city,state|zip> <country>, otherwise use\\\r\n.wz <city,state|zip> <country>"\r\n                    return 0\r\n                 }  \r\n                 if {[regexp {[0-9]} $location]} {\r\n                   set webpage "/cgi-bin/findweather/getForecast?query=$location"\r\n                   set zip $location\r\n                 } elseif {$country == "us"} {\r\n                   set webpage "/cgi-bin/findweather/getForecast?query=$city%2C$state"\r\n                 } else {\r\n                    set webpage [wz_set_cache $city $state $country]\r\n                    if {$webpage == -1} {\r\n                       set webpage [country_page $nick $country $city $state]\r\n                       if {$webpage != -1} {\r\n                          if {$state == ""} {\r\n                             set lstate zz\r\n                          } else {\r\n                             set lstate $state\r\n                          }\r\n                          lappend wz_cache "$city $lstate $country $webpage"\r\n                       }\r\n                    }\r\n                    if {$webpage == -1} { return 0 }\r\n                 } \r\n                 wz_socket $nick $webpage $location $city $outtarg $wzoutput $zip $country\r\n                 return 0\r\n              } else {\r\n                 puthelp "NOTICE $nick :Try .wz help"\r\n                 return 0\r\n              }\r\n            }\r\n          1 {\r\n             puthelp "NOTICE $nick :Try .wz help"\r\n             return 0\r\n            }\r\n          2 {\r\n              set city [string trim [lindex [split $location] 0]]\r\n              set tmpcountry [string trim [lindex [split $location] 1]]\r\n              set country [country_search $nick $tmpcountry 0]\r\n              if {$country == -1} {\r\n                  puthelp "NOTICE $nick :Sorry, $tmpcountry is not supported.\\\r\n  Try .wzc <country> or /msg $botnick .wzc <country> to find your 2 letter\\\r\ncountry code."\r\n                  return 0\r\n              }\r\n              if {$country == 1} {\r\n                  puthelp "NOTICE $nick :There are multiple matches for\\\r\n$tmpcountry , try .wzc <country> or /msg $botnick .wzc <country> to find\\\r\nyour 2 letter country code."\r\n                  return 0\r\n              }\r\n             }\r\n          default {\r\n              set lcity [expr {$lloc - 1}]\r\n              set tmpcountry [string trim [lindex [split $location] $lcity]]\r\n              set country [country_search $nick $tmpcountry 0]\r\n              if {$country == -1} {\r\n                  puthelp "NOTICE $nick :Sorry, $tmpcountry is not supported.\\\r\n  Try .wzc <country> or /msg $botnick .wzc <country> to find your 2 letter\\\r\ncountry code."\r\n                  return 0\r\n              }\r\n              if {$country == 1} {\r\n                  puthelp "NOTICE $nick :There are multiple matches for\\\r\n$tmpcountry , try .wzc <country> or /msg $botnick .wzc <country> to find\\\r\nyour 2 letter country code."\r\n                  return 0\r\n              }\r\n              set city [string trim [lindex $location 0]]\r\n              for {set i 1} {$i < $lcity} {incr i} {\r\n                  set tmpcity [lindex $location $i]\r\n                  set city "$city\\ $tmpcity"\r\n              }\r\n          }\r\n        }  \r\n\r\n      set webpage [wz_set_cache $city $state $country]\r\n      if {$webpage == -1} {\r\n         set webpage [country_page $nick $country $city $state]\r\n         if {$webpage != -1} {\r\n            if {$state == ""} {\r\n               set lstate zz\r\n            } else {\r\n               set lstate $state\r\n            }\r\n            lappend wz_cache "$city $lstate $country $webpage"\r\n         }\r\n      }\r\n      if {$webpage == -1} { return 0 }\r\n##close else\r\n     }\r\n##close if\r\n   }\r\n\r\n## check for output style \r\n\r\n   if {$wzoutput == 99} {\r\n     switch $wzlongt {\r\n        0 {set wzoutput 0}\r\n        1 {set wzoutput 1}\r\n     }\r\n   }\r\n\r\n## Is user setting defaults?\r\n     if {$wzdef} {\r\n        switch $wzlongt {\r\n          0 {set lgt "brief"}\r\n          1 {set lgt "long"}\r\n        }\r\n        switch $wz_tunit {\r\n           i {set ut "imperial"}\r\n           m {set ut "metric"}\r\n           c {set ut "combined"}\r\n        }\r\n        if {[regexp {[0-9]} $location]} {\r\n           if {[string length $location] != 5} {\r\n              puthelp "NOTICE $nick :Kinda funky zip is $location?"\r\n              return 0\r\n           }\r\n           set country us\r\n           set zip $location\r\n           puthelp "NOTICE $nick :You selected $zip as default."\r\n        } else {\r\n           regsub {\\+} $country { } tmpcountry\r\n           if {[string toupper $tmpcountry] != "US"} {\r\n              puthelp "NOTICE $nick : The defaults you selected are CITY: [city_case $city]  COUNTRY: [string toupper $tmpcountry]"\r\n           } else {\r\n              puthelp "NOTICE $nick : The defaults you selected are CITY: [city_case $city]  STATE: [string toupper $state]  COUNTRY: [string toupper $tmpcountry]"\r\n           }\r\n        }\r\n        puthelp "NOTICE $nick :Your default output is $lgt"\r\n        puthelp "NOTICE $nick :Your default unit is $ut"\r\n        puthelp "NOTICE $nick :If incorrect try again."\r\n        puthelp "NOTICE $nick :.wz -d -o -u <imc> <location>"\r\n\r\n        setuser $handle XTRA wz.output $wzlongt \r\n        setuser $handle XTRA wz.zip $zip\r\n        setuser $handle XTRA wz.city $city\r\n        setuser $handle XTRA wz.state $state\r\n        setuser $handle XTRA wz.ct $country\r\n        setuser $handle XTRA wz.unit $wz_tunit\r\n        return 0\r\n     }\r\n\r\n\r\n## Is it a US zip code?\r\n\r\n   if {[regexp {[0-9]} $location]} {\r\n\r\n## Note that a zip of 00000 takes an interminably long time, 5min, to timeout \r\n## on the wunderground website, and will hang the bot waiting for the \r\n## webpage to timeout, best to just handle it here\r\n \r\n         if {[string length $location] != 5 || $location == "00000"} {\r\n            puthelp "NOTICE $nick :What kinda funky zip code is $location?"\r\n            return 0\r\n         }\r\n         set zip $location\r\n         set country us\r\n   set webpage "/cgi-bin/findweather/getForecast?query=$location"\r\n   }\r\n   wz_socket $nick $webpage $location $city $outtarg $wzoutput $zip $country\r\n   return 0\r\n}\r\n\r\n\r\n## Set webpage for country, open socket and find city url ##################\r\n## This is needed since wunderground wont allow international city queries\r\n## It takes you to a country page and from there you can choose a city\r\n\r\nproc country_page {nick country city state} {\r\n   global wz_tlang\r\n   set citymatched 0\r\n\r\n## Open socket\r\n        \r\n   set webpage "/global/$country\\.html"\r\n\r\n   if {[catch {set wzsock [socket -async www.wunderground.com 80]} sockerr]} {\r\n      puthelp "NOTICE $nick :$sockerr"\r\n      puthelp "NOTICE $nick :Try again later, look out the window till then!"\r\n      close $wzsock\r\n      return 0\r\n   }\r\n   puts $wzsock "GET $webpage"\r\n   flush $wzsock\r\n\r\n## Search for city URL but first get close.\r\n   set wzout ""\r\n   while {[regexp {<th>Temperature} $wzout] == 0} { \r\n      set wzout [gets $wzsock]\r\n## Not sure if this is needed, but it will break any loops that get to the end of the page\r\n## Better safe than sorry.\r\n\r\n      if {[regexp {</HTML>} $wzout]} {\r\n         return 0\r\n      }\r\n   }\r\n\r\n   while {[regexp {</HTML>} $wzout] == 0} {\r\n     set wzout [gets $wzsock]\r\n     if {[string first [string tolower $city] [string tolower $wzout]] !=-1} {\r\n        regexp {html\\">(.*?)</a>} $wzout match citychk\r\n        if {[string compare [string tolower $city] [string tolower $citychk]] == 0} {\r\n           set wztmpout [gets $wzsock]\r\n           set wztmpout [gets $wzsock]\r\n           if {[regexp {colspan} $wztmpout]} { \r\n              set citymatched 1\r\n              continue \r\n           } else { \r\n              break \r\n           }    \r\n        }\r\n     }\r\n          \r\n     if {[regexp {</HTML>} $wzout]} {\r\n        if {$citymatched} {\r\n           puthelp "NOTICE $nick :Matched $city to $citychk but it had no data, try again later."\r\n        } else {\r\n          puthelp "NOTICE $nick :Sorry, $city is not listed, check\\\r\nhttp:/\\/\\www.wunderground.com for a city thats close."\r\n        }\r\n        close $wzsock\r\n        return -1\r\n     }\r\n   }\r\n   regexp \\=\\"(.*?)\\" $wzout match city_url\r\n   close $wzsock\r\n   return $city_url\r\n}\r\n\r\n## Check for cached URL #################################################\r\n\r\nproc wz_set_cache {city state country} {\r\n   global wz_cache\r\n   set webpage -1\r\n   foreach entry $wz_cache {\r\n     set ecity [lindex [split $entry] 0]\r\n     if {$ecity == $city} {\r\n        set estate [lindex [split $entry] 1]\r\n        set ecountry [lindex [split $entry] 2]\r\n        if {$estate == $state || $estate == "zz"} {\r\n           if {$ecountry == $country} {\r\n             set webpage [lindex [split $entry] 3]\r\n             break\r\n           }\r\n        }\r\n     }\r\n   }\r\n   return $webpage\r\n}\r\n\r\n## Proc to open socket and read webpage in ##############################\r\n## Vars\r\n## wz_forecast_f	display forcast flag\r\n## wz_tunit    		display unit\r\n## get_time_f  		get time only flag\r\n## get_pn_f             get precipitation only flag\r\n## updtime     		time of last update \r\n## temp        		the temperature\r\n## outtemp     		final formatted temp to output\r\n## cond        		the conditions, windy etc\r\n## chill       		windchill\r\n## hindex      		heatindex\r\n## chilldex    		final formatted heatindex or windchill\r\n## ichilldex   		imperial value of chilldex\r\n## mchilldex   		metric value of chilldex\r\n## cchilldex   		combined value of chilldex\r\n## outhorc     		is it "Windchill" or "Heatindex"?\r\n## wind        		value of the wind\r\n## outwind  		final formatted wind output\r\n## humidity    		the value of the humidity\r\n## noreport    		was there any weather reported at the time?\r\n## wdir        		wind direction\r\n\r\nproc wz_socket {nick webpage location city outtarg wzoutput zip country} {\r\n\r\n   global wz_forecast_f wz_tunit get_time_f get_pn_f get_sr_f wz_default_sr get_mn_f\r\n   set updtime ""\r\n   set temp ""\r\n   set outtemp ""\r\n   set cond ""\r\n   set chill ""\r\n   set hindex ""\r\n   set chilldex ""\r\n   set ichilldex ""\r\n   set mchilldex ""\r\n   set cchilldex ""\r\n   set outhorc ""\r\n   set wind ""\r\n   set outwind ""\r\n   set humidity ""\r\n   set noreport ""\r\n   set wdir ""\r\n   set wzsrise ""\r\n   set wzsset ""\r\n   set wfdcond ""\r\n   set wfdtemp ""\r\n   set wfncond ""\r\n   set wfntemp ""\r\n\r\n## Open socket to www.wunderground.com and read in webpage...use async for faster\r\n## response.\r\n\r\n   if {[catch {set wzsock [socket -async www.wunderground.com 80]} sockerr]} {\r\n      puthelp "NOTICE $nick :$sockerr"\r\n      puthelp "NOTICE $nick :Try again later, look out the window till then!"\r\n      close $wzsock\r\n      return 0\r\n   }\r\n   puts $wzsock "GET $webpage"\r\n   flush $wzsock\r\n\r\n\r\n## Start the loop to read the buffer in $wzsock.  This first loops checks for\r\n## the word ''Updated'' to get us in the vicinity of the data.  The pages are \r\n## NOT static and this step is needed.\r\n\r\n   set i 0 \r\n   set wzout ""\r\n   set wztitle ""\r\n   set localdate ""\r\n   while {[regexp {Updated} $wzout] == 0 && $i < 4000} {\r\n      set wzout [gets $wzsock]\r\n      incr i\r\n\r\n## Get local time \r\n\r\n      if {[regexp {Local Time} $wzout]} {\r\n         regexp {<b>(.*?)</b>} $wzout match localdate\r\n         regsub -all {<[^>]*>} $localdate {} localdate\r\n      }\r\n\r\n## Get city name if input was a US zip code\r\n\r\n      if {$i < 50} {\r\n         if {[regexp Underground $wzout]} {\r\n            regexp {:(.*?)Forecast} $wzout match wztitle\r\n            if {[regexp Forecast $wzout] == 0} { \r\n               regexp {:(.*?)</} $wzout match wztitle\r\n            }\r\n            if {$wztitle == "City Not Found"} {\r\n               puthelp "NOTICE $nick :Sorry $location is not available"\r\n               close $wzsock\r\n               return 0\r\n            } \r\n            if {[string first Search $wztitle] !=-1} {\r\n               puthelp "NOTICE $nick :Check your syntax, use .wz -help"\r\n               close $wzsock\r\n               return 0\r\n            }\r\n            if {$wztitle == ""} { \r\n               puthelp "NOTICE $nick :Sorry $location is not available"\r\n               close $wzsock\r\n               return 0\r\n            }\r\n            set city $wztitle\r\n            set city [city_case $city]\r\n\r\n## if get_pn_f is set, call get_precip routine to get just the rain, its easier than \r\n## making a mess of the wz_socket proc.\r\n\r\n            if {$get_pn_f} {\r\n               if {[string tolower $country] != "us"} {\r\n                  puthelp "NOTICE $nick : Sorry precipitation reports only available for US"\r\n                  set get_pn_f 0\r\n                  return 0\r\n               }\r\n               get_precip $wzsock $nick $city $outtarg\r\n               return 0\r\n            }\r\n         }\r\n      }\r\n## Emergency loop break.  Just in case, need to break the loop\r\n\r\n      if {[regexp </HTML> $wzout]} {\r\n         puthelp "NOTICE $nick :Sorry $location is not available"\r\n         close $wzsock\r\n         return 0\r\n      }  \r\n\r\n   }\r\n\r\n## Finally in the right place, start pulling weather data\r\n\r\n   regexp {b>(.*?)</} $wzout match updtime\r\n   set wzout [gets $wzsock]\r\n   for {set i 0} {$i <= 100} {incr i} {\r\n     set wzout [gets $wzsock]\r\n        if {$cond == "" && [regexp Conditions $wzout]} {\r\n            set wzout [gets $wzsock]\r\n            regexp {b>(.*?)</b} $wzout match cond\r\n        }\r\n	if {$temp == "" && [regexp "</b>&nbsp;&#176;F</nobr>" $wzout]} {\r\n            regexp {b>(.*?)</b>} $wzout match temp\r\n            continue\r\n        }\r\n        if {$chill == "" && [regexp Windchill $wzout]} {\r\n            for {set j 0} {$j <= 10} {incr j} {\r\n               set wzout [gets $wzsock]\r\n               if {[regexp <b> $wzout]} {\r\n                 regexp {b>(.*?)</b>} $wzout match chill\r\n                 break\r\n               }   \r\n            }\r\n            continue\r\n        }\r\n        if {$hindex == "" && [regexp HeatIndex $wzout]} {\r\n            for {set j 0} {$j <= 10} {incr j} {\r\n               set wzout [gets $wzsock]\r\n               if {[regexp <b> $wzout]} {\r\n                 regexp {b>(.*?)</b>} $wzout match hindex\r\n                 set stindx [string first <b> $wzout]\r\n                 set etindx [string first </b> $wzout]\r\n                 break\r\n               }   \r\n            }\r\n            continue\r\n        }\r\n        if {$wind == "" && [regexp Wind $wzout]} {\r\n            for {set j 0} {$j <= 15} {incr j} {\r\n               set wzout [gets $wzsock]\r\n               if {[regexp <td> $wzout]} {\r\n                 regexp {b>(.*?)</b>} $wzout match wdir\r\n                 set wdir [string toupper $wdir]\r\n               }\r\n               if {[regexp mph $wzout]} {\r\n                 regexp {b>(.*?)</b>} $wzout match wind\r\n                 break\r\n               }\r\n            }\r\n            set wind [string tolower $wind]\r\n            continue\r\n        }\r\n        if {$humidity == "" && [regexp Humidity $wzout]} {\r\n            regexp {b>(.*?)</b>} $wzout match humidity\r\n        }\r\n   }\r\n\r\n## Get the sunrise sunset crud here\r\n\r\n   set i 0\r\n   while {[regexp Rise $wzout] == 0  && $i < 8000} {\r\n      incr i \r\n      set wzout [gets $wzsock]\r\n   }\r\n   set wzout [gets $wzsock]\r\n   set wzout [gets $wzsock]\r\n   regexp {b>(.*?)</b} $wzout match wzsrise\r\n   set wzout [gets $wzsock]\r\n   regexp {b>(.*?)</b} $wzout match wzsset\r\n\r\n## Full Moon?\r\n\r\n   set i 0\r\n   set phase ""\r\n   set phase_list {\r\n0 "is almost new"\r\n1 "is new tonight" \r\n2 "was just new" \r\n3 "is just past new" \r\n4 "was new a few days ago"\r\n5 "is heading to the first quarter"\r\n6 "is close to first quarter"\r\n7 "is almost at first quarter"\r\n8 "is at the first quarter" \r\n9 "was just at the first quarter"\r\n10 "was first quarter a day or so ago"\r\n11 "was first quarter a few days ago"\r\n12 "will be full in a few days"\r\n13 "will be full in a day or so"\r\n14 "is almost full"\r\n15 "is very nearly full"\r\n16 "is full, watch out for the freaks!"\r\n17 "was just full"\r\n18 "was full a day or so ago"\r\n19 "was full a few days ago"\r\n20 "is heading to the last quarter"\r\n21 "is close to the last quarter"\r\n22 "is almost at the last quarter"\r\n23 "last quarter" \r\n24 "was last quarter a day or so ago" \r\n25 "was last quarter a few days ago" \r\n26 "is heading to the new moon"\r\n27 "is close to the new moon"\r\n28 "is almost at the new moon"\r\n29 "is almost at the new moon"\r\n30 "is almost new tonight" \r\n}\r\n   while {[regexp Phase $wzout] == 0 && $i < 15} {\r\n      incr i\r\n      set wzout [gets $wzsock]\r\n   }\r\n   for {set i 0} {$i < 5} {incr i} {\r\n      set wzout [gets $wzsock]\r\n      if {[regexp {moon([0-9])\\.gif} $wzout match wz_moon_num] || [regexp {moon([0-9][0-9])\\.gif} $wzout match wz_moon_num]} { \r\n         for {set j 0} {$j < [llength $phase_list]} {incr j 2} {\r\n             if {[lindex $phase_list $j] == $wz_moon_num} {\r\n                incr j\r\n                set phase [lindex $phase_list $j]\r\n             }\r\n         }\r\n      }\r\n   }\r\n   \r\n## Do forcast if called from wzf\r\n\r\n## First loop gets buffer to start of forecast by looking for ''Updated:''\r\n## It also looks for a current special forecast and sets nowcast to 1 if it finds one\r\n\r\n   if {$wz_forecast_f} {\r\n      set i 0\r\n      set j 0\r\n      set nowcast 0\r\n         while {[regexp Updated: $wzout] == 0  && $i < 700} {\r\n            set wzout [gets $wzsock]\r\n            if {$nowcast} {\r\n               if {[regexp <b>Now< $wzout]} {\r\n                  set wzout [gets $wzsock]\r\n                  set fcast($j) $wzout\r\n                  set wftime($j) Now \r\n                  incr j\r\n                  set nowcast 0\r\n               }\r\n            }   \r\n            if {[regexp Nowcast $wzout]} {\r\n               set nowcast 1\r\n            }\r\n            incr i\r\n            if {[regexp </HTML> $wzout]} {\r\n               return 0\r\n            }\r\n         }\r\n\r\n## This loop pulls the weather forecast.  \r\n      for {set i 0} {$i <= 150} {incr i} {\r\n        set wzout [gets $wzsock]\r\n         if {[regexp {<td align=left} $wzout]} {\r\n           regexp {<b>(.*?)</b>} $wzout match wftime($j)\r\n           set wzout [gets $wzsock]\r\n           if {$country != "us"} {\r\n              if { $j == 10 } { break }\r\n              set fcondtmp $wzout\r\n              regsub -all {[	]} $fcondtmp {} fconds\r\n              set fcond [string trim $fconds]\r\n              set wzout [gets $wzsock]\r\n              set fhltmp $wzout\r\n              regsub -all {	} $fhltmp {} fhl\r\n              set fhl [string trim $fhl]\r\n##              gets $wzsock\r\n              set wzout [gets $wzsock]\r\n              set ftmptmp $wzout\r\n              regsub -all {[ &deg;F\\.	]} $ftmptmp {} ftmps\r\n              set ftmp [string trim $ftmps]\r\n              set fctmp [expr {round([expr {[expr {$ftmp - 32 }] * .55 }])}]\r\n              set ftemp [format "%3dF/%-*dC" $ftmp [string length $fctmp] $fctmp]\r\n              set fcast($j) "$fcond $fhl $ftemp"\r\n           } else {\r\n              if {$j == 5} { break }\r\n              set fcast($j) $wzout\r\n           }\r\n           incr j\r\n        }\r\n      }\r\n   }      \r\n   close $wzsock\r\n\r\n## Format final output... - == No Report\r\n\r\n## chilldex is the final output of both windchill & heatindex, \r\n## depending on which got set.\r\n## DL - CHANGED format to %3s to deal with reports that include decimals.\r\n   if {$chill != ""} {\r\n      set outhorc "Wind Chill"\r\n      set ichilldex $chill\r\n      set mchilldex [expr {round([expr {[expr {$ichilldex - 32 }] * .55 }])}]\r\n      set cchilldex [format "%3sF/%-*dC" $ichilldex [string length $mchilldex] $mchilldex]\r\n   } \r\n   if {$hindex != ""} {\r\n        set outhorc "Heat Index"\r\n        set ichilldex $hindex\r\n        set mchilldex [expr {round([expr {[expr {$ichilldex - 32 }] * .55 }])}]\r\n        set cchilldex [format "%3sF/%-*dC" $ichilldex [string length $mchilldex] $mchilldex]\r\n   }\r\n   if {[regexp {[0-9]} $temp] == 0} {\r\n     set noreport "(No Report)"\r\n     set outtemp "Temp: NR"\r\n   } else {   \r\n     set itemp $temp\r\n     set mtemp [expr {round([expr {[expr {$itemp - 32 }] * .55 }])}]\r\n     set ctemp [format "%3sF/%-*dC" $itemp [string length $mtemp] $mtemp]\r\n   }\r\n   if {[regexp {[0-9]} $humidity] == 0} {\r\n     set humidity "Humidity: NR"\r\n     set noreport "(No Report)"\r\n   } else {\r\n     set humidity [format "Humidity: %s" $humidity]\r\n   }\r\n   if {$wind == ""} { \r\n      set outwind "calm" \r\n   } else {\r\n      set iwind $wind\r\n      set mwind [expr {round([expr {$iwind * 1.609344}])}]\r\n      set cwind [format "%2smph/%2skmh" $iwind $mwind]\r\n   }\r\n\r\n   if {$wz_tunit == "i"} {\r\n      if {$chilldex == ""} {set chilldex "$outhorc: $ichilldex F"}\r\n      if {$outtemp == ""} {set outtemp "Temp: $itemp F"}\r\n      if {$outwind == ""} {set outwind "$wdir at $iwind mph"}\r\n   }\r\n   if {$wz_tunit == "m"} {\r\n      if {$chilldex == ""} {set chilldex "$outhorc: $mchilldex C"}\r\n      if {$outtemp == ""} {set outtemp "Temp: $mtemp C"}\r\n      if {$outwind == ""} {set outwind "$wdir at $mwind kmh"}\r\n   }\r\n   if {$wz_tunit == "c"} {\r\n      if {$chilldex == ""} {set chilldex "$outhorc: $cchilldex"}\r\n      if {$outtemp == ""} {set outtemp "Temp: $ctemp"}\r\n      if {$outwind == ""} {set outwind "$wdir at $cwind"}\r\n   }\r\n \r\n   if {$chill == "" && $hindex == ""} {\r\n      set chilldex ""\r\n   }\r\n\r\n## Spew the data\r\n\r\n   if {$get_time_f} {\r\n      puthelp "$outtarg : It''s $localdate in $city"\r\n      set get_time_f 0\r\n      return 0\r\n   }\r\n\r\n   puthelp "$outtarg : $city -- $localdate"\r\n \r\n   if {$get_sr_f} {\r\n      puthelp "$outtarg : Sunrise : $wzsrise    Sunset : $wzsset"\r\n      set get_sr_f 0\r\n      return 0\r\n   }\r\n   if {$get_mn_f} {\r\n      puthelp "$outtarg : The moon $phase."\r\n      set get_mn_f 0\r\n      return 0\r\n   }\r\n   puthelp "$outtarg : $outtemp    $chilldex    $humidity    $noreport"\r\n   if {$wzoutput} {\r\n      puthelp "$outtarg : Conditions : $cond with wind $outwind"\r\n   }\r\n   if {$wz_default_sr} {\r\n      puthelp "$outtarg : Sunrise : $wzsrise   Sunset : $wzsset"\r\n   }\r\n   if {$wz_forecast_f} {\r\n      set wz_forecast_f 0\r\n      puthelp "$outtarg : "\r\n      puthelp "$outtarg :Forecast"\r\n      if {$country != "us"} {\r\n         set didit 1\r\n         for {set k 0} {$k < $j} {incr k} {\r\n             if {[string first "$wftime($k) Night" $wftime([expr {$k + 1}])] != -1 } {\r\n                 set shcastday $wftime([expr {$k + 1}])\r\n                 set shcast $fcast([expr {$k + 1}])  \r\n                 puthelp "$outtarg : $wftime($k): $fcast($k)   Night: $shcast"\r\n                 set didit 0\r\n             } elseif {$didit} {\r\n                 puthelp "$outtarg : $wftime($k):  $fcast($k)"\r\n                 set didit 1\r\n             }\r\n         }\r\n         return 0\r\n      }\r\n      for {set i 0} {$i < $j} {incr i} {\r\n          puthelp "$outtarg : $wftime($i):  $fcast($i)"\r\n      }\r\n   }\r\n   return 0\r\n}\r\n\r\n## Public country search #############################################\r\n## Country codes do not match standard internet conventions.  Need to \r\n## allow people to search for their proper code.\r\n\r\nproc pub_country_code {nick uhand handle chan country} {\r\n  country_search $nick $country 1\r\n  return 0\r\n}\r\n\r\n\r\n## Message country search #############################################\r\n\r\nproc msg_country_code {nick uhand handle country} {\r\n  country_search $nick $country 1\r\n  return 0\r\n}\r\n\r\n## Search the country list for country code ###########################\r\n\r\nproc country_search {nick country sc_call} {\r\nglobal botnick \r\n\r\n## Note that there are some US protectorates in the country list.\r\n## I did not code for these, if you''re from there you can try \r\n## fixing it yourself, it shouldn''t be that hard, just more kluge.\r\n\r\nset ctlist {\r\nantarctica:aq:AA\r\nafghanistan:af:AH\r\nalbania:al:AB\r\nalgeria:dz:AL\r\nangola:ao:AN\r\nargentina:ar:AG\r\narmenia:am:AM\r\nascensioni#island:ac:AI\r\naustralia:au:AU\r\naustria:at:OS\r\nazerbaijan:az:A2\r\nbahrain:bh:BN\r\nbangladesh:bd:BW\r\nbelarus:by:BY\r\nbelgium:be:BX\r\nbelize:bz:BH\r\nbenin:bj:BJ\r\nbolivia:bo:BO\r\nbosnia:ba:BA\r\nbotswana:bw:BC\r\nbrazil:br:BZ\r\nbrunei:bn:BF\r\nbulgaria:bg:BU\r\nburkina#faso:bf:HV\r\nburma/myanmar:mm:BM\r\nburundi:bi:BI\r\ncanada:ca:CA\r\ncambodia:kh:KH\r\ncameroon:cm:CM\r\ncentral#african#republic:cf:CE\r\nchad:td:CD\r\nchile:cl:CH\r\nchina:cn:CI\r\ncolombia:co:CO\r\ncomoros:km:IC\r\ncongo:cq:CG\r\ncosta#rica:cr:CS\r\ncroatia:hr:RH\r\ncyprus:cy:CY\r\nczech#republic:cz:CZ\r\ndemocratic#yemen:ye:YE\r\ndenmark:dk:DN\r\ndjibouti:dj:DJ\r\ndominica:dm:DO\r\ndominican#republic:do:DR\r\necuador:ec:EQ\r\negypt:eg:EG\r\nel#salvador:sv:ES\r\nequatorial#guinea:gq:GQ\r\neritrea:er:E1\r\nestonia:ee:EE\r\nethiopia:et:ET\r\nfaroe#islands:fo:FA\r\nfinland:fi:FI\r\nfrance:fr:FR\r\nfrench#guiana:gf:FG\r\nfrench#polynesia:pf:PF\r\ngabon:ga:GO\r\ngambia:gm:GB\r\ngeorgia:ge:GE\r\ngermany:de:DL\r\nghana:gh:GH\r\ngibraltar:gi:GI\r\ngreece:gr:GR\r\ngreenland:gl:GL\r\nguatemala:gt:GU\r\nguinea:gn:GN\r\nguinea-bissau:gw:GW\r\nguyana:gy:GY\r\nhonduras:hn:HO\r\nhong#kong:hk:HK\r\nhungary:hu:HU\r\niceland:is:IL\r\nindia:in:IN\r\nindonesia:id:ID\r\niran:ir:IR\r\niraq:iq:IQ\r\nireland:ie:IE\r\nisrael:il:IS\r\nitaly:it:IY\r\nivory#coast:iv:IV\r\njapan:jp:JP\r\njordan:jo:JD\r\nkampuchea:kp:KP\r\nkazakhstan:kz:KZ\r\nkenya:ke:KN\r\nkuwait:kw:KW\r\nkyrgyzstan:kg:KG\r\nlao#peoples#republic:la:LA\r\nlatvia:lv:LV\r\nlebanon:lb:LB\r\nlesotho:ls:LS\r\nliberia:lr:LI\r\nlibya:ly:LY\r\nliechtenstein:li:LT\r\nlithuania:lt:L1\r\nluxembourg:lu:LU\r\nmacao:mo:MU\r\nmacedonia:mk:MK\r\nmadagascar:mg:MG\r\nmalawi:mw:MI\r\nmalaysia:my:MS\r\nmaldives:mv:MV\r\nmali:ml:MI\r\nmalta:mt:ML\r\nmauritania:mr:MT\r\nmauritius:mu:MA\r\nmexico:mx:MX\r\nmoldova:md:M1\r\nmongolia:mn:MO\r\nmorocco:ma:MC\r\nmozambique:mz:MZ\r\nnamibia:na:NM\r\nnauru:nr:NW\r\nnepal:np:NP\r\nnetherlands:nl:NL\r\nnew#zealand:nz:NZ\r\nnicaragua:ni:NK\r\nniger:ne:NR\r\nnigeria:ng:NI\r\nnorth#korea:kp:KR\r\nnorway:no:NO\r\noman:om:OM\r\npakistan:pk:PK\r\npanama:pa:PM\r\npapua#new#guinea:pg:NG\r\nparaguay:py:PY\r\nperu:pe:PR\r\nphilippines:ph:PH\r\npoland:pl:PL\r\nportugal:pt:PO\r\nqatar:qt:QT\r\nromania:ro:RO\r\nrussia:ru:RS\r\nrwanda:rw:RW\r\nsao#tome#and#principe:st:TP\r\nsarawak:sw:MS\r\nsaudi#arabia:sa:SD\r\nsenegal:sn:SG\r\nseychelles:sc:SC\r\nsierra#leone:sl:SL\r\nsingapore:sg:SR\r\nslovakia:sk:S1\r\nslovenia:si:LJ\r\nsolomon#islands:sb:SO\r\nsomalia:so:SI\r\nsouth#africa:za:ZA\r\nsouth#korea:kr:KO\r\nspain:es:SP\r\nsri#lanka:lk:SB\r\nst.#helena:sh:HE\r\nsudan:sd:SU\r\nsuriname:sr:SM\r\nswaziland:sz:SV\r\nsweden:se:SN\r\nswitzerland:ch:SW\r\nsyria:sy:SY\r\ntaiwan:tw:TW\r\ntajikistan:tj:TJ\r\ntanzania:tz:TN\r\nthailand:th:TH\r\ntogo:tg:TG\r\ntonga:to:TO\r\ntunisia:tn:TS\r\nturkey:tr:TU\r\nturkmenistan:tm:TM\r\nuganda:ug:UG\r\nukraine:ua:UR\r\nunited#arab#emirates:ae:ER\r\nunited#kingdom:uk:UK\r\nunited#states:us:us\r\nuruguay:uy:UY\r\nuzbekistan:uz:UZ\r\nvanuatu:vu:NH\r\nvenezuela:ve:VN\r\nvietnam:vn:VS\r\nwestern#sahara:eh:EH\r\nwestern#samoa:ws:ZM\r\nyemen:ye:YE\r\nyugoslavia:yu:YG\r\nzaire:zr:ZR\r\nzambia:zb:ZB\r\nzimbabwe:zw:ZW\r\n}\r\n  set ctmatch 0\r\n  set ctsearch [string tolower [string trim $country]]\r\n  if {$ctsearch == ""} {\r\n     puthelp "NOTICE $nick :USAGE: .wzc country or \\/msg $botnick .wzc country"\r\n     puthelp "NOTICE $nick :This is a plain text search, enter any part of a\\\r\ncountry name to search on, e.g. .wzc united will return United States \\& United\\\r\nKingdom"\r\n     return 0\r\n  } \r\n  if {[string length $ctsearch] == 2} { \r\n     set searchindex 1\r\n  } else {\r\n     set searchindex 0\r\n  }\r\n  regsub -all { } $ctsearch {#} ctsearch\r\n  foreach ct_all $ctlist {\r\n     set ct [lindex [split $ct_all :] $searchindex]\r\n     if {[string first $ctsearch $ct] !=-1} {\r\n        if {$ctmatch == 0} {\r\n           if {$sc_call} {\r\n              puthelp "NOTICE $nick :Possible matches for $ctsearch are:"\r\n           }  \r\n        }\r\n        incr ctmatch\r\n        set lctry [lindex [split $ct_all :] 0]\r\n        regsub -all {#} $lctry { } lctry\r\n        set uctry [city_case $lctry]\r\n        set ctcode [lindex [split $ct_all :] 1]\r\n        set glcode [lindex [split $ct_all :] 2]\r\n		set ctresult [format "%36s      Code: %s" $uctry $ctcode]\r\n        if {$sc_call} {\r\n           puthelp "NOTICE $nick :$ctresult"\r\n        } \r\n     }\r\n  }\r\n  if {$ctmatch == 0} {\r\n     if {$sc_call} {\r\n        puthelp "NOTICE $nick :Sorry no matches for $ctsearch"\r\n     }\r\n     return -1\r\n  }\r\n  if {$ctmatch > 1} {\r\n     return 1\r\n  }\r\n  if {$ctmatch} {\r\n     regsub -all { } $lctry {+} rctry\r\n     return $glcode\r\n  }\r\n}\r\n\r\n## Spew help################################################################### \r\n\r\nproc wz_help {nick} {\r\n     global wz_unit wz_long wzbind wzcbind wzfbind wzpbind wztbind wzsbind wzmbind\r\n     switch $wz_unit {\r\n        i {set ut "imperial"}\r\n        m {set ut "metric"}\r\n        c {set ut "combined"}\r\n     }\r\n     switch $wz_long {\r\n        0 {set long "long"}\r\n        1 {set long "brief"}\r\n     }\r\n     puthelp "NOTICE $nick :Commands: (in channel or msg)"\r\n     puthelp "NOTICE $nick :$wzbind -d -o -u <imc> <city,state|zip> <country> -- current weather"\r\n     puthelp "NOTICE $nick :$wzfbind -d -o <-u imc> <city,state|zip> <country> -- current weather & forecast"\r\n     if {$wztbind != ""} {\r\n        puthelp "NOTICE $nick :$wztbind <city,state|zip> <country> -- current time" \r\n     }\r\n     if {$wzsbind != ""} {\r\n        puthelp "NOTICE $nick :$wzsbind <city,state|zip> <country> -- sunrise/sunset" \r\n     }\r\n     if {$wzpbind != ""} {\r\n        puthelp "NOTICE $nick :$wzpbind <city,state|zip> <country> -- precipitation" \r\n     }\r\n     if {$wzmbind != ""} {\r\n        puthelp "NOTICE $nick :$wzmbind <city,state|zip> <country> -- moon phase" \r\n     }\r\n     puthelp "NOTICE $nick :$wzcbind <country> -- search for a country code, defaults to US"\r\n     puthelp "NOTICE $nick :Options:"\r\n     puthelp "NOTICE $nick :-d will set a default allowing you to type just .wz to see your favorite city"\r\n     puthelp "NOTICE $nick :-o will give you $long format output"\r\n     if {$wzpbind == ""} {\r\n        puthelp "NOTICE $nick :-p will give you a precipitation report"\r\n     }\r\n     if {$wztbind == ""} {\r\n        puthelp "NOTICE $nick :-t will give you the local time"\r\n     }\r\n     if {$wzsbind == ""} {\r\n        puthelp "NOTICE $nick :-s will give sunrise & sunset"\r\n     }\r\n     if {$wzmbind == ""} {\r\n        puthelp "NOTICE $nick :-m will give moon phase"\r\n     }\r\n     puthelp "NOTICE $nick :-u <imc> selects units imperial, metric, combined, overides current default of $ut"\r\n     puthelp "NOTICE $nick :Examples:"\r\n     puthelp "NOTICE $nick : .wz -u m denver,co -- current weather in Denver Colorado in metric."\r\n     puthelp "NOTICE $nick : .wzf Rome it -- weather forecast for Rome, Italy"\r\n     puthelp "NOTICE $nick : .wz toronto ca -- current weather in Toronto, Canada"\r\n     return 0\r\n   }\r\n\r\n## Capitalize city names ######################################################\r\n\r\n## Capitalize the city since too many pple with old tcl cant use ''string totitle''\r\n## And totitle only works for first word, doesnt account for multiple word cities\r\n\r\nproc city_case {city} {\r\n   regsub -all {\\+} $city { } ocity\r\n   set wzcity ""\r\n   foreach i $ocity {\r\n     set wzcap [string toupper [string range $i 0 0]]\r\n     set wzright [string range $i 1 end]\r\n     set wzjoin "$wzcap$wzright"\r\n     if {$wzjoin == "S"} {\r\n        set wzjoin \\''s\r\n        set wzcity [string trim $wzcity]\r\n     }\r\n     append wzcity "$wzjoin\\ "\r\n   }\r\n   set wzcity [string trim $wzcity]\r\n   return $wzcity\r\n}\r\n\r\nputlog "     Weather loaded...bugs/comments to freebsd.tech@gmail.com"\r\n', 0, 'tcl', 'Weather Tcl', '#EggTCL');
INSERT INTO `pastebin` VALUES (2613, 'StavroS', '2005-01-25 17:25:07', 'Now run "make install" to install your bot.\r\n\r\n`eggdrop'' is up to date.\r\n-bash-2.05b$ make install\r\n\r\nEggdrop v1.6.17 (C) 1997 Robey Pointer (C) 2004 Eggheads\r\n\r\nInstalling in directory: ''/home/StavroS/eggdrop''.\r\n\r\nRenaming old ''eggdrop'' executable to ''oeggdrop''.\r\nCopying new ''eggdrop'' executable and creating symlink.\r\ninstall: eggdrop: No such file or directory\r\n*** Error code 71\r\n\r\n', 0, 'none', 'Eggdrop error', '#EggTCL');
INSERT INTO `pastebin` VALUES (2611, 'urban', '2005-01-25 02:00:37', 'proc startpost { nick host hand text chan } {\r\nif {[isop $nick #xxxpasswords]} { set gaz 1 } { set gaz 0 }\r\nif { $nick == "urban" | $nick == "Donaldduc" } { set gaz 1 }\r\nif { $gaz == 0 } { unset gaz; return 0 }\r\n\r\n\r\nglobal cabbage\r\nset cabbage 1\r\nputserv "privmsg #xxxpasswords :Posts are ON !"\r\n}', 0, 'tcl', 'what arg$ do i need ?', '#EggTCL');
INSERT INTO `pastebin` VALUES (2612, 'Juzzy', '2005-01-25 17:24:37', '[root@mailin-2:/home/ics/icsd] telnet 127.0.0.1 11025\r\nTrying 127.0.0.1...\r\nConnected to localhost.\r\nEscape character is ''^]''.\r\nCommands:\r\nshow - displays various settings\r\nadd - adds new black/whitelist entries\r\ndel - removes black/whitelist entries\r\nhelp - displays additional help\r\nquit - exits interface\r\nType help <command> for additional information.\r\nicsd> add bi xuzzy@xuzzy.com 123.12.13.*\r\nBlacklist IP for user xuzzy@xuzzy.com: 123.12.13.*\r\n\r\nicsd> add bi xuzzy@xuzzy.com 123.13.*   \r\nBlacklist IP for user xuzzy@xuzzy.com: 123.13.*\r\n\r\nicsd> add bf xuzzy@xuzzycode.com reply@ebay.com \r\nBlacklist FROM for user xuzzy@xuzzycode.com: reply@ebay.com\r\n\r\nicsd> show bl *\r\nuser    type            value\r\nuser xuzzy@xuzzy.com:\r\nxuzzy@xuzzy.com 3               123.12.13.*\r\nxuzzy@xuzzy.com 3               123.13.*\r\nuser xuzzy@xuzzycode.com:\r\nxuzzy@xuzzycode.com     1               reply@ebay.com\r\n\r\nicsd> ', 0, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2616, 'jpwillms', '2005-01-27 06:05:47', '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">\r\n<html xmlns="http://www.w3.org/1999/xhtml">\r\n<head>\r\n<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />\r\n<title></title>\r\n<style type="text/css">\r\n<!--\r\n.mainBrace \r\n{\r\nwidth: 734px;\r\nbackground-color: #4F98E5;\r\nbackground-image:url(patrick.jordan.background.png);\r\nbackground-repeat: no-repeat;\r\nheight: 1000px;\r\npadding-top: 100px;\r\nmargin: auto;\r\n}\r\n#menu {\r\n	margin: 0;\r\n	padding: 0;	\r\n	text-align: right;\r\n	width: 734px;\r\n	}\r\n\r\n#menu ul {\r\n	border: 0;\r\n	margin: 0;\r\n	padding: 0;\r\n	list-style-type: none;\r\n	}\r\n\r\n#menu ul li {\r\n	display: block;\r\n	float: left;\r\n	text-align: center;\r\n	padding: 0;\r\n	margin: 0;\r\n	}\r\n\r\n#menu ul li a {\r\n	background: #0B39A9;\r\n	width: 100px;\r\n	height: 1em;\r\n	border-top: 1px solid #CCCCCC;\r\n	border-left: 1px solid #CCCCCC;\r\n	border-bottom: 1px solid #CCCCCC;\r\n	border-right: none;\r\n	padding: 0;\r\n	margin: 0 0 0 0;\r\n	color: #E9E5EC;\r\n	text-decoration: none;\r\n	display: block;\r\n	text-align: center;\r\n	font-weight: normal;\r\n	letter-spacing: 0px;\r\n	line-height: 2em;\r\n	font-size:    xx-small;      \r\n	font-size:    x-small;   \r\n	font-family: Verdana, Arial, Helvetica, sans-serif\r\n	}\r\n\r\nhtml>#menu ul li a  {\r\n	font-size: x-small;   \r\n	} \r\n\r\n#menu ul li#five a	{\r\n	width: 119px;\r\n	}\r\n\r\n#resources a:link, #resources a:visited {\r\n	border-right: 1px solid #ccc;\r\n	}\r\n\r\n#menu ul li a:hover {\r\n	background: #2871D7;\r\n	}\r\n\r\n#menu a:active	{\r\n	background: #2871D7;\r\n	\r\n	}\r\n\r\nbody {\r\n\r\ntext-align: center;\r\n\r\n\r\n}\r\n-->\r\n</style>\r\n</head>\r\n<body>\r\n\r\n<div class="mainBrace">\r\n\r\n<div id="menu"><ul><li id="one"><a href="/" title="A List Apart Home - current issue.">up front</a></li><li id="two"><a href="/articles/" title="Design, code, content.">articles</a></li><li id="three"><a href="/about/" title="Everything you wanted to know about A List Apart.">about ala</a></li><li id="four"><a href="/live/" title="We may be coming to your town.">live events</a></li><li id="five"><a href="/xmlfeed/" title="RSS feeds, headlines and summaries.">xml feeds</a></li></ul></div>\r\n\r\n</div>\r\n\r\n\r\n</body>\r\n</html>\r\n', 0, 'none', 'can''t figure out how to align right', 'none');
INSERT INTO `pastebin` VALUES (2617, 'asde', '2005-01-28 04:15:54', '<html>\r\n	<head>\r\n		<title>Publi Cartier</title>\r\n		<META HTTP-EQUIV="Expires" CONTENT="-1">\r\n		<META HTTP-EQUIV="Pragma" CONTENT="no-cache">\r\n		<link rel="stylesheet" type="text/css" href="css/divs.css">\r\n		<link rel="stylesheet" type="text/css" href="css/admin.css">\r\n	</head>\r\n<body>\r\n\r\n\r\n<div id="logo"><img src="http://www.publicartier.ro/imagini/logo.jpg" border="0"></div>\r\n<div id="logo">\r\n<a href="index.php" class="sus">Home</a>\r\n	 <img src="imagini/menusus.gif"><a href="showimg.php?cat=16" class="sus">Concurs</a>\r\n		 <img src="imagini/menusus.gif"><a href="showimg.php?cat=25" class="sus">Cupoane de reducere</a>\r\n		 <img src="imagini/menusus.gif"><a href="showart.php?cat=6" class="sus">Bob a testat pentru voi</a>\r\n		 <img src="imagini/menusus.gif"><a href="showart.php?cat=27" class="sus">Finante</a>\r\n\r\n		 <img src="imagini/menusus.gif"><a href="showart.php?cat=15" class="sus">Imobiliare</a>\r\n		 <img src="imagini/menusus.gif"><a href="showart.php?cat=7" class="sus">Publi-reportaj</a>\r\n	<img src="imagini/menusus.gif"><a href="contact.php" class="sus">Contactati-ne</a>\r\n</div>\r\n\r\n<div id="col_stanga">\r\n		<div id="menu">\r\n		<div id="menu_titlu"><span class="menu_titlu">Animale de companie</span></div>\r\n\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=36">Magazinul HAM</a></div>\r\n			</div>\r\n		<div id="menu">\r\n		<div id="menu_titlu"><span class="menu_titlu">Auto</span></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=31">Domus Prest</a></div>\r\n			</div>\r\n		<div id="menu">\r\n\r\n		<div id="menu_titlu"><span class="menu_titlu">Calculatoare</span></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=33">AS Computer</a></div>\r\n			</div>\r\n		<div id="menu">\r\n		<div id="menu_titlu"><span class="menu_titlu">Catering</span></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=29">Petrecere</a></div>\r\n			</div>\r\n\r\n		<div id="menu">\r\n		<div id="menu_titlu"><span class="menu_titlu">Cazare, hoteluri</span></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=44">Sigma</a></div>\r\n			</div>\r\n		<div id="menu">\r\n		<div id="menu_titlu"><span class="menu_titlu">Constructii, Instalatii</span></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=38">Marti Service Group</a></div>\r\n\r\n			</div>\r\n		<div id="menu">\r\n		<div id="menu_titlu"><span class="menu_titlu">Electronice</span></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=27">Herodot</a></div>\r\n			</div>\r\n		<div id="menu">\r\n		<div id="menu_titlu"><span class="menu_titlu">Imbracaminte</span></div>\r\n\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=25">Lucy Hera</a></div>\r\n			</div>\r\n		<div id="menu">\r\n		<div id="menu_titlu"><span class="menu_titlu">Instruire, cursuri</span></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=23">CEPECA Consulting Center</a></div>\r\n			</div>\r\n		<div id="menu">\r\n\r\n		<div id="menu_titlu"><span class="menu_titlu">Internet</span></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=54">Zezeanu Design</a></div>\r\n			</div>\r\n		<div id="menu">\r\n		<div id="menu_titlu"><span class="menu_titlu">Medicina</span></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=41">Optilaser</a></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=21">Dentland</a></div>\r\n\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=57">Centrul medical Simptom</a></div>\r\n			</div>\r\n		<div id="menu">\r\n		<div id="menu_titlu"><span class="menu_titlu">Mobilier</span></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=20">Unican Production</a></div>\r\n			</div>\r\n		<div id="menu">\r\n\r\n		<div id="menu_titlu"><span class="menu_titlu">Servicii</span></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=42">Pano boutique</a></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=19">Galimex</a></div>\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=51">e-motion film</a></div>\r\n			</div>\r\n		<div id="menu">\r\n		<div id="menu_titlu"><span class="menu_titlu">Tiparituri</span></div>\r\n\r\n				<div id="menu_opt"><a class="menu" href="showimg.php?id=18">CIVIO</a></div>\r\n			</div>\r\n	</div>\r\n<div id="centru_s">\r\n				<div id="text"><div id="txt"><h2></h2>\r\n			<h1>\r\n				Atentie la caile respiratorii			</h1>\r\n							<img src="imagini/thumb/art-potaie.jpg" align="right" style="margin: 2px 2px 2px 2px" border="0">\r\n\r\n				Si animalele de companie se imbolnavesc mai usor iarna\r\nSezonul rece reprezinta un factor de îmbolnavire nu doar pentru oameni, ci si pentru animalele de companie, în special câini si pisici. Temperaturile reci pot produce îmbolnaviri mai mult sau mai putin grave, iar cel mai afectate sunt caile respiratorii.\r\nCâinii sunt astfel predispusi la boli precum laringite, bronsite, care, netratate la timp, pot lua forme mai grave, de congestii pulmonare. \r\nAceastea reprezinta rezultatul actiunii îndelungate...			</div><div id="continuare"><a href="showart.php?id=46" class="continuare"><img src="imagini/continuare.gif" border="0">Continuare</a></div></div>\r\n			</div>\r\n\r\n<div id="centru_d">\r\n		\r\n</div>\r\n<div id="centru_s">\r\n	</div>\r\n\r\n<div id="centru_d">\r\n					<div id="text"><div id="txt"><h2></h2><h1>ENERGOSTAR - aparatul care te însanatoseste</h1>\r\n\r\n				Medicina traditionala punea omul sa faca lucruri de bun-simt, de la consumul de ceaiuri si pâna la regim alimentar si detoxifiere. Acum, bolnavul este, de cele mai multe ori, îmbuibat cu medicamente. În fapt, boala reprezinta un dezechilibru energetic si, de aceea, tratamentul trebuie sa porneasca întotdeauna de la cauza. Toate bolile ar trebui sa fie astfel tratabile, la nivelul reechilibrarii energetice. ENERGOSTAR este un aparat conceput pentru a trata energetic diagnostice în fata carora, de...				</div><div id="continuare"><a href="showart.php?id=48" class="continuare"><img src="imagini/continuare.gif" border="0">Continuare</a></div></div>\r\n					\r\n</div>\r\n<div id="centru_s">\r\n				<div id="text"><div id="txt"><h2></h2>\r\n			<h1>\r\n				Totul pentru bebelusul tau			</h1>\r\n							<img src="imagini/thumb/art-carucior.jpg" align="right" style="margin: 2px 2px 2px 2px" border="0">\r\n				Venirea pe lume a primului copil într-o familie înseamna, pe lânga bucuria parintilor, o investitie pentru lucrurile necesare oricarui bebelus. Daca  se face un studiu asupra pietei de profil, se observa ca, în ultimii ani, aceasta s-a dezvoltat considerabil, tot mai multe firme de renume patrunzând în tara noastra. Un exemplu în acest sens îl constituie si magazinul Â“BarzaÂ”, care va pune la dispozitie o gama larga de produse: de la scutece si pantalonasi de bumbac si pâna la carucioare si patuturi,...			</div><div id="continuare"><a href="showart.php?id=44" class="continuare"><img src="imagini/continuare.gif" border="0">Continuare</a></div></div>\r\n\r\n			</div>\r\n\r\n<div id="centru_d">\r\n		\r\n</div>\r\n<div id="centru_s">\r\n	</div>\r\n\r\n<div id="centru_d">\r\n					<div id="text"><div id="txt"><h2>Bob a testat pentru voi</h2><h1>Radu Fitness International</h1>\r\n				Fosta mea prietena obisnuia sa-mi repete incontinuu ca am inceput sa ma ingras, ca nu mai am 20 de ani, si ca ar trebui sa incep sa-mi supraveghez alimentatia si sa fac sport, doua lucruri care nu erau pe lista mea de prioritati. Asa ca mi-am schimbat prietena. Problema e ca si actuala prietena mi-a dat de inteles acelasi lucru, insa mi-a vorbit si despre Radu Teodorescu.  Toata lumea (sau aproape toata lumea) il cunoaste pe Radu Teodorescu, antrenorul lui Cindy Crawford, Meg Ryan, Matthew Broderick...				</div><div id="continuare"><a href="showart.php?id=91" class="continuare"><img src="imagini/continuare.gif" border="0">Continuare</a></div></div>\r\n\r\n					\r\n</div>\r\n<div id="col_dreapta">\r\n<a href="showart.php?id=76"><img src="imagini/biomed-web.gif" border="0"></a><br><br>\r\n<a href="showimg.php?id=19"><img src="imagini/galimex2.jpg" border="0"></a><br><br>\r\n<a href="showimg.php?id=29"><img src="imagini/petrecere2.jpg" border="0"></a>\r\n</div>\r\n<div id="clear">&nbsp;</div>\r\n\r\n</body>\r\n</html>', 0, 'html', 'html', 'none');
INSERT INTO `pastebin` VALUES (2622, 'Juzzy', '2005-01-29 15:32:35', 'struct ip_obj {\r\n	unsigned int ip;\r\n	unsigned short port;\r\n};\r\nstruct d_item { //ip and port entry\r\n	struct ip_obj *ipobj;\r\n	struct d_item *next;\r\n	struct d_item *nextrr;\r\n};\r\n\r\nstruct d_node { //domain list and relays\r\n	char *domain;\r\n	unsigned short count;\r\n	struct d_item *list;\r\n};\r\n\r\n\r\nstruct ip_obj *get_next_ip(struct d_item *ptr) {\r\n	if (ptr->nextrr == NULL)\r\n		ptr->nextrr = ptr;\r\n	else\r\n		ptr->nextrr = ptr->nextrr->next;\r\n\r\n	if (ptr->nextrr == NULL)\r\n		ptr->nextrr = ptr;\r\n\r\n	return ptr->nextrr->ipobj;\r\n}\r\n\r\nint main() {\r\n	struct ip_obj *tmp;\r\n	int i;\r\n	add_domain("juz.gov",2342342,6000);\r\n	add_domain("juz.gov",2342355,21025);\r\n	add_domain("juzcode.gov",2342342,3943);\r\n	add_domain("frank.gov",1342355,36);\r\n	add_domain("frank.gov",2342354,24);\r\n	add_domain("frank.gov",33323342,32);\r\n	add_domain("frank.gov",4322342,25);\r\n	add_domain("frank.gov",5312342,3356);\r\n	//print_bl();\r\n	for (i=0;i<13;i++) {\r\n		tmp = get_ip("juz.gov");\r\n		printf("juz.gov - %d - %u:%d\\n",i,tmp->ip,tmp->port);\r\n	}\r\n	for (i=0;i<14;i++) {\r\n		tmp = get_ip("juzcode.gov");\r\n		printf("juzcode.gov - %d - %u:%d\\n",i,tmp->ip,tmp->port);\r\n	}\r\n	for (i=0;i<15;i++) {\r\n		tmp = get_ip("frank.gov");\r\n		printf("frank.gov - %d - %u:%d\\n",i,tmp->ip,tmp->port);\r\n	}\r\n\r\n	return 0;\r\n}\r\n\r\noutput:\r\n./domains\r\nadd_dip(''juz.gov'',2342342,6000)\r\nadd_dip(''juz.gov'',2342355,21025)\r\nadd_dip(''juzcode.gov'',2342342,3943)\r\nadd_dip(''frank.gov'',1342355,36)\r\nadd_dip(''frank.gov'',2342354,24)\r\nadd_dip(''frank.gov'',33323342,32)\r\nadd_dip(''frank.gov'',4322342,25)\r\nadd_dip(''frank.gov'',5312342,3356)\r\njuz.gov - 0 - 2342342:6000\r\njuz.gov - 1 - 2342355:21025\r\njuz.gov - 2 - 2342342:6000\r\njuz.gov - 3 - 2342355:21025\r\njuz.gov - 4 - 2342342:6000\r\njuz.gov - 5 - 2342355:21025\r\njuz.gov - 6 - 2342342:6000\r\njuz.gov - 7 - 2342355:21025\r\njuz.gov - 8 - 2342342:6000\r\njuz.gov - 9 - 2342355:21025\r\njuz.gov - 10 - 2342342:6000\r\njuz.gov - 11 - 2342355:21025\r\njuz.gov - 12 - 2342342:6000\r\njuzcode.gov - 0 - 2342342:3943\r\njuzcode.gov - 1 - 2342342:3943\r\njuzcode.gov - 2 - 2342342:3943\r\njuzcode.gov - 3 - 2342342:3943\r\njuzcode.gov - 4 - 2342342:3943\r\njuzcode.gov - 5 - 2342342:3943\r\njuzcode.gov - 6 - 2342342:3943\r\njuzcode.gov - 7 - 2342342:3943\r\njuzcode.gov - 8 - 2342342:3943\r\njuzcode.gov - 9 - 2342342:3943\r\njuzcode.gov - 10 - 2342342:3943\r\njuzcode.gov - 11 - 2342342:3943\r\njuzcode.gov - 12 - 2342342:3943\r\njuzcode.gov - 13 - 2342342:3943\r\nfrank.gov - 0 - 1342355:36\r\nfrank.gov - 1 - 2342354:24\r\nfrank.gov - 2 - 33323342:32\r\nfrank.gov - 3 - 4322342:25\r\nfrank.gov - 4 - 5312342:3356\r\nfrank.gov - 5 - 1342355:36\r\nfrank.gov - 6 - 2342354:24\r\nfrank.gov - 7 - 33323342:32\r\nfrank.gov - 8 - 4322342:25\r\nfrank.gov - 9 - 5312342:3356\r\nfrank.gov - 10 - 1342355:36\r\nfrank.gov - 11 - 2342354:24\r\nfrank.gov - 12 - 33323342:32\r\nfrank.gov - 13 - 4322342:25\r\nfrank.gov - 14 - 5312342:3356', 0, 'none', 'linked list fun: round robin entries', 'none');
INSERT INTO `pastebin` VALUES (2623, 'a', '2005-01-30 06:32:25', 'aaaaaaaaaaaa', 0, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2624, 'deepwrk', '2005-01-31 07:31:06', 'bind pub -|- !imdbq pub_imdb_quotes\r\n\r\nproc save_imdb_quotes {} {\r\n  global imdb_quotes\r\n  set wfile [open scripts/imdb_quotes.dat w]\r\n  foreach q $imdb_quotes(saved) {\r\n    puts $wfile [html_replace $q]\r\n  }\r\n  close $wfile\r\n}\r\n\r\nproc load_imdb_quotes {} {\r\n  global imdb_quotes\r\n  if {![file exists scripts/imdb_quotes.dat]} {\r\n    set wfile [open scripts/imdb_quotes.dat w]\r\n    puts $wfile ""\r\n    close $wfile\r\n  }\r\n  set rfile [open scripts/imdb_quotes.dat r]\r\n  catch {unset imdb_quotes(saved)}\r\n  while {![eof $rfile]} {\r\n    set line [gets $rfile]\r\n    if {$line==""} { continue }\r\n    lappend imdb_quotes(saved) $line\r\n  }\r\n  close $rfile\r\n  if {![info exists imdb_quotes(saved)]} { set imdb_quotes(saved) "" }\r\n}\r\n\r\nload_imdb_quotes\r\n', 0, 'tcl', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2625, 'deepwrk', '2005-01-31 08:08:36', '# ImDB Quotes\r\n#\r\n# Description: Pulls quotes from ImDB\r\n#\r\n# Features: Movie/Show Specific Quotes, offline database building\r\n# of pulled quotes for more advanced searching. Builds local database from \r\n# movie favorites specified.\r\n#\r\n# Usage: \r\n#		!imdbq -list ?-c##? ?-e? <movie title>\r\n#			This Displays movies/shows and there imdb ID''s for use \r\n#			with the -add function to mass add quotes.\r\n#			Use -cX with X = Number of results to show, to limit results.\r\n#			Use -e to force exact result matching.\r\n#		!imdbq -random\r\n#			Plays a random quote pulled from imdb.com.\r\n#		!imdbq -add <imdb ID>\r\n#			Enters entire database of quotes from the show/movie\r\n#			specified.\r\n#		!imdbq -del <Show Title>\r\n#			Searchs and deletes shows matching pattern given.\r\n#		!imdbq -info\r\n#			Displays Number of entries for each show as well as\r\n#			a grand total of entries among all shows.\r\n#		!imdbq\r\n#			By itself it will pull from the local database or\r\n#			will pull randomly depending on your options set.\r\n#\r\n# Edit below parameters to start automatic timer functions.\r\n#\r\n# Author: eRUPT(erupt@ruptbot.com) / Web: www.ruptbot.com\r\n#\r\n\r\n\r\n#This will turn on local saving which can be used for creating a custom\r\n#quote database from particular shows/movies you enjoy. [0 = Off, 1 = On]\r\nset imdb_quotes(local) 1\r\n\r\n#Spit Random quotes on a timer? (If local saving is turned on local quotes are used)\r\n#[0 = Off, XXX = Minutes between Announces]\r\nset imdb_quotes(random) 60\r\n\r\n#If random quotes are to be sent to which channels?\r\nset imdb_quotes(random_chans) {\r\n #the-matrix\r\n}\r\n\r\n#Should we default all output to Private Notice? [0 = No, 1 = Yes]\r\nset imdb_quotes(private) 0\r\n\r\n#Maximum number of Shows/Movies to display by default?\r\n#(Pokemon will give you like 40+ results)\r\nset imdb_quotes(MAX) 4\r\n\r\n#Flags allowed to Add local quotes to the bot. \r\nset imdb_quotes(add_flag) "m"\r\n\r\n#Flags allowed to Delete local quotes to the bot.\r\nset imdb_quotes(del_flag) "m"\r\n\r\n#Should the bot try to perform its own secondary exact search\r\n#on the results by default? (You can always use -e to force exact searches)\r\n#[0 = No, 1 = Yes]\r\nset imdb_quotes(exact) "0"\r\n\r\n\r\n\r\nset imdb_quotes(ver) v1.2a\r\n\r\nif {$imdb_quotes(random)>0} {\r\n  set i_timer 1\r\n  foreach timer [timers] { if {[lindex [lindex $timer 1] 0]=="pub_imdb_quotes"} { set i_timer 0 } }\r\n  if {$i_timer} { timer $imdb_quotes(random) "pub_imdb_quotes . . . timer \\"\\"" }\r\n}\r\n\r\n\r\n\r\nbind pub -|- !imdbq pub_imdb_quotes\r\n\r\nproc save_imdb_quotes {} {\r\n  global imdb_quotes\r\n  set wfile [open scripts/imdb_quotes.dat w]\r\n  foreach q $imdb_quotes(saved) {\r\n    puts $wfile [html_replace $q]\r\n  }\r\n  close $wfile\r\n}\r\n\r\nproc load_imdb_quotes {} {\r\n  global imdb_quotes\r\n  if {![file exists scripts/imdb_quotes.dat]} {\r\n    set wfile [open scripts/imdb_quotes.dat w]\r\n    puts $wfile ""\r\n    close $wfile\r\n  }\r\n  set rfile [open scripts/imdb_quotes.dat r]\r\n  catch {unset imdb_quotes(saved)}\r\n  while {![eof $rfile]} {\r\n    set line [gets $rfile]\r\n    if {$line==""} { continue }\r\n    lappend imdb_quotes(saved) $line\r\n  }\r\n  close $rfile\r\n  if {![info exists imdb_quotes(saved)]} { set imdb_quotes(saved) "" }\r\n}\r\n\r\nload_imdb_quotes\r\n\r\nproc check_line {line} {\r\n  set tries 0\r\n  set buffer ""\r\n  set nextline ""\r\n  while {[string length $line]>360} {\r\n    if {$tries>4} { break }\r\n    if {[regexp {(.*[.?!])([^.]{15,}[.?!]?)} $line match newline nextline]} {\r\n      if {$nextline!=""} {\r\n	set line $newline\r\n	lappend buffer $nextline\r\n	set nextline ""\r\n      }\r\n    }\r\n    incr tries\r\n  }\r\n  return [linsert $buffer 0 $line]\r\n}\r\n\r\nproc html_replace {quotes} {\r\n  regsub -all {&#8216;|&lsquo;} $quotes "\\`" quotes\r\n  regsub -all {&#8217;|&rsquo;} $quotes "\\''" quotes\r\n  foreach index [lsort -decreasing [regexp -all -indices -inline {&#[0-9]+;} $quotes]] {\r\n     set binary_value [string range $quotes [lindex $index 0] [lindex $index 1]]\r\n     regexp {[0-9]+} $binary_value match\r\n     set quotes [string replace $quotes [lindex $index 0] [lindex $index 1] [format %c $match]]\r\n  }\r\n  return $quotes\r\n}\r\n\r\nproc get_imdb_quotes {private where nick function max exact show} {\r\n  global tokens\r\n  package require http\r\n  http::config -useragent "Mozilla/5.0"\r\n  set search $show\r\n  if {$show!=""} {\r\n    regsub -all " " $show "+" show\r\n  }\r\n  switch $function {\r\n    random { set url http://us.imdb.com/Sections/Quotes/ }\r\n    list { set url http://us.imdb.com/find?tt=on\\;nm=on\\;q=$show }\r\n    add { set url http://us.imdb.com/title/tt$show/quotes }\r\n  }\r\n  set conn [http::geturl $url -command spit_imdb_quotes]\r\n  set tokens($conn) "$private $where $nick [unixtime] $function $max $exact $search" \r\n}\r\n\r\nproc spit_imdb_quotes {token} {\r\n  global tokens imdb_quotes\r\n  set private [lindex $tokens($token) 0]\r\n  set where [lindex $tokens($token) 1]\r\n  set unixtime [lindex $tokens($token) 3]\r\n  set function [lindex $tokens($token) 4]\r\n  set max [lindex $tokens($token) 5]\r\n  set exact [lindex $tokens($token) 6]\r\n  set search_term [lrange $tokens($token) 7 end]\r\n  unset tokens($token)\r\n  upvar #0 $token http\r\n  if {$http(status)=="error"} {\r\n    if {$http(error)!=""} {\r\n      putserv  "$private $where :Error: $http(error)"\r\n      return 0\r\n    }\r\n  }\r\n  if {$http(status)=="timeout"} {\r\n    putserv "$private $where :Error: Timeout."\r\n    return 0\r\n  }\r\n  catch {\r\n	  switch $function {\r\n    random {\r\n      foreach line [split $http(body) \\n] {\r\n        if {[string match *BLOQUOTE* $line]} {\r\n          regsub -all {<[^>]*>} $line {} line\r\n          regexp {(.*)from:(.*)} $line match quotes movie\r\n          break\r\n        }\r\n      }\r\n      if {$private=="PRIVMSG" && $where=="timer"} { foreach where $imdb_quotes(random_chans) { putserv "$private $where :\\002$movie\\002 - $quotes" } } else {\r\n	putserv "$private $where :\\002$movie\\002 - $quotes"\r\n      }\r\n    }\r\n    list {\r\n      foreach line [split $http(body) \\n] {\r\n	if {[regexp {href=\\"/title/tt([0-9]*)/\\">([^<]*)(.*?aka <i>"?([^<"]*)"?)?} $line regexp title_number title_name aka_match aka_title]} {\r\n	  set shows($title_number) $title_name\r\n	  lappend show_list $title_number\r\n	}\r\n      }\r\n      set buffer_list "" ; set ebuffer_list ""\r\n      set cur_count 0\r\n      if {$max!=""} { set max_incr 1 } else { set max 0 }\r\n      if {![info exists shows]} {\r\n        putserv "$private $where :No Results."\r\n      } else {\r\n	  if {$exact} {\r\n	    set show_len [llength [array names shows]]\r\n	    if {$show_len>$max} {\r\n	      foreach show [$show_list] {\r\n	        set match 0\r\n	        foreach term [string tolower $search_term] {\r\n		  if {[string match *$term* [string tolower $shows($show)]]} { set match 1 } else { set match 0 }\r\n	        }\r\n	        if {$match} {\r\n	          set exp ^.?[string tolower $search_term].?.?\\\\\\(\\[?0-9\\]*\\\\\\).*\r\n		  if {[regexp $exp [string tolower $shows($show)]]} { lappend ebuffer_list $show } else {\r\n		    lappend buffer_list $show\r\n		  }\r\n		  set index [lsearch -exact $show_list $show]\r\n		  set show_list [lreplace $show_list $index $index]\r\n	        }\r\n	      }\r\n	    }\r\n	    set full_list $ebuffer_list\r\n	    append full_list " " $buffer_list\r\n	    append full_list " " $show_list\r\n	  } else { set full_list $show_list }\r\n	  foreach show $full_list {\r\n	    incr cur_count $max_incr\r\n	    if {$cur_count>$max} { break }\r\n	    putserv "$private $where :\\002[html_replace $shows($show)]\\002 \\037\\[ $show \\]\\037"\r\n	  }\r\n	}\r\n    }\r\n    add {\r\n      regexp -nocase {<strong[^>]*>(.*)</strong>} $http(body) match show\r\n      if {![info exists show]} {\r\n	putserv "$private $where :Couldn''t find quotes for that show"\r\n	return 0\r\n      }\r\n      regsub -all {<[^>]*>|\\n} $show {} show\r\n      set show [html_replace $show]\r\n      regexp -nocase {<a name=\\"qt[0-9]*\\">(.*)<p [^>]*>} $http(body) match quotes\r\n      regsub {</P>.*} $quotes {} quotes\r\n      regsub -all {<hr width=\\"30%\\">} $quotes \\002 quotes\r\n      regsub -all {<br>} $quotes |BR| quotes\r\n      regsub -all {<p align=\\"center\\">\\|BR\\|Browse titles.*} $quotes {} quotes\r\n      regsub -all {<[^>]*>|\\n} $quotes {} quotes\r\n      regsub -all : $quotes ": " quotes\r\n      set quotes [html_replace $quotes]\r\n      set cnt 0\r\n      foreach quote [split $quotes \\002] {\r\n	lappend imdb_quotes(saved) "$show||$quote"\r\n	incr cnt\r\n      }\r\n      save_imdb_quotes\r\n      putserv "$private $where :\\002$cnt\\002 Quotes added from \\002$show\\002"\r\n    }\r\n  }\r\n  } err\r\n  if {$err!=""} { putlog "Error: $err" }\r\n}\r\n\r\nproc pub_imdb_quotes {nick uhost hand chan arg} {\r\n  global imdb_quotes tokens randnum\r\n  set private 0\r\n  set function random\r\n  set exact $imdb_quotes(exact)\r\n  if {$imdb_quotes(local)} {\r\n    set function local\r\n  }\r\n  if {$imdb_quotes(private) && $hand=="*"} { set private 1 }\r\n  if {[set index [lsearch -exact $arg -del]]!="-1"} {\r\n    set function "delete"\r\n    set arg [lreplace $arg $index $index]\r\n    if {![matchattr $hand $imdb_quotes(del_flag)]} {\r\n      putnot $nick "You don''t have access to -del, your a peasant don''t you see?"\r\n      return 0\r\n    }\r\n    if {$arg==""} {\r\n      putnot $nick "Usage: !imdbq -del <Search Terms>"\r\n      return 0\r\n    }\r\n  }\r\n  if {[set index [lsearch -exact $arg -p]]!="-1"} {\r\n    set private 1\r\n    set arg [lreplace $arg $index $index]\r\n  }\r\n  if {[set index [lsearch -exact $arg -random]]!="-1"} {\r\n    set function "random"\r\n    set arg [lreplace $arg $index $index]\r\n  }\r\n  if {[set index [lsearch -exact $arg -list]]!="-1"} {\r\n    set function "list"\r\n    set arg [lreplace $arg $index $index]\r\n    if {$arg==""} {\r\n      putnot $nick "Usage: !imdbq -list ?-c##? ?-e? <search terms>"\r\n      return 0\r\n    }\r\n    set max $imdb_quotes(MAX)\r\n    if {[set index [lsearch -regexp $arg {-c[0-9]*}]]!="-1"} {\r\n      set max [string range [lindex $arg $index] 2 end]\r\n      set arg [lreplace $arg $index $index]\r\n      regsub -all {[^0-9]} $max "" max\r\n      if {$max==""} {\r\n	putnot $nick "Invalid count Flag number specified (Use a integer)"\r\n	return 0\r\n      }\r\n    }\r\n    if {[set index [lsearch -exact $arg -e]]!="-1"} {\r\n      set exact 1\r\n      set arg [lreplace $arg $index $index]\r\n    }\r\n  }\r\n  if {[set index [lsearch -exact $arg -info]]!="-1"} {\r\n    set function "info"\r\n    set arg [lreplace $arg $index $index]\r\n  }\r\n  if {[set index [lsearch -exact $arg -add]]!="-1"} {\r\n    if {!$imdb_quotes(local)} {\r\n      putnot $nick "Local Quote Storing has been turned off. Please bother the bot owner."\r\n      return 0\r\n    }\r\n    set function "add"\r\n    if {![matchattr $hand $imdb_quotes(add_flag)]} {\r\n      putnot $nick "You don''t have access to -add, your a peasant don''t you see?"\r\n      return 0\r\n    }\r\n    set arg [lreplace $arg $index $index]\r\n    if {$arg==""} {\r\n      putnot $nick "Usage: !imdbq -add <imdb Show ID>"\r\n      return 0\r\n    }\r\n    if {[regexp {[^0-9]} $arg]} {\r\n      putnot $nick "Invalid Show ID!"\r\n      return 0\r\n    }\r\n  }\r\n  foreach array [array names tokens] {\r\n    if {$nick==[lindex $tokens($array) 2]} {\r\n      if {[expr [unixtime] - [lindex $tokens($array) 3]]>300} {\r\n        unset tokens($array)\r\n      } else {\r\n          putnot $nick "You already have one query open wait a couple, go to blockbuster."\r\n          return 0\r\n        }\r\n    }\r\n  }\r\n  if {($chan=="timer") && ($imdb_quotes(random)>0)} {\r\n    timer $imdb_quotes(random) "pub_imdb_quotes . . . timer \\"\\""\r\n    set private 0\r\n  }\r\n  if {$private} {\r\n    set type "NOTICE"\r\n  } else {\r\n      set type "PRIVMSG"\r\n    }\r\n  if {$function=="delete"} {\r\n    regsub -all {^|$| } $arg "*" arg\r\n    set quotes ""\r\n    foreach quote $imdb_quotes(saved) {\r\n      regexp {(.*)\\|\\|} $quote match show\r\n      regsub -all \\" $show {} show\r\n      if {![string match $arg $show]} { lappend quotes $quote }\r\n    }\r\n    if {[llength $quotes]==[llength $imdb_quotes(saved)]} { putnot $nick "Match not found!" ; return 0 }\r\n    putnot $nick "Deleted \\002[expr [llength $imdb_quotes(saved)] - [llength $quotes]]\\002 entries"\r\n    set imdb_quotes(saved) $quotes\r\n    return 1\r\n  }\r\n  if {$function=="info"} {\r\n    foreach quote $imdb_quotes(saved) {\r\n      regexp {(.*)\\|\\|} $quote match show\r\n      regsub -all \\" $show {} show\r\n      regsub -all " " $show "_" show\r\n      if {![info exists shows($show)]} {\r\n	set shows($show) 1\r\n      } else { incr shows($show) }\r\n    }\r\n    set grandtotal 0\r\n    foreach show [array names shows] {\r\n      regsub -all "_" $show " " n_show\r\n      putnot $nick "\\002$n_show\\002 has $shows($show) entries"\r\n      incr grandtotal $shows($show)\r\n    }\r\n    putnot $nick "A grandtotal of \\[\\002$grandtotal\\002\\] entries"\r\n    return 1\r\n  }\r\n  if {$function=="local"} {\r\n    if {![info exists randnum]} { set randnum "" }\r\n    set quotes $imdb_quotes(saved)\r\n    if {$arg!=""} {\r\n      regsub -all {^|$| } $arg "*" arg\r\n      set quotes ""\r\n      foreach quote $imdb_quotes(saved) {\r\n        regexp {(.*)\\|\\|} $quote match show\r\n        regsub -all \\" $show {} show\r\n	if {[string match [string tolower $arg] [string tolower $show]]} { lappend quotes $quote }\r\n      }\r\n      if {$quotes==""} { putnot $nick "Match not found!" ; return 0 }\r\n    }\r\n    if {[llength $quotes]<1} {\r\n      putnot $nick "You don''t have any locally saved quotes please add some using !imdbq -add <imdb Show ID>"\r\n      return 0\r\n    }\r\n    set newrandnum [rand [llength $quotes]]\r\n    while {$newrandnum==$randnum} {\r\n      set newrandnum [rand [llength $quotes]]\r\n    }\r\n    set randnum $newrandnum\r\n    regexp {(.*)\\|\\|(.*)} [lindex $quotes $randnum] match show quote\r\n    regsub -all {\\|BR\\|} $quote \\002 quote\r\n    set show "\\002$show\\002 - "\r\n    if {$private} {\r\n      set go 0\r\n      foreach line [split $quote \\002] {\r\n	if {$line==""} { continue }\r\n	if {[string length $line]>360} {\r\n	  set line [check_line $line]\r\n	  foreach ln $line { putserv "NOTICE $nick :$show $ln" ; set show "" }\r\n	} else {\r\n	    putserv "NOTICE $nick :$show $line"\r\n	  }\r\n	if {!$go} { set show "" ; set go 1 }\r\n      }\r\n    } else {\r\n        set go 0\r\n        foreach line [split $quote \\002] {\r\n	  if {$line==""} { continue }\r\n	  if {[string length $line]>360} {\r\n	    set line [check_line $line]\r\n	    if {$chan=="timer"} {\r\n	      foreach ln $line { foreach chan $imdb_quotes(random_chans) { putserv "PRIVMSG $chan :$show $ln" } ; set show "" }\r\n	      set chan "timer"\r\n	    } else {\r\n		foreach ln $line { putserv "PRIVMSG $chan :$show $ln" ; set show "" }\r\n	      }\r\n	  } else {\r\n\r\n  	  if {$chan=="timer"} {\r\n            foreach chan $imdb_quotes(random_chans) { putserv "PRIVMSG $chan :$show $line" }\r\n	    set chan "timer"\r\n	  } else {\r\n	      putserv "PRIVMSG $chan :$show $line"\r\n	    }\r\n\r\n	  }\r\n  	  if {!$go} { set show "" ; set go 1 }\r\n        }\r\n      }\r\n  } else {\r\n      if {![info exists max]} { set max "" }\r\n      get_imdb_quotes $type $chan $nick $function $max $exact $arg\r\n    }\r\n  return 1\r\n}\r\n\r\nputlog "ImDB Quotes query tools for eggdrop by eRUPT(erupt@ruptbot.com) $imdb_quotes(ver)"\r\n', 2624, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2631, 'leprechau', '2005-01-31 22:35:36', '## channels you want to keep a count file for\r\n## do the following: .chanset #channel +trackcount\r\n## on your partyline\r\n\r\n\r\nnamespace eval ::ChanCount {\r\n\r\n   ## settings ##\r\n\r\n   variable uninterval 3;\r\n   ## update interval in minutes\r\n\r\n   variable savepath "/home/you/eggdrop/text/"\r\n   ## path INCLUDING the trailing slash\r\n   ## files will be the lowercase channel name\r\n   ## special chars will be replaced with an underscore ''_''\r\n\r\n   ## do not change below here ##\r\n   variable uinterval2 0\r\n   setudef flag trackcount\r\n\r\n   proc doCount {chan} {\r\n      set fid [open $::ChanCount::savepath[::ChanCount::fixFile $chan] w]\r\n      puts $fid [llength [chanlist $chan]]; close $fid\r\n   }\r\n\r\n   proc fixFile {text} {\r\n      string map {\r\n         {~} {_} {`} {_} {!} {_} {$} {_}\r\n         {%} {_} {^} {_} {&} {_} {*} {_}\r\n         {:} {_} {;} {_} {|} {_} {/} {_}\r\n         {"} {_} {''} {_} {?} {_} {<} {_}\r\n         {>} {_} \\\\ {_}} $text\r\n   }\r\n\r\n   proc getCount {minute hour day month year} {\r\n      if {[incr ::ChanCount::uinterval2] >= $::ChanCount::uinterval} {\r\n         foreach chan [channels] {\r\n            if {[channel get $chan trackcount]} {\r\n               ::ChanCount::doCount $chan\r\n            }\r\n         }\r\n         set ::ChanCount::uinterval2 0\r\n      }\r\n   }\r\n   bind time - "* * * * *" ::ChanCount::getCount\r\n}\r\n', 2630, 'tcl', 'umm..hehe forgot a } at the end :p', '#EggTCL');
INSERT INTO `pastebin` VALUES (2627, 'leprechau', '2005-01-31 16:52:56', 'proc pubOp {nick uhost hand chan text} {\r\n   switch -- $::lastbind {\r\n      !op {putserv "MODE $chan +o $nick"}\r\n      !deop {putserv "MODE $chan -o $nick"}\r\n   }\r\n}\r\nbind pub !op o|o pubOp\r\nbind pub !deop o|o pubOp\r\n', 0, 'tcl', 'simple pub commands', 'none');
INSERT INTO `pastebin` VALUES (2628, 'Anonymous', '2005-01-31 19:51:46', 'bind - pub !spy ng_spy\r\n\r\nproc ng_spy {nick uhost hand chan text} {\r\n	ng_bandwidth $nick $uhost $hand $chan $text\r\n	ng_uploaders $nick $uhost $hand $chan $text\r\n	ng_leechers $nick $uhost $hand $chan $text\r\n}', 0, 'tcl', 'none', 'none');
INSERT INTO `pastebin` VALUES (2629, 'Anonymous', '2005-01-31 19:52:29', 'bind pub - !spy ng_spy\r\n\r\nproc ng_spy {nick uhost hand chan text} {\r\n	ng_bandwidth $nick $uhost $hand $chan $text\r\n	ng_uploaders $nick $uhost $hand $chan $text\r\n	ng_leechers $nick $uhost $hand $chan $text\r\n}', 2628, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2630, 'leprechau', '2005-01-31 22:35:05', '## channels you want to keep a count file for\r\n## do the following: .chanset #channel +trackcount\r\n## on your partyline\r\n\r\n\r\nnamespace eval ::ChanCount {\r\n\r\n   ## settings ##\r\n\r\n   variable uninterval 3;\r\n   ## update interval in minutes\r\n\r\n   variable savepath "/home/you/eggdrop/text/"\r\n   ## path INCLUDING the trailing slash\r\n   ## files will be the lowercase channel name\r\n   ## special chars will be replaced with an underscore ''_''\r\n\r\n   ## do not change below here ##\r\n   variable uinterval2 0\r\n   setudef flag trackcount\r\n\r\n   proc doCount {chan} {\r\n      set fid [open $::ChanCount::savepath[::ChanCount::fixFile $chan] w]\r\n      puts $fid [llength [chanlist $chan]]; close $fid\r\n   }\r\n\r\n   proc fixFile {text} {\r\n      string map {\r\n         {~} {_} {`} {_} {!} {_} {$} {_}\r\n         {%} {_} {^} {_} {&} {_} {*} {_}\r\n         {:} {_} {;} {_} {|} {_} {/} {_}\r\n         {"} {_} {''} {_} {?} {_} {<} {_}\r\n         {>} {_} \\\\ {_}} $text\r\n   }\r\n\r\n   proc getCount {minute hour day month year} {\r\n      if {[incr ::ChanCount::uinterval2] >= $::ChanCount::uinterval} {\r\n         foreach chan [channels] {\r\n            if {[channel get $chan trackcount]} {\r\n               ::ChanCount::doCount $chan\r\n            }\r\n         }\r\n         set ::ChanCount::uinterval2 0\r\n      }\r\n   }\r\n   bind time - "* * * * *" ::ChanCount::getCount\r\n', 0, 'tcl', 'record channel counts...for MariaL', '#EggTCL');
INSERT INTO `pastebin` VALUES (2632, 'leprechau', '2005-02-01 16:54:10', 'proc mapEntities {xml} {\r\n	if {[regexp -all -- {\\&\\#([^\\#]*)\\;} $xml]} {\r\n		foreach {x y} [regexp -all -inline -- {\\&\\#([^\\#]*)\\;} $xml] {\r\n			set xml [string map "$x [format %c 0$y]" $xml]\r\n		}; return $xml\r\n	} else {return $xml}\r\n}\r\n', 0, 'tcl', 'xml entities', '#EggTCL');
INSERT INTO `pastebin` VALUES (2633, 'triune', '2005-02-01 20:56:37', 'Wed Feb  2 04:00:53 2005 - Project-ZS Next Generation (pzs-ng) v0.7.3 (r1231, pre beta5) debug log for postdel.\r\nWed Feb  2 04:00:53 2005 - Reading user name from env\r\nWed Feb  2 04:00:53 2005 - Reading group name from env\r\nWed Feb  2 04:00:53 2005 - Clearing arrays\r\nWed Feb  2 04:00:53 2005 - Copying env/predefined username to raceI. (T)\r\nWed Feb  2 04:00:53 2005 - Copying env/predefined groupname to raceI. (VIP)\r\nWed Feb  2 04:00:53 2005 - File to remove is: nova.supersonic.dteam.hdtv.ac3.xvid-fqm.rar-missing\r\nWed Feb  2 04:00:53 2005 - Allocating memory for variables\r\nWed Feb  2 04:00:53 2005 - Copying data locations into memory\r\nWed Feb  2 04:00:53 2005 - Caching release name\r\nWed Feb  2 04:00:53 2005 - DEBUG 0: incomplete: ''../(incomplete)-NOVA.Supersonic.Dream.HDTV.AC3.XviD-FQM'', path: ''/site/secret/NOVA.Supersonic.Dream.HDTV.AC3.XviD-FQM''\r\nWed Feb  2 04:00:53 2005 - Parsing file extension from filename...\r\nWed Feb  2 04:00:53 2005 - Got: .rar-missing\r\nWed Feb  2 04:00:53 2005 - Copying lowercased version of extension to memory\r\nWed Feb  2 04:00:53 2005 - Reading race data from file to memory\r\nWed Feb  2 04:00:53 2005 - Caching progress bar\r\nWed Feb  2 04:00:53 2005 - Releasing memory\r\nWed Feb  2 04:00:53 2005 - Exit', 0, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2634, 'leprechau', '2005-02-02 15:28:57', '# couple things here...\r\n# first...always place binds AFTER procs...just good coding practice\r\n# second...use the ''arguments'' suggested in eggdrop doc/tcl-commands.doc for your procs\r\n# doc/tcl-commands.doc is your friend...read it ;}\r\n\r\nproc onDeop {nick uhost hand chan mode victim} {\r\n   if {[string equal -nocase $victim $::botnick]} {\r\n      putserv "PRIVMSG $chan :Op me"\r\n   }\r\n}\r\nbind mode - *-o* onDeop\r\n', 0, 'tcl', 'for testeer@eggtcl', '#EggTCL');
INSERT INTO `pastebin` VALUES (2635, 'leprechau', '2005-02-02 15:38:53', '\r\nnamespace eval ::dcctools {\r\n	namespace export chatInit\r\n	variable cText {}; variable servSock {}\r\n	variable dccSession; array set dccSession [list]\r\n\r\n	proc chatInit {client text} {\r\n		variable servSock; variable cText\r\n		if {![info exists ::my-ip]} {return}\r\n		set cText $text\r\n		foreach {a b c d} [split ${::my-ip} .] {}\r\n		set longip [format %u 0x[format %02X%02X%02X%02X $a $b $c $d]]\r\n		set servSock [socket -myaddr ${::my-ip} -server ::dcctools::chatAccept [set port [expr int(rand() * 3976) + 1024]]]\r\n		putserv "PRIVMSG $client :\\001DCC CHAT $client $longip $port\\001"\r\n	}\r\n\r\n	proc chatAccept {sock addr port} {\r\n		variable servSock; variable dccSession\r\n		putlog "Accepting DCC CHAT ($sock) connection from $addr:$port"\r\n		close $servSock; set dccSession($sock) [list $addr $port]\r\n		fconfigure $sock -buffering line\r\n		fileevent $sock writable [list ::dcctools::chatSend $sock]\r\n	}\r\n\r\n	proc chatSend {sock} {\r\n		variable dccSession; variable cText\r\n		fileevent $sock writable {}\r\n		puts $sock [join $cText \\n]\r\n		putlog "Terminating DCC CHAT ($sock) to [join $dccSession($sock) {:}]"; close $sock\r\n	}\r\n}\r\npackage provide dcctools 0.1\r\n', 0, 'tcl', 'dcc chat in pure tcl...for eggdrops', '#EggTCL');
INSERT INTO `pastebin` VALUES (2638, 'thedge', '2005-02-06 14:25:32', 'bind join - * joinproc\r\n\r\nproc joinproc {nick uhost hand chan} {\r\n	if {![string match -nocase "$chan" "#channel"]} { return 0 }\r\n\r\n	global joined\r\n\r\n	set ::joined($nick) [clock seconds]\r\n\r\n	if {[string equal -nocase $nick "Blacky"] || [string match -nocase "*@its.com" $uhost]} {\r\n\r\n		puthelp "PRIVMSG #controlchan :Blacky, i''m clearing your uptime-database so you can update your uptimes with mine" \r\n		putbot Blacky "clear"\r\n		puthelp "PRIVMSG #controlchan :Blacky, I''m sending the info..."\r\n\r\n		foreach nick [chanlist "#controlchan"] {\r\n			if {![info exists ::joined($nick)]} {\r\n				set ::joined($nick) [getchanjoin $nick #channel]\r\n			}\r\n			putbot Blacky "join $nick [expr {[clock seconds] - $::joined($nick)}]"\r\n			puthelp "PRIVMSG #controlchan :$nick has already joined as of [duration [expr {[clock seconds] - $::joined($nick)}]] ago" \r\n		}\r\n	} else {\r\n		putbot Blacky "join $nick 0"\r\n	}\r\n}', 2637, 'tcl', 'tabbed2', '#TCL');
INSERT INTO `pastebin` VALUES (2636, 'Brinko', '2005-02-06 14:16:35', 'bind join - * joinproc\r\nproc joinproc {nick uhost hand chan} {\r\nif {![string match -nocase "$chan" "#channel"]} { return 0 }\r\nglobal joined\r\nset ::joined($nick) [clock seconds]\r\nif {[string equal -nocase $nick "Blacky"] || [string match -nocase "*@its.com" $uhost]} {\r\nputhelp "PRIVMSG #controlchan :Blacky, i''m clearing your uptime-database so you can update your uptimes with mine" \r\nputbot Blacky "clear"\r\nputhelp "PRIVMSG #controlchan :Blacky, I''m sending the info..."\r\nforeach nick [chanlist "#controlchan"] {\r\nif {![info exists ::joined($nick)]} {\r\nset ::joined($nick) [getchanjoin $nick #channel]\r\n}\r\nputbot Blacky "join $nick [expr {[clock seconds] - $::joined($nick)}]"\r\nputhelp "PRIVMSG #controlchan :$nick has already joined as of [duration [expr {[clock seconds] - $::joined($nick)}]] ago" \r\n}\r\n} else {\r\nputbot Blacky "join $nick 0"\r\n}\r\n}', 0, 'none', 'Tcl error [joinproc]: invalid command name &quot;}&quot;', 'none');
INSERT INTO `pastebin` VALUES (2637, 'thedge', '2005-02-06 14:24:29', '	if {![string match -nocase "$chan" "#channel"]} { return 0 }\r\n\r\n	global joined\r\n\r\n	set ::joined($nick) [clock seconds]\r\n\r\n	if {[string equal -nocase $nick "Blacky"] || [string match -nocase "*@its.com" $uhost]} {\r\n\r\n		puthelp "PRIVMSG #controlchan :Blacky, i''m clearing your uptime-database so you can update your uptimes with mine" \r\n		putbot Blacky "clear"\r\n		puthelp "PRIVMSG #controlchan :Blacky, I''m sending the info..."\r\n\r\n		foreach nick [chanlist "#controlchan"] {\r\n			if {![info exists ::joined($nick)]} {\r\n				set ::joined($nick) [getchanjoin $nick #channel]\r\n			}\r\n			putbot Blacky "join $nick [expr {[clock seconds] - $::joined($nick)}]"\r\n			puthelp "PRIVMSG #controlchan :$nick has already joined as of [duration [expr {[clock seconds] - $::joined($nick)}]] ago" \r\n		}\r\n	} else {\r\n		putbot Blacky "join $nick 0"\r\n	}\r\n}', 2636, 'tcl', 'tabbed', '#TCL');
INSERT INTO `pastebin` VALUES (2639, 'Brinko', '2005-02-06 14:35:38', 'bind join - * joinproc\r\nproc joinproc {nick uhost hand chan} {\r\n  if {![string match -nocase "$chan" "#channel"]} { return 0 }\r\n  global joined\r\n#if {[isbotnick $nick]} {return}\r\n  set ::joined($nick) [clock seconds]\r\n#if {[string equal -nocase [nick2hand $nick] "Blacky"]} {\r\n  if {[string equal -nocase $nick "Blacky"] || [string match -nocase "*@testing.com" $uhost]} {\r\n	puthelp "PRIVMSG #controlchan :Blacky, i''m clearing your uptime-database so you can update your uptimes with mine" \r\n	putbot Blacky "clear"\r\n	puthelp "PRIVMSG #controlchan :Blacky, I''m sending the info..." \r\n	foreach nick [chanlist "#controlchan"] {\r\n		if {![info exists ::joined($nick)]} {\r\n		set ::joined($nick) [getchanjoin $nick #channel]\r\n		}\r\n  	putbot Blacky "join $nick [expr {[clock seconds] - $::joined($nick)}]"\r\n  	puthelp "PRIVMSG #controlchan :$nick has already joined as of [duration [expr {[clock seconds] - $::joined($nick)}]] ago" \r\n 	}\r\n  } else {\r\n     putbot Blacky "join $nick 0"\r\n    }\r\n}', 0, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2640, 'Anonymous', '2005-02-06 18:51:20', '[01:50] Tcl error [cmd:helpdcc]: missing "', 0, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2641, 'leprechau', '2005-02-06 23:53:29', '### example pythagorean triplet output\r\n### brute force method...\r\n### find all values who''s sum is less than 500\r\n### note: duplicate triplets are not removed\r\n\r\nfor {set x 1} {$x <= 500} {incr x} {\r\n	for {set y 1} {$y <= 500} {incr y} {\r\n		for {set z 1} {$z <= 500} {incr z} {\r\n			if {(pow($x,2) + pow($y,2)) == pow($z,2)} {\r\n				puts [format "%d, %d, %d" $x $y $z]\r\n			}\r\n		}\r\n	}\r\n}', 0, 'tcl', 'pythagorean triplets loop', 'none');
INSERT INTO `pastebin` VALUES (2642, 'leprechau', '2005-02-07 00:01:58', 'for(int x = 1; x <= 500; x++)\r\n{\r\n	for(int y = 1; y <= 500; y++)\r\n	{\r\n		for(int z = 1; z <= 500; z++)\r\n		{\r\n			if (((x*x) + (y*y)) == (z*z))\r\n			{\r\n				TRIPLET FOUND\r\n			}\r\n		}\r\n	}\r\n}', 0, 'java', 'triplets', 'none');
INSERT INTO `pastebin` VALUES (2643, 'leprechau', '2005-02-07 08:44:56', '### example code splitting\r\n\r\n## the semi-colon split\r\nscript line 1; script line 2\r\n\r\n### this is the same as above\r\nscript line 1\r\nscript line 2\r\n\r\n## splitting with \\\r\n\r\nscript \\\r\nline 1\r\nscript \\\r\nline 2\r\n\r\n## you can wrap commands that are too long to seperate lines using \\', 0, 'tcl', 'examples....', '#EggTCL');
INSERT INTO `pastebin` VALUES (2644, 'kjekay', '2005-02-07 16:08:51', '[soundbox@Login2 eggdrop]$ ./eggdrop -m eggdrop.conf\r\n\r\nEggdrop v1.6.17 (C) 1997 Robey Pointer (C) 2004 Eggheads\r\n[17:06] --- Loading eggdrop v1.6.17 (Mon Feb  7 2005)\r\n[17:06] Listening at telnet port 33333 (bots).\r\n[17:06] Listening at telnet port 25555 (users).\r\n[17:06] Can''t load modules dns: /home/soundbox/eggdrop/dns.so: cannot open shared object file: No such file or directory\r\n[17:06] Can''t load modules channels: /home/soundbox/eggdrop/channels.so: cannot open shared object file: No such file or directory\r\n[17:06] Can''t load modules server: /home/soundbox/eggdrop/server.so: cannot open shared object file: No such file or directory\r\n[17:06] Can''t load modules ctcp: /home/soundbox/eggdrop/ctcp.so: cannot open shared object file: No such file or directory\r\n[17:06] Can''t load modules irc: /home/soundbox/eggdrop/irc.so: cannot open shared object file: No such file or directory\r\n[17:06] Can''t load modules notes: /home/soundbox/eggdrop/notes.so: cannot open shared object file: No such file or directory\r\n[17:06] Can''t load modules console: /home/soundbox/eggdrop/console.so: cannot open shared object file: No such file or directory\r\n[17:06] Can''t load modules uptime: /home/soundbox/eggdrop/uptime.so: cannot open shared object file: No such file or directory\r\n[17:06] Tcl error in file ''eggdrop.conf'':\r\n[17:06] bad type, should be one of: act, away, bcst, bot, chat, chjn, chof, chon, chpt, dcc, disc, evnt, filt, link, load, nkch, note, time, unld\r\n    while executing\r\n"bind pub n .kicksource kicksource"\r\n    (file "scripts/kick_source_0_2.tcl" line 11)\r\n    invoked from within\r\n"source scripts/kick_source_0_2.tcl"\r\n    (file "eggdrop.conf" line 1325)\r\n[17:06] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)\r\n[soundbox@Login2 eggdrop]$ [17:06] Tcl error in file ''eggdrop.conf'':Eggdrop v1.6.17 (C) 1997 Robey Pointer (C) 2004 Eggheads\r\n-bash: syntax error near unexpected token `(''\r\n[soundbox@Login2 eggdrop]$ [17:06] --- Loading eggdrop v1.6.17 (Mon Feb  7 2005)\r\n-bash: syntax error near unexpected token `(''\r\n[soundbox@Login2 eggdrop]$ [17:06] Listening at telnet port 33333 (bots).\r\n-bash: syntax error near unexpected token `(''\r\n[soundbox@Login2 eggdrop]$ [17:06] Listening at telnet port 25555 (users).\r\n-bash: syntax error near unexpected token `(''\r\n[soundbox@Login2 eggdrop]$ [17:06] Can''t load modules dns: /home/soundbox/eggdrop/dns.so: cannot open shared object file: No such file or directory\r\n> [17:06] Can''t load modules channels: /home/soundbox/eggdrop/channels.so: cannot open shared object file: No such file or directory\r\n-bash: [17:06]: command not found\r\n[soundbox@Login2 eggdrop]$ [17:06] Can''t load modules irc: /home/soundbox/eggdrop/irc.so: cannot open shared object file: No such file or directory\r\n>\r\n', 0, 'none', 'eggdrop prob', 'none');
INSERT INTO `pastebin` VALUES (2127, 'Anonymous', '2004-08-10 12:08:18', 'proc some_calc { timestamp size } {\r\n  foreach {hour minute second} [split $timestamp ":"] {}\r\n  set time [expr ( $hour * 3600 ) + ( $minute * 60 ) + $second]\r\n  set size [expr $size * 1024]\r\n  set bitrate [expr ($size / $time) * 8]\r\n  puts "$bitrate kbit/s and [expr $bitrate / 8] kbyte/s"\r\n}', 2126, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2128, 'eNce', '2004-08-11 02:08:50', 'set avchan "#moons"\r\n\r\n\r\nbind join - * proc:join\r\n\r\nproc proc:join {n u h c} {\r\nglobal avchan botnick\r\n if {$n == $botnick} {\r\n  return 0\r\n }\r\n if {[isop $n $avchan]} {\r\n  return 0\r\n } else {\r\n    pushmode $avchan +v $n\r\n    return 0\r\n   }\r\n}\r\n', 0, 'tcl', 'none', '#TCL');
INSERT INTO `pastebin` VALUES (2129, 'homer', '2004-08-11 07:50:26', 'asd', 0, 'none', 'problems', 'none');
INSERT INTO `pastebin` VALUES (2130, 'Syn', '2004-08-11 10:03:40', 'bind pub - join join:join\r\n\r\nproc join:join { nick user@host handle channel text } \r\n{\r\n if {$handle != "Syn"} {\r\n  putnotc $nick "you cant make me!."\r\n  return 0\r\n}\r\nchannel add #text\r\n}', 0, 'tcl', 'Join script', '#TCL');
INSERT INTO `pastebin` VALUES (2131, 'Wertsache', '2004-08-11 10:21:15', 'bind pub - "!name" pfs_name\r\nproc pfs_name {nick host hand chan text} {\r\nset name [lindex $text 0]\r\nset section [lindex $text 1]\r\nif {$nick == "mynick"} {\r\nputserv "PRIVMSG #nxs :$name $section"\r\n}\r\n', 0, 'tcl', 'whats wrong with that script', '#EggTCL');
INSERT INTO `pastebin` VALUES (2132, 'Elfish', '2004-08-11 11:12:07', 'bind time - "14 00 * * *" time:announce\r\nbind time - "16 00 * * *" time:announce\r\nbind time - "18 00 * * *" time:announce\r\nbind time - "20 00 * * *" time:announce\r\nbind time - "22 00 * * *" time:announce\r\nbind time - "00 00 * * *" time:announce\r\n\r\n\r\nproc time:announce {nick host hand chan arg} {\r\n	foreach c [channels] {\r\n			putserv "PRIVMSG $c :$arg"\r\n		}\r\n}', 0, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2133, 'Aeacus', '2004-08-13 06:08:34', '# why use bind time when you have timer ? :)\r\n\r\nset interval 2\r\n\r\nset message "Hello all :)"\r\n\r\nif {![string match "*time:announce*" [timers]]} { timer $interval [list time:announce] }\r\n\r\nproc time:announce {} {\r\n  global message\r\n  foreach c [channels] {\r\n    putserv "PRIVMSG $c :$message"\r\n  }\r\n}\r\n', 2132, 'none', 'timer', 'none');
INSERT INTO `pastebin` VALUES (2134, 'Aeacus', '2004-08-13 06:08:57', '# why use bind time when you have timer ? :)\r\n\r\nset interval 2\r\n\r\nset message "Hello all :)"\r\n\r\nif {![string match "*time:announce*" [timers]]} { timer $interval [list time:announce] }\r\n\r\nproc time:announce {} {\r\n  global message\r\n  foreach c [channels] {\r\n    putserv "PRIVMSG $c :$message"\r\n  }\r\n}', 2133, 'tcl', 'timer', '#TCL');
INSERT INTO `pastebin` VALUES (2135, 'Aeacus', '2004-08-13 06:16:01', '# why use bind time when you have timer ? :)\r\n\r\nset interval 2\r\n\r\nset message "Hello all :)"\r\n\r\nif {![string match "*time:announce*" [timers]]} { timer $interval [list time:announce] }\r\n\r\nproc time:announce {} {\r\n  global interval message\r\n  foreach c [channels] {\r\n    putserv "PRIVMSG $c :$message"\r\n  }\r\n  #restart timer\r\n  timer $interval [list time:announce]\r\n}', 2134, 'tcl', 'forgot to restart time :) thx gozzer', '#TCL');
INSERT INTO `pastebin` VALUES (2136, 'v', '2004-08-13 11:02:09', '<div class="container">\r\n <div class="doc">\r\n  <div class="catpic"><a name="events" href="?a=news&amp;cat=6"><img src="pics/cats/news_event.png" alt="event" /></a></div>\r\n  <h2>first</h2>\r\n  <ul class="cms">\r\n   <li><a href="?a=news&amp;id=1&amp;cms=edit">edit</a></li>\r\n   <li><a href="?a=news&amp;id=1&amp;cms=del">delete</a></li>\r\n  </ul>\r\n  <div class="author">\r\n    <img src="dbe/user/user2/avatar_2_s5yzc1.gif" alt="avatar" /> <a href="?a=user&amp;id=2">veal</a>\r\n    <img src="pics/avatar_star.gif" alt="star" /> wrote @ <i>18:04, 17 Jul 2004 </i>:\r\n  </div>\r\n  <div class="text">\r\n    test text\r\n  </div>\r\n  <div class="numcomments">\r\n    <img src="pics/icons/comment.gif" alt="*" /> <a href="?a=news&amp;id=1#comments">2 Comments</a> \r\n    <img src="pics/icons/hits.gif" alt="*" /> 38 Hits <br />\r\n    <img src="pics/icons/url.gif" alt="*" /> Link: <a href="http://www.asdf.ch" target="_blank">http://www.asdf.ch</a>\r\n  </div>\r\n </div>\r\n</div>\r\n\r\n', 0, 'html', 'none', 'none');
INSERT INTO `pastebin` VALUES (2137, 'v', '2004-08-13 11:08:00', '<div class="container">\r\n <div class="doc">\r\n  <div class="catpic"><a name="events" href="?a=news&cat=6"><img src="pics/cats/news_event.png" alt="event" /></a></div>\r\n  <h2>first</h2>\r\n  <ul class="cms">\r\n   <li><a href="?a=news&id=1&cms=edit">edit</a></li>\r\n   <li><a href="?a=news&id=1&cms=del">delete</a></li>\r\n  </ul>\r\n  <div class="author">\r\n    <img src="dbe/user/user2/avatar_2_s5yzc1.gif" alt="avatar" /> <a href="?a=user&id=2">veal</a>\r\n    <img src="pics/avatar_star.gif" alt="star" /> wrote @ <i>18:04, 17 Jul 2004 </i>:\r\n  </div>\r\n  <div class="text">\r\n    test text\r\n  </div>\r\n  <div class="numcomments">\r\n    <img src="pics/icons/comment.gif" alt="*" /> <a href="?a=news&id=1#comments">2 Comments</a> \r\n    <img src="pics/icons/hits.gif" alt="*" /> 38 Hits <br />\r\n    <img src="pics/icons/url.gif" alt="*" /> Link: <a href="http://www.asdf.ch" target="_blank">http://www.asdf.ch</a>\r\n  </div>\r\n </div>\r\n</div>\r\n\r\n\r\n\r\n\r\n// css\r\n\r\ndiv.container {\r\n    border: 1px solid #000;\r\n    background-color: #fff;\r\n    padding: 10px;\r\n    color: #001;\r\n    margin-bottom: 10px;\r\n  }\r\n\r\ndiv.doc {\r\n  }\r\n  /* title */   \r\n  div.doc h2 {\r\n    background-color: #555;\r\n    color:#fff;\r\n    font-family: Arial, sans-serif;\r\n    font-size: 18px;\r\n    padding: 3px 0px 3px 50px;\r\n    margin: 0px;\r\n  }\r\n  div.doc h2 a,\r\n  div.doc h2 a:link,\r\n  div.doc h2 a:active,\r\n  div.doc h2 a:visited {\r\n    color:#fff;\r\n  }\r\n  div.doc div.text {\r\n    margin-bottom:10px;\r\n    color:#000;\r\n    border:1px dotted #f0f;\r\n    background-color:#fee;\r\n    padding:2px 2px 2px 10px;\r\n  }\r\n  div.doc div.author {\r\n    margin: 10px 20px 10px 0px;    \r\n  }\r\n  div.doc div.numcomments {\r\n    background-color:#ddd;\r\n    padding:3px;\r\n    border:1px dotted #003;\r\n  }\r\n  div.doc div.catpic {\r\n    float:left;\r\n    margin:0px 0px 0px 0px;\r\n    padding:0px;\r\n    border:1px solid #000;\r\n  }', 2136, 'html', 'none', 'none');
INSERT INTO `pastebin` VALUES (2138, 'zyxep', '2004-08-13 15:47:50', '########################################\r\n#### CupBots Script By zyxep		####\r\n#### #CupBots @ QuakeNet.org		####\r\n#### Mail: zyxep@zyxep.dk			####\r\n#### MSN: webmaster@zyxep.dk		####\r\n########################################\r\n\r\n#### Setup ####\r\n\r\n##########\r\n#### mysql info til at connecte\r\n##########\r\nset msql(host) "localhost"\r\nset msql(user) "zyxep"\r\nset msql(pass) "s240387k"\r\nset msql(db) "zyxep"\r\n\r\n\r\n##########\r\n#### 1 => ingen ignore\r\n#### 2 => ignore kun voice\r\n#### 3 => ignore voice og ops\r\n##########\r\nset users "3"\r\n\r\n\r\n##########\r\n#### sæt default så den automatisk er sat til eller ikke\r\n#### 0 => off\r\n#### 1 => on\r\n##########\r\nset default "0"\r\n\r\n#### Binds ####\r\n\r\nbind pub f|f ".default" default:default\r\nbind pub f|f ".addchan" addchan:addchan\r\nbind pub f|f ".delchan" delchan:delchan\r\nbind pub f|f "', 0, 'tcl', 'cup', 'none');
INSERT INTO `pastebin` VALUES (2139, 'Jippi', '2004-08-13 18:02:45', 'bind pub -|- !idle irc:idle\r\nproc irc:idle { nick uhost hand channel text } {\r\n        global sqlcmd\r\n        if { ![info exists text]} { set text $channel }\r\n        foreach thisnick [chanlist $text] {\r\n                if {![info exist x]} { set x "\\{$thisnick [getchanidle $thisnick $text]\\} "; continue; }\r\n                append x "\\{$thisnick [getchanidle $thisnick $text]\\} "\r\n                putlog "$thisnick - [real_time [getchanidle $thisnick $text]]"\r\n        }\r\n        putlog $x\r\n        putlog "--"\r\n        lsort -index 1 -increasing $x\r\n        putlog "---"\r\n        putlog $x\r\n}\r\n', 0, 'tcl', 'why wont it sort.', '#TCL');
INSERT INTO `pastebin` VALUES (2140, 'smire', '2004-08-15 09:30:14', 'bind pub -|- .slap pub:slap\r\nbind pub -|- .fuck pub:fuck\r\nbind pub -|- .kiss pub:kiss \r\n\r\nproc pub:slap {hand chan args x mix} {\r\nset target [lindex $args 0]\r\nif {$args == ""} {\r\nputhelp "PRIVMSG $chan :USAGE: slap <nick>"\r\nreturn 1 }\r\nputhelp "PRIVMSG $chan :\\001ACTION loveste pe \\002$target\\002 cu ciocanul peste degetul mic de la picior\\001"\r\nreturn "$target" }\r\n\r\n\r\nproc pub:fuck {hand chan args x mix} {\r\nset target [lindex $args 0]\r\nif {$args == ""} {\r\nputhelp "PRIVMSG $chan :USAGE: fuck <nick>"\r\nreturn 1 }\r\nputhelp "PRIVMSG $chan :\\001ACTION Il fute tare de tot pe \\002$target\\002 exact in ga0z!\\001"\r\nreturn "$target" }\r\n\r\n\r\nproc pub:kiss {hand chan args x mix} {\r\nset target [lindex $args 0]\r\nif {$args == ""} {\r\nputhelp "PRIVMSG $chan : USAGE: kiss <nick>"\r\nreturn 1 }\r\nputhelp "PRIVMSG $chan :\\001ACTION Kiss pe \\002$target\\002 pe gura,te musc de buza tare...mainile`mi umbla pe corpul tau,vad cum tu nu mai ai rabdare sa ma simti in tine,ma doresti,ma vrei,iti strang sanii frumosi in palme uffffffff ce sentiment placut,te sarut toata imi place cum mirosi,imi place finetea pieli tale ...de pe burta,dintre picioare..te musc de sfarcuri ...mmmmmm iti place ...imi spui asta TE DORESC ACUM NU MAI POT ! \\001"\r\nreturn "$target" }', 0, 'tcl', 'nush', 'none');
INSERT INTO `pastebin` VALUES (2141, 'smire', '2004-08-15 09:52:12', '### END OF CONFIG OPTIONS ###\r\n\r\nif {[info exists bcqueue]} {unset bcqueue}\r\nset bchan(chans) ""\r\nproc bmaskhost {uhost} { \r\n \r\nif {[string match -nocase *@*.users.undernet.org $uhost]} {return "*!*[join [regexp -inline -- {@[^@].+} $uhost]]"}\r\n \r\nset uhost [lindex [split $uhost !] [expr [llength [split $uhost !]] -1]]\r\nset temp [string range [lindex [split $uhost @] 0] [expr [string length [lindex [split $uhost @] 0]] - 8] e]\r\nreturn "*!*$temp@[lindex [split [maskhost *!*@[lindex [split $uhost @] 1]] @] 1]"\r\n}\r\n\r\nproc bchan_read {} {\r\n  global bchan\r\n  set fd [open scripts/badchan.conf r]\r\n  while {![eof $fd]} {\r\n    set inp [gets $fd]\r\n    if {[string trim $inp " "] == ""} {continue}\r\n    set ban [lrange $inp 1 e]\r\n    set chan [string tolower [lindex $inp 0]]\r\n    if {[lsearch $bchan(chans) $chan] == -1} {lappend bchan(chans) $chan}\r\n    lappend bchan($chan) $ban\r\n  }\r\n  close $fd\r\n  putlog "badchan.conf loaded."\r\n}\r\nputlog "Bass''s badchan.tcl 1.0 loaded"\r\nif {[file exists scripts/badchan.conf]} {bchan_read} {putlog "badchan.conf not found!"}\r\n\r\nproc bc_flood_init {} {\r\n  global bc_flood bc_flood_num bc_flood_time bc_flood_array\r\n  if {![string match *:* $bc_flood]} {putlog bchan: var bc_flood not set correctly. ; return 1}\r\n  set bc_flood_num [lindex [split $bc_flood :] 0]\r\n  set bc_flood_time [lindex [split $bc_flood :] 1]\r\n  set i [expr $bc_flood_num - 1]\r\n  while {$i >= 0} {\r\n    set bc_flood_array($i) 0\r\n    incr i -1\r\n  }\r\n} ; bc_flood_init\r\n\r\nproc bc_flood {nick uhost} {\r\n  global bc_flood_num bc_flood_time bc_flood_array\r\n  if {$bc_flood_num == 0} {return 0}\r\n  set i [expr $bc_flood_num - 1]\r\n  while {$i >= 1} {\r\n    set bc_flood_array($i) $bc_flood_array([expr $i - 1])\r\n    incr i -1\r\n  }\r\n  set bc_flood_array(0) [unixtime]\r\n  if {[expr [unixtime] - $bc_flood_array([expr $bc_flood_num - 1])] <= $bc_flood_time} {\r\n    putlog "bchan: Flood detected from $nick."\r\n    #newignore [join [maskhost *!*[string trimleft $uhost ~]]] bchan flood 2\r\n    return  1\r\n  } {return 0}\r\n}\r\n\r\n\r\nbind join -|- * bchan_join\r\n\r\nproc bchan_join {nick uhost hand chan} {\r\n global bchan bcqueue bcnicks botnick\r\n if {[matchattr [nick2hand $nick $chan] bmnof|mnof $chan]} {return 0}\r\n set host [string tolower [lindex [split $uhost @] 1]]\r\n set chan [string tolower $chan]\r\n set nick [string tolower $nick]\r\n if {[lsearch $bchan(chans) $chan] == -1 && ([lsearch $bchan(chans) global] == -1 || [lsearch $bchan(exempt) $chan] > -1)} {return 0}\r\n if {[string tolower $botnick] == [string tolower $nick]} {return 0}\r\n if {![botisop $chan]} {return 0}\r\n if {$bchan(protect-hosts) != ""} {\r\n  foreach i $bchan(protect-hosts) {\r\n   if {[string match [string tolower $i] $host]} {return 0}\r\n  }\r\n }\r\n if {[info exists bcqueue($host)]} {return 0}\r\n set bcqueue($host) 1 \r\n if {[bc_flood $nick $uhost]} {return 0}\r\n set bcnicks($nick) $chan\r\n putserv "whois $nick" \r\n set i 0 \r\n set temp ""\r\n while {$i < [string length $nick]} {\r\n   if {[string index $nick $i] == "\\\\"} {append temp "\\\\\\\\"} elseif {\r\n   [string index $nick $i] == "\\["} {append temp "\\\\\\["} elseif {\r\n   [string index $nick $i] == "\\]"} {append temp "\\\\\\]"} elseif {\r\n   [string index $nick $i] == "\\{"} {append temp "\\\\\\{"} elseif {\r\n   [string index $nick $i] == "\\}"} {append temp "\\\\\\}"} {\r\n   append temp [string index $nick $i]}\r\n   incr i\r\n } ; set nick $temp\r\n timer $bchan(rescan) "unset bcqueue($host) ; unset bcnicks($nick)"\r\n}\r\n\r\nbind raw - 319 bc_whois\r\nproc bc_whois {from key args} {\r\n  global bchan bcqueue bcnicks\r\n#  putlog "319: $args"\r\n  set args [join $args]\r\n  set nick [string tolower [lindex $args 1]]\r\n  if {[info exists bcnicks($nick)]} {set chan $bcnicks($nick)} {return 0}\r\n  set chans [string tolower [lrange $args 2 e]]\r\n  if {[lsearch $bchan(exempt) $chan] == -1 && $bchan(global) != ""} {set bans $bchan(global)} {set bans ""}\r\n  if {[lsearch $bchan(chans) $chan] > -1} {set bans "$bans $bchan($chan)"}\r\n  foreach tok $chans {\r\n    set tok [string trimleft $tok ":@+"]\r\n    foreach ban $bans {\r\n      if {[string match [lindex $ban 0] $tok]} {\r\n        putlog "badchan:  match! $nick k/b''d from $chan because [lrange $ban 1 e]"\r\n        putlog "args: $args, ban: $ban"\r\n        if {[onchan $nick $chan]} {newchanban $chan [bmaskhost [getchanhost $nick $chan]] badchan "[lrange $ban 1 e]" 10}\r\n        return 0\r\n      }\r\n    }\r\n  }\r\n  return 0\r\n}\r\nbind pub n|- !gbclist bc_glist\r\nproc bc_glist {1 2 3 4 5} {bc_list $1 $2 $3 global $5}\r\nbind pub o|o !bclist bc_list\r\nproc bc_list {nick uhost hand chan args} {\r\n  global bchan\r\n  set chan [string tolower $chan]\r\n  if {[lsearch $bchan(chans) $chan] == -1} {puthelp "notice $nick :No badchans are registered for $chan." ; return 1}\r\n  set i 1\r\n  puthelp "notice $nick :BadChans for $chan..."\r\n  foreach ban $bchan($chan) {\r\n    puthelp "notice $nick :$i) $ban"\r\n    incr i\r\n  }\r\n}\r\nbind pub n|- !gabc bc_gadd\r\nproc bc_gadd {1 2 3 4 5} {bc_add $1 $2 $3 global $5}\r\nbind pub o|o !abc bc_add\r\nproc bc_add {nick uhost hand chan args} {\r\n  global bchan\r\n  set chan [string tolower $chan]\r\n  if {![string match *\\\\\\** [lindex $args 0]]} {puthelp "notice $nick :syntax is: !abc <chanmask> \\[reason\\]" ; return 1}\r\n  set args [string trimright "[string tolower [lindex $args 0]] [lrange $args 1 e]" " "]\r\n  if {[lsearch $bchan(chans) $chan]} {lappend bchan(chans) $chan}\r\n  lappend bchan($chan) $args\r\n  puthelp "notice $nick :[lindex $args 0] was added to $chan''s badchan list."\r\n  bchan_save\r\n  return 1\r\n}\r\nbind pub n|- !grbc bc_grem\r\nproc bc_grem {1 2 3 4 5} {bc_rem $1 $2 $3 global $5}\r\nbind pub o|o !rbc bc_rem\r\nproc bc_rem {nick uhost hand chan args} {\r\n  global bchan\r\n  set chan [string tolower $chan]\r\n  set args [string tolower [lindex [join $args] 0]]\r\n  if {[lsearch $bchan(chans) $chan] == -1} {puthelp "notice $nick :No badchans are registered for $chan." ; return 1}\r\n  if {![string match *\\\\\\** $args]} {puthelp "notice $nick :syntax is: !rbc <chanmask>" ; return 1}\r\n  set i 0\r\n  set temp ""\r\n  foreach ban $bchan($chan) {\r\n    if {[string compare $args [lindex $ban 0]] == 0} {incr i} {lappend temp $ban}\r\n  }\r\n  if {$i > 0} {\r\n    if {$temp != ""} {set bchan($chan) $temp} {\r\n      unset bchan($chan)\r\n      set temp [lsearch $bchan(chans) $chan]\r\n      if {$temp == -1} {putlog "bchan: I''m confused." ; return 1}\r\n      set bchan(chans) [lreplace $bchan(chans) $temp $temp]\r\n    }\r\n    puthelp "notice $nick :$args was removed from $chan''s badchan list."\r\n    bchan_save\r\n  } {puthelp "notice $nick :$args was not found in $chan''s badchan list."}\r\n  return 1\r\n}\r\nproc bchan_save {} {\r\n  global bchan\r\n  set fd [open scripts/badchan.conf w]\r\n  foreach chan $bchan(chans) {\r\n    foreach ban $bchan($chan) {\r\n      puts $fd "$chan $ban"\r\n    }\r\n  }\r\n  close $fd\r\n}', 0, 'none', 'nush', 'none');
INSERT INTO `pastebin` VALUES (2142, 'smire', '2004-08-15 10:20:27', 'proc pub:slap {nick uhost hand chan args} {\r\nset target [lindex $args 0]\r\nif {$args == ""} {\r\nputhelp "PRIVMSG $chan :USAGE: slap <nick>"\r\nreturn 1 }\r\nputhelp "PRIVMSG $chan :\\001ACTION loveste pe \\002$target\\002 cu ciocanul peste degetul mic de la picior\\001"\r\nreturn "$target" }\r\n\r\n\r\nproc pub:fuck {nick uhost hand chan args} {\r\nset target [lindex $args 0]\r\nif {$args == ""} {\r\nputhelp "PRIVMSG $chan :USAGE: fuck <nick>"\r\nreturn 1 }\r\nputhelp "PRIVMSG $chan :\\001ACTION Il fute tare de tot pe \\002$target\\002 exact in ga0z!\\001"\r\nreturn "$target" }\r\n\r\n\r\nproc pub:kiss {nick uhost hand chan args} {\r\nset target [lindex $args 0]\r\nif {$args == ""} {\r\nputhelp "PRIVMSG $chan : USAGE: kiss <nick>"\r\nreturn 1 }\r\nputhelp "PRIVMSG $chan :\\001ACTION pupa duuuulce pe \\002$target\\002 pe botic :D \\001"\r\nreturn "$target" }', 0, 'none', 'nush', 'none');
INSERT INTO `pastebin` VALUES (2143, 'smire', '2004-08-15 10:24:23', 'bind pub -|- .slap pub:slap\r\n bind pub -|- .fuck pub:fuck\r\n bind pub -|- .kiss pub:kiss\r\n\r\nproc pub:slap {nick uhost hand chan args} {\r\nset target [lindex $args 0]\r\nif {$args == ""} {\r\n\r\nputhelp "PRIVMSG $chan :USAGE: slap <nick>"\r\nreturn 1 }\r\nputhelp "PRIVMSG $chan :\\001ACTION loveste pe \\002$target\\002 cu ciocanul peste degetul mic de la picior\\001"\r\nreturn "$target" }\r\n\r\n\r\nproc pub:fuck {nick uhost hand chan args} {\r\nset target [lindex $args 0]\r\nif {$args == ""} {\r\nputhelp "PRIVMSG $chan :USAGE: fuck <nick>"\r\nreturn 1 }\r\nputhelp "PRIVMSG $chan :\\001ACTION Il fute tare de tot pe \\002$target\\002 exact in ga0z!\\001"\r\nreturn "$target" }\r\n\r\n\r\nproc pub:kiss {nick uhost hand chan args} {\r\nset target [lindex $args 0]\r\nif {$args == ""} {\r\nputhelp "PRIVMSG $chan : USAGE: kiss <nick>"\r\nreturn 1 }\r\nputhelp "PRIVMSG $chan :\\001ACTION pupa duuuulce pe \\002$target\\002 pe botic :D \\001"\r\nreturn "$target" }', 0, 'none', 'nush', 'none');
INSERT INTO `pastebin` VALUES (2144, 'MPSnyper', '2004-08-15 12:10:47', '## how to get this to the next process ##\r\n\r\n\r\n    set bsx(access) 0\r\n    if {[onchan $nick\\$bsx(channel)]} { \r\n	set bsx(access) 1 \r\n	}\r\n\r\nbind msg -|- test bsx(tester)\r\nproc bsx(tester) { nick uhand handle chan } {\r\n	global bsx \r\n	\r\n	if {$bsx(access) == 0} { \r\n		putquick "privmsg $nick :$nick, you are not in the chan"\r\n		}\r\n	if {$bsx(access) == 1} {	\r\n	putquick "privmsg $chan : this is the msg...."\r\n       }\r\n\r\n  }\r\n\r\n## it will always give me putquick "privmsg $nick :$nick, you are not in the chan" ##\r\n## when i am on the chan.. ##', 0, 'tcl', 'global variable', '#EggTCL');
INSERT INTO `pastebin` VALUES (2145, 'MPSnyper', '2004-08-15 12:35:56', '## how to get this to the next process ##\r\n\r\n\r\n    set bsx(access) 0\r\n    if {[onchan $nick\\$bsx(channel)]} { \r\n	set bsx(access) 1 \r\n	}\r\n\r\nbind msg -|- test bsx(tester)\r\nproc bsx(tester) { nick uhand handle chan } {\r\n	global bsx \r\n	\r\n	if {$bsx(access) == 0} { \r\n		putquick "privmsg $nick :$nick, you are not in the chan"\r\n		}\r\n	if {$bsx(access) == 1} {	\r\n	putquick "privmsg $chan : this is the msg...."\r\n       }\r\n\r\n  }\r\n\r\n## it will always give me putquick "privmsg $nick :$nick, you are not in the chan" ##\r\n## when i am on the chan.. ##', 0, 'tcl', 'global variable', '#EggTCL');
INSERT INTO `pastebin` VALUES (2146, 'Aeacus', '2004-08-15 14:49:20', '\r\nset bsx(access) 0\r\nset bsx(channel) "#somechan"\r\n\r\n#onchan <nickname> [channel]\r\nif {[onchan $nick $bsx(channel)]} { \r\n	set bsx(access) 1\r\n}\r\n\r\nbind msg -|- test bsx(tester)\r\nproc bsx(tester) { nick uhand handle chan } {\r\n	global bsx\r\n\r\n	if {$bsx(access) == 0} { \r\n		putquick "privmsg $nick :$nick, you are not in the chan"\r\n	}\r\n	if {$bsx(access) == 1} {	\r\n		putquick "privmsg $chan : this is the msg...."\r\n	}\r\n}\r\n', 2145, 'tcl', 'should work now :)', 'none');

INSERT INTO `pastebin` VALUES (2148, 'mindflow', '2004-08-16 09:16:14', 'proc pub_subspam { nick host hand chan vars } {\r\n  if {![issubop [nick2subop $nick]]} {return 1}\r\n  if {![issubopchan $chan]} {return 1}\r\n  set vict [lindex [split $vars] 0]\r\n  set reason [lrange $vars 1 end]\r\n  set spamhost "*!*@[lindex [split [getchanhost $nick $chan] "@"] end]"\r\n  if {![onchan $vict $chan]} {return 1}\r\n  if {[matchattr [nick2hand $vict $chan] f|f $chan]} {return 1}\r\n  newban $spamhost $nick $reason \\%30d\r\n  putserv "KICK $chan $vict :\\002banned for spamming\\002"\r\n  putlog "Sub-op \\002[nick2subop $nick]\\002 (nick $nick) kick-banned \\002$vict\\002 from \\002$chan\\002 with reason \\"\\002banned\r\nfor spamming\\002\\"."\r\n}\r\n\r\nThis is the code, in makes the bot ban *!*@* befor banning the actual host.. \r\n[getchanhost $nick $chan] is wrong, the $nick makes the bot ban the one trigger the TCL.\r\nnot the one it should ban.. ', 0, 'tcl', 'TCL problem', '#TCL');
INSERT INTO `pastebin` VALUES (2149, 'mindflow', '2004-08-16 09:36:50', 'proc pub_subspam { nick host hand chan vars } {\r\n  if {![issubop [nick2subop $nick]]} {return 1}\r\n  if {![issubopchan $chan]} {return 1}\r\n  set vict [lindex [split $vars] 0]\r\n  set reason [lrange $vars 1 end]\r\n  set spamhost "*!*@[lindex [split [getchanhost $nick $chan] "@"] end]"\r\n  if {![onchan $vict $chan]} {return 1}\r\n  if {[matchattr [nick2hand $vict $chan] f|f $chan]} {return 1}\r\n  newban $spamhost $nick $reason \\\\%30d\r\n  putserv "KICK $chan $vict :\\002banned for spamming\\002"\r\n  putlog "Sub-op \\002[nick2subop $nick]\\002 (nick $nick) kick-banned \\002$vict\\002 from \\002$chan\\002 with reason \\"\\002banned\r\nfor spamming\\002\\"."\r\n}\r\n\r\nThis is the code, in makes the bot ban *!*@* befor banning the actual host.. \r\n[getchanhost $nick $chan] is wrong, the $nick makes the bot ban the one trigger the TCL, so should be $vict.\r\nnot the one it should ban..', 2148, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2150, 'syntax-error', '2004-08-17 09:00:36', 'bind pub -|- !removeme removeme:unicon\r\n\r\nproc removeme:unicon {nick uhost hand channel text } {\r\nputlog "the removeme command has been triggered" \r\nglobal added\r\nglobal places\r\nset found 0\r\nset userdoc [open users.txt a+]\r\nwhile {![eof $userdoc]} {\r\n gets $userdoc line\r\n if {$line == $nick} { set found 1 }\r\n}\r\nclose $userdoc\r\nif {$found} {\r\nset userfile [open users.txt r]\r\nset list [split [read $userfile] \\n]\r\nclose $userfile\r\nset location [lsearch $list $nick]\r\nset endloc $location\r\nset list [lreplace $list $location $endloc]\r\nfile rename -force users.txt users.txt.bak\r\nset usersfile [open users.txt w]\r\nputs $usersfile [join $list \\n]\r\nclose $usersfile\r\nset newtopic [string map -nocase [list $nick "" ] [topic $channel]]\r\nputlog "$nick used: !removeme on $channel!"\r\nputserv "TOPIC $channel :$newtopic"\r\nputserv "NOTICE $nick :Succesfully removed you out of the topic."\r\nincr places 1\r\n} else {\r\n puthelp "privmsg $nick :Your not on the list, try !addme or report the bug to Syntax-error"\r\n }\r\n}\r\n', 0, 'tcl', 'Userfile', 'none');
INSERT INTO `pastebin` VALUES (2151, 'Syntax-error', '2004-08-17 09:42:06', 'proc removeme:unicon {nick uhost hand channel text } {\r\nputlog "the removeme command has been triggered" \r\nglobal added\r\nglobal places\r\nset found 0\r\nset userdoc [open users.txt a+]\r\nwhile {![eof $userdoc]} {\r\n gets $userdoc line\r\n if {$line == $nick} { puthelp "privmsg #unicon.lan :DEBUG username found" } else { puthelp "privmsg #unicon.lan :DEBUG username not found ERROR" }\r\n}\r\n\r\n\r\n# Says not found even when username exsists this is a copy of the users.txt. each username is on a seperate line\r\n\r\n# Syntax-error\r\n# IsQ`cs|Smudge', 0, 'none', 'user files again', 'none');
INSERT INTO `pastebin` VALUES (2152, 'DVS01', '2004-08-17 22:55:02', '### ERRORINFO ###\r\nproc dvs_dcc:errorinfo {hand idx text} {\r\n	global errorInfo\r\n	\r\n	putdcc $idx "Error Info:"\r\n	putdcc $idx $errorInfo\r\n	return 1\r\n}', 0, 'tcl', 'errorInfo', '#EggTCL');
INSERT INTO `pastebin` VALUES (2153, 'tWiZtEr', '2004-08-17 22:56:15', 'proc pub_query { nick host ident chan arg } {\r\nputlog "in #chan $nick used !query $arg"                                     \r\nforeach info [sql "SELECT * FROM table WHERE name like ''\\%[lindex $arg 0]\\%'' ORDER BY date DESC"] {\r\n}\r\nputquick "PRIVMSG #chan:(sqlbot) found [sql numrows] matches to $arg"\r\n} ', 0, 'tcl', 'querying SQL with multiple rows', '#EggTCL');
INSERT INTO `pastebin` VALUES (2154, 'tWiZtEr', '2004-08-17 22:59:33', 'proc pub_query { nick host ident chan arg } {\r\nputlog "in #chan $nick used !query $arg"                                     \r\nforeach info [sql "SELECT * FROM table WHERE name like ''\\\\%[lindex $arg 0]\\\\%'' ORDER BY date DESC"] {\r\n#possible forloop in here?#\r\n}\r\nputquick "PRIVMSG #twizchan: (sqlbot) found [sql numrows] matches to $arg"\r\n}', 2153, 'tcl', 'sql query update', '#EggTCL');
INSERT INTO `pastebin` VALUES (2155, 'tWiZtEr', '2004-08-17 23:01:53', 'proc pub_query { nick host ident chan arg } {\r\nputlog "in #chan $nick used !query $arg"                                     \r\nforeach info [sql "SELECT * FROM table WHERE name like ''\\\\\\%[lindex $arg 0]\\\\\\%'' ORDER BY date DESC"] {\r\n#possible forloop in here?#\r\n}\r\nputquick "PRIVMSG #twizchan :(sqlbot) found [sql numrows] matches to $arg"\r\n}\r\n\r\n############\r\n# in dcc chat with bot this is outputted:\r\n############\r\n# debug: 1085993751 tWiZtEr.Sucks.At.SQL NOTE', 2154, 'tcl', 'sql query update 2', '#EggTCL');
INSERT INTO `pastebin` VALUES (2156, 'DVS01', '2004-08-17 23:11:37', 'proc pub_query { nick host ident chan arg } {\r\n	# $arg is [split] in order to turn it into a valid tcl list which can then be safely [lindex]''ed\r\n	set arg [lindex [split $arg] 0] ;# We don''t need the rest of it, do we?\r\n	set results [sql "SELECT * FROM table WHERE name like ''\\\\\\%\\\\\\%'' ORDER BY date DESC"]\r\n	set resultCount [llength $results]\r\n	\r\n	putserv "PRIVMSG #twizchan :(sqlbot) found $resultCount matches to $arg (diaplaying max of 10)"\r\n	\r\n	for {set i 0} {$i < 10} {incr i} {\r\n		putserv "PRIVMSG #twizchan :(sqlbot) #[expr $i + 1]: [lindex $results $i]"\r\n		# example channel output (excluding row count):\r\n		# 1085993751 tWiZtEr.Sucks.At.SQL NOTE\r\n	}\r\n}', 0, 'tcl', 'sql thing for twizter', '#EggTCL');
INSERT INTO `pastebin` VALUES (2157, 'DVS01', '2004-08-17 23:12:41', 'proc pub_query { nick host ident chan arg } {\r\n	# $arg is [split] in order to turn it into a valid tcl list which can then be safely [lindex]''ed\r\n	set arg [lindex [split $arg] 0] ;# We don''t need the rest of it, do we?\r\n	set results [sql "SELECT * FROM table WHERE name like ''\\\\\\%${arg}\\\\\\%'' ORDER BY date DESC"]\r\n	set resultCount [llength $results]\r\n	\r\n	putserv "PRIVMSG #twizchan :(sqlbot) found $resultCount matches to $arg (diaplaying max of 10)"\r\n	\r\n	for {set i 0} {$i < 10} {incr i} {\r\n		putserv "PRIVMSG #twizchan :(sqlbot) #[expr $i + 1]: [lindex $results $i]"\r\n		# example channel output (excluding row count):\r\n		# 1085993751 tWiZtEr.Sucks.At.SQL NOTE\r\n	}\r\n}', 2156, 'tcl', 'correction to sql thing', '#EggTCL');
INSERT INTO `pastebin` VALUES (2158, 'DVS01', '2004-08-17 23:16:07', 'proc pub_query { nick host ident chan arg } {\r\n	# $arg is [split] in order to turn it into a valid tcl list which can then be safely [lindex]''ed\r\n	set arg [lindex [split $arg] 0] ;# We don''t need the rest of it, do we?\r\n	set results [sql "SELECT * FROM table WHERE name like ''\\\\\\%${arg}\\\\\\%'' ORDER BY date DESC"]\r\n	set resultCount [llength $results]\r\n	\r\n	putserv "PRIVMSG #twizchan :(sqlbot) found $resultCount matches to $arg (diaplaying max of 10)"\r\n	\r\n	for {set i 0} {$i < (($resultCount >= 10) ? 10 : $resultCount)} {incr i} {\r\n		putserv "PRIVMSG #twizchan :(sqlbot) #[expr $i + 1]: [lindex $results $i]"\r\n		# example channel output (excluding row count):\r\n		# 1085993751 tWiZtEr.Sucks.At.SQL NOTE\r\n	}\r\n}', 2157, 'tcl', 'another correction.. eheh', '#EggTCL');
INSERT INTO `pastebin` VALUES (2159, 'DVS01', '2004-08-18 00:06:37', 'proc pub_query { nick host ident chan arg } {\r\n	# $arg is [split] in order to turn it into a valid tcl list which can then be safely [lindex]''ed\r\n\r\n	set arg [lindex [split $arg] 0] ;# We don''t need the rest of it, do we?\r\n	set results [sql "SELECT * FROM table WHERE name like ''\\\\\\%${arg}\\\\\\%'' ORDER BY date DESC"]\r\n	set resultCount [llength $results]\r\n	\r\n	putserv "PRIVMSG #twizchan :(sqlbot) found $resultCount matches to $arg (diaplaying max of 10)"\r\n	\r\n	for {set i 0} {$i < (($resultCount >= 10) ? 10 : $resultCount)} {incr i} {\r\n		set row [lindex $results $i]\r\n		# example row:\r\n		# 1085993751 tWiZtEr.Sucks.At.SQL NOTE\r\n		# format: timestamp, title, section\r\n\r\n		set timestamp [clock format [lindex $row 0] -format "\\[\\%m-\\%d-\\%y\\]"]\r\n		set title     [lindex $row 1]\r\n		set section   [lindex $row 2]\r\n		set params    [lrange $row 3 end]\r\n		if {$title == ""} {\r\n			set title (no title)\r\n		}\r\n		\r\n		switch -- $section \\\r\n		REQUEST {\r\n			# params for REQUEST: text timestamp\r\n			set paramtext " [lindex $params 0] ([clock format [lindex $params 1] -format "\\%m-\\%d-\\%y"])"\r\n		} EXAMPLE {\r\n			# params for EXAMPLE: text amount optionalcomment\r\n			if {[lindex $params 2] == ""} {\r\n				set comment "(no comment)"\r\n			} else {\r\n				set comment [lindex $params 2]\r\n			}\r\n			set paramtext " [lindex $params 0], amount of [lindex $params 1], $comment"\r\n		} default {\r\n			# we don''t know the format, so we do minimal parsing\r\n			set newlist ""\r\n			foreach entry $params {\r\n				if {$entry == ""} {\r\n					lappend newlist "(blank entry)"\r\n				} else {\r\n					lappend newlist $entry\r\n				}\r\n			}\r\n			set paramtext " [join $newlist]"\r\n		}\r\n		\r\n		putserv "PRIVMSG #twizchan (sqlbot) #[expr $i + 1]: ${timestamp}- $title -$paramtext"\r\n	}\r\n}', 0, 'tcl', 'parsing rows for twizter', '#EggTCL');
INSERT INTO `pastebin` VALUES (2160, 'DVS01', '2004-08-18 00:09:39', 'proc pub_query { nick host ident chan arg } {\r\n	# $arg is [split] in order to turn it into a valid tcl list which can then be safely [lindex]''ed\r\n\r\n	set arg [lindex [split $arg] 0] ;# We don''t need the rest of it, do we?\r\n	set results [sql "SELECT * FROM table WHERE name like ''\\\\\\%${arg}\\\\\\%'' ORDER BY date DESC"]\r\n	set resultCount [llength $results]\r\n	\r\n	putserv "PRIVMSG #twizchan :(sqlbot) found $resultCount matches to $arg (diaplaying max of 10)"\r\n	\r\n	for {set i 0} {$i < (($resultCount >= 10) ? 10 : $resultCount)} {incr i} {\r\n		set row [lindex $results $i]\r\n		# example row:\r\n		# 1085993751 tWiZtEr.Sucks.At.SQL NOTE\r\n		# format: timestamp, title, section\r\n\r\n		set timestamp [clock format [lindex $row 0] -format "\\[\\%m-\\%d-\\%y\\]"]\r\n		set title     [lindex $row 1]\r\n		set section   [lindex $row 2]\r\n		set params    [lrange $row 3 end]\r\n		if {$title == ""} {\r\n			set title "(no title)"\r\n		}\r\n		\r\n		switch -- $section \\\r\n		REQUEST {\r\n			# params for REQUEST: text timestamp\r\n			set paramtext " [lindex $params 0] ([clock format [lindex $params 1] -format "\\%m-\\%d-\\%y"])"\r\n		} EXAMPLE {\r\n			# params for EXAMPLE: text amount optionalcomment\r\n			if {[lindex $params 2] == ""} {\r\n				set comment "(no comment)"\r\n			} else {\r\n				set comment [lindex $params 2]\r\n			}\r\n			set paramtext " [lindex $params 0], amount of [lindex $params 1], $comment"\r\n		} default {\r\n			# we don''t know the format, so we do minimal parsing\r\n			set newlist ""\r\n			foreach entry $params {\r\n				if {$entry == ""} {\r\n					lappend newlist "(blank entry)"\r\n				} else {\r\n					lappend newlist $entry\r\n				}\r\n			}\r\n			set paramtext " [join $newlist]"\r\n		}\r\n		\r\n		putserv "PRIVMSG #twizchan (sqlbot) #[expr $i + 1]: ${timestamp}- $title -$paramtext"\r\n	}\r\n}', 2159, 'tcl', 'parsing rows, corrected', '#EggTCL');
INSERT INTO `pastebin` VALUES (2161, 'DVS01', '2004-08-18 00:19:46', 'proc pub_query { nick host ident chan arg } {\r\n	# $arg is [split] in order to turn it into a valid tcl list which can then be safely [lindex]''ed\r\n\r\n	set arg [lindex [split $arg] 0] ;# We don''t need the rest of it, do we?\r\n	set start_ts [clock clicks -milliseconds] ;# We''re gonna time this\r\n	set results [sql "SELECT * FROM table WHERE name like ''\\\\\\%${arg}\\\\\\%'' ORDER BY date DESC"]\r\n	set lapse [format "\\%.3fs" [expr abs([clock clicks -milliseconds] - $start_ts) / 1000.0]]\r\n	set resultCount [llength $results]\r\n	\r\n	putserv "PRIVMSG #twizchan :(sqlbot) found $resultCount matches to $arg in $lapse (displaying max 10)"\r\n	\r\n	for {set i 0} {$i < (($resultCount >= 10) ? 10 : $resultCount)} {incr i} {\r\n		set row [lindex $results $i]\r\n		# example row:\r\n		# 1085993751 tWiZtEr.Sucks.At.SQL NOTE\r\n		# format: timestamp, title, section\r\n\r\n		set timestamp [clock format [lindex $row 0] -format "\\[\\%m-\\%d-\\%y\\]"]\r\n		set title     [lindex $row 1]\r\n		set section   [lindex $row 2]\r\n		set params    [lrange $row 3 end]\r\n		if {$title == ""} {\r\n			set title "(no title)"\r\n		}\r\n		\r\n		switch -- $section \\\r\n		REQUEST {\r\n			# params for REQUEST: text timestamp\r\n			set paramtext " [lindex $params 0] ([clock format [lindex $params 1] -format "\\%m-\\%d-\\%y"])"\r\n		} EXAMPLE {\r\n			# params for EXAMPLE: text amount optionalcomment\r\n			if {[lindex $params 2] == ""} {\r\n				set comment "(no comment)"\r\n			} else {\r\n				set comment [lindex $params 2]\r\n			}\r\n			set paramtext " [lindex $params 0], amount of [lindex $params 1], $comment"\r\n		} default {\r\n			# we don''t know the format, so we do minimal parsing\r\n			set newlist ""\r\n			foreach entry $params {\r\n				if {$entry == ""} {\r\n					lappend newlist "(blank entry)"\r\n				} else {\r\n					lappend newlist $entry\r\n				}\r\n			}\r\n			set paramtext " [join $newlist]"\r\n		}\r\n		\r\n		putserv "PRIVMSG #twizchan (sqlbot) #[expr $i + 1]: ${timestamp}- $title -$paramtext"\r\n	}\r\n}', 0, 'tcl', 'parsing rows timed', '#EggTCL');
INSERT INTO `pastebin` VALUES (2162, 'DVS01', '2004-08-18 00:24:18', 'proc pub_query { nick host ident chan arg } {\r\n	# $arg is [split] in order to turn it into a valid tcl list which can then be safely [lindex]''ed\r\n\r\n	set max 10\r\n	set arg [lindex [split $arg] 0] ;# We don''t need the rest of it, do we?\r\n	set start_ts [clock clicks -milliseconds] ;# We''re gonna time this\r\n	set results [sql "SELECT * FROM table WHERE name like ''\\\\\\%${arg}\\\\\\%'' ORDER BY date DESC"]\r\n	set lapse [format "\\%.3fs" [expr abs([clock clicks -milliseconds] - $start_ts) / 1000.0]]\r\n	set resultCount [llength $results]\r\n	\r\n	putserv "PRIVMSG #twizchan :(sqlbot) found $resultCount matches to $arg in $lapse (displaying max $max)"\r\n	\r\n	for {set i 0} {$i < (($resultCount >= $max) ? $max : $resultCount)} {incr i} {\r\n		set row [lindex $results $i]\r\n		# example row:\r\n		# 1085993751 tWiZtEr.Sucks.At.SQL NOTE\r\n		# format: timestamp, title, section\r\n\r\n		set timestamp [clock format [lindex $row 0] -format "\\[\\%m-\\%d-\\%y\\]"]\r\n		set title     [lindex $row 1]\r\n		set section   [lindex $row 2]\r\n		set params    [lrange $row 3 end]\r\n		if {$title == ""} {\r\n			set title "(no title)"\r\n		}\r\n		\r\n		switch -- $section \\\r\n		REQUEST {\r\n			# params for REQUEST: text timestamp\r\n			set paramtext " [lindex $params 0] ([clock format [lindex $params 1] -format "\\%m-\\%d-\\%y"])"\r\n		} EXAMPLE {\r\n			# params for EXAMPLE: text amount optionalcomment\r\n			if {[lindex $params 2] == ""} {\r\n				set comment "(no comment)"\r\n			} else {\r\n				set comment [lindex $params 2]\r\n			}\r\n			set paramtext " [lindex $params 0], amount of [lindex $params 1], $comment"\r\n		} default {\r\n			# we don''t know the format, so we do minimal parsing\r\n			set newlist ""\r\n			foreach entry $params {\r\n				if {$entry == ""} {\r\n					lappend newlist "(blank entry)"\r\n				} else {\r\n					lappend newlist $entry\r\n				}\r\n			}\r\n			set paramtext " [join $newlist]"\r\n		}\r\n		\r\n		putserv "PRIVMSG #twizchan (sqlbot) #[expr $i + 1]: ${timestamp}- $title -$paramtext"\r\n	}\r\n}', 0, 'tcl', 'parsing rows timed and fixed and $max added', '#EggTCL');
INSERT INTO `pastebin` VALUES (2163, 'HAV', '2004-08-18 06:34:59', '##\r\n## httpd.conf -- Apache HTTP server configuration file\r\n##\r\n\r\n#\r\n# Based upon the NCSA server configuration files originally by Rob McCool.\r\n#\r\n# This is the main Apache server configuration file.  It contains the\r\n# configuration directives that give the server its instructions.\r\n# See <URL:http://www.apache.org/docs/> for detailed information about\r\n# the directives.\r\n#\r\n# Do NOT simply read the instructions in here without understanding\r\n# what they do.  They''re here only as hints or reminders.  If you are unsure\r\n# consult the online docs. You have been warned.  \r\n#\r\n# After this file is processed, the server will look for and process\r\n# /etc/apache/srm.conf and then /etc/apache/access.conf\r\n# unless you have overridden these with ResourceConfig and/or\r\n# AccessConfig directives here.\r\n#\r\n# The configuration directives are grouped into three basic sections:\r\n#  1. Directives that control the operation of the Apache server process as a\r\n#     whole (the ''global environment'').\r\n#  2. Directives that define the parameters of the ''main'' or ''default'' server,\r\n#     which responds to requests that aren''t handled by a virtual host.\r\n#     These directives also provide default values for the settings\r\n#     of all virtual hosts.\r\n#  3. Settings for virtual hosts, which allow Web requests to be sent to\r\n#     different IP addresses or hostnames and have them handled by the\r\n#     same Apache server process.\r\n#\r\n# Configuration and logfile names: If the filenames you specify for many\r\n# of the server''s control files begin with "/" (or "drive:/" for Win32), the\r\n# server will use that explicit path.  If the filenames do *not* begin\r\n# with "/", the value of ServerRoot is prepended -- so "logs/foo.log"\r\n# with ServerRoot set to "/usr/local/apache" will be interpreted by the\r\n# server as "/usr/local/apache/logs/foo.log".\r\n#\r\n\r\n### Section 1: Global Environment\r\n#\r\n# The directives in this section affect the overall operation of Apache,\r\n# such as the number of concurrent requests it can handle or where it\r\n# can find its configuration files.\r\n#\r\n\r\n#\r\n# ServerType is either inetd, or standalone.  Inetd mode is only supported on\r\n# Unix platforms.\r\n#\r\nServerType standalone\r\n\r\n#\r\n# ServerRoot: The top of the directory tree under which the server''s\r\n# configuration, error, and log files are kept, unless they are specified\r\n# with an absolute path.\r\n#\r\n# NOTE!  If you intend to place this on an NFS (or otherwise network)\r\n# mounted filesystem then please read the LockFile documentation\r\n# (available at <URL:http://www.apache.org/docs/mod/core.html#lockfile>);\r\n# you will save yourself a lot of trouble.\r\n#\r\n# Do NOT add a slash at the end of the directory path.\r\n#\r\nServerRoot /etc/apache\r\n\r\n#\r\n# The LockFile directive sets the path to the lockfile used when Apache\r\n# is compiled with either USE_FCNTL_SERIALIZED_ACCEPT or\r\n# USE_FLOCK_SERIALIZED_ACCEPT. This directive should normally be left at\r\n# its default value. The main reason for changing it is if the logs\r\n# directory is NFS mounted, since the lockfile MUST BE STORED ON A LOCAL\r\n# DISK. The PID of the main server process is automatically appended to\r\n# the filename. \r\n#\r\nLockFile /var/lock/apache.lock\r\n\r\n#\r\n# PidFile: The file in which the server should record its process\r\n# identification number when it starts.\r\n#\r\nPidFile /var/run/apache.pid\r\n\r\n#\r\n# ScoreBoardFile: File used to store internal server process information.\r\n# Not all architectures require this.  But if yours does (you''ll know because\r\n# this file will be  created when you run Apache) then you *must* ensure that\r\n# no two invocations of Apache share the same scoreboard file.\r\n#\r\nScoreBoardFile /var/run/apache.scoreboard\r\n\r\n#\r\n# In the standard configuration, the server will process this file,\r\n# srm.conf, and access.conf in that order.  The latter two files are\r\n# now distributed empty, as it is recommended that all directives\r\n# be kept in a single file for simplicity.  The commented-out values\r\n# below are the built-in defaults.  You can have the server ignore\r\n# these files altogether by using "/dev/null" (for Unix) or\r\n# "nul" (for Win32) for the arguments to the directives.\r\n#\r\n#ResourceConfig /etc/apache/srm.conf\r\n#AccessConfig /etc/apache/access.conf\r\n\r\n#\r\n# Timeout: The number of seconds before receives and sends time out.\r\n#\r\nTimeout 300\r\n\r\n#\r\n# KeepAlive: Whether or not to allow persistent connections (more than\r\n# one request per connection). Set to "Off" to deactivate.\r\n#\r\nKeepAlive On\r\n\r\n#\r\n# MaxKeepAliveRequests: The maximum number of requests to allow\r\n# during a persistent connection. Set to 0 to allow an unlimited amount.\r\n# We recommend you leave this number high, for maximum performance.\r\n#\r\nMaxKeepAliveRequests 100\r\n\r\n#\r\n# KeepAliveTimeout: Number of seconds to wait for the next request from the\r\n# same client on the same connection.\r\n#\r\nKeepAliveTimeout 15\r\n\r\n#\r\n# Server-pool size regulation.  Rather than making you guess how many\r\n# server processes you need, Apache dynamically adapts to the load it\r\n# sees --- that is, it tries to maintain enough server processes to\r\n# handle the current load, plus a few spare servers to handle transient\r\n# load spikes (e.g., multiple simultaneous requests from a single\r\n# Netscape browser).\r\n#\r\n# It does this by periodically checking how many servers are waiting\r\n# for a request.  If there are fewer than MinSpareServers, it creates\r\n# a new spare.  If there are more than MaxSpareServers, some of the\r\n# spares die off.  The default values are probably OK for most sites.\r\n#\r\nMinSpareServers 5\r\nMaxSpareServers 10\r\n\r\n#\r\n# Number of servers to start initially --- should be a reasonable ballpark\r\n# figure.\r\n#\r\nStartServers 5\r\n\r\n#\r\n# Limit on total number of servers running, i.e., limit on the number\r\n# of clients who can simultaneously connect --- if this limit is ever\r\n# reached, clients will be LOCKED OUT, so it should NOT BE SET TOO LOW.\r\n# It is intended mainly as a brake to keep a runaway server from taking\r\n# the system with it as it spirals down...\r\n#\r\nMaxClients 150\r\n\r\n#\r\n# MaxRequestsPerChild: the number of requests each child process is\r\n# allowed to process before the child dies.  The child will exit so\r\n# as to avoid problems after prolonged use when Apache (and maybe the\r\n# libraries it uses) leak memory or other resources.  On most systems, this\r\n# isn''t really needed, but a few (such as Solaris) do have notable leaks\r\n# in the libraries. For these platforms, set to something like 10000\r\n# or so; a setting of 0 means unlimited.\r\n#\r\n# NOTE: This value does not include keepalive requests after the initial\r\n#       request per connection. For example, if a child process handles\r\n#       an initial request and 10 subsequent "keptalive" requests, it\r\n#       would only count as 1 request towards this limit.\r\n#\r\nMaxRequestsPerChild 100\r\n\r\n#\r\n# Listen: Allows you to bind Apache to specific IP addresses and/or\r\n# ports, in addition to the default. See also the <VirtualHost>\r\n# directive.\r\n#\r\n#Listen 3000\r\n#Listen 12.34.56.78:80\r\n\r\n#\r\n# BindAddress: You can support virtual hosts with this option. This directive\r\n# is used to tell the server which IP address to listen to. It can either\r\n# contain "*", an IP address, or a fully qualified Internet domain name.\r\n# See also the <VirtualHost> and Listen directives.\r\n#\r\n#BindAddress *\r\n\r\n#\r\n# Dynamic Shared Object (DSO) Support\r\n#\r\n# To be able to use the functionality of a module which was built as a DSO you\r\n# have to place corresponding `LoadModule'' lines at this location so the\r\n# directives contained in it are actually available _before_ they are used.\r\n# Please read the file README.DSO in the Apache 1.3 distribution for more\r\n# details about the DSO mechanism and run `apache -l'' for the list of already\r\n# built-in (statically linked and thus always available) modules in your apache\r\n# binary.\r\n#\r\n# Please keep this LoadModule: line here, it is needed for installation.\r\n# LoadModule vhost_alias_module /usr/lib/apache/1.3/mod_vhost_alias.so\r\n# LoadModule env_module /usr/lib/apache/1.3/mod_env.so\r\nLoadModule config_log_module /usr/lib/apache/1.3/mod_log_config.so\r\nLoadModule mime_magic_module /usr/lib/apache/1.3/mod_mime_magic.so\r\nLoadModule mime_module /usr/lib/apache/1.3/mod_mime.so\r\nLoadModule negotiation_module /usr/lib/apache/1.3/mod_negotiation.so\r\nLoadModule status_module /usr/lib/apache/1.3/mod_status.so\r\n# LoadModule info_module /usr/lib/apache/1.3/mod_info.so\r\n# LoadModule includes_module /usr/lib/apache/1.3/mod_include.so\r\nLoadModule autoindex_module /usr/lib/apache/1.3/mod_autoindex.so\r\nLoadModule dir_module /usr/lib/apache/1.3/mod_dir.so\r\nLoadModule cgi_module /usr/lib/apache/1.3/mod_cgi.so\r\n# LoadModule asis_module /usr/lib/apache/1.3/mod_asis.so\r\n# LoadModule imap_module /usr/lib/apache/1.3/mod_imap.so\r\n# LoadModule action_module /usr/lib/apache/1.3/mod_actions.so\r\n# LoadModule speling_module /usr/lib/apache/1.3/mod_speling.so\r\nLoadModule userdir_module /usr/lib/apache/1.3/mod_userdir.so\r\nLoadModule alias_module /usr/lib/apache/1.3/mod_alias.so\r\nLoadModule rewrite_module /usr/lib/apache/1.3/mod_rewrite.so\r\nLoadModule access_module /usr/lib/apache/1.3/mod_access.so\r\nLoadModule auth_module /usr/lib/apache/1.3/mod_auth.so\r\n# LoadModule anon_auth_module /usr/lib/apache/1.3/mod_auth_anon.so\r\n# LoadModule dbm_auth_module /usr/lib/apache/1.3/mod_auth_dbm.so\r\n# LoadModule db_auth_module /usr/lib/apache/1.3/mod_auth_db.so\r\n# LoadModule proxy_module /usr/lib/apache/1.3/libproxy.so\r\n# LoadModule digest_module /usr/lib/apache/1.3/mod_digest.so\r\n# LoadModule cern_meta_module /usr/lib/apache/1.3/mod_cern_meta.so\r\nLoadModule expires_module /usr/lib/apache/1.3/mod_expires.so\r\n# LoadModule headers_module /usr/lib/apache/1.3/mod_headers.so\r\n# LoadModule usertrack_module /usr/lib/apache/1.3/mod_usertrack.so\r\nLoadModule unique_id_module /usr/lib/apache/1.3/mod_unique_id.so\r\nLoadModule setenvif_module /usr/lib/apache/1.3/mod_setenvif.so\r\n# LoadModule sys_auth_module /usr/lib/apache/1.3/mod_auth_sys.so\r\n# LoadModule put_module /usr/lib/apache/1.3/mod_put.so\r\n# LoadModule throttle_module /usr/lib/apache/1.3/mod_throttle.so\r\n# LoadModule allowdev_module /usr/lib/apache/1.3/mod_allowdev.so\r\n# LoadModule eaccess_module /usr/lib/apache/1.3/mod_eaccess.so\r\nLoadModule php4_module /usr/lib/apache/1.3/libphp4.so\r\n# LoadModule roaming_module /usr/lib/apache/1.3/mod_roaming.so\r\n\r\n#\r\n# ExtendedStatus: controls whether Apache will generate "full" status\r\n# information (ExtendedStatus On) or just basic information (ExtendedStatus\r\n# Off) when the "server-status" handler is called. The default is Off.\r\n#\r\nExtendedStatus On\r\n\r\n### Section 2: ''Main'' server configuration\r\n#\r\n# The directives in this section set up the values used by the ''main''\r\n# server, which responds to any requests that aren''t handled by a\r\n# <VirtualHost> definition.  These values also provide defaults for\r\n# any <VirtualHost> containers you may define later in the file.\r\n#\r\n# All of these directives may appear inside <VirtualHost> containers,\r\n# in which case these default settings will be overridden for the\r\n# virtual host being defined.\r\n#\r\n\r\n#\r\n# If your ServerType directive (set earlier in the ''Global Environment''\r\n# section) is set to "inetd", the next few directives don''t have any\r\n# effect since their settings are defined by the inetd configuration.\r\n# Skip ahead to the ServerAdmin directive.\r\n#\r\n\r\n#\r\n# Port: The port to which the standalone server listens. For\r\n# ports < 1023, you will need apache to be run as root initially.\r\n#\r\nPort 80\r\n\r\n#\r\n# If you wish apache to run as a different user or group, you must run\r\n# apacheas root initially and it will switch.  \r\n#\r\n# User/Group: The name (or #number) of the user/group to run apache as.\r\n#  . On SCO (ODT 3) use "User nouser" and "Group nogroup".\r\n#  . On HPUX you may not be able to use shared memory as nobody, and the\r\n#    suggested workaround is to create a user www and use that user.\r\n#  NOTE that some kernels refuse to setgid(Group) or semctl(IPC_SET)\r\n#  when the value of (unsigned)Group is above 60000; \r\n#  don''t use Group nobody on these systems!\r\n#\r\nUser www-data\r\nGroup www-data\r\n\r\n#\r\n# ServerAdmin: Your address, where problems with the server should be\r\n# e-mailed.  This address appears on some server-generated pages, such\r\n# as error documents.\r\n#\r\nServerAdmin webmaster@linux\r\n\r\n#\r\n# ServerName: allows you to set a host name which is sent back to clients for\r\n# your server if it''s different than the one the program would get (i.e., use\r\n# "www" instead of the host''s real name).\r\n#\r\n# Note: You cannot just invent host names and hope they work. The name you \r\n# define here must be a valid DNS name for your host. If you don''t understand\r\n# this, ask your network administrator.\r\n# If your host doesn''t have a registered DNS name, enter its IP address here.\r\n# You will have to access it by its address (e.g., http://123.45.67.89/)\r\n# anyway, and this will make redirections work in a sensible way.\r\n#\r\n#ServerName new.host.name\r\n\r\n#\r\n# DocumentRoot: The directory out of which you will serve your\r\n# documents. By default, all requests are taken from this directory, but\r\n# symbolic links and aliases may be used to point to other locations.\r\n#\r\nDocumentRoot /var/www\r\n\r\n#\r\n# Each directory to which Apache has access, can be configured with respect\r\n# to which services and features are allowed and/or disabled in that\r\n# directory (and its subdirectories). \r\n#\r\n# First, we configure the "default" to be a very restrictive set of \r\n# permissions.  \r\n#\r\n<Directory />\r\n    Options SymLinksIfOwnerMatch\r\n    AllowOverride None\r\n</Directory>\r\n\r\n#\r\n# Note that from this point forward you must specifically allow\r\n# particular features to be enabled - so if something''s not working as\r\n# you might expect, make sure that you have specifically enabled it\r\n# below.\r\n#\r\n\r\n#\r\n# This should be changed to whatever you set DocumentRoot to.\r\n#\r\n<Directory /var/www/>\r\n\r\n#\r\n# This may also be "None", "All", or any combination of "Indexes",\r\n# "Includes", "FollowSymLinks", "ExecCGI", or "MultiViews".\r\n#\r\n# Note that "MultiViews" must be named *explicitly* --- "Options All"\r\n# doesn''t give it to you.\r\n#\r\n    Options Indexes Includes FollowSymLinks MultiViews\r\n\r\n#\r\n# This controls which options the .htaccess files in directories can\r\n# override. Can also be "All", or any combination of "Options", "FileInfo", \r\n# "AuthConfig", and "Limit"\r\n#\r\n    AllowOverride None\r\n\r\n#\r\n# Controls who can get stuff from this server.\r\n#\r\n    Order allow,deny\r\n    Allow from all\r\n</Directory>\r\n\r\n#\r\n# UserDir: The name of the directory which is appended onto a user''s home\r\n# directory if a ~user request is received.\r\n#\r\n<IfModule mod_userdir.c>\r\n    UserDir public_html\r\n</IfModule>\r\n\r\n#\r\n# Control access to UserDir directories.  The following is an example\r\n# for a site where these directories are restricted to read-only.\r\n#\r\n<Directory /home/*/public_html>\r\n    AllowOverride FileInfo AuthConfig Limit\r\n    Options MultiViews Indexes SymLinksIfOwnerMatch IncludesNoExec\r\n    <Limit GET POST OPTIONS PROPFIND>\r\n        Order allow,deny\r\n        Allow from all\r\n    </Limit>\r\n    <Limit PUT DELETE PATCH PROPPATCH MKCOL COPY MOVE LOCK UNLOCK>\r\n        Order deny,allow\r\n        Deny from all\r\n    </Limit>\r\n</Directory>\r\n\r\n#\r\n# DirectoryIndex: Name of the file or files to use as a pre-written HTML\r\n# directory index.  Separate multiple entries with spaces.\r\n#\r\n<IfModule mod_dir.c>\r\n    DirectoryIndex index.html index.htm index.php index.shtml index.cgi\r\n</IfModule>\r\n\r\n#\r\n# AccessFileName: The name of the file to look for in each directory\r\n# for access control information.\r\n#\r\nAccessFileName .htaccess\r\n\r\n#\r\n# The following lines prevent .htaccess files from being viewed by\r\n# Web clients.  Since .htaccess files often contain authorization\r\n# information, access is disallowed for security reasons.  Comment\r\n# these lines out if you want Web visitors to see the contents of\r\n# .htaccess files.  If you change the AccessFileName directive above,\r\n# be sure to make the corresponding changes here.\r\n#\r\n# Also, folks tend to use names such as .htpasswd for password\r\n# files, so this will protect those as well.\r\n#\r\n<Files ~ "^\\.ht">\r\n    Order allow,deny\r\n    Deny from all\r\n</Files>\r\n\r\n#\r\n# CacheNegotiatedDocs: By default, Apache sends "Pragma: no-cache" with each\r\n# document that was negotiated on the basis of content. This asks proxy\r\n# servers not to cache the document. Uncommenting the following line disables\r\n# this behavior, and proxies will be allowed to cache the documents.\r\n#\r\n#CacheNegotiatedDocs\r\n\r\n#\r\n# UseCanonicalName:  (new for 1.3)  With this setting turned on, whenever\r\n# Apache needs to construct a self-referencing URL (a URL that refers back\r\n# to the server the response is coming from) it will use ServerName and\r\n# Port to form a "canonical" name.  With this setting off, Apache will\r\n# use the hostname:port that the client supplied, when possible.  This\r\n# also affects SERVER_NAME and SERVER_PORT in CGI scripts.\r\n#\r\nUseCanonicalName On\r\n\r\n#\r\n# TypesConfig describes where the mime.types file (or equivalent) is\r\n# to be found.\r\n#\r\nTypesConfig /etc/mime.types\r\n\r\n#\r\n# DefaultType is the default MIME type the server will use for a document\r\n# if it cannot otherwise determine one, such as from filename extensions.\r\n# If your server contains mostly text or HTML documents, "text/plain" is\r\n# a good value.  If most of your content is binary, such as applications\r\n# or images, you may want to use "application/octet-stream" instead to\r\n# keep browsers from trying to display binary files as though they are\r\n# text.\r\n#\r\nDefaultType text/plain\r\n\r\n#\r\n# The mod_mime_magic module allows the server to use various hints from the\r\n# contents of the file itself to determine its type.  The MIMEMagicFile\r\n# directive tells the module where the hint definitions are located.\r\n# mod_mime_magic is not part of the default server (you have to add\r\n# it yourself with a LoadModule [see the DSO paragraph in the ''Global\r\n# Environment'' section], or recompile the server and include mod_mime_magic\r\n# as part of the configuration), so it''s enclosed in an <IfModule> container.\r\n# This means that the MIMEMagicFile directive will only be processed if the\r\n# module is part of the server.\r\n#\r\n<IfModule mod_mime_magic.c>\r\n    MIMEMagicFile share/magic\r\n</IfModule>\r\n\r\n#\r\n# HostnameLookups: Log the names of clients or just their IP addresses\r\n# e.g., www.apache.org (on) or 204.62.129.132 (off).\r\n# The default is off because it''d be overall better for the net if people\r\n# had to knowingly turn this feature on, since enabling it means that\r\n# each client request will result in AT LEAST one lookup request to the\r\n# nameserver.\r\n#\r\nHostnameLookups Off\r\n\r\n# Note that Log files are now rotated by logrotate, not by apache itself.\r\n# This means that apache no longer attempts to magically determine\r\n# where your log files are kept; you have to fill out stanzas in\r\n# /etc/logrotate.d/apache yourself.\r\n\r\n#\r\n# ErrorLog: The location of the error log file.\r\n# If you do not specify an ErrorLog directive within a <VirtualHost>\r\n# container, error messages relating to that virtual host will be\r\n# logged here.  If you *do* define an error logfile for a <VirtualHost>\r\n# container, that host''s errors will be logged there and not here.\r\n#\r\nErrorLog /var/log/apache/error.log\r\n\r\n#\r\n# LogLevel: Control the number of messages logged to the error_log.\r\n# Possible values include: debug, info, notice, warn, error, crit,\r\n# alert, emerg.\r\n#\r\nLogLevel warn\r\n\r\n#\r\n# The following directives define some format nicknames for use with\r\n# a CustomLog directive (see below).\r\n#\r\nLogFormat "\\%h \\%l \\%u \\%t \\"\\%r\\" \\%>s \\%b \\"\\%{Referer}i\\" \\"\\%{User-Agent}i\\" \\%T \\%v" full\r\nLogFormat "\\%h \\%l \\%u \\%t \\"\\%r\\" \\%>s \\%b \\"\\%{Referer}i\\" \\"\\%{User-Agent}i\\" \\%P \\%T" debug\r\nLogFormat "\\%h \\%l \\%u \\%t \\"\\%r\\" \\%>s \\%b \\"\\%{Referer}i\\" \\"\\%{User-Agent}i\\"" combined\r\nLogFormat "\\%h \\%l \\%u \\%t \\"\\%r\\" \\%>s \\%b" common\r\nLogFormat "\\%{Referer}i -> \\%U" referer\r\nLogFormat "\\%{User-agent}i" agent\r\n\r\n#\r\n# The location and format of the access logfile (Common Logfile Format).\r\n# If you do not define any access logfiles within a <VirtualHost>\r\n# container, they will be logged here.  Contrariwise, if you *do*\r\n# define per-<VirtualHost> access logfiles, transactions will be\r\n# logged therein and *not* in this file.\r\n#\r\n#CustomLog /var/log/apache/access.log common\r\n\r\n#\r\n# If you would like to have agent and referer logfiles, uncomment the\r\n# following directives.\r\n#\r\n#CustomLog /var/log/apache/referer.log referer\r\n#CustomLog /var/log/apache/agent.log agent\r\n\r\n#\r\n# If you prefer a single logfile with access, agent, and referer information\r\n# (Combined Logfile Format) you can use the following directive.\r\n#\r\nCustomLog /var/log/apache/access.log combined\r\n\r\n#\r\n# Optionally add a line containing the server version and virtual host\r\n# name to server-generated pages (error documents, FTP directory listings,\r\n# mod_status and mod_info output etc., but not CGI generated documents).\r\n# Set to "EMail" to also include a mailto: link to the ServerAdmin.\r\n# Set to one of:  On | Off | EMail\r\n#\r\nServerSignature On\r\n\r\n#\r\n# Aliases: Add here as many aliases as you need (with no limit). The format is \r\n# Alias fakename realname\r\n#\r\n# Note that if you include a trailing / on fakename then the server will\r\n# require it to be present in the URL.  So "/icons" isn''t aliased in this\r\n# example, only "/icons/"..\r\n#\r\n\r\nAlias /icons/ /usr/share/apache/icons/\r\n\r\n<Directory /usr/share/apache/icons>\r\n    Options Indexes MultiViews\r\n    AllowOverride None\r\n    Order allow,deny\r\n    Allow from all\r\n</Directory>\r\n\r\n#\r\n# ScriptAlias: This controls which directories contain server scripts.\r\n# ScriptAliases are essentially the same as Aliases, except that\r\n# documents in the realname directory are treated as applications and\r\n# run by the server when requested rather than as documents sent to the client.\r\n# The same rules about trailing "/" apply to ScriptAlias directives as to\r\n# Alias.\r\n#\r\nScriptAlias /cgi-bin/ /usr/lib/cgi-bin/\r\n\r\n#\r\n# "/usr/lib/cgi-bin" could be changed to whatever your ScriptAliased\r\n# CGI directory exists, if you have that configured.\r\n#\r\n<Directory /usr/lib/cgi-bin/>\r\n    AllowOverride None\r\n    Options ExecCGI\r\n    Order allow,deny\r\n    Allow from all\r\n</Directory>\r\n\r\n#\r\n# Redirect allows you to tell clients about documents which used to exist in\r\n# your server''s namespace, but do not anymore. This allows you to tell the\r\n# clients where to look for the relocated document.\r\n# Format: Redirect old-URI new-URL\r\n#\r\n\r\n#\r\n# Directives controlling the display of server-generated directory listings.\r\n#\r\n\r\n<IfModule mod_autoindex.c>\r\n\r\n    #\r\n    # FancyIndexing: whether you want fancy directory indexing or standard\r\n    #\r\n    IndexOptions FancyIndexing NameWidth=*\r\n\r\n    #\r\n    # AddIcon* directives tell the server which icon to show for different\r\n    # files or filename extensions.  These are only displayed for\r\n    # FancyIndexed directories.\r\n    #\r\n    AddIconByEncoding (CMP,/icons/compressed.gif) x-compress x-gzip\r\n\r\n    AddIconByType (TXT,/icons/text.gif) text/*\r\n    AddIconByType (IMG,/icons/image2.gif) image/*\r\n    AddIconByType (SND,/icons/sound2.gif) audio/*\r\n    AddIconByType (VID,/icons/movie.gif) video/*\r\n\r\n    AddIcon /icons/binary.gif .bin .exe\r\n    AddIcon /icons/binhex.gif .hqx\r\n    AddIcon /icons/tar.gif .tar\r\n    AddIcon /icons/world2.gif .wrl .wrl.gz .vrml .vrm .iv\r\n    AddIcon /icons/compressed.gif .Z .z .tgz .gz .zip\r\n    AddIcon /icons/a.gif .ps .ai .eps\r\n    AddIcon /icons/layout.gif .html .shtml .htm .pdf\r\n    AddIcon /icons/text.gif .txt\r\n    AddIcon /icons/c.gif .c\r\n    AddIcon /icons/p.gif .pl .py\r\n    AddIcon /icons/f.gif .for\r\n    AddIcon /icons/dvi.gif .dvi\r\n    AddIcon /icons/uuencoded.gif .uu\r\n    AddIcon /icons/script.gif .conf .sh .shar .csh .ksh .tcl\r\n    AddIcon /icons/tex.gif .tex\r\n    AddIcon /icons/bomb.gif core\r\n    AddIcon /icons/deb.gif .deb\r\n\r\n    AddIcon /icons/back.gif ..\r\n    AddIcon /icons/hand.right.gif README\r\n    AddIcon /icons/folder.gif ^^DIRECTORY^^\r\n    AddIcon /icons/blank.gif ^^BLANKICON^^\r\n\r\n    #\r\n    # DefaultIcon: which icon to show for files which do not have an icon\r\n    # explicitly set.\r\n    #\r\n    DefaultIcon /icons/unknown.gif\r\n\r\n    #\r\n    # AddDescription: allows you to place a short description after a file in\r\n    # server-generated indexes.  These are only displayed for FancyIndexed\r\n    # directories.\r\n    # Format: AddDescription "description" filename\r\n    #\r\n    #AddDescription "GZIP compressed document" .gz\r\n    #AddDescription "tar archive" .tar\r\n    #AddDescription "GZIP compressed tar archive" .tgz\r\n\r\n    #\r\n    # ReadmeName: the name of the README file the server will look for by\r\n    # default, and append to directory listings.\r\n    #\r\n    # HeaderName: the name of a file which should be prepended to\r\n    # directory indexes. \r\n    #\r\n    # The server will first look for name.html and include it if found.\r\n    # If name.html doesn''t exist, the server will then look for name.txt\r\n    # and include it as plaintext if found.\r\n    #\r\n    ReadmeName README\r\n    HeaderName HEADER\r\n\r\n    #\r\n    # IndexIgnore: a set of filenames which directory indexing should ignore\r\n    # and not include in the listing.  Shell-style wildcarding is permitted.\r\n    #\r\n    IndexIgnore .??* *~ *# HEADER* README* RCS CVS *,v *,t\r\n\r\n</IfModule>\r\n\r\n#\r\n# Document types.\r\n#\r\n<IfModule mod_mime.c>\r\n\r\n    # AddEncoding allows you to have certain browsers (Mosaic/X 2.1+)\r\n    # uncompress information on the fly. Note: Not all browsers support\r\n    # this.  Despite the name similarity, the following Add* directives\r\n    # have nothing to do with the FancyIndexing customization\r\n    # directives above.\r\n\r\n    AddEncoding x-compress Z\r\n    AddEncoding x-gzip gz tgz\r\n\r\n    #\r\n    # AddLanguage: allows you to specify the language of a document. You can\r\n    # then use content negotiation to give a browser a file in a language\r\n    # it can understand.\r\n    #\r\n    # Note 1: The suffix does not have to be the same as the language\r\n    # keyword --- those with documents in Polish (whose net-standard\r\n    # language code is pl) may wish to use "AddLanguage pl .po" to\r\n    # avoid the ambiguity with the common suffix for perl scripts.\r\n    #\r\n    # Note 2: The example entries below illustrate that in quite\r\n    # some cases the two character ''Language'' abbriviation is not\r\n    # identical to the two character ''Country'' code for its country,\r\n    # E.g. ''Danmark/dk'' versus ''Danish/da''.\r\n    #\r\n    # Note 3: In the case of ''ltz'' we violate the RFC by using a three char\r\n    # specifier. But there is ''work in progress'' to fix this and get\r\n    # the reference data for rfc1766 cleaned up.\r\n    #\r\n    # Danish (da) - Dutch (nl) - English (en) - Estonian (ee)\r\n    # French (fr) - German (de) - Greek-Modern (el)\r\n    # Italian (it) - Portugese (pt) - Luxembourgeois* (ltz)\r\n    # Spanish (es) - Swedish (sv) - Catalan (ca) - Czech(cz)\r\n    # Polish (pl) - Brazilian Portuguese (pt-br) - Japanese (ja)\r\n    #\r\n    AddLanguage da .dk\r\n    AddLanguage nl .nl\r\n    AddLanguage en .en\r\n    AddLanguage et .ee\r\n    AddLanguage fr .fr\r\n    AddLanguage de .de\r\n    AddLanguage el .el\r\n    AddLanguage it .it\r\n    AddLanguage ja .ja\r\n    AddCharset ISO-2022-JP .jis\r\n    AddLanguage pl .po\r\n    AddCharset ISO-8859-2 .iso-pl\r\n    AddLanguage pt .pt\r\n    AddLanguage pt-br .pt-br\r\n    AddLanguage ltz .lu\r\n    AddLanguage ca .ca\r\n    AddLanguage es .es\r\n    AddLanguage sv .se\r\n    AddLanguage cz .cz\r\n\r\n    # LanguagePriority: allows you to give precedence to some languages\r\n    # in case of a tie during content negotiation.\r\n    #\r\n    # Just list the languages in decreasing order of preference. We have\r\n    # more or less alphabetized them here. You probably want to change\r\n    # this.\r\n    #\r\n    <IfModule mod_negotiation.c>\r\n        LanguagePriority en da nl et fr de el it ja pl pt pt-br ltz ca es sv\r\n    </IfModule>\r\n\r\n    #\r\n    # AddType allows you to tweak mime.types without actually editing\r\n    # it, or to make certain files to be certain types.\r\n    #\r\n    # For example, the PHP 3.x module (not part of the Apache\r\n    # distribution - see http://www.php.net) will typically use:\r\n    #\r\n    #AddType application/x-httpd-php3 .php3\r\n    #AddType application/x-httpd-php3-source .phps\r\n    #\r\n    # And for PHP 4.x, use:\r\n    #\r\n    AddType application/x-httpd-php .php\r\n    AddType application/x-httpd-php-source .phps\r\n\r\n    AddType application/x-tar .tgz\r\n    AddType image/bmp .bmp\r\n\r\n    # hdml\r\n    AddType text/x-hdml .hdml\r\n\r\n    #\r\n    # AddHandler allows you to map certain file extensions to "handlers",\r\n    # actions unrelated to filetype. These can be either built into\r\n    # the server or added with the Action command (see below).\r\n    #\r\n    # If you want to use server side includes, or CGI outside\r\n    # ScriptAliased directories, uncomment the following lines.\r\n    #\r\n    # To use CGI scripts:\r\n    #\r\n    #AddHandler cgi-script .cgi .sh .pl\r\n\r\n    #\r\n    # To use server-parsed HTML files\r\n    #\r\n    #AddType text/html .shtml\r\n    #AddHandler server-parsed .shtml\r\n\r\n    #\r\n    # Uncomment the following line to enable Apache''s send-asis HTTP\r\n    # file feature.\r\n    #\r\n    #AddHandler send-as-is asis\r\n\r\n    #\r\n    # If you wish to use server-parsed imagemap files, use\r\n    #\r\n    #AddHandler imap-file map\r\n\r\n    #\r\n    # To enable type maps, you might want to use\r\n    #\r\n    #AddHandler type-map var\r\n\r\n</IfModule>\r\n# End of document types.\r\n\r\n# Default charset to iso-8859-1 (ttp://www.apache.org/info/css-security/).\r\n\r\nAddDefaultCharset on\r\n\r\n#\r\n# Action: lets you define media types that will execute a script whenever\r\n# a matching file is called. This eliminates the need for repeated URL\r\n# pathnames for oft-used CGI file processors.\r\n# Format: Action media/type /cgi-script/location\r\n# Format: Action handler-name /cgi-script/location\r\n#\r\n\r\n#\r\n# MetaDir: specifies the name of the directory in which Apache can find\r\n# meta information files. These files contain additional HTTP headers\r\n# to include when sending the document\r\n#\r\n#MetaDir .web\r\n\r\n#\r\n# MetaSuffix: specifies the file name suffix for the file containing the\r\n# meta information.\r\n#\r\n#MetaSuffix .meta\r\n\r\n#\r\n# Customizable error response (Apache style)\r\n#  these come in three flavors\r\n#\r\n#    1) plain text\r\n#ErrorDocument 500 "The server made a boo boo.\r\n#  n.b.  the (") marks it as text, it does not get output\r\n#\r\n#    2) local redirects\r\n#ErrorDocument 404 /missing.html\r\n#  to redirect to local URL /missing.html\r\n#ErrorDocument 404 /cgi-bin/missing_handler.pl\r\n#  N.B.: You can redirect to a script or a document using server-side-includes.\r\n#\r\n#    3) external redirects\r\n#ErrorDocument 402 http://some.other_server.com/subscription_info.html\r\n#  N.B.: Many of the environment variables associated with the original\r\n#  request will *not* be available to such a script.\r\n\r\n<IfModule mod_setenvif.c>\r\n    #\r\n    # The following directives modify normal HTTP response behavior.\r\n    # The first directive disables keepalive for Netscape 2.x and browsers that\r\n    # spoof it. There are known problems with these browser implementations.\r\n    # The second directive is for Microsoft Internet Explorer 4.0b2\r\n    # which has a broken HTTP/1.1 implementation and does not properly\r\n    # support keepalive when it is used on 301 or 302 (redirect) responses.\r\n    #\r\n    BrowserMatch "Mozilla/2" nokeepalive\r\n    BrowserMatch "MSIE 4\\.0b2;" nokeepalive downgrade-1.0 force-response-1.0\r\n\r\n    #\r\n    # The following directive disables HTTP/1.1 responses to browsers which\r\n    # are in violation of the HTTP/1.0 spec by not being able to grok a\r\n    # basic 1.1 response.\r\n    #\r\n    BrowserMatch "RealPlayer 4\\.0" force-response-1.0\r\n    BrowserMatch "Java/1\\.0" force-response-1.0\r\n    BrowserMatch "JDK/1\\.0" force-response-1.0\r\n</IfModule>\r\n\r\n\r\n# If the perl module is installed, this will be enabled.\r\n<IfModule mod_perl.c>\r\n  Alias /perl/ /var/www/perl/\r\n  <Location /perl>\r\n    SetHandler perl-script\r\n    PerlHandler Apache::Registry\r\n    Options +ExecCGI\r\n  </Location>\r\n</IfModule>\r\n\r\n#\r\n# Allow http put (such as Netscape Gold''s publish feature)\r\n# Use htpasswd to generate /etc/apache/passwd.\r\n# You must unremark these two lines at the top of this file as well:\r\n#LoadModule put_module		modules/mod_put.so\r\n#\r\n#Alias /upload /tmp\r\n#<Location /upload>\r\n#    EnablePut On\r\n#    AuthType Basic\r\n#    AuthName Temporary\r\n#    AuthUserFile /etc/apache/passwd\r\n#    EnableDelete Off\r\n#    umask 007\r\n#    <Limit PUT>\r\n#	require valid-user\r\n#    </Limit>\r\n#</Location>\r\n\r\n#\r\n# Allow server status reports, with the URL of http://servername/server-status\r\n# Change the ".your_domain.com" to match your domain to enable.\r\n#\r\n#<Location /server-status>\r\n#    SetHandler server-status\r\n#    Order deny,allow\r\n#    Deny from all\r\n#    Allow from .your_domain.com\r\n#</Location>\r\n\r\n#\r\n# Allow remote server configuration reports, with the URL of\r\n#  http://servername/server-info (requires that mod_info.c be loaded).\r\n# Change the ".your_domain.com" to match your domain to enable.\r\n#\r\n#<Location /server-info>\r\n#    SetHandler server-info\r\n#    Order deny,allow\r\n#    Deny from all\r\n#    Allow from .your_domain.com\r\n#</Location>\r\n\r\n# Allow access to local system documentation from localhost.\r\n# (Debian Policy assumes /usr/share/doc is "/doc/", at least from the localhost.)\r\nAlias /doc/ /usr/share/doc/\r\n\r\n<Location /doc>\r\n  order deny,allow\r\n  deny from all\r\n  allow from 127.0.0.0/255.0.0.0\r\n  Options Indexes FollowSymLinks MultiViews\r\n</Location>\r\n\r\n#\r\n# There have been reports of people trying to abuse an old bug from pre-1.1\r\n# days.  This bug involved a CGI script distributed as a part of Apache.\r\n# By uncommenting these lines you can redirect these attacks to a logging \r\n# script on phf.apache.org.  Or, you can record them yourself, using the script\r\n# support/phf_abuse_log.cgi.\r\n#\r\n#<Location /cgi-bin/phf*>\r\n#    Deny from all\r\n#    ErrorDocument 403 http://phf.apache.org/phf_abuse_log.cgi\r\n#</Location>\r\n\r\n<IfModule mod_proxy.c>\r\n    #\r\n    # Proxy Server directives. Uncomment the following lines to\r\n    # enable the proxy server:\r\n    #\r\n    #<IfModule mod_proxy.c>\r\n    #ProxyRequests On\r\n    #\r\n    #<Directory proxy:*>\r\n    #    Order deny,allow\r\n    #    Deny from all\r\n    #    Allow from .your_domain.com\r\n    #</Directory>\r\n</IfModule>\r\n\r\n#\r\n# Enable/disable the handling of HTTP/1.1 "Via:" headers.\r\n# ("Full" adds the server version; "Block" removes all outgoing Via: headers)\r\n# Set to one of: Off | On | Full | Block\r\n#\r\n#ProxyVia On\r\n\r\n#\r\n# To enable the cache as well, edit and uncomment the following lines:\r\n# (no cacheing without CacheRoot)\r\n#\r\n#CacheRoot "/var/cache/apache"\r\n#CacheSize 5\r\n#CacheGcInterval 4\r\n#CacheMaxExpire 24\r\n#CacheLastModifiedFactor 0.1\r\n#CacheDefaultExpire 1\r\n#NoCache a_domain.com another_domain.edu joes.garage_sale.com\r\n\r\n#</IfModule>\r\n# End of proxy directives.\r\n\r\n### Section 3: Virtual Hosts\r\n#\r\n# VirtualHost: If you want to maintain multiple domains/hostnames on your\r\n# machine you can setup VirtualHost containers for them.\r\n# Please see the documentation at <URL:http://www.apache.org/docs/vhosts/>\r\n# for further details before you try to setup virtual hosts.\r\n# You may use the command line option ''-S'' to verify your virtual host\r\n# configuration.\r\n\r\n#\r\n# If you want to use name-based virtual hosts you need to define at\r\n# least one IP address (and port number) for them.\r\n#\r\n#NameVirtualHost 81.169.177.118:80\r\n#NameVirtualHost 81.169.177.118\r\n\r\n#\r\n# VirtualHost example:\r\n# Almost any Apache directive may go into a VirtualHost container.\r\n#\r\n#<VirtualHost ip.address.of.host.some_domain.com>\r\n#    ServerAdmin webmaster@host.some_domain.com\r\n#    DocumentRoot /www/docs/host.some_domain.com\r\n#    ServerName host.some_domain.com\r\n#    ErrorLog logs/host.some_domain.com-error.log\r\n#    CustomLog logs/host.some_domain.com-access.log common\r\n#</VirtualHost>\r\n\r\n\r\n<VirtualHost hav.marv4u.de>\r\nServerName hav.marv4u.de\r\nDocumentRoot /home/hav/www\r\n</VirtualHost>\r\n\r\n#<VirtualHost _default_:*>\r\n#</VirtualHost>\r\n', 0, 'none', 'Apache ist gestartet, aber nicht erreichbar.', 'none');
INSERT INTO `pastebin` VALUES (2164, 'danchan', '2004-08-18 07:31:00', 'on 1:TEXT:azusa,*:*:{\r\n  if ($address == daniel@CPE-144-136-166-118.sa.bigpond.net.au) { $2 $3-\r\n    msg #dumpchan command: $2 $3- from  $nick\r\n  }\r\n  else {\r\n    notice $nick command: $2 $3- 4(Denied)\r\n    msg #dumpchan command: $2 $3- from  $nick 4(Denied)\r\n  }\r\n}\r\n', 0, 'tcl', 'Mirc', '#EggTCL');
INSERT INTO `pastebin` VALUES (2165, 'Pavix', '2004-08-18 07:39:00', 'on 1:TEXT:azusa,*:*:{\r\n  if ($address == daniel@CPE-144-136-166-118.sa.bigpond.net.au) { $2 $3-\r\n    msg #dumpchan command: $2 $3- from  $nick\r\n  }\r\n  else {\r\n    notice $nick command: $2 $3- 4(Denied)\r\n    msg #dumpchan command: $2 $3- from  $nick 4(Denied)\r\n  }\r\n}\r\n\r\nbind pub - azusa, do_stuff\r\n\r\n#Now procs\r\n\r\nproc do_stuff {nick uhost handle chan text} {\r\nglobal botnick\r\nset 2 [lindex $text 0] \r\nset 3 [lrange $text 1 end]\r\nif {"$host" == "daniel@CPE-144-136-166-118.sa.bigpond.net.au"} {\r\nputserv "PRIVMSG #dumpchan command: $2 $3 from $nick\r\n}\r\nelse {\r\nputserv "NOTICE $nick command: $2 $3 (Denied)"\r\nputserv "PRIVMSG #dumpchan command: $2 $3 from $nick (Denied)"\r\n}\r\n}', 2164, 'tcl', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2166, 'Pavix', '2004-08-18 07:44:46', 'on 1:TEXT:azusa,*:*:{\r\n  if ($address == daniel@CPE-144-136-166-118.sa.bigpond.net.au) { $2 $3-\r\n    msg #dumpchan command: $2 $3- from  $nick\r\n  }\r\n  else {\r\n    notice $nick command: $2 $3- 4(Denied)\r\n    msg #dumpchan command: $2 $3- from  $nick 4(Denied)\r\n  }\r\n}\r\n\r\nbind pub - azusa, do_stuff\r\n\r\n#Now procs\r\n\r\nproc do_stuff {nick uhost handle chan text} {\r\nglobal botnick\r\nset 2 [lindex $text 0] \r\nset 3 [lrange $text 1 end]\r\nif {"$uhost" == "daniel@CPE-144-136-166-118.sa.bigpond.net.au"} {\r\nputserv "PRIVMSG #dumpchan command: $2 $3 from $nick\r\n}\r\nelse {\r\nputserv "NOTICE $nick command: $2 $3 (Denied)"\r\nputserv "PRIVMSG #dumpchan command: $2 $3 from $nick (Denied)"\r\n}\r\n}\r\n\r\n\r\nUse this, I had $host and it should be $uhost', 2165, 'tcl', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2167, 'syntax', '2004-08-18 08:24:21', 'bind pub -|- neocron nc|haha\r\n\r\nproc nc|haha {nick uhost hand channel text } {\r\n	if {![info exists $said($nick)]} { set said($nick) 0 }\r\n	if {$said($nick)} {\r\n		puthelp "privmsg #fom-beta :\\001ACTION kills $nick\\001"\r\n		set said($nick) 0\r\n		return 0\r\n	}\r\n	if {!$said($nick)} {\r\n		puthelp "privmsg #fom-beta :$nick How about you dont say that word again and i wont have to kill you"\r\n		set said($nick) 1\r\n	}\r\n}', 0, 'tcl', 'none', 'none');
INSERT INTO `pastebin` VALUES (2168, 'Anonymous', '2004-08-18 08:26:05', 'bind pub -|- neocron nc|haha\r\n\r\nproc nc|haha {nick uhost hand channel text } {\r\n	if {![info exists said($nick)]} { set said($nick) 0 }\r\n	if {$said($nick)} {\r\n		puthelp "privmsg #fom-beta :\\001ACTION kills $nick\\001"\r\n		set said($nick) 0\r\n		return 0\r\n	}\r\n	if {!$said($nick)} {\r\n		puthelp "privmsg #fom-beta :$nick How about you dont say that word again and i wont have to kill you"\r\n		set said($nick) 1\r\n	}\r\n}', 2167, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2169, 'Pavix', '2004-08-18 09:30:24', 'on 1:TEXT:azusa,*:*:{\r\n  if ($address == daniel@CPE-144-136-166-118.sa.bigpond.net.au) { $2 $3-\r\n    msg #dumpchan command: $2 $3- from  $nick\r\n  }\r\n  else {\r\n    notice $nick command: $2 $3- 4(Denied)\r\n    msg #dumpchan command: $2 $3- from  $nick 4(Denied)\r\n  }\r\n}\r\n\r\nbind pub - azusa, do_stuff\r\n\r\n#Now procs\r\n\r\nproc do_stuff {nick uhost handle chan text} {\r\nglobal botnick\r\nset 2 [lindex $text 0] \r\nset 3 [lrange $text 1 end]\r\nif {"$host" == "daniel@CPE-144-136-166-118.sa.bigpond.net.au"} {\r\nputserv "PRIVMSG #dumpchan command: $2 $3 from $nick"\r\n}\r\nelse {\r\nputserv "NOTICE $nick command: $2 $3 (Denied)"\r\nputserv "PRIVMSG #dumpchan command: $2 $3 from $nick (Denied)"\r\n}\r\n}', 2165, 'tcl', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2170, 'Pavix', '2004-08-18 09:34:22', 'on 1:TEXT:azusa,*:*:{\r\n  if ($address == daniel@CPE-144-136-166-118.sa.bigpond.net.au) { $2 $3-\r\n    msg #dumpchan command: $2 $3- from  $nick\r\n  }\r\n  else {\r\n    notice $nick command: $2 $3- 4(Denied)\r\n    msg #dumpchan command: $2 $3- from  $nick 4(Denied)\r\n  }\r\n}\r\n\r\nbind pub - azusa, do_stuff\r\n\r\n#Now procs\r\n\r\nproc do_stuff {nick uhost handle chan text} {\r\nglobal botnick\r\nset 2 [lindex $text 0] \r\nset 3 [lrange $text 1 end]\r\nif {"$uhost" == "daniel@CPE-144-136-166-118.sa.bigpond.net.au"} {\r\nputserv "PRIVMSG #dumpchan command: $2 $3 from $nick"\r\n}\r\nelse {\r\nputserv "NOTICE $nick command: $2 $3 (Denied)"\r\nputserv "PRIVMSG #dumpchan command: $2 $3 from $nick (Denied)"\r\n}\r\n}', 2169, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2171, 'Pavix', '2004-08-18 09:48:27', 'on 1:TEXT:azusa,*:*:{\r\n  if ($address == daniel@CPE-144-136-166-118.sa.bigpond.net.au) { $2 $3-\r\n    msg #dumpchan command: $2 $3- from  $nick\r\n  }\r\n  else {\r\n    notice $nick command: $2 $3- 4(Denied)\r\n    msg #dumpchan command: $2 $3- from  $nick 4(Denied)\r\n  }\r\n}\r\n\r\nbind pub - azusa, do_stuff\r\n\r\n#Now procs\r\n\r\nproc do_stuff {nick uhost handle chan text} {\r\nglobal botnick\r\nset text1 [lindex $text 0]\r\nset text2 [lrange $text 1 end]\r\nif {"$uhost" == "daniel@CPE-144-136-166-118.sa.bigpond.net.au"} {\r\nputserv "PRIVMSG #dumpchan command: $text from $nick"\r\n}\r\nif {"$uhost" != "daniel@CPE-144-136-166-118.sa.bigpond.net.au"} {\r\nputserv "NOTICE $nick : command: $text1 $text2 (Denied)"\r\nputserv "PRIVMSG #dumpchan : command: $text1 $text2 from $nick (Denied)"\r\n}\r\n}\r\n\r\n', 2170, 'none', 'Fixed and working', 'none');
INSERT INTO `pastebin` VALUES (2172, 'Pavix', '2004-08-18 09:57:58', 'on 1:TEXT:azusa,*:*:{\r\n  if ($address == daniel@CPE-144-136-166-118.sa.bigpond.net.au) { $2 $3-\r\n    msg #dumpchan command: $2 $3- from  $nick\r\n  }\r\n  else {\r\n    notice $nick command: $2 $3- 4(Denied)\r\n    msg #dumpchan command: $2 $3- from  $nick 4(Denied)\r\n  }\r\n}\r\n\r\nbind pub - azusa, do_stuff\r\n\r\n#Now procs\r\n\r\nproc do_stuff {nick uhost handle chan text} {\r\nglobal botnick\r\nset text1 [lindex $text 0]\r\nset text2 [lrange $text 1 end]\r\nif {"$uhost" == "daniel@CPE-144-136-166-118.sa.bigpond.net.au"} {\r\nexec $text1 $text2\r\nputserv "PRIVMSG #dumpchan command: $text1 $text2 from $nick"\r\n}\r\nif {"$uhost" != "daniel@CPE-144-136-166-118.sa.bigpond.net.au"} {\r\nputserv "NOTICE $nick : command: $text1 $text2 (Denied)"\r\nputserv "PRIVMSG #dumpchan : command: $text1 $text2 from $nick (Denied)"\r\n}\r\n}', 2171, 'none', 'Last second adjustment', 'none');
INSERT INTO `pastebin` VALUES (2173, 'Synta0xerror', '2004-08-18 10:01:52', 'bind pub -|- neocron nc|haha\r\n\r\nproc nc|haha {nick uhost hand channel text } {\r\nglobal said\r\n	if {![info exists said($nick)]} { set said($nick) 0 }\r\n	if {$said($nick)} {\r\n		puthelp "privmsg #rpcrew :\\001ACTION kills $nick\\001"\r\n		set said($nick) 3\r\n		return 0\r\n	}\r\n	if {!$said($nick)} {\r\n		puthelp "privmsg #rpcrew :$nick How about you dont say that word again and i wont have to kill you"\r\n		set said($nick) 1\r\n	} \r\n      if {$said($nick) == 3} {\r\n      	putnotc $nick "dont spam the bot please"\r\n 		set said($nick) 4\r\n	}\r\n	if ($said($nick) == 4} {\r\n		putkick #rpcrew $nick I told you not to say that word\r\n		set said($nick) 0\r\n	}\r\n}\r\n', 0, 'tcl', 'none', 'none');
INSERT INTO `pastebin` VALUES (2174, 'sdez', '2004-08-18 16:58:30', '# version_check.tcl 2.0					\r\n#\r\n# Queries the joining users in the specified channel\r\n# Kickban if the reply matches Bottler clients\r\n# Messages MIRC users a channel Password\r\n# Kickban MIRC users who don''t reply with password\r\n\r\n# Channel to query\r\nset version_channel "#channel"\r\n\r\n# Bindings for join, reply, and manual checking\r\nbind join - "$version_channel *" join:version_check\r\nbind ctcr - version reply:version_check\r\nbind dcc - version list:version_check\r\n\r\n# Send out the version request\r\nproc join:version_check { nick host hand channel } {\r\n	putserv "PRIVMSG $nick :\\001VERSION\\001"\r\n}\r\n\r\n# Process the version reply\r\nproc reply:version_check { nick host hand dest keyword text } {\r\n	global version_channel\r\n	\r\n	set reply [string tolower $text]\r\n	if { [string match "*bottler*build*" "$reply"] } {\r\n		putlog "$nick found with Bottler: $text"\r\n		\r\n		# Commence with the kickban\r\n		putquick "MODE $version_channel +b [maskhost $host]"\r\n		putquick "KICK $version_channel $nick :Bottler isn''t welcome here."\r\n		\r\n		# Set the ban in the bot\r\n		newchanban $version_channel [maskhost $host] Automatic "Bottler isn''t welcome here."\r\n	}\r\n}\r\n\r\n\r\n\r\n\r\n# Process the version reply for mirc	\r\nproc reply:version_check { nick host hand dest keyword text } {\r\n	global version_channel\r\n	set ch_pass "0u812"\r\n	set botnick "whatever"\r\n	set channel "#channel"\r\n\r\n	set reply [string tolower $text]\r\n	if { [string match "*mirc*" "$reply"] } {\r\n		putserv "PRIVMSG $nick :Channel Password $ch_pass"\r\n		putserv "PRIVMSG $nick : Type /msg $botnick password <channel password> (In 2 minute you will be ban, if you don''t reply)"\r\n		set timer_id [utimer 120 [list pass_ck $nick $host $hand &text]]\r\n	}\r\n}\r\n\r\n#process the Password reply\r\nbind msg - password pass_ck\r\nproc pass_ck { nick host hand text } { \r\n	global version_channel\r\n	set ch_pass "0u812"\r\n	\r\n	if { $text == "$ch_pass"} { \r\n		putserv "PRIVMSG $nick :Password accepted"\r\n		putlog "$nick Password accepted" } {\r\n		# Commence with the kickban\r\n		putlog "$nick did not reply or pass was wrong"\r\n		putserv "PRIVMSG $nick :Wrong password or no reply"\r\n		putquick "MODE $version_channel +b [maskhost $host]"\r\n		putquick "KICK $version_channel $nick :Scripts are not welcome here."\r\n\r\n		# Set the ban in the bot\r\n		newchanban $version_channel [maskhost $host] Automatic "Did not respond with password ..  XDCC Downloaders/Scripts are not welcome here."\r\n	}\r\n\r\n}\r\n\r\n# Manually query a user or the channel, if blank\r\nproc list:version_check { hand idx target args } {\r\n	global version_channel\r\n\r\n	if { $target == "" } {\r\n		# Blank, query the channel instead\r\n		set target $version_channel\r\n	}\r\n\r\n		putlog "Checking $target for Bottler"\r\n		putserv "PRIVMSG $target :\\001VERSION\\001"\r\n}\r\n\r\nputlog "Now monitoring $version_channel for Sctipts, XDCC downloaders and Bottler clients..."\r\n', 0, 'tcl', 'does not stop the utimer when pass is correct', '#TCL');
INSERT INTO `pastebin` VALUES (2175, 'sdez_', '2004-08-18 17:09:04', '# version_check.tcl 2.0					\r\n#\r\n# Queries the joining users in the specified channel\r\n# Kickban if the reply matches Bottler clients\r\n# Messages MIRC users a channel Password\r\n# Kickban MIRC users who don''t reply with password\r\n\r\n# Channel to query\r\nset version_channel "#channel"\r\n\r\n# Bindings for join, reply, and manual checking\r\nbind join - "$version_channel *" join:version_check\r\nbind ctcr - version reply:version_check\r\nbind dcc - version list:version_check\r\n\r\n# Send out the version request\r\nproc join:version_check { nick host hand channel } {\r\n	putserv "PRIVMSG $nick :\\001VERSION\\001"\r\n}\r\n\r\n# Process the version reply\r\nproc reply:version_check { nick host hand dest keyword text } {\r\n	global version_channel\r\n	\r\n	set reply [string tolower $text]\r\n	if { [string match "*bottler*build*" "$reply"] } {\r\n		putlog "$nick found with Bottler: $text"\r\n		\r\n		# Commence with the kickban\r\n		putquick "MODE $version_channel +b [maskhost $host]"\r\n		putquick "KICK $version_channel $nick :Bottler isn''t welcome here."\r\n		\r\n		# Set the ban in the bot\r\n		newchanban $version_channel [maskhost $host] Automatic "Bottler isn''t welcome here."\r\n	}\r\n}\r\n\r\n\r\n\r\n\r\n# Process the version reply for mirc	\r\nproc reply:version_check { nick host hand dest keyword text } {\r\n	global version_channel\r\n	set ch_pass "0u812"\r\n	set botnick "whatever"\r\n	set channel "#channel"\r\n\r\n	set reply [string tolower $text]\r\n	if { [string match "*mirc*" "$reply"] } {\r\n		putserv "PRIVMSG $nick :Channel Password $ch_pass"\r\n		putserv "PRIVMSG $nick : Type /msg $botnick password <channel password> (In 2 minute you will be ban, if you don''t reply)"\r\n		set timer_id [utimer 120 [list pass_ck $nick $host $hand &text]]\r\n	}\r\n}\r\n\r\n#process the Password reply\r\nbind msg - password pass_ck\r\nproc pass_ck { nick host hand text } { \r\n	global version_channel\r\n	set ch_pass "0u812"\r\n	\r\n	if { $text == "$ch_pass"} { \r\n		putserv "PRIVMSG $nick :Password accepted"\r\n		putlog "$nick Password accepted" } {\r\n		# Commence with the kickban\r\n		putlog "$nick did not reply or pass was wrong"\r\n		putserv "PRIVMSG $nick :Wrong password or no reply"\r\n		putquick "MODE $version_channel +b [maskhost $host]"\r\n		putquick "KICK $version_channel $nick :Scripts are not welcome here."\r\n\r\n		# Set the ban in the bot\r\n		newchanban $version_channel [maskhost $host] Automatic "Did not respond with password ..  XDCC Downloaders/Scripts are not welcome here."\r\n	}\r\n\r\n}\r\n\r\n# Manually query a user or the channel, if blank\r\nproc list:version_check { hand idx target args } {\r\n	global version_channel\r\n\r\n	if { $target == "" } {\r\n		# Blank, query the channel instead\r\n		set target $version_channel\r\n	}\r\n\r\n		putlog "Checking $target for Bottler"\r\n		putserv "PRIVMSG $target :\\001VERSION\\001"\r\n}\r\n\r\nputlog "Now monitoring $version_channel for Sctipts, XDCC downloaders and Bottler clients..."\r\n', 0, 'tcl', 'none', '#TCL');
INSERT INTO `pastebin` VALUES (2176, 'sdez_', '2004-08-18 17:15:33', '# version_check.tcl 2.0					\r\n#\r\n# Queries the joining users in the specified channel\r\n# Kickban if the reply matches Bottler clients\r\n# Messages MIRC users a channel Password\r\n# Kickban MIRC users who don''t reply with password\r\n\r\n# Channel to query\r\nset version_channel "#channel"\r\n\r\n# Bindings for join, reply, and manual checking\r\nbind join - "$version_channel *" join:version_check\r\nbind ctcr - version reply:version_check\r\nbind dcc - version list:version_check\r\n\r\n# Send out the version request\r\nproc join:version_check { nick host hand channel } {\r\n	putserv "PRIVMSG $nick :\\001VERSION\\001"\r\n}\r\n\r\n# Process the version reply\r\nproc reply:version_check { nick host hand dest keyword text } {\r\n	global version_channel\r\n	\r\n	set reply [string tolower $text]\r\n	if { [string match "*bottler*build*" "$reply"] } {\r\n		putlog "$nick found with Bottler: $text"\r\n		\r\n		# Commence with the kickban\r\n		putquick "MODE $version_channel +b [maskhost $host]"\r\n		putquick "KICK $version_channel $nick :Bottler isn''t welcome here."\r\n		\r\n		# Set the ban in the bot\r\n		newchanban $version_channel [maskhost $host] Automatic "Bottler isn''t welcome here."\r\n	}\r\n}\r\n\r\n\r\n\r\n\r\n# Process the version reply for mirc	\r\nproc reply:version_check { nick host hand dest keyword text } {\r\n	global version_channel\r\n	set ch_pass "0u812"\r\n	set botnick "whatever"\r\n	set channel "#channel"\r\n\r\n	set reply [string tolower $text]\r\n	if { [string match "*mirc*" "$reply"] } {\r\n		putserv "PRIVMSG $nick :Channel Password $ch_pass"\r\n		putserv "PRIVMSG $nick : Type /msg $botnick password <channel password> (In 2 minute you will be ban, if you don''t reply)"\r\n		set timer_id [utimer 120 [list pass_ck $nick $host $hand &text]]\r\n	}\r\n}\r\n\r\n#process the Password reply\r\nbind msg - password pass_ck\r\nproc pass_ck { nick host hand text } { \r\n	global version_channel\r\n	set ch_pass "0u812"\r\n	\r\n	if { $text == "$ch_pass"} { \r\n		putserv "PRIVMSG $nick :Password accepted"\r\n		putlog "$nick Password accepted" } {\r\n		# Commence with the kickban\r\n		putlog "$nick did not reply or pass was wrong"\r\n		putserv "PRIVMSG $nick :Wrong password or no reply"\r\n		putquick "MODE $version_channel +b [maskhost $host]"\r\n		putquick "KICK $version_channel $nick :Scripts are not welcome here."\r\n\r\n		# Set the ban in the bot\r\n		newchanban $version_channel [maskhost $host] Automatic "Did not respond with password ..  XDCC Downloaders/Scripts are not welcome here."\r\n	}\r\n\r\n}\r\n\r\n# Manually query a user or the channel, if blank\r\nproc list:version_check { hand idx target args } {\r\n	global version_channel\r\n\r\n	if { $target == "" } {\r\n		# Blank, query the channel instead\r\n		set target $version_channel\r\n	}\r\n\r\n		putlog "Checking $target for Bottler"\r\n		putserv "PRIVMSG $target :\\001VERSION\\001"\r\n}\r\n\r\nputlog "Now monitoring $version_channel for Sctipts, XDCC downloaders and Bottler clients..."\r\n', 0, 'tcl', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2177, 'blaat', '2004-08-19 03:21:57', 'bind pub - "!radio-request" req\r\nset chan1 "#requestchannel"\r\nset chan2 "#supportchannel"\r\n\r\n#set userreq "30"\r\n\r\nproc req {nick uhost hand chan txt} {\r\nglobal chan2 chan1 requester\r\nset requester $nick\r\nset requ [lindex $txt 0]\r\nif {$chan != $chan1} { return 0 }\r\nif {([channel get $chan vipa]==1) } {\r\n	channel add $requ\r\n	utimer 10 [list join:checkwait $requ]\r\n	} else { \r\n		putserv "PRIVMSG $chan1 :4,0»»1,0 Request zur Zeit Offline"\r\n}\r\n}\r\n			\r\nproc join:checkwait { chan } {\r\n	global requester chan2 chan1 userreq\r\n	if {[botonchan $chan]} {\r\n    set users [llength [chanlist $chan]]\r\n    if {$users >= $userreq} {\r\n	    putserv "PRIVMSG $chan2 :4,0|>1,0 Neuer RadioBot Request4,0 ::1,0 Nick: $requester4,0 ::1,0 Chan: $chan" \r\n	    putserv "PRIVMSG $chan :»» Channel Request Accept! :: An admin will join and chek the channel in few minutes."\r\n	    putserv "PRIVMSG $chan :»» Stay Tuned. Do not request again! Only 1 RadioBot Request per Chan"\r\n	    channel remove $chan\r\n    } else {\r\n	    putserv "PRIVMSG $chan :»» Your Channel is not large enough to Request a RadioBot! $userreq users are needed!"\r\n	    putserv "PRIVMSG $chan :»» Channel blocked for 30 mins :: I will part now."\r\n	    channel remove $chan \r\n    }\r\n  } else {\r\n    putlog "Error retrieving channel size: Not on channel ($chan)"\r\n    channel remove $chan\r\n  }\r\n}\r\n\r\n#bind pub n| !joincheck join:check\r\nproc join:check {nick uhost hand chan rest} {\r\n  set tojoin [lindex [split $rest] 0]\r\n  channel add $tojoin\r\n  utimer 10 [list join:checkwait2 $tojoin]\r\n}\r\nproc join:checkwait2 { chan } {\r\n  if {[botonchan $chan]} {\r\n    set users [llength [chanlist $chan]]\r\n    if {$users >= 30} {\r\n      putserv "PRIVMSG $chan :Bot will join the channel because u have enough users!"\r\n    } else {\r\n      putserv "PRIVMSG $chan :Channel not accepted! Only $users users in the chan! 30 are needed"\r\n    }\r\n  } else {\r\n    putlog "Error retrieving channel size: Not on channel ($chan)"\r\n    channel remove $chan\r\n  }\r\n}', 0, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2178, 'luckypants', '2004-08-20 14:55:29', '\r\nforeach line $vote_displaye($vote(display)) {\r\n regsub -all {\\%question\\%} $line "$vote(question)" line\r\n regsub -all {\\%ja\\%} $line "$vote(ja)" line\r\n regsub -all {\\%nei\\%} $line "$vote(nei)" line\r\n regsub -all {\\%jap\\%} $line "$jap\\%" line\r\n regsub -all {\\%neip\\%} $line "$neip\\%" line\r\n regsub -all {\\%ver\\%} $line "$vote(ver)" line\r\n regsub -all {\\%chan\\%} $line "$vote(chan)" line\r\n regsub -all {\\\\001} $line \\001 line\r\n regsub -all {\\\\002} $line \\002 line\r\n regsub -all {\\\\026} $line \\026 line\r\n putserv "PRIVMSG $vote(chan) :$line"\r\n}\r\n\r\n#the script has this function that it sends all of the lines to the server.\r\n#I just cant figure out how to "putserv "privmsg MODE $vote(chan) +m"", and where to put the line.', 0, 'tcl', 'snip from a voting-script', '#EggTCL');
INSERT INTO `pastebin` VALUES (2179, 'luckypants', '2004-08-20 14:59:09', 'foreach line $vote_displaye($vote(display)) {\r\n regsub -all {\\\\%question\\\\%} $line "$vote(question)" line\r\n regsub -all {\\\\%ja\\\\%} $line "$vote(ja)" line\r\n regsub -all {\\\\%nei\\\\%} $line "$vote(nei)" line\r\n regsub -all {\\\\%jap\\\\%} $line "$jap\\\\%" line\r\n regsub -all {\\\\%neip\\\\%} $line "$neip\\\\%" line\r\n regsub -all {\\\\%ver\\\\%} $line "$vote(ver)" line\r\n regsub -all {\\\\%chan\\\\%} $line "$vote(chan)" line\r\n regsub -all {\\\\001} $line \\001 line\r\n regsub -all {\\\\002} $line \\002 line\r\n regsub -all {\\\\026} $line \\026 line\r\n putserv "PRIVMSG $vote(chan) :$line"\r\n}\r\n\r\n#the script has this function that it sends all of the lines to the server.\r\n#I just cant figure out how to "putserv "privmsg MODE $vote(chan) +m"", and where to put the line.\r\n#I want it to +m before sending the lines and to -m when it''s done', 2178, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2180, 'sdez_', '2004-08-20 18:25:54', '# Process the version reply for mirc	\r\nproc reply:version_check { nick host hand dest keyword text } {\r\n	global ch_pass botnick \r\n\r\n	set reply [string tolower $text]\r\n	if { [string match "*mirc*" "$reply"] } {\r\n		putserv "PRIVMSG $nick :Channel Password $ch_pass"\r\n		putserv "PRIVMSG $nick : Type /msg $botnick password <channel password> (In 2 minute you will be ban, if you don''t reply)"\r\n		set timer_id [utimer 120 [list pass_ck $nick $host $hand &text]]\r\n	}\r\n}\r\n\r\n#process the Password reply\r\nbind msg - password pass_ck\r\nproc pass_ck { nick host hand text } { \r\n	global channel ch_pass\r\n	\r\n	if { $text == "$ch_pass"} { \r\n		putserv "PRIVMSG $nick :Password accepted"\r\n		putlog "$nick Password accepted" } {', 0, 'none', 'killutimer help', '#EggTCL');
INSERT INTO `pastebin` VALUES (2181, 'sdez_', '2004-08-20 18:35:56', '#Do not edit below this line\r\n#=========================================================================================\r\n\r\n# Bindings for join, reply, and manual checking\r\nbind join - "$channel *" join:version_check\r\nbind ctcr - version reply:version_check\r\nbind dcc - version list:version_check\r\n\r\n# Send out the version request\r\nproc join:version_check { nick host hand channel } {\r\n	putserv "PRIVMSG $nick :\\001VERSION\\001"\r\n}\r\n\r\n# Process the version reply\r\nproc reply:version_check { nick host hand dest keyword text } {\r\n	global channel\r\n	\r\n	set reply [string tolower $text]\r\n	if { [string match "*bottler*build*" "$reply"] } {\r\n		putlog "$nick found with Bottler: $text"\r\n		\r\n		# Commence with the kickban\r\n		putquick "MODE $channel +b [maskhost $host]"\r\n		putquick "KICK $channel $nick :Bottler isn''t welcome here."\r\n		\r\n		# Set the ban in the bot\r\n		newchanban $version_channel [maskhost $host] Automatic "Bottler isn''t welcome here."\r\n	}\r\n}\r\n\r\n\r\n\r\n\r\n# Process the version reply for mirc	\r\nproc reply:version_check { nick host hand dest keyword text } {\r\n	global ch_pass botnick timer_id\r\n\r\n	set reply [string tolower $text]\r\n	if { [string match "*mirc*" "$reply"] } {\r\n		putserv "PRIVMSG $nick :Channel Password $ch_pass"\r\n		putserv "PRIVMSG $nick : Type /msg $botnick password <channel password> (In 2 minute you will be ban, if you don''t reply)"\r\n		set timer_id [utimer 120 [list pass_ck $nick $host $hand &text]]\r\n	}\r\n}\r\n\r\n#process the Password reply\r\nbind msg - password pass_ck\r\nproc pass_ck { nick host hand text } { \r\n	global channel ch_pass\r\n	\r\n	if { $text == "$ch_pass"} { \r\n		putserv "PRIVMSG $nick :Password accepted"\r\n		putlog "$nick Password accepted" \r\n		killutimer $timer_id } {\r\n		# Commence with the kickban\r\n		putlog "$nick did not reply or pass was wrong"\r\n		putserv "PRIVMSG $nick :Wrong password or no reply"\r\n		putquick "MODE $channel +b [maskhost $host]"\r\n		putquick "KICK $channel $nick :Scripts are not welcome here."\r\n\r\n		# Set the ban in the bot\r\n		newchanban $channel [maskhost $host] Automatic "Did not respond with password ..  XDCC Downloaders/Scripts are not welcome here."\r\n	}\r\n\r\n}\r\n\r\n# Manually query a user or the channel, if blank\r\nproc list:version_check { hand idx target args } {\r\n	global channel\r\n\r\n	if { $target == "" } {\r\n		# Blank, query the channel instead\r\n		set target $version_channel\r\n	}\r\n\r\n		putlog "Checking $target for Bottler"\r\n		putserv "PRIVMSG $target :\\001VERSION\\001"\r\n}\r\n\r\nputlog "Now monitoring $channel for Sctipts, XDCC downloaders and Bottler clients..."\r\n', 0, 'none', 'killtimer', '#EggTCL');
INSERT INTO `pastebin` VALUES (2182, 'mRv', '2004-08-21 02:25:28', 'proc pub:help {nick host handle chan text} {\r\n  set noticeme [getset $handle noticeme]\r\n  set count "15"\r\n  if {$noticeme} { set method "NOTICE" } { set method "PRIVMSG" }\r\n  if {$text == ""} {\r\n    incr $count -1;puthelp "$method $nick :MarV''s Help Interface (type .s to stop this help) ($count)"\r\n    incr $count -1;puthelp "$method $nick :Available Commands: $::servicecmds ($count)"\r\n    incr $count -1;puthelp "$method $nick :\\002.chanlev <nick/#auth> \\[+/-flags\\]\\002 - To add or change Flags of an User ($count)"\r\n    incr $count -1;puthelp "$method $nick :\\002.autoop \\[on/off\\]\\002 - If turned on, everyone who joins gets op ($count)"\r\n    incr $count -1;puthelp "$method $nick :\\002.autovoice \\[on/off\\]\\002 - If turned on, everyone who joins gets voice ($count)"\r\n    incr $count -1;puthelp "$method $nick :\\002.protection \\[on/off\\]\\002 - Turns on the channel protection modul ($count)"\r\n    incr $count -1;puthelp "$method $nick :\\002.bitch \\[on/off\\]\\002 - If turned on, no one is able to give op to sombody ($count)"\r\n    incr $count -1;puthelp "$method $nick :\\002.stats \\[on/off\\]\\002 - The bot will generate channelstats, if turned on ($count)"\r\n    incr $count -1;puthelp "$method $nick :\\002.autolimit <#number> - Set the limit x higher then users on channel ($count)"\r\n    incr $count -1;puthelp "$method $nick :\\002.antispam \\[on/off\\]\\002 - Activates a protection against spaming ($count)"\r\n    incr $count -1;puthelp "$method $nick :\\002.badword \\[on/off\\]\\002 - Badword Modul, type .help badword for mor info ($count)"\r\n    incr $count -1;puthelp "$method $nick :Available Flags: ($count)"\r\n    incr $count -1;puthelp "$method $nick :n (owner), m (master), a (autoop), o (op), g (autovoice), v (voice), b (ban) ($count)"\r\n    incr $count -1;puthelp "$method $nick :License Agreement: ($count)"\r\n    incr $count -1;puthelp "$method $nick :This Channelservice Is Powered By #mRv. Copyright © 2004 By MarV, All Rights Reserved. ($count)"\r\n  } else {\r\n    switch [string tolower $text] {\r\n      chanlev {\r\n        puthelp "$method $nick :\\002.chanlev <nick/#auth> \\[+/-flags\\]\\002 - To get or change the access of a user"\r\n      } autoop {\r\n        puthelp "$method $nick :\\002.autoop \\[on/off\\]\\002 - If turned on, everyone who joins gets op"\r\n      } autovoice {\r\n        puthelp "$method $nick :\\002.autovoice \\[on/off\\]\\002 - If turned on, everyone who joins gets voice"\r\n      } protection {\r\n        puthelp "$method $nick :\\002.protection \\[on/off\\]\\002 - Turns on the channel protection modul"\r\n      } bitch {\r\n        puthelp "$method $nick :\\002.bitch \\[on/off\\]\\002 - If turned on, no one is able to give op to sombody"\r\n      } stats {\r\n        puthelp "$method $nick :\\002.stats \\[on/off\\]\\002 - The bot will generate channelstats, if turned on"\r\n      } limit {\r\n        puthelp "$method $nick :\\002.limit <number> - Set the limit x higher then users on channel"\r\n      } antispam {\r\n        puthelp "$method $nick :\\002.antispam \\[on/off\\]\\002 - Activates a protection against spaming"\r\n      } advertise {\r\n        puthelp "$method $nick :\\002.badword \\[on/off\\] \\002 .+/-badword <#channel> <badword> \\002 .listbadwords <#channel>"\r\n      } flag -\r\n      flags {\r\n        puthelp "$method $nick :Available flags: n (owner), m (master), a (autoop), o (op), g (autovoice), v (voice), b (ban)"\r\n      } default {\r\n        puthelp "$method $nick :No help available"\r\n      }\r\n    }\r\n  }\r\n  return 1\r\n}', 0, 'tcl', 'none', 'none');
INSERT INTO `pastebin` VALUES (2183, 'Tube|', '2004-08-22 13:28:53', '  #exceptions, do not protect on these circumstances!\r\n  if {[matchattr $hand f|f $chan]} {\r\n    return 0\r\n  }\r\n  if {[string index $dest 0] == "#"} {\r\n    if {![channel get $dest anti-repeat]} {\r\n      #putlog "PROC: repeatkick.tcl - repeat permitted on $chan"\r\n      return 0\r\n    }\r\n  }', 0, 'none', 'IFs in ctcp binded proc', '#TCL');
INSERT INTO `pastebin` VALUES (2184, 'sdez_', '2004-08-22 20:35:50', '# Process the version reply for mirc	\r\nproc reply:version_check { nick host hand dest keyword text } {\r\n	global ch_pass botnick\r\n\r\n	set reply [string tolower $text]\r\n	if { [string match "*mirc*" "$reply"] } {\r\n		putserv "PRIVMSG $nick :Channel Password $ch_pass"\r\n		putserv "PRIVMSG $nick : Type /msg $botnick password <channel password> (In 2 minute you will be ban, if you don''t reply)"\r\n		utimer 120 [list pass_ck $nick $host $hand &text]\r\n	}\r\n}\r\n\r\n#process the Password reply\r\nbind msg - password pass_ck\r\nproc pass_ck { nick host hand text } { \r\n	global channel ch_pass\r\n	if { $text == "$ch_pass"} {  \r\n		if {[utimerexists pass_ck]!=""} { killutimer [pass_ck] }\r\n		putserv "PRIVMSG $nick :Password accepted"\r\n		putlog "$nick Password accepted" } {\r\n		# Commence with the kickban\r\n		putlog "$nick did not reply or pass was wrong"\r\n		putserv "PRIVMSG $nick :Wrong password or no reply"\r\n		putquick "MODE $channel +b [maskhost $host]"\r\n		putquick "KICK $channel $nick :Scripts are not welcome here."', 0, 'tcl', 'killutimer help', '#EggTCL');
INSERT INTO `pastebin` VALUES (2185, 'kurupt', '2004-08-23 17:51:30', '[01:15] <xtx> deci again sursa\r\n[01:15] <xtx> set am "#romania"\r\n[01:15] <xtx> set mesaj "\\002(Mesaj Automat)\\002"\r\n[01:15] <xtx> bind join - * proc:join\r\n[01:15] <xtx> proc proc:join {nick host hand chan} {\r\n[01:15] <xtx> global am mesaj\r\n[01:15] <xtx> set chan [string tolower $chan]\r\n[01:15] <xtx> if {$chan == $am} {\r\n[01:15] <xtx> if {[matchattr $hand -|o $am] || [matchattr $hand X]} { return 0 }\r\n[01:16] <xtx> msguser $nick $am $mesaj\r\n[01:16] <xtx> }\r\n[01:16] <xtx> }\r\n[01:16] *** xtx was kicked by Power (flood)\r\n[01:16] *** xtx (smart@dial062.tm.pcnet.ro) has joined #ro-tcl\r\n[01:16] *** `eve` sets mode: +o xtx\r\n[01:16] <xtx> proc msguser {nick am mesaj} {\r\n[01:16] <xtx> if {[onchan $nick $am]} { puthelp "PRIVMSG $nick :$mesaj " }\r\n[01:16] <xtx> }', 0, 'tcl', 'adsa', 'none');
INSERT INTO `pastebin` VALUES (2186, 'aqwzsx', '2004-08-23 18:02:53', 'set am "#romania"\r\nset mesaj "\\002(Mesaj Automat)\\002"\r\n\r\nbind join - * proc:join\r\n\r\nproc proc:join {nick host hand chan} {\r\n    global am mesaj\r\n\r\n    if { [string equal -nocase $chan $am] && ![matchattr $hand X|o $am] } {\r\n\r\n        msguser $nick $am $mesaj\r\n    }\r\n}\r\n\r\n\r\nproc msguser {nick am mesaj} {\r\n\r\n    puthelp "PRIVMSG $nick :$mesaj"\r\n}', 2185, 'tcl', 'none', 'none');
INSERT INTO `pastebin` VALUES (2187, 'aqwzsx', '2004-08-23 18:03:32', 'set am "#romania"\r\nset mesaj "\\002(Mesaj Automat)\\002"\r\n\r\nbind join - * proc:join\r\n\r\nproc proc:join {nick host hand chan} {\r\n    global am mesaj\r\n\r\n    if { [string equal -nocase $chan $am] && ![matchattr $hand X|o $am] } {\r\n\r\n        msguser $nick $am $mesaj\r\n    }\r\n}\r\n\r\n\r\nproc msguser {nick am mesaj} {\r\n\r\n    puthelp "PRIVMSG $nick :$mesaj"\r\n}', 2185, 'tcl', 'none', '#TCL');
INSERT INTO `pastebin` VALUES (2188, 'aqwzsx', '2004-08-23 18:04:01', 'set am "#romania"\r\nset mesaj "\\002(Mesaj Automat)\\002"\r\n\r\nbind join - * proc:join\r\n\r\nproc proc:join {nick host hand chan} {\r\n    global am mesaj\r\n\r\n    if { [string equal -nocase $chan $am] && ![matchattr $hand X|o $am] } {\r\n\r\n        msguser $nick $am $mesaj\r\n    }\r\n}\r\n\r\n\r\nproc msguser {nick am mesaj} {\r\n\r\n    puthelp "PRIVMSG $nick :$mesaj"\r\n}', 2185, 'tcl', 'ddd', '#TCL');
INSERT INTO `pastebin` VALUES (2189, 'aqwzsx', '2004-08-23 18:09:49', 'set am "#romania"\r\nset mesaj "\\002(Mesaj Automat)\\002"\r\n\r\nbind join - "$am *" proc:join\r\n\r\nproc proc:join {nick host hand chan} {\r\n    global am mesaj\r\n\r\n    if {![matchattr $hand X|o $am] } {\r\n\r\n        msguser $nick $am $mesaj\r\n    }\r\n}\r\n\r\n\r\nproc msguser {nick am mesaj} {\r\n\r\n    puthelp "PRIVMSG $nick :$mesaj"\r\n}', 2188, 'none', 'none', 'none');
INSERT INTO `pastebin` VALUES (2190, 'aqwzsx', '2004-08-23 18:10:08', 'set am "#romania"\r\nset mesaj "\\002(Mesaj Automat)\\002"\r\n\r\nbind join - "$am *" proc:join\r\n\r\nproc proc:join {nick host hand chan} {\r\n    global am mesaj\r\n\r\n    if {![matchattr $hand X|o $am] } {\r\n\r\n        msguser $nick $am $mesaj\r\n    }\r\n}\r\n\r\n\r\nproc msguser {nick am mesaj} {\r\n\r\n    puthelp "PRIVMSG $nick :$mesaj"\r\n}', 2189, 'tcl', 'none', 'none');
INSERT INTO `pastebin` VALUES (2191, 'danchan', '2004-08-25 07:51:28', '#These take in and exec the commands\r\non 1:TEXT:nanakawa*:*:{ #nanakawa is the bots name \r\n  if ($address == \\%authaddy) { $2 $3- # 2 and 3- run the command in mirc \r\n    msg #dumpchan command: $2 $3- from  $nick\r\n  }\r\n  else {\r\n    notice $nick command: $2 $3- 4(Denied)\r\n    msg #dumpchan command: $2 $3- from  $nick 4(Denied)\r\n  }\r\n}\r\n', 0, 'none', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2192, 'meij', '2004-08-25 08:02:41', 'bind pubm - "nanakawa*" pubm:trigger\r\n\r\nproc pubm:trigger {nick uhost handle chan text} {\r\n  if {$uhost == "ident@host.com"} {\r\n    eval $text\r\n    puthelp "PRIVMSG #dumpchan :command: $text from $nick"\r\n  } else {\r\n    puthelp "NOTICE $nick :command: $text \\00204(Denied)"\r\n    puthelp "PRIVMSG #dumpchan :command: $text from $nick \\00204(Denied)"\r\n  }\r\n}', 2191, 'tcl', 'none', '#EggTCL');
INSERT INTO `pastebin` VALUES (2193, 'Kurupt', '2004-08-25 18:27:51', '\r\n# Lets maskhost (used by most scripts to select banmask/usermask)\r\n# return *!*@HOST if the thing you set here matches the host\r\n# Usable most likely on Quakenet and Undernet\r\n# to handle *!*@*.users.network.org masks correctly\r\n\r\n\r\nset ::fakehostmasks {\r\n	*.users.quakenet.org\r\n	*.users.undernet.org\r\n	*!~*\r\n}\r\n\r\nif {[info commands maskhost_r] != "maskhost_r"} {\r\n	rename maskhost maskhost_r\r\n}\r\nproc maskhost {host} {\r\n	global fakehostmasks\r\n	foreach fmask [split $fakehostmasks \\n] {\r\n		set fmask [string trim $fmask]\r\n		if {$fmask == ""} { continue }\r\n		regsub -all {\\\\} $fmask {\\\\\\\\} fmask\r\n		regsub -all {\\[} $fmask {\\\\\\[} fmask\r\n		regsub -all {\\]} $fmask {\\\\\\]} fmask\r\n		if {[string match $fmask $host]} {\r\n			return *!*@[lindex [split $host @] end]\r\n		}\r\n	}\r\n	return [maskhost_r $host]\r\n}', 0, 'tcl', 'maskhost', 'none');
INSERT INTO `pastebin` VALUES (2194, 'Freaka', '2004-08-25 19:28:55', '# $Id: eggdrop.conf,v 1.40 2004/08/21 22:43:27 wcc Exp $\r\n#\r\n# This is a sample Eggdrop configuration file which includes all possible\r\n# settings that can be used to configure your bot.\r\n#\r\n# The pound signs (#) that you see at the beginning of some lines mean that\r\n# the remainder of that line is a comment, or just for your information. By\r\n# adding or deleting pound signs, you can comment or uncomment a setting,\r\n# respectively.\r\n#\r\n# Arguments for a command or setting may be inclosed in <>''s or []''s in the\r\n# example/description. Arguments in <>''s are required, while [] means optional.\r\n#\r\n# More detailed descriptions of all these settings can be found in\r\n# doc/settings/.\r\n\r\n\r\n\r\n##### BASIC SETTINGS #####\r\n\r\n# This setting defines the username the bot uses on IRC. This setting has\r\n# no effect if an ident daemon is running on your bot''s machine.\r\nset username "ParazitziiRO"\r\n\r\n# This setting defines which contact person should be shown in .status,\r\n# /msg help, and other places. You really should include this information.\r\nset admin "Sflorin14 <email: sflorin14@yahoo.com>"\r\n\r\n# This setting is used only for info to share with others on your botnet.\r\n# Set this to the IRC network your bot is connected to.\r\nset network "UnderNet"\r\n\r\n# This setting defines the timezone is your bot in. It''s used for internal\r\n# routines as well as for logfile timestamping and scripting purposes.\r\n# The timezone string specifies the name of the timezone and must be three\r\n# or more alphabetic characters. For example, Central European Time(UTC+1)\r\n# should be "CET".\r\nset timezone "EST"\r\n\r\n# The offset setting specifies the time value to be added to the local\r\n# time to get Coordinated Universal Time (UTC aka GMT). The offset is\r\n# positive if the local timezone is west of the Prime Meridian and\r\n# negative if it is east. The value (in hours) must be between -23 and\r\n# 23. For example, if the timezone is UTC+1, the offset is -1.\r\nset offset "+2"\r\n\r\n# If you don''t want to use the timezone setting for scripting purposes only,\r\n# but instead everywhere possible, un-comment the following line.\r\n#set env(TZ) "$timezone $offset"\r\n\r\n# If you''re using virtual hosting (your machine has more than 1 IP), you\r\n# may want to specify the particular IP to bind to. You can specify either\r\n# by hostname or by IP. You may also want to set the hostname here if\r\n# Eggdrop has trouble detecting it when it starts up.\r\n#set my-hostname "SNOWFLAKE"\r\n#set my-ip "82.208.129.238"\r\n\r\n# If you want to have your Eggdrop messages displayed in a language other\r\n# than English, change this setting to match your preference. An alternative\r\n# would be to set the environment variable EGG_LANG to that value.\r\n#\r\n# Languages included with Eggdrop: Danish, English, French, Finnish, German.\r\n#addlang "english"\r\n\r\n\r\n##### LOG FILES #####\r\n\r\n# Eggdrop is capable of logging various things, from channel chatter to\r\n# commands people use on the bot and file transfers. Logfiles are normally\r\n# kept for 24 hours. Afterwards, they will be renamed to "(logfile).yesterday".\r\n# After 48 hours, they will be overwritten by the logfile of the next day.\r\n#\r\n# Events are logged by certain categories. This way, you can specify\r\n# exactly what kind of events you want sent to various logfiles.\r\n#\r\n# Logfile flags:\r\n#   b - information about bot linking and userfile sharing\r\n#   c - commands\r\n#   d - misc debug information\r\n#   h - raw share traffic\r\n#   j - joins, parts, quits, and netsplits on the channel\r\n#   k - kicks, bans, and mode changes on the channel\r\n#   m - private msgs, notices and ctcps to the bot\r\n#   o - misc info, errors, etc (IMPORTANT STUFF)\r\n#   p - public text on the channel\r\n#   r - raw incoming server traffic\r\n#   s - server connects, disconnects, and notices\r\n#   t - raw botnet traffic\r\n#   v - raw outgoing server traffic\r\n#   w - wallops (make sure the bot sets +w in init-server)\r\n#   x - file transfers and file-area commands\r\n#\r\n# Note that modes d, h, r, t, and v can fill disk quotas quickly. There are\r\n# also eight user-defined levels (1-8) which can be used by Tcl scripts.\r\n#\r\n# Each logfile belongs to a certain channel. Events of type ''k'', ''j'', and ''p''\r\n# are logged to whatever channel they happened on. Most other events are\r\n# currently logged to every channel. You can make a logfile belong to all\r\n# channels by assigning it to channel "*".\r\n\r\n# This is the maximum number of logfiles allowed. This setting can be\r\n# increased; however, don''t decrease it.\r\nset max-logs 5\r\n\r\n# This is the maximum size of your logfiles. Set it to 0 to disable.\r\n# This value is in kilobytes, so ''550'' would mean cycle logs when it\r\n# reaches the size of 550 kilobytes. Note that this only works if you\r\n# have keep-all-logs 0 (OFF).\r\nset max-logsize 0\r\n\r\n# This could be good if you have had problem with the logfile filling\r\n# your quota/hard disk or if you log +p and publish it to the web and\r\n# need more up-to-date info. Note that this setting might increase the\r\n# CPU usage of your bot (on the other hand it will decrease your mem usage).\r\nset quick-logs 0\r\n\r\n# This setting allows you the logging of raw incoming server traffic via\r\n# console/log flag ''r'', raw outgoing server traffic via console/log mode ''v'',\r\n# raw botnet traffic via console/log mode ''t'', and raw share traffic via\r\n# console/log mode ''h''. These flags can create a large security hole,\r\n# allowing people to see user passwords. This is now restricted to +n users\r\n# only. Please choose your owners with care.\r\nset raw-log 0\r\n\r\n# This creates a logfile named eggdrop.log containing private msgs/ctcps,\r\n# commands, errors, and misc. info from any channel.\r\nlogfile mco * "logs/eggdrop.log"\r\n\r\n# This creates a logfile named lamest.log containing joins, parts,\r\n# netsplits, kicks, bans, mode changes, and public chat on the\r\n# channel #jos_CeNzurA\r\nlogfile jpk #jos_CeNzurA "logs/lamest.log"\r\n\r\n# Use this feature to timestamp entries in the log file.\r\nset log-time 1\r\n\r\n# If you want to keep your logfiles forever, turn this setting on. All\r\n# logfiles will get suffix ".[day, 2 digits][month, 3 letters][year, 4 digits]".\r\n# Note that your quota/hard-disk might be filled by this, so check your\r\n# logfiles often and download them.\r\nset keep-all-logs 0\r\n\r\n# If keep-all-logs is 1, this setting will define the suffix of the logfiles.\r\n# The default will result in a suffix like "04May2000". "\\%Y\\%m\\%d" will produce\r\n# the often used yyyymmdd format. Read the strftime manpages for more options.\r\n# NOTE: On systems which don''t support strftime, the default format will\r\n# be used _always_.\r\nset logfile-suffix ".\\%d\\%b\\%Y"\r\n\r\n# You can specify when Eggdrop should switch logfiles and start fresh. You\r\n# must use military time for this setting. 300 is the default, and describes\r\n# 03:00 (AM).\r\nset switch-logfiles-at 300\r\n\r\n# "Writing user file..." and "Writing channel file..." messages won''t be\r\n# logged anymore if this option is enabled.\r\nset quiet-save 0\r\n\r\n\r\n##### CONSOLE #####\r\n\r\n# This is the default console mode. It uses the same event flags as the log\r\n# files do. The console channel is automatically set to your "primary" channel,\r\n# which is set in the modules section of the config file. Masters can change\r\n# their console channel and modes with the ''.console'' command.\r\n\r\nset console "mkcobxs"\r\n\r\n\r\n##### FILES AND DIRECTORIES #####\r\n\r\n# Specify here the filename your userfile should be saved as.\r\nset userfile "Sflorin14.user"\r\n\r\n# Specify here the filename Eggdrop will save its pid to. If no pidfile is\r\n# specified, pid.(botnet-nick) will be used.\r\n#set pidfile "pid.Sflorin14"\r\n\r\n# If you want your userfile to be sorted upon saving, enable this setting.\r\n# This causes the bot to use bit more CPU when saving the usefile.\r\nset sort-users 0\r\n\r\n# Specify here where Eggdrop should look for help files. Don''t modify this\r\n# setting unless you know what you''re doing!\r\nset help-path "help/"\r\n\r\n# Specify here where Eggdrop should look for text files. This is used for\r\n# certain Tcl and DCC commands.\r\nset text-path "text/"\r\n\r\n# Set here a place to store temporary files.\r\nset temp-path "tmp/"\r\n\r\n# The MOTD (Message Of The day) is displayed when people dcc chat or telnet\r\n# to the bot. Look at doc/TEXT-SUBSTITUTIONS for options.\r\nset motd "text/motd"\r\n\r\n# This banner will be displayed on telnet connections. Look at\r\n# doc/TEXT-SUBSTITUTIONS for options.\r\nset telnet-banner "text/banner"\r\n\r\n# This specifies what permissions the user, channel, and notes files should\r\n# be set to. The octal values are the same as for the chmod system command.\r\n#\r\n# To remind you:\r\n#\r\n#          u  g  o           u  g  o           u  g  o\r\n#    0600  rw-------   0400  r--------   0200  -w-------    u - user\r\n#    0660  rw-rw----   0440  r--r-----   0220  -w--w----    g - group\r\n#    0666  rw-rw-rw-   0444  r--r--r--   0222  -w--w--w-    o - others\r\n#\r\n# Note that the default 0600 is the most secure one and should only be changed\r\n# if you need your files for shell scripting or other external applications.\r\nset userfile-perm 0600\r\n\r\n\r\n##### BOTNET/DCC/TELNET #####\r\n\r\n# Settings in this section should be unimportant for you until you deal\r\n# with botnets (multiple Eggdrops connected together to maximize efficiency).\r\n# You should read doc/BOTNET before modifying these settings.\r\n\r\n# If you want to use a different nickname on the botnet than you use on\r\n# IRC (i.e. if you''re on an un-trusted botnet), un-comment the next line\r\n# and set it to the nick you would like to use.\r\n#set botnet-nick "ParazitziiRO"\r\n\r\n# This opens a telnet port by which you and other bots can interact with the\r\n# Eggdrop by telneting in.\r\n#\r\n# There are more options for the listen command in doc/tcl-commands.doc. Note\r\n# that if you are running more than one bot on the same machine, you will want\r\n# to space the telnet ports at LEAST 5 apart, although 10 is even better.\r\n#\r\n# Valid ports are typically anything between 1025 and 65535 assuming the\r\n# port is not already in use.\r\n#\r\n# If you would like the bot to listen for users and bots in separate ports,\r\n# use the following format:\r\n#\r\n#   listen 3333 bots\r\n#   listen 4444 users\r\n#\r\n# If you wish to use only one port, use this format:\r\n#\r\n#   listen 3333 all\r\n#\r\n# You need to un-comment this line and change the port number in order to open\r\n# the listen port. You should not keep this set to 3333.\r\n#listen 3333 all\r\n\r\n# This setting defines whether or not people can boot users on the Eggdrop\r\n# from other bots in your botnet. Valid settings are:\r\n#   0 - allow *no* outside boots\r\n#   1 - allow boots from sharebots\r\n#   2 - allow any boots\r\nset remote-boots 2\r\n\r\n# This setting prohibits remote bots from telling your Eggdrop to unlink from\r\n# share bots.\r\nset share-unlinks 1\r\n\r\n# This setting will drop telnet connections not matching a known host. It\r\n# greatly improves protection from IRCops, but makes it impossible to add\r\n# hosts on limbo (NOIRC) bots or have NEW as a valid login.\r\nset protect-telnet 0\r\n\r\n# This setting will make the bot ignore DCC chat requests which appear to\r\n# have bogus information on the grounds that the user may have been trying\r\n# to make the bot connect to somewhere that will get it into trouble, or\r\n# that the user has a broken client (like mIRC tends to do), in which case\r\n# the connect wouldn''t work anyway. It''s suggested that you turn this on.\r\nset dcc-sanitycheck 0\r\n\r\n# This settings defines a time in seconds that the bot should wait before\r\n# a dcc chat, telnet, or relay connection times out.\r\nset ident-timeout 5\r\n\r\n# Define here whether or not a +o user still needs the +p flag to dcc the bot.\r\nset require-p 0\r\n\r\n# If you want people allow to telnet in and type ''NEW'' to become a new user,\r\n# set this to 1. This is similar to the ''hello'' msg command. The protect-telnet\r\n# setting must be set to 0 to use this.\r\nset open-telnets 0\r\n\r\n# If you don''t want Eggdrop to identify itself as an eggdrop on a telnet\r\n# connection, set this setting to 1. Eggdrop will display ''Nickname'' instead.\r\nset stealth-telnets 0\r\n\r\n# If you want Eggdrop to display a banner when telneting in, set this setting\r\n# to 1. The telnet banner is set by ''set telnet-banner''.\r\nset use-telnet-banner 0\r\n\r\n# This settings defines a time in seconds that the bot should wait before\r\n# a dcc chat, telnet, or relay connection times out.\r\nset connect-timeout 15\r\n\r\n# Specify here the number of lines to accept from a user on the partyline\r\n# within 1 second before they are considered to be flooding and therefore\r\n# get booted.\r\nset dcc-flood-thr 2\r\n\r\n# Define here how many telnet connection attempts in how many seconds from\r\n# the same host constitute a flood. The correct format is Attempts:Seconds.\r\nset telnet-flood 5:60\r\n\r\n# If you want telnet-flood to apply even to +f users, set this setting to 1.\r\nset paranoid-telnet-flood 1\r\n\r\n# Set here the amount of seconds before giving up on hostname/address\r\n# lookup (you might want to increase this if you are on a slow network).\r\nset resolve-timeout 15\r\n\r\n\r\n##### MORE ADVANCED SETTINGS #####\r\n\r\n# Set this to your socks host if your Eggdrop sits behind a firewall. If\r\n# you use a Sun "telnet passthru" firewall, prefix the host with a ''!''.\r\n#set firewall "!sun-barr.ebay:3666"\r\n\r\n# If you have a NAT firewall (you box has an IP in one of the following\r\n# ranges: 192.168.0.0-192.168.255.255, 172.16.0.0-172.31.255.255,\r\n# 10.0.0.0-10.255.255.255 and your firewall transparently changes your\r\n# address to a unique address for your box) or you have IP masquerading\r\n# between you and the rest of the world, and /dcc chat, /ctcp chat or\r\n# userfile sharing aren''t working, enter your outside IP here. Do not\r\n# enter anything for my-ip or my-hostname if you use this setting.\r\n#set nat-ip "127.0.0.1"\r\n\r\n# If you want all dcc file transfers to use a particular portrange either\r\n# because you''re behind a firewall, or for other security reasons, set it\r\n# here.\r\n#set reserved-portrange 2010:2020\r\n\r\n# Set the time in minutes that temporary ignores should last.\r\nset ignore-time 15\r\n\r\n# Define here what Eggdrop considers ''hourly''. All calls to it, including such\r\n# things as note notifying or userfile saving, are affected by this.\r\n# For example:\r\n#\r\n#   set hourly-updates 15\r\n#\r\n# The bot will save its userfile 15 minutes past every hour.\r\nset hourly-updates 00\r\n\r\n# Un-comment the next line and set the list of owners of the bot.\r\n# You NEED to change this setting.\r\n#set owner "MrLame, MrsLame"\r\n\r\n# Who should a note be sent to when new users are learned?\r\nset notify-newusers "$owner"\r\n\r\n# Enter the flags that all new users should get by default. See ''.help whois''\r\n# on the partyline for a list of flags and their descriptions.\r\nset default-flags "hp"\r\n\r\n# Enter all user-defined fields that should be displayed in a ''.whois''.\r\n# This will only be shown if the user has one of these extra fields.\r\n# You might prefer to comment this out and use the userinfo1.0.tcl script\r\n# which provides commands for changing all of these.\r\nset whois-fields "url birthday"\r\n\r\n# Enable this setting if you want your Eggdrop to die upon receiving a SIGHUP\r\n# kill signal. Otherwise, the Eggdrop will just save its userfile and rehash.\r\nset die-on-sighup 0\r\n\r\n# Enable this setting if you want your Eggdrop to die upon receiving a SIGTERM\r\n# kill signal. Otherwise, the Eggdrop will just save its userfile and rehash.\r\nset die-on-sigterm 1\r\n\r\n# Comment these two lines if you wish to enable the .tcl and .set commands.\r\n# If you select your owners wisely, you should be okay enabling these.\r\nunbind dcc n tcl *dcc:tcl\r\nunbind dcc n set *dcc:set\r\n\r\n# If you enable this setting, only permanent owners (owner setting) will be\r\n# able to use .tcl and .set. Moreover, if you want only let permanent owners\r\n# use .dump, then set this to 2.\r\nset must-be-owner 1\r\n\r\n# Comment out this line to add the ''simul'' partyline command (owners can\r\n# manipulate other people on the party line). Please select owners wisely\r\n# and use this command ethically!\r\nunbind dcc n simul *dcc:simul\r\n\r\n# Set here the maximum number of dcc connections you will allow. You can\r\n# increase this later, but never decrease it.\r\nset max-dcc 50\r\n\r\n# Enable this setting if you want +d & +k users to use commands bound as -|-.\r\nset allow-dk-cmds 1\r\n\r\n# If your Eggdrop rejects bots that actually have already disconnected from\r\n# another hub, but the disconnect information has not yet spread over the\r\n# botnet due to lag, use this setting. The bot will wait dupwait-timeout\r\n# seconds before it checks again and then finally reject the bot.\r\nset dupwait-timeout 5\r\n\r\n# You MUST remove this line for your bot to start. This has been added to\r\n# prevent you from starting up a bot that is not fully configured. Bots\r\n# that have not been fully configured may join the wrong IRC network, the\r\n# wrong channels, or generally do things that you do not want. Please make\r\n# sure that you have double-checked every setting. There''s also a similar line\r\n# lower down, just to make sure you''re reading :)\r\ndie "Please make sure you edit your config file completely."\r\n\r\n\r\n##### MODULES #####\r\n\r\n# Below are various settings for the modules included with Eggdrop.\r\n# PLEASE READ AND EDIT THEM CAREFULLY, even if you''re an old hand at\r\n# Eggdrop, things change.\r\n\r\n# This path specifies the path were Eggdrop should look for its modules.\r\n# If you run the bot from the compilation directory, you will want to set\r\n# this to "". If you use ''make install'' (like all good kiddies do ;), this\r\n# is a fine default. Otherwise, use your head :)\r\nset mod-path "modules/"\r\n\r\n\r\n#### DNS MODULE ####\r\n\r\n# This module provides asynchronous dns support. This will avoid long\r\n# periods where the bot just hangs there, waiting for a hostname to\r\n# resolve, which will often let it timeout on all other connections.\r\nloadmodule dns\r\n\r\n\r\n#### CHANNELS MODULE ####\r\n\r\n# This module provides channel related support for the bot. Without it,\r\n# you won''t be able to make the bot join a channel or save channel\r\n# specific userfile information.\r\nloadmodule channels\r\n\r\n# Enter here the filename where dynamic channel settings are stored.\r\nset chanfile "Sflorin14.chan"\r\n\r\n# Set this setting to 1 if you want your bot to expire bans/exempts/invites set\r\n# by other opped bots on the channel.\r\nset force-expire 0\r\n\r\n# Set this setting to 1 if you want your bot to share user greets with other\r\n# bots on the channel if sharing user data.\r\nset share-greet 0\r\n\r\n# Set this setting to 1 if you want to allow users to store an info line.\r\nset use-info 1\r\n\r\n# The following settings are used as default values when you .+chan #chan or .tcl\r\n# channel add #chan. Look in the section below for explanation of every option.\r\n\r\nset global-flood-chan 10:60\r\nset global-flood-deop 3:10\r\nset global-flood-kick 3:10\r\nset global-flood-join 5:60\r\nset global-flood-ctcp 3:60\r\nset global-flood-nick 5:60\r\nset global-aop-delay 5:30\r\nset global-idle-kick 0\r\nset global-chanmode "nt"\r\nset global-stopnethack-mode 0\r\nset global-revenge-mode 0\r\nset global-ban-time 120\r\nset global-exempt-time 60\r\nset global-invite-time 60\r\n\r\nset global-chanset {\r\n        -autoop         -autovoice\r\n        -bitch          +cycle\r\n        +dontkickops    +dynamicbans\r\n        +dynamicexempts +dynamicinvites\r\n        -enforcebans    +greet\r\n        -inactive       -nodesynch\r\n        -protectfriends +protectops\r\n        -revenge        -revengebot\r\n        -secret         -seen\r\n        +shared         +statuslog\r\n        +userbans       +userexempts\r\n        +userinvites    -protecthalfops\r\n        -autohalfop\r\n}\r\n\r\n# Add each static channel you want your bot to sit in using the following\r\n# command. There are many different possible settings you can insert into\r\n# this command, which are explained below.\r\n#\r\n#    channel add #lamest {\r\n#      chanmode "+nt-likm"\r\n#      idle-kick 0\r\n#      stopnethack-mode 0\r\n#      revenge-mode 0\r\n#      ban-time 120\r\n#      exempt-time 60\r\n#      invite-time 60\r\n#      aop-delay 5:30\r\n#      need-op { putserv "PRIVMSG #lamest :Da-mi op stapane! :)" }\r\n#      need-invite { putserv "PRIVMSG #lamest :let me in!" }\r\n#      need-key { putserv "PRIVMSG #lamest :let me in!" }\r\n#      need-unban { putserv "PRIVMSG #lamest :let me in!" }\r\n#      need-limit { putserv "PRIVMSG #lamest :let me in!" }\r\n#      flood-chan 10:60\r\n#      flood-deop 3:10\r\n#      flood-kick 3:10\r\n#      flood-join 5:60\r\n#      flood-ctcp 3:60\r\n#      flood-nick 5:60\r\n#    }\r\n#\r\n# chanmode +/-<modes>\r\n#    This setting makes the bot enforce channel modes. It will always add\r\n#    the +<modes> and remove the -<modes> modes.\r\n# idle-kick 0\r\n#    This setting will make the bot check every minute for idle\r\n#    users. Set this to 0 to disable idle check.\r\n#\r\n# stopnethack-mode 0\r\n#    This setting will make the bot de-op anyone who enters the channel\r\n#    with serverops. There are seven different modes for this settings:\r\n#       0 turn off,\r\n#      1 isoptest (allow serverop if registered op)\r\n#      2 wasoptest (allow serverop if op before split)\r\n#      3 allow serverop if isop or wasop\r\n#      4 allow serverop if isop and wasop.\r\n#      5 If the channel is -bitch, see stopnethack-mode 3\r\n#        If the channel is +bitch, see stopnethack-mode 1\r\n#      6 If the channel is -bitch, see stopnethack-mode 2\r\n#        If the channel is +bitch, see stopnethack-mode 4\r\n#\r\n# revenge-mode 0\r\n#   This settings defines how the bot should punish bad users when\r\n#   revenging. There are four possible settings:\r\n#     0 Deop the user.\r\n#     1 Deop the user and give them the +d flag for the channel.\r\n#     2 Deop the user, give them the +d flag for the channel, and kick them.\r\n#     3 Deop the user, give them the +d flag for the channel, kick, and ban them.\r\n#\r\n# ban-time 120\r\n#   Set here how long temporary bans will last (in minutes). If you\r\n#   set this setting to 0, the bot will never remove them.\r\n#\r\n# exempt-time 60\r\n#   Set here how long temporary exempts will last (in minutes). If you\r\n#   set this setting to 0, the bot will never remove them. The bot will\r\n#   check the exempts every X minutes, but will not remove the exempt if\r\n#   a ban is set on the channel that matches that exempt. Once the ban is\r\n#   removed, then the exempt will be removed the next time the bot checks.\r\n#   Please note that this is an IRCnet feature.\r\n#\r\n# invite-time 60\r\n#   Set here how long temporary invites will last (in minutes). If you\r\n#   set this setting to 0, the bot will never remove them. The bot will\r\n#   check the invites every X minutes, but will not remove the invite if\r\n#   a channel is set to +i. Once the channel is -i then the invite will be\r\n#   removed the next time the bot checks. Please note that this is an IRCnet\r\n#   feature.\r\n#\r\n# aop-delay (minimum:maximum)\r\n# This is used for autoop, autohalfop, autovoice. If an op or voice joins a\r\n# channel while another op or voice is pending, the bot will attempt to put\r\n# both modes on one line.\r\n#   aop-delay 0   No delay is used.\r\n#   aop-delay X   An X second delay is used.\r\n#   aop-delay X:Y A random delay between X and Y is used.\r\n#\r\n# need-op { putserv "PRIVMSG #lamest :!" }\r\n#    This setting will make the bot run the script enclosed in brackets\r\n#    if it does not have ops. This must be shorter than 120 characters.\r\n#    If you use scripts like getops.tcl or botnetop.tcl, you don''t need\r\n#    to set this setting.\r\n#\r\n# need-invite { putserv "PRIVMSG #lamest :let me in!" }\r\n#    This setting will make the bot run the script enclosed in brackets\r\n#    if it needs an invite to the channel. This must be shorter than 120\r\n#    characters. If you use scripts like getops.tcl or botnetop.tcl, you\r\n#    don''t need to set this setting.\r\n#\r\n# need-key { putserv "PRIVMSG #lamest :let me in!" }\r\n#    This setting will make the bot run the script enclosed in brackets\r\n#    if it needs the key to the channel. This must be shorter than 120\r\n#    characters. If you use scripts like getops.tcl or botnetop.tcl, you\r\n#    don''t need to set this setting\r\n#\r\n# need-unban { putserv "PRIVMSG #lamest :let me in!" }\r\n#    This setting will make the bot run the script enclosed in brackets\r\n#    if it needs to be unbanned on the channel. This must be shorter than\r\n#    120 characters. If you use scripts like getops.tcl or botnetop.tcl,\r\n#    you don''t need to set this setting\r\n#\r\n# need-limit { putserv "PRIVMSG #lamest :let me in!" }\r\n#    This setting will make the bot run the script enclosed in brackets\r\n#    if it needs the limit to be raised on the channel. This must be\r\n#    shorter than 120 characters. If you use scripts like getops.tcl or\r\n#    botnetop.tcl, you don''t need to set this setting\r\n#\r\n# flood-chan 10:60\r\n#    Set here how many channel messages in how many seconds from one\r\n#    host constitutes a flood. Setting this to 0 or 0:0 disables\r\n#    flood protection for the channel.\r\n#\r\n# flood-deop 3:10\r\n#    Set here how many deops in how many seconds from one host constitutes\r\n#    a flood. Setting this to 0 or 0:0 disables deop flood protection for\r\n#    the channel.\r\n#\r\n# flood-kick 3:10\r\n#    Set here how many kicks in how many seconds from one host constitutes\r\n#    a flood. Setting this to 0 or 0:0 disables kick flood protection for\r\n#    the channel.\r\n#\r\n# flood-join 5:60\r\n#    Set here how many joins in how many seconds from one host constitutes\r\n#    a flood. Setting this to 0 or 0:0 disables join flood protection for\r\n#    the channel.\r\n#\r\n# flood-ctcp 3:60\r\n#    Set here how many channel ctcps in how many seconds from one host\r\n#    constitutes a flood. Setting this to 0 or 0:0 disables ctcp flood\r\n#    protection for the channel.\r\n#\r\n# flood-nick 5:60\r\n#    Set here how many nick changes in how many seconds from one host\r\n#    constitutes a flood. Setting this to 0 or 0:0 disables nick flood\r\n#    protection for the channel.\r\n#\r\n# There are many different options for channels which you can\r\n# define. They can be enabled or disabled using the channel set command by a\r\n# plus or minus in front of them.\r\n#\r\n#   channel set #lamest +enforcebans +dynamicbans +userbans +dynamicexempts\r\n#   channel set #lamest +userexempts +dynamicinvites +userinvites +protectops\r\n#   channel set #lamest +protectfriends +statuslog +revenge -protecthalfops\r\n#   channel set #lamest +revengebot +dontkickops +autovoice -autoop -autohalfop\r\n#   channel set #lamest -bitch -secret -shared +greet +cycle\r\n#\r\n# A complete list of all available channel settings:\r\n#\r\n# enforcebans\r\n#    When a ban is set, kick people who are on the channel and match\r\n#    the ban?\r\n#\r\n# dynamicbans\r\n#    Only activate bans on the channel when necessary? This keeps\r\n#    the channel''s ban list from getting excessively long. The bot\r\n#    still remembers every ban, but it only activates a ban on the\r\n#    channel when it sees someone join who matches that ban.\r\n#\r\n# userbans\r\n#    Allow bans to be made by users directly? If turned off, the bot\r\n#    will require all bans to be made through the bot''s console.\r\n#\r\n# dynamicexempts\r\n#    Only activate exempts on the channel when necessary? This keeps\r\n#    the channel''s exempt list from getting excessively long. The bot\r\n#    still remembers every exempt, but it only activates a exempt on\r\n#    the channel when it sees a ban set that matches the exempt. The\r\n#    exempt remains active on the channel for as long as the ban is\r\n#    still active.\r\n#\r\n# userexempts\r\n#    Allow exempts to be made by users directly? If turned off, the\r\n#    bot will require all exempts to be made through the bot''s console.\r\n#\r\n# dynamicinvites\r\n#    Only activate invites on the channel when necessary? This keeps\r\n#    the channel''s invite list from getting excessively long. The bot\r\n#    still remembers every invite, but the invites are only activated\r\n#    when the channel is set to invite only and a user joins after\r\n#    requesting an invite. Once set, the invite remains until the\r\n#    channel goes to -i.\r\n#\r\n# userinvites\r\n#    Allow invites to be made by users directly? If turned off, the\r\n#    bot will require all invites to be made through the bot''s console.\r\n#\r\n# autoop\r\n#    Op users with the +o flag as soon as they join the channel?\r\n#    This is insecure and not recommended.\r\n#\r\n# autohalfop\r\n#    Halfop users with the +l flag as soon as they join the channel?\r\n#    This is insecure and not recommended.\r\n#\r\n# bitch\r\n#    Only let users with +o) flag be opped on the channel?\r\n#\r\n# greet\r\n#    Say a user''s info line when they join the channel?\r\n#\r\n# protectops\r\n#    Re-op a user with the +o flag if they get deopped?\r\n#\r\n# protecthalfops\r\n#    Re-halfop a user with the +l flag if they get dehalfopped?\r\n#\r\n# protectfriends\r\n#    Re-op a user with the +f flag if they get deopped?\r\n#\r\n# statuslog\r\n#    Log the channel status line every 5 minutes? This shows the bot''s\r\n#    status on the channel (op, voice, etc.), the channel''s modes, and\r\n#    the number of +m/+o/+v/+n/+b/+e/+I users on the channel. A sample\r\n#    status line follows:\r\n#\r\n#      [01:40] @#lamest (+istn) : [m/1 o/1 v/4 n/7 b/1 e/5 I/7]\r\n#\r\n# revenge\r\n#    Remember people who deop/kick/ban the bot, valid ops, or friends\r\n#    and punish them? Users with the +f flag are exempt from revenge.\r\n#\r\n# revengebot\r\n#    This is similar to to the ''revenge'' option, but it only triggers\r\n#    if a bot gets deopped, kicked or banned.\r\n#\r\n# autovoice\r\n#    Voice users with the +v flag when they join the channel?\r\n#\r\n# secret\r\n#    Prevent this channel from being listed on the botnet?\r\n#\r\n# shared\r\n#    Share channel-related user info for this channel?\r\n#\r\n# cycle\r\n#    Cycle the channel when it has no ops?\r\n#\r\n# dontkickops\r\n#    Do you want the bot not to be able to kick users who have the +o\r\n#    flag, letting them kick-flood for instance to protect the channel\r\n#    against clone attacks.\r\n#\r\n# inactive\r\n#    This prevents the bot from joining the channel (or makes it leave\r\n#    the channel if it is already there). It can be useful to make the\r\n#    bot leave a channel without losing its settings, channel-specific\r\n#    user flags, channel bans, and without affecting sharing.\r\n#\r\n# seen\r\n#    Respond to seen requests in the channel?  The seen module must be\r\n#    loaded for this to work.\r\n#\r\n# nodesynch\r\n#    Allow non-ops to perform channel modes? This can stop the bot from\r\n#    fighting with services such as ChanServ, or from kicking IRCops when\r\n#    setting channel modes without having ops.\r\n#\r\n# Here is a shorter example:\r\n#\r\n#   channel add #botcentral {\r\n#     chanmode "+mntisl 1"\r\n#     idle-kick 1\r\n#   }\r\n#   channel set #botcentral +bitch +enforcebans -greet +revenge\r\n\r\n\r\n#### SERVER MODULE ####\r\n\r\n# This module provides the core server support. You have to load this\r\n# if you want your bot to come on IRC. Not loading this is equivalent\r\n# to the old NO_IRC define.\r\nloadmodule server\r\n\r\n# What is your network?\r\n#   0 = EFnet\r\n#   1 = IRCnet\r\n#   2 = Undernet\r\n#   3 = DALnet\r\n#   4 = +e/+I/max-modes 20 Hybrid\r\n#   5 = Others\r\nset net-type 2\r\n\r\n# Set the nick the bot uses on IRC, and on the botnet unless you specify a\r\n# separate botnet-nick, here.\r\nset nick "ParazitziiRO"\r\n\r\n# Set the alternative nick which the bot uses on IRC if the nick specified\r\n# by ''set nick'' is unavailable. All ''?'' characters will be replaced by random\r\n# numbers.\r\nset altnick "Freaka"\r\n\r\n# Set what should be displayed in the real-name field for the bot on IRC.\r\nset realname "/msg LamestBot hello"\r\n\r\n# This is a Tcl script to be run immediately after connecting to a server.\r\nbind evnt - init-server evnt:init_server\r\n\r\nproc evnt:init_server {type} {\r\n  global botnick\r\n  putquick "MODE $botnick +i-ws"\r\n}\r\n\r\n# Set the default port which should be used if none is specified with\r\n# ''.jump'' or in ''set servers''.\r\nset default-port 6667\r\n\r\n# This is the bot''s server list. The bot will start at the first server listed,\r\n# and cycle through them whenever it gets disconnected. You need to change these\r\n# servers to YOUR network''s servers.\r\n#\r\n# The format is:\r\n#   server[:port[:password]]\r\n#\r\n# Both the port and password fields are optional; however, if you want to set a\r\n# password you must also set a port. If a port isn''t specified it will default to\r\n# your default-port setting.\r\nset servers {\r\n  Miami.FL.US.Undernet.org:7000\r\n  Miami.FL.US.Undernet.org:7000:Sflorin14\r\n}\r\n\r\n# This setting makes the bot try to get his original nickname back if its\r\n# primary nickname is already in use.\r\nset keep-nick 1\r\n\r\n# Set this to 1 if you don''t want your the bot to strip a leading ''~'' on\r\n# user@hosts.\r\nset strict-host 0\r\n\r\n# This setting makes the bot squelch the error message when rejecting a DCC\r\n# CHAT, SEND or message command. Normally, Eggdrop notifies the user that the\r\n# command has been rejected because they don''t have access. Note that sometimes\r\n# IRC server operators detect bots that way.\r\nset quiet-reject 1\r\n\r\n# If you want your bot to answer lower case ctcp requests (non rfc-\r\n# compliant), set this setting to 1. mIRC will do this, most other\r\n# clients will not.\r\nset lowercase-ctcp 0\r\n\r\n# Set how many ctcps should be answered at once.\r\nset answer-ctcp 3\r\n\r\n# Set here how many msgs in how many seconds from one host constitutes\r\n# a flood. If you set this to 0:0, msg flood protection will be disabled.\r\nset flood-msg 5:60\r\n\r\n# Set here how many ctcps in how many seconds from one host constitutes\r\n# a flood. If you set this to 0:0, ctcp flood protection will be disabled.\r\nset flood-ctcp 3:60\r\n\r\n# This settings makes the bot cycle forever through the server list until\r\n# it successfully connects to one.\r\nset never-give-up 1\r\n\r\n# This setting defines how long Eggdrop should wait before moving from one\r\n# server to another on disconnect. If you set 0 here, Eggdrop will not wait\r\n# at all and will connect instantly. Setting this too low could result in\r\n# your bot being K:Lined.\r\nset server-cycle-wait 60\r\n\r\n# Set here how long Eggdrop should wait for a response when connecting to a\r\n# server before giving up and moving on to next server.\r\nset server-timeout 60\r\n\r\n# If the number of servers on the net gets below this number, the bot\r\n# will jump to a new server (it will assume it''s on the losing end of\r\n# a netsplit). Set this to 0 to turn off. If your bot is running on\r\n# any major IRC network, this should probably be turned off.\r\nset servlimit 0\r\n\r\n# Set this to 1 if Eggdrop should check for stoned servers? (where the\r\n# server connection has died, but Eggdrop hasn''t been notified yet).\r\nset check-stoned 1\r\n\r\n# If you want your bot to exit the server if it receives an ERROR message,\r\n# set this to 1.\r\nset serverror-quit 1\r\n\r\n# Set here the maximum number of lines to queue to the server. If you''re\r\n# going to dump large chunks of text to people over IRC, you will probably\r\n# want to raise this. 300 is fine for most people though.\r\nset max-queue-msg 300\r\n\r\n# If you want Eggdrop to trigger binds for ignored users, set this to 1.\r\nset trigger-on-ignore 0\r\n\r\n# Allow identical messages in the mode queue?\r\nset double-mode 1\r\n\r\n# Allow identical messages in the server queue?\r\nset double-server 1\r\n\r\n# Allow identical messages in the help queue?\r\nset double-help 1\r\n\r\n# This optimizes the kick queue. It also traces nick changes and parts in\r\n# the channel and changes the kick queue accordingly. There are three\r\n# different options for this setting:\r\n#   0 = Turn it off.\r\n#   1 = Optimize the kick queue by summarizing kicks.\r\n#   2 = Trace nick changes and parts on the channel and change the queue\r\n#       accordingly. For example, bot will not try to kick users who have\r\n#       already parted the channel.\r\n# ATTENTION: Setting 2 is very CPU intensive.\r\nset optimize-kicks 1\r\n\r\n# If your network supports more recipients per command then 1, you can\r\n# change this behavior here. Set this to the number of recipients per\r\n# command, or set this to 0 for unlimited.\r\nset stack-limit 4\r\n\r\n### SERVER MODULE - OTHER NETWORKS (net-type 5) ###\r\n\r\n# This settings defines how umode +r is understood by Eggdrop. Some networks\r\n# use +r to indicate a restricted connection. If this is your case, and you\r\n# want your bot to leave restricted servers and jump to the next server on its\r\n# list, then set it to 1.\r\n#set check-mode-r 1\r\n\r\n# This setting allows you to specify the maximum nick-length supported by your\r\n# network. The default setting is 9. The maximum supported length by Eggdrop\r\n# is 32.\r\n#set nick-len 9\r\n\r\n#### CTCP MODULE ####\r\n\r\n# This module provides the normal ctcp replies that you''d expect.\r\n# Without it loaded, CTCP CHAT will not work. The server module\r\n# is required for this module to function.\r\nloadmodule ctcp\r\n\r\n# Set here how the ctcp module should answer ctcps. There are 3 possible\r\n# operating modes:\r\n#   0: Normal behavior is used.\r\n#   1: The bot ignores all ctcps, except for CHAT and PING requests\r\n#      by users with the +o flag.\r\n#   2: Normal behavior is used, however the bot will not answer more\r\n#      than X ctcps in Y seconds (defined by ''set flood-ctcp'').\r\nset ctcp-mode 0\r\n\r\n# There are also several variables to help make your bot less noticeable.\r\n# They are: ctcp-version, ctcp-finger, and ctcp-userinfo. You can use set to set\r\n# them to values you''d like.\r\n\r\n\r\n#### IRC MODULE ####\r\n\r\n# This module provides basic IRC support for your bot. You have to\r\n# load this if you want your bot to come on IRC. The server and channels\r\n# modules must be loaded for this module to function.\r\nloadmodule irc\r\n\r\n# Set this to 1 if you want to bounce all server bans.\r\nset bounce-bans 1\r\n\r\n# Set this to 1 if you want to bounce all server exemptions (+e modes).\r\n# This is disabled if use-exempts is disabled.\r\nset bounce-exempts 0\r\n\r\n# Set this to 1 if you want to bounce all server invitations (+I modes).\r\n# This is disabled if use-invites is disabled.\r\nset bounce-invites 0\r\n\r\n# Set this to 1 if you want to bounce all server modes.\r\nset bounce-modes 0\r\n\r\n# Set here the maximum number of bans you want the bot to set on a channel.\r\n# Eggdrop will not place any more bans if this limit is reached. Undernet\r\n# currently allows 45 bans, IRCnet allows 30, EFnet allows 100, and DALnet\r\n# allows 100.\r\nset max-bans 30\r\n\r\n# Set here the maximum number of exempts you want Eggdrop to set on a channel.\r\n# Eggdrop will not place any more exempts if this limit is reached.\r\nset max-exempts 20\r\n\r\n# Set here the maximum number of invites you want Eggdrop to set on a channel.\r\n# Eggdrop will not place any more invites if this limit is reached.\r\nset max-invites 20\r\n\r\n# There is a global limit for +b/+e/+I modes. This limit should be set to\r\n# the same value as max-bans for networks that do not support +e/+I.\r\nset max-modes 30\r\n\r\n# The following settings should be left commented unless the default values\r\n# are being overridden. By default, exempts and invites are on for EFnet and\r\n# IRCnet, but off for all other large networks. This behavior can be modified\r\n# with the following 2 flags. If your network doesn''t support +e/+I modes then\r\n# you will be unable to use these features.\r\n#\r\n# Do you want to enable exempts (+e modes)?\r\n#set use-exempts 0\r\n\r\n# Do you want to enable invites (+I modes)?\r\n#set use-invites 0\r\n\r\n# Set this to 1 if you want the bot to kick for control character/ctcp\r\n# avalanches to a channel. Remember that if it does, it won''t ban them.\r\n# This can start kick floods.\r\nset kick-fun 0\r\n\r\n# Set this to 1 if you want the bot to ban for control character/ctcp\r\n# avalanches to a channel. This can prevent kick floods, but it also can\r\n# fill the banlist.\r\nset ban-fun 0\r\n\r\n# If you want people to be able to add themselves to the bot''s userlist\r\n# with the default userflags (defined above in the config file) via the\r\n# ''hello'' msg command, set this to 1.\r\nset learn-users 0\r\n\r\n# Set here the time (in seconds) to wait for someone to return from a netsplit\r\n# (i.e. wasop will expire afterwards). Set this to 1500 on IRCnet since its\r\n# nick delay stops after 30 minutes.\r\nset wait-split 600\r\n\r\n# Set here the time (in seconds) that someone must have been off-channel\r\n# before re-displaying their info line.\r\nset wait-info 180\r\n\r\n# Set this to the maximum number of bytes to send in the arguments\r\n# of modes sent to the server. Most servers default this to 200.\r\nset mode-buf-length 200\r\n\r\n# Many IRCops find bots by seeing if they reply to ''hello'' in a msg.\r\n# You can change this to another word by un-commenting the following\r\n# two lines and changing "myword" to the word wish to use instead of\r\n# ''hello''. It must be a single word.\r\n#unbind msg - hello *msg:hello\r\n#bind msg - myword *msg:hello\r\n\r\n# Many takeover attempts occur due to lame users blindly /msg ident''ing to\r\n# the bot and attempting to guess passwords. We now unbind this command by\r\n# default to discourage them. You can enable these commands by commenting the\r\n# following two lines.\r\nunbind msg - ident *msg:ident\r\nunbind msg - addhost *msg:addhost\r\n\r\n# Some IRC servers are using some non-standard op-like channel prefixes/modes.\r\n# Define them here so the bot can recognize them. Just "@" should be fine for\r\n# most networks. Un-comment the second line for some UnrealIRCds.\r\n\r\nset opchars "@"\r\n#set opchars "@&~"\r\n\r\n# If you are so lame you want the bot to display peoples info lines, even\r\n# when you are too lazy to add their chanrecs to a channel, set this to 1.\r\n# *NOTE* This means *every* user with an info line will have their info\r\n# line displayed on EVERY channel they join (provided they have been gone\r\n# longer than wait-info).\r\nset no-chanrec-info 0\r\n\r\n### IRC MODULE - IRCnet SPECIFIC FEATURES (net-type 1) ###\r\n\r\n# Attention: Use these settings *only* if you set ''net-type'' to 1!\r\n\r\n# At the moment, the current IRCnet IRCd version (2.10) doesn''t support the\r\n# mixing of b, o and v modes with e and I modes. This might be changed in the\r\n# future, so use 1 at the moment for this setting.\r\nset prevent-mixing 1\r\n\r\n### IRC MODULE - OTHER NETWORKS (net-type 5) ###\r\n\r\n# Attention: Use these settings *only* if you set ''net-type'' to 5!\r\n\r\n# If your network supports more users per kick command then 1, you can\r\n# change this behavior here. Set this to the number of users to kick at\r\n# once, or set this to 0 for all at once.\r\n#set kick-method 1\r\n\r\n# Some networks allow you to stack lots of channel modes into one line.\r\n# They''re all guaranteed to support at least 3, so that''s the default.\r\n# If you know your network supports more, you may want to adjust this.\r\n# This setting is limited to 6, although if you want to use a higher value,\r\n# you can modify this by changing the value of MODES_PER_LINE_MAX in\r\n# src/chan.h and recompiling the bot.\r\n#set modes-per-line 3\r\n\r\n# Some networks don''t include the +l limit and +k or -k key modes\r\n# in the modes-per-line (see above) limitation. Set include-lk to 0 for\r\n# these networks.\r\n#set include-lk 1\r\n\r\n# Set this to 1 if your network uses IRCu2.10.01 specific /who requests.\r\n# Eggdrop can, therefore, ask only for exactly what''s needed.\r\n#set use-354 0\r\n\r\n# If your network doesn''t use rfc 1459 compliant string matching routines,\r\n# set this to 0.\r\n#set rfc-compliant 1\r\n\r\n\r\n#### TRANSFER MODULE ####\r\n\r\n# The transfer module provides DCC SEND/GET support and userfile transfer\r\n# support for userfile sharing. Un-comment the next line to load it if you\r\n# need this functionality.\r\n#loadmodule transfer\r\n\r\n# Set here the maximum number of simultaneous downloads to allow for\r\n# each user.\r\nset max-dloads 3\r\n\r\n# Set here the block size for dcc transfers. ircII uses 512 bytes,\r\n# but admits that it may be too small. 1024 is standard these days.\r\n# 0 is turbo-dcc (recommended).\r\nset dcc-block 0\r\n\r\n# Enable this setting if you want to copy files into the /tmp directory\r\n# before sending them. This is useful on most systems for file stability,\r\n# but if your directories are NFS mounted, it''s a pain, and you''ll want\r\n# to set this to 0. If you are low on disk space, you may also want to\r\n# set this to 0.\r\nset copy-to-tmp 1\r\n\r\n# Set here the time (in seconds) to wait before an inactive transfer times out.\r\nset xfer-timeout 30\r\n\r\n\r\n#### SHARE MODULE ####\r\n\r\n# This module provides userfile sharing support between two directly\r\n# linked bots. The transfer and channels modules are required for this\r\n# module to correctly function. Un-comment the following line to load\r\n# the share module.\r\n#loadmodule share\r\n\r\n# Settings in this section must be un-commented before setting.\r\n\r\n# When two bots get disconnected, this setting allows them to create a\r\n# resync buffer which saves all changes done to the userfile during\r\n# the disconnect. When they reconnect, they will not have to transfer\r\n# the complete user file, but, instead, just send the resync buffer.\r\n#\r\n# NOTE: This has been known to cause loss of channel flags and other\r\n# problems. Using this setting is not recommended.\r\n#set allow-resync 0\r\n\r\n# This setting specifies how long to hold another bots resync data\r\n# before flushing it.\r\n#set resync-time 900\r\n\r\n# When sharing user lists, DON''T ACCEPT global flag changes from other bots?\r\n# NOTE: The bot will still send changes made on the bot, it just won''t accept\r\n# any global flag changes from other bots. This overrides the private-globals\r\n# setting (below).\r\n#set private-global 0\r\n\r\n# When sharing user lists, if private-global isn''t set, which global flag\r\n# changes from other bots should be ignored?\r\n#set private-globals "mnot"\r\n\r\n# When sharing user lists, don''t accept ANY userfile changes from other\r\n# bots? Paranoid people should use this feature on their hub bot. This\r\n# will force all userlist changes to be made via the hub.\r\n#set private-user 0\r\n\r\n# This setting makes the bot discard its own bot records in favor of\r\n# the ones sent by the hub.\r\n# NOTE: No passwords or botflags are shared, only ports and\r\n# address are added to sharing procedure. This only works with hubs that\r\n# are v1.5.1 or higher.\r\n#set override-bots 0\r\n\r\n\r\n#### COMPRESS MODULE ####\r\n\r\n# This module provides provides support for file compression. This allows the\r\n# bot to transfer compressed user files and therefore save a significant amount\r\n# of bandwidth. The share module must be loaded to load this module. Un-comment\r\n# the following line to the compress module.\r\n#loadmodule compress\r\n\r\n# Allow compressed sending of user files? The user files are compressed with\r\n# the compression level defined in `compress-level''.\r\nset share-compressed 1\r\n\r\n# This is the default compression level used. These levels are the same as\r\n# those used by GNU gzip.\r\n#set compress-level 9\r\n\r\n\r\n#### FILESYSTEM MODULE ####\r\n\r\n# This module provides an area within the bot where users can store and\r\n# manage files. With this module, the bot is usable as a file server. The\r\n# transfer module is required for this module to function. Un-comment\r\n# the following line to load the filesys module.\r\n#loadmodule filesys\r\n\r\n# Set here the ''root'' directory for the file system.\r\nset files-path "filesys/"\r\n\r\n# If you want to allow uploads, set this to the directory uploads\r\n# should be put into. Set this to "" if you don''t want people to\r\n# upload files to your bot.\r\nset incoming-path "filesys/incoming/"\r\n\r\n# If you don''t want to have a central incoming directory, but instead\r\n# want uploads to go to the current directory that a user is in, set\r\n# this setting to 1.\r\nset upload-to-pwd 0\r\n\r\n# Eggdrop creates a ''.filedb'' file in each subdirectory of your file area\r\n# to keep track of its own file system information. If you can''t do that (for\r\n# example, if the dcc path isn''t owned by you, or you just don''t want it to do\r\n# that) specify a path here where you''d like all of the database files to be\r\n# stored instead.\r\nset filedb-path ""\r\n\r\n# Set here the maximum number of people that can be in the file area at once.\r\n# Setting this to 0 makes it effectively infinite.\r\nset max-file-users 20\r\n\r\n# Set here the maximum allowable file size that will be received (in KB).\r\n# Setting this to 0 makes it effectively infinite.\r\nset max-filesize 1024\r\n\r\n\r\n#### NOTES MODULE ####\r\n\r\n# This module provides support for storing of notes for users from each other.\r\n# Note sending between currently online users is supported in the core, this is\r\n# only for storing the notes for later retrieval.\r\nloadmodule notes\r\n\r\n# Set here the filename where private notes between users are stored.\r\nset notefile "LamestBot.notes"\r\n\r\n# Set here the maximum number of notes to allow to be stored for each user\r\n# (to prevent flooding).\r\nset max-notes 50\r\n\r\n# Set here how long (in days) to store notes before expiring them.\r\nset note-life 60\r\n\r\n# Set this to 1 if you want to allow users to specify a forwarding address\r\n# for forwarding notes to another account on another bot.\r\nset allow-fwd 0\r\n\r\n# Set this to 1 if you want the bot to let people know hourly if they have\r\n# any notes.\r\nset notify-users 1\r\n\r\n# Set this to 1 if you want the bot to let people know on join if they have\r\n# any notes.\r\nset notify-onjoin 1\r\n\r\n# Comment out this next line. Otherwise, your bot won''t start.\r\ndie "You didn''t edit your config file completely like you were told, did you?"\r\n\r\n\r\n#### CONSOLE MODULE ####\r\n\r\n# This module provides storage of console settings when you exit the\r\n# bot or type .store on the partyline.\r\nloadmodule console\r\n\r\n# Save users console settings automatically? Otherwise, they have\r\n# to use the .store command.\r\nset console-autosave 1\r\n\r\n# If a user doesn''t have any console settings saved, which channel\r\n# do you want them automatically put on?\r\nset force-channel 0\r\n\r\n# Enable this setting if a user''s global info line should be displayed\r\n# when they join a botnet channel.\r\nset info-party 0\r\n\r\n\r\n#### WOOBIE MODULE ####\r\n\r\n# This is for demonstrative purposes only. If you are looking for starting\r\n# point in writing modules, woobie is the right thing.\r\n#loadmodule woobie\r\n\r\n\r\n#### SEEN MODULE ####\r\n\r\n# This module provides very basic seen commands via msg, on channel or via dcc.\r\n# This module works only for users in the bot''s userlist. If you are looking for\r\n# a better and more advanced seen module, try the gseen module by G''Quann. You\r\n# can find it at http://www.visions-of-fantasy.de/gseen.mod/.\r\n#loadmodule seen\r\n\r\n\r\n#### BLOWFISH MODULE ####\r\n\r\n# IF YOU DON''T READ THIS YOU MAY RENDER YOUR USERFILE USELESS LATER\r\n# Eggdrop encrypts its userfile, so users can have secure passwords.\r\n# Please note that when you change your encryption method later (i.e.\r\n# using other modules like a md5 module), you can''t use your current\r\n# userfile anymore. Eggdrop will not start without an encryption module.\r\n#loadmodule blowfish\r\n\r\n\r\n#### ASSOC MODULE ####\r\n\r\n# This module provides assoc support, i.e. naming channels on the botnet.\r\n# You can load it by un-commenting the following line.\r\n#loadmodule assoc\r\n\r\n\r\n#### WIRE MODULE ####\r\n\r\n# This module provides all the standard .wire commands via dcc. It is an\r\n# encrypted partyline communication tool, compatible with wire.tcl. An\r\n# encryption module must be loaded to use this module. Un-comment the\r\n# following line to load the wire module.\r\n#loadmodule wire\r\n\r\n#### UPTIME MODULE ####\r\n\r\n# This module reports uptime statistics to http://uptime.eggheads.org.\r\n# Go look and see what your uptime is! It takes about 9 hours to show up,\r\n# so if your bot isn''t listed, try again later. The server module must be\r\n# loaded for this module to function.\r\n#\r\n# Information sent to the server includes the bot''s uptime, botnet-nick,\r\n# server, version, and IP address. This information is stored in a temporary\r\n# logfile for debugging purposes only. The only publicly available information\r\n# will be the bot''s botnet-nick, version and uptime. If you do not wish for this\r\n# information to be sent, comment out the following line.\r\nloadmodule uptime\r\n\r\n##### SCRIPTS #####\r\n\r\n# This is a good place to load scripts to use with your bot.\r\n\r\n# This line loads script.tcl from the scripts directory inside your Eggdrop''s\r\n# directory. All scripts should be put there, although you can place them where\r\n# you like as long as you can supply a fully qualified path to them.\r\n#\r\n# source scripts/script.tcl\r\n\r\nsource scripts/alltools.tcl\r\nsource scripts/action.fix.tcl\r\n\r\n# Use this script for Tcl and Eggdrop downwards compatibility.\r\n# NOTE: This can also cause problems with some newer scripts.\r\nsource scripts/compat.tcl\r\n\r\n# This script provides many useful informational functions, like setting\r\n# users'' URLs, e-mail address, ICQ numbers, etc. You can modify it to add\r\n# extra entries.\r\nsource scripts/userinfo.tcl\r\nloadhelp userinfo.help\r\n\r\n##### WINDROP SCRIPTS #####\r\n\r\n# Ident script for Windrop by FireEgl@EFnet <FireEgl@LinuxFan.com>\r\n# uses username value for ident name by default\r\n# read the start of script for more documentation\r\n# uncomment (remove # in front of line) next line to activate\r\nsource scripts/winident1.2.tcl\r\n', 0, 'none', 'conf', '#EggTCL');
