forked from ports/contrib
baras: fixed some errors, added new variables
This commit is contained in:
parent
4368176fcf
commit
103b48e613
@ -1,2 +1,2 @@
|
||||
5301cc79be413e6820d702bef5319b02 baras-099a.tar.bz2
|
||||
6c0f5bcc9fa3d3aa7bd61872bf832a2d baras.patch
|
||||
541ba4fcb6a22f7d89274e785e7626d6 baras.patch
|
||||
|
@ -7,7 +7,7 @@
|
||||
|
||||
name=baras
|
||||
version=099a
|
||||
release=1
|
||||
release=2
|
||||
source=(http://dl.sourceforge.net/baras/$name-$version.tar.bz2 baras.patch)
|
||||
|
||||
build() {
|
||||
|
@ -1,6 +1,6 @@
|
||||
diff -Nru baras/baras.pl baras-new/baras.pl
|
||||
--- baras/baras.pl 2007-08-13 03:36:01.000000000 +0200
|
||||
+++ baras-new/baras.pl 2008-08-20 23:30:19.000000000 +0200
|
||||
+++ baras-new/baras.pl 2009-02-22 21:40:08.000000000 +0100
|
||||
@@ -1,7 +1,7 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
@ -10,9 +10,89 @@ diff -Nru baras/baras.pl baras-new/baras.pl
|
||||
}
|
||||
use strict;
|
||||
use warnings;
|
||||
@@ -21,17 +21,19 @@
|
||||
'BARAS_DCF' => 'baras.dcf',
|
||||
'BARAS_ETC' => '/etc/baras/',
|
||||
'BARAS_VERBOSE' => 'no',
|
||||
- 'BASENAME' => $tempdate,
|
||||
+ 'BASENAME' => "$tempdate",
|
||||
'COPY_DAR' => 'yes',
|
||||
'DAR_MGR' => 'no',
|
||||
'DAR_STATIC' => '',
|
||||
'DESTINATION' => '/mnt/backup',
|
||||
'EMAIL' => 'no',
|
||||
- 'HOSTNAME' => $hostname,
|
||||
+ 'HOSTNAME' => "$hostname",
|
||||
'LOG_FILE' => '/var/log/baras.log',
|
||||
+ 'LS_BINARY' => '/bin/ls',
|
||||
'OUTPUT' => '',
|
||||
'REMOVE_FIRST' => 'no',
|
||||
'ROTATION_SCHEDULE' => 'rotation.schedule',
|
||||
+ 'TEMP_LOG' => "/tmp/tmp.$$",
|
||||
'TEST_ARCHIVE' => 'yes'
|
||||
};
|
||||
|
||||
@@ -155,7 +157,7 @@
|
||||
open NOTICE, ">".$config->{'DESTINATION'}."/".$config->{'WORK_DIR'}."/reference_archive.txt" or
|
||||
die "Could not write out reference_archive.txt!\n";
|
||||
print NOTICE "The reference archive for this backup was:\n";
|
||||
- print NOTICE `/bin/ls -ltv $config->{'DESTINATION'}/$reference_archive/*.dar`;
|
||||
+ print NOTICE `$config->{'LS_BINARY'} -ltv $config->{'DESTINATION'}/$reference_archive/*.dar`;
|
||||
close NOTICE;
|
||||
} # nonblank
|
||||
} else {
|
||||
@@ -184,12 +186,14 @@
|
||||
}
|
||||
|
||||
# Wipe out old stuff
|
||||
-wipe_dir($config->{'DESTINATION'}."/$current_archive") if $config->{'REMOVE_FIRST'};
|
||||
+if (lc $config->{'REMOVE_FIRST'} eq 'yes') {
|
||||
+ wipe_dir($config->{'DESTINATION'}."/$current_archive");
|
||||
+}
|
||||
|
||||
# Launch DAR
|
||||
my_print($config, "Creating backup with DAR... ");
|
||||
|
||||
-my $command = $config->{'DAR_COMMAND'}." ".$reference_basename." > /tmp/tmp.$$";
|
||||
+my $command = $config->{'DAR_COMMAND'}." ".$reference_basename." > $config->{'TEMP_LOG'}";
|
||||
$command =~ s|//|/|g; # Remove double //
|
||||
my_print($config, "'$command'\n") if $verbose;
|
||||
my $dar_result = system $command;
|
||||
@@ -197,17 +201,17 @@
|
||||
if ($dar_result != 0) {
|
||||
die "Fatal error: dar failed with error code $dar_result\n";
|
||||
} else {
|
||||
- open LOGF, "</tmp/tmp.$$";
|
||||
+ open LOGF, "< $config->{'TEMP_LOG'}";
|
||||
while (<LOGF>) {
|
||||
my_print($config, $_);
|
||||
};
|
||||
close LOGF;
|
||||
- unlink "/tmp/tmp.$$";
|
||||
+ unlink "$config->{'TEMP_LOG'}";
|
||||
} # DAR results
|
||||
|
||||
if (lc $config->{'TEST_ARCHIVE'} eq 'yes') {
|
||||
my_print($config, "\nTesting the archive for errors...\n");
|
||||
- my $testcmd = $config->{'DAR_BINARY'}." -t ".$config->{'DESTINATION'}."/".$config->{'WORK_DIR'}."/".$config->{'BASENAME'}." --noconf";
|
||||
+ my $testcmd = $config->{'DAR_BINARY'}." -Q -t ".$config->{'DESTINATION'}."/".$config->{'WORK_DIR'}."/".$config->{'BASENAME'}." --noconf";
|
||||
$testcmd =~ s|//|/|g; # Remove double //
|
||||
my_print($config, "$testcmd\n") if $verbose;
|
||||
my $pid = fork;
|
||||
@@ -223,7 +227,9 @@
|
||||
} # TEST_ARCHIVE
|
||||
|
||||
# Wipe out old stuff (unless already done before)
|
||||
-wipe_dir($config->{'DESTINATION'}."/$current_archive") unless $config->{'REMOVE_FIRST'};
|
||||
+if (lc $config->{'REMOVE_FIRST'} ne 'yes') {
|
||||
+ wipe_dir($config->{'DESTINATION'}."/$current_archive");
|
||||
+}
|
||||
|
||||
# Move into the work directory
|
||||
chdir "$config->{'DESTINATION'}/$config->{'WORK_DIR'}" or die "A valid dar backup may be present, but couldn't chdir to test it?!\n";
|
||||
diff -Nru baras/etc/baras/baras.conf baras-new/etc/baras/baras.conf
|
||||
--- baras/etc/baras/baras.conf 2007-08-13 03:37:10.000000000 +0200
|
||||
+++ baras-new/etc/baras/baras.conf 2008-08-20 23:32:16.000000000 +0200
|
||||
+++ baras-new/etc/baras/baras.conf 2009-02-22 21:41:00.000000000 +0100
|
||||
@@ -50,8 +50,8 @@
|
||||
REMOVE_FIRST="no"
|
||||
|
||||
@ -41,3 +121,10 @@ diff -Nru baras/etc/baras/baras.conf baras-new/etc/baras/baras.conf
|
||||
|
||||
# The temporary directory name that backups will be created in. This will be created underneath $DESTINATION.
|
||||
WORK_DIR=".baras_temp_workdir"
|
||||
@@ -107,5 +107,5 @@
|
||||
DAR_COMMAND="$DAR_BINARY -Q --batch $BARAS_ETC/$BARAS_DCF -c $DAR_CREATE --noconf"
|
||||
|
||||
# Location and name of temporary log file
|
||||
-TEMP_LOG="$BARAS_ETC/baras_temp.log"
|
||||
+TEMP_LOG="/tmp/baras_temp.log"
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user