home *** CD-ROM | disk | FTP | other *** search
/ Hackers Toolkit v2.0 / Hackers_Toolkit_v2.0.iso / HTML / archive / TCL / find1.1.0.tcl < prev    next >
Text File  |  1999-11-04  |  22KB  |  582 lines
  1. #########
  2. # @Find`r 1.1.0 by MC_8 for #warez4free <gregory@worldinter.net>
  3. # report bugs to gregory@worldinter.net
  4. # ######
  5. #  If you don't like the header, SUCK IT!
  6. # ######
  7. # Thanks to:
  8. #  BASS - helped me a bunch
  9. #  IsP  - if he will ever fuken look at the script, he migh modify it a lil more!!
  10. ########
  11. # What does this script do, hmm, well... lets say someone is looking for a star trek game,
  12. # well.. IF (and only if) soneone has inputed into the data base where they can get a 
  13. # star trek game at, then it will return it to them, eg:
  14. #
  15. # ADDING it:
  16. #-> *oCHANMAXo* addfind star trek the series, multimedia game, version 1.5, you can /msg MC_8 for it or ftp to 209.228.55.48
  17. #-oCHANMAXo- Adding {star trek the series, multimedia game, version 1.5, you can /msg MC_8 for it or ftp to 209.228.55.48}...
  18. #-oCHANMAXo- Done...
  19. #
  20. # FINDING it:
  21. #<MC_8> @find *star*trek*
  22. #-oCHANMAXo- I found 1 match to your search for '*star*trek*'...
  23. #-oCHANMAXo- 1) star trek the series, multimedia game, version 1.5, you can /msg mc_8 for it or ftp to 209.228.55.48
  24. #-oCHANMAXo- --to add something, do: /msg oCHANMAXo addfind <something>
  25. #
  26. # there, pretty simple eh? if you have any suggestions or comments or bad thoughts
  27. # about this script, e`mail me at gregory@worldinter.net .. I would like to hear!
  28. #
  29. # DO NOT ERASE ANYTHING ON THIS FILE, IF YOU MODIFY IT, PLEASE SEND A COPY TO ME AND ADD YOUR
  30. # NAME TO THE TITLE, AND ADD YOUR INFO STUFF TO THE VERSION CHANGES BELOW
  31. # BASICLY I OWN THIS NOT YOU, BUT GOOD SCRIPTS DON'T STEAL NOW DAYS.. DO THEY?
  32. #
  33. #########
  34. #  Version Changes:
  35. #
  36. # V. 1.1.0
  37. # - added the wildcards on search (should of done that first of all du!)
  38. # - added dcc command 'findstat'
  39. # - added flood protection, thanks to bseen1.4.0.tcl
  40. # - fixed the msg FINDADD...
  41. # - fixed it's dcc putloglev
  42. # - fixed bugs on the 'match_limit'
  43. # - added a not found list (to let ya know what your search`r is lacking)
  44. # - added database limit, over write older files on exceed limit  (suggested by Bass <=- dat f00l know's more dan you so shut up!)
  45. # - added a command so +o users can down load the search file, making it easier to see everything
  46. #
  47. # V. 1.0.0
  48. # - first release
  49. #
  50. #  To Do:
  51. #
  52. #
  53. #########
  54. #  COMMANDS
  55. #
  56. # DCC
  57. #  (anyone)   : find <*what*ever*>      - finds stuff du
  58. #  (anyone)   : search <*what*ever*>    - finds stuff du
  59. #  (anyone)   : addfind <product name> [keywords] [description] <where it can be found at>
  60. #                                       - adds an entrie
  61. #  (anyone)   : findadd <product name> [keywords] [description] <where it can be found at>
  62. #                                       - adds an entrie
  63. #  (+o users) : dllist <to who>         - download the list
  64. #  (+o users) : delfind <number>        - deleat a line (the list will show number, or dcc's '.find *' will show you the number)
  65. #  (+o users) : finddel <number>        - deleat a line (the list will show number, or dcc's '.find *' will show you the number)
  66. #  (+o users) : findstat                - current stats (resets on rehash/restart/start-up)
  67. #  (+o users) : findstats               - current stats (resets on rehash/restart/start-up)
  68. # PUB
  69. #  (anyone)   : @find <*what*ever*>     - finds stuff du
  70. #  (anyone)   : @search <*what*ever*>   - finds stuff du
  71. # MSG
  72. #  (anyone)   : addfind <product name> [keywords] [description] <where it can be found at>
  73. #                                       - adds an entrie
  74. #  (anyone)   : findadd <product name> [keywords] [description] <where it can be found at>
  75. #                                       - adds an entrie
  76. #  (+o users) : dllist                  - download the list
  77. #  (+o users) : delfind <number>        - deleat a line (the list will show number, or dcc's '.find *' will show you the number)
  78. #  (+o users) : finddel <number>        - deleat a line (the list will show number, or dcc's '.find *' will show you the number)
  79. #
  80. #########
  81. #   Stuff You Need To Set (if you want to, it's set to default already, and default is 
  82. #                                                                 what I use on my bot)
  83. #
  84. # This is protection so you don't get flooded off, when searching for a something really
  85. # open, like *a*, this setting will only show the first (what ever # you put) (5 is default)
  86. # and then say you need to limit your search, and stop...
  87. set match_limit 6
  88. #
  89. # Set this to the maximum number of entries that will be able to exist in the database,
  90. # if a new entrie is inputed, and the database is already at "what you set", then it will
  91. # just over write the oldest entrie to make room (considering it was hard enought to 
  92. # find and input 75 entries, I think 4000 is VERY sufficent ;) )
  93. set databaselimit 4000
  94. #
  95. # Set this to what you want the data file to be named, default 'datafile'...
  96. set datafile "datafile"
  97. #
  98. # [0 = no/1 = yes] Do you want to record the searches not found? (#1 this could be good
  99. # if you wanna know what your find`r isn't finding, #2 this can use up alot of space if
  100. # you don't check it ever so often and deleate it (deleation/viewing has to be done via 
  101. # telnet or ftp to the shell) if I get any requests, I will update the script to allow 
  102. # remote deletion of the file, like in '.delfind #'...) anyhow, I threw it in for me, if 
  103. # you don't want it, just set it to 0
  104. set notfoundlist 1
  105. #
  106. # Set this to what you want the not found data file to be named, default 'notfoundfile'
  107. # if the above 'notfoundlist' is 0, then this variable should be left alone :)
  108. set notfoundfile "notfoundfile"
  109. #
  110. # [0 = no/1 = yes] Do you want to display an onjoin msg telling that @find is available?
  111. set onjoinmsg 1
  112. #
  113. # Set this to the channels you want it to on join msg to, if the above setting is turned
  114. # off, then don't worry about it... example:
  115. # set channels "#warez4free #channel2 #channel3"
  116. # you can put as many channel in as you want, jut put a space inbetween them...
  117. set channels "#warez4free #wareznorth"
  118. #
  119. #mc(flood) is used for flood protection, in the form x:y.  Any queries
  120. #  beyond x in y seconds is considered a flood and ignored.
  121. set mc(flood) 5:10
  122. #
  123. #mc(ignore) is used as a switch for ignoring flooders (1=on)
  124. set mc(ignore) 1
  125. #
  126. #mc(ignore_time) is used to define the amount of time a flooder is 
  127. #  ignored (minutes).  This is meaningless if bs(ignore) is 0.
  128. set mc(ignore_time) 1
  129. #
  130. ##############
  131. ### Do Not Edit Past This Part ###
  132. set find_ver "1.1.0"
  133. ## This section out of Bass's bseen1.4.0.tcl ##
  134. proc mc_flood_init {} {
  135.  global mc mc_flood_array find_ver
  136.  if {![string match *:* $mc(flood)]} {
  137.   putlog "9,1+@find`r $find_ver: var mc(flood) not set correctly!" 
  138.   return
  139.  }
  140.  set mc(flood_num) [lindex [split $mc(flood) :] 0] 
  141.  set mc(flood_time) [lindex [split $mc(flood) :] 1] 
  142.  set i [expr $mc(flood_num) - 1]
  143.  while {$i >= 0} {
  144.   set mc_flood_array($i) 0 
  145.   incr i -1 
  146.  }
  147.  putlog "9,1 @find`r's flood protection, initalized (WoW, big word)..."
  148. } 
  149. proc mc_flood {nick uhost} {
  150.  global mc mc_flood_array find_ver stat_flood
  151.  if {$mc(flood_num) == 0} {
  152.   return 0
  153.  }
  154.  set i [expr $mc(flood_num) - 1]
  155.  while {$i >= 1} {
  156.   set mc_flood_array($i) $mc_flood_array([expr $i - 1]) 
  157.   incr i -1
  158.  } 
  159.  set mc_flood_array(0) [unixtime]
  160.  if {[expr [unixtime] - $mc_flood_array([expr $mc(flood_num) - 1])] <= $mc(flood_time)} {
  161.   putlog "9,1 @find`r's $find_ver: Flood detected from $nick."
  162.   incr stat_flood 1
  163.   if {$mc(ignore)} {
  164.    newignore [maskhost *!*[string trimleft $uhost ~]] @find`r flood $mc(ignore_time)
  165.   } 
  166.   return 1
  167.  } {
  168.   return 0
  169.  }
  170. }
  171. ## End of the frood protection pulled from bseen1.4.0.tcl ((Bass you rule)) ##
  172. bind dcc o|o findstat mc:find
  173. bind dcc o|o findstats mc:find
  174. proc mc:find {hand idx args} {
  175.  global databaselimit notfoundlist stat_hits stat_found stat_not stat_notice stat_add stat_remove find_ver stat_flood number
  176.  putdcc $idx "9,1Current stats for @find`r v $find_ver are as follows:"
  177.  putdcc $idx "- Total @find hits = 0,012$stat_hits"
  178.  putdcc $idx "- Hits found = 0,012$stat_found"
  179.  if {$notfoundlist == 1 } {
  180.   putdcc $idx "- Hits not found = 0,013$stat_not -=- Recorded!"
  181.  } {
  182.   putdcc $idx "- Hits not found = 0,013$stat_not"
  183.  }
  184.  if {[expr [expr $stat_hits - $stat_found] - $stat_not] == 0} {
  185.   putdcc $idx "- Total mismatched = 0,012OK"
  186.  } {
  187.   putdcc $idx "- Total mismatched = 0,013[expr [expr $stat_hits - $stat_found]]"
  188.  }
  189.  putdcc $idx "- Times noticed for onjoin = 0,012$stat_notice"
  190.  putdcc $idx "- Total erased = 0,012$stat_remove"
  191.  putdcc $idx "- Total added = 0,012$stat_add"
  192.  putdcc $idx "- # of ppl found flooding = 0,013$stat_flood"
  193.  if {$number < 6} {
  194.   putdcc $idx "- # of entries in database = 0,013$number/$databaselimit"
  195.  } {
  196.   putdcc $idx "- # of entries in database = 0,012$number/$databaselimit"
  197.  }
  198.  putdcc $idx "_____________________DONE_____________________"
  199. }
  200. proc find_filt {data} {
  201.   regsub -all -- \\\\ $data \\\\\\\\ data ; regsub -all -- \\\[ $data \\\\\[ data ; regsub -all -- \\\] $data \\\\\] data
  202.   regsub -all -- \\\} $data \\\\\} data ; regsub -all -- \\\{ $data \\\\\{ data ; regsub -all -- \\\" $data \\\\\" data ; return $data
  203. }
  204. if {$onjoinmsg == 1} { bind join -|- *!*@* mc:join }
  205. proc mc:join {nick uhost hand chan} {
  206.  global channels number find_ver botnick match_limit datafile stat_hits stat_found stat_not stat_notice stat_add stat_remove
  207.  if {$nick == $botnick} { return 0 }
  208.  foreach channels2 $channels {
  209.   if {[string tolower $channels2] == [string tolower $chan]} {
  210.    incr stat_notice 1
  211.    putserv "NOTICE $nick :Welcome to $chan, We have a @find`r (v. $find_ver) available for your use"
  212.    putserv "NOTICE $nick :just type '@find *what*ever*' in the channel, and I'll search for ya"
  213.    if {$number == 1} {
  214.     putserv "NOTICE $nick :-- I am currently tracking 1 entrie in my database, kinda low :("
  215.    }
  216.    if {$number <= 20 && $number != 1} {
  217.     putserv "NOTICE $nick :-- I am currently tracking $number entries in my database, kinda low :("
  218.    }
  219.    if {$number > 20} {
  220.     putserv "NOTICE $nick :-- I am currently tracking $number entries in my database"
  221.    }
  222.    putserv "NOTICE $nick :If you would like to add something, feel free, just type: /msg $botnick findadd <prog. name> \[description\] <where to get it at>"
  223.   }
  224.  }
  225. }
  226. bind dcc -|- find MC:find:dcc
  227. bind dcc -|- search MC:find:dcc
  228. proc MC:find:dcc {hand idx args} {
  229.  global number find_ver botnick match_limit datafile stat_hits stat_found stat_not stat_notice stat_add stat_remove
  230.  if {![file exists $datafile]} {
  231.   putdcc $idx "The Search file hasn't been created yet, sorry..."
  232.   return 0
  233.  }
  234.  set matches 0
  235.  set match ""
  236.  if {[catch {exec grep "" $datafile}]} {
  237.   putdcc $idx "UNEXPECTED ERROR, TELL MC_8 AT ONCE! (error code 1)"
  238.   return 0
  239.  }
  240.  set mc_list [split [exec grep "" $datafile] \n]
  241.  set arg1 "*[string trimright [string trimleft [find_filt [string tolower [lindex $args 0]]] *] *]*"
  242.  incr stat_hits 1
  243.  foreach wind $mc_list {
  244.   if {[string match $arg1 $wind]} {
  245.    incr matches 1
  246.    set match "$match $wind"
  247.   }
  248.  }
  249.  if {$matches == 0} {
  250.   putdcc $idx "I'm sorry, I did not find any matches for '$arg1', make your search shorter maby?"
  251. #  putdcc $idx "--This script brought to you by #warez4free"
  252.   putdcc $idx "--to add something, type: .addfind <program name> \[description or some keywords\] <WHERE TO GET IT AT>"
  253.   unset mc_list
  254.   notfoundlist "DCC: \[[date] [time]\] <$hand> $arg1"
  255.   incr stat_not 1
  256.   putcmdlog "#$hand# find $arg1"
  257.   return 0
  258.  }
  259.  if {$matches == 1} {
  260.   putdcc $idx "I found $matches match to your search for '$arg1'..."
  261.  }
  262.  if {$matches > 1} {
  263.   putdcc $idx "I found $matches matches to your search for '$arg1'..."
  264.  }
  265.  set i 1
  266.  foreach item $match {
  267.   putdcc $idx "$i) $item"
  268.   incr i
  269.  }
  270.  incr stat_found 1
  271. # putdcc $idx "--This script brought to you by #warez4free"
  272.  putdcc $idx "--to add something, type: .addfind <program name> \[description or some keywords\] <WHERE TO GET IT AT>"
  273.  unset mc_list
  274.  return 1
  275. }
  276. bind pub - @find MC:find:pub
  277. bind pub - @search MC:find:pub
  278. proc MC:find:pub {nick uhost hand chan args} {
  279.  if {[mc_flood $nick $uhost]} {return 0}
  280.  global number find_ver botnick match_limit datafile stat_hits stat_found stat_not stat_notice stat_add stat_remove
  281.  if {![file exists $datafile]} {
  282.   putserv "NOTICE $nick :The Search file hasn't been created yet, sorry..."
  283.   return 0
  284.  }
  285.  set matches 0
  286.  set match ""
  287.  if {[catch {exec grep "" $datafile}]} {
  288.   putserv "NOTICE $nick :UNEXPECTED ERROR, TELL MC_8 AT ONCE! (error code 1.2)"
  289.   return 0
  290.  }
  291.  set mc_list [split [exec grep "" $datafile] \n]
  292.  set arg1 "*[string trimright [string trimleft [find_filt [string tolower [lindex $args 0]]] *] *]*"
  293.  incr stat_hits 1
  294.  foreach wind $mc_list {
  295.   if {[string match $arg1 $wind]} {
  296.    incr matches 1
  297.    set match "$match $wind"
  298.   }
  299.  }
  300.  if {$matches == 0} {
  301.   putserv "NOTICE $nick :I'm sorry, I did not find any matches for '$arg1', make your search shorter maby?"
  302. #  if {"[string tolower $chan]" != "#warez4free"} {
  303. #   putserv "NOTICE $nick :--This script brought to you by #warez4free"
  304. #  }
  305.   putserv "NOTICE $nick :--to add something, Type: /msg $botnick addfind <program name> \[description or some keywords\] <WHERE TO GET IT AT>"
  306.   unset mc_list
  307.   notfoundlist "$chan: \[[date] [time]\] <$nick> $arg1"
  308.   incr stat_not 1
  309.   return 0
  310.  }
  311.  if {$matches == 1} {
  312.   putserv "NOTICE $nick :I found $matches match to your search for '$arg1'..."
  313.  }
  314.  if {$matches > 1} {
  315.   putserv "NOTICE $nick :I found $matches matches to your search for '$arg1'..."
  316.  }
  317.  set i 1
  318.  foreach item $match {
  319.   putserv "NOTICE $nick :$i) $item"
  320.   if {$i == $match_limit} {
  321.    if {$i != $matches} {
  322.     putserv "NOTICE $nick :To many matches, please make you search a lil more selective"
  323.     putserv "NOTICE $nick : \[$i of $matches displayed\]"
  324. #    if {"[string tolower $chan]" != "#warez4free"} {
  325. #     putserv "NOTICE $nick :--This script brought to you by #warez4free"
  326. #    }
  327.     putserv "NOTICE $nick :--to add something, type: /msg $botnick addfind <program name> \[description or some keywords\] <WHERE TO GET IT AT>"
  328.     incr stat_found 1
  329.     return 2
  330.    }
  331.   }
  332.   incr i
  333.  }
  334.  incr stat_found 1
  335. # if {"[string tolower $chan]" != "#warez4free"} {
  336. #  putserv "NOTICE $nick :--This script brought to you by #warez4free"
  337. # }
  338.  putserv "NOTICE $nick :--to add something, type: /msg $botnick addfind <program name> \[description or some keywords\] <WHERE TO GET IT AT>"
  339.  unset mc_list
  340.  return 2
  341. }
  342. bind dcc -|- addfind MC:addfind
  343. bind dcc -|- findadd MC:addfind
  344. proc MC:addfind {hand idx args} {
  345.  global databaselimit number datafile stat_add stat_remove
  346.  set arg1 "[concat [string tolower $args]]"
  347.  if {[lindex [lindex $arg1 0] 1] == ""} {
  348.   putdcc $idx "SYNTAX: .addfind <program name> \[description or some keywords\] <WHERE TO GET IT AT>"
  349.   return 0
  350.  }
  351.  if {![split [catch {exec grep $arg1 $datafile}] \n]} {
  352.   putdcc $idx "$arg1 already exists..."
  353.   return 0
  354.  }
  355.  if {$number >= $databaselimit} {
  356.   set row 0 
  357.   set oldfind [getfind $datafile]
  358.   if {[expr $row >= 0] && [expr $row < [llength $oldfind]]} {
  359.    set newfinds [lreplace $oldfind $row $row]
  360.    set fileio [open $datafile "w"]
  361.    foreach item $newfinds {
  362.     puts $fileio $item
  363.    }
  364.    flush $fileio
  365.    close $fileio
  366.    incr stat_remove 1
  367.   }
  368.   exec echo [string tolower $args] >> $datafile
  369.   putdcc $idx "Added..."
  370.   incr stat_add 1
  371.  } {
  372.   exec echo [string tolower $args] >> $datafile
  373.   putdcc $idx "Added..."
  374.   incr number 1
  375.   incr stat_add 1
  376.  }
  377. }
  378. bind msg - addfind MC:addfind:msg
  379. bind msg - findadd MC:addfind:msg
  380. proc MC:addfind:msg {nick uhost hand args} {
  381.  global number databaselimit find_ver botnick match_limit datafile stat_hits stat_found stat_not stat_notice stat_add stat_remove
  382.  if {[mc_flood $nick $uhost]} {return 0}
  383.  set arg1 "[concat [string tolower $args]]"
  384.  if {[lindex [lindex $arg1 0] 1] == ""} {
  385.   puthelp "PRIVMSG $nick :SYNTAX: /msg $botnick addfind <program name> \[description\] <where to get it at>"
  386.   return 0
  387.  }
  388.  if {![split [catch {exec grep $arg1 $datafile}] \n]} {
  389.   puthelp "NOTICE $nick :$arg1 already exists..."
  390.   return 0
  391.  }
  392.  if {$number >= $databaselimit} {
  393.   set row 0 
  394.   set oldfind [getfind $datafile]
  395.   if {[expr $row >= 0] && [expr $row < [llength $oldfind]]} {
  396.    set newfinds [lreplace $oldfind $row $row]
  397.    set fileio [open $datafile "w"]
  398.    foreach item $newfinds {
  399.     puts $fileio $item
  400.    }
  401.    flush $fileio
  402.    close $fileio
  403.    incr stat_remove 1
  404.   }
  405.   exec echo [string tolower $args] >> $datafile
  406.   puthelp "NOTICE $nick :Adding $args..."
  407.   puthelp "NOTICE $nick :Done..."
  408.   incr stat_add 1
  409.  } {
  410.   exec echo [string tolower $args] >> $datafile
  411.   puthelp "NOTICE $nick :Adding $args..."
  412.   puthelp "NOTICE $nick :Done..."
  413.   incr number 1
  414.   incr stat_add 1
  415.  }
  416. }
  417. bind dcc o|o delfind MC:delfind
  418. bind dcc o|o finddel MC:delfind
  419. proc MC:delfind {hand idx arg} {
  420.  global number find_ver botnick match_limit datafile stat_hits stat_found stat_not stat_notice stat_add stat_remove
  421.  if {[lindex $arg 0] == ""} {
  422.   putdcc $idx "SYNTAX: .delfind <number>"
  423.   putdcc $idx "To find the number, just type: '.find *'  this will give you the total list"
  424.   return 0
  425.  }
  426.  set row [expr $arg - 1]
  427.  set oldfind [getfind $datafile]
  428.  if {[expr $row >= 0] && [expr $row < [llength $oldfind]]} {
  429.   set newfinds [lreplace $oldfind $row $row]
  430.   set fileio [open $datafile "w"]
  431.   foreach item $newfinds {
  432.    puts $fileio $item
  433.   }
  434.   flush $fileio
  435.   close $fileio
  436.   putdcc $idx "Removed..."
  437.   incr number -1
  438.   incr stat_remove 1
  439.  }
  440. }
  441. bind msg o|o finddel MC:delfind:msg
  442. bind msg o|o delfind MC:delfind:msg
  443. proc MC:delfind:msg {nick uhost hand arg} {
  444.  global number find_ver botnick match_limit datafile stat_hits stat_found stat_not stat_notice stat_add stat_remove
  445.  if {[mc_flood $nick $uhost]} {return 0}
  446.  if {[lindex $arg 0] == ""} {
  447.   puthelp "NOTICE $nick :SYNTAX: /msg $botnick delfind <number>"
  448.   puthelp "NOTICE $nick :To find the number, you must be in dcc chat, and type: '.find *'  this will give you the total list"
  449.   return 0
  450.  }
  451.  set row [expr $arg - 1]
  452.  set oldfind [getfind $datafile]
  453.  if {[expr $row >= 0] && [expr $row < [llength $oldfind]]} {
  454.   set newfinds [lreplace $oldfind $row $row]
  455.   set fileio [open $datafile "w"]
  456.   foreach item $newfinds {
  457.    puts $fileio $item
  458.   }
  459.   flush $fileio
  460.   close $fileio
  461.   puthelp "NOTICE $nick :Done..."
  462.   incr number -1
  463.   incr stat_remove 1
  464.  }
  465. }
  466. proc getfind {file} {
  467.  set finds ""
  468.  set fileio [open $file "r"]
  469.  while {![eof $fileio]} {
  470.   set find [gets $fileio]
  471.   if {$find != ""} {
  472.    set finds [linsert $finds end $find]
  473.   }
  474.  }
  475.  close $fileio
  476.  return $finds
  477. }
  478. proc notfoundlist {arg1} {
  479.  global notfoundlist notfoundfile
  480.  if {$notfoundlist == 1} {
  481.   exec echo [string tolower $arg1] >> $notfoundfile
  482.  }
  483. }
  484. bind msg o|o dllist mc:dllist:msg
  485. proc mc:dllist:msg {nick uhost hand arg} {
  486.  global datafile
  487.  if {[file exists $datafile.bak]} { 
  488.   exec rm -r $datafile.bak
  489.  }
  490.  set mc_list [split [exec grep "" $datafile] \n]
  491.  set i 1
  492.  foreach wind $mc_list {
  493.   exec echo "$i) $wind " >> $datafile.bak
  494.   incr i 1
  495.  }
  496.  set output [dccsend $datafile.bak $nick]
  497.  if {$output == 0} {
  498.   puthelp "NOTICE $nick :Sending $datafile.bak to you"
  499.   return 1
  500.  }
  501.  if {$output == 1} {
  502.   puthelp "NOTICE $nick :dcc table is full (too many connections)"
  503.   return 2
  504.  }
  505.  if {$output == 2} {
  506.   puthelp "NOTICE $nick :can't open a socket for the transfer"
  507.   return 3
  508.  }
  509.  if {$output == 3} {
  510.   puthelp "NOTICE $nick :file doesn't exist <Tell MC_8 he has a bug :P>"
  511.   return 4
  512.  }
  513.  if {$output == 4} {
  514.   puthelp "NOTICE $nick :$datafile.bak was queued for later transfer"
  515.   return 5
  516.  }
  517. }
  518. bind dcc o|o dllist mc:dllist
  519. proc mc:dllist {hand idx arg} {
  520.  global datafile 
  521.  if {[file exists $datafile.bak]} { 
  522.   exec rm -r $datafile.bak
  523.  }
  524.  set mc_list [split [exec grep "" $datafile] \n]
  525.  set i 1
  526.  foreach wind $mc_list {
  527.   exec echo "$i) $wind" >> $datafile.bak
  528.   incr i 1
  529.  }
  530.  set arg1 [lindex $arg 0]
  531.  if {$arg1 == ""} {
  532.   putdcc $idx "Send to who? syntax: .dllist <nick>"
  533.   return 0
  534.  }
  535.  set output [dccsend $datafile.bak $arg1]
  536.  if {$output == 0} {
  537.   putdcc $idx "Sending $datafile.bak to '$arg1'"
  538.   return 1
  539.  }
  540.  if {$output == 1} {
  541.   putdcc $idx "dcc table is full (too many connections)"
  542.   return 2
  543.  }
  544.  if {$output == 2} {
  545.   putdcc $idx "can't open a socket for the transfer"
  546.   return 3
  547.  }
  548.  if {$output == 3} {
  549.   putdcc $idx "file doesn't exist <Tell MC_8 he has a bug :P>"
  550.   return 4
  551.  }
  552.  if {$output == 4} {
  553.   putdcc $idx "$datafile.bak was queued for later transfer"
  554.   return 5
  555.  }
  556. }
  557. putlog "***==-==***"
  558. if {[catch {exec grep "" $datafile}]} {
  559.  putlog "9,1ERROR loading datafile, Please e`mail gregory@worldinter.net at once! (error code e1)"
  560.  putlog "***==-==***"
  561.  return 0
  562. } {
  563.  set number 0
  564.  set mc_list [split [exec grep "" $datafile] \n]
  565.  foreach dummie $mc_list {
  566.   incr number 1
  567.  }
  568.  putlog "9,1 @find`r data-base loaded..."
  569.  putlog "9,1 --currently tracking $number/$databaselimit entries in the database"
  570.  set stat_hits 0
  571.  set stat_found 0
  572.  set stat_not 0
  573.  set stat_notice 0
  574.  set stat_add 0
  575.  set stat_remove 0
  576.  set stat_flood 0
  577.  putlog "9,1 @find`r's stats reset..."
  578.  mc_flood_init
  579.  unset mc_list
  580.  putlog "9,1Warez @find`r $find_ver loaded, by MC_8"
  581.  putlog "***==-==***"
  582. }