#! /usr/local/bin/perl
# $Header: /home/aggarwal/lsrc/nocol/src/perlnocol/RCS/mkarmon,v 1.1 1993/10/15 18:33:36 aggarwal Exp $
#
# Author:  John Wobus, jmwobus@mailbox.syr.edu
#
# mkarmon - take output of Cisco "show apple route" command and
# create lines suitable for armon configuration file (for NOCOL).
#
# Sample execution command:
#    rcisco  myrouter mypasswd 'show apple route'  | mkarmon
#
# Example lines:
#    C Net 50-50 directly connected, Ethernet0, zone GES:Sub50
#    R Net 52 [1/G] via 50.128, 1 sec, Ethernet0, zone GES:Sub50
#
sub doline {
    if($ready =~ /^[RC] Net (\d+(-\d+)?).*((Ethernet|Serial)\d+)\D.*(zone |Zone: ")(\w\S*(\s+\S+)*)"?\s*(Additional zones: (.*) ?)?$/)
    {
	$nets=$1;
	$interface = $3;
	$zone=$6;
	$xzones=$8;
	$interface =~ s/Ethernet/e/ ;  $interface =~ s/Serial/s/ ;
	$item="$nets\t$interface\t$zone";

	print STDOUT "$item\n";
    }
}


while(<>){chop;$ready=$_;&doline;}
