/[BackupPC]/trunk/lib/BackupPC/CGI/BurnMedia.pm
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/lib/BackupPC/CGI/BurnMedia.pm

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

revision 145 by dpavlin, Fri Oct 7 11:15:28 2005 UTC revision 146 by iklaric, Fri Oct 7 12:03:05 2005 UTC
# Line 39  EOF Line 39  EOF
39    
40                  my $total_size = 0;                  my $total_size = 0;
41                                    
42                  foreach my $key(keys(%In)) {                  foreach my $key(keys(%In))
43                          if ($key =~ m/^fcb([0-9]+)_([0-9]+)_([0-9]+)$/gi) {                  {
44                                  my ($host_id, $backup_num, $backup_id) = ($1,$2,$3);                          if ($key =~ m/fcb([0-9]+)_([0-9]+)/gi)
45                                  push @selected_backup_ids, $backup_id;                          {
46                                  $total_size += getGzipSize($host_id, $backup_num);                                  my $hostID = $1;
47                                    my $backupnum = $2;
48                                    push(@selectedBackups, ($hostID, $backupnum));
49                                    $total_size += BackupPC::SearchLib::getGzipSize($hostID, $backupnum);
50                          }                          }
51                  }                  }
52    
# Line 72  EOF Line 75  EOF
75                          $cont .= "Selected backups exceed max archive size.";                          $cont .= "Selected backups exceed max archive size.";
76                  } else {                  } else {
77    
78    
79                          foreach my $backup_id (@selected_backup_ids) {                          foreach my $backup_id (@selected_backup_ids) {
80    
81                                  # link backups with archive                                  # link backups with archive
# Line 96  EOF Line 100  EOF
100                                          </div>                                          </div>
101                                  };                                  };
102                          }                          }
103                            $dbh->commit();
104                  }                  }
105          }          }
106    
Legend:
Removed from v.145  
changed lines
  Added in v.146
  ViewVC Help
Powered by ViewVC 1.1.26