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); |
47 |
} |
} |
48 |
} |
} |
49 |
|
|
50 |
|
|
51 |
# kreiraj arhivu |
# kreiraj arhivu |
52 |
my $kveri = q{ |
my $kveri = q{ |
53 |
INSERT INTO archive |
INSERT INTO archive |
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]; |
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); |