/[BackupPC]/trunk/bin/BackupPC_burnArchiveCLI
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/BackupPC_burnArchiveCLI

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 277 by dpavlin, Tue Dec 13 22:55:59 2005 UTC revision 278 by dpavlin, Tue Dec 13 23:47:13 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2    
3  use strict;  use strict;
4  #use lib "__INSTALLDIR__/lib";  use lib "__INSTALLDIR__/lib";
 use lib "/data/backuppc-agi/lib";  
5    
6  use DBI;  use DBI;
7  use BackupPC::Lib;  use BackupPC::Lib;
# Line 323  foreach my $arc (@archives_to_burn) { Line 322  foreach my $arc (@archives_to_burn) {
322    
323          foreach my $v (@volumes) {          foreach my $v (@volumes) {
324    
325                  print Dumper($v);                  #print Dumper($v);
326    
327                  my $iso_size = 0;                  my $iso_size = 0;
328                  my $disk_name = $dvd_nr;                  my $disk_name = $dvd_nr;
# Line 369  foreach my $arc (@archives_to_burn) { Line 368  foreach my $arc (@archives_to_burn) {
368                                  my $rel_path = $tar_file;                                  my $rel_path = $tar_file;
369    
370                                  if (-d "$tar_dir/$rel_path") {                                  if (-d "$tar_dir/$rel_path") {
                                         $rel_path .= '/' . $p->{part_nr};  
371                                          mkpath("$stage/$rel_path") unless (-d "$stage/$rel_path");                                          mkpath("$stage/$rel_path") unless (-d "$stage/$rel_path");
372                                            $rel_path .= '/' . $p->{part_nr};
373                                  }                                  }
374                                  $rel_path .= '.tar.gz';                                  $rel_path .= '.tar.gz';
375    
# Line 410  foreach my $arc (@archives_to_burn) { Line 409  foreach my $arc (@archives_to_burn) {
409    
410                          print "Created $iso_file [$iso_size bytes] in ", fmt_time(time() - $t), "\n";                          print "Created $iso_file [$iso_size bytes] in ", fmt_time(time() - $t), "\n";
411    
412                          # FIXME                          rmtree($stage) || warn "can't remove stage directory $stage: $!";
                         #rmtree($stage) || warn "can't remove stage directory $stage: $!";  
413    
414                  } else {                  } else {
415                          print "ISO $iso_file allready exists\n";                          print "ISO $iso_file allready exists\n";
Legend:
Removed from v.277  
changed lines
  Added in v.278
  ViewVC Help
Powered by ViewVC 1.1.26