]>
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";
66 &Header
::closebigbox
();