593 lines
22 KiB
Bash
Executable file
593 lines
22 KiB
Bash
Executable file
#! /bin/sh
|
|
# This trick is borrowed from Tothwolf's Wolfpack \
|
|
# Check for working 'grep -E' before using 'egrep' \
|
|
if echo a | (grep -E '(a|b)') >/dev/null 2>&1; \
|
|
then \
|
|
egrep="grep -E"; \
|
|
else \
|
|
egrep=egrep; \
|
|
fi; \
|
|
# Search for tclsh[0-9].[0-9] in each valid dir in PATH \
|
|
for dir in $(echo $PATH | sed 's/:/ /g'); \
|
|
do \
|
|
if test -d $dir; \
|
|
then \
|
|
files=$(/bin/ls $dir | $egrep '^tclsh[0-9]\.[0-9]$'); \
|
|
if test "$files" != ""; \
|
|
then \
|
|
versions="${versions:+$versions }$(echo $files | sed 's/tclsh//g')"; \
|
|
fi; \
|
|
fi; \
|
|
done; \
|
|
for ver in $versions; \
|
|
do \
|
|
tmpver=$(echo $ver | sed 's/\.//g'); \
|
|
if test "$lasttmpver" != ""; \
|
|
then \
|
|
if test "$tmpver" -gt "$lasttmpver"; \
|
|
then \
|
|
lastver=$ver; \
|
|
lasttmpver=$tmpver; \
|
|
fi; \
|
|
else \
|
|
lastver=$ver; \
|
|
lasttmpver=$tmpver; \
|
|
fi; \
|
|
done; \
|
|
exec tclsh$lastver "$0" ${1+"$@"}
|
|
#
|
|
# $Id: weed,v 1.9 2008/06/18 10:12:22 tothwolf Exp $
|
|
#
|
|
# weed out certain undesirables from an eggdrop userlist
|
|
# try just typing 'tclsh weed' to find out the options
|
|
# Robey Pointer, November 1994
|
|
#
|
|
# <cmwagner@gate.net>:
|
|
# I did a few bug fixes to the original weed script, things changed...
|
|
#
|
|
# when specifying other weed options they would unset the User() field and
|
|
# a maxlast weed would try and weed again and cause the script to stop due
|
|
# to User() being already unset (array nonexistant)
|
|
#
|
|
# when loadUserFile encountered an xtra field it would try and use the $info
|
|
# variable, which was supposed to be $xtra (something overlooked when the
|
|
# line was cut and pasted -- I hate it when that happens)
|
|
#
|
|
# changed the formatting of the saved weed file to match more closely to
|
|
# eggdrop 0.9tp (so this may cause incompatibilities), but when a hostmask
|
|
# field exactly matched 40 characters it would save it with no spaces after
|
|
# it and eggdrop would reject the user record. I know I could have easily
|
|
# changed one character, but I couldn't help myself. <grin>
|
|
# 5 march 1996
|
|
#
|
|
# <robey, 23jul1996>:
|
|
# upgrade for v2 userfiles
|
|
# <bruce s, 04sep1996>:
|
|
# fixed xtra field from getting truncated
|
|
# <robey, 20sep1996>:
|
|
# stopped it from mangling channel ban lists
|
|
# <Ec|ipse & dtM, 10jun1997>:
|
|
# upgrade for v3 userfiles
|
|
# <Ec|ipse 18jun1997>:
|
|
# added an option to remove users from unwanted channels
|
|
# <Ec|ipse 28oct1997>:
|
|
# upgrade for v4 userfiles, with v3 converter
|
|
# <Ernst 8mar1998>:
|
|
# fixed bug "list element in braces followed by X instead of space"
|
|
# (the use of "lrange" where you aren't sure if it's a list is bad)
|
|
# fixed --CONSOLE item not being included, creating "user" --CONSOLE
|
|
# <Ernst 1apr1998>:
|
|
# two more improper occurrences of "lrange" removed
|
|
# <rtc 20sep1999>:
|
|
# removed ancient way of determining the current time.
|
|
# <Tothwolf 21oct1999>:
|
|
# [clock] isn't in all versions of Tcl...
|
|
# <guppy 12Apr2001>:
|
|
# borrowed code from Tothwolf's Wolfpack to find tclsh better
|
|
#
|
|
|
|
set exempt {*ban *ignore}
|
|
set exemptops 0 ; set exemptmasters 0 ; set exemptfriends 0
|
|
set exemptparty 0 ; set exemptfile 0 ; set exemptchanm 0
|
|
set exemptbotm 0 ; set exemptchann 0 ; set exemptchanf 0
|
|
set exemptchano 0
|
|
set maxlast 0 ; set maxban 0 ; set maxignore 0
|
|
set weedops 0 ; set weedmasters 0 ; set weednopw 0
|
|
set stripops 0 ; set stripmasters 0 ; set weedlurkers 0
|
|
set chanrem {}
|
|
set convert 0
|
|
|
|
if {![string compare "" [info commands clock]]} then {
|
|
set fd [open "/tmp/egg.timer." w]
|
|
close $fd
|
|
set CURRENT [file atime "/tmp/egg.timer."]
|
|
exec rm -f /tmp/egg.timer.
|
|
} else {
|
|
set CURRENT [clock seconds]
|
|
}
|
|
|
|
if {$argc < 1} {
|
|
puts stdout "\nUsage: weed <userfile> \[options\]"
|
|
puts stdout " (weeds out users from an eggdrop userlist)"
|
|
puts stdout "Output goes to <userfile>.weed"
|
|
puts stdout "Possible options:"
|
|
puts stdout " -<nick> exempt this user from weeding"
|
|
puts stdout " ^o ^m ^f exempt ops or masters or friends"
|
|
puts stdout " ^co ^cm ^cf exempt chanops or chanmasters or chanfriends"
|
|
puts stdout " ^cn exempt chanowner"
|
|
puts stdout " ^p ^x exempt party-line or file-area users"
|
|
puts stdout " ^b exempt botnet master"
|
|
puts stdout " +<days> weed: haven't been seen in N days"
|
|
puts stdout " :n weed: haven't EVER been seen"
|
|
puts stdout " :o :m weed: ops or masters with no password set"
|
|
puts stdout " :a weed: anyone with no password set"
|
|
puts stdout " o m unop/unmaster: ops or masters with no pass."
|
|
puts stdout " b<days> weed: bans not used in N days"
|
|
puts stdout " i<days> weed: ignores created over N days ago"
|
|
puts stdout " =<chan> weed: channels no longer supported"
|
|
puts stdout " c convert v3 eggdrop userfile"
|
|
puts stdout ""
|
|
exit
|
|
}
|
|
puts stdout "\nWEED 18jun97, robey\n"
|
|
|
|
set filename [lindex $argv 0]
|
|
for {set i 1} {$i < $argc} {incr i} {
|
|
set carg [lindex $argv $i]
|
|
if {$carg == ":n"} {
|
|
set weedlurkers 1
|
|
} elseif {$carg == ":o"} {
|
|
set weedops 1 ; set stripops 0 ; set weednopw 0
|
|
} elseif {$carg == ":m"} {
|
|
set weedmasters 1 ; set stripmasters 0 ; set weednopw 0
|
|
} elseif {$carg == ":a"} {
|
|
set weednopw 1 ; set weedops 0 ; set weedmasters 0
|
|
set stripops 0 ; set stripmasters 0
|
|
} elseif {$carg == "o"} {
|
|
set stripops 1 ; set weedops 0 ; set weednopw 0
|
|
} elseif {$carg == "m"} {
|
|
set stripmasters 1 ; set weedmasters 0 ; set weednopw 0
|
|
} elseif {$carg == "^m"} {
|
|
set exemptmasters 1
|
|
} elseif {$carg == "^o"} {
|
|
set exemptops 1
|
|
} elseif {$carg == "^f"} {
|
|
set exemptfriends 1
|
|
} elseif {$carg == "^p"} {
|
|
set exemptparty 1
|
|
} elseif {$carg == "^x"} {
|
|
set exemptfile 1
|
|
} elseif {$carg == "^cf"} {
|
|
set exemptchanf 1
|
|
} elseif {$carg == "^cm"} {
|
|
set exemptchanm 1
|
|
} elseif {$carg == "^cn"} {
|
|
set exemptchann 1
|
|
} elseif {$carg == "^b"} {
|
|
set exemptbotm 1
|
|
} elseif {$carg == "^co"} {
|
|
set exemptchano 1
|
|
} elseif {$carg == "c"} {
|
|
set convert 1
|
|
} elseif {[string index $carg 0] == "-"} {
|
|
lappend exempt [string range $carg 1 end]
|
|
} elseif {[string index $carg 0] == "+"} {
|
|
set maxlast [expr 60*60*24* [string range $carg 1 end]]
|
|
} elseif {[string index $carg 0] == "b"} {
|
|
set maxban [expr 60*60*24* [string range $carg 1 end]]
|
|
} elseif {[string index $carg 0] == "i"} {
|
|
set maxignore [expr 60*60*24* [string range $carg 1 end]]
|
|
} elseif {[string index $carg 0] == "="} {
|
|
lappend chanrem [string tolower [string range $carg 1 end]]
|
|
} else {
|
|
puts stderr "UNKNOWN OPTION: '$carg'\n"
|
|
exit
|
|
}
|
|
}
|
|
|
|
if {(!$weedlurkers) && (!$weedops) && (!$weedmasters) && (!$weednopw) &&
|
|
(!$stripops) && (!$stripmasters) && ($maxlast == 0) && ($convert == 0) &&
|
|
($maxban == 0) && ($maxignore == 0) && ($chanrem == {})} {
|
|
puts stderr "PROBLEM: You didn't specify anything to weed out.\n"
|
|
exit
|
|
}
|
|
|
|
set weeding { } ; set strip { } ; set exempting { }
|
|
if {$weedlurkers} { lappend weeding "lurkers" }
|
|
if {$weedops} { lappend weeding "pwdless-ops" }
|
|
if {$weedmasters} { lappend weeding "pwdless-masters" }
|
|
if {$weednopw} { lappend weeding "pwdless-users" }
|
|
if {$chanrem != {}} { lappend weeding "unwanted-channel" }
|
|
if {$maxlast > 0} { lappend weeding ">[expr $maxlast /(60*60*24)]-days" }
|
|
if {$maxban > 0} { lappend weeding "bans>[expr $maxban /(60*60*24)]-days" }
|
|
if {$maxignore > 0} { lappend weeding "ign>[expr $maxignore /(60*60*24)]-days" }
|
|
if {$weeding != { }} { puts stdout "Weeding:$weeding" }
|
|
|
|
if {$stripops} { lappend strip "pwdless-ops" }
|
|
if {$stripmasters} { lappend strip "pwdless-masters" }
|
|
if {$strip != { }} { puts stdout "Stripping:$strip" }
|
|
|
|
if {$exemptops} { lappend exempting "(ops)" }
|
|
if {$exemptmasters} { lappend exempting "(masters)" }
|
|
if {$exemptfriends} { lappend exempting "(friends)" }
|
|
if {$exemptparty} { lappend exempting "(party-line)" }
|
|
if {$exemptfile} { lappend exempting "(file-area)" }
|
|
if {$exemptchann} { lappend exempting "(channel-owners)" }
|
|
if {$exemptchanm} { lappend exempting "(channel-masters)" }
|
|
if {$exemptchano} { lappend exempting "(channel-ops)" }
|
|
if {$exemptchanf} { lappend exempting "(channel-friends)" }
|
|
if {$exemptbotm} { lappend exempting "(botnet masters)" }
|
|
if {[llength $exempt]>2} { lappend exempting "[lrange $exempt 2 end]" }
|
|
if {$exempting != { }} { puts stdout "Exempt:$exempting" }
|
|
|
|
puts stdout "\nReading $filename ..."
|
|
|
|
proc convertUserFile {fname} {
|
|
global User Hostmask Channel Botflag LastOn BotAddr Xtra convert
|
|
puts stdout "\nRunning Converter on $fname"
|
|
set oldhandle {}
|
|
if {[catch {set fd [open $fname r]}] != 0} { return 0 }
|
|
set line [string trim [gets $fd]]
|
|
if {[string range $line 1 2] == "3v"} {
|
|
set convert 1
|
|
} elseif {[string range $line 1 2] == "4v"} {
|
|
return 0
|
|
}
|
|
while {![eof $fd]} {
|
|
set line [string trim [gets $fd]]
|
|
if {([string index $line 0] != "#") && ([string length $line] > 0)} {
|
|
scan $line "%s" handle
|
|
if {$handle == "-"} {
|
|
# hostmask
|
|
set hmList [split [string range $line 2 end] ,]
|
|
for {set i 0} {$i < [llength $hmList]} {incr i} {
|
|
lappend Hostmask($oldhandle) [string trim [lindex $hmList $i]]
|
|
}
|
|
} elseif {$handle == "!"} {
|
|
# channel
|
|
set chList [string trim [string range $line 1 end]]
|
|
lappend Channel($oldhandle) "[lrange $chList 0 1] [string trim [lindex $chList end] 0123456789]"
|
|
} elseif {$handle == "*"} {
|
|
# dccdir
|
|
set dccdir [string trim [string range $line 2 end]]
|
|
set User($oldhandle) [lreplace $User($oldhandle) 2 2 $dccdir]
|
|
} elseif {$handle == "+"} {
|
|
# email
|
|
set email [string trim [string range $line 2 end]]
|
|
set User($oldhandle) [lreplace $User($oldhandle) 3 3 $email]
|
|
} elseif {$handle == "="} {
|
|
# comment
|
|
set comment [string trim [string range $line 2 end]]
|
|
set User($oldhandle) [lreplace $User($oldhandle) 4 4 $comment]
|
|
} elseif {$handle == ":"} {
|
|
# user info line / bot addresses
|
|
if {[lsearch [split [lindex $User($oldhandle) 0] ""] b] == -1} {
|
|
set info [string trim [string range $line 1 end]]
|
|
set User($oldhandle) [lreplace $User($oldhandle) 5 5 $info]
|
|
} else {
|
|
set BotAddr($oldhandle) [string trim [string range $line 1 end]]
|
|
}
|
|
} elseif {$handle == "."} {
|
|
# xtra field start
|
|
if {![info exists xtraList($oldhandle)]} {
|
|
set xtraList($oldhandle) [string trim [string range $line 1 end]]
|
|
} {
|
|
set xtraList($oldhandle) "$xtraList($oldhandle) [string trim [string range $line 1 end]]"
|
|
}
|
|
} elseif {$handle == "!!"} {
|
|
# laston
|
|
set LastOn($oldhandle) [lindex $line 1]
|
|
} else {
|
|
# finish up xtra field first
|
|
if {[info exists xtraList($oldhandle)]} {
|
|
for {set i 0} {$i < [llength $xtraList($oldhandle)]} {incr i} {
|
|
lappend Xtra($oldhandle) [string trim [lindex $xtraList($oldhandle) $i] \{]
|
|
}
|
|
}
|
|
# begin of new user
|
|
scan $line "%s %s %s %s" handle pass attr ts
|
|
if {$convert == 1 && $attr != ""} {
|
|
regsub -all {B} $attr {t} attr
|
|
set botflags "s h a l r" ; set Botflag($handle) ""
|
|
set nattr [split [string trim $attr 0123456789] ""] ; set attr ""
|
|
foreach flag $botflags {
|
|
if {[lsearch -exact $nattr $flag] != -1} {append Botflag($handle) $flag}
|
|
}
|
|
foreach flag $nattr {
|
|
if {[lsearch -exact $botflags $flag] == -1} {append attr $flag}
|
|
}
|
|
}
|
|
set User($handle) [list $attr $pass {} {} {} {}]
|
|
set Hostmask($handle) {}
|
|
set Channel($handle) {}
|
|
set oldhandle $handle
|
|
}
|
|
}
|
|
}
|
|
return 1
|
|
}
|
|
|
|
proc loadUserFile {fname} {
|
|
global User Hostmask Channel Botflag LastOn BotAddr Xtra
|
|
set oldhandle {}
|
|
if {[catch {set fd [open $fname r]}] != 0} { return 0 }
|
|
set line [string trim [gets $fd]]
|
|
if {[string range $line 1 2] != "4v"} {
|
|
if {[string range $line 1 2] == "3v"} {
|
|
convertUserFile $fname
|
|
return 1
|
|
} else {
|
|
puts stderr "Unknown userfile version! (not v4)\n"
|
|
exit
|
|
}
|
|
}
|
|
while {![eof $fd]} {
|
|
set line [string trim [gets $fd]]
|
|
if {([string index $line 0] != "#") && ([string length $line] > 0)} {
|
|
scan $line "%s" handle
|
|
if {$handle == "--HOSTS"} {
|
|
# hostmask
|
|
set hmList [lindex $line 1]
|
|
lappend Hostmask($oldhandle) [string trim $hmList]
|
|
} elseif {$handle == "-"} {
|
|
# hostmask
|
|
set hmList [join [lrange $line 1 end]]
|
|
lappend Hostmask($oldhandle) [string trim $hmList]
|
|
} elseif {$handle == "!"} {
|
|
# channel
|
|
set chList [string trim [string range $line 1 end]]
|
|
lappend Channel($oldhandle) $chList
|
|
} elseif {$handle == "--BOTADDR"} {
|
|
# botaddr
|
|
set BotAddr($oldhandle) [lindex $line 1]
|
|
} elseif {$handle == "--PASS"} {
|
|
# pass
|
|
set pass [string trim [string range $line [expr [string first " " $line] + 1] end]]
|
|
set User($oldhandle) [lreplace $User($oldhandle) 1 1 $pass]
|
|
} elseif {$handle == "--DCCDIR"} {
|
|
# dccdir
|
|
set first [string first " " $line]
|
|
if {$first != -1} {
|
|
set dccdir [string trim [string range $line [expr $first + 1] end]]
|
|
} {
|
|
set dccdir ""
|
|
}
|
|
set User($oldhandle) [lreplace $User($oldhandle) 2 2 $dccdir]
|
|
} elseif {$handle == "--COMMENT"} {
|
|
# comment
|
|
set first [string first " " $line]
|
|
if {$first != -1} {
|
|
set comment [string trim [string range $line [expr $first + 1] end]]
|
|
} {
|
|
set comment ""
|
|
}
|
|
set User($oldhandle) [lreplace $User($oldhandle) 4 4 $comment]
|
|
} elseif {$handle == "--INFO"} {
|
|
# user info line
|
|
set first [string first " " $line]
|
|
if {$first != -1} {
|
|
set info [string trim [string range $line [expr $first + 1] end]]
|
|
} {
|
|
set info ""
|
|
}
|
|
set User($oldhandle) [lreplace $User($oldhandle) 5 5 $info]
|
|
} elseif {$handle == "--CONSOLE"} {
|
|
# console
|
|
set first [string first " " $line]
|
|
if {$first != -1} {
|
|
set console [string trim [string range $line [expr $first + 1] end]]
|
|
} {
|
|
set console ""
|
|
}
|
|
set User($oldhandle) [lreplace $User($oldhandle) 6 6 $console]
|
|
} elseif {$handle == "--XTRA"} {
|
|
# xtra field
|
|
set first [string first " " $line]
|
|
if {$first != -1} {
|
|
set xtraList [string trim [string range $line [expr $first + 1] end]]
|
|
} {
|
|
set xtraList ""
|
|
}
|
|
lappend Xtra($oldhandle) $xtraList
|
|
} elseif {$handle == "--LASTON"} {
|
|
# laston
|
|
set LastOn($oldhandle) [lindex $line 1]
|
|
} elseif {$handle == "--BOTFL"} {
|
|
# botflags
|
|
set Botflag($oldhandle) [string trim [string range $line 1 end]]
|
|
} else {
|
|
# begin of new user
|
|
scan $line "%s %s %s" handle dash attr
|
|
set User($handle) [list $attr {} {} {} {} {} {}]
|
|
set Hostmask($handle) {}
|
|
set Channel($handle) {}
|
|
set oldhandle $handle
|
|
}
|
|
}
|
|
}
|
|
return 1
|
|
}
|
|
|
|
proc saveUserFile fname {
|
|
global User Hostmask Channel Botflag LastOn BotAddr Xtra
|
|
if {[catch {set fd [open $fname w]}] != 0} { return 0 }
|
|
puts $fd "#4v: weed! now go away."
|
|
foreach i [array names User] {
|
|
set hmask "none"
|
|
set hmloop 0 ; set chloop 0 ; set loloop 0 ; set xloop 0 ; set aloop 0
|
|
if {[lindex $User($i) 1] == "bans"} {set plug "bans"} {set plug "-"}
|
|
set attr [lindex $User($i) 0]
|
|
set ts [lindex $User($i) 2]
|
|
puts $fd [format "%-9s %-20s %-24s" $i $plug $attr]
|
|
for {} {$hmloop < [llength $Hostmask($i)]} {incr hmloop} {
|
|
if {[string index $i 0] == "*" || [string range $i 0 1] == "::"} {
|
|
set hmask [lindex $Hostmask($i) $hmloop]
|
|
regsub -all {~} $hmask { } hmask
|
|
puts $fd "- $hmask"
|
|
} else {
|
|
puts $fd "--HOSTS [lindex $Hostmask($i) $hmloop]"
|
|
}
|
|
}
|
|
if {[info exists BotAddr($i)]} {
|
|
puts $fd "--BOTADDR [lindex $BotAddr($i) 0]"
|
|
}
|
|
if {[info exists Xtra($i)]} {
|
|
for {} {$xloop < [llength $Xtra($i)]} {incr xloop} {
|
|
puts $fd "--XTRA [lindex $Xtra($i) $xloop]"
|
|
}
|
|
}
|
|
if {[info exists Channel($i)]} {
|
|
for {} {$chloop < [llength $Channel($i)]} {incr chloop} {
|
|
puts $fd "! [lindex $Channel($i) $chloop]"
|
|
}
|
|
}
|
|
if {[info exists Botflag($i)]} {
|
|
if {$Botflag($i) != ""} { puts $fd "--BOTFL [lindex $Botflag($i) 0]" }
|
|
}
|
|
if {[string index $i 0] == "*" || [string range $i 0 1] == "::"} {
|
|
set User($i) [lreplace $User($i) 1 1 {}]
|
|
}
|
|
if {[lindex $User($i) 1] != {}} { puts $fd "--PASS [lindex $User($i) 1]" }
|
|
if {[lindex $User($i) 2] != {}} { puts $fd "--DCCDIR [lindex $User($i) 2]" }
|
|
if {[lindex $User($i) 3] != {}} { puts $fd "--XTRA EMAIL [lindex $User($i) 3]" }
|
|
if {[lindex $User($i) 4] != {}} { puts $fd "--COMMENT [lindex $User($i) 4]" }
|
|
if {[lindex $User($i) 5] != {}} { puts $fd "--INFO [lindex $User($i) 5]" }
|
|
if {[lindex $User($i) 6] != {}} { puts $fd "--CONSOLE [lindex $User($i) 6]" }
|
|
if {[info exists LastOn($i)]} {
|
|
puts $fd "--LASTON [lindex $LastOn($i) 0]"
|
|
}
|
|
}
|
|
close $fd
|
|
return 1
|
|
}
|
|
|
|
if {![loadUserFile $filename]} {
|
|
puts stdout "* Couldn't load userfile!\n"
|
|
exit
|
|
}
|
|
|
|
if {$convert == 0} {
|
|
puts stdout "Loaded. Weeding..."
|
|
puts stdout "(pwd = no pass, -o/-m = removed op/master, lrk = never seen, exp = expired)"
|
|
puts stdout "(uwc = unwanted channel)\n"
|
|
} else {
|
|
puts stdout "Loaded. Converting..."
|
|
}
|
|
|
|
set total 0
|
|
set weeded 0
|
|
foreach i [array names User] {
|
|
incr total
|
|
set attr [lindex $User($i) 0]
|
|
set chanattr [lindex [lindex $Channel($i) 0] 2]
|
|
if {([lsearch -exact $exempt $i] == -1) &&
|
|
([string range $i 0 1] != "::") &&
|
|
([string range $i 0 1] != "--") &&
|
|
(([string first o $attr] == -1) || (!$exemptops)) &&
|
|
(([string first m $attr] == -1) || (!$exemptmasters)) &&
|
|
(([string first f $attr] == -1) || (!$exemptfriends)) &&
|
|
(([string first p $attr] == -1) || (!$exemptparty)) &&
|
|
(([string first x $attr] == -1) || (!$exemptfile)) &&
|
|
(([string first t $attr] == -1) || (!$exemptbotm)) &&
|
|
(([string first f $chanattr] == -1) || (!$exemptchanf)) &&
|
|
(([string first m $chanattr] == -1) || (!$exemptchanm)) &&
|
|
(([string first n $chanattr] == -1) || (!$exemptchann)) &&
|
|
(([string first o $chanattr] == -1) || (!$exemptchano))} {
|
|
set pass [lindex $User($i) 1]
|
|
if {[info exists LastOn($i)]} { set ts [lindex $LastOn($i) 0] } { set ts 0 }
|
|
if {([string compare $pass "-"] == 0) && ([string first b $attr] == -1)} {
|
|
if {$weednopw == 1} {
|
|
unset User($i) ; incr weeded
|
|
puts -nonewline stdout "[format "pwd: %-10s " $i]"
|
|
} elseif {([string first o $attr] != -1) && ($weedops == 1)} {
|
|
unset User($i) ; incr weeded
|
|
puts -nonewline stdout "[format "pwd: %-10s " $i]"
|
|
} elseif {([string first m $attr] != -1) && ($weedmasters == 1)} {
|
|
unset User($i) ; incr weeded
|
|
puts -nonewline stdout "[format "pwd: %-10s " $i]"
|
|
}
|
|
if {([string first o $attr] != -1) && ($stripops == 1)} {
|
|
set nattr {}
|
|
for {set x 0} {$x < [string length $attr]} {incr x} {
|
|
if {[string index $attr $x] != "o"} {
|
|
set nattr [format "%s%s" $nattr [string index $attr $x]]
|
|
}
|
|
}
|
|
if {$nattr == {}} { set nattr "-" }
|
|
set User($i) [lreplace $User($i) 0 0 $nattr]
|
|
puts -nonewline stdout "[format " -o: %-10s " $i]"
|
|
}
|
|
if {([string first m $attr] != -1) && ($stripmasters == 1)} {
|
|
set nattr {}
|
|
for {set x 0} {$x < [string length $attr]} {incr x} {
|
|
if {[string index $attr $x] != "m"} {
|
|
set nattr [format "%s%s" $nattr [string index $attr $x]]
|
|
}
|
|
}
|
|
if {$nattr == {}} { set nattr "-" }
|
|
set User($i) [lreplace $User($i) 0 0 $nattr]
|
|
puts -nonewline stdout "[format " -m: %-10s " $i]"
|
|
}
|
|
}
|
|
if {($ts==0) && ($weedlurkers==1) && ([string first b $attr] == -1) && [info exists User($i)]} {
|
|
unset User($i) ; incr weeded
|
|
puts -nonewline stdout "[format "lrk: %-10s " $i]"
|
|
}
|
|
if {($ts > 0) && ($maxlast > 0) && ($CURRENT-$ts > $maxlast && [info exists User($i)])} {
|
|
unset User($i) ; incr weeded
|
|
puts -nonewline stdout "[format "exp: %-10s " $i]"
|
|
}
|
|
if {$chanrem != {} && [info exists Channel($i)]} {
|
|
foreach unchan $chanrem {
|
|
set id [lsearch [string tolower $Channel($i)] *$unchan*]
|
|
if {$id != -1} {
|
|
set Channel($i) [lreplace $Channel($i) $id $id] ; incr weeded
|
|
puts -nonewline stdout "[format "uwc: %-10s " $i]"
|
|
}
|
|
}
|
|
}
|
|
}
|
|
flush stdout
|
|
}
|
|
if {$weeded == 0 && $convert == 0} { puts -nonewline stdout "uNF... Nothing to weed!" }
|
|
puts stdout "\n"
|
|
|
|
foreach i [array names User] {
|
|
if {([string range $i 0 1] == "::") || ($i == "*ban")} {
|
|
for {set j 0} {$j < [llength $Hostmask($i)]} {incr j} {
|
|
set ban [split [lindex $Hostmask($i) $j] :]
|
|
if {[string range [lindex $ban 2] 0 0] == "+"} {
|
|
set lastused [lindex $ban 3]
|
|
if {($maxban > 0) && ($CURRENT-$lastused > $maxban)} {
|
|
if {$i == "*ban"} {
|
|
puts stdout "Expired ban: [lindex $ban 0]"
|
|
} {
|
|
puts stdout "Expired ban on [string range $i 2 end]: [lindex $ban 0]"
|
|
}
|
|
set Hostmask($i) [lreplace $Hostmask($i) $j $j]
|
|
incr j -1
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if {$i == "*ignore"} {
|
|
for {set j 0} {$j < [llength $Hostmask($i)]} {incr j} {
|
|
set ign [split [lindex $Hostmask($i) $j] :]
|
|
set lastused [lindex $ign 3]
|
|
if {($maxignore > 0) && ($CURRENT-$lastused > $maxignore)} {
|
|
puts stdout "Expired ignore: [lindex $ign 0]"
|
|
set Hostmask($i) [lreplace $Hostmask($i) $j $j]
|
|
incr j -1
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
puts stdout "\nFinished scan."
|
|
puts stdout "Original total ($total), new total ([expr $total-$weeded]), zapped ($weeded)"
|
|
|
|
if {![saveUserFile $filename.weed]} {
|
|
puts stdout "* uNF... Couldn't save new userfile!\n"
|
|
exit
|
|
}
|
|
puts stdout "Wrote $filename.weed"
|