91 |
backups.date AS date, |
backups.date AS date, |
92 |
shares.name AS share, |
shares.name AS share, |
93 |
backups.size AS backup_size, |
backups.size AS backup_size, |
94 |
backups.inc_size AS compress_size |
backups.inc_size AS compress_size, |
95 |
|
backups.parts AS parts |
96 |
FROM backups, archive_backup, hosts, shares |
FROM backups, archive_backup, hosts, shares |
97 |
WHERE archive_backup.backup_id = backups.id |
WHERE archive_backup.backup_id = backups.id |
98 |
AND hosts.id=backups.hostid |
AND hosts.id=backups.hostid |
171 |
$row->{'copies'} =~ s/^\s*0+\s*$/no/; |
$row->{'copies'} =~ s/^\s*0+\s*$/no/; |
172 |
$row->{'total_size'} /= (1024*1024); |
$row->{'total_size'} /= (1024*1024); |
173 |
|
|
174 |
my $copies = 'copies'; |
my $copies = $row->{'copies'}; |
175 |
$copies = 'copy' if ($row->{'copies'} == 1); |
if ($row->{'parts'} > 1) { |
176 |
|
$copies .= '/' . $row->{'parts'}; |
177 |
|
} |
178 |
|
|
179 |
|
my $copies_dest = 'copies'; |
180 |
|
$copies_dest = 'copy' if ($row->{'copies'} == 1); |
181 |
|
|
182 |
return |
return |
183 |
sprintf("%d by %s on %s, %s %s [%.2f Mb]", |
sprintf("%d by %s on %s, %s %s [%.2f Mb]", |
184 |
$row->{'dvd_nr'}, |
$row->{'dvd_nr'}, |
185 |
$row->{'username'}, |
$row->{'username'}, |
186 |
$row->{'date'}, |
$row->{'date'}, |
187 |
$row->{'copies'}, $copies, |
$copies, $copies_dest, |
188 |
$row->{'total_size'}, |
$row->{'total_size'}, |
189 |
); |
); |
190 |
} |
} |
291 |
print "Processing part $part_nr/$parts\n"; |
print "Processing part $part_nr/$parts\n"; |
292 |
|
|
293 |
my $list_file = my $iso_file = my $xml_file = "${iso_dir}/${dvd_nr}"; |
my $list_file = my $iso_file = my $xml_file = "${iso_dir}/${dvd_nr}"; |
294 |
$list_file .= '.list'; |
$list_file .= $part_path . '.list'; |
295 |
$iso_file .= $part_path . '.iso'; |
$iso_file .= $part_path . '.iso'; |
296 |
$xml_file .= '.xml'; |
$xml_file .= '.xml'; |
297 |
|
|
312 |
print $list "$tar_dir/$tar_file\n"; |
print $list "$tar_dir/$tar_file\n"; |
313 |
} else { |
} else { |
314 |
my $len = length("$parts"); |
my $len = length("$parts"); |
315 |
my $nr = sprintf("%0${len}d", $part_nr); |
my $nr = sprintf("%0${len}d", ($part_nr - 1)); |
316 |
print $list "$tar_dir/$tar_file/part$nr\n"; |
print $list "$tar_dir/$tar_file/part$nr\n"; |
317 |
} |
} |
318 |
$inc++; |
$inc++; |