ispman/lib/ISPMan/SOAP ISPManSoapServer.pm,1.1,1.2

Update of /cvsroot/ispman/ispman/lib/ISPMan/SOAP
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7503

Modified Files:
	ISPManSoapServer.pm 
Log Message:


Index: ISPManSoapServer.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/SOAP/ISPManSoapServer.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ISPManSoapServer.pm	29 Dec 2004 21:44:41 -0000	1.1
+++ ISPManSoapServer.pm	29 Dec 2004 21:58:04 -0000	1.2
@@ -16,7 +16,9 @@
    $name =~ s/.*://;   # strip fully-qualified portion
    $arguments=join ",", @_;
    $text="You tried to call $name with $arguments\n";
-   my $soap_method_file="$soap_method_dir/$name_soap.pl";
+   my $method_name=join "_", ($name, "soap");
+
+   my $soap_method_file="$soap_method_dir/$method_name.pl";
 
    unless (-d $soap_method_dir){
       $text.="$soap_method_dir does not exists\n";
@@ -24,6 +26,12 @@
    unless (-f $soap_method_file){
       $text.="$soap_method_file does not exists\n";
    }
+   if (-f $soap_method_file) {
+      do $soap_method_file;
+      $text=&{$method_name}(@_);
+   }
+
+
 
    return $text;
 }



-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now. 
http://productguide.itmanagersjournal.com/