/usr/share/epic5/lice5/lice/lice.pager 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 | #
# 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
# Works a treat.
IF (word(2 $loadinfo()) != [pf]) {
LOAD -pf $word(1 $loadinfo());
RETURN;
};
PACKAGE LiCe;
# Proper pager alias - tjh - May 2012
ALIAS pager {
UNLESS (@) {
uecho Usage: /PAGER <file>;
RETURN;
};
IF (fexist($0) == -1) {
XECHO -B File not found: $0;
RETURN;
};
_proc.disp_file $open($0 R);
};
# Written by tjh.
ALIAS _proc.disp_file (file) {
@ :lines = (word(1 $geom()) - 5);
IF (lines < 1) {@ :lines = 1};
IF (!eof($file)) {
WHILE ((lines > 0) && !eof($file)) {
ECHO $read($file);
@ --lines;
};
@ fd = file;
IF (!eof($file)) {
INPUT_CHAR "[Press any key, q to quit]" {
IF ([$0] != [q]) {
_proc.disp_file $fd;
}{
@ close($fd);
};
};
};
}{
@ close($fd);
};
};
#tjh/14
|