#! /usr/bin/perl
# $Id: pbib-import.pl 18 2004-12-12 07:41:44Z tandler $
=head1 NAME
pbib-import.pl - import references into the PBib database
=head1 SYNOPSIS
perl pbib-import.pl I<filename1> I<filename2> ...
=head1 DESCRIPTION
Import references in a format supported by bp (e.g. bibtex)
into the Biblio DB.
Use C<pbib-import.pl --help> to see available options.
=cut
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib", '$FindBin::Bin/../lib/Biblio/bp/lib';
# for debug
use Data::Dumper;
# used modules
# use Getopt::Long;
# used own modules
use Biblio::Biblio;
use Biblio::BP;
# use Biblio::Util;
use PBib::Config;
# process standard args
@ARGV = Biblio::BP::stdargs(@ARGV);
#
#
# the following has been taken from bp's conv.pl
# and adapted to Biblio package (ptandler, 02-03-28)
#
#
my @files;
my $default_category = undef;
my $create_citekey = undef;
my $dont_store = undef;
while (@ARGV) {
$_ = shift @ARGV;
/^--$/ && do { push(@files, @ARGV); last; };
/^--?help$/ && do { &dieusage; };
/^--?cat(egory)?$/ && do { $default_category = shift @ARGV; next; };
/^--?citekey$/ && do { $create_citekey = 1; next; };
/^--?dontstore$/ && do { $dont_store = 1; next; };
/^-/ && do { print STDERR "Unrecognized option: $_\n"; next; };
push(@files, $_);
}
# Note that unlike some programs like rdup, we can be used as a pipe, so
# we can't die with a usage output if we have no arguments.
# input from STDIN if nothing was specified.
unshift(@files, '-') unless @files;
### output to STDOUT if nothing was specified.
###$outfile = '-' unless defined $outfile;
### check that if the file exists, we can write to it.
##if (-e $outfile && !-w $outfile) {
## die "Cannot write to $outfile\n";
##}
### check that we won't be overwriting any files.
##if ($outfile ne '-') {
## foreach my $file (@files) {
## next if $file eq '-';
## die "Will not overwrite input file $file\n" if $file eq $outfile;
## }
##}
my $config = new PBib::Config();
my $refs = Biblio::BP::import(
{
'-category' => $default_category,
'-citekey' => $create_citekey,
}, @files);
unless( $dont_store ) {
my $bib = new Biblio::Biblio(%{$config->option('biblio')})
or die "can't open biblio database!\n";
print STDERR "storing ", scalar(@$refs), " references\n";
foreach my $ref (@$refs) {
$bib->storePaper($ref)
}
$bib->commit();
}
sub dieusage {
my($prog) = substr($0,rindex($0,'/')+1);
my $str =<<"EOU";
Usage: $prog [<bp-options>] [pbib-options] [bibfile ...]
pbib options:
-category set default category for imported references
-citekey create the citekey according to the pbib pattern
-dontstore just parse input files, do not store the updated bibliography database
bp options:
-bibhelp general help with the bp package
-supported display all supported formats and character sets
-hush no warnings or error messages
-debugging=# set debugging on or off, or to a severity number
-error_savelines warning/error messages also include the line number
-informat=IF set the input format to IF
-outformat=OF set the output format to OF
-format=IF,OF set the both the input and output formats
-noconverter always use the long conversion, never a special converter
-csconv=BOOL turn on or off character set conversion
-csprot=BOOL turn on or off character protection
-inopts=ARG pass ARG as an option to the input format
-outopts=ARG pass ARG as an option to the output format
Convert a Refer file to BibTeX:
$prog -format=refer,bibtex in.refer -to out.bibtex
Convert an Endnote file to an HTML document using the CACM style
$prog -format=endnote,output/cacm:html in.endnote -to out.html
EOU
die $str;
}