#!/usr/local/bin/perl -w

use strict;
use File::Find;

die "Usage: get-router-info <yyyy/mmdd>\n" unless (@ARGV == 1);


###############VARIABLE DEFS###############

my $newdate = $ARGV[0];
my $DATE = $newdate;
$DATE =~ s-/--;
my $versdir="/a/very/long/path/$newdate/to/version/pop"; 
my $diag_dir ="/a/very/long/path/$newdate/to/diagbus/pop";
my $rtr_names = "/export/home/limo/Perl/router-list.$DATE";
my $eddie_prv = "/path/to/some/other/file.$DATE";
my $eddie_pub = "/path/to/some/different/file.$DATE";
my $asdir =  "/nfs/jumbo/b/Peering/AS123";
my $rtr_diag;
my $ver_print_string; 

my %slots = ();
my %version =();
my %rtrs = ();
my %peers = ();

my @diaglist = ();

########################PROGRAM BEGINS################

#read list of routers for collection into %rtrs
&read_rtr_hash; 

# decide if they are peering, who they peer with.
&decide_peer;

#get router type and IOS version
find(\&version, $versdir);

#get module configuration, unless module is procesor, power supply,
#clock, or switch

find(\&diag, $diag_dir);

&print;

#########################SUBSROUTINES##############################

sub read_rtr_hash {
  
  open (RTRLIST, $rtr_names) or die "Cannot open $rtr_names: $!\n";
  
  while (<RTRLIST>) {
    chomp;
    my @rtr = split;
    my $init = "1";
    foreach my $device (@rtr) {
      push @{$rtrs{$device}}, $init;
    }	
  }
}


sub decide_peer {
  
  open (PRV, "<$eddie_prv") or die "Cannot read $eddie_prv: $!";
  
  while (<PRV>) {
    chomp;
    my ($prv, $dev) = (split(' ', lc($_)))[0,3];
    if ( exists $rtrs{$dev} ) {
      if ( exists $peers{$dev})  {
	$peers{$dev}[0].= "$prv, ";
      } else {
	push @{$peers{$dev}}, ("$prv, ", "");
	
      }
    }
  }    
  
  
  open (PUB, "<$eddie_pub") or die "Cannot read $eddie_pub: $!";
  
  while (<PUB>) {
    chomp;
    my ($pub, $dev) = (split(' ', lc($_)))[0,3];
    if ( exists $rtrs{$dev} ) {
      if ( exists $peers{$dev}) {
	$peers{$dev}[1].= "$pub, ";
      } else {
	push @{$peers{$dev}}, ("", "$pub, ");
	
      }
    }
  }
}


sub version {
  
  @ios_ver = `cat $_ |grep IOS` unless ( $_ =~ m/^\./);
  my $vers = $_;
  $vers =~ s/\.bbnplanet\.net//;
  if (exists $rtrs{$vers}) {  
    foreach my $rtr_name(@ios_ver) {
    my  @tmp_array = split(' ',$rtr_name); 
      if  ($rtr_name =~ m/(Version.*?),/) {
	push @{$version{$vers}}, $rtr_name;
	$ver_print_string = ("$i[2] $1");
	
      }       	
    }
    
  }
}

sub diag {
  
  @diaglist = `cat $_ |grep SLOT` unless ($_ =~ m/^\./);
  my $router = $_;
  $_ =~ s/\.bbnplanet\.net//; 
  if (exists $rtrs{$router}) {
    foreach $rtr_diag(@diaglist) {
      next if  ($rtr_diag =~ m/Clock|Switch|Power|Processor/);
      push @{$slots{$router}}, $rtr_diag;
    }
  }
} 


sub print {
  
  foreach  my  $vers_key (sort keys %version) {
    foreach  my  $mod_key (sort keys %slots) {
      my $module = join "", @{$slots{$mod_key}};
      foreach my $peer_dev (sort keys %peer) {
	my ($prv, $pub) =  @{$peer{$peer_dev}};    
	
	print "$peer_dev:\n"; 
	print "================\n";
	print "belongs to AS123\n";
	print "private peers: $prv\n";
	print "public peers: $pub\n\n";
	print "IOS Version: $vers_key\n"; 
	print "$module\n";
      }
    }     
  }	    
}    

######################END#######################

##</code><code>##

     Router A: 
	===========
	belongs to AS123
	private peers: 456   #oops, this is data from router b
	print "public peers: 789 #oops, this is data from router c
	print "IOS Version:  #etc...etc..etc