1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
package HTTP::OAI::Header;
@ISA = qw( HTTP::OAI::MemberMixin HTTP::OAI::SAX::Base );
use strict;
use POSIX qw/strftime/;
sub identifier { shift->_elem('identifier',@_) }
sub datestamp {
my $self = shift;
return $self->_elem('datestamp') unless @_;
my $ds = shift or return $self->_elem('datestamp',undef);
if( $ds =~ /^(\d{4})(\d{2})(\d{2})$/ ) {
$ds = "$1-$2-$3";
} elsif( $ds =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/ ) {
$ds = "$1-$2-$3T$4:$5:$6Z";
}
return $self->_elem('datestamp',$ds);
}
sub status { shift->_elem('status',@_) }
sub setSpec { shift->_multi('setSpec',@_) }
sub now { return strftime("%Y-%m-%dT%H:%M:%SZ",gmtime()) }
sub is_deleted { my $s = shift->status(); return defined($s) && $s eq 'deleted'; }
sub generate
{
my ($self, $driver) = @_;
if( defined($self->status) ) {
$driver->start_element( 'header', status => $self->status );
} else {
$driver->start_element( 'header' );
}
$driver->data_element( 'identifier', $self->identifier );
$driver->data_element( 'datestamp', ($self->datestamp || $self->now) );
for($self->setSpec)
{
$driver->data_element( 'setSpec', $_ );
}
$driver->end_element( 'header' );
}
sub end_element {
my ($self,$hash) = @_;
my $elem = lc($hash->{LocalName});
my $text = $hash->{Text};
if( defined $text )
{
$text =~ s/^\s+//;
$text =~ s/\s+$//;
}
if( $elem eq 'identifier' ) {
$self->identifier($text);
} elsif( $elem eq 'datestamp' ) {
$self->datestamp($text);
} elsif( $elem eq 'setspec' ) {
$self->setSpec($text);
} elsif( $elem eq 'header' ) {
$self->status($hash->{Attributes}->{'{}status'}->{Value});
}
}
1;
__END__
=head1 NAME
HTTP::OAI::Header - Encapsulates an OAI header structure
=head1 SYNOPSIS
use HTTP::OAI::Header;
my $h = new HTTP::OAI::Header(
identifier=>'oai:myarchive.org:2233-add',
datestamp=>'2002-04-12T20:31:00Z',
);
$h->setSpec('all:novels');
=head1 METHODS
=over 4
=item $h = new HTTP::OAI::Header
This constructor method returns a new C<HTTP::OAI::Header object>.
=item $h->identifier([$identifier])
Get and optionally set the record OAI identifier.
=item $h->datestamp([$datestamp])
Get and optionally set the record datestamp (OAI 2.0+).
=item $h->status([$status])
Get and optionally set the record status (valid values are 'deleted' or undef).
=item $h->is_deleted()
Returns whether this record's status is deleted.
=item @sets = $h->setSpec([$setSpec])
Returns the list of setSpecs and optionally appends a new setSpec C<$setSpec> (OAI 2.0+).
=item $dom_fragment = $id->generate()
Act as a SAX driver (use C<< $h->set_handler() >> to specify the filter to pass events to).
=back
|
