LEMONLDAP::NG : SOAP Service in progress...
This commit is contained in:
parent
53dc4bbbf4
commit
ae392f0276
|
@ -23,11 +23,14 @@ sub new {
|
||||||
my $self = $class->SUPER::new();
|
my $self = $class->SUPER::new();
|
||||||
|
|
||||||
# If non form encoded datas are posted, we call SOAP Services
|
# If non form encoded datas are posted, we call SOAP Services
|
||||||
if ( $self->param('POSTDATA') ) {
|
if ( $ENV{HTTP_SOAPACTION} ) {
|
||||||
my @func = ();
|
my @func = ();
|
||||||
push @func, "$class::$_"
|
foreach ( split /\s+/, $args->{SOAPFunctions} ) {
|
||||||
foreach ( split /\s+/, $args->{SOAPFunctions} );
|
$_ = "${class}::$_" unless (/::/);
|
||||||
Lemonldap::NG::Common::CGI::SOAP->dispatch_to(@func)->handle($self);
|
push @func, $_;
|
||||||
|
}
|
||||||
|
Lemonldap::NG::Common::CGI::SOAPServer->dispatch_to(@func)
|
||||||
|
->handle($self);
|
||||||
exit;
|
exit;
|
||||||
}
|
}
|
||||||
return $self;
|
return $self;
|
||||||
|
@ -82,9 +85,11 @@ sub abort {
|
||||||
my $cgi = CGI->new;
|
my $cgi = CGI->new;
|
||||||
my ( $t1, $t2 ) = @_;
|
my ( $t1, $t2 ) = @_;
|
||||||
$t2 ||= "See Apache's logs";
|
$t2 ||= "See Apache's logs";
|
||||||
print $cgi->header('text/html; charset=utf8');
|
print $cgi->header(
|
||||||
|
-type => 'text/html; charset=utf8',
|
||||||
|
-status => '500 Server Error',
|
||||||
|
);
|
||||||
print $cgi->start_html(
|
print $cgi->start_html(
|
||||||
#-status => '500 Server Error',
|
|
||||||
-title => $t1,
|
-title => $t1,
|
||||||
-encoding => 'utf8',
|
-encoding => 'utf8',
|
||||||
);
|
);
|
||||||
|
|
Loading…
Reference in New Issue
Block a user