186 |
my $backupNum = $backup->{'num'}; |
my $backupNum = $backup->{'num'}; |
187 |
my @backupShares = (); |
my @backupShares = (); |
188 |
|
|
189 |
print $hosts->{$host_key}->{'host'},"\t$backupNum\n"; |
print $hosts->{$host_key}->{'host'},"\t#$backupNum\n"; |
190 |
|
|
191 |
$sth->{backups_broj}->execute($hostID, $backupNum); |
$sth->{backups_broj}->execute($hostID, $backupNum); |
192 |
my ($broj) = $sth->{backups_broj}->fetchrow_array(); |
my ($broj) = $sth->{backups_broj}->fetchrow_array(); |
256 |
my @param = ($shareID,$path,$name,$date,$size); |
my @param = ($shareID,$path,$name,$date,$size); |
257 |
$sth->{file_in_db}->execute(@param); |
$sth->{file_in_db}->execute(@param); |
258 |
my ($rows) = $sth->{file_in_db}->fetchrow_array(); |
my ($rows) = $sth->{file_in_db}->fetchrow_array(); |
259 |
print STDERR ( $rows ? '+' : '-' ), join(" ",@param), "\n"; |
# print STDERR ( $rows ? '+' : '-' ), join(" ",@param), "\n"; |
260 |
return $rows; |
return $rows; |
261 |
} |
} |
262 |
|
|
298 |
|
|
299 |
if (! $beenThere->{$key} && ! found_in_db(@data)) { |
if (! $beenThere->{$key} && ! found_in_db(@data)) { |
300 |
$sth->{'insert_files'}->execute(@data); |
$sth->{'insert_files'}->execute(@data); |
301 |
print STDERR "$key\n"; |
# print STDERR "$key\n"; |
302 |
if ($filesInBackup->{$path_key}->{'type'} == BPC_FTYPE_DIR) { |
if ($filesInBackup->{$path_key}->{'type'} == BPC_FTYPE_DIR) { |
303 |
$new_dirs++; |
$new_dirs++; |
304 |
} else { |
} else { |