Blob Blame History Raw
#!/usr/local/bin/perl5
# -*- mode: Perl -*-
##################################################################
# Config file creator
##################################################################
# Created by Laurie Gellatly <gellatly@one.net.au>
# based on mrtg cfgmaker by Tobias Oetiker <oetiker@ee.ethz.ch>
# this produces a config file for one router, by pulling info
# off the router via snmp and then writing files ready for
# snmpCollect to use (via xnmcollect) and later ovcvtfile calls
#################################################################
#
# Distributed under the GNU copyleft
#
# $Id: ovcols,v 1.1.1.1 2002/02/26 10:16:36 oetiker Exp $
#
use Socket;
use strict;
use vars '$DEBUG';
use ovmrtg;
my $DEBUG = 0;
my($op,$router,@res);

sub main {
  $op = $ARGV[0];
  $router = $ARGV[1];
  die <<USAGE  unless ($router && (($op eq "+") || ($op eq "-")));

USAGE: ovcols +/- 'router IP ADDRESS/S'

EXAMPLE:  ovcols + 193.21.1.2 

USAGE
   @res=ovcols(@ARGV);
   for($op=0;$op<@res;++$op){
      print $res[$op]."\n";
   }
}  
main;
exit(0);