BackupPC/CGI/BurnMedia.pm

package BackupPC::CGI::BurnMedia;

use strict;
use BackupPC::CGI::Lib qw(:all);
use BackupPC::SearchLib;
use Data::Dumper;
use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);

my $dsn = $Conf{SearchDSN};
my $db_user = $Conf{SearchUser} || '';

sub action() {
        my $cont = "";
        my $title;
        my $subtitle;
        my @files;

        my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 0 } );

        BackupPC::CGI::Lib::NewRequest();
#       $cont = Dumper(%In);
        if (!defined($In{submitBurner})) {
                $title = eval(q{ ${h1($Lang->{Burn_media})}});
                $cont = Dumper(%In);
                $subtitle = eval(q{ ${h2($Lang->{Burn_media_select})}});
                $cont = <<EOF;

        $title
        $subtitle
        
EOF
              
                $cont .= "Backups that have not been archived:<br>";
                $cont .= BackupPC::SearchLib::displayBackupsGrid();
            
        } else {

                my @selectedBackups;

                foreach my $key(keys(%In))
                {
                        if ($key =~ m/fcb([0-9]+)_([0-9]+)/gi)
                        {
                                my $hostID = $1;
                                my $backupnum = $2;
                                push(@selectedBackups, ($hostID, $backupnum));
                        }
                }


                # kreiraj arhivu
                my $kveri = q{
                                                INSERT INTO archive
                                                (id, dvd_nr, note, username, date)
                                                VALUES}
                                                .
                                                "(nextVal('archive_id_seq'), nextVal('dvd_nr'), '".%In->{'note'}."', 'dummy', NOW());";


                $dbh->do($kveri);                                        
                
                for (my $i = 0; $i <= @selectedBackups /2; $i++)
                {
                        my $host = $selectedBackups[$i*2];
                        my $backup = $selectedBackups[$i*2+1];
                        last if ($host == undef && $backup == undef);

                        # insertaj u archive_backup
                        

                        my $kveri = q{
                                                        INSERT INTO archive_backup
                                                        SELECT
                                                                (SELECT last_value FROM archive_id_seq),}.
                                                                $backup.',\'ok\';';

                        $dbh->do($kveri);
                }

                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();
        }
      
        Header($Lang->{Burn_media}, "", 1, "", $cont);
        Trailer();
        $dbh->disconnect();
}

1;
1	package BackupPC::CGI::BurnMedia;
2
3	use strict;
4	use BackupPC::CGI::Lib qw(:all);
5	use BackupPC::SearchLib;
6	use Data::Dumper;
7	use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
8
9	my $dsn = $Conf{SearchDSN};
10	my $db_user = $Conf{SearchUser} \|\| '';
11
12	sub action() {
13	my $cont = "";
14	my $title;
15	my $subtitle;
16	my @files;
17
18	my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 0 } );
19
20	BackupPC::CGI::Lib::NewRequest();
21	# $cont = Dumper(%In);
22	if (!defined($In{submitBurner})) {
23	$title = eval(q{ ${h1($Lang->{Burn_media})}});
24	$cont = Dumper(%In);
25	$subtitle = eval(q{ ${h2($Lang->{Burn_media_select})}});
26	$cont = <<EOF;
27
28	$title
29	$subtitle
30
31	EOF
32
33	$cont .= "Backups that have not been archived:<br>";
34	$cont .= BackupPC::SearchLib::displayBackupsGrid();
35
36	} else {
37
38	my @selectedBackups;
39
40	foreach my $key(keys(%In))
41	{
42	if ($key =~ m/fcb([0-9]+)_([0-9]+)/gi)
43	{
44	my $hostID = $1;
45	my $backupnum = $2;
46	push(@selectedBackups, ($hostID, $backupnum));
47	}
48	}
49
50
51	# kreiraj arhivu
52	my $kveri = q{
53	INSERT INTO archive
54	(id, dvd_nr, note, username, date)
55	VALUES}
56	.
57	"(nextVal('archive_id_seq'), nextVal('dvd_nr'), '".%In->{'note'}."', 'dummy', NOW());";
58
59
60	$dbh->do($kveri);
61
62	for (my $i = 0; $i <= @selectedBackups /2; $i++)
63	{
64	my $host = $selectedBackups[$i*2];
65	my $backup = $selectedBackups[$i*2+1];
66	last if ($host == undef && $backup == undef);
67
68	# insertaj u archive_backup
69
70
71	my $kveri = q{
72	INSERT INTO archive_backup
73	SELECT
74	(SELECT last_value FROM archive_id_seq),}.
75	$backup.',\'ok\';';
76
77	$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
94	my $kveri = q{
95	INSERT INTO workflows( id, step_id, start, stop, username, archive_id , running)
96	SELECT
97	nextVal('workflows_id_seq'),
98	(SELECT currVal('workflow_step_id_seq')),
99	NOW(),
100	NULL,
101	'dummy',
102	(SELECT last_value FROM archive_id_seq),
103	true;
104	};
105	$dbh->do($kveri);
106
107	$dbh->commit();
108	}
109
110	Header($Lang->{Burn_media}, "", 1, "", $cont);
111	Trailer();
112	$dbh->disconnect();
113	}
114
115	1;