2 #============================================================= -*-perl-*-
4 # BackupPC_archiveStart: start an archive request from the
9 # Usage: BackupPC_archiveStart archiveHost userName hosts...
11 # Initiates an archive request on archive host archiveHost
12 # for the listed hosts. The latest backup for each host is
13 # archived. The userName is name of the requesting user,
14 # which appears in the log files.
17 # Craig Barratt <cbarratt@users.sourceforge.net>
18 # Dobrica Pavlinusic <dpavlin@rot13.org>
21 # Copyright (C) 2007-2009 Craig Barratt
23 # This program is free software; you can redistribute it and/or modify
24 # it under the terms of the GNU General Public License as published by
25 # the Free Software Foundation; either version 2 of the License, or
26 # (at your option) any later version.
28 # This program is distributed in the hope that it will be useful,
29 # but WITHOUT ANY WARRANTY; without even the implied warranty of
30 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
31 # GNU General Public License for more details.
33 # You should have received a copy of the GNU General Public License
34 # along with this program; if not, write to the Free Software
35 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
37 #========================================================================
39 # Version 3.2.0, released 31 Jul 2010.
41 # See http://backuppc.sourceforge.net.
43 #========================================================================
47 use lib "/usr/local/BackupPC/lib";
52 use Data::Dump qw(dump);
54 my $debug = $ENV{DEBUG} || 0;
56 die("BackupPC::Lib->new failed\n") if ( !(my $bpc = BackupPC::Lib->new) );
60 # no options currently
61 if ( !getopts("", \%opts) || @ARGV < 2 ) {
63 usage: $0 archiveHost userName [hosts[:num]...]
68 my %Conf = $bpc->Conf();
70 my $dbh = DBI->connect($Conf{SearchDSN}, $Conf{SearchUser}, "", { RaiseError => 1, AutoCommit => 0 });
72 my $sth = $dbh->prepare(qq{
74 backups.id as backup_id,
81 join hosts on hosts.id = hostid
85 my $Hosts = $bpc->HostInfoRead();
86 my $ArchiveHost = shift @ARGV;
87 my $UserName = shift @ARGV;
88 my @HostFilter = @ARGV;
89 my $TopDir = $bpc->{Conf}{TopDir};
91 if ( !defined($Hosts->{$ArchiveHost}) ) {
92 print(STDERR "$0: archive host $ArchiveHost doesn't exist... quitting\n");
95 $bpc->ConfigRead($ArchiveHost);
97 my(@HostList, @BackupList);
102 foreach my $host ( keys %$Hosts ) {
104 my @backups = $bpc->BackupInfoRead($host);
106 warn "$0: host $host doesn't have any backups... skipping\n";
110 my $all_backup_numbers;
111 $all_backup_numbers->{ $_->{num} }++ foreach @backups;
113 $sth->execute( $host );
114 while ( my $row = $sth->fetchrow_hashref ) {
115 warn "# row ",dump($row) if $debug;
116 $all_backup_numbers->{ $row->{num} } =
117 $row->{inc_deleted} ? 0 :
118 $row->{size} == 0 ? 0 :
119 $row->{inc_size} > 0 ? 0 :
120 $row->{size} > 0 ? 1 :
124 warn "# $host all_backup_numbers = ",dump($all_backup_numbers),"\n";
126 $host_nums->{$host} = [
128 grep { $all_backup_numbers->{$_} }
129 keys %$all_backup_numbers
133 foreach ( @HostFilter ) {
134 my ($host,$num) = split(/:/,$_,2);
135 if ( !defined($Hosts->{$host}) ) {
136 print(STDERR "$0: host $host doesn't exist... quitting\n");
139 if ( defined $num ) {
140 warn "+ $host $num\n";
141 push(@HostList, $host);
142 push(@BackupList, $num);
144 foreach my $num ( @{ $host_nums->{$host} } ) {
145 warn "+ $host $num\n";
146 push(@HostList, $host);
147 push(@BackupList, $num);
152 if ( ! @HostFilter ) {
153 foreach my $host ( keys %$host_nums ) {
154 foreach my $num ( @{ $host_nums->{$host} } ) {
155 warn "+ $host $num\n";
156 push(@HostList, $host);
157 push(@BackupList, $num);
162 warn "# HostList=",dump(@HostList),"\n";
163 warn "# BackupList=",dump(@BackupList),"\n";
168 for ( my $i = 0 ; ; $i++ ) {
169 $ReqFileName="archiveReq.$$.$i";
170 last if ( !-f "$TopDir/pc/$ArchiveHost/$ReqFileName" );
173 archiveloc => $bpc->{Conf}{ArchiveDest},
175 compression => $bpc->{Conf}{ArchiveComp} eq 'none' ? $bpc->{Conf}{CatPath}
176 : ($bpc->{Conf}{ArchiveComp} eq 'gzip'
177 ? $bpc->{Conf}{GzipPath} : $bpc->{Conf}{Bzip2Path}),
178 compext => $bpc->{Conf}{ArchiveComp} eq 'none' ? ''
179 : ($bpc->{Conf}{ArchiveComp} eq 'gzip' ? '.gz' : '.bz2'),
180 parfile => $bpc->{Conf}{ArchivePar},
181 splitsize => $bpc->{Conf}{ArchiveSplit} . '000000', # mb -> bytes
182 host => $ArchiveHost,
183 HostList => \@HostList,
184 BackupList => \@BackupList,
188 my $archive = Data::Dumper->new([\%ArchiveReq], [qw(*ArchiveReq)]);
190 if ( !open(REQ, ">", "$TopDir/pc/$ArchiveHost/$ReqFileName") ) {
191 print(STDERR "$0: can't open/write request file $TopDir/pc/$ArchiveHost/$ReqFileName... quitting\n");
195 print REQ $archive->Dump;
197 $bpc->ServerConnect($bpc->{Conf}{ServerHost}, $bpc->{Conf}{ServerPort});
198 my $reply = $bpc->ServerMesg("archive $UserName $ArchiveHost $ReqFileName");
199 $bpc->ServerDisconnect();
200 print("Sent archive request, reply: $reply\n");