/[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 263 by dpavlin, Tue Dec 13 00:10:45 2005 UTC revision 380 by iklaric, Wed May 9 07:07:02 2007 UTC
# Line 41  EOF Line 41  EOF
41                  my $selected = 0;                  my $selected = 0;
42    
43                  my $parts = 1;                  my $parts = 1;
   
44                  foreach my $key(keys(%In)) {                  foreach my $key(keys(%In)) {
45                            print LOG "doing $key...";
46                          if ($key =~ m/^fcb([0-9]+)_([0-9]+)_([0-9]+)$/gi) {                          if ($key =~ m/^fcb([0-9]+)_([0-9]+)_([0-9]+)$/gi) {
47    
48                                  my ($host_id, $backup_num, $backup_id) = ($1,$2,$3);                                  my ($host_id, $backup_num, $backup_id) = ($1,$2,$3);
49                                  push @selected_backup_ids, $backup_id;                                  push @selected_backup_ids, $backup_id;
50                                  $total_size += BackupPC::SearchLib::getGzipSize($host_id, $backup_num);                                  my $currSize = BackupPC::SearchLib::getGzipSize($host_id, $backup_num);
51                                    if ($currSize > 0) {
52                                            $total_size += currSize;
53                                    }
54                                  $selected++;                                  $selected++;
55    
56                                  my ($this_part) = $dbh->selectrow_array("select parts from backups where id = ?", undef, $backup_id);                                  my ($this_part) = $dbh->selectrow_array("select parts from backups where id = ?", undef, $backup_id);
57                                  $this_part--;                                  $this_part--;
58                                  $parts += $this_part;                                  $parts += $this_part;
59                          }                          }               }
                 }  
60    
61                  if ($total_size > ($Conf{MaxArchiveSize} * $parts)) {                  if ($total_size > ($Conf{MaxArchiveSize} * $parts)) {
62                          $cont .= eval( q{ ${h2(Error)}});                          $cont .= eval( q{ ${h2(Error)}});
Legend:
Removed from v.263  
changed lines
  Added in v.380
  ViewVC Help
Powered by ViewVC 1.1.26