By default, show results for most recent month only. Add an --all opt…

…ion to show complete history.
InCommon · Jun 2, 2010 · f170c26 · f170c26
1 parent 5679c2e
commit f170c26
Show file tree

Hide file tree

Showing 3 changed files with 36 additions and 0 deletions.
diff --git a/charting/saml2.pl b/charting/saml2.pl
@@ -9,6 +9,18 @@
 use Xalan;
 use Months;
 
+# Parse command line arguments
+use Getopt::Long;
+my $allMonths;
+GetOptions('all' => \$allMonths);
+
+# By default, only show results for the most recent month
+if (!$allMonths) {
+	# reduce months table to one element
+	my $oneMonth = pop @months;
+	@months = ( $oneMonth );
+}
+
 # ingest files
 foreach $month (@months) {
 	my $fn = "cache/$month.xml";

diff --git a/charting/sizes.pl b/charting/sizes.pl
@@ -6,6 +6,18 @@
 use File::stat;
 use Months;
 
+# Parse command line arguments
+use Getopt::Long;
+my $allMonths;
+GetOptions('all' => \$allMonths);
+
+# By default, only show results for the most recent month
+if (!$allMonths) {
+	# reduce months table to one element
+	my $oneMonth = pop @months;
+	@months = ( $oneMonth );
+}
+
 # ingest files
 foreach $month (@months) {
 	my $fn = "cache/$month.xml";

diff --git a/charting/trust.pl b/charting/trust.pl
@@ -9,6 +9,18 @@
 use Xalan;
 use Months;
 
+# Parse command line arguments
+use Getopt::Long;
+my $allMonths;
+GetOptions('all' => \$allMonths);
+
+# By default, only show results for the most recent month
+if (!$allMonths) {
+	# reduce months table to one element
+	my $oneMonth = pop @months;
+	@months = ( $oneMonth );
+}
+
 # ingest files
 foreach $month (@months) {
 	my $fn = "cache/$month.xml";