Dswim updates when no db exist or status or a combination thereof.

This commit is contained in:
freesource
2001-10-14 19:53:14 +00:00
parent 3762885480
commit f2c8510e31
2 changed files with 15 additions and 5 deletions
+10 -3
View File
@@ -796,10 +796,17 @@ sub command {
SWIM::DB->import(qw(db));
db(\%commands);
require SWIM::DB_Init;
$commands{"rebuilddb"} = 1;
$commands{"initdb"} = 1;
SWIM::DB_Init->import(qw(database));
database(\%commands);
my $success_check = database(\%commands);
if ($success_check eq "rebuilddb") {
undef $commands{"initdb"};
$commands{"rebuilddb"} = 1;
SWIM::DB_Init->import(qw(database));
my $success_check = database(\%commands);
}
system "cp -fa $dpkg_status $my_status";
}