/[cvs]/eggdrop1.6/scripts/weed
ViewVC logotype

Diff of /eggdrop1.6/scripts/weed

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by fabian, Sat Oct 9 15:46:34 1999 UTC revision 1.4 by fabian, Tue Oct 26 21:38:36 1999 UTC
# Line 1  Line 1 
1  #!/usr/local/bin/tclsh  #! /bin/sh
2    # ^-- little trick to restart using tclsh \
3    exec tclsh "$0" "$@"
4  #  #
5  # weed out certain undesirables from an eggdrop userlist  # weed out certain undesirables from an eggdrop userlist
6  # try just typing 'tclsh weed' to find out the options  # try just typing 'tclsh weed' to find out the options
# Line 20  Line 22 
22  # field exactly matched 40 characters it would save it with no spaces after  # field exactly matched 40 characters it would save it with no spaces after
23  # it and eggdrop would reject the user record.  I know I could have easily  # it and eggdrop would reject the user record.  I know I could have easily
24  # changed one character, but I couldn't help myself.  <grin>  # changed one character, but I couldn't help myself.  <grin>
25  #                                         5 march 96  #                                         5 march 1996
26  #  #
27  # <robey, 23jul96>:  # <robey, 23jul1996>:
28  #     upgrade for v2 userfiles  #     upgrade for v2 userfiles
29  # <bruce s, 4sep96>:  # <bruce s, 04sep1996>:
30  #     fixed xtra field from getting truncated  #     fixed xtra field from getting truncated
31  # <robey, 20sep96>:  # <robey, 20sep1996>:
32  #     stopped it from mangling channel ban lists  #     stopped it from mangling channel ban lists
33  # <Ec|ipse & dtM, 10jun97>:  # <Ec|ipse & dtM, 10jun1997>:
34  #     upgrade for v3 userfiles  #     upgrade for v3 userfiles
35  # <Ec|ipse 18jun97>:  # <Ec|ipse 18jun1997>:
36  #     added an option to remove users from unwanted channels  #     added an option to remove users from unwanted channels
37  # <Ec|ipse 28oct97>:  # <Ec|ipse 28oct1997>:
38  #     upgrade for v4 userfiles, with v3 converter  #     upgrade for v4 userfiles, with v3 converter
39  # <Ernst 8mar98>:  # <Ernst 8mar1998>:
40  #     fixed bug "list element in braces followed by X instead of space"  #     fixed bug "list element in braces followed by X instead of space"
41  #       (the use of "lrange" where you aren't sure if it's a list is bad)  #       (the use of "lrange" where you aren't sure if it's a list is bad)
42  #     fixed --CONSOLE item not being included, creating "user" --CONSOLE  #     fixed --CONSOLE item not being included, creating "user" --CONSOLE
43  # <Ernst 1apr98>:  # <Ernst 1apr1998>:
44  #     two more improper ocurrences of "lrange" removed  #     two more improper ocurrences of "lrange" removed
45  # <rtc 20sep1999>:  # <rtc 20sep1999>:
46  #     removed ancient way of determining the current time.  #     removed ancient way of determining the current time.
47    # <Tothwolf 21oct1999
48    #     [clock] isn't in all versions of Tcl...
49  #  #
50    
51  set exempt {*ban *ignore}  set exempt {*ban *ignore}
# Line 55  set stripops 0 ; set stripmasters 0 ; se Line 59  set stripops 0 ; set stripmasters 0 ; se
59  set chanrem {}  set chanrem {}
60  set convert 0  set convert 0
61    
62    if {![string compare "" [info commands clock]]} then {
63      set fd [open "/tmp/egg.timer." w]
64      close $fd
65      set CURRENT [file atime "/tmp/egg.timer."]
66      exec rm -f /tmp/egg.timer.
67    } else {
68  set CURRENT [clock seconds]  set CURRENT [clock seconds]
69    }
70    
71  if {$argc < 1} {  if {$argc < 1} {
72    puts stdout "\nUsage: weed <userfile> \[options\]"    puts stdout "\nUsage: weed <userfile> \[options\]"

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23