###############################################################################
# backupcenter.pl                                                             #
###############################################################################
# YaBB XXL: Yet another Bulletin Board  XXL                                   #
# Beta Version - Please make a backup before using this Mod		      #
# by Homey beta 7/Beta 8 by DummyProof		                              #
# 							                      #
###############################################################################

$backupcenterplver = "1 Gold - SP1.1";

#############################################################
%bckuptxt=(
'01' => "Absolute Path of the Dir you want to backup:",
'02' => "Absolute Path of the Dir where backup should be stored:",
'03' => "Add Time Stamp to Filename?",
'04' => "Backup Frequency:",
'05' => "Send Backup File Via E-Mail?",
'06' => "E-Mail Backup To:",
'07' => "OPEN",
'08' => "Delete Backup after E-Mail?",
'09' => "Backup Settings",
'10' => "Here you can edit the settings of your Backup System.<br>Please enter the absolute path and not the URL for directories!!!<br>Note: The E-Mail could be very large. Be sure your E-mail provider has allowable space.",
'11' => "Never",
'12' => "Daily",
'13' => "Weekly",
'14' => "Monthly",
'15' => "Backup Now?",
'16' => "Configure Backup Settings",
'17' => "Last Backup File Created On/Filename:",
'18' => "[ Return to Backup Center ]",
'19' => "does not exist! Please enter a valid directory.",
'20' => "Backup didn't happen. An error was returned by the System. Please check your settings.",
'21' => "Backup File",
'22' => "Attached is the Backup of",
'23' => "Error in Mailing Program! File Backup is done but not send via E-Mail",
'24' => "Ok, Backup is done and sent via E-Mail to",
'25' => "BACKUPFILE WAS DELETED FROM SERVER AFTER MAILING",
'26' => "Ok, Backup is done.<br><br> Files Archived to",
'27' => "Bytes",
'28' => "Filename:",
'29' => "File Size is",
'30' => "Files Archived to",
'31' => "Could not open",
'32' => "There are no Backup files in the designated Backup directory.",
'33' => "Delete",
'34' => "Delete All",
'35' => "Manage Backup Files",
'36' => "View and/or delete current backup files which are stored in your designated Backup directory.<br>Download a Backup file by clicking on the desired \"Backup Filename\".",
'37' => "List of Backups Currently Available",
'38' => "Backup Filename",
'39' => "File Size",
'40' => "Date Created",
'41' => "Are you sure you want to Delete all Backups?",
'42' => "Yes",
'43' => "No",
'44' => "Current Settings for Backups"
);
#############################################################

require "$vardir/backupsettings.pl";
if(-e "$sourcedir/Lite.pm"){
	require "$sourcedir/Lite.pm";
	$yesmail = '';
	} else {
		$yesmail = " disabled";
		$nolite = "<font size=\"1\">(Lite.pm is missing from the Sources dir.)</font>";
	}

# =============================================================================
# Here we show the Backup Controlcenter
# =============================================================================
sub backupcenter {

	&is_admin;

	my($time_check, $via_mail_check, $backupdelcheck);
	
	# figure out what to print
	if ($time_stemp) { $time_check = "checked" }
	if ($send_via_mail) { $via_mail_check = "checked" }
	if ($backupdel) { $backupdelcheck = "checked" }


	# Get date and filename of last backup
	fopen(FILE, "$vardir/lastbackup.txt");
	@backupinfo = <FILE>;
	fclose(FILE);
	($last_reminder, $ml_month, $ml_yearday, $lbinfo, $lfname) = split(/\|/, @backupinfo[0]);
	if ($lbinfo eq '') {
		$lbinfo2 = "N";
		$lfname = "A";
		} else {
		$lbinfo2 = &timeformat($lbinfo);
	}
	
	$yymain .= qq~
<form action="$cgi;action=backupsettings" method="POST">
<table width="90%" border="0" cellspacing="1" cellpadding="0" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">
  <tr>
  <td>
  <table width="100%" border="0" cellspacing="0" cellpadding="4" align="center">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}" colspan=2>
    <img src="$imagesdir/backup.gif" border="0">
    <font size=2 class="text1" color="$color{'titletext'}"><b>$bckuptxt{'09'}</b></font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}" colspan=2><BR><blockquote><font size="2">$bckuptxt{'10'}</font></blockquote></td>
  </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size="2">$bckuptxt{'01'}</font></td>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><input type=text name=backupdir size="55" value="$backupdir"></td>
 </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size="2">$bckuptxt{'02'}</font></td>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><input type=text name=backupto size="55" value="$backupto"></td>
 </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size="2">$bckuptxt{'04'}</font></td>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}">
