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