#!/usr/bin/perl
use strict;
use DBI;

die "Usage: $0 path/to/cookies.sqlite\n" unless @ARGV;
my $dbfile = shift;
die "$0: $dbfile: No such file or directory\n" unless -e $dbfile;
my $sec = shift;

my $tmsp = time();
$tmsp+=172800;
my $siteweb='dev.linuxfr.org';
#my $siteweb='rootix.info';

my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "", {RaiseError => 1});

# nettoyage
my $sth = $dbh->prepare("DELETE FROM moz_cookies WHERE host='$siteweb' AND name='specialstyleok'");
$sth->execute();
undef $sth;

# insertion
my $sth = $dbh->prepare("REPLACE INTO moz_cookies (name,value,host,path,expiry,lastAccessed,isSecure,isHttpOnly) values ('specialstyleok','2','$siteweb','/',$tmsp,1210376752457047,$sec,0)");
$sth->execute();
undef $sth;

# lecture
my $sth = $dbh->prepare("SELECT name, value, host, path, expiry, lastAccessed, isSecure, isHttpOnly FROM moz_cookies WHERE host='$siteweb' AND name='specialstyleok'");
$sth->execute();
while (my ($name, $value, $host, $path, $expiry, $lastAccessed, $isSecure, $isHttpOnly) = $sth->fetchrow_array) {
	print join("\t", $name, $value, $host, $path, $expiry, $lastAccessed,  $isSecure ? 'TRUE' : 'FALSE', $isHttpOnly ? 'TRUE' : 'FALSE'), "\n";
}
undef $sth;

$dbh->disconnect();