/[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 143 by iklaric, Fri Oct 7 09:36:10 2005 UTC revision 144 by iklaric, Fri Oct 7 10:28:55 2005 UTC
# Line 37  EOF Line 37  EOF
37          } else {          } else {
38    
39                  my @selectedBackups;                  my @selectedBackups;
40                    my $total_size = 0;
41                    
42                  foreach my $key(keys(%In))                  foreach my $key(keys(%In))
43                  {                  {
44                          if ($key =~ m/fcb([0-9]+)_([0-9]+)/gi)                          if ($key =~ m/fcb([0-9]+)_([0-9]+)/gi)
# Line 45  EOF Line 46  EOF
46                                  my $hostID = $1;                                  my $hostID = $1;
47                                  my $backupnum = $2;                                  my $backupnum = $2;
48                                  push(@selectedBackups, ($hostID, $backupnum));                                  push(@selectedBackups, ($hostID, $backupnum));
49                                    $total_size += getGzipSize($hostID, $backupnum);
50                          }                          }
51                  }                  }
52    
53                    if ($total_size > $Conf{MaxArchiveSize})
54                  # kreiraj arhivu                  {
55                  my $kveri = q{                          $cont .= eval( q{ ${h2(Error)}});
56                            $cont .= "Selected backups exceed max archive size.";                  
57                    }
58                    else
59                    {
60                            # kreiraj arhivu
61                            my $kveri = q{
62                                                  INSERT INTO archive                                                  INSERT INTO archive
63                                                  (id, dvd_nr, note, username, date)                                                  (id, dvd_nr, note, username, date)
64                                                  VALUES}                                                  VALUES}
# Line 58  EOF Line 66  EOF
66                                                  "(nextVal('archive_id_seq'), nextVal('dvd_nr'), '".%In->{'note'}."', 'dummy', NOW());";                                                  "(nextVal('archive_id_seq'), nextVal('dvd_nr'), '".%In->{'note'}."', 'dummy', NOW());";
67    
68    
69                  $dbh->do($kveri);                                                                  $dbh->do($kveri);                                        
70                                    
71                  for (my $i = 0; $i <= @selectedBackups /2; $i++)                          for (my $i = 0; $i <= @selectedBackups /2; $i++)
72                  {                          {
73                          my $host = $selectedBackups[$i*2];                                  my $host = $selectedBackups[$i*2];
74                          my $backup = $selectedBackups[$i*2+1];                                  my $backup = $selectedBackups[$i*2+1];
75                          last if ($host == undef && $backup == undef);                                  last if ($host == undef && $backup == undef);
76            
77                          # insertaj u archive_backup                                  # insertaj u archive_backup
78                                                            
79            
80                                    my $kveri = q{
81                                                                    INSERT INTO archive_backup
82                                                                    SELECT
83                                                                            (SELECT last_value FROM archive_id_seq),}.
84                                                                            $backup.',\'ok\';';
85            
86                                    $dbh->do($kveri);
87                            }
88            
89                            my $kveri = q{
90                                                            INSERT INTO workflow_step(step_id, code, next_step, stop)
91                                                            VALUES
92                                                            (
93                                                                    nextVal('workflow_step_id_seq'),
94                                                                    'start',
95                                                                    NULL,
96                                                                    false
97                                                            );                                              
98                                                     };
99                            $dbh->do($kveri);
100            
101            
102                            # insertaj u workflows
103                          my $kveri = q{                          my $kveri = q{
104                                                          INSERT INTO archive_backup                                                          INSERT INTO workflows( id, step_id, start, stop, username, archive_id   , running)
105                                                          SELECT                                                          SELECT
106                                                                  (SELECT last_value FROM archive_id_seq),}.                                                                  nextVal('workflows_id_seq'),
107                                                                  $backup.',\'ok\';';                                                                  (SELECT currVal('workflow_step_id_seq')),
108                                                                    NOW(),
109                                                                    NULL,
110                                                                    'dummy',
111                                                                    (SELECT last_value FROM archive_id_seq),
112                                                                    true;
113                                                    };
114                          $dbh->do($kveri);                          $dbh->do($kveri);
115                    
116                            $dbh->commit();
117                  }                  }
   
                 my $kveri = q{  
                                                 INSERT INTO workflow_step(step_id, code, next_step, stop)  
                                                 VALUES  
                                                 (  
                                                         nextVal('workflow_step_id_seq'),  
                                                         'start',  
                                                         NULL,  
                                                         false  
                                                 );                                                
                                          };  
                 $dbh->do($kveri);  
   
   
                 # insertaj u workflows  
                 my $kveri = q{  
                                                 INSERT INTO workflows( id, step_id, start, stop, username, archive_id   , running)  
                                                 SELECT  
                                                         nextVal('workflows_id_seq'),  
                                                         (SELECT currVal('workflow_step_id_seq')),  
                                                         NOW(),  
                                                         NULL,  
                                                         'dummy',  
                                                         (SELECT last_value FROM archive_id_seq),  
                                                         true;  
                                         };  
                 $dbh->do($kveri);  
           
                 $dbh->commit();  
118          }          }
119                                
120          Header($Lang->{Burn_media}, "", 1, "", $cont);          Header($Lang->{Burn_media}, "", 1, "", $cont);
121          Trailer();          Trailer();
122          $dbh->disconnect();          $dbh->disconnect();
Legend:
Removed from v.143  
changed lines
  Added in v.144
  ViewVC Help
Powered by ViewVC 1.1.26