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 => 1 } );

        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);
                }


                # insertaj u workflows
                my $kveri = q{
                                                INSERT INTO workflows
                                                SELECT
                                                        (SELECT step_id FROM workflow_step WHERE code='start' LIMIT 1),
                                                        NOW(),
                                                        NULL,
                                                        'dummy',
                                                        (SELECT last_value FROM archive_id_seq),
                                                        true
                                        };
        }
      
        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			my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
19
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	121	# kreiraj arhivu
51			my $kveri = q{
52			INSERT INTO archive
53			(id, dvd_nr, note, username, date)
54			VALUES}
55			.
56			"(nextVal('archive_id_seq'), nextVal('dvd_nr'), '".%In->{'note'}."', 'dummy', NOW());";
57	dpavlin	53
58
59	iklaric	121	$dbh->do($kveri);
60	dpavlin	53
61	iklaric	121	for (my $i = 0; $i <= @selectedBackups /2; $i++)
62			{
63			my $host = $selectedBackups[$i*2];
64			my $backup = $selectedBackups[$i*2+1];
65			last if ($host == undef && $backup == undef);
66	dpavlin	53
67	iklaric	121	# insertaj u archive_backup
68
69	dpavlin	53
70	iklaric	121	my $kveri = q{
71			INSERT INTO archive_backup
72			SELECT
73			(SELECT last_value FROM archive_id_seq),}.
74			$backup.',\'ok\';';
75	dpavlin	53
76	iklaric	121	$dbh->do($kveri);
77			}
78	dpavlin	53
79	iklaric	121
80			# insertaj u workflows
81			my $kveri = q{
82			INSERT INTO workflows
83			SELECT
84			(SELECT step_id FROM workflow_step WHERE code='start' LIMIT 1),
85			NOW(),
86			NULL,
87			'dummy',
88			(SELECT last_value FROM archive_id_seq),
89			true
90			};
91	dpavlin	4	}
92
93	dpavlin	53	Header($Lang->{Burn_media}, "", 1, "", $cont);
94			Trailer();
95			$dbh->disconnect();
96			}
97	dpavlin	4
98			1;