projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
begin rewrite to select backup_parts
[BackupPC.git]
/
bin
/
BackupPC_archiveStart
diff --git
a/bin/BackupPC_archiveStart
b/bin/BackupPC_archiveStart
index
ceee9a4
..
c527fa4
100755
(executable)
--- a/
bin/BackupPC_archiveStart
+++ b/
bin/BackupPC_archiveStart
@@
-1,4
+1,4
@@
-#!/bin/perl
+#!/
usr/
bin/perl
#============================================================= -*-perl-*-
#
# BackupPC_archiveStart: start an archive request from the
#============================================================= -*-perl-*-
#
# BackupPC_archiveStart: start an archive request from the
@@
-17,7
+17,7
@@
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
-# Copyright (C) 2007 Craig Barratt
+# Copyright (C) 2007
-2009
Craig Barratt
#
# 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
#
# 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
@@
-35,7
+35,7
@@
#
#========================================================================
#
#
#========================================================================
#
-# Version 3.2.0
beta0, released 17 Jan 2009
.
+# Version 3.2.0
, released 31 Jul 2010
.
#
# See http://backuppc.sourceforge.net.
#
#
# See http://backuppc.sourceforge.net.
#
@@
-54,7
+54,7
@@
my %opts;
# no options currently
if ( !getopts("", \%opts) || @ARGV < 3 ) {
print STDERR <<EOF;
# no options currently
if ( !getopts("", \%opts) || @ARGV < 3 ) {
print STDERR <<EOF;
-usage: $0 archiveHost userName hosts...
+usage: $0 archiveHost userName hosts
[:num]
...
EOF
exit(1);
}
EOF
exit(1);
}
@@
-72,7
+72,7
@@
$bpc->ConfigRead($ArchiveHost);
my(@HostList, @BackupList);
for ( my $i = 2 ; $i < @ARGV ; $i++ ) {
my(@HostList, @BackupList);
for ( my $i = 2 ; $i < @ARGV ; $i++ ) {
- my
$host = $ARGV[$i]
;
+ my
($host,$num) = split(/:/,$ARGV[$i],2)
;
if ( !defined($Hosts->{$host}) ) {
print(STDERR "$0: host $host doesn't exist... quitting\n");
exit(1);
if ( !defined($Hosts->{$host}) ) {
print(STDERR "$0: host $host doesn't exist... quitting\n");
exit(1);
@@
-83,7
+83,8
@@
for ( my $i = 2 ; $i < @ARGV ; $i++ ) {
exit(1);
}
push(@HostList, $host);
exit(1);
}
push(@HostList, $host);
- push(@BackupList, $backups[$#backups]{num});
+ $num ||= $backups[$#backups]{num};
+ push(@BackupList, $num);
}
my $ReqFileName;
}
my $ReqFileName;