~;

	# Autosend Frequency: Never
	if ($backup_frequency == 0) {
		$yymain .= qq~ 
	<input type="radio" name="busend_frequency" value="0" checked><font size="2">&nbsp;$bckuptxt{'11'}</font>
	<input type="radio" name="busend_frequency" value="1"><font size="2">&nbsp;$bckuptxt{'12'}</font>
	<input type="radio" name="busend_frequency" value="2"><font size="2">&nbsp;$bckuptxt{'13'}</font>
	<input type="radio" name="busend_frequency" value="3"><font size="2">&nbsp;$bckuptxt{'14'}</font>
~;
	}

	# Autosend Frequency: Daily
	elsif ($backup_frequency == 1) {
		$yymain .= qq~ 
	<input type="radio" name="busend_frequency" value="0"><font size="2">&nbsp;$bckuptxt{'11'}</font>
	<input type="radio" name="busend_frequency" value="1" checked><font size="2">&nbsp;$bckuptxt{'12'}</font>
	<input type="radio" name="busend_frequency" value="2"><font size="2">&nbsp;$bckuptxt{'13'}</font>
	<input type="radio" name="busend_frequency" value="3"><font size="2">&nbsp;$bckuptxt{'14'}</font>
~;
	}

	# Autosend Frequency: Weekly
	elsif ($backup_frequency == 2) {
		$yymain .= qq~ 
	<input type="radio" name="busend_frequency" value="0"><font size="2">&nbsp;$bckuptxt{'11'}</font>
	<input type="radio" name="busend_frequency" value="1"><font size="2">&nbsp;$bckuptxt{'12'}</font>
	<input type="radio" name="busend_frequency" value="2" checked><font size="2">&nbsp;$bckuptxt{'13'}</font>
	<input type="radio" name="busend_frequency" value="3"><font size="2">&nbsp;$bckuptxt{'14'}</font>
~;
	}

	# Autosend Frequency: Monthly
	elsif ($backup_frequency == 3) {
		$yymain .= qq~ 
	<input type="radio" name="busend_frequency" value="0"><font size="2">&nbsp;$bckuptxt{'11'}</font>
	<input type="radio" name="busend_frequency" value="1"><font size="2">&nbsp;$bckuptxt{'12'}</font>
	<input type="radio" name="busend_frequency" value="2"><font size="2">&nbsp;$bckuptxt{'13'}</font>
	<input type="radio" name="busend_frequency" value="3" checked><font size="2">&nbsp;$bckuptxt{'14'}</font>
~;
	}
	$yymain .= qq~
  </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size="2">$bckuptxt{'03'}</font></td>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><input type=checkbox name="time_stemp" $time_check></td>
 </tr><tr>
    <td colspan=2 class="windowbg2" bgcolor="$color{'windowbg2'}">
    <HR size=1 width="100%" class="hr"></td>
  </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size="2">$bckuptxt{'05'}</font></td>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><input type=checkbox name="send_via_mail" $via_mail_check $yesmail>$nolite</td>
 </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size="2">$bckuptxt{'08'}</font></td>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><input type=checkbox name="backupdel" $backupdelcheck $yesmail></td>
 </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size="2">$bckuptxt{'06'}</font></td>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}"><input type=text name="backuptoemail" size="35" value="$backuptoemail" $yesmail></td>
  </tr><tr>
     <td class="windowbg2" bgcolor="$color{'windowbg2'}" colspan="2" align="center" valign="middle"> <BR>
     <input type=submit value="$txt{'10'}"></td>
  </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}" colspan="2" align="center">
    <a href="$cgi;action=backupmanage2"><font size="2">$bckuptxt{'18'}</font></a></td>
  </tr>
    </table></td>
   </tr>
  </table>
