#!/usr/bin/env perl # $Id: setup.pl,v 1.4 2004/07/12 07:50:14 bernisys Exp $ # include PERL libraries use strict; use warnings; use diagnostics; # include HotSaNIC libraries use lib "../../lib"; use lib "./platform"; use HotSaNICparser; use HotSaNICshellio; use HotSaNIClog; use common; $|=1; (my $VERSION = '$Revision: 1.4 $') =~ s/.*(\d+\.\d+).*/$1/; (my $IDENTIFIER = '$Id: setup.pl,v 1.4 2004/07/12 07:50:14 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}})."\""; } print OUTFILE "# SHORT DESCRIPTION # # ntpd-client command # NTPCOMMAND=\"$MODCONF{NTPCOMMAND}\" # # configure targets # # HOST=, # # if you want to query the local host, just add: HOST=\",\" # $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"; WebSVN - hotsanic - Blame - Rev 6 - /branches/HotSaNIC-0.5.0-pre6/modules/ntp/setup.pl

hotsanic

Subversion Repositories:

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

Line No.	Rev	Author	Line