#-------------------------------------------------------
# MAIN
#-------------------------------------------------------
-my $QueryString=""; for (0..@ARGV-1) { $QueryString .= "$ARGV[$_] "; }
+($DIR=$0) =~ s/([^\/\\]*)$//; ($PROG=$1) =~ s/\.([^\.]*)$//; $Extension=$1;
+
+my $QueryString=''; for (0..@ARGV-1) { $QueryString .= "$ARGV[$_] "; }
+
+if ($QueryString =~ /(^|-|&)month=(year)/i) { error("month=year is a deprecated option. Use month=all instead."); }
+
if ($QueryString =~ /-debug=/i) { $Debug=$QueryString; $Debug =~ s/.*debug=//; $Debug =~ s/&.*//; $Debug =~ s/ .*//; }
if ($QueryString =~ /-config=/i) { $Config=$QueryString; $Config =~ s/.*config=//; $Config =~ s/&.*//; $Config =~ s/ .*//; }
if ($QueryString =~ /-awstatsprog=/i) { $Awstats=$QueryString; $Awstats =~ s/.*awstatsprog=//; $Awstats =~ s/&.*//; $Awstats =~ s/ .*//; }
if ($QueryString =~ /-update/i) { $Update=1; }
if ($QueryString =~ /-date/i) { $Date=1; }
if ($QueryString =~ /-year=(\d\d\d\d)/i) { $YearRequired="$1"; }
-if ($QueryString =~ /-month=(\d\d)/i || $QueryString =~ /month=(year)/i) { $MonthRequired="$1"; }
+if ($QueryString =~ /-month=(\d\d)/i || $QueryString =~ /month=(all)/i) { $MonthRequired="$1"; }
if ($QueryString =~ /-lang=([^\s&]+)/i) { $Lang=$1; }
-($DIR=$0) =~ s/([^\/\\]*)$//; ($PROG=$1) =~ s/\.([^\.]*)$//; $Extension=$1;
if ($OutputDir) { if ($OutputDir !~ /[\\\/]$/) { $OutputDir.="/"; } }
if (! $Config) {