/[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 205 by dpavlin, Fri Oct 14 16:46:33 2005 UTC revision 206 by dpavlin, Sat Oct 15 12:01:31 2005 UTC
# Line 21  my $bpc = BackupPC::Lib->new(undef, unde Line 21  my $bpc = BackupPC::Lib->new(undef, unde
21  my %Conf = $bpc->Conf();  my %Conf = $bpc->Conf();
22  %BackupPC::SearchLib::Conf = %Conf;  %BackupPC::SearchLib::Conf = %Conf;
23    
24  my $cdrecord = $Conf{CDRecordBin} || die "Need CDRecordBin in config.pl\n";  my $conf_bin;
25    
26    $conf_bin->{'cdrecord'} = $Conf{CDRecordBin} || die "Need CDRecordBin in config.pl\n";
27  my $cdr_opts = $Conf{CDRecordOpts} || die "Need CDRecordOpts in config.pl\n";  my $cdr_opts = $Conf{CDRecordOpts} || die "Need CDRecordOpts in config.pl\n";
28    $conf_bin->{'eject'} = $Conf{ejectBin} || die "Need ejectBin in config.pl\n";
29    my $eject_opts = $Conf{ejectOpts} || die "Need ejectOpts in config.pl\n";
30    $conf_bin->{'mkisofs'} = $Conf{mkisofsBin} || die "Need mkisofsBin in config.pl\n";
31    
32    
33  my $bin;  my $bin;
34  foreach my $c (qw/mkisofs eject/, $cdrecord) {  foreach my $c (qw/cdrecord eject mkisofs/) {
35          $bin->{$c} = which($c) || die "$0 needs $c, install it\n";          $bin->{$c} = which($conf_bin->{$c}) || die "$0 needs $c ($conf_bin->{$c}), install it\n";
36  }  }
37    
38  my $start_t = time();  my $start_t = time();
# Line 366  foreach my $arc (@archives_to_burn) { Line 371  foreach my $arc (@archives_to_burn) {
371    
372                          print "\nREADY TO BURN MEDIA $disk_name copy $copy_nr\n\nPlease insert blank media and press ENTER\n\n";                          print "\nREADY TO BURN MEDIA $disk_name copy $copy_nr\n\nPlease insert blank media and press ENTER\n\n";
373    
374                          system($bin->{'eject'}) == 0 or skip "can't run eject: $?";                          system($bin->{'eject'}.' '.$eject_opts) == 0 or skip "can't run eject: $?";
375    
376                          my $wait = <STDIN>;                          my $wait = <STDIN>;
377    
378                          my $cmd = $bin->{$cdrecord} . ' ' . $cdr_opts . ' ' . $iso_file;                          my $cmd = $bin->{'cdrecord'} . ' ' . $cdr_opts . ' ' . $iso_file;
379    
380                          # FIXME                          # FIXME
381                          print "## $cmd\n";                          print "## $cmd\n";
Legend:
Removed from v.205  
changed lines
  Added in v.206
  ViewVC Help
Powered by ViewVC 1.1.26