/[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 287 by dpavlin, Sun Jan 15 14:00:14 2006 UTC revision 288 by dpavlin, Sun Jan 15 14:50:39 2006 UTC
# Line 15  use File::Path; Line 15  use File::Path;
15  use Data::Dumper;  use Data::Dumper;
16    
17  my $debug = 0;  my $debug = 0;
18    # set this to 1 to prompt for DVD removal for each selected item.
19    my $prompt_for_delete = 0;
20  $|=1;  $|=1;
21    
22  # don't check for user  # don't check for user
# Line 253  sub add_symlink($$) { Line 255  sub add_symlink($$) {
255          symlink $from, $to || skip("can't symlink $from to $to: $!");          symlink $from, $to || skip("can't symlink $from to $to: $!");
256  }  }
257    
258    sub delete_dvd($) {
259            my $dvd_nr = shift || return;
260    
261            print "Do you want to delete DVD #$dvd_nr now? [NO/yes]: ";
262            my $ok = <STDIN>;
263            chomp($ok);
264            if (lc($ok) eq 'yes') {
265                    print "Deleting DVD #$dvd_nr from database...\n";
266    
267                    $dbh->begin_work;
268    
269                    my $sth_delete_dvd = $dbh->prepare( qq{
270                            delete from archive where dvd_nr = ?
271                    } );
272                    $sth_delete_dvd->execute( $dvd_nr );
273                    $dbh->do( qq{
274                            select setval('dvd_nr', (select max(dvd_nr) from archive), true)
275                    } );
276    
277                    # remove files for this DVD
278                    map {
279                            print "\tremoving $_\n";
280                            unlink($_) || die "can't rm $_: $!";
281                    } glob ( "/$iso_dir/$dvd_nr.*" );
282    
283                    $dbh->commit;
284    
285                    return 1;
286            } else {
287                    return 0;
288            }
289    }
290    
291  my $sth_archive_backup_parts = $dbh->prepare( qq{  my $sth_archive_backup_parts = $dbh->prepare( qq{
292          select          select
293                  archive_backup.backup_id,                  archive_backup.backup_id,
# Line 297  foreach my $arc (@archives_to_burn) { Line 332  foreach my $arc (@archives_to_burn) {
332    
333          if ($sth_archive_backup_parts->rows == 0) {          if ($sth_archive_backup_parts->rows == 0) {
334                  warn "ERROR: no backup parts found for $dvd_nr. You should re-create that DVD.\n";                  warn "ERROR: no backup parts found for $dvd_nr. You should re-create that DVD.\n";
335                  print "Do you want to delete invalid DVD #$dvd_nr now? [NO/yes]: ";                  delete_dvd( $dvd_nr );
336                  my $ok = <STDIN>;          }
                 chomp($ok);  
                 if (lc($ok) eq 'yes') {  
                         print "Deleting DVD #$dvd_nr from database...\n";  
   
                         $dbh->begin_work;  
   
                         my $sth_delete_dvd = $dbh->prepare( qq{  
                                 delete from archive where dvd_nr = ?  
                         } );  
                         $sth_delete_dvd->execute( $dvd_nr );  
                         $dbh->do( qq{  
                                 select setval('dvd_nr', (select max(dvd_nr) from archive), true)  
                         } );  
337    
338                          $dbh->commit;          if ($prompt_for_delete) {
339                  }                  next if delete_dvd( $dvd_nr );
340          }          }
341    
342          my @volumes;          my @volumes;
# Line 351  foreach my $arc (@archives_to_burn) { Line 373  foreach my $arc (@archives_to_burn) {
373                  my $iso_size = 0;                  my $iso_size = 0;
374                  my $disk_name = $dvd_nr;                  my $disk_name = $dvd_nr;
375                  # suffix added to multi-volume archives                  # suffix added to multi-volume archives
376                  my $volume_suffix = $dvd_nr;                  my $volume_suffix = '';
377    
378                  if ($volumes > 1) {                  if ($volumes > 1) {
379                          $volume_suffix = '_' . $volume_nr;                          $volume_suffix = '_' . $volume_nr;
Legend:
Removed from v.287  
changed lines
  Added in v.288
  ViewVC Help
Powered by ViewVC 1.1.26