groupstats.pl: More input validation.
authorThomas Hochstein <thh@inter.net>
Sat, 18 Sep 2010 19:59:13 +0000 (21:59 +0200)
committerThomas Hochstein <thh@inter.net>
Sat, 18 Sep 2010 19:59:13 +0000 (21:59 +0200)
Set -o to 'pretty' for time periods.
Set -b to 10 if < 1.

Signed-off-by: Thomas Hochstein <thh@inter.net>
groupstats.pl

index 1c143d2..a09c632 100755 (executable)
@@ -75,8 +75,8 @@ if ($Options{'l'}) {
 my ($StartMonth,$EndMonth) = &GetTimePeriod($Options{'m'},$Options{'p'});
 # reset to one month for 'dump' output type
 if ($Options{'o'} eq 'dump' and $Options{'p'}) {
-  $StartMonth = $EndMonth;
-  warn ("$MySelf: W: You cannot combine time periods (-p) with '-o dump'. Month was set to $StartMonth.\n");
+  warn ("$MySelf: W: You cannot combine time periods (-p) with '-o dump', changing output type to '-o pretty'.\n");
+  $Options{'o'} = 'pretty';
 };
 
 ### init database
@@ -136,6 +136,8 @@ if (!defined($Options{'b'}) and !defined($Options{'l'})) {
   } else {
     $OrderClause = 'postings DESC';
   };
+  # set -b to 10 if < 1 (Top 10)
+  $Options{'b'} = 10 if $Options{'b'} !~ /^\d*$/ or $Options{'b'} < 1;
   # push LIMIT to GroupList to match number of binding vars for DBQuery->execute
   push @GroupList,$Options{'b'};
   # prepare query: get sum of postings per group from groups table for given months and newsgroups with LIMIT
This page took 0.010414 seconds and 4 git commands to generate.