#!/usr/bin/perl -w

use SOAP::Lite trace=>'debug';
#use SOAP::Lite;
use Data::Dumper;
use strict;

# Perl sub routine to call Service Desk login method
# and specify Service Desk Web Services end point
sub login_get_SID {

    # Edit $server, $user and $pw as needed.
	my $server = '192.168.1.152:8180';
    my $endpoint = '/axis/services/USD_R11_WebService?WSDL';

    my $user = ''; #user id
    my $pw  = ''; #user pwd

    my $wsdl = 'http://' . $server . $endpoint;
    my $service = SOAP::Lite->service($wsdl);
    my $sid = $service->login($user, $pw);
    return ($service, $sid);
}

# Always a best practice to call logout() when done
sub logout {
    my ($service, $sid) = @_;
    $service->logout($sid)
}

# method to retrieve all Incident Areas
sub retrieveCategories
{
    my ($service, $sid, $service_name) = @_;
    my $method = SOAP::Data->uri('http://www.ca.com/UnicenterServicePlus/ServiceDesk')->name('doSelect');

    # Attributes for object to be created can be pulled
    # from majic files.
	my @params = (	SOAP::Data->name("sid" => $sid),
					SOAP::Data->name("objectType" => 'pcat'),
					SOAP::Data->name("whereClause" => "sym like 'Appl%'"),
					SOAP::Data->name("maxRows" => "1"),
            		SOAP::Data->name("attributes" =>
            			\SOAP::Data->value(	
            			 SOAP::Data->name("string" => "sym"),
            			 SOAP::Data->name("string" => 'description')
            			)
            		),
      			);

   	#print "dumper: ".Dumper(@params)."\n";
    my $result = $service->call($method => @params);
	print "----result method call ---\n".$result->result."----- end result ----\n";
	print "----valueof method call ----\n".$result->valueof('//AttrName[1]')."----- end valueof ----\n";
	return ($result);
}

# Main calls
my ($service, $sid) = login_get_SID();
retrieveCategories($service, $sid);
logout($service, $sid);