Bugfixing im Input

diff --git a/smsd.pl b/smsd.pl
index 27da9f23c5e0296f8816e1d100c920286b110343..e6a99e5ba3f660f41464492867ea18000cf7339c 100755 (executable)
--- a/smsd.pl
+++ b/smsd.pl
@@ -555,7 +555,7 @@ sub do_incoming() {
     #$result = `$CmdLine`;
 
     # sicheres Forken
-    $gammu_pid = open( GAMMU, "|-");
+    $gammu_pid = open( GAMMU, "-|");
 
     local $SIG{'ALRM'} = sub { die "Timeout\n" };
 
@@ -564,7 +564,7 @@ sub do_incoming() {
       $result = "";
       eval {
         alarm $timeout;
-        while ( <GAMMU> ) {
+        while ( $_ = <GAMMU> ) {
           $result .= $_;
         }
         close( GAMMU ) || error "kid exited $?", "warning";
@@ -599,6 +599,7 @@ sub do_incoming() {
     }
 
     unless ( $? ) {   # Erfolgreich!!!
+      debug "Parse Content '" . $result . "'.", 2;
       $sms = new SMS();
       $sms->parse_from_gammu( $result );
       unless ( $sms->empty() ) {