]>
git.ipfire.org Git - people/teissler/ipfire-2.x.git/blob - html/cgi-bin/logs.cgi/config.dat
5 # This code is distributed under the terms of the GPL
9 # $Id: config.dat,v 1.2.2.10 2005/06/14 12:32:07 eoberlander Exp $
14 # enable only the following on debugging purpose
16 #use CGI::Carp 'fatalsToBrowser';
18 require '/var/ipfire/general-functions.pl';
19 require "${General::swroot}/lang.pl";
20 require "${General::swroot}/header.pl";
27 &Header
::showhttpheaders
();
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{'ENABLE_ASYNCLOG'} = 'off';
36 $logsettings{'REMOTELOG_ADDR'} = '';
37 $logsettings{'VARMESSAGES'} = 'cron.none;daemon.*;local0.*;local2.*;*.info;mail.none;authpriv.*';
38 $logsettings{'ACTION'} = '';
39 &Header
::getcgihash
(\
%logsettings);
41 if ($logsettings{'ACTION'} eq $Lang::tr
{'save'})
43 if ($logsettings{'ENABLE_REMOTELOG'} eq 'on')
45 unless ( &General
::validfqdn
($logsettings{'REMOTELOG_ADDR'}) ||
46 &General
::validip
($logsettings{'REMOTELOG_ADDR'}))
48 $errormessage = $Lang::tr
{'invalid logserver address'};
51 unless ($logsettings{'LOGWATCH_KEEP'} =~ /^\d+$/)
53 $errormessage = $Lang::tr
{'invalid keep time'};
55 unless ($logsettings{'LOGWATCH_LEVEL'} =~ /^Low|Med|High$/)
57 $errormessage = $Lang::tr
{'invalid input'};
59 unless ($errormessage)
61 &General
::writehash
("${General::swroot}/logging/settings", \
%logsettings);
62 system('/usr/local/bin/syslogdctrl') == 0
63 or $errormessage = "$Lang::tr{'bad return code'} " . $?
/256;
68 &General
::readhash
("${General::swroot}/logging/settings", \
%logsettings);
70 $checked{'ENABLE_ASYNCLOG'}{'off'} = '';
71 $checked{'ENABLE_ASYNCLOG'}{'on'} = '';
72 $checked{'ENABLE_ASYNCLOG'}{$logsettings{'ENABLE_ASYNCLOG'}} = "checked='checked'";
74 $checked{'ENABLE_REMOTELOG'}{'off'} = '';
75 $checked{'ENABLE_REMOTELOG'}{'on'} = '';
76 $checked{'ENABLE_REMOTELOG'}{$logsettings{'ENABLE_REMOTELOG'}} = "checked='checked'";
78 $checked{'LOGVIEW_REVERSE'}{'off'} = '';
79 $checked{'LOGVIEW_REVERSE'}{'on'} = '';
80 $checked{'LOGVIEW_REVERSE'}{$logsettings{'LOGVIEW_REVERSE'}} = "checked='checked'";
82 $selected{'LOGWATCH_LEVEL'}{'Low'} = '';
83 $selected{'LOGWATCH_LEVEL'}{'Med'} = '';
84 $selected{'LOGWATCH_LEVEL'}{'High'} = '';
85 $selected{'LOGWATCH_LEVEL'}{$logsettings{'LOGWATCH_LEVEL'}} = "selected='selected'";
87 map ($selected{'LOGVIEW_VIEWSIZE'}{$_} = '', @VS);
88 $selected{'LOGVIEW_VIEWSIZE'}{$logsettings{'LOGVIEW_VIEWSIZE'}} = "selected='selected'";
90 &Header
::openpage
($Lang::tr
{'log settings'}, 1, '');
92 &Header
::openbigbox
('100%', 'left', '', $errormessage);
95 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
96 print "<font class='base'>$errormessage </font>\n";
100 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
102 &Header
::openbox
('100%', 'left', $Lang::tr
{'log viewing options'});
106 <td><input type='checkbox' name='LOGVIEW_REVERSE' $checked{'LOGVIEW_REVERSE'}{'on'} /></td>
107 <td class='base' width='50%'>$Lang::tr{'reverse sort'}</td>
108 <td class='base' width='25%' align='right'>$Lang::tr{'log lines per page'}: </td>
109 <td width='25%'><select name='LOGVIEW_VIEWSIZE'>
112 foreach my $vs (@VS) {
113 print "\t<option value='$vs' $selected{'LOGVIEW_VIEWSIZE'}{$vs}>$vs</option>\n";
123 &Header
::openbox
('100%', 'left', $Lang::tr
{'log summaries'});
127 <td class='base' width='50%'>$Lang::tr{'summaries kept'}
128 <input type='text' name='LOGWATCH_KEEP'
129 value='$logsettings{'LOGWATCH_KEEP'}' size='4' /> $Lang::tr{'days'}</td>
130 <td>$Lang::tr{'detail level'}:</td><td>
131 <select name='LOGWATCH_LEVEL'>
132 <option value='Low' $selected{'LOGWATCH_LEVEL'}{'Low'}>$Lang::tr{'low'}</option>
133 <option value='Med' $selected{'LOGWATCH_LEVEL'}{'Med'}>$Lang::tr{'medium'}</option>
134 <option value='High' $selected{'LOGWATCH_LEVEL'}{'High'}>$Lang::tr{'high'}</option>
142 &Header
::openbox
('100%', 'left', $Lang::tr
{'remote logging'});
146 <td class='base'>$Lang::tr{'enabled'}</td><td><input type='checkbox' name='ENABLE_REMOTELOG' $checked{'ENABLE_REMOTELOG'}{'on'} /></td>
147 <td>$Lang::tr{'log server address'}</td><td><input type='text' name='REMOTELOG_ADDR' value='$logsettings{'REMOTELOG_ADDR'}' /></td>
154 &Header
::openbox
('100%', 'left', $Lang::tr
{'messages logging'});
158 <td class='base' colspan='2'><input type='checkbox' name='ENABLE_ASYNCLOG' $checked{'ENABLE_ASYNCLOG'}{'on'} />$Lang::tr{'Async logging enabled'}</td>
161 <td>$Lang::tr{'log var messages'}</td><td><input type='text' name='VARMESSAGES' size='50' value='$logsettings{'VARMESSAGES'}' /></td>
172 <td align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
181 &Header
::closebigbox
();
183 &Header
::closepage
();