#!/usr/bin/perl ############################################################################### # # # 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 . # # # ############################################################################### use strict; # enable only the following on debugging purpose #use warnings; #use CGI::Carp 'fatalsToBrowser'; use File::Copy; require '/var/ipfire/general-functions.pl'; require "${General::swroot}/lang.pl"; require "${General::swroot}/header.pl"; my %color = (); my %mainsettings = (); my %cgiparams=(); my %checked = (); my $message = ""; my $errormessage = ""; my @backups = ""; my @backupisos = ""; $a = new CGI; &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 ################################################ system("/usr/local/bin/backupctrl makedirs >/dev/null 2>&1 ") unless ( -e '/var/ipfire/backup/addons/backup') ; ############################################################################################################################ ############################################## System calls ohne Http Header ############################################### # Replace slashes from filename $cgiparams{'FILE'} =~ s/\///; if ( $cgiparams{'ACTION'} eq "download" ) { open(DLFILE, "; print "Content-Type:application/x-download\n"; my @fileinfo = stat("/var/ipfire/backup/$cgiparams{'FILE'}"); print "Content-Length:$fileinfo[7]\n"; print "Content-Disposition:attachment;filename=$cgiparams{'FILE'}\n\n"; print @fileholder; exit (0); } if ( $cgiparams{'ACTION'} eq "downloadiso" ) { open(DLFILE, "; print "Content-Type:application/x-download\n"; my @fileinfo = stat("/var/tmp/backupiso/$cgiparams{'FILE'}"); print "Content-Length:$fileinfo[7]\n"; print "Content-Disposition:attachment;filename=$cgiparams{'FILE'}\n\n"; print @fileholder; exit (0); } if ( $cgiparams{'ACTION'} eq "downloadaddon" ) { open(DLFILE, "; print "Content-Type:application/x-download\n"; my @fileinfo = stat("/var/ipfire/backup/addons/backup/$cgiparams{'FILE'}"); print "Content-Length:$fileinfo[7]\n"; print "Content-Disposition:attachment;filename=$cgiparams{'FILE'}\n\n"; print @fileholder; exit (0); } elsif ( $cgiparams{'ACTION'} eq "restore" ) { my $upload = $a->param("UPLOAD"); open UPLOADFILE, ">/tmp/restore.ipf"; binmode $upload; while ( <$upload> ) { print UPLOADFILE; } close UPLOADFILE; system("/usr/local/bin/backupctrl restore >/dev/null 2>&1"); } 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"); } &Header::showhttpheaders(); sub refreshpage{&Header::openbox( 'Waiting', 1, "" );print "

$Lang::tr{'pagerefresh'}
";&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"); } } if ( $cgiparams{'ACTION'} eq "addonbackup" ) { system("/usr/local/bin/backupctrl addonbackup $cgiparams{'ADDON'} >/dev/null 2>&1"); } elsif ( $cgiparams{'ACTION'} eq "delete" ) { system("/usr/local/bin/backupctrl $cgiparams{'FILE'} >/dev/null 2>&1"); } ############################################################################################################################ ############################################ Backups des Systems erstellen ################################################# if ( $message ne "" ){ &Header::openbox('100%','left',$Lang::tr{'error messages'}); print "$message\n"; &Header::closebox(); } if ( -e "/var/ipfire/backup/" ){ @backups = `cd /var/ipfire/backup/ && ls *.ipf 2>/dev/null`; } if ( -e "/var/tmp/backupiso/" ){ @backupisos = `cd /var/tmp/backupiso/ && ls *.iso 2>/dev/null`; } &Header::openbox('100%', 'center', $Lang::tr{'backup'}); print <
$Lang::tr{'logs'} $Lang::tr{'include logfiles'}
$Lang::tr{'exclude logfiles'}
$Lang::tr{'generate iso'}
END ; &Header::closebox(); ############################################################################################################################ ############################################ Backups des Systems downloaden ################################################ &Header::openbox('100%', 'center', $Lang::tr{'backups'}); print < 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 "$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size MB
"; print "
"; } 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 "$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size MB
"; print "
"; } print < END ; &Header::closebox(); ############################################################################################################################ ############################################# Backups von Addons erstellen ################################################# &Header::openbox('100%', 'center', 'addons'); my @addonincluds = `ls /var/ipfire/backup/addons/includes/ 2>/dev/null`; my @addons = `ls /var/ipfire/backup/addons/backup/ 2>/dev/null`; my %addons; foreach (@addons){ my $addon=substr($_,0,length($_)-5); $addons{$addon}=''; } print ""; 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 ""; } else { $Size = sprintf("%2d", $Size); print ""; } print <
END ; } else{ print ""; } print <
END ; } 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 ""; print <
END ; } print "
$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size KB $Lang::tr{'date'} ".localtime($Info[9])."
$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size KB $Lang::tr{'date'} ".localtime($Info[9])."
$Lang::tr{'backup from'} $_
$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Size KB $Lang::tr{'date'} ".localtime($Info[9])."
"; &Header::closebox(); ############################################################################################################################ ####################################### Backups des Systems wiederherstellen ############################################### &Header::openbox('100%', 'center', $Lang::tr{'restore'}); print <
$Lang::tr{'backupwarning'}


$Lang::tr{'backup'}
$Lang::tr{'backupaddon'}
END ; &Header::closebox(); &Header::closebigbox(); &Header::closepage();