Add a --year option to sizes.pl

internet2 · Nov 7, 2016 · a516eb4 · a516eb4
1 parent 7b6c3f5
commit a516eb4
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/charting/sizes.pl b/charting/sizes.pl
@@ -11,13 +11,18 @@
 # Parse command line arguments
 use Getopt::Long;
 my $allMonths;
-GetOptions('all' => \$allMonths);
+my $oneYear;
+GetOptions('all' => \$allMonths, 'year' => \$oneYear);
 
 # By default, only show results for the most recent month
-if (!$allMonths) {
+if ($allMonths) {
+	# leave table intact
+} elsif ($oneYear) {
+	# reduce months table to just the last 12 entries
+	@months = @months[-12..-1];
+} else {
 	# reduce months table to one element
-	my $oneMonth = pop @months;
-	@months = ( $oneMonth );
+	@months = @months[-1..-1];
 }
 
 # ingest files