#! @PERLV_PATH@
##
## $Id: rancid-fe.in,v 1.45 2007/01/13 22:01:53 heas Exp $
##
## @PACKAGE@ @VERSION@
## Copyright (C) 1997-2006 by Terrapin Communications, Inc.
## All rights reserved.
##
## This software may be freely copied, modified and redistributed
## without fee for non-commerical purposes provided that this license
## remains intact and unmodified with any RANCID distribution.
##
## There is no warranty or other guarantee of fitness of this software.
## It is provided solely "as is".  The author(s) disclaim(s) all
## responsibility and liability with respect to this software's usage
## or its effect upon hardware, computer systems, other software, or
## anything else.
##
## Except where noted otherwise, rancid was written by and is maintained by
## Henry Kilmer, John Heasley, Andrew Partan, Pete Whiting, and Austin Schutz.
##
#
#  rancid-FE - front-end to rancid/jrancid/etc. for use with par.
#
# usage: rancid-fe <router>:<vendor>
#

require 5;

($router, $vendor) = split('\:', $ARGV[0]);
$vendor =~ tr/[A-Z]/[a-z]/;

%vendortable = (
    'agm'		=> 'agmrancid',
    'alteon'		=> 'arancid',
    'baynet'		=> 'brancid',
    'cat5'		=> 'cat5rancid',
    'cisco'		=> 'rancid',
    'css'		=> 'cssrancid',
    'enterasys'		=> 'rivrancid',
    'erx'		=> 'jerancid',
    'extreme'		=> 'xrancid',
    'ezt3'		=> 'erancid',
    'force10'		=> 'f10rancid',
    'foundry'		=> 'francid',
    'hitachi'		=> 'htrancid',
    'hp'		=> 'hrancid',
    'juniper'		=> 'jrancid',
    'mrtd'		=> 'mrancid',
    'netscaler'		=> 'nsrancid',
    'netscreen'		=> 'nrancid',
    'procket'		=> 'prancid',
    'redback'		=> 'rrancid',
    'riverstone'	=> 'rivrancid',
    'smc'		=> 'srancid',
    'tnt'		=> 'tntrancid',
    'zebra'		=> 'zrancid'
);

if ($vendortable{$vendor} eq "") {
    printf(STDERR "unknown router manufacturer for $router: $vendor\n");
    exit(-1);
} else {
    exec($vendortable{$vendor} . " $router");
}

printf(STDERR "exec failed router manufacturer $vendor: $!\n");
exit(-1);