eprints.pm

一个论文管理系统

# $Id: ePrints.pm,v 1.2 2006/02/01 17:50:24 martin Exp $
#
# Copyright 2005 Nature Publishing Group
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# The Bibliotech::CitationSource::ePrints class retrieves citation data for articles
# on an ePrints supported website using an open archives initiative protocol for metadata harvesting (OAI-PMH)

package Bibliotech::CitationSource::ePrints;

use strict;
use warnings;

use Bibliotech::CitationSource;
use base 'Bibliotech::CitationSource';

use Bibliotech::CitationSource::Simple;

use Data::Dumper;
use XML::LibXML;
use XML::LibXML::NodeList;

use HTTP::OAI::Harvester;
use constant VERSION => '2.0'; 					# version for Harvester Identify
use constant META_PREFIX => 'oai_dc';				# return dublin core metadata
use constant OAI_BASE => '/perl/oai2';

sub api_version
{
  1;
}

sub name
{
  'ePrints';
}

sub version
{
  '$Revision: 1.2 $';
}

sub understands
{
	my ($self, $uri) = @_;

	#check the host
#print "scheme " . $uri->scheme . "\n";
	return 0 unless ($uri->scheme =~ /^http$/i);
#print "host " . $uri->host . "\n";
	return 0 unless Bibliotech::CitationSource::ePrints::HostTable::defined($uri->host);

	# check the path
#print "path " . $uri->path . "\n";
	return 1 if ($uri->path);

# so far nothing special for ePrints article
	#return 0 unless ($uri->path =~ m/articlerender\.fcgi/ || 
			 #$uri->path =~ m/pagerender\.fcgi/ || 
				#($uri->path =~ m/picrender\.fcgi/ && $uri->query =~ /blobtype=pdf/i));
	
#print "bad url\n";
	return 0;
}

sub citations
{
	my ($self, $uri) = @_;

	my $understands = $self->understands($uri);
	return undef unless $understands;

	my $art_id = $self->get_art_id($uri);
	return undef unless $art_id;

	# OAI set base/prefix
	my $port = ':' . $uri->port if $uri->port;
	my $oai_base_url = 'http://' . $uri->host . $port . OAI_BASE;
	my $oai_prefix = Bibliotech::CitationSource::ePrints::HostTable::getOAIPrefix($uri->host);

	my $metadata = $self->metadata($art_id, $oai_base_url, $oai_prefix);
	return undef unless $metadata;

	return new Bibliotech::CitationSource::ResultList(Bibliotech::CitationSource::Result::Simple->new($metadata));
}

#
# The ePrints OAI service (OAI2) provides access to metadata of all items in any ePrints website, 
#
sub metadata
{
	my ($self, $art_id, $base, $prefix) = @_;
	my $xml;

	#
	# harvest the ePrints static repository with the Identify method, at baseURL 
	#	already know the Identify object
	# 
	# set bibliotech object
	#
	my $h = HTTP::OAI::Harvester->new(bibliotech=>$self->bibliotech,
		repository=>HTTP::OAI::Identify->new( baseURL=> $base, version=> VERSION)
	);

	#
	# get corresponding record for $art_id from repository
	#
	#print "IDENTIFIER " . $prefix . ":" . $art_id . "\n";
	my($gr) = $h->GetRecord(
			identifier => $prefix . ":" . $art_id,	# required
			metadataPrefix => META_PREFIX				# required
	);

	if($gr->is_error) {
		$self->errstr('GetRecord Error: ' . $gr->message);
		return undef;
	}
	if($gr->errors) {
		$self->errstr('GetRecord Error for ' . $art_id);
		return undef;
	}

	#
	# get first record from GetRecord object (first record stored in response)
	#	??how likely will it be to have multiple records returned for an artid??
	#
	my($rec) = $gr->next;

	unless($rec) {
		$self->errstr("No records");
		return undef;
	}

	#
	# could be helpful
	#
	#$self->errstr($rec->identifier . " (" . $rec->datestamp . ")");

	# get the parsed DOM tree
	my($dom) = $rec->metadata->dom;
#print "DOM " . $dom->toString . "\n";;

	###DEBUG
	#return $dom;
	
	# go get the metadata from tree
	my $metadata = $self->build_metadata($dom);
	return undef unless $metadata;

	# check that it's worth returning
	unless($metadata->{'title'} && $metadata->{'pubdate'})
	{
		$self->errstr('Insufficient metadata extracted for artid: ' . $art_id);
		return undef;
	}

	return $metadata;
}

