--- trunk/all2xml.pl 2004/03/14 14:59:43 279
+++ trunk/all2xml.pl 2004/04/02 23:31:25 298
@@ -17,6 +17,7 @@
my $config_file = $0;
$config_file =~ s/\.pl$/.conf/;
+$config_file = $ARGV[0] if (-f $ARGV[0]);
die "FATAL: can't find configuration file '$config_file'" if (! -e $config_file);
my $config;
@@ -245,7 +246,7 @@
# what will separate last line from this one?
if ($display_data && $x->{append}) {
- $line_delimiter = ' ';
+ $line_delimiter = $delimiter;
} elsif ($display_data) {
$line_delimiter = '
';
}
@@ -918,6 +919,10 @@
all2xml.pl - read various file formats and dump XML for SWISH-E
+=head1 SYNOPSYS
+
+ $ all2xml.pl [test.conf]
+
=head1 DESCRIPTION
This command will read ISIS data file using OpenIsis perl module, MARC
@@ -926,6 +931,9 @@
this script B from isis files (isis allready
has something like that). Output of this script is tailor-made for SWISH-E.
+If no configuration file is specified, it will use default one called
+C.
+
=head1 BUGS
Documentation is really lacking. However, in true Open Source spirit, source