Lines Matching refs:prefix
22 local ($prefix, $origin);
30 $prefix = $1;
32 $ret = &whois_check ($prefix, $origin);
34 print LOOKUP "$prefix AS$origin : Check OK\n";
36 print LOOKUP "$prefix AS$origin : Error\n";
47 local ($prefix, $origin) = @_;
53 # print "$prefix $origin\n";
55 @result = &whois ($prefix);
64 if ($prefix eq $rr_prefix and $origin eq $rr_origin) {
69 alarm_mail ($prefix, $origin, @result);
110 local ($prefix, $origin, @result) = @_;
115 print MAIL "Subject: RR $origin $prefix\n";
120 print MAIL "Announced route : $prefix from $origin\n\n";