# eprints URL looks like: 	http://ws.fetter.us:8080/5/
#				http://eprints.bibl.hkr.se/archive/23
# grab what is after the last slash
# according to eprints website
sub get_art_id {
	my ($self, $uri) = @_;

	my ($path) = $uri->path;

	#strip trailing slash, if any
	($path) =~ s,/$,,;

	#strip suffix, if any
	# 	ex. (http://memsic.ccsd.cnrs.fr)
	#	/mem_00000001.en.html
	($path) =~ s,\.(.*?)$,,;

	$path =~ m,([^/]*)$,;
	my($art_id) = $1;


	return $art_id;
}

sub build_metadata 
{
	my ($self, $dom) = @_;

	my $root = $dom->getDocumentElement;

	#print $dom->toString . "\n";

	unless ($root) {
		$self->errstr("no root");
	}

	# ex: <dc:title>Title</dc:title>
        my $title = getFirstElement($root, 'title');
	my $date = getFirstElement($root, 'date');
        my $url = getFirstElement($root, 'identifier');
#SUE does 'relation' contain doi?  do a pattern match and return doi or undef

	#		get the author info
	my($authors);
        $authors = &getAuthors($root);

	#convert nodes to strings, checking for undef first.
	($title, $date, $url) = map { $_->string_value if $_ } ($title, $date, $url);

	return { 
             title => $title,
	     pubdate => $date,
	     #doi => $doi,
	     url => $url,
	     authors => $authors
	};
}

sub getAuthors {
	my ($root) = @_;

	my(@auList);

	# build names foreach creator
	#foreach my $c ($root->getElementsByLocalName('creator')->string_value) {
	foreach my $x ($root->getElementsByLocalName('creator')) {
		my $c = $x->string_value;

		# ex. Toth, Fred
		my($l, $f) = $c =~ m/(.*?), (.*?)$/;

		my $name;
		$name->{'forename'} = $f if $f;
		$name->{'lastname'} = $l if $l;

		push(@auList, $name) if $name;
	}
	return \@auList if @auList;
	return undef unless @auList;
	#return "No Authors" unless @auList;
}

#
# get the first element in the array returned by getElementsByLocalName
#
sub getFirstElement {
	my ($node, $name) = @_;
	my @values = $node->getElementsByLocalName($name);
	return($values[0]);
}

# comment before checking into system
#sub errstr {
    #my ($self, $err) = @_;

    #print STDERR $self->name . " " . $err . "\n";
#}

