--- trunk/lib/BackupPC/CGI/BurnMedia.pm	2005/06/22 19:22:51	4
+++ trunk/lib/BackupPC/CGI/BurnMedia.pm	2005/10/10 13:57:29	165
@@ -6,104 +6,116 @@
 use Data::Dumper;
 use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
 
-sub action()
-  {
-      my $cont = "";
-      my $title;
-      my $subtitle;
-      my @files;
-      my $dbh = DBI->connect( "dbi:SQLite:dbname=$Conf{SearchDB}",
-        "", "", { 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
+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 files not archived:<br>";
-	    $cont .= BackupPC::SearchLib::displayBackupsGrid();
+		$cont .= "Backups that have not been archived:<br>";
+		$cont .= BackupPC::SearchLib::displayBackupsGrid();
 	    
-	}
-      else
-	{
-	    my $mediumName = "DVD";
-	    my $mediumNum;
-
-	    $title = eval(q{ ${h1($Lang->{Burn_media})}});
-	    $subtitle = eval(q{ ${h2($Lang->{Burn_media_assign})}});
-	    $cont = <<EOF;
-	    
-	    $title
-	    $subtitle
-	      
+	} else {
 
-EOF
-	    
-	    # insert DVD first,
-	    my $sql = q{ SELECT MAX(num)+1 AS maxNum FROM dvds; };
-	    my $st = $dbh -> prepare($sql);
-	    $st -> execute();
-	    my $tmp = $st -> fetchrow_hashref();
-	    $mediumNum = $tmp->{'maxNum'};
-	    if ($mediumNum ne "")
-	    {
-	      $mediumNum = $tmp->{'maxNum'};		
-	    }
-	    else
-	    {
-	      $mediumNum = "0";		
-	    }
-	    $mediumName = "DVD".$mediumNum;
-	    $st = $dbh -> prepare (q{ 
-					INSERT INTO dvds (num, name) 
-					VALUES
-					(?,?)					
-				    });
-	    $st -> bind_param(1,$mediumNum);
-	    $st -> bind_param(2,$mediumName);
-	    $st -> execute();
-	    my $dvdid = $dbh->func('last_insert_rowid');	    
-	    
-	    my $updateSQL = q{
-		UPDATE files
-		SET dvdid=?
-		WHERE files.shareID IN (
-		    SELECT ID FROM shares WHERE hostID=?
-		    ) AND
-		    files.backupNum=?
-	    };
-	    my $updateStatement = $dbh -> prepare($updateSQL);
-	    my $orQuery = "";
-	    
-	    # then, assign dvdid to files
-	    foreach my $key (keys(%In))
-	      {
-		  if ($key =~ /fcb/)
-		    {			
-			my ($hID, $bNo) = split(/_/, $In{$key});
-
-			$updateStatement->bind_param(1, $dvdid);
-			$updateStatement->bind_param(2, $hID);
-			$updateStatement->bind_param(3, $bNo);
-			$updateStatement->execute();
-		    }
-	      }
-	    $cont .= "Backups assigned to media ".$mediumName;
+		my @selected_backup_ids;
+
+		my $total_size = 0;
+		
+		foreach my $key(keys(%In)) {
+			if ($key =~ m/^fcb([0-9]+)_([0-9]+)_([0-9]+)$/gi) {
+				my ($host_id, $backup_num, $backup_id) = ($1,$2,$3);
+				push @selected_backup_ids, $backup_id;
+				$total_size += BackupPC::SearchLib::getGzipSize($host_id, $backup_num);
+			}
+		}
+
+		if (($total_size / 1024) > $Conf{MaxArchiveSize}) {
+			$cont .= eval( q{ ${h2(Error)}});
+			$cont .= "Selected backups size $total_size exceed max archive size $Conf{MaxArchiveSize}.";
+		} else {
+
+			# create new archive
+			my $sth = $dbh->prepare(q{
+							INSERT INTO archive (
+								id,
+								dvd_nr,
+								note,
+								username,
+								date,
+								total_size
+							) VALUES (
+								nextVal('archive_id_seq'),
+								nextVal('dvd_nr'),
+								?,
+								?,
+								NOW(),
+								?
+							)
+						});
+
+			$sth->execute($In{'note'}, $User, $total_size);
+
+			foreach my $backup_id (@selected_backup_ids) {
+
+				# link backups with archive
+				my $sth = $dbh->prepare(q{
+					INSERT INTO archive_backup (
+						archive_id, backup_id
+					) VALUES (
+						(SELECT last_value FROM archive_id_seq), ?
+					)
+				});
+
+				$sth->execute($backup_id);
+
+				$dbh->commit();
+
+			}
+
+			my ($dvd_nr) = $dbh->selectrow_array(qq{
+				select last_value from dvd_nr
+			});
+
+			$dvd_nr ||= 'error';
+
+			$dbh->commit();
+
+			$cont .= q{
+				Archived following backups:
+			} . join(", ", @selected_backup_ids) . q{
+				<br/>with total size of
+			<b>} . sprintf("%1.2f Mb", $total_size / 1024 / 1024) . q{</b>
+				to media <b>} . $dvd_nr . q{</b>
+				with following message:
+				<div style="background-color: #e0e0e0; display: inline; padding: 2px;">
+			} . $In{'note'} . q{
+				</div>
+			};
+		}
 	}
-      
-    Header($Lang->{Burn_media}, "", 1, "", $cont);
-    Trailer();
-    $dbh -> disconnect();
-  }
+
+	Header($Lang->{Burn_media}, "", 1, "", $cont);
+
+	Trailer();
+	$dbh->disconnect();
+}
 
 1;