view release on metacpan or  search on metacpan

scripts/sc_recoverdb.pl  view on Meta::CPAN

on a DB file. NOT applicable to 'verify mode'.

|;
  exit 1;
}

usage unless @ARGV;

my $DEBUG	= 0;
my $VERIFY	= 0;
my $FORCETXT	= 0;
my($path,$dbfile);

while ($_ = shift @ARGV) {
  if ($_ eq '-d') {
    $DEBUG = 1;
    next;
  }
  elsif ($_ eq '-p') {
    $path = shift || die "no path name found\n\n";
    next;
  }
  elsif ($_ eq '-t') {
    $FORCETXT = 1;
    next;
  }
  elsif ($_ eq '-v') {
    $VERIFY = 1;
    next;
  }
  else {
    $dbfile = $_;
  }
}

scripts/sc_recoverdb.pl  view on Meta::CPAN

        dbhome  => $environment,
);

$_ = $environment .'/'. $dbfile;
unless (-e $_) {
  usage("no such file $_
try one of $environment
$tarpit, $archive, $contrib, $evidence");
}

if ($FORCETXT || $dbfile eq $contrib || $dbfile eq $evidence) {
  $default{txtfile} = [$dbfile];
  unless ($VERIFY) {
    push @{$default{txtfile}}, $newfile;
  }
} else {
  $default{dbfile} = [$dbfile,$newfile];
  unless ($VERIFY) {
    push @{$default{dbfile}}, $newfile;
  }
}