webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-27 11:13:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Pakfire CGI ein bisl erweitert, Index CGI um die DIAL CGI erweitert -> Funktion testen, PPOE Timeout Seconds erweitert

Browse Source 
git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@600 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
maniacikarus
2007-06-01 21:29:25 +00:00
parent fd5c306475
commit 957363eb4c
7 changed files with 70 additions and 341 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
html/cgi-bin/pakfire.cgi
View File

@@ -24,6 +24,8 @@ require "/opt/pakfire/lib/functions.pl";
my %pakfiresettings=();
my $errormessage = '';
my @instlist = `ls /opt/pakfire/cache`;
my $uninstall = 'yes';
&Header::showhttpheaders();
@@ -39,25 +41,19 @@ $pakfiresettings{'AUTOUPDATE'} = '';
&Header::openpage($Lang::tr{'pakfire configuration'}, 1);
&Header::openbigbox('100%', 'left', '', $errormessage);
if ($pakfiresettings{'ACTION'} eq 'install')
{
my @inspaks = split(/\|/, "$pakfiresettings{'INSPAKS'}");
&General::writehash("${General::swroot}/pakfire/settings", \%pakfiresettings);
my @deps = "";
foreach (@inspaks) {
push(@deps, $_);
my @add = split(/ /, `/usr/local/bin/pakfire resolvedeps $_`);
foreach (@add) { push(@deps, $_); }
}
&Header::openbox("100%", "center", "Pakfire");
print "Wenn sie die Pakete @inspaks installieren wollen m<>ssen sie auch folgende Pakete installieren: @deps";
&Header::closebox();
exit 0;
if ($pakfiresettings{'ACTION'} eq 'install'){
print "Going to install $pakfiresettings{'INSPAKS'}";
system("/opt/pakfire/pakfire installi $pakfiresettings{'INSPAKS'}")
}elsif ($pakfiresettings{'ACTION'} eq 'remove'){
foreach (@instlist){
my @pakname = split(/-/,$_);
my $dependency = `grep "Dependencies.*$pakfiresettings{'DELPAKS'}" /opt/pakfire/db/meta/*$pakname[0]`;
if ($dependency){$errormessage = "We have depending Paket $pakname[0] nothing will be done.<br />";$uninstall='no';last;}else{$uninstall='yes';}
}
if ($uninstall eq 'yes'){
print "Going to uninstall $pakfiresettings{'DELPAKS'}";
system("/opt/pakfire/pakfire uninstalli $pakfiresettings{'DELPAKS'}")
}
elsif ($pakfiresettings{'ACTION'} eq 'remove')
{
$errormessage = "$pakfiresettings{'DELPAKS'}";
&General::writehash("${General::swroot}/pakfire/settings", \%pakfiresettings);
} elsif ($pakfiresettings{'ACTION'} eq "$Lang::tr{'save'}")
{
&General::writehash("${General::swroot}/pakfire/settings", \%pakfiresettings);
@@ -65,7 +61,6 @@ elsif ($pakfiresettings{'ACTION'} eq 'remove')
&General::readhash("${General::swroot}/pakfire/settings", \%pakfiresettings);
my %selected=();
my %checked=();
@@ -108,7 +103,12 @@ print <<END;
</td>
<td width='40%' align="center">Installierte Addons:<br />
<select name="DELPAKS" size="10" multiple>
<option value="postfix">Postfix v2.4.0-1</option>
END
foreach (@instlist){
my @pakname = split(/-/,$_);
print "<option value='$pakname[0]'>$pakname[0]</option>";
}
print <<END;
</select>
</table></form>
<br /><hr /><br />
@@ -124,8 +124,5 @@ print <<END;
END
&Header::closebox();
&Header::closebigbox();
&Header::closepage();