</form>
~;
	$yytitle = $bckuptxt{'09'};
	&template;
	exit;
}

# =============================================================================
# Here we update the settings File for Backupsystem
# =============================================================================
sub Modifybusettings {

	&is_admin;

	my @onoff = qw/time_stemp send_via_mail backupdel/;

	# Set as 0 or 1 if box was checked or not
	my $fi;
	map { $fi = lc $_; ${$_} = $FORM{$fi} eq 'on' ? 1 : 0; } @onoff;
	
	# If empty fields are submitted, set them to default-values to save yabb from crashing
	$backupdir = $FORM{'backupdir'} || "$boarddir";
	$backupto = $FORM{'backupto'} || "$boarddir/Backups";
	$backup_frequency = $FORM{'busend_frequency'} || 0;
	$backuptoemail = $FORM{'backuptoemail'} || "$webmaster_email";

	#Lets make sure the dirs exist
	if (!-d "$backupdir"){&fatal_error("$backupdir $bckuptxt{'19'}");}
	if (!-d "$backupto"){&fatal_error("$backupto $bckuptxt{'19'}");}
	
	my $filler = q~                                                                               ~;
	my $setfile = << "EOF";

###############################################################################
# Backupsettings.pl                                                           #
###############################################################################

# Path and Config Settings
\$backupdir = '$backupdir';
\$backupto = '$backupto';
\$backup_frequency = $backup_frequency;
\$time_stemp = $time_stemp;

\$send_via_mail = $send_via_mail;
\$backupdel = $backupdel;
\$backuptoemail = q^$backuptoemail^;

1;
EOF

	$setfile =~ s~(.+\;)\s+(\#.+$)~$1 . substr( $filler, 0, (70-(length $1)) ) . $2 ~gem;
	$setfile =~ s~(.{64,}\;)\s+(\#.+$)~$1 . "\n   " . $2~gem;
	$setfile =~ s~^\s\s\s+(\#.+$)~substr( $filler, 0, 70 ) . $1~gem;
	
	fopen(FILE, ">$vardir/backupsettings.pl");
	print FILE $setfile;
	fclose(FILE);

	$yySetLocation = qq~$scripturl?action=backupmanage2~;
	&redirectexit;
}

# =============================================================================
# Here we make a backup now if Checkbox for Direct update is enabled
# =============================================================================

sub backupnow {
	
&is_admin;

use Sources::Zip qw( :CONSTANTS );
use Sources::Tree;

$hitch = '';
($day, $month, $year) = (localtime)[3,4,5];
$year = $year + 1900; $month++;
if ($time_stemp) { $hitch = "_$month-$day-$year"; }

#lock the forum while doing backup
&dolock;

$fname = "backup$hitch.zip";
my $zip = Sources::Zip->new();
# add all readable files and directories below
$zip->addTree( "$backupdir");	
# and write them into a file
$zip->writeToFileNamed("$backupto/$fname");
@mat = stat("$backupto/$fname");
&lastbackupinfo;
chmod (0777, "$backupto/$fname");

#re-open the forum because the backup is done 
unlink "$vardir/backup.lock";

if ($mat[7] <= 0) { &fatal_error ("$bckuptxt{'20'}"); exit; }

#Lets pretty up the file size display
&formatfs($mat[7]);

# =============================================================================
# Here we send E-Mail if enabled
# =============================================================================

if ($send_via_mail == 1) {

	if($mailtype == 0) { 
	        Sources::Lite->send('sendmail', "$mailprog -t -oi");
	} else { 
	        Sources::Lite->send('smtp', "$smtp_server"); 
	}

#	#path to sendmail + -t -oi for attachments
#	$mailprog2 = "$mailprog -t -oi";
#
#        Sources::Lite->send('sendmail', "$mailprog2");

    $msg = new Sources::Lite 
                From    =>"$webmaster_email",
                To      =>"$backuptoemail",
                Subject =>"$mbname $bckuptxt{'21'}",
                Type    =>'TEXT',
                Data    =>"$bckuptxt{'22'} $mbname:\n\n$bckuptxt{'28'}\n$fname\n$bckuptxt{'29'} $fsize $bckuptxt{'27'}\n\n";  
    
    # Attach a part:
    attach $msg Type     =>'BINARY',
                Path     =>"$backupto/$fname",
                Filename =>"$fname";


        
        $msg->send || &fatal_error("$bckuptxt{'23'}");

# =============================================================================
# Here we delete Backupfile if checked and Output Infos
# =============================================================================
if ($backupdel == 1) {
	unlink "$backupto/$fname";
  &yabb_alert ("$bckuptxt{'24'} $backuptoemail.<br> $bckuptxt{'30'} $fname.<br>$bckuptxt{'29'} $fsize $bckuptxt{'27'}.<br><br>$bckuptxt{'25'}");
	} else {

  &yabb_alert ("$bckuptxt{'24'} $backuptoemail.<br> $bckuptxt{'30'} $fname.<br>$bckuptxt{'29'} $fsize $bckuptxt{'27'}.");
}
} else {
  &yabb_alert ("$bckuptxt{'26'} $fname.<br>$bckuptxt{'29'} $fsize $bckuptxt{'27'}");
}

}

# =============================================================================
# Autobackupsystem - Here is the Code for the auto backup system
# =============================================================================
sub AutoBackup {

	# Get date
	&get_date;
	
	# Open default Mailinglist Text
	fopen(FILE, "$vardir/lastbackup.txt");
	@lastbackup = <FILE>;
	fclose(FILE);

	# Get date
	($last_reminder, $ml_month, $ml_yearday, $ml_date, $dummy) = split(/\|/, @lastbackup[0]);
	
	# Check Frequency
	# Daily (and not already send today)
	if ($backup_frequency == 1 && $ml_yearday < $yday && $last_reminder != $yday) {
	
			&AutoBackup2;
	}
	# Weekly (and not already send today)
	if ($backup_frequency == 2 && ($ml_yearday + 7) <= $yday && $last_reminder != $yday) {
	
			&AutoBackup2;
	}
	# Monthly (and not already send today)
	elsif ($backup_frequency == 3 && $ml_month != $mon_num && $last_reminder != $yday) {
	
			&AutoBackup2;
}

}

sub AutoBackup2 {
 
use Sources::Zip qw( :CONSTANTS );
use Sources::Tree;

$hitch = '';
($day, $month, $year) = (localtime)[3,4,5];
$year = $year + 1900; $month++;
if ($time_stemp) { $hitch = "_$month-$day-$year"; }

#lock the forum while doing backup
&dolock;

$fname = "backup$hitch.zip";
my $zip = Sources::Zip->new();
# add all readable files and directories below . as xyz/*
$zip->addTree( "$backupdir");	
# and write them into a file
$zip->writeToFileNamed("$backupto/$fname");
@mat = stat("$backupto/$fname");
&lastbackupinfo;
chmod (0777, "$backupto/$fname");

#re-open the forum because the backup is done 
	unlink "$vardir/backup.lock";

#Lets pretty up the file size display
&formatfs($mat[7]);

if ($send_via_mail == 1) {

	if($mailtype == 0) { 
	        Sources::Lite->send('sendmail', "$mailprog -t -oi");
	} else { 
	        Sources::Lite->send('smtp', "$smtp_server"); 
	}

#	#path to sendmail + -t -oi for attachments
#	$mailprog2 = "$mailprog -t -oi";
#
#        Sources::Lite->send('sendmail', "$mailprog2");

    $msg = new Sources::Lite 
                From    =>"$webmaster_email",
                To      =>"$backuptoemail",
                Subject =>"$mbname $bckuptxt{'21'}",
                Type    =>'TEXT',
                Data    =>"$bckuptxt{'22'} $mbname:\n\n$bckuptxt{'28'}\n$fname\n$bckuptxt{'29'} $fsize $bckuptxt{'27'}\n\n";  
    
    # Attach a part:
    attach $msg Type     =>'BINARY',
                Path     =>"$backupto/$fname",
                Filename =>"$fname";

        $msg->send;

	if ($backupdel == 1) {
	unlink "$backupto/$fname";
	}
	}
}

# =============================================================================
# Here we update the last Backup time info
# =============================================================================
sub lastbackupinfo {
	unlink("$vardir/lastbackup.txt");
	fopen(FILE, ">$vardir/lastbackup.txt");
	print FILE "$yday|$mon_num|$yday|$date|$fname\n";
	fclose(FILE);
}

sub dolock {
	fopen(FILE, ">$vardir/backup.lock");
	print FILE "\n";
	fclose(FILE);
}

sub ViewBackups {
	&is_admin;

	# Get date and filename of last backup
	fopen(FILE, "$vardir/lastbackup.txt");
	@backupinfo = <FILE>;
	fclose(FILE);
	($last_reminder, $ml_month, $ml_yearday, $lbinfo, $lfname) = split(/\|/, @backupinfo[0]);
	chomp $lfname;
	if (-e "$backupto/$lfname"){ 
		$lfnamelnk = "<a href=\"$scripturl?action=backupdown;file=$lfname\">$lfname</a></font>";
	} else {
		$lfnamelnk = $lfname;
	}
	if ($lbinfo eq '') {
		$lbinfo2 = "N";
		$lfnamelnk = "A";
		} else {
		$lbinfo2 = &timeformat($lbinfo);
	}
	$dstamp = "$bckuptxt{'43'}";
	if ($time_stemp == 1) {$dstamp = "$bckuptxt{'42'}";}
	$bkdel = "$bckuptxt{'43'}";
	if ($backupdel == 1) {$bkdel = "$bckuptxt{'42'}";}

	if ($backup_frequency == 0) {$freq = "$bckuptxt{'11'}";}
	elsif ($backup_frequency == 1) {$freq = "$bckuptxt{'12'}";}
	elsif ($backup_frequency == 2) {$freq = "$bckuptxt{'13'}";}
	elsif ($backup_frequency == 3) {$freq = "$bckuptxt{'14'}";}

	if ($send_via_mail){
		$mailsetting = qq~
		<tr><td bgcolor=$color{'windowbg2'} class="windowbg2"><font size="2">$bckuptxt{'05'}</font></td><td bgcolor=$color{'windowbg2'} class="windowbg2">Yes</td></tr>
		<tr><td bgcolor=$color{'windowbg2'} class="windowbg2"><font size="2">$bckuptxt{'08'}</font></td><td bgcolor=$color{'windowbg2'} class="windowbg2">$bkdel</td></tr>
		<tr><td bgcolor=$color{'windowbg2'} class="windowbg2"><font size="2">$bckuptxt{'06'}</font></td><td bgcolor=$color{'windowbg2'} class="windowbg2">$backuptoemail</td></tr>~;
		} else {
		$mailsetting = qq~<tr><td bgcolor=$color{'windowbg2'} class="windowbg2"><font size="2">$bckuptxt{'05'}</font></td><td bgcolor=$color{'windowbg2'} class="windowbg2">No</td></tr>~;
		}

	opendir (BUP, "$backupto") || &fatal_error("$bckuptxt{'31'} $backupto!");
		@contents = readdir(BUP);
	closedir(BUP);
	$i = 0;
	foreach $line (@contents){
		($name, $extension) = split (/\./, $line);
		@mat = stat("$backupto/$line");
		if ($extension eq "zip"){
			@backupfs[$i] = ("$line|$mat[7]|$mat[9]");
		$i++;
		}
	}
	if (1 > @backupfs) {
		$viewbackups .= qq~<tr><td bgcolor=$color{'windowbg2'} class="windowbg2" colspan="4"><font size="2"><center><b><i>$bckuptxt{'32'}</i></b></center></font></td></tr>~;
	} else {
		@sortback = map {$_->[0]} sort{($b->[3])<=>($a->[3])} map { [ $_, (split /\|/)[0..2] ] } (@backupfs);
		foreach $line (@sortback) {
		($fname, $fsize, $fdate) = split (/\|/, $line);
		$budate = &formatdate($fdate);
		$budate = &timeformat($budate);
		&formatfs($fsize);
		$viewbackups .= qq~<tr><td bgcolor=$color{'windowbg2'} class="windowbg2" align="left" valign="middle"><font size="2">&nbsp;<a href="$scripturl?action=backupdown;file=$fname">$fname</a></font></td><td bgcolor=$color{'windowbg2'} class="windowbg2" align="right" valign="middle"><font size="2"> $fsize&nbsp;</td><td nowrap bgcolor=$color{'windowbg2'} class="windowbg2" align="left" valign="middle"><font size="2">&nbsp;$budate</td><td bgcolor=$color{'windowbg2'} class="windowbg2" align="left" valign="middle"><a href="$scripturl?action=backupdelete;filename=$fname"><font size="2">&nbsp;$bckuptxt{'33'}</a></td></tr>\n~;
		}
	}
$yymain .= qq~
<script language="javascript">
<!-- //
function confirm_deleteall (resource)   {
	if (window.confirm(resource) )  {
		window.location.href =  "$scripturl?action=backupdelete;filename=all";
		}
	}
// -->
</script>
<table border=0 cellspacing=1 cellpadding="3" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center" width=100%>
<tr>
<td bgcolor=$color{'titlebg'} class="titlebg">
<img src="$imagesdir/backup.gif" alt="" border="0">&nbsp;
<font size="2" class="text1" color="$color{'titletext'}"><b>$bckuptxt{'35'}</b></font></td>
</tr><tr>
<td bgcolor="$color{'windowbg'}" class="windowbg">
<blockquote><font size="2"><br>$bckuptxt{'36'}</font></blockquote>
</td>
</tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center"><font size="2"><b>$bckuptxt{'17'}</b></font>
    &nbsp;&nbsp;<font size="2">$lbinfo2 / $lfnamelnk</font></td>
  </tr><tr>
<td bgcolor=$color{'windowbg2'} class="windowbg2"><font size="2">
<br><center>
<table border=0 cellpadding=2 cellspacing=1 bgcolor=$color{'bordercolor'} class="bordercolor"width=80%>
<tr><td colspan="4" align="center" bgcolor=$color{'titlebg'} class="titlebg" width=100%><font size=2 class="text1" color="$color{'titletext'}"><b>$bckuptxt{'37'}</b></font></td></tr>
<tr><td bgcolor=$color{'catbg'} class="catbg" width=35%><font size="2"><b>&nbsp;$bckuptxt{'38'}</b></font></td><td bgcolor=$color{'catbg'} class="catbg" width=15%><font size="2"><b>&nbsp;$bckuptxt{'39'}</b></font></td><td bgcolor=$color{'catbg'} class="catbg" width=35%><font size="2"><b>&nbsp;$bckuptxt{'40'}</b></font></td><td bgcolor=$color{'catbg'} class="catbg" width=15%><font size="2"><b>&nbsp;$bckuptxt{'33'}</b></font></td></tr>
$viewbackups
~;
unless (1 > @backupfs) {
$yymain .= qq~
<tr><td bgcolor=$color{'catbg'} class="catbg" colspan="3">&nbsp;</td><td bgcolor=$color{'windowbg2'} class="windowbg2" align="left" valign="middle" border="0"><font size="2"><a href='javascript:confirm_deleteall( "$bckuptxt{'41'}" );'>&nbsp;$bckuptxt{'34'}</a></font></td></tr>
~;
}
$yymain .= qq~
</table>
<br>
<table border=0 cellpadding=2 cellspacing=1 bgcolor=$color{'bordercolor'} class="bordercolor"width=80%>
<tr><td colspan="2" align="center" bgcolor=$color{'titlebg'} class="titlebg" width=100%><font size=2 class="text1" color="$color{'titletext'}"><b>$bckuptxt{'44'}</b></font></td></tr>
<tr><td width="55%" bgcolor=$color{'windowbg2'} class="windowbg2"><font size="2">$bckuptxt{'01'}</font></td><td bgcolor=$color{'windowbg2'} class="windowbg2">$backupdir</td></tr>
<tr><td bgcolor=$color{'windowbg2'} class="windowbg2"><font size="2">$bckuptxt{'02'}</font></td><td bgcolor=$color{'windowbg2'} class="windowbg2">$backupto</td></tr>
<tr><td bgcolor=$color{'windowbg2'} class="windowbg2"><font size="2">$bckuptxt{'03'}</font></td><td bgcolor=$color{'windowbg2'} class="windowbg2">$dstamp</td></tr>
<tr><td bgcolor=$color{'windowbg2'} class="windowbg2"><font size="2">$bckuptxt{'04'}</font></td><td bgcolor=$color{'windowbg2'} class="windowbg2">$freq</td></tr>
$mailsetting
</table>
<a href="$scripturl?action=backup"><font size="2">[ $bckuptxt{'16'} ]</font></a>
<br><form action="$cgi;action=backupnow" method="POST"><input type=submit value="$bckuptxt{'15'}"></form>
</center>
</td>
</tr></table>
~;
	$yytitle = "$bckuptxt{'35'}";
	&template;
	exit;
}

sub DeleteBackups {
	&is_admin;
	my $filename = $INFO{'filename'};
	my $dlast = $INFO{'dellast'};
	if ($filename eq 'all') {
		opendir (BUP, "$backupto") || &fatal_error("$bckuptxt{'31'} $backupto!");
			@contents = readdir(BUP);
		closedir(BUP);
		$i = 0;
		foreach $killfile (@contents){
			($name, $extension) = split (/\./, $killfile);
			if ($extension eq "zip"){
				unlink("$backupto/$killfile");
			$i++;
			}
		}
		fopen(BUP, ">$vardir/lastbackup.txt");
		fclose(BUP);
		$yySetLocation = qq~$scripturl?action=backupmanage2~;
		&redirectexit;
	} else {
		unlink("$backupto/$filename");
		$yySetLocation = qq~$scripturl?action=backupmanage2~;
		&redirectexit;
	}
}

sub formatfs {
	$fsize = $_[0];
	if ($fsize > '1000000') {
		$fsize = sprintf("%.2f",($fsize/1048576));
		$fsize .=" MB";
	} else {
		$fsize = sprintf("%.0f",($fsize/1024));
		$fsize .=" KB";
	}
	return $fsize;
}

sub formatdate {
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($_[0]);
	$mon_num = $mon+1;
	$savehour = $hour;
	$hour = "0$hour" if ($hour < 10);
	$min = "0$min" if ($min < 10);
	$sec = "0$sec" if ($sec < 10);
	$saveyear = ($year % 100);
	$year = 1900 + $year;

	$mon_num = "0$mon_num" if ($mon_num < 10);
	$mday = "0$mday" if ($mday < 10);
	$saveyear = "0$saveyear" if ($saveyear < 10);
	$date = "$mon_num/$mday/$saveyear $txt{'107'} $hour\:$min\:$sec";
	return $date;
}

sub Download {
	&is_admin;
	$file = $INFO{'file'};
	$filename = "$backupto/$file";
	@mat = stat("$backupto/$file");
	$filesize = $mat[7];
	# print full header
	print "Content-disposition: inline; filename=$file\n";
	print "Content-Length: $filesize\n";
	print "Content-Type: application/x-zip-compressed; name=$file\n\n";

	# open in binmode
	open(READ,"$filename") || die;
	binmode READ;
	
	# stream it out
	binmode STDOUT;
	while (<READ>) { print;    }
	close(READ);

	# should always return true
	return(1);
}

1;