version 1.4, 2005/11/17 22:51:59
|
version 1.6, 2005/11/24 20:21:15
|
Line 453 sub process_file {
|
Line 453 sub process_file {
|
|
|
sub do_sql_query { |
sub do_sql_query { |
my ($query) = @_; |
my ($query) = @_; |
&logthis('doing query '.$query); |
# &logthis('doing query '.$query); |
|
|
my @results = (); |
my @results = (); |
|
|
Line 853 sub nsdl_query {
|
Line 853 sub nsdl_query {
|
my ($keyword)=($query=~/\"\%([^\%]+)\%\"/); |
my ($keyword)=($query=~/\"\%([^\%]+)\%\"/); |
$keyword=&escape($keyword); |
$keyword=&escape($keyword); |
&logthis('Doing '.$keyword); |
&logthis('Doing '.$keyword); |
my $url='http://search.nsdl.org?verb=Search&s=0&n=500&q='.$keyword; |
my $url='http://search.nsdl.org?verb=Search&s=0&n=500&q=-link.primaryCollection:oai\:nsdl.org\:nsdl.nsdl\:00254%20'.$keyword; |
my $ua=new LWP::UserAgent; |
my $ua=new LWP::UserAgent; |
my $response=$ua->get($url); |
my $response=$ua->get($url); |
my $parser=HTML::LCParser->new(\$response->content); |
my $parser=HTML::LCParser->new(\$response->content); |
Line 868 sub nsdl_query {
|
Line 868 sub nsdl_query {
|
} elsif ($token->[0] eq 'S') { |
} elsif ($token->[0] eq 'S') { |
if ($token->[1] eq 'record') { |
if ($token->[1] eq 'record') { |
%result=(); |
%result=(); |
} elsif ($token->[1]=/^dc\:/) { |
} elsif ($token->[1]=~/^dc\:/) { |
$is=$token->[1]; |
$is=$token->[1]; |
$cont=''; |
$cont=''; |
} |
} |
Line 877 sub nsdl_query {
|
Line 877 sub nsdl_query {
|
# |
# |
# Now store it away |
# Now store it away |
# |
# |
} elsif ($token->[1]=/^dc\:/) { |
} elsif ($token->[1]=~/^dc\:/) { |
$result{$is}=$cont; |
$result{$is}=$cont; |
} |
} |
} |
} |