#!/usr/local/bin/perl

#SERVER
use SOAP::Transport::HTTP;

my $uri = 'Delivery';

SOAP::Transport::HTTP::CGI
  -> dispatch_to('Delivery')
  -> handle;

package Delivery;

use vars qw(@ISA);
@ISA = qw(SOAP::Server::Parameters);


sub byName {
  #Get the headers passed from the client
  my ($self, $in) = @_;
  my @input = %{$in};

 foreach my $input (@input) {
   print $self . "==> " . $input, "\n";
 }

 if ($input == 'New Ticket'){
  & sendAcknowledgement();
 }


# send a response based on the <Action> value, currently not working
sendAcknowledgement();

sub sendAcknowledgement {

  my (@response) = (


              SOAP::Data->name(Acknowledgement =>{
                                                    createStatus => "OK",
                                                    Received => "0",
                                                   }
                              )

  );

#  use Data::Dumper;
 # print Dumper(@response);

  return map { $_ } %{$response};
}