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	dpavlin	4	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	dpavlin	53	my $dsn = $Conf{SearchDSN};
10			my $db_user = $Conf{SearchUser} \|\| '';
11	dpavlin	4
12	dpavlin	53	sub action() {
13			my $cont = "";
14			my $title;
15			my $subtitle;
16			my @files;
17
18	iklaric	137	my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 0 } );
19	dpavlin	53
20			BackupPC::CGI::Lib::NewRequest();
21	iklaric	121	# $cont = Dumper(%In);
22	dpavlin	53	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	dpavlin	4
31			EOF
32
33	iklaric	121	$cont .= "Backups that have not been archived:<br>";
34	dpavlin	53	$cont .= BackupPC::SearchLib::displayBackupsGrid();
35	dpavlin	4
36	dpavlin	53	} else {
37	dpavlin	4
38	iklaric	121	my @selectedBackups;
39	dpavlin	4
40	iklaric	121	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	dpavlin	53
50	iklaric	137
51	iklaric	121	# 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	dpavlin	53
59
60	iklaric	121	$dbh->do($kveri);
61	iklaric	137
62	iklaric	121	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	dpavlin	53
68	iklaric	121	# insertaj u archive_backup
69
70	dpavlin	53
71	iklaric	121	my $kveri = q{
72			INSERT INTO archive_backup
73			SELECT
74			(SELECT last_value FROM archive_id_seq),}.
75			$backup.',\'ok\';';
76	dpavlin	53
77	iklaric	121	$dbh->do($kveri);
78			}
79	dpavlin	53
80	iklaric	137	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	iklaric	121
92	iklaric	137
93	iklaric	121	# insertaj u workflows
94			my $kveri = q{
95	iklaric	137	INSERT INTO workflows( id, step_id, start, stop, username, archive_id , running)
96	iklaric	121	SELECT
97	iklaric	137	nextVal('workflows_id_seq'),
98			(SELECT currVal('workflow_step_id_seq')),
99	iklaric	121	NOW(),
100			NULL,
101			'dummy',
102			(SELECT last_value FROM archive_id_seq),
103	iklaric	137	true;
104	iklaric	121	};
105	iklaric	137	$dbh->do($kveri);
106
107			$dbh->commit();
108	dpavlin	4	}
109
110	dpavlin	53	Header($Lang->{Burn_media}, "", 1, "", $cont);
111			Trailer();
112			$dbh->disconnect();
113			}
114	dpavlin	4
115			1;