You are viewing a plain text version of this content. The canonical link for it is here.
Posted to docs-cvs@perl.apache.org by st...@apache.org on 2002/04/03 13:44:15 UTC
cvs commit: modperl-docs/src/stats graph.pl
stas 02/04/03 03:44:15
Modified: src/stats graph.pl
Log:
- make the graph narrower to better fit into the page
- use x-axis titles only on every 3rd tick (we have a lot of data to fit)
Revision Changes Path
1.2 +7 -8 modperl-docs/src/stats/graph.pl
Index: graph.pl
===================================================================
RCS file: /home/cvs/modperl-docs/src/stats/graph.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- graph.pl 5 Jan 2002 19:15:41 -0000 1.1
+++ graph.pl 3 Apr 2002 11:44:15 -0000 1.2
@@ -7,7 +7,7 @@
#April 1999 134255 32570
#March 1999 112399 28482
#
-# first set describes a number Hostnames, 2nd - Unique IP numbers
+# the 1st col describes a number of hostnames, 2nd - Unique IP numbers
#
# first graph (graph.gif) is a normal one
#
@@ -18,14 +18,13 @@
# Note: you need GD::Graph package to be installed in order to use this
# script.
-# This script is free software; you can
-# redistribute it and/or modify it under the same terms as
-# Perl itself.
+# This script is free software; you can redistribute it and/or modify
+# it under the same terms as Perl itself.
# by Stas Bekman <st...@stason.org>
-# Aug, 14 1999
+# Aug 14 1999
#
-# updated July, 16 to generate jpegs instead of gifs (since gif support
+# updated July 16 2001 to generate jpegs instead of gifs (since gif support
# was removed from libgd)
use GD::Graph::linespoints;
@@ -50,7 +49,7 @@
# plot a normal graph of points with all the info as possible
sub normal_graph{
- my $my_graph = new GD::Graph::linespoints(700,400);
+ my $my_graph = new GD::Graph::linespoints(600,400);
$my_graph->set(
x_label => 'Months',
@@ -58,7 +57,7 @@
title => "mod_perl usage survey (numbers are by courtesy of netcraft.com).",
y_max_value => $max_y,
y_label_skip => 1,
- x_label_skip => 1,
+ x_label_skip => 3,
x_labels_vertical => 1,
x_label_position => 1/2,
markers => [ 1, 7 ],
---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org