dup check PC49

diff --git a/Changes b/Changes
index 72f2d4723485edaa01dcd0ec4c19ef50dffaddbc..0890d5ed22a7680d78effc70b399fb91e16cf073 100644 (file)
--- a/Changes
+++ b/Changes
@@ -5,6 +5,7 @@ last port of call).
 3. ignore deleted messages for queuing purposes
 4. store deleted status across restarts!
 5. make callsign checking more rigorous
 3. ignore deleted messages for queuing purposes
 4. store deleted status across restarts!
 5. make callsign checking more rigorous

+6. dup check PC49 (kill full)

 03Oct01=======================================================================
 1. don't allow @WWW to become a 'TO' field...
 2. handle @gb7tlh.#35.eu type addresses as well
 03Oct01=======================================================================
 1. don't allow @WWW to become a 'TO' field...
 2. handle @gb7tlh.#35.eu type addresses as well

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d6a81ec4328ff0e4d8db67eda6010474df64bca2..d3b39cb32097963b2ba0da0023b54fef9df8505b 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -957,6 +957,7 @@ sub normal
                }
 
                if (($pcno >= 28 && $pcno <= 33) || $pcno == 40 || $pcno == 42 || $pcno == 49) { # mail/file handling
                }
 
                if (($pcno >= 28 && $pcno <= 33) || $pcno == 40 || $pcno == 42 || $pcno == 49) { # mail/file handling

+                       return if $pcno == 49 && eph_dup($line);

                        if ($pcno == 49 || $field[1] eq $main::mycall) {
                                DXMsg::process($self, $line);
                        } else {
                        if ($pcno == 49 || $field[1] eq $main::mycall) {
                                DXMsg::process($self, $line);
                        } else {