#!/usr/bin/perl

# SOAP CGI server (method loaded from module 'Report')

use strict;
use warnings;
use Data::Dumper;
use SOAP::Transport::HTTP;
use lib 'lib';
use Report;

my $server = SOAP::Transport::HTTP::CGI
      ->dispatch_to('urn:Report')
      ->handle;

1;

##</code><code>##

package Report;
use Data::Dumper;
use strict;
use warnings;
use ReportRequest;
use ReportResponse;

=begin WSDL

_IN Report $ReportRequest a ReportRequest object
_RETURN $ReportResponse a ReportResponse object
_DOC Request or retreive a bandwidth report

=cut
sub Report {
=begin WSDL


_IN request $ReportRequest a ReportRequest  type (this is in the method)
_DOC Method: Report

=cut
#  my $class = shift();
#  my $self = {};
#  my %in = @_;

  open LOG, ">>soapservice.log";
  print LOG "Report method\n";
  print LOG Dumper(@_);
  close LOG;

  return "fluff"; # bless ($self, $class);
}

1;

##</code><code>##

package ReportRequest;
=pod
=begin WSDL

_ATTR authuser $string valid  username
_ATTR authpass $string valid password
_ATTR date_from $dateTime report start date (ISO YYYYMMDDTHH:MM)

=end WSDL

=cut

sub new {
  open LOG, ">>/soapservice.log";
  print LOG "ReportRequest:\n";
  print LOG Dumper(@_);
  close LOG;
  return "ReportRequest";
}

1;

##</code><code>##

package ReportResponse;
use Data::Dumper;

=pod

=begin WSDL

_ATTR result $boolean resultcode, 1 on success, 0 on failure
_ATTR message $string error message (only on failure)

=end WSDL

=cut

sub new {

  open LOG, ">>/tmp/bandwidthservice.log";
  print LOG "Response\n";
  print LOG Dumper(@_);
  close LOG;

  my $class = "ReportResponse";
  my %in = @_;
  my $self = {};
  $self->{result}          => $in{result};
  $self->{message}         => $in{message};
  bless $self, $class;
  return $self;
}
1;

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<!-- WSDL for http://api.dolphinmp.co.uk/new_bandwidth.cgi created by Pod::WSDL version: 0.05 on Sat Jan  3 18:47:32 2009 -->
<wsdl:definitions targetNamespace="http://api.dolphinmp.co.uk/Report" xmlns:impl="http://api.dolphinmp.co.uk/Report" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:tns1="http://api.dolphinmp.co.uk/Report">

        <wsdl:types>
                <schema targetNamespace="http://api.dolphinmp.co.uk/Report" xmlns="http://www.w3.org/2001/XMLSchema">
                        <import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
                        <complexType name="ReportResponse">
                                <sequence>
                                        <element name="result" nillable="true" type="xsd:boolean">
                                                <annotation>
                                                        <documentation>resultcode, 1 on success, 0 on failure</documentation>
                                                </annotation>
                                        </element>
                                        <element name="message" nillable="true" type="xsd:string">
                                                <annotation>
                                                        <documentation>error message (only on failure)</documentation>
                                                </annotation>
                                        </element>
                                </sequence>
                        </complexType>
                        <complexType name="ReportRequest">
                                <sequence>
                                        <element name="authuser" nillable="true" type="xsd:string">
                                                <annotation>
                                                        <documentation>valid username</documentation>
                                                </annotation>
                                        </element>
                                        <element name="authpass" nillable="true" type="xsd:string">
                                                <annotation>
                                                        <documentation>valid password</documentation>
                                                </annotation>
                                        </element>
                                        <element name="date_from" nillable="true" type="xsd:dateTime">
                                                <annotation>
                                                        <documentation>report start date (ISO YYYYMMDDTHH:MM)</documentation>
                                                </annotation>
                                        </element>
                                </sequence>
                        </complexType>
                </schema>
        </wsdl:types>

        <wsdl:message name="ReportRequest">
                <wsdl:part name="Report" type="tns1:ReportRequest">
                        <wsdl:documentation>a ReportRequest object</wsdl:documentation>
                </wsdl:part>
        </wsdl:message>

        <wsdl:message name="ReportResponse">
                <wsdl:part name="ReportReturn" type="tns1:ReportResponse">
                        <wsdl:documentation>a ReportResponse object</wsdl:documentation>
                </wsdl:part>
        </wsdl:message>

        <wsdl:portType name="ReportHandler">
                <wsdl:operation name="Report" parameterOrder="Report">
                        <wsdl:documentation>Request or retreive a bandwidth report</wsdl:documentation>
                        <wsdl:input message="impl:ReportRequest" name="ReportRequest" />
                        <wsdl:output message="impl:ReportResponse" name="ReportResponse" />
                </wsdl:operation>

        </wsdl:portType>

        <wsdl:binding name="ReportSoapBinding" type="impl:ReportHandler">
                <wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http" />

                <wsdl:operation name="Report">
                        <wsdlsoap:operation soapAction="" />
                        <wsdl:input name="ReportRequest">
                                <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://api.dolphinmp.co.uk/Report" use="encoded" />
                        </wsdl:input>
                        <wsdl:output name="ReportResponse">
                                <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://api.dolphinmp.co.uk/Report" use="encoded" />
                        </wsdl:output>
                </wsdl:operation>

        </wsdl:binding>
       <wsdl:service name="ReportHandlerService">
                <wsdl:port binding="impl:ReportSoapBinding" name="Report">
                        <wsdlsoap:address location="http://api.dolphinmp.co.uk/new_bandwidth.cgi" />
                </wsdl:port>
        </wsdl:service>

</wsdl:definitions>