mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-09 18:45:54 +02:00
ac1cfefab2
git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@67 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
270 lines
7.8 KiB
Perl
270 lines
7.8 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# SmoothWall CGIs
|
|
#
|
|
# This code is distributed under the terms of the GPL
|
|
#
|
|
# (c) The SmoothWall Team
|
|
#
|
|
# $Id: updates.cgi,v 1.9.2.22 2005/12/01 20:41:53 franck78 Exp $
|
|
#
|
|
|
|
use LWP::UserAgent;
|
|
use File::Copy;
|
|
use strict;
|
|
|
|
# enable only the following on debugging purpose
|
|
#use warnings;
|
|
#use CGI::Carp 'fatalsToBrowser';
|
|
|
|
require 'CONFIG_ROOT/general-functions.pl';
|
|
require "${General::swroot}/lang.pl";
|
|
require "${General::swroot}/header.pl";
|
|
|
|
#workaround to suppress a warning when a variable is used only once
|
|
my @dummy = ( $General::version );
|
|
undef (@dummy);
|
|
my $warnmessage='';
|
|
my $errormessage='';
|
|
my @av=('');
|
|
my @pf=('');
|
|
|
|
&Header::showhttpheaders();
|
|
|
|
my %uploadsettings=();
|
|
$uploadsettings{'ACTION'} = '';
|
|
|
|
&Header::getcgihash(\%uploadsettings, {'wantfile' => 1, 'filevar' => 'FH'});
|
|
|
|
if ($uploadsettings{'ACTION'} eq $Lang::tr{'upload'}) {
|
|
# This code do not serve a lot because $General::version cannot change while the module is loaded. So no change
|
|
# can appear. More, this call should be called 'after' update is done !
|
|
# my $return = &downloadlist();
|
|
# if ($return && $return->is_success) {
|
|
# if (open(LIST, ">${General::swroot}/patches/available")){
|
|
# flock LIST, 2;
|
|
# my @this = split(/----START LIST----\n/,$return->content);
|
|
# print LIST $this[1];
|
|
# close(LIST);
|
|
# } else {
|
|
# $errormessage = $Lang::tr{'could not open available updates file'};
|
|
# }
|
|
# } else {
|
|
# if (open(LIST, "<${General::swroot}/patches/available")) {
|
|
# my @list = <LIST>;
|
|
# close(LIST);
|
|
# }
|
|
# $warnmessage = $Lang::tr{'could not download the available updates list'};
|
|
# }
|
|
|
|
|
|
if (copy ($uploadsettings{'FH'}, "/var/patches/patch-$$.tar.gz.gpg") != 1) {
|
|
$errormessage = $!;
|
|
} else {
|
|
my $exitcode = system("/usr/local/bin/installpackage $$ > /dev/null") >> 8;
|
|
if ($exitcode == 0) {
|
|
#Hack to get correct version displayed after update
|
|
open (XX,"perl -e \"require'${General::swroot}/general-functions.pl';print \\\$General::version\"|");
|
|
$General::version=<XX>;
|
|
close (XX);
|
|
&General::log("$Lang::tr{'the following update was successfully installed'} ($General::version)");
|
|
}
|
|
elsif($exitcode == 2) {
|
|
$errormessage = "$Lang::tr{'could not create directory'}";
|
|
}
|
|
elsif($exitcode == 3) {
|
|
$errormessage = "$Lang::tr{'this is not an authorised update'}";
|
|
}
|
|
elsif($exitcode == 4) {
|
|
$errormessage = "$Lang::tr{'this is not a valid archive'}";
|
|
}
|
|
elsif($exitcode == 5) {
|
|
$errormessage = "$Lang::tr{'could not open update information file'}";
|
|
}
|
|
elsif($exitcode == 6) {
|
|
$errormessage = "$Lang::tr{'could not open installed updates file'}";
|
|
}
|
|
elsif($exitcode == 7) {
|
|
$errormessage = "$Lang::tr{'this update is already installed'}";
|
|
}
|
|
elsif($exitcode == 11) {
|
|
$errormessage = "$Lang::tr{'not enough disk space'}";
|
|
} else {
|
|
$errormessage = "$Lang::tr{'package failed to install'}";
|
|
}
|
|
}
|
|
}
|
|
elsif ($uploadsettings{'ACTION'} eq $Lang::tr{'refresh update list'}) {
|
|
my $return = &downloadlist();
|
|
if ($return && $return->is_success) {
|
|
if (open(LIST, ">${General::swroot}/patches/available")) {
|
|
flock LIST, 2;
|
|
my @this = split(/----START LIST----\n/,$return->content);
|
|
print LIST $this[1];
|
|
close(LIST);
|
|
&General::log($Lang::tr{'successfully refreshed updates list'});
|
|
} else {
|
|
$errormessage = $Lang::tr{'could not open available updates file'};
|
|
}
|
|
} else {
|
|
$errormessage = $Lang::tr{'could not download the available updates list'};
|
|
}
|
|
}
|
|
elsif ($uploadsettings{'ACTION'} eq "$Lang::tr{'clear cache'} (squid)") {
|
|
system('/usr/local/bin/restartsquid','-f');
|
|
}
|
|
|
|
if (!open(AV, "<${General::swroot}/patches/available")) {
|
|
$errormessage = $Lang::tr{'could not open available updates file'};
|
|
} else {
|
|
@av = <AV>;
|
|
close(AV);
|
|
}
|
|
if (!open (PF, "<${General::swroot}/patches/installed")) {
|
|
$errormessage = $Lang::tr{'could not open installed updates file'};
|
|
} else {
|
|
@pf = <PF>;
|
|
close (PF);
|
|
#substract installed patch from list displayed (AV list may not be updated)
|
|
foreach my $P (@pf) {
|
|
$P =~ /^(...)/;
|
|
my $order=$1;
|
|
my $idx=0;
|
|
foreach my $A (@av) {
|
|
$A =~ /^(...)/;
|
|
if ($1 eq $order) { # match
|
|
splice (@av,$idx,1);
|
|
last;
|
|
}
|
|
$idx++;
|
|
}
|
|
}
|
|
}
|
|
|
|
&Header::openpage($Lang::tr{'updates'}, 1, '');
|
|
|
|
&Header::openbigbox('100%', 'left', 'download.png', $errormessage);
|
|
|
|
if ($errormessage) {
|
|
&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
|
|
print $errormessage;
|
|
print " ";
|
|
&Header::closebox();
|
|
}
|
|
|
|
if ($warnmessage) {
|
|
&Header::openbox('100%', 'LEFT', "$Lang::tr{'warning messages'}:");
|
|
print "<CLASS NAME='base'>$warnmessage \n";
|
|
print " </CLASS>\n";
|
|
&Header::closebox();
|
|
}
|
|
|
|
|
|
&Header::openbox('100%', 'left', $Lang::tr{'available updates'});
|
|
|
|
if ( defined $av[0] ) {
|
|
print $Lang::tr{'there are updates available'};
|
|
print qq|<table width='100%' border='0' cellpadding='2' cellspacing='0'>
|
|
<tr>
|
|
<td width='5%'><b>$Lang::tr{'id'}</b></td>
|
|
<td width='15%'><b>$Lang::tr{'title'}</b></td>
|
|
<td width='50%'><b>$Lang::tr{'description'}</b></td>
|
|
<td width='15%'><b>$Lang::tr{'released'}</b></td>
|
|
<td width='15%'> </td>
|
|
</tr>
|
|
|;
|
|
foreach (@av) {
|
|
my @temp = split(/\|/,$_);
|
|
print "<tr><td valign='top'>$temp[0]</td><td valign='top'>$temp[1]</td><td valign='top'>$temp[2]</td><td valign='top'>$temp[3]</td><td valign='top'><a href='$temp[4]' target='_new'>$Lang::tr{'info'}</a></td></tr>";
|
|
}
|
|
print "</table>";
|
|
|
|
|
|
} else {
|
|
print $Lang::tr{'all updates installed'};
|
|
}
|
|
|
|
print qq|<hr /><br>
|
|
$Lang::tr{'to install an update'}
|
|
<br />
|
|
<form method='post' action='/cgi-bin/updates.cgi' enctype='multipart/form-data'>
|
|
<table>
|
|
<tr>
|
|
<td align='right' class='base'>
|
|
<b>$Lang::tr{'upload update file'}</b></td>
|
|
<td><input type="file" size='40' name="FH" /> <input type='submit' name='ACTION' value='$Lang::tr{'upload'}' />
|
|
</td></tr>
|
|
</table>|;
|
|
|
|
print "<b>$Lang::tr{'disk usage'}</b>";
|
|
open (XX,'df -h / /var/log|');
|
|
my @df=<XX>;
|
|
close (XX);
|
|
print "<table cellpadding='2'>";
|
|
map ( $_ =~ s/ +/<td>/g,@df); # tablify each line!
|
|
print "<tr><td>$df[0]</tr>";
|
|
print "<tr><td>$df[1]</tr>";
|
|
print "<tr><td>$df[2]<td><input type='submit' name='ACTION' value='$Lang::tr{'clear cache'} (squid)' /></tr>";
|
|
print "</table>";
|
|
|
|
print "\n<hr />";
|
|
print "\n<table width='100%'>\n<tr>";
|
|
print "\n\t<td width='50%'> </td>";
|
|
print "\n\t<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'refresh update list'}' /></td></tr>";
|
|
print "\n</table>\n";
|
|
print "</form>";
|
|
|
|
&Header::closebox();
|
|
|
|
&Header::openbox('100%', 'LEFT', $Lang::tr{'installed updates'});
|
|
|
|
print qq|<table width='100%' border='0' cellpadding='2' cellspacing='0'>
|
|
<tr>
|
|
<td width='5%'><b>$Lang::tr{'id'}</b></td>
|
|
<td width='15%'><b>$Lang::tr{'title'}</b></td>
|
|
<td width='50%'><b>$Lang::tr{'description'}</b></td>
|
|
<td width='15%'><b>$Lang::tr{'released'}</b></td>
|
|
<td width='15%'><b>$Lang::tr{'installed'}</b></td>
|
|
</tr>
|
|
|;
|
|
|
|
foreach my $pf (@pf) {
|
|
next if $pf =~ m/^#/;
|
|
my @temp = split(/\|/,$pf);
|
|
#??? @av = grep(!/^$temp[0]/, @av);
|
|
print "<tr><td valign='top'>" . join("</td><td valign='top'>",@temp) . "</td></tr>";
|
|
}
|
|
close(PF);
|
|
|
|
print "</table>";
|
|
|
|
&Header::closebox();
|
|
|
|
&Header::closebigbox();
|
|
|
|
&Header::closepage();
|
|
|
|
sub downloadlist {
|
|
unless (-e "${General::swroot}/red/active") {
|
|
return 0;
|
|
}
|
|
|
|
my $downloader = LWP::UserAgent->new;
|
|
$downloader->timeout(5);
|
|
|
|
my %proxysettings=();
|
|
&General::readhash("${General::swroot}/proxy/settings", \%proxysettings);
|
|
|
|
if ($_=$proxysettings{'UPSTREAM_PROXY'}) {
|
|
my ($peer, $peerport) = (/^(?:[a-zA-Z ]+\:\/\/)?(?:[A-Za-z0-9\_\.\-]*?(?:\:[A-Za-z0-9\_\.\-]*?)?\@)?([a-zA-Z0-9\.\_\-]*?)(?:\:([0-9]{1,5}))?(?:\/.*?)?$/);
|
|
if ($proxysettings{'UPSTREAM_USER'}) {
|
|
$downloader->proxy("http","http://$proxysettings{'UPSTREAM_USER'}:$proxysettings{'UPSTREAM_PASSWORD'}@"."$peer:$peerport/");
|
|
} else {
|
|
$downloader->proxy("http","http://$peer:$peerport/");
|
|
}
|
|
}
|
|
|
|
return $downloader->get("http://www.ipcop.org/patches/${General::version}", 'Cache-Control', 'no-cache');
|
|
|
|
}
|