/usr/share/epic5/lice5/lice/lice.note 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 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 | #
# 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;
@ mkdir($lice.save_path/notes);
# help
ALIAS _proc.note_help {
uecho Usage: /NOTE -dup <from> <to>;
uecho Usage: /NOTE -get <nick1 [nick2 ... nicks]>;
uecho Usage: /NOTE -get <channel1 [channel2 ... channels]>;
uecho Usage: /NOTE -set <nick|channel> <notes...>;
uecho Usage: /NOTE -rem <nick|channel [...] | *>;
};
# this sets a note in our file.
ALIAS _proc.note_set {
IF (strlen($1)) {
@ :ns.fn = [$lice.save_path/notes/] ## encode($tolower($0));
@ :ns.fd = open($ns.fn W);
IF (write($ns.fd $1-) > 0) { XECHO -B Note: "$0" $1- };
@ close($ns.fd);
}{
_proc.note_help;
};
};
# duplicate a note
ALIAS _proc.note_dup {
IF (strlen($1)) {
@ :nd.f = [$lice.save_path/notes/] ## encode($tolower($0));
IF (fexist($nd.f) == 1) {
@ :nd.t = [$lice.save_path/notes/] ## encode($tolower($1));
^EXEC -name note_dup cp $nd.f $nd.t;
WAIT %note_dup;
XECHO -B Duplicated notes for '$0' to '$1';
}{
XECHO -B No notes found for '$0';
};
}{
_proc.note_help;
};
};
# this gets a previous note
ALIAS _proc.note_get {
FE ($*) ng.1 {
@ :ng.fn = [$lice.save_path/notes/] ## encode($tolower($ng.1));
IF (fexist($ng.fn) == 1) {
@ :ng.fd = open($ng.fn R);
@ :ng.str = read($ng.fd);
WHILE (ng.str) {
iecho Note $ng.1\: $ng.str;
@ :ng.str = read($ng.fd);
};
@ close($ng.fd);
};
};
};
ALIAS _proc.note_wget {
FE ($*) ng.1 {
@ :ng.fn = [$lice.save_path/notes/] ## encode($tolower($ng.1));
IF (fexist($ng.fn) == 1) {
@ :ng.fd = open($ng.fn R);
@ :ng.str = read($ng.fd);
WHILE (ng.str) {
ECHO $fmt.whois_mid(Notes $ng.str);
@ :ng.str = read($ng.fd);
};
@ close($ng.fd);
};
};
};
# remove note
ALIAS _proc.note_rem {
IF ([$0]==[*]) {
@ :nr.fn = glob($lice.save_path/notes/*);
@ unlink($nr.fn);
XECHO -B Removed all notes;
}{
FE ($*) nr.1 {
@ :nr.fn = [$lice.save_path/notes/] ## encode($tolower($nr.1));
UNLESS (unlink($nr.fn)) {
XECHO -B Failed to remove notes for \"$nr.1\";
}{
XECHO -B Removed notes for \"$nr.1\";
};
};
};
};
# user command
ALIAS note {
UNLESS (@) { _proc.note_help; RETURN};
SWITCH ($0) {
(-upd) { _proc.note_dup $1 $2 };
(-get) { _proc.note_get $1- };
(-rem) { _proc.note_rem $1- };
(-set) { _proc.note_set $1- };
(*) { XECHO -B Invalid option};
};
};
#tjh/12
|