APIAdmin: New page: == Getting a SessionID == #!/usr/bin/perl -w

use strict "vars";
use warnings;
use SOAP::Lite;

my $service = "https://secure.webmail.us/s...

2008-08-25T23:57:21Z

New page: == Getting a SessionID == <nowiki> #!/usr/bin/perl -w</nowiki> use strict "vars"; use warnings; use SOAP::Lite; <nowiki>my $service = "https://secure.webmail.us/s...

New page

== Getting a SessionID ==
<nowiki>
#!/usr/bin/perl -w</nowiki> 
 
use strict "vars"; 
use warnings; 
use SOAP::Lite; 
 
<nowiki>my $service = "https://secure.webmail.us/soap/soap_server.php?wsdl";</nowiki> 
 
my $resellerUsername = "myadminuser"; 
my $resellerPassword = "somepassword"; 
 
my $hostName = "mydomain.com"; 
my $userID = "someperson"; 
my $sessionID = ""; 

my @results = SOAP::Lite 
  <nowiki>-> service($service)</nowiki> 
  <nowiki>-> LoginUserWebmail($resellerUsername, $resellerPassword, $hostName, $userID, $sessionID);</nowiki> 
 
print $results[0]." is the result code\n"; 
print "\n"; 
print $results[1]." is the SessionID\n"; 
print "\n";

Perl SessionID - Revision history

APIAdmin: New page: == Getting a SessionID == #!/usr/bin/perl -w use strict "vars"; use warnings; use SOAP::Lite; my $service = "https://secure.webmail.us/s...

APIAdmin: New page: == Getting a SessionID == #!/usr/bin/perl -w

use strict "vars";
use warnings;
use SOAP::Lite;

my $service = "https://secure.webmail.us/s...