--- trunk/scripts/dump_isis.pl 2004/12/28 01:41:45 2 +++ trunk/scripts/dump_isis.pl 2004/12/29 16:01:41 9 @@ -7,9 +7,13 @@ use Data::Dumper; my $isis = IsisDB->new ( - isisdb => '/data/isis_data/ps/LIBRI/LIBRI', + isisdb => shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI', + debug => shift @ARGV, + include_deleted => 1, ); +print "rows: ",$isis->{'maxmfn'},"\n\n"; + for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) { print $isis->to_ascii($mfn),"\n";