use Text::BibTeX;
use User;
use Data::Printer;
+use POSIX;
use DBI;
--bibtex, -b bibtex file to look up key in
--bibtex-cache, -c bibtex cache file
--build-cache, -B build cache using bibtex files
+ --search-by-pmid Search term is a pmid instead of a bibtex key
--pdf-dir pdf directory
--pdfviewer, -p pdf viewer to use
+ --only-print Only print PDF file name
--debug, -d debugging level (Default 0)
--help, -h display this help
--man, -m display manual
PDF viewer to use; defaults to evince unless a .xoj exists, in which
case xournal is used.
+=item B<--only-print>
+
+Only print the PDF file name, don't open it.
+
=item B<--debug, -d>
Debug verbosity. (Default 0)
my %options = (debug => 0,
help => 0,
man => 0,
+ only_print => 0,
+ search_by_pmid => 0,
'bibtex_cache' => File::Spec->catfile(User->Home,'.bibtex_to_paper_cache'),
);
'bibtex|b=s@',
'bibtex_cache|bibtex-cache|c=s',
'pdfviewer|p=s',
+ 'only_print|only-print!',
+ 'search_by_pmid|search-by-pmid!',
'clear_cache|clear-cache!',
'papers_directory|papers-directory=s@',
'debug|d+','help|h|?','man|m');
my @dirs = ref($dir)?@{$dir}:$dir;
my $actually_load_it = sub {
+ if (/\.git/) {
+ $File::Find::prune = 1;
+ return;
+ }
return unless /\.pdf$/;
my $xoj = 0;
if (-e "${_}.xoj") {
my ($dbh,$sth,$entries) = @_;
for my $entry (keys %{$entries}) {
next unless defined $entries->{$entry};
- $sth->{insert_bibtex}->execute($entry,@{$entries->{$entry}}{qw(file_name doi html)});
+ $sth->{insert_bibtex}->execute($entry,@{$entries->{$entry}}{qw(file_name pmid doi html)});
$sth->{insert_bibtex}->finish();
print STDERR "inserted $entry {".join(',',map {defined $_?"'$_'":"'undef'"} %{$entries->{$entry}})."}\n" if $DEBUG;
}
if (not defined $dbh) {
open_entry($dbh,$sth,$entries->{$bibtex_key},$options);
} else {
- my $entry = select_entry_from_bibtex_key($dbh,$sth,$bibtex_key);
+ my $entry;
+ if ($options->{search_by_pmid}) {
+ $entry = select_entry_from_pmid($dbh,$sth,$bibtex_key);
+ } else {
+ select_entry_from_bibtex_key($dbh,$sth,$bibtex_key);
+ }
p $entry if $DEBUG;
open_entry($dbh,$sth,$entry,$options);
}
die "Unable to fork for some reason: $!";
}
if ($child == 0) {
+ foreach (0 .. (POSIX::sysconf (&POSIX::_SC_OPEN_MAX) || 1024))
+ { POSIX::close $_ }
+ open (STDIN, "</dev/null");
+ open (STDOUT, ">/dev/null");
+ open (STDERR, ">&STDOUT");
exec(@cmd);
} else {
return $child;
if ($has_xoj) {
fork_exec('xournal',$file_name);
} else {
- fork_exec('evince',$file_name)
+ fork_exec('xournal',$file_name)
}
}
return unless defined $entry and ref $entry and keys %{$entry};
if (defined $entry->{file_name} and length $entry->{file_name}) {
my $paper = select_one($dbh,$sth->{select_papers_by_name},$entry->{file_name});
+ if (not defined $paper) {
+ my ($pmid) = $entry->{file_name} =~ /pmid_(\d+)/;
+ if (defined $pmid and length $pmid) {
+ $paper = select_one($dbh,$sth->{select_papers_by_pmid},'%pmid_'.$pmid.'.%');
+ }
+ }
p $paper if $DEBUG;
print STDERR $entry->{file_name} if $DEBUG;
if (defined $paper) {
+ if ($options->{only_print}) {
+ print $paper->{path};
+ return;
+ }
open_pdf($paper->{path},$options,$paper->{has_xoj});
return;
}
}
if (defined $entry->{doi}) {
+ if ($options->{only_print}) {
+ print $entry->{doi};
+ return;
+ }
my $url = $entry->{doi};
$url =~ s{^doi://}{http://dx.doi.org/};
open_browser($url,$options);
return;
}
if (defined $entry->{html}) {
+ if ($options->{only_print}) {
+ print $entry->{html};
+ return;
+ }
open_browser($entry->{html},$options);
return;
}
}
+sub select_entry_from_pmid{
+ my ($dbh,$sth,$pmid) = @_;
+
+ return select_one($dbh,$sth->{select_bibtex_by_pmid},$pmid);
+}
+
+
sub select_entry_from_bibtex_key{
my ($dbh,$sth,$bibtex_key) = @_;
my %field_prefix = (doi => 'doi://',
html => 'http://',
file => '',
+ pmid => '',
);
my %field_name = (doi => 'doi',
html => 'html',
+ pmid => 'pmid',
file => 'file_name',);
- for my $field (qw(file doi html)) {
+ for my $field (qw(file doi html pmid)) {
my $field_value = $entry->get($field);
if (defined $field_value and $field_value =~ /\S+/) {
$entry_data{$field_name{$field}} =
CREATE TABLE bibtex (
bibtex_key TEXT PRIMARY KEY,
file_name TEXT,
+pmid TEXT,
doi TEXT,
html TEXT
);
EOF
$dbh->do(<<EOF);
CREATE UNIQUE INDEX bibtex_bibtex_key ON bibtex(bibtex_key);
+EOF
+ $dbh->do(<<EOF);
+CREATE INDEX bibtex_pmid ON bibtex(pmid);
EOF
$dbh->do(<<EOF);
CREATE TABLE papers (
INSERT OR REPLACE INTO papers(file_name,path,has_xoj) VALUES (?,?,?);
EOF
insert_bibtex => <<'EOF',
-INSERT OR REPLACE INTO bibtex (bibtex_key,file_name,doi,html) VALUES (?,?,?,?);
+INSERT OR REPLACE INTO bibtex (bibtex_key,file_name,pmid,doi,html) VALUES (?,?,?,?,?);
EOF
select_papers_by_name => <<'EOF',
SELECT * FROM papers WHERE file_name = ?;
+EOF
+ select_papers_by_pmid => <<'EOF',
+SELECT * FROM papers WHERE file_name LIKE ?;
EOF
select_papers_by_path => <<'EOF',
SELECT * FROM papers WHERE path = ?;
EOF
select_bibtex_by_file_name => <<'EOF',
SELECT * FROM bibtex WHERE file_name = ?;
+EOF
+ select_bibtex_by_pmid => <<'EOF',
+SELECT * FROM bibtex WHERE pmid = ?;
EOF
clear_papers_cache => <<'EOF',
DELETE FROM papers;