BackupPC/CGI/BurnMedia.pm

package BackupPC::CGI::BurnMedia;

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