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