#!/usr/local/bin/perl5

# -*- mode: Perl -*-

##################################################################

# This file controls the creation of all the MRTG config files from OV

##################################################################

# Created by Laurie Gellatly <gellatly@one.net.au>

# See newrtrov.txt for a description of what is performed

#################################################################

#

# Distributed under the GNU copyleft

#

# $Id: ovsho,v 1.1.1.1 2002/02/26 10:16:36 oetiker Exp $

#

use Socket;

use strict;

use vars '$DEBUG';

my $DEBUG = 0;

my $rundir = "/opt/mrtg/run";

my $dnsfile = "ovmrtgc.csv";

my($line,@sysnms); 

sub main {

   chdir $rundir;

   open (DNSFILE,"<".$dnsfile);

   while(<DNSFILE>){

      chomp;

      $line = $_;

      $sysnms[@sysnms]= (split /\,/,$line)[2];

   }

   close (DNSFILE);

   `ovtgts $ENV{OVwSessionID} @sysnms`;

}  

main;

exit(0);