projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix set/here and unset/here
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 5407bb1bd24f96d60affc55ff8975a8b39753cdc..dfb571b280c3333d91cc8502090a0659040fab4a 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-912,11
+912,14
@@
sub normal
$user->lastoper($main::systime); # to cut down on excessive for/opers being generated
$user->put;
my $ref = Route::get($call);
$user->lastoper($main::systime); # to cut down on excessive for/opers being generated
$user->put;
my $ref = Route::get($call);
- $self->route_pc41($ref, $field[2], $field[3], $field[4]) if $ref && !eph_dup($line);
+ $self->route_pc41($ref, $call, $field[2], $field[3], $field[4]) if $ref && !eph_dup($line);
+ return;
}
}
+
if ($pcno == 43) {
last SWITCH;
}
if ($pcno == 43) {
last SWITCH;
}
+
if ($pcno == 37 || $pcno == 44 || $pcno == 45 || $pcno == 46 || $pcno == 47 || $pcno == 48) {
DXDb::process($self, $line);
return;
if ($pcno == 37 || $pcno == 44 || $pcno == 45 || $pcno == 46 || $pcno == 47 || $pcno == 48) {
DXDb::process($self, $line);
return;