parent
055cc98b3a
commit
dbd472cac6
|
@ -9,6 +9,7 @@ use strict;
|
|||
|
||||
use Simba::CA;
|
||||
|
||||
$| = 1;
|
||||
|
||||
my $ca = Simba::CA->new({
|
||||
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);
|
||||
print "\tversion $version deleted\n";
|
||||
}
|
||||
$dbh->commit();
|
||||
}
|
||||
$dbh->disconnect();
|
||||
|
|
Loading…
Reference in New Issue