[LON-CAPA-cvs] cvs: modules /gerd/loncapa_lernmodule/loncapa loncapa_apache.conf studip.pm
www
www at source.lon-capa.org
Thu Aug 30 05:54:26 EDT 2012
www Thu Aug 30 09:54:26 2012 EDT
Modified files:
/modules/gerd/loncapa_lernmodule/loncapa loncapa_apache.conf
studip.pm
Log:
Hurrah, works!
Index: modules/gerd/loncapa_lernmodule/loncapa/loncapa_apache.conf
diff -u modules/gerd/loncapa_lernmodule/loncapa/loncapa_apache.conf:1.1 modules/gerd/loncapa_lernmodule/loncapa/loncapa_apache.conf:1.2
--- modules/gerd/loncapa_lernmodule/loncapa/loncapa_apache.conf:1.1 Thu Aug 30 08:55:19 2012
+++ modules/gerd/loncapa_lernmodule/loncapa/loncapa_apache.conf Thu Aug 30 09:54:26 2012
@@ -1,7 +1,7 @@
##
## loncapa_apache.conf -- Apache HTTP LON-CAPA configuration file
##
-## $Id: loncapa_apache.conf,v 1.1 2012/08/30 08:55:19 www Exp $
+## $Id: loncapa_apache.conf,v 1.2 2012/08/30 09:54:26 www Exp $
##
#
@@ -103,10 +103,10 @@
#
# Test Call for StudIP handler
#
-<Location /adm/studip>
+<LocationMatch "^/+studip">
SetHandler perl-script
PerlHandler Apache::studip
-</Location>
+</LocationMatch>
<Location /adm/portfolio>
Index: modules/gerd/loncapa_lernmodule/loncapa/studip.pm
diff -u modules/gerd/loncapa_lernmodule/loncapa/studip.pm:1.2 modules/gerd/loncapa_lernmodule/loncapa/studip.pm:1.3
--- modules/gerd/loncapa_lernmodule/loncapa/studip.pm:1.2 Thu Aug 30 08:55:19 2012
+++ modules/gerd/loncapa_lernmodule/loncapa/studip.pm Thu Aug 30 09:54:26 2012
@@ -7,7 +7,7 @@
#
# Landing point for incoming StudIP requests
#
-# $Id: studip.pm,v 1.2 2012/08/30 08:55:19 www Exp $
+# $Id: studip.pm,v 1.3 2012/08/30 09:54:26 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -67,13 +67,13 @@
# Config parameters
# url of studip webservice
-my $studip_url = 'http://192.168.122.3/studip/xmlrpc.php';
+my $studip_url = 'http://vm036.rz.uni-osnabrueck.de/studip/lc/xmlrpc.php';
# password for studip webservice
-my $studip_pwd = 'qip(hF2tvYcU0ehd';
+my $studip_pwd = 'lc-test';
# list of remote ips which get access to course list
-my @studip_ips = ('192.168.122.3', '192.168.122.1');
+my @studip_ips = ('131.173.17.231');
my $ua = LWP::UserAgent->new;
my $parser = RPC::XML::ParserFactory->new();
@@ -83,8 +83,8 @@
# url patterns of valid routes
my %routes = (
'^courses$' => 'courses',
- '^course\/(?<course_id>[a-zA-Z0-9_]+)$' => 'course',
- '^enter\/(?<course_id>[a-zA-Z0-9_]+)$' => 'enter'
+ '^course\/' => 'course',
+ '^enter\/' => 'enter'
);
# registry of route callbacks
@@ -317,6 +317,8 @@
my $path_info = $ENV{'PATH_INFO'};
my $query_string = $ENV{'QUERY_STRING'};
+
+
if(!$path_info || $path_info eq '/'){
return &index_page($r);
}
@@ -338,7 +340,6 @@
if($handler){
return &$handler($r, \%params, $query_string);
}
-
return &error_msg($r, NOT_FOUND);
}
More information about the LON-CAPA-cvs
mailing list