linux/wreq/handle-no-GD.diff

   1 Index: req-status
   2 ===================================================================
   3 RCS file: /cvsroot/its/sw/wreq/req-status,v
   4 retrieving revision 1.2
   5 diff -u -r1.2 req-status
   6 --- req-status  1999/05/16 00:03:31     1.2
   7 +++ req-status  1999/05/16 14:52:29
   8 @@ -250,7 +250,12 @@
   9         $recdyhin=$wstold+$recdyhin*$dysecs;
  10
  11         if($FORM{'gif'} eq 'on'){# plot weekly end-of-the-week status
  12 -               use GD;
  13 +               # Make sure this module only fails on missing GD.pm when
  14 +               # GIF graph is requested.
  15 +               eval 'use GD;';
  16 +               $im = new GD::Image(645,401);
  17 +               &html_error("req-status: missing GD.pm.",
  18 +                       "<P>Fetch and install from CPAN") unless ($im);
  19
  20                 print "Content-type: image/gif\n";
  21                 #print "Content-Disposition: inline; filename=\"req$$.gif\"\n";
  22 @@ -287,7 +292,6 @@
  23                         #print "<br>$i X $wke X $wks X $openn X $wkopenn $t1 $t2 X $rmax \n";
  24                 }
  25
  26 -               $im = new GD::Image(645,401);
  27                 $white = $im->colorAllocate(255,255,255);
  28                 $black = $im->colorAllocate(0,0,0);
  29                 $red = $im->colorAllocate(255,0,0);