Return to rrlookup.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / quagga / tools

Annotation of embedaddon/quagga/tools/rrlookup.pl, revision 1.1.1.1

1.1       misho       1: #! /usr/local/bin/perl
                      2: ##
                      3: ## Read BGPd logfile and lookup RR's whois database.
                      4: ##
                      5: ##   Copyright (c) 1997 Kunihiro Ishiguro
                      6: ##
                      7: use Socket;
                      8: 
                      9: ## Configuration variables
                     10: $whois_host = "whois.jpix.ad.jp";
                     11: 
                     12: #$mail_address = "toshio\@iri.co.jp";
                     13: $mail_address = "kunihiro\@zebra.org";
                     14: $mailer = "/usr/sbin/sendmail -oi";
                     15: 
                     16: #$logfile = "/usr/local/sbin/logfile"
                     17: $logfile = "logfile";
                     18: $lookuplog = "lookuplog";
                     19: 
                     20: ## mail routine
                     21: {
                     22:     local ($prefix, $origin);
                     23: 
                     24:     open (LOG, $logfile) || die "can't open $logfile";
                     25:     open (LOOKUP, ">$lookuplog") || die "can't open $lookuplog";
                     26:     
                     27:     for (;;) {
                     28:     while (<LOG>) {
                     29:         if (/Update\S+ ([\d\.\/]+) .* (\d+) [ie\?]/) {
                     30:             $prefix = $1;
                     31:             $origin = $2;
                     32:             $ret = &whois_check ($prefix, $origin);
                     33:             if ($ret) {
                     34:                 print LOOKUP "$prefix AS$origin : Check OK\n";
                     35:             } else {
                     36:                 print LOOKUP "$prefix AS$origin : Error\n";
                     37:             }
                     38: #        fflush (LOOKUP);
                     39:         }
                     40:     }
                     41:     sleep (3);
                     42:     }
                     43: }
                     44: 
                     45: sub whois_check
                     46: {
                     47:     local ($prefix, $origin) = @_;
                     48:     local ($rr_prefix, $rr_origin) = ();
                     49:     local (@result);
                     50: 
                     51:     $origin = "AS" . $origin;
                     52: 
                     53: #    print "$prefix $origin\n";
                     54: 
                     55:     @result = &whois ($prefix);
                     56: 
                     57:     foreach (@result) {
                     58:         if (/^route:.*\s([\d\.\/]+)$/) {
                     59:             $rr_prefix = $1;
                     60:         }
                     61:         if (/^origin:.*\s(AS[\d]+)$/) {
                     62:             $rr_origin = $1;
                     63: 
                     64:             if ($prefix eq $rr_prefix and $origin eq $rr_origin) {
                     65:                 return 1;
                     66:             }
                     67:         }
                     68:     }
                     69:     alarm_mail ($prefix, $origin, @result);
                     70:     return 0;
                     71: }
                     72: 
                     73: ## get port of whois
                     74: sub get_whois_port 
                     75: {
                     76:     local ($name, $aliases, $port, $proto) = getservbyname ("whois", "tcp");
                     77:     return ($port, $proto);
                     78: }
                     79: 
                     80: ## whois lookup
                     81: sub whois 
                     82: {
                     83:     local ($query) = @_;
                     84:     local ($port, $proto) = &get_whois_port;
                     85:     local (@result);
                     86: 
                     87:     if ($whois_host=~ /^\s*\d+\.\d+\.\d+\.\d+\s*$/) {
                     88:        $address = pack ("C4",split(/\./,$host));
                     89:     } else {
                     90:        $address = (gethostbyname ($whois_host))[4];
                     91:     }
                     92: 
                     93:     socket (SOCKET, PF_INET, SOCK_STREAM, $proto);
                     94: 
                     95:     if (connect (SOCKET, sockaddr_in ($port, $address))) {
                     96:         local ($oldhandle) = select (SOCKET);
                     97:         $| = 1;
                     98:         select($oldhandle);
                     99: 
                    100:         print SOCKET "$query\r\n";
                    101: 
                    102:         @result = <SOCKET>;
                    103:         return @result;
                    104:     }
                    105: }
                    106: 
                    107: ##
                    108: sub alarm_mail 
                    109: {
                    110:     local ($prefix, $origin, @result) = @_;
                    111: 
                    112:     open (MAIL, "|$mailer -t $mail_address") || die "can't open $mailer";
                    113:     
                    114:     print MAIL "From: root\@rr1.jpix.ad.jp\n";
                    115:     print MAIL "Subject: RR $origin $prefix\n";
                    116:     print MAIL "MIME-Version: 1.0\n";
                    117:     print MAIL "Content-Type: text/plain; charset=us-ascii \n\n";
                    118:     print MAIL "RR Lookup Error Report\n";
                    119:     print MAIL "======================\n";
                    120:     print MAIL "Announced route : $prefix from $origin\n\n";
                    121:     print MAIL "@result";
                    122:     close MAIL;
                    123: }