From ee72b16012de7b99df222310893aa0470da16ff1 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 16 Feb 2011 16:07:10 +0100 Subject: [PATCH] all backup parts will be attached to first share in backups --- bin/BackupPC_ASA_PostArchive_Update | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/bin/BackupPC_ASA_PostArchive_Update b/bin/BackupPC_ASA_PostArchive_Update index 445a171..0b3eff9 100755 --- a/bin/BackupPC_ASA_PostArchive_Update +++ b/bin/BackupPC_ASA_PostArchive_Update @@ -80,21 +80,22 @@ sub get_backup_id($$) { my $key = "$host $num"; return $hsn_cache->{$key} if ($hsn_cache->{$key}); + # all backup parts will be attached to first share in backups my $sth = $dbh->prepare(qq{ SELECT - backups.id + min(backups.id) FROM backups INNER JOIN shares ON backups.shareID=shares.ID INNER JOIN hosts ON backups.hostID = hosts.ID WHERE hosts.name = ? and backups.num = ? }); $sth->execute($host, $num); - die "can't find backup $host:$num" unless $sth->rows; + die "can't find backup $host:$num" unless $sth->rows == 1; my ($id) = $sth->fetchrow_array; - $hsn_cache->{"$host $num"} = $id; + $hsn_cache->{$key} = $id; - print STDERR "# $host $num == $id\n" if $opt->debug; + print STDERR "# $key == $id\n" if $opt->debug; return $id; } -- 2.20.1