[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
www
lon-capa-cvs@mail.lon-capa.org
Thu, 18 Jan 2007 21:31:41 -0000
www Thu Jan 18 16:31:41 2007 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
Get rid of tokenwrapper access.
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.828 loncom/lonnet/perl/lonnet.pm:1.829
--- loncom/lonnet/perl/lonnet.pm:1.828 Thu Jan 18 16:02:06 2007
+++ loncom/lonnet/perl/lonnet.pm Thu Jan 18 16:31:40 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.828 2007/01/18 21:02:06 www Exp $
+# $Id: lonnet.pm,v 1.829 2007/01/18 21:31:40 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -7202,13 +7202,7 @@
if (-e $transferfile) { return 'ok'; }
my $request;
$uri=~s/^\///;
- if (&homeserver($cnum,$cdom) eq $perlvar{'lonHostID'}) {
-# if this is my own server, get it via tokenwrapper
- $request=new HTTP::Request('GET',&tokenwrapper('/'.$uri));
- } else {
-# get it from another server, raw request
- $request=new HTTP::Request('GET','http://'.$hostname{&homeserver($cnum,$cdom)}.'/raw/'.$uri);
- }
+ $request=new HTTP::Request('GET','http://'.$hostname{&homeserver($cnum,$cdom)}.'/raw/'.$uri);
my $response=$ua->request($request,$transferfile);
# did it work?
if ($response->is_error()) {