/usr/share/epic5/lice5/lice/lice.kickban is in epic5-script-lice 1:5.3.0-1.
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 | #
# IRC Script Program. For use with ircii-EPIC5 clients.
# Copyright (C) 2000 SrfRoG (cag@codehack.com)
#
# ---------------------------------------------------------------------------
# All code by SrfRoG, unless specified. Visit https://lice.muppetz.com
# ---------------------------------------------------------------------------
# Updated for EPIC5 by tjh
IF (word(2 $loadinfo()) != [pf]) {
LOAD -pf $word(1 $loadinfo());
RETURN;
};
PACKAGE LiCe;
ALIAS _proc.kick_ban {
UNLESS (ischanop($N $C)) {
XECHO -B $ch($C)\: You're not channel operator.;
RETURN;
};
UNLESS (strlen($1)) {
//KICK;
RETURN;
};
IF (rmatch($1 *.* *!* *@* %\\* \\*%)) {
^LOCAL nick %;
@ :pat = uhc($1);
get_user_match $C $pat kick_list;
@ kick_list = remw($N $kick_list);
}{
@ :pat = onchannel($1 $C) ? makeban(B$0 $userhost($1)) : [$1!*@*];
^ASSIGN kick_list $1;
^LOCAL nick $1;
};
@ kick_msg = strlen($2) ? [$2-] : randread($main.reason_kick);
@ :serv = winserv();
_proc.ban $C $serv $pat $nick;
_proc.loop_kick $serv $C kick_list kick_msg;
IF ([$0]==[S]) {
ECHO $fmt.banner_kick() Ignoring all crap from $pat;
//^IGNORE $pat ALL CRAP -PUBLIC REASON "Kickban on $stime($time())";
@lice.set(|$hash_32bit($pat) $pat ALL CRAP -PUBLIC REASON "Kickban on $stime($time())");
};
};
ALIAS kb {_proc.kick_ban N $*};
ALIAS ka {_proc.kick_ban A $*};
ALIAS kh {_proc.kick_ban H $*};
ALIAS kf {_proc.kick_ban F $*};
ALIAS ku {_proc.kick_ban U $*};
ALIAS ki {_proc.kick_ban S $*};
ALIAS kbi {ki $*};
#tjh/15
|