]>
git.ipfire.org Git - ipfire-2.x.git/blob - html/cgi-bin/pakfire.cgi
5 # This file is part of the IPFire Project
7 # This code is distributed under the terms of the GPL
9 # (c) Eric Oberlander June 2002
11 # (c) Darren Critchley June 2003 - added real time clock setting, etc
16 # enable only the following on debugging purpose
18 #use CGI::Carp 'fatalsToBrowser';
20 require '/var/ipfire/general-functions.pl';
21 require "${General::swroot}/lang.pl";
22 require "${General::swroot}/header.pl";
24 my %pakfiresettings=();
25 my $errormessage = '';
27 &Header
::showhttpheaders
();
29 $pakfiresettings{'ACTION'} = '';
30 $pakfiresettings{'VALID'} = '';
32 $pakfiresettings{'INSTALLED'} = '';
33 $pakfiresettings{'AVAIL'} = '';
34 $pakfiresettings{'AUTOUPD'} = '';
36 &Header
::getcgihash
(\
%pakfiresettings);
38 if ($pakfiresettings{'ACTION'} eq $Lang::tr
{'save'})
43 &General
::readhash
("${General::swroot}/pakfire/settings", \
%pakfiresettings);
49 $checked{'AUTOUPD'}{'off'} = '';
50 $checked{'AUTOUPD'}{'on'} = '';
51 $checked{'AUTOUPD'}{$pakfiresettings{'AUTOUPD'}} = "checked='checked'";
53 &Header
::openpage
($Lang::tr
{'pakfire configuration'}, 1);
55 &Header
::openbigbox
('100%', 'left', '', $errormessage);
57 # DPC move error message to top so it is seen!
59 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
60 print "<font class='base'>$errormessage </font>\n";
64 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
66 &Header
::openbox
('100%', 'left', $Lang::tr
{'network pakfire'});
70 <td><input type='checkbox' name='ENABLENTP' $checked{'ENABLENTP'}{'on'} /></td>
71 <td width='100%' colspan='4' class='base'>$Lang::tr{'network pakfire from'}</td>
75 <td width='100%' class='base' colspan='4'>
86 <td width='30%'><img src='/blob.gif' alt='*' /> $Lang::tr{'this field may be blank'}</td>
87 <td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
88 <td width='33%' align='right'>
89 <a href='${General::adminmanualurl}/services.html#services_pakfire' target='_blank'><img src='/images/web-support.png' title='$Lang::tr{'online help en'}' /></a>
100 &Header
::closebigbox
();
102 &Header
::closepage
();