perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From sbek...@locus.apache.org
Subject cvs commit: modperl-site/netcraft graph.jpg logo-middle.png logo.png pseudo-graph.jpg graph.pl index.html input.data graph.gif logo-middle.gif logo.gif pseudo-graph.gif
Date Tue, 08 Aug 2000 15:19:43 GMT
sbekman     00/08/08 08:19:41

  Modified:    .        index.html
               netcraft graph.pl index.html input.data
  Added:       netcraft graph.jpg logo-middle.png logo.png pseudo-graph.jpg
  Removed:     netcraft graph.gif logo-middle.gif logo.gif pseudo-graph.gif
  Log:
  time to move from gif to png, but png is not yet supported by all
  browsers, hence I cannot use it. But since my gd library doesn't support
  gif anymore and I don't want to install the old library. I've modified the
  script to create jpegs instead. They are somewhat bigger than gif or png,
  but for a time being I'll stick to these. Next step is to move completely
  to PNG.
  
  Nevertheless mod_perl rules! 1.3M hosts!!!
  
   PR:
  
  Revision  Changes    Path
  1.63      +1 -1      modperl-site/index.html
  
  Index: index.html
  ===================================================================
  RCS file: /home/cvs/modperl-site/index.html,v
  retrieving revision 1.62
  retrieving revision 1.63
  diff -u -r1.62 -r1.63
  --- index.html	2000/07/11 00:58:14	1.62
  +++ index.html	2000/08/08 15:19:29	1.63
  @@ -758,7 +758,7 @@
   
   	  <center>
   	    <a href="netcraft/">
  -	      <img src="netcraft/pseudo-graph.gif" height=200
  +	      <img src="netcraft/pseudo-graph.jpg" height=200
   	      width=350 border=0 alt="mod_perl usage graph"></a> 
   	  </center>
   
  
  
  
  1.3       +16 -8     modperl-site/netcraft/graph.pl
  
  Index: graph.pl
  ===================================================================
  RCS file: /home/cvs/modperl-site/netcraft/graph.pl,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- graph.pl	1999/08/14 11:42:38	1.2
  +++ graph.pl	2000/08/08 15:19:34	1.3
  @@ -15,14 +15,14 @@
   # with no other labels, but y axis. This graph should be linked to a
   # bigger one (graph.gif)
   #
  -# Note: you need GIFgraph package to be installed in order to use this
  +# Note: you need GD::Graph package to be installed in order to use this
   # script.
   
   # Copyrighted under GPL license
   # by Stas Bekman <sbekman@iname.com>
   # Aug, 14 1999
   
  -use GIFgraph::linespoints;
  +use GD::Graph::linespoints;
   use strict;
   
   print STDERR "Processing data\n";
  @@ -44,7 +44,7 @@
   
   # plot a normal graph of points with all the info as possible
   sub normal_graph{
  -  my $my_graph = new GIFgraph::linespoints(700,400);
  +  my $my_graph = new GD::Graph::linespoints(700,400);
   
     $my_graph->set( 
   		 x_label => 'Months',
  @@ -64,7 +64,7 @@
   		 r_margin => 10,
   
   		 two_axes => 1,
  -		 logo => 'logo.gif',
  +		 logo => 'logo.png',
   		 logo_position => 'LL',
   		);
   
  @@ -79,13 +79,17 @@
     $my_graph->set_legend('Hostnames','Unique IP numbers' );
     $my_graph->set_legend_font(GD::gdMediumBoldFont);
   
  -  $my_graph->plot_to_gif( "graph.gif", \@data );
   
  +  open IMG, '>graph.jpg' or die $!;
  +  print IMG $my_graph->plot(\@data)->jpeg(70);
  +  close IMG;
  +#  $my_graph->plot_to_gif( "graph.gif", \@data );
  +
   }
   
   # plot a small graph of points with as least info as possible
   sub pseudo_graph{
  -  my $my_graph = new GIFgraph::linespoints(350,200);
  +  my $my_graph = new GD::Graph::linespoints(350,200);
   
       # in this graph we don't want X labels to be printed
     for (0..$#{$data[0]}) {
  @@ -107,7 +111,7 @@
   		 r_margin => 10,
   		 two_axes => 0,
   
  -		 logo => 'logo-middle.gif',
  +		 logo => 'logo-middle.png',
   		 logo_position => 'UL',
   		);
   
  @@ -121,8 +125,12 @@
   
     $my_graph->set_legend('Hostnames','Unique IP numbers' );
     $my_graph->set_legend_font(GD::gdSmallFont);
  +
   
  -  $my_graph->plot_to_gif( "pseudo-graph.gif", \@data );
  +  open IMG, '>pseudo-graph.jpg' or die $!;
  +  print IMG $my_graph->plot(\@data)->jpeg(70);
  +  close IMG;
  +  #$my_graph->plot_to_gif( "pseudo-graph.gif", \@data );
   
   
   }
  
  
  
  1.27      +3 -2      modperl-site/netcraft/index.html
  
  Index: index.html
  ===================================================================
  RCS file: /home/cvs/modperl-site/netcraft/index.html,v
  retrieving revision 1.26
  retrieving revision 1.27
  diff -u -r1.26 -r1.27
  --- index.html	2000/07/12 00:58:53	1.26
  +++ index.html	2000/08/08 15:19:35	1.27
  @@ -19,7 +19,7 @@
   
   <p>
   <hr>
  -<IMG SRC="graph.gif"   HEIGHT=400 WIDTH=700 BORDER=0 ALT="Graph">
  +<IMG SRC="graph.jpg"   HEIGHT=400 WIDTH=700 BORDER=0 ALT="Graph">
   <BR>
   <BR>
   The <A HREF="graph.pl"> script </A> that produced this graph and the <A
HREF="input.data">
  @@ -36,7 +36,8 @@
   <p>
   <table cellpadding=3 border=1>
   <tr><td>Survey</td><td>hostnames</td><td>unique ip
addresses</td></tr>
  -<tr><td> June 2000     </td><td>1080206</td><td>123008</td></tr>
  +<tr><td> July 2000    </td><td>1286714</td><td>132940</td></tr>
  +<tr><td> June 2000    </td><td>1080206</td><td>123008</td></tr>
   <tr><td> May 2000     </td><td>852675</td><td>108327</td></tr>
   <tr><td> April 2000    </td><td>736805</td><td>95994</td></tr>
   <tr><td> March 2000    </td><td>612425</td><td>85749</td></tr>
  
  
  
  1.14      +1 -0      modperl-site/netcraft/input.data
  
  Index: input.data
  ===================================================================
  RCS file: /home/cvs/modperl-site/netcraft/input.data,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -r1.13 -r1.14
  --- input.data	2000/07/12 00:58:53	1.13
  +++ input.data	2000/08/08 15:19:36	1.14
  @@ -1,3 +1,4 @@
  +July 2000	1286714	132940
   June 2000	1080206	123008
   May 2000	852675	108327
   April 2000	736805	95994
  
  
  
  1.1                  modperl-site/netcraft/graph.jpg
  
  	<<Binary file>>
  
  
  1.1                  modperl-site/netcraft/logo-middle.png
  
  	<<Binary file>>
  
  
  1.1                  modperl-site/netcraft/logo.png
  
  	<<Binary file>>
  
  
  1.1                  modperl-site/netcraft/pseudo-graph.jpg
  
  	<<Binary file>>
  
  

Mime
View raw message