#!/usr/bin/perl
-#
-# IPFire CGI's - backup.cgi: manage import/export of configuration files
-#
-# This code is distributed under the terms of the GPL
-#
-# (c) The IPFire Team
-# 2005 Franck Bourdonnec, major rewrite
-#
-# $Id: backup.cgi,v 1.2.2.15 2006/01/29 15:31:49 eoberlander Exp $
-#
-#
-
-
-# to fully troubleshot your code, uncomment diagnostics, Carp and cluck lines
-# use diagnostics; # need to add the file /usr/lib/perl5/5.8.x/pods/perldiag.pod before to work
-# next look at /var/log/httpd/error_log , http://www.perl.com/pub/a/2002/05/07/mod_perl.html may help
-#use warnings;
+###############################################################################
+# #
+# IPFire.org - A linux based firewall #
+# Copyright (C) 2005-2010 IPFire Team #
+# #
+# This program is free software: you can redistribute it and/or modify #
+# it under the terms of the GNU General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or #
+# (at your option) any later version. #
+# #
+# This program is distributed in the hope that it will be useful, #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+# GNU General Public License for more details. #
+# #
+# You should have received a copy of the GNU General Public License #
+# along with this program. If not, see <http://www.gnu.org/licenses/>. #
+# #
+###############################################################################
+
use strict;
-#use Carp ();
-#local $SIG{__WARN__} = \&Carp::cluck;
+# enable only the following on debugging purpose
+#use warnings;
+#use CGI::Carp 'fatalsToBrowser';
use File::Copy;
-use Sys::Hostname;
-require 'CONFIG_ROOT/general-functions.pl';
+require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";
-my $errormessage = '';
-my $warnmessage = '';
-my $setdir = '/home/httpd/html/backup'; # location where sets are stored and imported
-my $datafile = hostname() . '.dat'; # file containing data backup
-my $datefile = $datafile . '.time'; # and creation date
-
-# ask if backup crypting key exists
-my $tmpkeyfile = "$setdir/key"; # import the backup key
-
-# Get GUI values
-my %settings = ();
-&Header::getcgihash(\%settings, {'wantfile' => 1, 'filevar' => 'FH'});
-
-##
-## Backup key management
-##
-
-#
-# Export the key. root pw is required to avoid user 'noboby' uses the helper to read it and creates
-# fake backup.
-#
-if ($settings{'ACTION'} eq $Lang::tr{'backup export key'}) {
-
- my $size = 0;
- if ($settings{'PASSWORD1'} ne '' && $settings{'PASSWORD1'} ne $settings{'PASSWORD2'} ){
- $errormessage = $Lang::tr{'passwords do not match'}
- } else {
- my @lines = `/usr/local/bin/ipfirebackup -keycat $settings{'PASSWORD'}`;
- # If previous operation succeded and the key need to be crypted, redo operation with pipe to openssl
- if (@lines && $settings{'PASSWORD1'}) {
- @lines = `/usr/local/bin/ipfirebackup -keycat $settings{'PASSWORD'}|openssl enc -a -e -aes256 -salt -pass pass:$settings{'PASSWORD1'} `;
- }
- if (@lines) {
- use bytes;
- foreach (@lines) {$size += length($_)};
- print "Pragma: no-cache\n";
- print "Cache-control: no-cache\n";
- print "Connection: close\n";
- print "Content-type: application/octet-stream\n";
- print "Content-Disposition: filename=backup.key\n";
- print "Content-Length: $size\n\n";
- print @lines;
- exit (0);
- } else {
- $errormessage = $Lang::tr{'incorrect password'};
- }
- }
-}
-#
-# Import the key. Fail if key exists. This avoid creating fake backup.
-#
-if ($settings{'ACTION'} eq $Lang::tr{'backup import key'}) {
- if (ref ($settings{'FH'}) ne 'Fh') {
- $errormessage = $Lang::tr{'no cfg upload'};
- } else {
- if (copy ($settings{'FH'}, $tmpkeyfile) != 1) {
- $errormessage = $Lang::tr{'save error'};
- } else {
- # if a password is given, decrypt the key received in $tmpkeyfile file with it.
- # no error is produce if the password is wrong.
- if ($settings{'PASSWORD1'}) {
- my @lines = `openssl enc -a -d -aes256 -salt -pass pass:$settings{'PASSWORD1'} -in $tmpkeyfile`;
- open(FILE,">$tmpkeyfile");
- print FILE @lines;
- close (FILE);
- }
- $errormessage = &get_bk_error(system ('/usr/local/bin/ipfirebackup -key import')>>8);
- }
- }
-}
-#
-# Import the key. Fail if key exists. Key is extracted from a non-encrypted backup (pre 1.4.10)
-#
-if ($settings{'ACTION'} eq $Lang::tr{'backup extract key'}) {
- if (ref ($settings{'FH'}) ne 'Fh') {
- $errormessage = $Lang::tr{'no cfg upload'};
- } else {
- if (copy ($settings{'FH'}, '/tmp/tmptarfile.tgz') != 1) {
- $errormessage = $Lang::tr{'save error'};
- } else {
- system( "tar -C /tmp -xzf /tmp/tmptarfile.tgz */backup/backup.key;\
- mv -f /tmp${General::swroot}/backup/backup.key $tmpkeyfile;\
- rm -rf /tmp${General::swroot};\
- rm /tmp/tmptarfile.tgz");
- $errormessage = &get_bk_error(system ('/usr/local/bin/ipfirebackup -key import')>>8);
- }
- }
-}
-#
-# Create the key. Cannot overwrite existing key to avoid difference with exported (saved) key
-#
-if ($settings{'ACTION'} eq $Lang::tr{'backup generate key'}) {
- $errormessage = &get_bk_error(system('/usr/local/bin/ipfirebackup -key new')>>8);
-}
+my %color = ();
+my %mainsettings = ();
+my %cgiparams=();
+my %checked = ();
+my $message = "";
+my $errormessage = "";
+my @backups = "";
+my @backupisos = "";
-my $cryptkeymissing = system ('/usr/local/bin/ipfirebackup -key exist')>>8;
+$a = new CGI;
-&Header::showhttpheaders();
-if ($cryptkeymissing) { #If no key is present, force creation or import
- &Header::openpage($Lang::tr{'backup configuration'}, 1, '');
- &Header::openbigbox('100%', 'left', '', $errormessage);
- if ($errormessage) {
- &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
- print "<font class='base'>$errormessage </font>";
- &Header::closebox();
- }
- &Header::openbox('100%', 'left', $Lang::tr{'backup key'});
- print <<END
- <form method = 'post' enctype = 'multipart/form-data'>
- <table>
- <tr>
- <td colspan='2'>
- $Lang::tr{'backup explain key'}:
- <ul>
- <li>$Lang::tr{'backup explain key li1'}
- <li>$Lang::tr{'backup explain key li2'}
- <li>$Lang::tr{'backup explain key li3'}
- </ul>
- </td>
- </tr><tr>
- <td width='15%'></td><td width='20%'></td><td>
- <input type = 'submit' name = 'ACTION' value = '$Lang::tr{'backup generate key'}' />
- </td>
- </tr><tr>
- <td align='right'>$Lang::tr{'backup key file'}:</td><td><input type = 'file' name = 'FH' size = '30' value='backup.key' />
- </td><td>
- <input type = 'submit' name = 'ACTION' value = '$Lang::tr{'backup import key'}' />
- </tr><tr>
- <td align='right'>$Lang::tr{'backup protect key password'}:<td><input type = 'password' name='PASSWORD1' size='10' />
- </td>
- </tr><tr>
- <td align='right'>$Lang::tr{'backup clear archive'}:</td><td><input type = 'file' name = 'FH' size = '30' value='your-ipfire.tar.gz' />
- </td><td>
- <input type = 'submit' name = 'ACTION' value = '$Lang::tr{'backup extract key'}' />
- </td>
- </tr>
- </table>
- $Lang::tr{'notes'}:
- <ul>
- <li>$Lang::tr{'backup explain key no1'}
- <li>$Lang::tr{'backup explain key no2'}
- </ul>
- </form>
-END
-;
- &floppybox();
- &Header::closebox();
- &Header::closebigbox();
- &Header::closepage();
- exit (0);
-}
+&General::readhash("${General::swroot}/main/settings", \%mainsettings);
+&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
+
+$cgiparams{'ACTION'} = '';
+$cgiparams{'FILE'} = '';
+$cgiparams{'UPLOAD'} = '';
+$cgiparams{'BACKUPLOGS'} = '';
+
+&Header::getcgihash(\%cgiparams);
+
+############################################################################################################################
+################################################ Workaround for Directories ################################################
-##
-## Sets management (create/delete/import/restore)
-##
+system("/usr/local/bin/backupctrl makedirs >/dev/null 2>&1 ") unless ( -e '/var/ipfire/backup/addons/backup') ;
-erase_files ($setdir); #clean up
+############################################################################################################################
+############################################## System calls ohne Http Header ###############################################
-#
-# create new archive set
-#
-if ($settings{'ACTION'} eq $Lang::tr{'create'}) {
- $errormessage = &get_bk_error(system('/usr/local/bin/ipfirebkcfg > /dev/null')>>8);
- &import_set (" ".&Header::cleanhtml ($settings{'COMMENT'})) if (!$errormessage);
+# Replace slashes from filename
+$cgiparams{'FILE'} =~ s/\///;
+
+if ( $cgiparams{'ACTION'} eq "download" )
+{
+ open(DLFILE, "</var/ipfire/backup/$cgiparams{'FILE'}") or die "Unable to open $cgiparams{'FILE'}: $!";
+ my @fileholder = <DLFILE>;
+ print "Content-Type:application/x-download\n";
+ print "Content-Disposition:attachment;filename=$cgiparams{'FILE'}\n\n";
+ print @fileholder;
+ exit (0);
}
-#
-# delete a backup set
-#
-if ($settings{'ACTION'} eq $Lang::tr{'remove'}) {
- erase_files (&Header::cleanhtml ($settings{'KEY'})); # remove files
- rmdir($settings{'KEY'}); # remove directory
+if ( $cgiparams{'ACTION'} eq "downloadiso" )
+{
+ open(DLFILE, "</var/tmp/backupiso/$cgiparams{'FILE'}") or die "Unable to open $cgiparams{'FILE'}: $!";
+ my @fileholder = <DLFILE>;
+ print "Content-Type:application/x-download\n";
+ print "Content-Disposition:attachment;filename=$cgiparams{'FILE'}\n\n";
+ print @fileholder;
+ exit (0);
}
-#
-# import an archive set
-#
-if ($settings{'ACTION'} eq $Lang::tr{'import'}) {
- if (ref ($settings{'FH'}) ne 'Fh') {
- $errormessage = $Lang::tr{'no cfg upload'};
- } else {
- if (!copy ($settings{'FH'}, "$setdir/$datafile")) {
- $errormessage = $Lang::tr{'save error'};
- } else {
- &import_set (' (imported)');
- }
- }
+if ( $cgiparams{'ACTION'} eq "downloadaddon" )
+{
+ open(DLFILE, "</var/ipfire/backup/addons/backup/$cgiparams{'FILE'}") or die "Unable to open $cgiparams{'FILE'}: $!";
+ my @fileholder = <DLFILE>;
+ print "Content-Type:application/x-download\n";
+ print "Content-Disposition:attachment;filename=$cgiparams{'FILE'}\n\n";
+ print @fileholder;
+ exit (0);
}
-#
-# restore an archive
-#
-if ($settings{'ACTION'} eq $Lang::tr{'restore'}) {
- if ($settings{'AreYouSure'} eq 'yes') {
- if (!$cryptkeymissing) { # if keyfile exists
- if (-e "$settings{'KEY'}/$datafile"){ # encrypted dat is required
- copy_files($settings{'KEY'}, $setdir); # to working dir
- $errormessage = get_rs_error(system("/usr/local/bin/ipfirerscfg"
- . ($settings{'RESTOREHW'} eq 'on' ? ' --hardware' : '')
- . ' >/dev/null')>>8);
- if (!$errormessage) {
- # restored ok, recommend restarting system
- $warnmessage = $Lang::tr{'cfg restart'};
+elsif ( $cgiparams{'ACTION'} eq "restore" )
+{
+ my $upload = $a->param("UPLOAD");
+ open UPLOADFILE, ">/tmp/restore.ipf";
+ binmode $upload;
+ while ( <$upload> ) {
+ print UPLOADFILE;
}
- erase_files ($setdir); #clean up
- } else {
- $errormessage = $Lang::tr{'missing dat'}."$settings{'KEY'}/$datafile";
- }
- } else { # if keyfile does not exist
- $errormessage = $Lang::tr{'backup missing key'};
- }
-
- } else { # not AreYouSure=yes
- &Header::openpage($Lang::tr{'backup configuration'}, 1, '');
- &Header::openbigbox('100%', 'left');
- &Header::openbox('100%', 'left', $Lang::tr{'are you sure'});
- print <<END
-<form method = 'post'>
- <input type = 'hidden' name = 'KEY' value ='$settings{'KEY'}' />
- <input type = 'hidden' name = 'AreYouSure' value ='yes' />
- <table align = 'center'>
- <tr>
- <td align = 'center'>
- <input type = 'submit' name = 'ACTION' value = '$Lang::tr{'restore'}' />
- </td><td>
- <input type = 'submit' name = 'ACTION' value = '$Lang::tr{'cancel'}' />
- </td>
- </tr><tr>
- <td>
- $Lang::tr{'restore hardware settings'}: <input type = 'checkbox' name = 'RESTOREHW'>
- </td>
- </tr>
-</table>
-</form>
-END
-;
- &Header::closebox();
- &Header::closebigbox();
- &Header::closepage();
- exit (0);
- }
+ close UPLOADFILE;
+ system("/usr/local/bin/backupctrl restore >/dev/null 2>&1");
}
-##
-## Media management
-##
-#
-# now build the list of removable device
-#
-
-# Read partitions sizes registered with the system
-my %partitions;
-foreach my $li (`/usr/local/bin/ipfirebackup -proc partitions`) { # use suid helper...
- # partitions{'sda1'} = 128M if /major minor blocks name/
- $partitions{$4} = &kmgt($3*1024,4) if ($li =~ /(\d+) +(\d+) +(\d+) +(.*)/);
+elsif ( $cgiparams{'ACTION'} eq "restoreaddon" )
+{
+ chomp($cgiparams{'UPLOAD'});
+ # we need to fix cause IE7 gives the full path and FF only the filename
+ my @temp = split(/\\/,$cgiparams{'UPLOAD'});
+ my $upload = $a->param("UPLOAD");
+ open UPLOADFILE, ">/tmp/".$temp[$#temp];
+ binmode $upload;
+ while ( <$upload> ) {
+ print UPLOADFILE;
+ }
+ close UPLOADFILE;
+ system("/usr/local/bin/backupctrl restoreaddon ".$temp[$#temp]." >/dev/null 2>&1");
}
-# Search usb-storage scsi device
-my %medias;
-
-foreach (`/usr/local/bin/ipfirebackup -glob '/proc/scsi/usb-storage*/*'`) {# use suid helper...
- my $m;
- foreach ( `cat $_` ) { # list each line of information for the device:
-# Host scsi0: usb-storage
-# Vendor: SWISSBIT
-# Product: Black Silver
-# Serial Number: D0ED423A4F84A31E
-# Protocol: Transparent SCSI
-# Transport: Bulk
-# GUID: 13706828d0ed423a4f84a31e
-# Attached: Yes
-
- chomp;
- my ($key,$val) = split(': ',$_,2);
- $key =~ s/^ *//; # remove front space
-
- # convert 'scsi?' key to sda, sdb,... and use it as a %medias keyhash
- if ($key =~ /Host scsi(.)/) {
- $val = $m = 'sd' . chr(97+$1);
- $key = 'Host';
+&Header::showhttpheaders();
+
+sub refreshpage{&Header::openbox( 'Waiting', 1, "<meta http-equiv='refresh' content='1;'>" );print "<center><img src='/images/clock.gif' alt='' /><br/><font color='red'>$Lang::tr{'pagerefresh'}</font></center>";&Header::closebox();}
+
+&Header::openpage($Lang::tr{'backup'}, 1, "");
+&Header::openbigbox('100%', 'left', '', $errormessage);
+
+############################################################################################################################
+################################################### Default System calls ###################################################
+
+if ( $cgiparams{'ACTION'} eq "backup" )
+{
+ if ( $cgiparams{'BACKUPLOGS'} eq "include" ) {
+ system("/usr/local/bin/backupctrl include >/dev/null 2>&1");
+ } elsif ( $cgiparams{'BACKUPLOGS'} eq "exclude" ) {
+ system("/usr/local/bin/backupctrl exclude >/dev/null 2>&1");
+ } elsif ( $cgiparams{'BACKUPLOGS'} eq "iso" ) {
+ system("/usr/local/bin/backupctrl iso >/dev/null 2>&1");
}
- $medias{$m}{$key} = $val; # save data
- }
}
-
-#
-# Switch mounted media
-#
-if ($settings{'ACTION'} eq $Lang::tr{'mount'})
+if ( $cgiparams{'ACTION'} eq "addonbackup" )
{
- # Find what is really mounted under backup. Can be local hard disk or any removable media
- my $mounted = &findmounted();
- #umount previous, even if same device already mouted.
- system ("/usr/local/bin/ipfirebackup -U $mounted") if ($mounted ne $Lang::tr{'local hard disk'});
- $errormessage = `/usr/local/bin/ipfirebackup -M $settings{'SELECT'}` if (grep (/$settings{'SELECT'}/,%partitions));
+ system("/usr/local/bin/backupctrl addonbackup $cgiparams{'ADDON'} >/dev/null 2>&1");
}
-#
-# Compute a full description of device
-#
-my $mounted = &findmounted();
-my $media_des = $mounted; # Description
-if ($mounted ne $Lang::tr{'local hard disk'}) {
- $_ = $mounted; # sda1 => sda
- tr/0-9//d;
- $media_des = "$medias{$_}{'Product'} ($media_des, $partitions{$mounted})";
+elsif ( $cgiparams{'ACTION'} eq "delete" )
+{
+ system("/usr/local/bin/backupctrl $cgiparams{'FILE'} >/dev/null 2>&1");
}
-&Header::openpage($Lang::tr{'backup configuration'}, 1, '');
-&Header::openbigbox('100%', 'left', '', $errormessage);
-if ($errormessage) {
- &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
- print "<font class='base'>$errormessage </font>";
- &Header::closebox();
+############################################################################################################################
+############################################ Backups des Systems erstellen #################################################
+
+if ( $message ne "" ){
+ &Header::openbox('100%','left',$Lang::tr{'error messages'});
+ print "<font color='red'>$message</font>\n";
+ &Header::closebox();
}
-$warnmessage = "<font color=${Header::colourred}><b>$Lang::tr{'capswarning'}</b></font>: $warnmessage <p>" if ($warnmessage);
+if ( -e "/var/ipfire/backup/" ){
+ @backups = `cd /var/ipfire/backup/ && ls *.ipf 2>/dev/null`;
+}
-&Header::openbox('100%', 'left', $Lang::tr{'backup configuration'});
+if ( -e "/var/tmp/backupiso/" ){
+ @backupisos = `cd /var/tmp/backupiso/ && ls *.iso 2>/dev/null`;
+}
-#Divide the window in two : left and right
-print <<END
- <table width = '100%' >
- <tr>
- <th width = '50%'>$Lang::tr{'current media'}:<font color=${Header::colourred}><b>$media_des</b></font></th>
- <th width = '3%'></th>
- <th>$Lang::tr{'choose media'}</th>
- </tr>
-END
-;
+&Header::openbox('100%', 'center', $Lang::tr{'backup'});
-# Left part of window
print <<END
- <tr><td>
- <ul>
- <li>$Lang::tr{'backup sets'}:
- <table width = '80%' border='0'>
- <tr>
- <th class = 'boldbase' align = 'center'>$Lang::tr{'name'}</th>
- <th class = 'boldbase' align = 'center' colspan = '3'>$Lang::tr{'action'}</th>
- </tr>
+<form method='post' action='$ENV{'SCRIPT_NAME'}'>
+<table width='95%' cellspacing='0'>
+<tr>
+ <td align='left' width='40%'>$Lang::tr{'logs'}</td>
+ <td align='left'>
+ <input type='radio' name='BACKUPLOGS' value='include'/> $Lang::tr{'include logfiles'}<br/>
+ <input type='radio' name='BACKUPLOGS' value='exclude' checked='checked'/> $Lang::tr{'exclude logfiles'}<br/>
+ <input type='radio' name='BACKUPLOGS' value='iso' /> $Lang::tr{'generate iso'}
+ </td>
+</tr>
+<tr><td align='center' colspan='2'>
+ <input type='hidden' name='ACTION' value='backup' />
+ <input type='image' alt='$Lang::tr{'backup'}' title='$Lang::tr{'backup'}' src='/images/document-save.png' />
+</td></tr>
+</table>
+</form>
END
;
+&Header::closebox();
-# get list of available sets by globbing directories under $setdir
-# External device (usk key) are mounted in $setdir. -R permits finding sets in hierarchy.
-my $i = 0;
-foreach my $set (`ls -Rt1 $setdir`) {
- chop ($set); #remove ':' & newline from line
- chop ($set);
- if (-d $set && ($set =~ m!/.+/\d{8}_\d{6}! ) ) { # filter out things not sets !
- if ($i++ % 2) {
- print "<tr bgcolor = '$Header::table2colour'>";
- } else {
- print "<tr bgcolor = '$Header::table1colour'>";
- }
- my $settime = read_timefile( "$set/$datefile", "$set/$datafile" );
- my $name = substr ($set,length($setdir)+1);
- print<<EOF
-<td>
- $settime
-</td>
-
-<td align = 'center'>
-<form method = 'post'>
-<input type = 'hidden' name = 'ACTION' value ='$Lang::tr{'restore'}' />
-<input type = 'image' name = '$Lang::tr{'restore'}' src = '/images/reload.gif' alt = '$Lang::tr{'restore'}' title = '$Lang::tr{'restore'}' />
-<input type = 'hidden' name = 'KEY' value = '$set' />
-</form>
-</td>
+############################################################################################################################
+############################################ Backups des Systems downloaden ################################################
-<td align = 'center'>
-<a href = '/backup/$name/$datafile'><img src = '/images/floppy.gif' title = '$Lang::tr{'export'}'></a>
-</td>
+&Header::openbox('100%', 'center', $Lang::tr{'backups'});
-<td align = 'center'>
-<form method = 'post'>
-<input type = 'hidden' name = 'ACTION' value = '$Lang::tr{'remove'}' />
-<input type = 'image' name = '$Lang::tr{'remove'}' src = '/images/delete.gif' alt = '$Lang::tr{'remove'}' title = '$Lang::tr{'remove'}' border = '0' />
-<input type = 'hidden' name = 'KEY' value = '$set' />
-</form>
-</td>
-</tr>
-EOF
+print <<END
+<table width='95%' cellspacing='0'>
+END
;
- }
+foreach (@backups){
+if ( $_ !~ /ipf$/){next;}
+chomp($_);
+my $Datei = "/var/ipfire/backup/".$_;
+my @Info = stat($Datei);
+my $Size = $Info[7] / 1024 / 1024;
+$Size = sprintf("%0.2f", $Size);
+print "<tr><td align='center'>$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size MB</td><td width='5'><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='download' /><input type='hidden' name='FILE' value='$_' /><input type='image' alt='$Lang::tr{'download'}' title='$Lang::tr{'download'}' src='/images/package-x-generic.png' /></form></td>";
+print "<td width='5'><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='delete' /><input type='hidden' name='FILE' value='$_' /><input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' /></form></td></tr>";
}
-print "</table>" . ($i ? "<br>" : "$Lang::tr{'empty'}!<hr /><br>");
-print <<EOF
-$warnmessage
-<form method = 'post'>
- <li>$Lang::tr{'backup configuration'}<br>
- $Lang::tr{'description'}:<input type = 'text' name = 'COMMENT' size='30' />
- <input type = 'submit' name = 'ACTION' value = '$Lang::tr{'create'}' />
-</form><p>
-<form method = 'post' enctype = 'multipart/form-data'>
- <li>$Lang::tr{'backup import dat file'}:<br>
- <input type = 'file' name = 'FH' size = '20' />
- <input type = 'submit' name = 'ACTION' value = '$Lang::tr{'import'}' />
-</form>
-</ul>
-EOF
+foreach (@backupisos){
+if ( $_ !~ /iso$/){next;}
+chomp($_);
+my $Datei = "/var/tmp/backupiso/".$_;
+my @Info = stat($Datei);
+my $Size = $Info[7] / 1024 / 1024;
+$Size = sprintf("%0.2f", $Size);
+print "<tr><td align='center'>$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size MB</td><td width='5'><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='downloadiso' /><input type='hidden' name='FILE' value='$_' /><input type='image' alt='$Lang::tr{'download'}' title='$Lang::tr{'download'}' src='/images/package-x-generic.png' /></form></td>";
+print "<td width='5'><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='delete' /><input type='hidden' name='FILE' value='$_' /><input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' /></form></td></tr>";
+}
+print <<END
+</table>
+END
;
+&Header::closebox();
-print "</td><td></td><td valign='top'>"; # Start right part (devices selection)
-print $Lang::tr{'backup media info'};
-
-print "<form method = 'post'>";
-print "<table width = '100%'><tr><td>";
-my $nodev = 1; # nothing present
-foreach my $media (keys %medias) {
- if ( $medias{$media}{'Attached'} eq 'Yes') { # device is attached to USB bus ?
- $nodev = 0; # at least one device present
- my $checked = $medias{$media}{'Host'} eq $mounted ? "checked='checked'" : '';
- print "<input type='radio' name = 'SELECT' value = '$medias{$media}{'Host'}' $checked />";
- print "<b>$medias{$media}{'Product'}</b><br>";
- # list attached partitions to this media
- foreach my $part (sort (keys (%partitions))) {
- if ($part =~ /$medias{$media}{'Host'}./) {
- my $checked = $part eq $mounted ? "checked='checked'" : '';
- print " <input type='radio' name = 'SELECT' value = '$part' $checked />$part ($partitions{$part})<br>";
- }
- }
- }
-}
-if ($nodev) {
- print "<br>$Lang::tr{'insert removable device'}";
- print "</td><td>";
- print "<br><input type = 'submit' name = 'ACTION' value = '$Lang::tr{'done'}' />";
-} else {
- #Add an entry for the local disk
- my $checked = $Lang::tr{'local hard disk'} eq $mounted ? "checked='checked'" : '';
- print "<input type = 'radio' name = 'SELECT' value = '$Lang::tr{'local hard disk'}' $checked />";
- print "<b>$Lang::tr{'local hard disk'}</b>";
- print "</td><td>";
- print "<br><input type = 'submit' name = 'ACTION' value = '$Lang::tr{'mount'}' />";
-}
-print "</tr></table>";
-print "</form>";
-#
-#Backup key
-#
-print<<EOF
- <hr />
-<form method='post'>
- <b>$Lang::tr{'backup key'}</b><br>
- $Lang::tr{'backup key info'}<br>
- <table><tr>
- <td align= 'right'>$Lang::tr{'root user password'}:
- <td align='left'><input type = 'password' name='PASSWORD' />
- <input type = 'submit' name = 'ACTION' value = '$Lang::tr{'backup export key'}' />
- </tr><tr>
- <td align='right'>$Lang::tr{'backup protect key password'}:
- <td align='left'><input type = 'password' name='PASSWORD1' size='10' />
- </tr><tr>
- <td align='right'>$Lang::tr{'again'}
- <td align='left'><input type = 'password' name='PASSWORD2' size='10'/>
- </tr></table>
-</form>
+############################################################################################################################
+############################################# Backups von Addons erstellen #################################################
-EOF
-;
-# End of right table
-print "</td></tr></table>";
+&Header::openbox('100%', 'center', 'addons');
-&floppybox();
+my @addonincluds = `ls /var/ipfire/backup/addons/includes/ 2>/dev/null`;
+my @addons = `ls /var/ipfire/backup/addons/backup/ 2>/dev/null`;
+my %addons;
-&Header::closebox();
-&Header::closebigbox();
-&Header::closepage();
+foreach (@addons){
+ my $addon=substr($_,0,length($_)-5);
+ $addons{$addon}='';
+}
-sub floppybox {
- print <<END
-<hr />
-<form method = 'post'>
-<table width='100%'>
-<tr>
- <td>
- <b>$Lang::tr{'backup to floppy'}</b>
- </td>
-</tr>
-<tr>
- <td width='50%'>
- $Lang::tr{'insert floppy'}
- </td>
- <td align='center'>
- <input type='submit' name='ACTION' value='$Lang::tr{'backup to floppy'}' />
- </td>
-</tr>
-</table>
-</form>
+print "<table width='95%' cellspacing='0'>";
+foreach (@addonincluds){
+chomp($_);
+delete $addons{$_};
+my $Datei = "/var/ipfire/backup/addons/backup/".$_.".ipf";
+my @Info = stat($Datei);
+my $Size = $Info[7] / 1024;
+
+if ( -e $Datei ){
+ if ($Size < 1) {
+ $Size = sprintf("%.2f", $Size);
+ print "<tr><td align='center'>$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size KB $Lang::tr{'date'} ".localtime($Info[9])."</td>";
+ } else {
+ $Size = sprintf("%2d", $Size);
+ print "<tr><td align='center'>$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size KB $Lang::tr{'date'} ".localtime($Info[9])."</td>";
+
+ }
+
+print <<END
+ <td align='right' width='5'>
+ <form method='post' action='$ENV{'SCRIPT_NAME'}'>
+ <input type='hidden' name='ACTION' value='downloadaddon' />
+ <input type='hidden' name='FILE' value='$_.ipf' />
+ <input type='image' alt='$Lang::tr{'download'}' title='$Lang::tr{'download'}' src='/images/package-x-generic.png' />
+ </form>
+ </td>
+ <td align='right' width='5'>
+ <form method='post' action='$ENV{'SCRIPT_NAME'}'>
+ <input type='hidden' name='ACTION' value='delete' />
+ <input type='hidden' name='FILE' value='addons//backup/$_.ipf' />
+ <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' />
+ </form>
+ </td>
END
;
- print "<b>$Lang::tr{'alt information'}</b><pre>" .
- `/usr/local/bin/ipfirebackup -savecfg floppy` .
- ' </pre>' if ($settings{'ACTION'} eq $Lang::tr{'backup to floppy'} );
}
-
-# Return device name of what is mounted under 'backup'
-sub findmounted() {
- my $mounted = `mount|grep ' /home/httpd/html/backup '`;
- if ($mounted) { # extract device name
- $mounted =~ m!^/dev/(.*) on!; # device on mountmoint options
- return $1;
- } else { # it's the normal subdir
- return $Lang::tr{'local hard disk'};
- }
-}
-# read and return a date/time string from a time file
-sub read_timefile() {
- my $fname = shift; # name of file to read from
- my $fname2 = shift; # if first file doesn't exist, get date of this file
-
- my $dt;
- if (defined(open(FH, "<$fname"))) {
- $dt = <FH>;
- chomp $dt;
- close(FH);
- } else {
- $dt = &get_fdate($fname2); # get file date/time
- write_timefile($fname, $dt); # write to expected time file
- }
- return $dt;
+else{
+ print "<tr><td align='center'>$Lang::tr{'backup from'} $_ </td><td width='5' align='right'></td><td width='5' align='right'></td>";
}
-# write a date/time string to a time file
-sub write_timefile() {
- my $fname = shift; # name of file to write to
- my $dt = shift; # date/time string to write
-
- if (open(FH, ">$fname")) {
- print FH "$dt\n";
- close(FH);
- }
+print <<END
+ <td align='right' width='5'>
+ <form method='post' action='$ENV{'SCRIPT_NAME'}'>
+ <input type='hidden' name='ACTION' value='addonbackup' />
+ <input type='hidden' name='ADDON' value='$_' />
+ <input type='image' alt='$Lang::tr{'backup'}' title='$Lang::tr{'backup'}' src='/images/document-save.png' />
+ </form>
+ </td></tr>
+END
+;
}
-# move a dat file without time stamp to subdir
-sub import_set() {
- my $dt = get_fdate("$setdir/$datafile") . shift;
- &write_timefile("$setdir/$datefile", $dt);
-
- # create set directory
- my $setname = "$setdir/" . get_ddate("$setdir/$datafile");
- mkdir($setname);
-
- # move files to the new set directory
- copy_files($setdir, $setname);
- erase_files ($setdir);
+foreach (keys(%addons)){
+chomp($_);
+my $Datei = "/var/ipfire/backup/addons/backup/".$_.".ipf";
+my @Info = stat($Datei);
+my $Size = $Info[7] / 1024;
+$Size = sprintf("%2d", $Size);
+print "<tr><td align='center'>$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size KB $Lang::tr{'date'} ".localtime($Info[9])."</td>";
+print <<END
+ <td align='right' width='5'>
+ <form method='post' action='$ENV{'SCRIPT_NAME'}'>
+ <input type='hidden' name='ACTION' value='downloadaddon' />
+ <input type='hidden' name='FILE' value='$_.ipf' />
+ <input type='image' alt='$Lang::tr{'download'}' title='$Lang::tr{'download'}' src='/images/package-x-generic.png' />
+ </form>
+ </td>
+ <td align='right' width='5'>
+ <form method='post' action='$ENV{'SCRIPT_NAME'}'>
+ <input type='hidden' name='ACTION' value='delete' />
+ <input type='hidden' name='FILE' value='addons//backup/$_.ipf' />
+ <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' />
+ </form>
+ </td>
+ <td align='right' width='5'></td></tr>
+END
+;
}
-# get date/time string from file
-sub get_fdate() {
- my $fname = shift;
- open(DT, "/bin/date -r $fname|");
- my $dt = <DT>;
- close(DT);
- chomp $dt;
- $dt =~ s/\s+/ /g; # remove duplicate spaces
- return $dt;
-}
-# get date/time string from file for use as directory name
-sub get_ddate() {
- my $fname = shift;
- open(DT, "/bin/date -r $fname +%Y%m%d_%H%M%S|");
- my $dt = <DT>;
- close(DT);
- chomp $dt;
- return $dt;
-}
-# copy archive files from source directory to destination directory
-sub copy_files() {
- my $src_dir = shift;
- my $dest_dir = shift;
- map (copy ("$src_dir/$_", "$dest_dir/$_"), ($datafile, $datefile) );
-}
-# erase set files
-sub erase_files() {
- my $src_dir = shift;
- map (unlink ("$src_dir/$_"), ($datafile, $datefile));
-}
-# get backup error text
-sub get_bk_error() {
- my $exit_code = shift || return '';
- if ($exit_code == 0) {
- return '';
- } elsif ($exit_code == 2) {
- return $Lang::tr{'err bk 2 key'};
- } elsif ($exit_code == 3) {
- return $Lang::tr{'err bk 3 tar'};
- } elsif ($exit_code == 4) {
- return $Lang::tr{'err bk 4 gz'};
- } elsif ($exit_code == 5) {
- return $Lang::tr{'err bk 5 encrypt'};
- } else {
- return $Lang::tr{'err bk 1'};
- }
-}
-# show any restore errors
-sub get_rs_error() {
-
- my $exit_code = shift || return '';
- if ($exit_code == 0) {
- return '';
- } elsif ($exit_code == 6) {
- return $Lang::tr{'err rs 6 decrypt'};
- } elsif ($exit_code == 7) {
- return $Lang::tr{'err rs 7 untartst'};
- } elsif ($exit_code == 8) {
- return $Lang::tr{'err rs 8 untar'};
- } elsif ($exit_code == 9) {
- return $Lang::tr{'missing dat'};
- } else {
- return $Lang::tr{'err rs 1'}."($exit_code)";
- }
-}
-sub kmgt {
- my ($value,$length,$opt_U) = @_;
- if ( $value > 10**( $length + 8 ) or $opt_U eq 'T' ) {
- return sprintf( "%d%s", int( ( $value / 1024**4 ) + .5 ), 'T' );
- } elsif ( $value > 10**( $length + 5 ) or $opt_U eq 'G' ) {
- return sprintf( "%d%s", int( ( $value / 1024**3 ) + .5 ), 'G' );
- } elsif ( $value > 10**( $length + 2 ) or $opt_U eq 'M' ) {
- return sprintf( "%d%s", int( ( $value / 1024**2 ) + .5 ), 'M' );
- } elsif ( $value > 10**($length) or $opt_U eq 'K' ) {
- return sprintf( "%d%s", int( ( $value / 1024 ) + .5 ), 'K' );
- } else {
- return $value;
- }
-}
+print "</table>";
+&Header::closebox();
+
+############################################################################################################################
+####################################### Backups des Systems wiederherstellen ###############################################
-1;
+&Header::openbox('100%', 'center', $Lang::tr{'restore'});
+
+print <<END
+<table width='95%' cellspacing='0'>
+<tr><td align='center' colspan='2'><font color='red'><br />$Lang::tr{'backupwarning'}</font><br /><br /></td></tr>
+<tr><td align='left'>$Lang::tr{'backup'}</td><td align='left'><form method='post' enctype='multipart/form-data' action='$ENV{'SCRIPT_NAME'}'><input type="file" size='50' name="UPLOAD" /><input type='hidden' name='ACTION' value='restore' /><input type='hidden' name='FILE' /><input type='image' alt='$Lang::tr{'restore'}' title='$Lang::tr{'restore'}' src='/images/media-floppy.png' /></form></td></tr>
+<tr><td align='left'>$Lang::tr{'backupaddon'}</td><td align='left'><form method='post' enctype='multipart/form-data' action='$ENV{'SCRIPT_NAME'}'><input type="file" size='50' name="UPLOAD" /><input type='hidden' name='ACTION' value='restoreaddon' /><input type='hidden' name='FILE' /><input type='image' alt='$Lang::tr{'restore'}' title='$Lang::tr{'restore'}' src='/images/media-floppy.png' /></form></td></tr>
+</table>
+END
+;
+&Header::closebox();
+&Header::closebigbox();
+&Header::closepage();
\ No newline at end of file
projects / people / pmueller / ipfire-2.x.git / blobdiff