projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix long callsign checking
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 9791850521d5fbb00ac2ba190223fe9436ce91d5..2027239b6bac792fffec04499124181f3ff4aaea 100644
(file)
--- 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;
$ann_to_talk = 1;
$rspfcheck = 1;
$eph_restime = 180;
-$eph_info_restime =
15
*60;
+$eph_info_restime =
60
*60;
$eph_pc34_restime = 30;
@checklist =
$eph_pc34_restime = 30;
@checklist =
@@
-441,6
+441,12
@@
sub normal
return;
}
}
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
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;
}
}
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);
# add it
Spot::add(@spot);
@@
-1966,5
+1967,10
@@
sub eph_list
}
return @out;
}
}
return @out;
}
+
+sub run_cmd
+{
+ goto &DXCommandmode::run_cmd;
+}
1;
__END__
1;
__END__