24 |
|
|
25 |
my %opt; |
my %opt; |
26 |
|
|
27 |
if ( !getopts("cdm:", \%opt ) ) { |
if ( !getopts("cdm:v", \%opt ) ) { |
28 |
print STDERR <<EOF; |
print STDERR <<EOF; |
29 |
usage: $0 [-c|-d] [-m num] |
usage: $0 [-c|-d] [-m num] |
30 |
|
|
123 |
print " done...\n"; |
print " done...\n"; |
124 |
} |
} |
125 |
|
|
126 |
|
if ($opt{v}) { |
127 |
|
print "Debug level at $opt{v}\n"; |
128 |
|
$debug = $opt{v}; |
129 |
|
} |
130 |
|
|
131 |
#################################INSERT VALUES############################# |
#################################INSERT VALUES############################# |
132 |
|
|
133 |
# get hosts |
# get hosts |
198 |
my ($broj) = $sth->{backups_broj}->fetchrow_array(); |
my ($broj) = $sth->{backups_broj}->fetchrow_array(); |
199 |
next if ($broj > 0); |
next if ($broj > 0); |
200 |
|
|
201 |
my $files = BackupPC::View->new($bpc, $hostname, \@backups); |
my $files = BackupPC::View->new($bpc, $hostname, \@backups, 1); |
202 |
foreach my $share ($files->shareList($backupNum)) { |
foreach my $share ($files->shareList($backupNum)) { |
203 |
|
|
204 |
print "\t$share"; |
print "\t$share"; |
285 |
{ # scope |
{ # scope |
286 |
my @stack; |
my @stack; |
287 |
|
|
288 |
my $files = BackupPC::View->new($bpc, $hostname, $backups); |
my $files = BackupPC::View->new($bpc, $hostname, $backups, 1); |
289 |
my $filesInBackup = $files->dirAttrib($backupNum, $share, $dir); |
my $filesInBackup = $files->dirAttrib($backupNum, $share, $dir); |
290 |
|
|
291 |
# first, add all the entries in current directory |
# first, add all the entries in current directory |