Code:

########################################### REQS 1.3.1 Tcl for Channel Request List by [-Scorp-] (aka : Scorpion`)# Revision History:#   1.1 (May 10, 1999) - Added main options as variables#   1.2 (July 2, 1999) - Minor bug fixes & added e-mail contact#   1.2b5-f (Oct , 1999) added a list for requests that have been filled#                        and a few major changes#   1.3 (11/12/99) fixed a few small bugs in the HTML generator#                  added a link to this Tcl in the HTML generator#   1.3.1 (11/13/99) added a fix so that if someone uses quotes , it will remove them#                   insted of changing them to {brackets}# [-Scorp-] can be contacted at : bikini.team@sweden.com# If you edit this Tcl , i would like the proper recognition# Please E mail me with any bugs or comments# This TCL is designed to maintain a "Channel Request List"# For use in MP3, Warez, or other channels.  Please change# the few variables below for channel & bot options.# Additions, deletions, and the list are maintained through # a public @reqs command, with certain arguments (see below).# The script will run on your bot, and will only recognize# public messages in that channel.  If the user tries @reqs via# /MSG, the bot will respond that it must be done publicly.# There is also a template file that will be sent with a# @reqs send command.  It is sent appended to the top of the# requests file, in a .doc format.  Please note that it MUST be# edited with a *nix editor such as pico.# The commands it recognizes are as follows:##   @reqs help [to get a list of available commands]#   @reqs view [to see the list via msg]#   @reqs send [for a .doc of the list]#   @reqs add <Song Title-Artist> [to add to the list] (Must be +v or +o in the channel, not on the bot)#   @reqs del <request#> [to delete a request] (Must be +o in the channel, not on the bot)#   @reqs filled <to see the list of requests that have been filled via msg>#   @reqs purge <number of the filled request> :You Must Be +o to remove filled requests from the requests filled file######################################################################################set the channel you want the script to run inset reqschanl "#incomplete"###########################################set this to the file you want to be sent for "@reqs send"set reqsfile "incomplete"###########################################set the number of requests you want the bot to tell people to limit their requests toset reqnub "8"###########################################this is the file you need to edit or change , it will be sent at the top#of the .doc for a "@reqs send"set tfile "template"###########################################set the name of the reqs filled fileset fld "filled_requests"###########################################set this to the msg that you want the bot to advertise#set admsg "Please help us fill requests, type @reqs for an index of commands. or goto http://shell.com/~username/ .Feel free to add a request or 2. Thank You!!"###########################################set this to how many minute intervals you want the ad to repeat (30 minutes is recommended)set adtm "60"#####################################################################################Below are the settings for the Request list HTML Generator###########################################set this to on or off for the HTML generatorset gnr "off"##########if you set the HTML generator to on, you need to edit the header and footer files to your needs#and set the dir for the Request list HTML to goto##########set the header for the HTML fileset hdfile "./headforhtml"###########################################set the footer for the HTML fileset ftfile "./footforhtml"###########################################set the filename for the HTML outputset htmlout "index.html"###########################################set the full public_html pathset htmlpath "/home/username/public_html"########################################################################################DO NOT CHANGE ANYTHING BELOW THIS POINT!############################################set reqsver "1.3.1"proc chanmsg1 {} {global admsg reqschanl adtm puthelp "PRIVMSG $reqschanl :$admsg" timer $adtm chanmsg1}if {![info exists timerloaded]} {  putlog "reqs.tcl ad msg timer started"  timer 5 chanmsg1  set timerloaded 1}bind pub - @reqs pubm:reqproc pubm:req {nick uhost hand chan arg} {global reqsver reqsfile time date tfile reqschanl reqnub hdfile ftfile htmlout htmlpath rpl bld1 bld2 gnr fld set command [string tolower [lindex $arg 0]] set ops [isop $nick $chan] set vops [isvoice $nick $chan] set channel [string tolower $chan] set reqschan [string tolower $reqschanl] if {$channel == "$reqschan"} {  if {$command == "help" || $command == ""} {      puthelp "PRIVMSG $nick :USAGE: @reqs add Song Title-Artist :You Must Be +v or +o to add requests"      puthelp "PRIVMSG $nick :USAGE: @reqs del <number of the request> :You Must Be +o to delete requests"      puthelp "PRIVMSG $nick :USAGE: @reqs send <for a .doc of the list to keep>"      puthelp "PRIVMSG $nick :USAGE: @reqs view <to see the list via msg>"      puthelp "PRIVMSG $nick :USAGE: @reqs filled <to see the list of requests that have been filled via msg>"      puthelp "PRIVMSG $nick :USAGE: @reqs purge <number of the filled request> :You Must Be +o to remove filled requests from the requests filled file"      puthelp "PRIVMSG $nick :USAGE: @reqs help <this help msg>"      puthelp "PRIVMSG $nick :All Commands are via the channel"      puthelp "PRIVMSG $nick :-------------------------------------------"      putlog "#$nick# asked for the help file"      return 0  }  if {$command == "add" && ($ops || $vops)} {    set reqsm [lrange $arg 1 end]    set sts [regsub -all -- \} $reqsm "" reqsb]    set sts [regsub -all -- \{ $reqsb "" reqsa]    set reqs "$reqsa"    if {$reqs == "" || $reqs == "help"} {        puthelp "PRIVMSG $nick :USAGE: @reqs add Song Title-Artist"        return 0    }    if {[file exist $reqsfile]} {set file [open $reqsfile a]} else {set file [open $reqsfile w]}    set time1 [ctime [unixtime]]    puts $file "$reqs , was requested by $nick on $time1"    close $file    puthelp "PRIVMSG $nick :$reqs added to the $reqschan Request list."    puthelp "PRIVMSG $nick :Please Limit your Requests to $reqnub Request(s). Thank You"    putcmdlog "#$nick#  added  the file  : $reqs ..."    if {$gnr == "off"} {      return 0    }    if {$gnr == "on"} {      utimer 1 wpgnr    }  }  if {$command == "add" && !($ops || $vops)} {    puthelp "PRIVMSG $nick :You must be either +o or +v to add a request, sorry"    return 0  }  if {$command == "del" && ($ops)} {      set numbofreqs [lindex $arg 1]      if {($numbofreqs == "" || $numbofreqs == "help")} {          puthelp "PRIVMSG $nick :USAGE: @reqs del number of the request"          return 0      }      putlog "#$nick# : is Removing $numbofreqs from $reqsfile"      if {![file exist $reqsfile]} {          puthelp "PRIVMSG $nick :$reqsfile doesnt exist!"          return 0      }      set count 0      set open [open $reqsfile r]      set bah ""      while {![eof $open] && $bah == ""} {        set poi [gets $open]        if {[lindex $poi 0] != $numbofreqs && $poi != ""} {            incr count        }        if {$count == $numbofreqs} {            puthelp "PRIVMSG $nick :removing : $poi"            set bah "$poi"        }      }      close $open      exec cp $reqsfile $reqsfile.bak      set doc [open $reqsfile.bak r]      set khg [open $reqsfile w]      if {[file exist $fld]} {set fldfile [open $fld a]} else {set fldfile [open $fld w]}      set tribz ""      set time2 [ctime [unixtime]]      set count 0      while {![eof $doc]} {        set poi [gets $doc]        if {$poi != ""} {            incr count        }        if {($count == $numbofreqs) && ($poi != "")} {          putlog "#$nick# removed $poi"          puts $fldfile "The Request: $poi , was filled on $time2"        }        if {$count != $numbofreqs} {            puts $khg "$poi"        }      }      close $doc      close $khg      close $fldfile      if {$gnr == "off"} {        return 0      }      if {$gnr == "on"} {        utimer 1 wpgnr      }  }  if {$command == "del" && !($ops)} {    puthelp "PRIVMSG $nick :You must be +o to remove a request, sorry. ask an op to help you"    return 0  }  if {$command == "purge" && ($ops)} {      set numbofreqs [lindex $arg 1]      if {($numbofreqs == "" || $numbofreqs == "help")} {          puthelp "PRIVMSG $nick :USAGE: @reqs purge number of the filled request on the filled request list"          return 0      }      putlog "#$nick# : is Removing $numbofreqs from $fld"      if {![file exist $fld]} {          puthelp "PRIVMSG $nick :$reqsfile doesnt exist!"          return 0      }      set count 0      set open [open $fld r]      set bah ""      while {![eof $open] && $bah == ""} {        set poi [gets $open]        if {[lindex $poi 0] != $numbofreqs && $poi != ""} {            incr count        }        if {$count == $numbofreqs} {            puthelp "PRIVMSG $nick :removing : $poi"            set bah "$poi"        }      }      close $open      exec cp $fld $fld.bak      set doc [open $fld.bak r]      set khg [open $fld w]      set tribz ""      set count 0      while {![eof $doc]} {        set poi [gets $doc]        if {$poi != ""} {            incr count        }        if {($count == $numbofreqs) && ($poi != "")} {          putlog "#$nick# removed $poi"        }        if {$count != $numbofreqs} {            puts $khg "$poi"        }      }      close $doc      close $khg      if {$gnr == "off"} {        return 0      }      if {$gnr == "on"} {       utimer 1 wpgnr      }   }  if {$command == "purge" && !($ops)} {      puthelp "PRIVMSG $nick :You need to be +o to remove idems from this list"      return 0  }      if {$command == "view"} {      if {![file exist $reqsfile]} {          puthelp "PRIVMSG $nick :There are no requests stored, yet"          return 0      }      set input [open $reqsfile r]      puthelp "PRIVMSG $nick :Thank you for viewing the $reqschan request list"      puthelp "PRIVMSG $nick :Please try and help us fill these requests"      set count 1      while {![eof $input]} {        set poi [gets $input]        if {[lindex $poi 0] != "" } {            puthelp "PRIVMSG $nick :#$count, $poi"            incr count        }      }      if {$count == 1 } {          puthelp "PRIVMSG $nick :There are no requests stored, yet"      } else {          puthelp "PRIVMSG $nick :End of file. If you can fill a request, please upload it to an op"      }      close $input      putcmdlog "#$nick# asked for @reqs view and was sent [expr $count -1] requests"      return 0  }  if {$command == "filled"} {        if {![file exist $fld]} {            puthelp "PRIVMSG $nick :There have been no requests filled, or they were removed from this list."            return 0        }        set inputfld [open $fld r]        puthelp "PRIVMSG $nick :reqs.tcl version $reqsver by \[-Scorp-\] 1999."        puthelp "PRIVMSG $nick :Thank you for viewing the $reqschan Filled Request list."        set count 1        while {![eof $inputfld]} {          set poi [gets $inputfld]          if {[lindex $poi 0] != "" } {              puthelp "PRIVMSG $nick :#$count, $poi"              incr count          }        }        if {$count == 1 } {            puthelp "PRIVMSG $nick :There have been no requests filled yet, or they were removed from this list."        } else {            puthelp "PRIVMSG $nick :End of file. If your Request has been filled , and is on this list, please Nicely ask an op who has your Request, thank you"        }        close $inputfld        putcmdlog "#$nick# asked for @reqs filled and was sent [expr $count -1] filled requests"        return 0  }  if {$command == "send"} {      if {[file exist $tfile]} {        set tpl [open $tfile r]      } else {          set tpl2 [open $tfile w]          puts $tpl2 "Welcome , this is the $reqschanl Request List"          puts $tpl2 "Please help us fill Requests"          puts $tpl2 "---------------------------------------------"          close $tpl2          set tpl [open $tfile r]      }      if {[file exist $reqsfile]} {        set doc [open $reqsfile r]      } else {        puthelp "PRIVMSG $nick :There are no Requests stored"        close $tpl        return 0      }      set khg [open $reqsfile.doc w]      set tribz ""      while {![eof $tpl]} {        set dnd [gets $tpl]        if {$dnd != ""} {            puts $khg "$dnd"        }      }      close $tpl      set tribz ""      set count 1       while {![eof $doc]} {        set poi [gets $doc]        if {$poi != ""} {            puts $khg "#$count , $poi"            incr count        }      }      close $doc      close $khg      putlog "#$nick# is getting $reqsfile.doc"      dccsend $reqsfile.doc $nick      return 0  } }}proc wpgnr {} {global reqsver reqsfile time date tfile reqschanl reqnub hdfile ftfile htmlout htmlpath rpl bld1 bld2 gnr fld        if {[file exist $hdfile]} {          set hed [open $hdfile r]        } else {            putlog "there is no header file loaded for the html generator"            return 0        }        if {[file exist $ftfile]} {          set fot [open $ftfile r]        } else {            putlog "there is no footer file loaded for the html generator"            return 0        }        set mnf [open $reqsfile r]        if {[file exist ./$htmlout]} {          exec cp ./$htmlout ./$htmlout.bak          set hto [open ./$htmlout w]       } else {           set hto [open ./$htmlout w]        }        while {![eof $hed]} {          set dnd [gets $hed]          if {$dnd != ""} {            puts $hto "$dnd"          }        }        close $hed        set tribz ""        set count 1        while {![eof $mnf]} {          set poi [gets $mnf]          if {$poi != ""} {            puts $hto "#$count , $poi"            puts $hto "<br>"            incr count          }        }        close $mnf        if {[file exist $fld]} {          set cvb [open $fld r]          puts $hto "<center><hr width=300></center><p><p>"  puts $hto "<h2>Here is a list of Requests that have been Filled :</h2><p><p>"  set count 0           while {![eof $cvb]} {            set pog [gets $cvb]            if {4 < [string length $pog]} {              incr count              puts $hto "#$count , $pog"              puts $hto "<br>"              }          }          if {$count == 0} {    puts $hto "There have been no requests Filled or they were removed from the Filled Requests List"          }          close $cvb          } else {            puts $hto "<center><hr width=300></center><p><p>"            puts $hto "There have been no requests Filled or they were removed from the Filled Requests List"        }        puts $hto "<p><p><center><hr width=300></center><p><p>"        while {![eof $fot]} {          set dbd [gets $fot]          if {$dbd != ""} {            puts $hto "$dbd"          }        }        close $fot        puts $hto "This page was made with reqs.tcl version $reqsver by <b><i>\[-Scorp-\]</b></i>"        puts $hto "Send any comments to <a href=\"mailto:bikini.team@sweden.com\">bikini.team@sweden.com</a><p>"        puts $hto "To Download this TCL for Eggdrops <a href=\"http://lithium.ings.com/~clover/reqs.tcl.tar.gz\">Click Here</a><p>"        puts $hto "Special thanks goes to <b><i>KCyborg</b></i> , <b><i>^rolling</b></i> & <b><i>Dynomite</b></i> <br>for ideas and finding bugs for me<br>And all the people in <b><i>#mp3-80's</b></i> for putting up with my sometimes annoying testing of this tcl"        puts $hto "<p><p><p>"        puts $hto "</body>"        puts $hto "</html>"        close $hto        exec cp ./$htmlout $htmlpath/$htmlout        return 0}bind msg - @reqs in_chanproc in_chan {nick uhost hand arg} {  puthelp "PRIVMSG $nick :You Must use the channel for the requests, msg will Not work. thank you"}putlog "@reqs.tcl by \[-Scorp-\] 1999 version $reqsver loaded."