#!/usr/bin/env perl # $Id: setup.pl,v 1.11 2004/07/12 07:50:15 bernisys Exp $ # include PERL libraries use strict; use warnings; use diagnostics; # include HotSaNIC libraries use lib "../../lib"; use lib "./platform"; use HotSaNICparser; use HotSaNIClog; use common; $|=1; (my $VERSION = '$Revision: 1.11 $') =~ s/.*(\d+\.\d+).*/$1/; (my $IDENTIFIER = '$Id: setup.pl,v 1.11 2004/07/12 07:50:15 bernisys Exp $') =~ s/.*,v (.*) \$/$1/; my $MODNAME=HotSaNICparser::get_module_name(); my %MODCONF=HotSaNICmod::common::configure(); my $OUTFILE="settings.new"; if ( ! -e "settings" ) { $OUTFILE="settings"; } open OUTFILE,">$OUTFILE" || die "could not open ".HotSaNICparser::get_module_name()." settings file for writing.\n"; if (@{$MODCONF{HOST}}) { $MODCONF{HOST}="HOST=\"".join("\"\nHOST=\"",@{$MODCONF{HOST}})."\""; } else { $MODCONF{HOST}=""; } print OUTFILE "# query-interval in seconds. # INTERVAL=\"$MODCONF{INTERVAL}\" # set type of diagrams (whatever you like best ... Thanx M. Renner! :) ) # classic (default) -> shade ranges for min, avg, max in different colors # simple -> only shade area between min and max in light blue # TYPE=\"$MODCONF{TYPE}\" # set diagram scaling # log -> set logarithmic scaling (default) # lin -> set linear scaling # # This item was previously named \"SCALE\" # GRAPH_STYLE=\"$MODCONF{GRAPH_STYLE}\" # set diagram initial upper border in milliseconds (for better graph comparison) # GRAPH_MAX=\"10\" sets all diagrams upper border to 10ms # GRAPH_MAX=\"0.01\" sets all diagrams upper border to 100us # # This item was previously named \"UPPER\" # GRAPH_MAX=\"$MODCONF{GRAPH_MAX}\" # how many ping processes shall be done in parallel. Reducing the number # causes the process to run longer, but keeps your system load a bit lower. # PARALLEL=\"$MODCONF{PARALLEL}\" # which PING method shall be used by default # If you run HotSaNIC without root privileges, you should either use \"ping\" or # \"perl-tcp\" - but note, that some hosts don't reply to tcp ping packages! # # valid methods are: # perl-icmp use Net::Ping library / Proto: ICMP (default) # perl-tcp use Net::Ping library / Proto: TCP # ping use the system's \"ping\" command # echo use \"echoping\" / Proto: ECHO # echo-udp use \"echoping\" / Proto: UDP # echo-icp use \"echoping\" / Proto: ICP # echo-http use \"echoping\" / Proto: HTTP # echo-smtp use \"echoping\" / Proto: SMTP # echo-disc use \"echoping\" / Proto: discharge # echo-cgen use \"echoping\" / Proto: chargen # METHOD=\"$MODCONF{METHOD}\" # configure multiple destinations of the form: # HOST=,, # # method can be one of the above methods, it overrides the default method # $MODCONF{HOST} "; close OUTFILE; if ($OUTFILE eq "settings.new") { HotSaNICparser::backup_file("settings"); rename "settings.new","settings"; } print "Please check the settings file and adapt it to satisfy your needs.\n"; if ($OUTFILE ne "settings.new") { print "you probably have to configure some destination hosts.\n"; } WebSVN - hotsanic - Blame - Rev 25 - /branches/HotSaNIC-0.5.0-pre6/modules/ping/setup.pl

hotsanic

Subversion Repositories:

[/] [branches/] [HotSaNIC-0.5.0-pre6/] [modules/] [ping/] [setup.pl] - Blame information for rev 25

Line No.	Rev	Author	Line