#!/usr/bin/env perl # $Id: setup.pl,v 1.6 2004/07/12 07:50:16 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.6 $') =~ s/.*(\d+\.\d+).*/$1/; (my $IDENTIFIER = '$Id: setup.pl,v 1.6 2004/07/12 07:50:16 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{ITEM}}) { $MODCONF{ITEM}="ITEM=\"".join("\"\nITEM=\"",@{$MODCONF{ITEM}})."\""; } else { $MODCONF{ITEM}=""; } print OUTFILE "# SHORT DESCRIPTION # full path to the httpd logfile directory # LOGPATH=\"/var/log/httpd\" # LOGPATH=\"$MODCONF{LOGPATH}\" # name of the httpd access logfiles # LOGNAME=\"access_log\" # LOGNAME=\"$MODCONF{LOGNAME}\" # query-time in seconds # INTERVAL=600 # INTERVAL=\"$MODCONF{INTERVAL}\" # list items to query from HTTPD logfile # ITEM=: # $MODCONF{ITEM} "; 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 5 - /branches/HotSaNIC-0.5.0-pre6/modules/worms/setup.pl

hotsanic

Subversion Repositories:

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

Line No.	Rev	Author	Line