#!/usr/local/bin/perl --

use strict;
use warnings;
use SOAP::Transport::HTTP;

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

package Delivery;

use Data::Dumper;

sub byName {
  my ($self, @data) = @_;
  warn 'Delivery::byName : ',Dumper( @data );
  
  if ($data[0]->{'Action'} eq 'New Ticket') {
  	return sendAcknowledgement();
  } else {
  	return { error => 'Unknown Action' };
  }
}

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