my %options = (debug => 0,
help => 0,
man => 0,
+ use_links => 1,
);
my %REFERENCE_TYPES = (pmid => 'pmid|p');
GetOptions(\%options,
values %REFERENCE_TYPES,
+ 'use_links|use-links!',
'cgi_proxy|cgi-proxy|C=s',
'http_proxy|http-proxy|H=s',
'debug|d+','help|h|?','man|m');
};
if ($@) {
print STDERR "$@\n" if $DEBUG;
- system('links2',
- # links2 doesn't like the leading http:// of proxies for some reason
- exists $options{http_proxy}?('-http-proxy',(map {s{http://}{}; $_} $options{http_proxy})):(),
- $url
- ) == 0 or next;
- rename('temp.pdf',"${pmid}.pdf") if -e 'temp.pdf';
- }
+ if ($options{use_links}) {
+ system('links2',
+ # links2 doesn't like the leading http:// of proxies for some reason
+ exists $options{http_proxy}?('-http-proxy',(map {s{http://}{}; $_} $options{http_proxy})):(),
+ $url
+ ) == 0 or next;
+ rename('temp.pdf',"${pmid}.pdf") if -e 'temp.pdf';
+ }
+ }
}
}