Lines Matching refs:prefix
17 local ($prefix, $origin);
31 $prefix = $1;
38 print "$nexthop [$origin] $prefix $aspath ";
40 $ret = &whois_check ($prefix, $origin);
46 print "prefix doesn't exist \n";
54 local ($prefix, $origin) = @_;
60 @result = &whois ($prefix);
70 if ($prefix eq $rr_prefix and $origin eq $rr_origin) {
72 } elsif ($prefix eq $rr_prefix) {
77 # alarm_mail ($prefix, $origin, @result);
122 local ($prefix, $origin, @result) = @_;
127 print MAIL "Subject: RR $origin $prefix\n";
132 print MAIL "Announced route : $prefix from $origin\n\n";