view release on metacpan or  search on metacpan

bin/lsmb_reload  view on Meta::CPAN

}

my $passwd;
if ($promptpasswd){
   print "Password: ";
   $passwd = <>;
}

$username ||= 'postgres';

## validate paths and set up versions

my $lsmbversions = {};

my $line;
if ($path13) {
   open(LSMB, '<', "$path13/LedgerSMB.pm") or die 'Bad LedgerSMB 1.3 path';
   ($line) = grep {$_ =~ /^\s*our\s+\$VERSION/} <LSMB>;
   $line =~ /(\d+\.\d+\.\d+)/;
   $lsmbversion->{1.3} = $1;
   App::LedgerSMB::Admin->add_paths('1.3' => $path13);