/usr/share/epic5/lice5/lice/lice.help is in epic5-script-lice 1:5.2.7-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 | #
# IRC Script Program. For use with ircii-EPIC5 clients.
# Copyright (C) 2000 SrfRoG (cag@codehack.com)
#
# ---------------------------------------------------------------------------
# lice.help written by tjh for LiCe5 for EPIC5. tjh - tim@muppetz.com
# http://lice.muppetz.com - LiCe5
# ---------------------------------------------------------------------------
#
IF (word(2 $loadinfo()) != [pf]) {
LOAD -pf $word(1 $loadinfo());
RETURN;
};
PACKAGE LiCe;
ALIAS help (topic, topic2, path) {
@ :temp.current_pwd = PWD;
^CD $LiCePath/help/;
IF (!path) {@ path = LiCePath ## [/help/]};
@ isdir = 0;
# Old /help functionality.
IF (topic2 && (topic2 != 1)) {
@ topic = LiCePath ## [/help/$topic/];
help $topic2 1 $topic;
RETURN;
};
IF (topic) {
@ topic = tolower($topic);
@ file = [$path$topic];
@ cpath = path;
IF (left(1 $word(2 $stat("$file"))) == 4) {
@ isdir = 1;
@ newpath = LiCePath ## [/help/$topic/];
^CD $newpath;
IF (fexist($newpath$topic) == 1) {_proc.disp_file $open($newpath$topic R);};
echo.recursive $glob(*);
# XECHO;
INPUT "Topic? " {
IF (@) {
IF (fexist($newpath$0) != -1) {
help $0 1 $newpath;
}{
uecho No such help topic;
};
};
};
};
IF (fexist($file) == -1) {uecho No such help topic;RETURN;};
IF (isdir == 0) {
_proc.disp_file $open($file R);
};
}{
_proc.disp_file $open($LiCePath/help/index R);
INPUT "Topic? " {
IF (@) {help $tolower($0)};
};
};
^CD $temp.current_pwd;
};
#tjh/11
#tjbh/13
|