#!/usr/bin/perl -w
# Filename:      dpkg-to-db
# Purpose:       add grml build information into a sqlite database
# Authors:       grml-team (grml.org)
# Bug-Reports:   see http://grml.org/bugs/
# License:       This file is licensed under the GPL v2 or any later version.
################################################################################
# Requires the following Debian packages (handled via grml-live-db depends):
# libdbd-sqlite3-perl libdbi-perl libtimedate-perl perl-doc sqlite3
################################################################################

use strict;

use warnings;
use Getopt::Long;
use Pod::Usage;
use DBI;
use Date::Format;


my ($db, $logfile, $flavour, $help, $dpkgfile);
my $rc = GetOptions (
		'database|db=s' => \$db,
		'dpkg|d=s'      => \$dpkgfile,
		'logfile|l=s'   => \$logfile,
		'flavour|f=s'   => \$flavour,
		'help|h'        => \$help,
	);

pod2usage(1) if $help;

pod2usage(-message => "$0: Need a sqlite database through --database ....\n") unless $db;
pod2usage(-message => "$0: Need a logfile to insert through --database ...\n") unless $logfile;
pod2usage(-message => "$0: Need the flavour information through --flavour ...\n") unless $flavour;
pod2usage(-message => "$0: Need the dpkg file through --dpkg ...\n") unless $dpkgfile;

open (my $fh, '<', $logfile) or die "Could not open $logfile: $!";
open (my $dpkg_handle, '<', $dpkgfile) or die "Could not open $dpkgfile: $!";

my $dbh = DBI->connect("dbi:SQLite:dbname=$db","","") or die "Could not connect to database: " . $DBI::err;

# We use foreign key - beware this needs sqlite > 3.6.19
$dbh->do("PRAGMA foreign_keys = ON");

# read content of log file - please do not try this at home :)
my $log = do { local $/; <$fh> };

my $identifier = "$flavour-". time2str('%Y%m%d%H%M%S', time());

# Prepare tables if not yet present {{{
my $create_table_build = $dbh->prepare("
CREATE TABLE if not exists build ( id integer primary key autoincrement,
identifier varchar(30),
flavour varchar(30),
date varchar(30),
logfile blob);
")
  or die "Could not create tables: " . $dbh->errstr."\n";

$create_table_build->execute()
  or die "Can't execute SQL statement: " . $dbh->errstr."\n";

my $create_table_packages = $dbh->prepare("
CREATE TABLE if not exists packages (  id integer primary key autoincrement,
package varchar(30),
status varchar(2),
version varchar(30),
build integer,
FOREIGN KEY(build) REFERENCES build(id));
")
  or die "Could not create tables: " . $dbh->errstr."\n";

$create_table_packages->execute()
  or die "Can't execute SQL statement: " . $dbh->errstr."\n";
# }}}


# Write information to database {{{
my $sth = $dbh->prepare("INSERT into build ('identifier','flavour','date','logfile') VALUES (?,?,?,?)")
	or die "Could not prepare db statement: " . $dbh->errstr;

# Execute the query
$sth->execute($identifier, $flavour, time(), $log)
	or die "Could not add build to db: " . $sth->errstr;

$sth = $dbh->prepare("SELECT id from build where identifier = ?");
$sth->execute($identifier) or die "Couldn't execute statement: " . $sth->errstr;
my $row = $sth->fetch;
my $id = $row->[0];

die "No id?" unless $id;

$sth = $dbh->prepare("INSERT into packages (package, status, version, build) VALUES (?,?,?,?)")
	or die "Could not prepare db statement: " . $dbh->errstr;

while (my $line = <$dpkg_handle>) {
	next unless $line =~ /^[a-z]{2} /;
	# remove new lines
	my ($status, $package, $version, $desc) = split (/\s+/, $line, 4);
	$sth->execute($package, $status, $version, $id)
		or die "Couldn't execute statement: " . $sth->errstr;

}
# }}}

print "recorded buildinformation with identifier $identifier as id $id\n";

# perldoc -F ./dpkg-to-db

__END__

=head1 dpkg-to-db

dpkg-to-db - add grml build information into a sqlite database

=head1 SYNOPSIS

dpkg-to-db <options>

=head1 OPTIONS

=over 8

=item B<--help>

Print a brief help message and exits.

=item B<--database <database>>

Database file.

=item B<--dpkg <dpkglist>>

`dpkg --list` output file of grml-live build.

=item B<--logfile <logfile>>

Logfile which should be added.

=item B<--flavour <flavour>>

Name of the grml-flavour the build is.

=back

=head1 DESCRIPTION

B<dpkg-to-db> will read the given input file(s) and stores the
information to the specified database.

=head1 USAGE EXAMPLES

Please see B<man 8 grml-live-db> for further information.

=cut