make things appear

[spider.git] / perl / Aranea.pm

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index bbe24bbd5194e7cd9c565cf9dfb5318564377601..7f0134c33e32bb0b8061d18684245b514d51f6a4 100644 (file)
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -206,6 +206,7 @@ sub genheader
        my $date = ((($dayno << 1) | $ntpflag) << 18) |  ($main::systime % 86400);
        my $r = "$mycall," . sprintf('%6X%04X,0', $date, $seqno);
        $r .= ",$to" if $to;
+       $r .= "," if $from && !$to;
        $r .= ",$from" if $from;
        $seqno++;
        $seqno = 0 if $seqno > 0x0ffff;
@@ -325,15 +326,17 @@ sub input
                $thing->{user} = $user if $user;
                $thing->{hopsaway} = $hop; 
 
-               for (split(/,/, $rdata)) {
-                       if (/=/) {
-                               my ($k,$v) = split /=/, $_, 2;
-                               $thing->{$k} = tdecode($v);
-                       } else {
-                               $thing->{$_} = 1;
+               if ($rdata) {
+                       for (split(/,/, $rdata)) {
+                               if (/=/) {
+                                       my ($k,$v) = split /=/, $_, 2;
+                                       $thing->{$k} = tdecode($v);
+                               } else {
+                                       $thing->{$_} = 1;
+                               }
                        }
                }
-
+               
                # post process the thing, this generally adds on semantic meaning
                # does parameter checking etc. It also adds / prepares the thingy so
                # this is compatible with older protocol and arranges data so