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 files not archived:<br>";
                $cont .= BackupPC::SearchLib::displayBackupsGrid();
            
        } else {

                my $mediumName = "DVD";

                $title = eval(q{ ${h1($Lang->{Burn_media})}});
                $subtitle = eval(q{ ${h2($Lang->{Burn_media_assign})}});
                $cont = <<EOF;

        $title
        $subtitle

EOF
            
                # insert DVD first,
                my $sql = q{ SELECT MAX(num)+1 AS maxNum FROM dvds; };

                my $sth = $dbh->prepare($sql);
                $sth->execute();

                my ($mediumNum) = $sth->fetchrow_array();
                $mediumNum ||= '0';

                $mediumName = "DVD".$mediumNum;
                $sth = $dbh->prepare (q{ 
                                INSERT INTO dvds (num, name) 
                                VALUES
                                (?,?)                                   
                });

                $sth->execute($mediumNum, $mediumName);

                my $dvdid = $dbh->last_insert_id(undef,undef,'dvds',undef);         
            
                my $updateSQL = q{
                        UPDATE files
                        SET dvdid=?
                        WHERE files.shareID IN (
                                SELECT ID FROM shares WHERE hostID=?
                        ) AND
                                files.backupNum=?
                };

                my $update_sth = $dbh->prepare($updateSQL);
                my $orQuery = "";
            
                # then, assign dvdid to files
                foreach my $key (keys(%In)) {
                        if ($key =~ /fcb/) {                    
                                my ($hID, $bNo) = split(/_/, $In{$key});
                                $update_sth->execute($dvdid, $hID, $bNo);
                        }
                }
                $cont .= "Backups assigned to media ".$mediumName;
        }
      
        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			$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	dpavlin	4
31			EOF
32
33	dpavlin	53	$cont .= "Backups that have files not archived:<br>";
34			$cont .= BackupPC::SearchLib::displayBackupsGrid();
35	dpavlin	4
36	dpavlin	53	} else {
37	dpavlin	4
38	dpavlin	53	my $mediumName = "DVD";
39	dpavlin	4
40	dpavlin	53	$title = eval(q{ ${h1($Lang->{Burn_media})}});
41			$subtitle = eval(q{ ${h2($Lang->{Burn_media_assign})}});
42			$cont = <<EOF;
43
44			$title
45			$subtitle
46
47	dpavlin	4	EOF
48
49	dpavlin	53	# insert DVD first,
50			my $sql = q{ SELECT MAX(num)+1 AS maxNum FROM dvds; };
51
52			my $sth = $dbh->prepare($sql);
53			$sth->execute();
54
55			my ($mediumNum) = $sth->fetchrow_array();
56			$mediumNum \|\|= '0';
57
58			$mediumName = "DVD".$mediumNum;
59			$sth = $dbh->prepare (q{
60			INSERT INTO dvds (num, name)
61			VALUES
62			(?,?)
63			});
64
65			$sth->execute($mediumNum, $mediumName);
66
67			my $dvdid = $dbh->last_insert_id(undef,undef,'dvds',undef);
68	dpavlin	4
69	dpavlin	53	my $updateSQL = q{
70			UPDATE files
71			SET dvdid=?
72			WHERE files.shareID IN (
73			SELECT ID FROM shares WHERE hostID=?
74			) AND
75			files.backupNum=?
76			};
77
78			my $update_sth = $dbh->prepare($updateSQL);
79			my $orQuery = "";
80	dpavlin	4
81	dpavlin	53	# then, assign dvdid to files
82			foreach my $key (keys(%In)) {
83			if ($key =~ /fcb/) {
84			my ($hID, $bNo) = split(/_/, $In{$key});
85			$update_sth->execute($dvdid, $hID, $bNo);
86			}
87			}
88			$cont .= "Backups assigned to media ".$mediumName;
89	dpavlin	4	}
90
91	dpavlin	53	Header($Lang->{Burn_media}, "", 1, "", $cont);
92			Trailer();
93			$dbh->disconnect();
94			}
95	dpavlin	4
96			1;