]>
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 | |
1bd42c89 MT |
17 | use warnings; |
18 | use CGI::Carp 'fatalsToBrowser'; | |
3ea75603 | 19 | |
986e08d9 | 20 | require '/var/ipfire/general-functions.pl'; |
3ea75603 MT |
21 | require "${General::swroot}/lang.pl"; |
22 | require "${General::swroot}/header.pl"; | |
1bd42c89 | 23 | require "/opt/pakfire/lib/functions.pl"; |
3ea75603 MT |
24 | |
25 | my %pakfiresettings=(); | |
26 | my $errormessage = ''; | |
27 | ||
28 | &Header::showhttpheaders(); | |
29 | ||
30 | $pakfiresettings{'ACTION'} = ''; | |
31 | $pakfiresettings{'VALID'} = ''; | |
32 | ||
1bd42c89 MT |
33 | $pakfiresettings{'INSPAKS'} = ''; |
34 | $pakfiresettings{'DELPAKS'} = ''; | |
35 | $pakfiresettings{'AUTOUPDATE'} = ''; | |
3ea75603 MT |
36 | |
37 | &Header::getcgihash(\%pakfiresettings); | |
38 | ||
1bd42c89 MT |
39 | &Header::openpage($Lang::tr{'pakfire configuration'}, 1); |
40 | &Header::openbigbox('100%', 'left', '', $errormessage); | |
3ea75603 | 41 | |
1bd42c89 MT |
42 | if ($pakfiresettings{'ACTION'} eq 'install') |
43 | { | |
44 | my @inspaks = split(/\|/, "$pakfiresettings{'INSPAKS'}"); | |
45 | &General::writehash("${General::swroot}/pakfire/settings", \%pakfiresettings); | |
46 | my @deps = ""; | |
47 | foreach (@inspaks) { | |
48 | push(@deps, $_); | |
49 | my @add = split(/ /, `/usr/local/bin/pakfire resolvedeps $_`); | |
50 | foreach (@add) { push(@deps, $_); } | |
51 | } | |
52 | &Header::openbox("100%", "center", "Pakfire"); | |
53 |