From ae392f02767702e524eaaa51a9b38e19a695ff94 Mon Sep 17 00:00:00 2001
From: Xavier Guimard <xavier.guimard@laposte.net>
Date: Sun, 7 Dec 2008 11:47:38 +0000
Subject: [PATCH] LEMONLDAP::NG : SOAP Service in progress...

---
 .../lib/Lemonldap/NG/Common/CGI.pm              | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/CGI.pm b/modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/CGI.pm
index d059ce0fa..6aeb78f89 100644
--- a/modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/CGI.pm
+++ b/modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/CGI.pm
@@ -23,11 +23,14 @@ sub new {
     my $self  = $class->SUPER::new();
 
     # If non form encoded datas are posted, we call SOAP Services
-    if ( $self->param('POSTDATA') ) {
+    if ( $ENV{HTTP_SOAPACTION} ) {
         my @func = ();
-        push @func, "$class::$_"
-          foreach ( split /\s+/, $args->{SOAPFunctions} );
-        Lemonldap::NG::Common::CGI::SOAP->dispatch_to(@func)->handle($self);
+        foreach ( split /\s+/, $args->{SOAPFunctions} ) {
+            $_ = "${class}::$_" unless (/::/);
+            push @func, $_;
+        }
+        Lemonldap::NG::Common::CGI::SOAPServer->dispatch_to(@func)
+          ->handle($self);
         exit;
     }
     return $self;
@@ -82,9 +85,11 @@ sub abort {
     my $cgi  = CGI->new;
     my ( $t1, $t2 ) = @_;
     $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(
-        #-status   => '500 Server Error',
         -title    => $t1,
         -encoding => 'utf8',
     );