/usr/share/epic5/lice5/lice/lice.et 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 | #
# IRC Script Program. For use with ircii-EPIC5 clients.
# Copyright (C) 2000 SrfRoG (cag@codehack.com)
#
# ---------------------------------------------------------------------------
# lice.et written by tjh for LiCe5 for EPIC5. tjh - tim@muppetz.com
# https://lice.muppetz.com - LiCe5+
# ---------------------------------------------------------------------------
#
IF (word(2 $loadinfo()) != [pf]) {
LOAD -pf $word(1 $loadinfo());
RETURN;
};
PACKAGE LiCe;
ALIAS et {
IF (!windowctl(GET 0 CHANNELS)) {
XECHO -B You're not on a channel in this window.;
}{
IF (!ischanop($servernick() $C)) {
XECHO -B $C: You're not channel operator;
}{
^PARSEKEY ERASE_LINE;
@ topic = ischannel($0) ? afterw($0 $chan_topic[$chanwin($0)$hash_32bit($0)]) : afterw($C $chan_topic[$chanwin($C)$hash_32bit($C)]);
@ lchan = ischannel($0) ? *0 : C;
INPUT "Topic: "
IF ((@) && [$*] != [$topic]) {
TOPIC $lchan $*;
};
XTYPE -literal $topic;
}
};
};
};
#tjh/15
|