[slbackup-commit] CVS update: slbackup/src slbackup-cron
werner at alioth.debian.org
werner at alioth.debian.org
Fri Feb 3 23:27:38 UTC 2006
User: werner
Date: 06/02/03 23:27:38
Modified: src slbackup-cron
Log:
last commits before release..
Revision Changes Path
1.18 +23 -23 slbackup/src/slbackup-cron
Index: slbackup-cron
===================================================================
RCS file: /cvsroot/slbackup/slbackup/src/slbackup-cron,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- slbackup-cron 3 Feb 2006 23:19:53 -0000 1.17
+++ slbackup-cron 3 Feb 2006 23:27:38 -0000 1.18
@@ -76,7 +76,7 @@
logger ("Unable to read config file ($conffile), exiting.");
logger ("Finished slbackup.");
close (LOG);
- dir ("Unable to open config file ($conffile), \nexiting ");
+ die ("Unable to open config file ($conffile), \nexiting ");
}
# run executables in $scripts_predir
@@ -85,14 +85,14 @@
logger ("Successfully running scripts in $scripts_predir.");
} elsif ( $retval_predir eq -1 ) {
logger ("Failed reading $scripts_predir.");
- $errorclient += 1;
+ $errorclients += 1;
} elsif ( $retval_predir eq -2 ) {
logger ("Failed to run one or more scripts in $scripts_predir.");
- $errorclient += 1;
+ $errorclients += 1;
} else {
logger ("Something strange happened when running scripts in\n" . \
"$scripts_predir");
- $errorclient += 1;
+ $errorclients += 1;
}
# run rdiff-backup for each client in configuration
@@ -112,7 +112,7 @@
logger ("Address for server is not present in configuration " .
"file... please fix!");
logger("Failed backing up clients.");
- $errorclient += 1;
+ $errorclients += 1;
last;
}
@@ -128,7 +128,7 @@
logger ("Couldn't resolve host " .
"\'$config->{server_address}\' ");
logger ("Failed backing up clients.");
- $errorclient += 1;
+ $errorclients += 1;
last;
}
}
@@ -138,7 +138,7 @@
logger ("Username for server is not present in configuration " .
"file... please fix!");
logger("Failed backing up clients.");
- $errorclient += 1;
+ $errorclients += 1;
last;
}
@@ -149,7 +149,7 @@
if (`$sshteststr` ne "1") {
logger ("ssh-connection to server $key failed...");
logger ("Failed backing up clients.");
- $errorclient += 1;
+ $errorclients += 1;
last;
}
@@ -160,7 +160,7 @@
logger ("rdiff-backup does not have the same version on " .
"this computer and the backup server... please fix!");
logger ("Failed backing up clients.");
- $errorclient += 1;
+ $errorclients += 1;
last;
}
@@ -173,7 +173,7 @@
logger ("Destination directory (server_destdir) does not seem \n" .
"to exist on the backup server... please fix!");
logger ("Failed backing up clients.");
- $errorclient += 1;
+ $errorclients += 1;
last;
}
@@ -188,7 +188,7 @@
logger ("Destination directory (server_destdir) does not seem \n" .
"to exist on the backup server... please fix!");
logger ("Failed backing up clients.");
- $errorclient += 1;
+ $errorclients += 1;
last;
}
}
@@ -199,7 +199,7 @@
logger ("Destination directory on the server is not specified " .
"in the configuration... please fix!");
logger ("Failed backing up clients.");
- $errorclient += 1;
+ $errorclients += 1;
last;
}
$execstr_serverpart .= "$config->{server_destdir}/$key";
@@ -220,7 +220,7 @@
logger ("Address for client $key is not present in " .
"configuration... please fix!");
logger ("Backup of client $key failed.");
- $errorclient += 1;
+ $errorclients += 1;
next;
}
@@ -238,7 +238,7 @@
logger ("Couldn't resolve host " .
"\'$config->{client}->{$key}->{address}\' ");
logger ("Backup of client $key failed.");
- $errorclient += 1;
+ $errorclients += 1;
next;
}
}
@@ -248,7 +248,7 @@
logger ("Username for client $key is not present in " .
"configuration... please fix!");
logger ("Backup of client $key failed");
- $errorclient += 1;
+ $errorclients += 1;
next;
}
@@ -259,7 +259,7 @@
if (`$sshteststr` ne "1") {
logger ("ssh-connection to $key failed...");
logger ("Failed backing up client $key.");
- $errorclient += 1;
+ $errorclients += 1;
next;
}
@@ -270,7 +270,7 @@
logger ("rdiff-backup does not have the same version on this " .
"computer and the client $key... please fix!");
logger ("Failed backing up client $key.");
- $errorclient += 1;
+ $errorclients += 1;
next;
}
@@ -318,7 +318,7 @@
logger ("Locations for client $key is not present in " .
"configuration... please fix!");
logger ("No files from client $key will be backed up.");
- $errorclient += 1;
+ $errorclients += 1;
next;
} elsif (ref ($config->{client}->{$key}->{location}) eq "ARRAY") {
# there are more than one location => location is an array
@@ -372,7 +372,7 @@
logger ("Removing backups older than $client_keep days succeeded!");
} else {
logger ("Failed removing backups older than $client_keep.");
- $errorclient += 1;
+ $errorclients += 1;
}
}
@@ -398,14 +398,14 @@
logger ("Successfully running of scripts in $scripts_postdir.");
} elsif ( $retval_postdir eq -1 ) {
logger ("Failed reading $scripts_postdir.");
- $errorclient += 1;
+ $errorclients += 1;
} elsif ( $retval_postdir eq -2 ) {
logger ("Failed to run one or more scripts in $scripts_postdir.");
- $errorclient += 1;
+ $errorclients += 1;
} else {
logger ("Something strange happened when running scripts in\n" . \
"$scripts_postdir");
- $errorclient += 1;
+ $errorclients += 1;
}
logger ("Finished slbackup.");
More information about the slbackup-commit
mailing list