From 8888279244b7a8950bc9f7aadaac0ff03087dcaa Mon Sep 17 00:00:00 2001 From: hjp Date: Thu, 6 Sep 2007 07:11:14 +0000 Subject: [PATCH] Added option log_y --- tsplotv | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/tsplotv b/tsplotv index ed95197..d671144 100755 --- a/tsplotv +++ b/tsplotv @@ -44,11 +44,13 @@ my $legend_position = 'top right'; my $output_format ='png'; my $stacked = 0; my $style = "lines"; +my $log_y =0; GetOptions('help|?' => \$help, - 'legend_position|legend-position=s' => \$legend_position, - 'output_format|output-format=s' => \$output_format, - 'stacked' => \$stacked, - 'style:s' => \$style, + 'legend_position|legend-position=s' => \$legend_position, + 'output_format|output-format=s' => \$output_format, + 'stacked' => \$stacked, + 'style:s' => \$style, + 'log_y|log-y' => \$log_y, ) or pod2usage(2); pod2usage(1) if $help; @@ -71,6 +73,7 @@ $ts->legend(@series); $ts->legend_position($legend_position); $ts->stacked($stacked); $ts->style($style); +$ts->log_y($log_y); for my $timestamp (sort keys %data) { my %d = %{$data{$timestamp}};