add import_cmd and other tidyups

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d8dad2c3280ad54b6716dedf6e57aa968515ba59..16c91803950701bfccd329de119a87208aa66dc7 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -972,6 +972,12 @@ sub handle_19
                                } else {
                                        next;
                                }
+                       } else {
+                               if ($r->version != $ver || $r->flags != $flags) {
+                                       $r->version($ver);
+                                       $r->flags($flags);
+                                       push @rout, $r;
+                               }
                        }
                } else {
 
@@ -2409,7 +2415,6 @@ sub import_chat
        my $name;
        foreach $name (@names) {
                next if $name =~ /^\./;
-               my $splitit = $name =~ /^split/;
                my $fn = "$chatimportfn/$name";
                next unless -f $fn;
                unless (open(MSG, $fn)) {