parent
055cc98b3a
commit
dbd472cac6
|
@ -9,6 +9,7 @@ use strict;
|
||||||
|
|
||||||
use Simba::CA;
|
use Simba::CA;
|
||||||
|
|
||||||
|
$| = 1;
|
||||||
|
|
||||||
my $ca = Simba::CA->new({
|
my $ca = Simba::CA->new({
|
||||||
dbi_file => $ENV{SIMBA_DB_CONN} || "$ENV{HOME}/.dbi/simba",
|
dbi_file => $ENV{SIMBA_DB_CONN} || "$ENV{HOME}/.dbi/simba",
|
||||||
|
@ -51,4 +52,6 @@ for my $session (@ARGV) {
|
||||||
$dbh->do(q{delete from versions2 where id=?}, {}, $version);
|
$dbh->do(q{delete from versions2 where id=?}, {}, $version);
|
||||||
print "\tversion $version deleted\n";
|
print "\tversion $version deleted\n";
|
||||||
}
|
}
|
||||||
|
$dbh->commit();
|
||||||
}
|
}
|
||||||
|
$dbh->disconnect();
|
||||||
|
|
Loading…
Reference in New Issue