| 23 |
|
$n = 50; |
| 24 |
|
} |
| 25 |
|
|
| 26 |
< |
unless ($n =~ /^[0-9]{1,4}$/) { |
| 26 |
> |
unless ($n =~ /^[0-9]{1,6}$/) { |
| 27 |
|
$n = 50; |
| 28 |
|
} |
| 29 |
|
|
| 52 |
|
|
| 53 |
|
<form method="GET" action="taillog.cgi"> |
| 54 |
|
<font size="+1"><b> |
| 55 |
< |
Last <input type="text" name="n" value="$n" size="4" maxlength="5"> lines |
| 55 |
> |
Last <input type="text" name="n" value="$n" size="5" maxlength="5"> lines |
| 56 |
|
of the server logfile. |
| 57 |
|
| grep </b><input type="text" name="grep" value="$grep" size="20" maxlength="40"> |
| 58 |
|
<input type="submit" value="Enter"> |
| 88 |
|
$encoded =~ s/</</g; |
| 89 |
|
$encoded =~ s/>/>/g; |
| 90 |
|
$encoded =~ s/^(.{0})(.*core\.loggers\..*: started)$/<hr size=10 color=blue>$2/; |
| 91 |
< |
$encoded =~ s/(.*)] (.*)}:(.*)/$1] <i>$2<\/i>:<b>$3<\/b>/; |
| 91 |
> |
$encoded =~ s/(.*)] (.*)}:(.*)/$1] <i>$2}<\/i>:<b>$3<\/b>/; |
| 92 |
|
return $encoded; |
| 93 |
|
} |
| 94 |
|
|
