]>
git.ipfire.org Git - people/teissler/ipfire-2.x.git/blob - html/cgi-bin/pakfire.cgi
2c0d7dc0dc41aa2aed018bcdd6753b8eef14d465
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 = '';
27 my @instlist = `ls /opt/pakfire/cache`;
28 my $uninstall = 'yes';
30 &Header
::showhttpheaders
();
32 $pakfiresettings{'ACTION'} = '';
33 $pakfiresettings{'VALID'} = '';
35 $pakfiresettings{'INSPAKS'} = '';
36 $pakfiresettings{'DELPAKS'} = '';
37 $pakfiresettings{'AUTOUPDATE'} = '';
39 &Header
::getcgihash
(\
%pakfiresettings);
41 &Header
::openpage
($Lang::tr
{'pakfire configuration'}, 1);
42 &Header
::openbigbox
('100%', 'left', '', $errormessage);
44 if ($pakfiresettings{'ACTION'} eq 'install'){
45 print "Going to install $pakfiresettings{'INSPAKS'}";
46 system("/opt/pakfire/pakfire installi $pakfiresettings{'INSPAKS'}")
47 }elsif ($pakfiresettings{'ACTION'} eq 'remove'){
49 my @pakname = split(/-/,$_);
50 my $dependency = `grep "Dependencies.*$pakfiresettings{'DELPAKS'}" /opt/pakfire/db/meta/*$pakname[0]`;
51 if ($dependency){$errormessage = "We have depending Paket $pakname[0] nothing will be done.<br />";$uninstall='no';last;}else{$uninstall='yes';}
53 if ($uninstall eq 'yes'){
54 print "Going to uninstall $pakfiresettings{'DELPAKS'}";
55 system("/opt/pakfire/pakfire uninstalli $pakfiresettings{'DELPAKS'}")
57 } elsif ($pakfiresettings{'ACTION'} eq "$Lang::tr{'save'}")
59 &General
::writehash
("${General::swroot}/pakfire/settings", \
%pakfiresettings);
62 &General
::readhash
("${General::swroot}/pakfire/settings", \
%pakfiresettings);
67 $checked{'AUTOUPDATE'}{'off'} = '';
68 $checked{'AUTOUPDATE'}{'on'} = '';
69 $checked{'AUTOUPDATE'}{$pakfiresettings{'AUTOUPDATE'}} = "checked='checked'";
71 # DPC move error message to top so it is seen!
73 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
74 print "<font class='base'>$errormessage </font>\n";
78 &Header
::openbox
("100%", "center", "Pakfire");
82 <tr><td width='40%' align="center">Verfuegbare Addons:<br />
83 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
84 <select name="INSPAKS" size="10" multiple>
86 &Pakfire
::dblist
("notinstalled", "forweb");
91 <td width='20%' align="center">
92 <input type='hidden' name='ACTION' value='install' />
93 <input type='image' alt='$Lang::tr{'install'}' src='/images/list-add.png' />
96 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
97 <input type='submit' value='Liste aktualisieren' /><br />
100 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
101 <input type='hidden' name='ACTION' value='remove' />
102 <input type='image' alt='$Lang::tr{'remove'}' src='/images/list-remove.png' />
104 <td width='40%' align="center">Installierte Addons:<br />
105 <select name="DELPAKS" size="10" multiple>
108 my @pakname = split(/-/,$_);
109 print "<option value='$pakname[0]'>$pakname[0]</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'}" />
127 &Header
::closebigbox
();
128 &Header
::closepage
();