nsdl/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / nsdl

version 1.2, 2005/11/17 22:04:47	version 1.3, 2005/11/17 22:34:49
Line 113 use IO::File;	Line 113 use IO::File;
use Socket;	use Socket;
use Fcntl;	use Fcntl;
use Tie::RefHash;	use Tie::RefHash;
	use HTML::LCParser();
	use LWP::UserAgent();
	use HTTP::Headers;
	use HTTP::Date;
use File::Find;	use File::Find;
use localenroll;	use localenroll;

Line 847 sub HUPSMAN { # sig	Line 850 sub HUPSMAN { # sig

sub nsdl_query {	sub nsdl_query {
my $query=shift;	my $query=shift;
}	my ($keyword)=($query=~/\"\%([^\%]+)\%\"/);
	$keyword=&escape($keyword);
	&logthis('Doing '.$keyword);
	my $url='http://search.nsdl.org?verb=Search&s=0&n=500&q='.$keyword;
	my $ua=new LWP::UserAgent;
	my $response=$ua->get($url);

	return [];
	}

=pod	=pod