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
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#!perl
#
# BEGIN COPYRIGHT BLOCK
# Copyright 2001 Sun Microsystems, Inc.
# Portions copyright 1999, 2001-2003 Netscape Communications Corporation.
# All rights reserved.
# END COPYRIGHT BLOCK
#
# view the last N lines of the given file
BEGIN {
# make stdout unbuffered for friendly CGI output
$| = 1;
# print CGI header
print "Content-type: text/plain\n\n";
# add the current directory to the beginning of the module
# search path (for our CGI.pm)
unshift @INC, '.';
}
my $dbfh; # debugging file handler
sub debug {
# comment out the return line to enable debugging
return;
if (!$dbfh) {
$dbfh = 'mylog.txt';
open $dbfh, ">$dbfh" or die "Error: could not write $dbfh: $!";
}
print $dbfh "@_\n";
}
sub sigDieHandler {
&debug(@_, "\n");
print @_, "\n";
&debug("NMC_STATUS: ", $!+0, "\n");
print "NMC_STATUS: ", $!+0, "\n";
exit $!;
}
sub rpt_err {
my ($code, $value) = @_;
$! = $code;
die "Error: value $value is invalid: code $code";
}
$SIG{__DIE__} = 'sigDieHandler';
my $DEF_SIZE = 25;
# constants from dsalib.h
my $DS_UNKNOWN_ERROR = -1;
my $DS_NO_SERVER_ROOT = -10;
my $DS_CANNOT_EXEC = -11;
my $DS_CANNOT_OPEN_STAT_FILE = -12;
my $DS_NULL_PARAMETER = -13;
my $DS_SERVER_MUST_BE_DOWN = -14;
my $DS_CANNOT_OPEN_BACKUP_FILE = -15;
my $DS_NOT_A_DIRECTORY = -16;
my $DS_CANNOT_CREATE_DIRECTORY = -17;
my $DS_CANNOT_OPEN_LDIF_FILE = -18;
my $DS_IS_A_DIRECTORY = -19;
my $DS_CANNOT_CREATE_FILE = -20;
my $DS_UNDEFINED_VARIABLE = -21;
my $DS_NO_SUCH_FILE = -22;
my $DS_CANNOT_DELETE_FILE = -23;
my $DS_UNKNOWN_SNMP_COMMAND = -24;
my $DS_NON_NUMERIC_VALUE = -25;
my $DS_NO_LOGFILE_NAME = -26;
my $DS_CANNOT_OPEN_LOG_FILE = -27;
my $DS_HAS_TOBE_READONLY_MODE = -28;
my $DS_INVALID_LDIF_FILE = -29;
# process the CGI input
use Cgi;
my $num = $cgiVars{num};
my $str = $cgiVars{str};
my $logfile = $cgiVars{logfile};
&debug("ENV:");
foreach $item (keys %ENV) {
&debug("ENV $item = $ENV{$item}");
}
&debug("query string = ", $Cgi::QUERY_STRING);
&debug("content = ", $CONTENT);
&debug("cgiVars = ", %cgiVars);
&debug("num = $num str = $str logfile = $logfile");
if (! $num) {
$num = $DEF_SIZE;
}
if (! ($num =~ /\d+/)) {
&rpt_err( $DS_NON_NUMERIC_VALUE, $num );
return 1;
}
if (! $logfile) {
&rpt_err( $DS_NO_LOGFILE_NAME, "no logfile");
}
if (! -f $logfile) {
&rpt_err( $DS_CANNOT_OPEN_LOG_FILE, $logfile);
}
open(INP, $logfile) or &rpt_err( $DS_CANNOT_OPEN_LOG_FILE, $logfile);
my $ii = 0;
my @buf = ();
while (<INP>) {
&debug("raw: $_");
if (!$str || /$str/i) {
$ii++;
$buf[$ii%$num] = $_;
}
}
close INP;
my @tail = (@buf[ ($ii%$num + 1) .. $#buf ],
@buf[ 0 .. $ii%$num ]);
&debug("tail size = ", scalar(@tail), " first line = $tail[0]");
for (@tail) {
print if $_; # @tail may begin or end with undef
&debug($_) if $_;
}
die "Finished";
|
