loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.485, 2004/04/03 00:13:01	version 1.486, 2004/04/05 18:07:38
Line 32 package Apache::lonnet;	Line 32 package Apache::lonnet;
use strict;	use strict;
use LWP::UserAgent();	use LWP::UserAgent();
use HTTP::Headers;	use HTTP::Headers;
use Date::Parse;	use HTTP::Date;
	# use Date::Parse;
use vars	use vars
qw(%perlvar %hostname %homecache %badServerCache %hostip %iphost %spareid %hostdom	qw(%perlvar %hostname %homecache %badServerCache %hostip %iphost %spareid %hostdom
%libserv %pr %prp %metacache %packagetab %titlecache %courseresversioncache %resversioncache	%libserv %pr %prp %metacache %packagetab %titlecache %courseresversioncache %resversioncache
Line 4690 sub getuploaded {	Line 4691 sub getuploaded {
return 'failed';	return 'failed';
}	}
if ($reqtype eq 'HEAD') {	if ($reqtype eq 'HEAD') {
$$info = &Date::Parse::str2time( $response->header('Last-modified') );	$$info = &HTTP::Date::str2time( $response->header('Last-modified') );
} elsif ($reqtype eq 'GET') {	} elsif ($reqtype eq 'GET') {
$$info = $response->content;	$$info = $response->content;
}	}