-END
- my @output = `tail -20 /var/tmp/log`;
- foreach (@output) {
- print "$_";
- }
- print <
-
-END
- &Header::closebox();
- &Header::closebigbox();
- &Header::closepage();
- exit;
- refreshpage();
-}
-
&Header::openbox('100%', 'left', $Lang::tr{'intrusion detection system'});
print <
@@ -590,14 +567,33 @@ print <" );
- print " $Lang::tr{'pagerefresh'}";
- &Header::closebox();
+sub working ($) {
+ my $message = $_[0];
+
+ &Header::openpage($Lang::tr{'intrusion detection system'}, 1, '');
+ &Header::openbigbox('100%', 'left', '', $errormessage);
+ &Header::openbox( 'Waiting', 1, "" );
+ print <
+
+  |
+ $message |
+
+
+ |
+
+ |
+
+END
+ &Header::closebox();
+ &Header::closebigbox();
+ &Header::closepage();
+ exit;
}
sub downloadrulesfile {
|