/[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 136 by iklaric, Thu Sep 15 13:54:29 2005 UTC revision 137 by iklaric, Thu Sep 29 08:46:13 2005 UTC
# Line 15  sub action() { Line 15  sub action() {
15          my $subtitle;          my $subtitle;
16          my @files;          my @files;
17    
18          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 0 } );
19    
20          BackupPC::CGI::Lib::NewRequest();          BackupPC::CGI::Lib::NewRequest();
21  #       $cont = Dumper(%In);  #       $cont = Dumper(%In);
# Line 47  EOF Line 47  EOF
47                          }                          }
48                  }                  }
49    
50    
51                  # kreiraj arhivu                  # kreiraj arhivu
52                  my $kveri = q{                  my $kveri = q{
53                                                  INSERT INTO archive                                                  INSERT INTO archive
# Line 57  EOF Line 58  EOF
58    
59    
60                  $dbh->do($kveri);                                                          $dbh->do($kveri);                                        
61                    
62                  for (my $i = 0; $i <= @selectedBackups /2; $i++)                  for (my $i = 0; $i <= @selectedBackups /2; $i++)
63                  {                  {
64                          my $host = $selectedBackups[$i*2];                          my $host = $selectedBackups[$i*2];
# Line 76  EOF Line 77  EOF
77                          $dbh->do($kveri);                          $dbh->do($kveri);
78                  }                  }
79    
80                    my $kveri = q{
81                                                    INSERT INTO workflow_step(step_id, code, next_step, stop)
82                                                    VALUES
83                                                    (
84                                                            nextVal('workflow_step_id_seq'),
85                                                            'start',
86                                                            NULL,
87                                                            false
88                                                    );                                              
89                                             };
90                    $dbh->do($kveri);
91    
92    
93                  # insertaj u workflows                  # insertaj u workflows
94                  my $kveri = q{                  my $kveri = q{
95                                                  INSERT INTO workflows                                                  INSERT INTO workflows( id, step_id, start, stop, username, archive_id   , running)
96                                                  SELECT                                                  SELECT
97                                                          (SELECT step_id FROM workflow_step WHERE code='start' LIMIT 1),                                                          nextVal('workflows_id_seq'),
98                                                            (SELECT currVal('workflow_step_id_seq')),
99                                                          NOW(),                                                          NOW(),
100                                                          NULL,                                                          NULL,
101                                                          'dummy',                                                          'dummy',
102                                                          (SELECT last_value FROM archive_id_seq),                                                          (SELECT last_value FROM archive_id_seq),
103                                                          true                                                          true;
104                                          };                                          };
105                    $dbh->do($kveri);
106            
107                    $dbh->commit();
108          }          }
109                
110          Header($Lang->{Burn_media}, "", 1, "", $cont);          Header($Lang->{Burn_media}, "", 1, "", $cont);
Legend:
Removed from v.136  
changed lines
  Added in v.137
  ViewVC Help
Powered by ViewVC 1.1.26