Discover the server_root_url from the configuration file instead of setting it manually in WSDL.pm

Author: mgage

lib/WebworkSOAP/WSDL.pm

@@ -5,13 +5,31 @@ use Pod::WSDL;
 use WebworkSOAP;
 
 use constant MP2 => ( exists $ENV{MOD_PERL_API_VERSION} and $ENV{MOD_PERL_API_VERSION} >= 2 );
-use constant RPC_URL => 'http://localhost/webwork2_rpc';
+
+BEGIN {
+###############################################################################
+# Configuration -- set to top webwork directory (webwork2) (set in webwork.apache2-config)
+# Configuration -- set server url automatically for this file
+###############################################################################
+
+    our $webwork_directory = $WeBWorK::Constants::WEBWORK_DIRECTORY; #'/opt/webwork/webwork2';
+	print "WebworkSOAP::WSDL: webwork_directory set to ", $WeBWorK::Constants::WEBWORK_DIRECTORY,
+	      " via \$WeBWorK::Constants::WEBWORK_DIRECTORY set in webwork.apache2-config\n";
+ 	my $seed_ce = new WeBWorK::CourseEnvironment({ webwork_dir => $webwork_directory });
+ 	die "Can't create seed course environment for webwork in $webwork_directory" unless ref($seed_ce);
+	my $server_root_url   = $seed_ce->{server_root_url}; #"http://localhost"; 
+	our $RPC_URL          = "$server_root_url/webwork2_rpc";
+	print "WebworkSOAP::WSDL: rpc_url set to $RPC_URL \n";
+	
+}
+
+
 
 sub handler($) {
     my ($r) = @_;
     my $pod = new Pod::WSDL(
         source => 'WebworkSOAP',
-        location => RPC_URL,
+        location => $RPC_URL,
         pretty => 1,
         withDocumentation => 0
         );

lib/WebworkWebservice.pm

@@ -1,6 +1,8 @@
 #!/user/bin/perl -w
 
-
+# initialize SOAP interface as well
+use WebworkSOAP;
+use WebworkSOAP::WSDL;
 
 BEGIN {
     $main::VERSION = "2.4.9";