+++ /dev/null
-#!/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');
-
-}
projects / people / pmueller / ipfire-2.x.git / blobdiff