package Bibliotech::CitationSource::ePrints::HostTable;
%Bibliotech::CitationSource::ePrints::HostTable::Hosts = (
	# Host (without Port)		=>		OAI Prefix
	# test eprints
	'ws.fetter.us'			=>	'oai:GenericEPrints.ab',
	'eprints.bibl.hkr.se'		=>	'oai:eprints.bibl.hkr.se.oai2',

	#Australia National University - E-Print Repository
	'eprints.anu.edu.au'		=> 	'oai:eprints.anu.edu.au',

	#Indian Institute of Science - eprints@iisc
	'eprints.iisc.ernet.in'		=> 'oai:iiscePrints.OAI2',

	#NUI Maynooth - Eprint Archive
	'eprints.may.ie'		=> 'oai:GenericEPrints.OAI2',

	#Universit脿egli studi di Trento - UNITN-eprints
	'eprints.biblio.unitn.it' 	=> 'oai:UNITN.Eprints',

	#Birkbeck College, University of London - Birkbeck ePrints
	'eprints.bbk.ac.uk'		=> 'oai:BirkbeckEPrints.OAI2',

        #SUE added prefix (from epapers.bham.ac.uk/perl/oai2?verb=Identify), but it doesn't conform (needs .xxx)
	#University of Birmingham - Birmingham ePapers
	#'epapers.bham.ac.uk'		=> 'oai:GenericEPrints',	# bad form

	#The British Library - British Library Research Archive
	#'sherpa.bl.uk'			=> 'oai:GenericEPrints',	# bad form

	#University of Durham - Durham e-Prints
	'eprints.dur.ac.uk'		=> 'oai:GenericEPrints.OAI2',

	#University of Glasgow - Glasgow ePrints Service
	'eprints.gla.ac.uk'		=> 'oai:eprints.gla.ac.uk',				

	#Kings College - Kings ePrints Archive
	'eprints.kcl.ac.uk'		=> 'oai:eprints.kcl.ac.OAI2',

#SUE added prefix (from /perl/oai2?verb=Identify)
	#London School of Economics - LSE ePrints Archive
	'eprints.lse.ac.uk'		=> 'oai:GenericEPrints.OAI2',

	#Royal Holloway - Royal Holloway Scholarship Online
	'eprints.rhul.ac.uk'		=> 'oai:RoyalHollowayResearchOnline.OAI2',

	#School of Oriental and African Studies - SOAS Online Research Repository
	'eprints.soas.ac.uk'		=> 'oai:eprints.soas.ac.uk.OAI2',

	#University College - UCL ePrints
	'eprints.ucl.ac.uk'		=> 'oai:eprints.ucl.ac.uk.OAI2',

	#University of Nottingham - Nottingham ePrints
	'eprints.nottingham.ac.uk'	=> 'oai:eprints.nottingham.ac.uk.OAI2',

	#Universities of Leeds, Sheffield, & York - White Rose Consortium ePrints Repository
	'eprints.whiterose.ac.uk'	=> 'oai:leeds.ac.uk:sherpa',

	#Open University - The Open University Library s e-prints Archive
	'libeprints.open.ac.uk'		=> 'oai:open.ac.uk.OAI2',

	#Oxford University Maths - The Mathematical Institute Eprints Archive
	'eprints.maths.ox.ac.uk'	=> 'oai:eprints.maths.ox.ac.uk',

	#Southampton Psychology - PsycPrints
	'psycprints.ecs.soton.ac.uk'	=> 'oai:psycprints.ecs.soton.ac.uk',

	#PASCAL - PASCAL EPrints
	'eprints.pascal-network.org'	=> 'oai:eprints.pascal-network.org',

	#Oxford University - Pxford Eprints
	'eprints.ouls.ox.ac.uk'		=> 'oai:OxfordEPrints.OAI2',

	#University of Nottingham  - Nottingham eTheses
	'etheses.nottingham.ac.uk'	=> 'oai:etheses.nottingham.ac.uk.OAI2',

	#University of Nottingham  - Notthingham ePrints
	'eprints.nottingham.ac.uk'	=> 'oai:eprints.nottingham.ac.uk.OAI2',

	#University of Nottingham - Modern Languages Publications Archive
	'mlpa.nottingham.ac.uk'		=> 'oai:mlpa.nottingham.ac.uk.OAI2',

	#University of Southampton - IPv6 Eprints Server
	'www.6journal.org'		=> 'oai:IPv6.EPrints.Server',

	#Electronic Resource Preservation and Access Network (ERPANET) and the Digital Curation Centre (DCC) - ERPAePRINTS Service
	'eprints.erpanet.org'		=> 'oai:eprints.erpanet.org',

	#Electronics and Computer Science, Southampton University - ECS EPrints Service
	'eprints.ecs.soton.ac.uk'	=> 'oai:eprints.ecs.soton.ac.uk',

	#University of Southampton - e-Prints Soton
	'eprints.soton.ac.uk'		=> 'oai:eprints.soton.ac.uk',

	#School of Information Resources and Library Science  and Learning Technologies Center, University of Arizona - DLIST Archive 
	'dlist.sir.arizona.edu'		=> 'oai:DLIST.OAI2',

	#University of Lincoln - Applied Computing Sciences ePrints Service
	'eprints.lincoln.ac.uk'		=> 'oai:eprints.lincoln.ac.uk',

	#AKT - AKT EPrints Archive
	'eprints.aktors.org'		=> 'oai:aktors.org',

	#Cognitive Science, University of Southampton - COGPrints
	'cogprints.ecs.soton.ac.uk'		=> 'oai:cogprints.soton.ac.uk',
	'cogprints.org'	    	                => 'oai:cogprints.soton.ac.uk',

	#St Andrews University - STAEPrints
	'eprints.st-andrews.ac.uk'		=> 'oai:GenericEPrints.OAI2.OAI',

	#11th Joint Symposium on Neural Computation - 11th Joint Symposium on Neural Computation
	'jsnc.library.caltech.edu'		=> 'oai:jsnc.library.caltech.edu',

	#l'ENS Lettres et Sciences Humaines de Lyon - l'Archive ENS LSH
        # Identify says oai:ArchiveEnslsh.OAI2, is this an alias? it works
	'eprints.ens-lsh.fr'		=> 'oai:ArchiveEnslsh',

	#University of Pittsburgh - Archive of European Integration
	'aei.pitt.edu'		=> 'oai:PITTAEI.OAI2',

	# Faculty of Computer and Information Science (FRI), University of Ljubljana - Eprints.FRI
	'eprints.fri.uni-lj.si'		=> 'oai:ePrints.FRI.OAI2',

	#Indian Institute of Science - ePrints@IISC
	'eprints.iisc.ernet.in'		=> 'oai:iiscePrints.OAI2',

	#SLU, Swedish University of Agricultural Sciences - EPSILON
	'diss-epsilon.slu.se'		=> 'oai:epsilondiss.OAI2',

	#Erasme : syst猫 d'information documentaire de l'INPT - Erasme : syst猫 d'information documentaire de l'INPT
	'ethesis.inp-toulouse.fr'		=> 'oai:ethesis.inp-toulouse.fr',

	#Monash University - Monash University ePrint Repository
	'eprint.monash.edu.au'		=> 'oai:Monash.OAI',

	#Communication and Information Sciences - m茅IC 
# Identify says oai:memsic.ccsd.cnrs.fr
	'memsic.ccsd.cnrs.fr'		=> 'oai:memsic.ccsd.cnrs.fr',

	#National Aerospace Laboratory - National Aerospace Laboratory Institutional Repository
	'nal-ir.nal.res.in'		=> 'oai:nal-ir.nal.res.in',

	#University of Pittsburgh - PhilSci
	'philsci-archive.pitt.edu'		=> 'oai:PittPhilSci.OAI2',

	#Rhodes University - Rhodes eReseach Repository
	'eprints.ru.ac.za'		=> 'oai:eprints.ru.ac.za',

	#STOA - KF-eprints
	'eprints.stoa.it'		=> 'oai:eprints.stoa.it',

	#University of Trento - unitn.it eprints
	'eprints.biblio.unitn.it'		=> 'oai:UNITN.Eprints',

	#Victoria University ePrints Repository - Victoria University Eprints Repository
	'eprints.vu.edu.au'		=> 'oai:vu.edu.au',

	#Bond University - School of Information Technology ePrints Repository
	'eprints.it.bond.edu.au'		=> 'oai:eprints.it.bond.edu.au',

	#University of Tasmania - UTasER
	'eprints.comp.utas.edu.au'		=> 'oai:UTasERprototype',

	#Bioline International - Bioline
	'bioline.utsc.utoronto.ca'		=> 'oai:BiolineEPrints.OAI2',

	#Dryden Flight Research Center, NASA - Dryden Technical Reports Server
	'dtrs.dfrc.nasa.gov'		=> 'oai:NASA-DTRS-EPRINTS.OAI2',

	#University of Otago Eprints Repository - University of Otago
	'eprints.otago.ac.nz'			=> 'oai:eprints.otago.ac.nz',
);

my($hRef) = \%Bibliotech::CitationSource::ePrints::HostTable::Hosts;

sub defined {
	my($host) = @_;

	return 1 if defined($hRef->{$host});
	if($host =~ s/^www\.//)
	{
		return defined($hRef->{$host});
	}

	return 0;
}

sub getOAIPrefix {
	my ($host) = @_;
	
	return $hRef->{$host} if $hRef->{$host};
	$host =~ s/^www\.//;
	return $hRef->{$host};
}

#true!
1;