html/cgi-bin/logs.cgi/config.dat

   1 #!/usr/bin/perl
   2 #
   3 # IPFire CGIs
   4 #
   5 # This code is distributed under the terms of the GPL
   6 #
   7 # (c) The IPFire Team
   8 #
   9 # $Id: config.dat,v 1.2.2.10 2005/06/14 12:32:07 eoberlander Exp $
  10 #
  11
  12 use strict;
  13
  14 # enable only the following on debugging purpose
  15 #use warnings;
  16 #use CGI::Carp 'fatalsToBrowser';
  17
  18 require '/var/ipfire/general-functions.pl';
  19 require "${General::swroot}/lang.pl";
  20 require "${General::swroot}/header.pl";
  21
  22 my %logsettings=();
  23 my %checked=();
  24 my %selected=();
  25 my $errormessage='';
  26
  27 &Header::showhttpheaders();
  28
  29 $logsettings{'LOGVIEW_REVERSE'} = 'off';
  30 $logsettings{'LOGVIEW_VIEWSIZE'} = '150';
  31 $logsettings{'LOGWATCH_LEVEL'} = 'Low';
  32 $logsettings{'LOGWATCH_KEEP'} = '56';
  33 my @VS = ('15','50','100','150','250','500');
  34 $logsettings{'ENABLE_REMOTELOG'} = 'off';
  35 $logsettings{'REMOTELOG_ADDR'} = '';
  36 $logsettings{'VARMESSAGES'} = 'daemon.*;local0.*;local2.*;*.info;mail.none;authpriv.*';
  37 $logsettings{'ACTION'} = '';
  38 &Header::getcgihash(\%logsettings);
  39
  40 if ($logsettings{'ACTION'} eq $Lang::tr{'save'})
  41 {
  42   if ($logsettings{'ENABLE_REMOTELOG'} eq 'on')
  43   {
  44     unless ( &General::validfqdn($logsettings{'REMOTELOG_ADDR'}) ||
  45              &General::validip  ($logsettings{'REMOTELOG_ADDR'}))
  46     {
  47       $errormessage = $Lang::tr{'invalid logserver address'};
  48     }
  49   }
  50   unless ($logsettings{'LOGWATCH_KEEP'} =~ /^\d+$/)
  51   {
  52     $errormessage = $Lang::tr{'invalid keep time'};
  53   }
  54   unless ($logsettings{'LOGWATCH_LEVEL'} =~ /^Low|Med|High$/)
  55   {
  56     $errormessage = $Lang::tr{'invalid input'};
  57   }
  58   unless ($errormessage)
  59   {
  60     &General::writehash("${General::swroot}/logging/settings", \%logsettings);
  61     system('/usr/local/bin/restartsyslogd') == 0
  62       or $errormessage = "$Lang::tr{'bad return code'} " . $?/256;
  63   }
  64
  65 }
  66
  67 &General::readhash("${General::swroot}/logging/settings", \%logsettings);
  68
  69 $checked{'ENABLE_REMOTELOG'}{'off'} = '';
  70 $checked{'ENABLE_REMOTELOG'}{'on'} = '';
  71 $checked{'ENABLE_REMOTELOG'}{$logsettings{'ENABLE_REMOTELOG'}} = "checked='checked'";
  72
  73 $checked{'LOGVIEW_REVERSE'}{'off'} = '';
  74 $checked{'LOGVIEW_REVERSE'}{'on'} = '';
  75 $checked{'LOGVIEW_REVERSE'}{$logsettings{'LOGVIEW_REVERSE'}} = "checked='checked'";
  76
  77 $selected{'LOGWATCH_LEVEL'}{'Low'} = '';
  78 $selected{'LOGWATCH_LEVEL'}{'Med'} = '';
  79 $selected{'LOGWATCH_LEVEL'}{'High'} = '';
  80 $selected{'LOGWATCH_LEVEL'}{$logsettings{'LOGWATCH_LEVEL'}} = "selected='selected'";
  81
  82 map ($selected{'LOGVIEW_VIEWSIZE'}{$_} = '', @VS);
  83 $selected{'LOGVIEW_VIEWSIZE'}{$logsettings{'LOGVIEW_VIEWSIZE'}} = "selected='selected'";
  84
  85 &Header::openpage($Lang::tr{'log settings'}, 1, '');
  86
  87 &Header::openbigbox('100%', 'left', '', $errormessage);
  88
  89 if ($errormessage) {
  90   &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
  91   print "<font class='base'>$errormessage&nbsp;</font>\n";
  92   &Header::closebox();
  93 }
  94
  95 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
  96
  97 &Header::openbox('100%', 'left', $Lang::tr{'log viewing options'});
  98 print <<END
  99 <table width='100%'>
 100 <tr>
 101         <td><input type='checkbox' name='LOGVIEW_REVERSE' $checked{'LOGVIEW_REVERSE'}{'on'} /></td>
 102         <td class='base' width='50%'>$Lang::tr{'reverse sort'}</td>
 103         <td class='base' width='25%' align='right'>$Lang::tr{'log lines per page'}:&nbsp;</td>
 104         <td width='25%'><select name='LOGVIEW_VIEWSIZE'>
 105 END
 106 ;
 107 foreach my $vs (@VS) {
 108     print "\t<option value='$vs' $selected{'LOGVIEW_VIEWSIZE'}{$vs}>$vs</option>\n";
 109 }
 110 print <<END
 111         </select></td>
 112 </tr>
 113 </table>
 114 END
 115 ;
 116 &Header::closebox();
 117
 118 &Header::openbox('100%', 'left', $Lang::tr{'log summaries'});
 119 print <<END
 120 <table width='100%'>
 121 <tr>
 122   <td class='base' width='50%'>$Lang::tr{'summaries kept'}&nbsp;
 123   <input type='text' name='LOGWATCH_KEEP'
 124   value='$logsettings{'LOGWATCH_KEEP'}' size='4' />&nbsp;$Lang::tr{'days'}</td>
 125   <td>$Lang::tr{'detail level'}:</td><td>
 126   <select name='LOGWATCH_LEVEL'>
 127   <option value='Low' $selected{'LOGWATCH_LEVEL'}{'Low'}>$Lang::tr{'low'}</option>
 128   <option value='Med' $selected{'LOGWATCH_LEVEL'}{'Med'}>$Lang::tr{'medium'}</option>
 129   <option value='High' $selected{'LOGWATCH_LEVEL'}{'High'}>$Lang::tr{'high'}</option>
 130   </select></td>
 131 </tr>
 132 </table>
 133 END
 134 ;
 135 &Header::closebox();
 136
 137 &Header::openbox('100%', 'left', $Lang::tr{'remote logging'});
 138 print <<END
 139 <table width='100%'>
 140 <tr>
 141   <td class='base'>$Lang::tr{'enabled'}</td><td><input type='checkbox' name='ENABLE_REMOTELOG' $checked{'ENABLE_REMOTELOG'}{'on'} /></td>
 142   <td>$Lang::tr{'log server address'}</td><td><input type='text' name='REMOTELOG_ADDR' value='$logsettings{'REMOTELOG_ADDR'}' /></td>
 143 </tr>
 144 </table>
 145 END
 146 ;
 147 &Header::closebox();
 148
 149 &Header::openbox('100%', 'left', $Lang::tr{'messages logging'});
 150 print <<END
 151 <table width='100%'>
 152 <tr>
 153   <td>$Lang::tr{'log var messages'}</td><td><input type='text' name='VARMESSAGES' size='50' value='$logsettings{'VARMESSAGES'}' /></td>
 154 </tr>
 155 </table>
 156 END
 157 ;
 158 &Header::closebox();
 159
 160 print <<END
 161 <div align='center'>
 162 <table width='60%'>
 163 <tr>
 164   <td align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
 165 </tr>
 166 </table>
 167 </div>
 168 END
 169 ;
 170
 171 print "</form>\n";
 172
 173 &Header::closebigbox();
 174
 175 &Header::closepage();