itsecur-firewall/list_logs.cgi

   1 #!/usr/bin/perl
   2 # list_logs.cgi
   3 # Real-time view of a log file
   4
   5 require './itsecur-lib.pl';
   6 &can_use_error("logs");
   7 $theme_no_table++;
   8 $| = 1;
   9 &header($text{'logs_title'}, "");
  10 print "<hr>\n";
  11
  12 $log = $config{'log'} || &get_log_file();
  13 print "<b>",&text('logs_viewing', "<tt>$log</tt>"),"</b><p>\n";
  14 print "<applet code=LogViewer width=90% height=70%>\n";
  15 print "<param name=url value='tail.cgi'>\n";
  16 print "<param name=pause value=1>\n";
  17 print "<param name=buttonlink value=download.cgi>\n";
  18 print "<param name=buttonname value='$text{'logs_download'}'>\n";
  19 if ($session_id) {
  20         print "<param name=session value=\"sid=$session_id\">\n";
  21         }
  22 print "</applet>\n";
  23 print "</form>\n";
  24
  25 print "<hr>\n";
  26 &footer("", $text{'index_return'});
  27