/[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.5 by fabian, Tue Dec 21 17:35:08 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    # $Id$
6  #  #
7  # weed out certain undesirables from an eggdrop userlist  # weed out certain undesirables from an eggdrop userlist
8  # try just typing 'tclsh weed' to find out the options  # try just typing 'tclsh weed' to find out the options
# Line 20  Line 24 
24  # 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
25  # 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
26  # changed one character, but I couldn't help myself.  <grin>  # changed one character, but I couldn't help myself.  <grin>
27  #                                         5 march 96  #                                         5 march 1996
28  #  #
29  # <robey, 23jul96>:  # <robey, 23jul1996>:
30  #     upgrade for v2 userfiles  #     upgrade for v2 userfiles
31  # <bruce s, 4sep96>:  # <bruce s, 04sep1996>:
32  #     fixed xtra field from getting truncated  #     fixed xtra field from getting truncated
33  # <robey, 20sep96>:  # <robey, 20sep1996>:
34  #     stopped it from mangling channel ban lists  #     stopped it from mangling channel ban lists
35  # <Ec|ipse & dtM, 10jun97>:  # <Ec|ipse & dtM, 10jun1997>:
36  #     upgrade for v3 userfiles  #     upgrade for v3 userfiles
37  # <Ec|ipse 18jun97>:  # <Ec|ipse 18jun1997>:
38  #     added an option to remove users from unwanted channels  #     added an option to remove users from unwanted channels
39  # <Ec|ipse 28oct97>:  # <Ec|ipse 28oct1997>:
40  #     upgrade for v4 userfiles, with v3 converter  #     upgrade for v4 userfiles, with v3 converter
41  # <Ernst 8mar98>:  # <Ernst 8mar1998>:
42  #     fixed bug "list element in braces followed by X instead of space"  #     fixed bug "list element in braces followed by X instead of space"
43  #       (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)
44  #     fixed --CONSOLE item not being included, creating "user" --CONSOLE  #     fixed --CONSOLE item not being included, creating "user" --CONSOLE
45  # <Ernst 1apr98>:  # <Ernst 1apr1998>:
46  #     two more improper ocurrences of "lrange" removed  #     two more improper ocurrences of "lrange" removed
47  # <rtc 20sep1999>:  # <rtc 20sep1999>:
48  #     removed ancient way of determining the current time.  #     removed ancient way of determining the current time.
49    # <Tothwolf 21oct1999
50    #     [clock] isn't in all versions of Tcl...
51  #  #
52    
53  set exempt {*ban *ignore}  set exempt {*ban *ignore}
# Line 55  set stripops 0 ; set stripmasters 0 ; se Line 61  set stripops 0 ; set stripmasters 0 ; se
61  set chanrem {}  set chanrem {}
62  set convert 0  set convert 0
63    
64    if {![string compare "" [info commands clock]]} then {
65      set fd [open "/tmp/egg.timer." w]
66      close $fd
67      set CURRENT [file atime "/tmp/egg.timer."]
68      exec rm -f /tmp/egg.timer.
69    } else {
70  set CURRENT [clock seconds]  set CURRENT [clock seconds]
71    }
72    
73  if {$argc < 1} {  if {$argc < 1} {
74    puts stdout "\nUsage: weed <userfile> \[options\]"    puts stdout "\nUsage: weed <userfile> \[options\]"

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

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23