Split points out as seperate arg

git-svn-id: svn://10.0.0.236/trunk@110424 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
mcafee%netscape.com 2001-12-13 07:32:40 +00:00
parent 7a3e3068d8
commit 3523eedf6f

View File

@ -11,6 +11,7 @@ my $TBOX = lc($req->param('tbox'));
my $AUTOSCALE = lc($req->param('autoscale'));
my $DAYS = lc($req->param('days'));
my $LTYPE = lc($req->param('ltype'));
my $POINTS = lc($req->param('points'));
my $DATAFILE = "db/$TESTNAME/$TBOX";
sub make_filenames_list {
@ -135,8 +136,13 @@ sub show_graph {
my $ltype = "lines";
if($LTYPE eq "steps") {
$ltype = "steps";
} elsif($LTYPE eq "points") {
$ltype = "points ps 1";
}
my $plot_cmd;
if($POINTS) {
$plot_cmd = "plot \"$DATAFILE\" using 1:2 with $ltype, \"$DATAFILE\" using 1:2 with points ps 1";
} else {
$plot_cmd = "plot \"$DATAFILE\" using 1:2 with $ltype";
}
# interpolate params into gnuplot command
@ -159,7 +165,7 @@ sub show_graph {
set timestamp "Generated: %d/%b/%y %H:%M" 0,-1
set nokey
set grid
plot "$DATAFILE" using 1:2 with $ltype
$plot_cmd
};
# plot "$DATAFILE" using 1:2 with points ps 1, "$DATAFILE" using 1:2 with lines ls 2