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

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

Added Files:
	ISPManSoapServer.pm 
Log Message:
Just skeleton for SOAP services

--- NEW FILE: ISPManSoapServer.pm ---
package ISPManSoapServer;

my $currDir=$INC{"ISPManSoapServer.pm"};
$currDir=~s!ISPMan/SOAP/ISPManSoapServer.pm!!;
$soap_method_dir="$currDir/ISPMan/SOAP/methods";



unshift @INC, $currDir;
unshift @INC, "../../../";


sub AUTOLOAD {
   my $self=shift;
   my $name=$AUTOLOAD;
   $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";

   unless (-d $soap_method_dir){
      $text.="$soap_method_dir does not exists\n";
   }
   unless (-f $soap_method_file){
      $text.="$soap_method_file does not exists\n";
   }

   return $text;
}

__END__





-------------------------------------------------------
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/