X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=2027239b6bac792fffec04499124181f3ff4aaea;hb=d5f2d5d24835524cf6908beb0819e791bf407da8;hp=9791850521d5fbb00ac2ba190223fe9436ce91d5;hpb=cb340a0cf45f789d95201e4d4b9aec4ed581622d;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 97918505..2027239b 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -63,7 +63,7 @@ $last10 = $last_pc50 = time;
 $ann_to_talk = 1;
 $rspfcheck = 1;
 $eph_restime = 180;
-$eph_info_restime = 15*60;
+$eph_info_restime = 60*60;
 $eph_pc34_restime = 30;
 
 @checklist = 
@@ -441,6 +441,12 @@ sub normal
 					return;
 				}
 			}
+			
+			if (Spot::dup($field[1], $field[2], $d, $field[5])) {
+				dbg("PCPROT: Duplicate Spot ignored\n") if isdbg('chanerr');
+				return;
+			}
+
 
 			my @spot = Spot::prepare($field[1], $field[2], $d, $field[5], $field[6], $field[7]);
 			# global spot filtering on INPUT
@@ -451,11 +457,6 @@ sub normal
 					return;
 				}
 			}
-			
-			if (Spot::dup($field[1], $field[2], $d, $field[5])) {
-				dbg("PCPROT: Duplicate Spot ignored\n") if isdbg('chanerr');
-				return;
-			}
 
 			# add it 
 			Spot::add(@spot);
@@ -1966,5 +1967,10 @@ sub eph_list
 	}
 	return @out;
 }
+
+sub run_cmd
+{
+	goto &DXCommandmode::run_cmd;
+}
 1;
 __END__