]>
Commit | Line | Data |
---|---|---|
3ea75603 MT |
1 | #!/usr/bin/perl |
2 | # | |
78331e30 | 3 | # IPFire CGIs |
3ea75603 | 4 | # |
78331e30 | 5 | # This file is part of the IPFire Project |
3ea75603 MT |
6 | # |
7 | # This code is distributed under the terms of the GPL | |
8 | # | |
9 | # (c) Eric Oberlander June 2002 | |
10 | # | |
11 | # (c) Darren Critchley June 2003 - added real time clock setting, etc | |
12 | # | |
13 | ||
14 | use strict; | |
15 | ||
16 | # enable only the following on debugging purpose | |
17 | #use warnings; | |
18 | #use CGI::Carp 'fatalsToBrowser'; | |
19 | ||
986e08d9 | 20 | require '/var/ipfire/general-functions.pl'; |
3ea75603 MT |
21 | require "${General::swroot}/lang.pl"; |
22 | require "${General::swroot}/header.pl"; | |
23 | ||
24 | my %pakfiresettings=(); | |
25 | my $errormessage = ''; | |
26 | ||
27 | &Header::showhttpheaders(); | |
28 | ||
29 | $pakfiresettings{'ACTION'} = ''; | |
30 | $pakfiresettings{'VALID'} = ''; | |
31 | ||
32 | $pakfiresettings{'INSTALLED'} = ''; | |
33 | $pakfiresettings{'AVAIL'} = ''; | |
34 | $pakfiresettings{'AUTOUPD'} = ''; | |
35 | ||
36 | &Header::getcgihash(\%pakfiresettings); | |
37 | ||
38 | if ($pakfiresettings{'ACTION'} eq $Lang::tr{'save'}) | |
39 | { | |
40 | ||
41 | } | |
42 | ||
43 | &General::readhash("${General::swroot}/pakfire/settings", \%pakfiresettings); | |
44 | ||
45 | ||
46 | my %selected=(); | |
47 | my %checked=(); | |
48 | ||
49 | $checked{'AUTOUPD'}{'off'} = ''; | |
50 | $checked{'AUTOUPD'}{'on'} = ''; | |
51 | $checked{'AUTOUPD'}{$pakfiresettings{'AUTOUPD'}} = "checked='checked'"; | |
52 | ||
986e08d9 | 53 | &Header::openpage($Lang::tr{'pakfire configuration'}, 1); |
3ea75603 MT |
54 | |
55 | &Header::openbigbox('100%', 'left', '', $errormessage); | |
56 | ||
57 | # DPC move error message to top so it is seen! | |
58 | if ($errormessage) { | |
59 | &Header::openbox('100%', 'left', $Lang::tr{'error messages'}); | |
60 | print "<font class='base'>$errormessage </font>\n"; | |
61 | &Header::closebox(); | |
62 | } | |
63 | ||
3ea75603 MT |
64 | &Header::closebox(); |
65 | ||
3ea75603 MT |
66 | &Header::closebigbox(); |
67 | ||
68 | &Header::closepage(); | |
69 |