#----------------------------
print "\n-----> Define config file name to create\n";
print "What is the name of your web site or profile analysis ?\n";
- # TODO Add example that use value found in ServerName ?
print "Example: www.mysite.com\n";
print "Example: demo\n";
ASKCONFIG:
if (-s $configfile) { print " Config file already exists. No overwrite possible on existing config files.\n"; }
else {
%ConfToChange=();
- # TODO Ask path of log file to change LogFile parameter
if ($OS eq 'linux' || $OS eq "macosx") { $ConfToChange{'DirData'}="$AWSTATS_DIRDATA_PATH"; }
if ($OS eq 'windows') { $ConfToChange{'DirData'}='.'; }
if ($UseAlias) {
$QueryString="";
for (0..@ARGV-1) {
- # TODO Check if ARGV is an AllowedArg
if ($_ > 0) { $QueryString .= "&"; }
my $NewLinkParams=$ARGV[$_]; $NewLinkParams =~ s/^-+//; $NewLinkParams =~ s/\s/%20/g;
$QueryString .= "$NewLinkParams";