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	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 => 1 } );
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	# 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
58
59	$dbh->do($kveri);
60
61	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
67	# insertaj u archive_backup
68
69
70	my $kveri = q{
71	INSERT INTO archive_backup
72	SELECT
73	(SELECT last_value FROM archive_id_seq),}.
74	$backup.',\'ok\';';
75
76	$dbh->do($kveri);
77	}
78
79
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	}
92
93	Header($Lang->{Burn_media}, "", 1, "", $cont);
94	Trailer();
95	$dbh->disconnect();
96	}
97
98	1;