/usr/share/epic4/script/deban is in epic4 1:2.10.6-1build3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | /*
* ban removers, 1993, 1997
* This script requires ircII-EPIC4.
*/
# returns non-0 if $0 matches or is matched by $1-, 0 if not.
alias comatch @ function_return = match($*) || rmatch($*)
alias deban_mode
{
fe ($*) bx by bz {
@ :moder = bz?[-bbb]:by?[-bb]:bx?[-b]:[]
if (moder) {
mode * $moder $bx $by $bz
}
}
}
# remove all bans on current channel
alias deban uniban *
# remove all bans that could cover nickname
alias unban uniban $0!$uh($0)
# remove all bans matching or matched by pattern
alias uniban
{
^local unbanlist
^local p $0
stack push on 367
stack push on 368
^on ^367 * {
bless
if (comatch($2 $p))
{ push unbanlist $2 }
}
^on ^368 * {
bless
stack pop on 367
stack pop on 368
deban_mode $unbanlist
}
^mode ${[$1]?[$1]:C} +b
wait
}
# remove all bans that contain a literal text substring
alias nban
{
local unbanlist
local p $0
stack push on 367
stack push on 368
^on ^367 * {
bless
if (rmatch($2 *$p*))
{ push unbanlist $2 }
}
^on ^368 * {
bless
stack pop on 367
stack pop on 368
deban_mode $unbanlist
}
^mode ${[$1]?[$1]:C} +b
wait
}
#hop'93
|