SOAPService.pm 1.31 KB
Newer Older
1 2 3 4 5 6 7
## @file
# SOAP wrapper used to restrict exported functions

## @class
# SOAP wrapper used to restrict exported functions
package Lemonldap::NG::Common::CGI::SOAPService;

8 9
require SOAP::Lite;

10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
## @cmethod Lemonldap::NG::Common::CGI::SOAPService new(object obj,string @func)
# Constructor
# @param $obj object which will be called for SOAP authorizated methods
# @param @fung authorizated methods
# @return Lemonldap::NG::Common::CGI::SOAPService object
sub new {
    my($class, $obj, @func) = @_;
    s/.*::// foreach(@func);
    return bless {obj=>$obj,func=>\@func}, $class;
}

## @method datas AUTOLOAD()
# Call the wanted function with the object given to the constructor.
# AUTOLOAD() is a magic method called by Perl interpreter fon non existent
# functions. Here, we use it to call the wanted function (given by $AUTOLOAD)
# if it is authorizated
# @return datas provided by the exported function
sub AUTOLOAD {
    my $self = shift;
    $AUTOLOAD =~ s/.*:://;
    if(grep {$_ eq $AUTOLOAD} @{$self->{func}}){
31 32 33 34 35
        my $tmp = $self->{obj}->$AUTOLOAD(@_);
        unless(ref($tmp) and ref($tmp) eq 'SOAP::Data') {
            $tmp = SOAP::Data->name( result => $tmp );
        }
        return $tmp;
36 37
    }
    elsif($AUTOLOAD ne 'DESTROY') {
38
        die "$AUTOLOAD is not an authorizated function";use Data::Dumper;
39 40 41 42 43 44
    }
    1;
}

1;