sarg/edit_log.cgi

   1 #!/usr/local/bin/perl
   2 # Show options for source log file
   3
   4 require './sarg-lib.pl';
   5
   6 $conf = &get_config();
   7 &ui_print_header(undef, $text{'log_title'}, "");
   8 print &ui_form_start("save_log.cgi", "post");
   9 print &ui_table_start($text{'log_header'}, "width=100%", 4);
  10 $config_prefix = "log_";
  11
  12 if (&foreign_check("squid")) {
  13         &foreign_require("squid", "squid-lib.pl");
  14         local $sconf = &squid::get_config();
  15         $squid_log = &squid::find_value("access_log", $sconf);
  16         if (-d $squid::config{'log_dir'}) {
  17                 $squid_log ||= "$squid::config{'log_dir'}/access.log";
  18                 }
  19         }
  20 $log = &find_value("access_log", $conf);
  21 $lmode = !$log ? 0 : $log eq $squid_log ? 1 : 2;
  22 $defstr = &find("access_log", $conf, 2);
  23 $def = $defstr && $defstr->{'value'} ? " ($defstr->{'value'})" : undef;
  24 print &ui_table_row($text{'log_access_log'},
  25                     &ui_radio("access_log_def", $lmode,
  26                               [ [ 0, $text{'default'}.$def."<br>" ],
  27                                 $squid_log ? ( [ 1, &text('log_squid', $squid_log)."<br>" ] ) : ( ),
  28                                 [ 2, $text{'log_other'} ] ])." ".
  29                     &ui_textbox("access_log", $lmode == 2 ? $log : "",
  30                                 40), 3);
  31 print &ui_hidden("squid_log", $squid_log);
  32
  33 print &config_opt_textbox($conf, "output_dir", 40, 3);
  34 print &config_opt_textbox($conf, "lastlog", 5, 3, $text{'log_unlimit'});
  35 print &config_opt_textbox($conf, "useragent_log", 40, 3);
  36 print &config_opt_textbox($conf, "squidguard_log_path", 40, 3);
  37
  38 print &config_opt_textbox($conf, "output_email", 30, 3,
  39                           $text{'log_nowhere'});
  40 print &config_opt_textbox($conf, "mail_utility", 15, 3,
  41                           $text{'default'}." (mailx)");
  42
  43 print &ui_table_end();
  44 print &ui_form_end([ [ 'save', $text{'save'} ] ], "100%");
  45 &ui_print_footer("", $text{'index_return'});
  46