/usr/share/epic5/lice5/lice/lice.boot 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 | #
# 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;
# BOOT - Multiple channel kickban
ALIAS boot {
UNLESS (@) {
uecho Usage: /BOOT <nick>;
RETURN;
};
@ :nick = [$0];
@ :kmsg = strlen($1) ? [$1-] : randread($main.reason_kick);
@ :serv = winserv();
@ :patt = mask(0 $get_uh($nick));
FE ($mychannels()) chan {
UNLESS (ischanop($N $chan) && onchannel($nick $chan)) {CONTINUE};
_proc.ban $chan $serv $patt $nick;
_proc.quote_add $serv KICK $chan $nick :$kmsg;
};
_proc.quote_flush $serv;
};
#tjh/15
|