]>
git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blob - html/cgi-bin/pakfire.cgi
83a0524c412b7c8826a485b267756579cefea702
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";
23 require "/opt/pakfire/lib/functions.pl";
25 my %pakfiresettings=();
26 my $errormessage = '';
28 &Header
::showhttpheaders
();
30 $pakfiresettings{'ACTION'} = '';
31 $pakfiresettings{'VALID'} = '';
33 $pakfiresettings{'INSPAKS'} = '';
34 $pakfiresettings{'DELPAKS'} = '';
35 $pakfiresettings{'AUTOUPDATE'} = '';
37 &Header
::getcgihash
(\
%pakfiresettings);
39 &Header
::openpage
($Lang::tr
{'pakfire configuration'}, 1);
40 &Header
::openbigbox
('100%', 'left', '', $errormessage);
42 if ($pakfiresettings{'ACTION'} eq 'install')
44 my @inspaks = split(/\|/, "$pakfiresettings{'INSPAKS'}");
45 &General
::writehash
("${General::swroot}/pakfire/settings", \
%pakfiresettings);
49 my @add = split(/ /, `/usr/local/bin/pakfire resolvedeps $_`);
50 foreach (@add) { push(@deps, $_); }
52 &Header
::openbox
("100%", "center", "Pakfire");
53 print "Wenn sie die Pakete @inspaks installieren wollen müssen sie auch folgende Pakete installieren: @deps";
57 elsif ($pakfiresettings{'ACTION'} eq 'remove')
59 $errormessage = "$pakfiresettings{'DELPAKS'}";
60 &General
::writehash
("${General::swroot}/pakfire/settings", \
%pakfiresettings);
61 } elsif ($pakfiresettings{'ACTION'} eq "$Lang::tr{'save'}")
63 &General
::writehash
("${General::swroot}/pakfire/settings", \
%pakfiresettings);
66 &General
::readhash
("${General::swroot}/pakfire/settings", \
%pakfiresettings);
72 $checked{'AUTOUPDATE'}{'off'} = '';
73 $checked{'AUTOUPDATE'}{'on'} = '';
74 $checked{'AUTOUPDATE'}{$pakfiresettings{'AUTOUPDATE'}} = "checked='checked'";
76 # DPC move error message to top so it is seen!
78 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
79 print "<font class='base'>$errormessage </font>\n";
83 &Header
::openbox
("100%", "center", "Pakfire");
87 <tr><td width='40%' align="center">Verfuegbare Addons:<br />
88 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
89 <select name="INSPAKS" size="10" multiple>
91 &Pakfire
::dblist
("notinstalled", "forweb");
96 <td width='20%' align="center">
97 <input type='hidden' name='ACTION' value='install' />
98 <input type='image' alt='$Lang::tr{'install'}' src='/images/list-add.png' />
101 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
102 <input type='submit' value='Liste aktualisieren' /><br />
105 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
106 <input type='hidden' name='ACTION' value='remove' />
107 <input type='image' alt='$Lang::tr{'remove'}' src='/images/list-remove.png' />
109 <td width='40%' align="center">Installierte Addons:<br />
110 <select name="DELPAKS" size="10" multiple>
111 <option value="postfix">Postfix v2.4.0-1</option>
115 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
117 <tr><td width='40%' align="right">Automatische Updates taeglich ausfuehren:
118 <td width='10%' align="left"><input type="checkbox" name="AUTOUPDATE" $checked{'AUTOUPDATE'}{'on'} />
119 <td width='40%' align="right">Test:
120 <td width='10%' align="left"><input type="checkbox" name="AUTOUPDATE" $checked{'AUTOUPDATE'}{'on'} />
121 <tr><td width='100%' colspan="4" align="right"><input type="submit" name="ACTION" value="$Lang::tr{'save'}" />
128 &Header
::closebigbox
();
130 &Header
::closepage
();