--- branches/tehnika/all2xml.pl 2004/04/04 22:09:57 302 +++ branches/tehnika/all2xml.pl 2004/04/04 22:11:13 303 @@ -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; @@ -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