Parent Directory | Revision Log | Patch
revision 43 by dpavlin, Thu Jun 29 23:20:14 2006 UTC | revision 50 by dpavlin, Fri Jul 7 21:11:01 2006 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | #!/usr/bin/perl -w | #!/usr/bin/perl -w |
2 | ||
3 | use strict; | use strict; |
4 | #use blib; | use blib; |
5 | ||
6 | use Biblio::Isis; | use Biblio::Isis; |
7 | use Getopt::Std; | use Getopt::Std; |
8 | use Data::Dumper; | |
9 | BEGIN { | |
10 | eval "use Data::Dump"; | |
11 | ||
12 | if (! $@) { | |
13 | *Dumper = *Data::Dump::dump; | |
14 | } else { | |
15 | use Data::Dumper; | |
16 | } | |
17 | } | |
18 | ||
19 | my %opt; | my %opt; |
20 | getopts('dn:', \%opt); | getopts('dn:', \%opt); |
# | Line 14 my $isisdb = shift @ARGV || die "usage: | Line 23 my $isisdb = shift @ARGV || die "usage: |
23 | ||
24 | my $isis = Biblio::Isis->new ( | my $isis = Biblio::Isis->new ( |
25 | isisdb => $isisdb, | isisdb => $isisdb, |
26 | debug => $opt{'d'}, | debug => $opt{'d'} ? 2 : 0, |
27 | include_deleted => 1, | include_deleted => 1, |
28 | # read_fdt => 1, | # read_fdt => 1, |
29 | ); | ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |