make SOAPAction header optional

ZTE I20X doesn't seem to send one

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@245 836a5e1a-633d-0410-964b-294494ad4392

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index 27a2557..64faa00 100644 (file)
--- a/lib/CWMP/Session.pm
+++ b/lib/CWMP/Session.pm
@@ -131,7 +131,7 @@ sub process_request {
 
        if ( $size > 0 ) {
 
-               die "no SOAPAction header in ",dump($xml) unless defined ( $r->header('SOAPAction') );
+               warn "no SOAPAction header in ",dump($xml) unless defined ( $r->header('SOAPAction') );
 
                warn "## request payload: ",length($xml)," bytes\n$xml\n" if $self->debug;