inn-innreport-patch

   1 diff -urN inn-2.2.3.org/samples/innreport.in inn-2.2.3/samples/innreport.in
   2 --- inn-2.2.3.org/samples/innreport.in  Wed Jul 19 01:54:07 2000
   3 +++ inn-2.2.3/samples/innreport.in      Sun Oct 15 23:38:33 2000
   4 @@ -523,7 +523,7 @@
   5      my $i = 0;
   6      while ($GRAPH && defined ${${$output{$report}{'graph'}}[$i]}{'type'}) {
   7        my $name = $report . ($i ? $i : "");
   8 -      &Rotate ($CYCLE, $IMG_dir, $name, ".gif");
   9 +      &Rotate ($CYCLE, $IMG_dir, $name, ".png");
  10        $i++;
  11      }
  12    }
  13 @@ -779,7 +779,7 @@
  14      my $i = 0;
  15      while (defined ${${$output{'index'}{'graph'}}[$i]}{'title'}) {
  16        my $title =  &GetValue (${${$output{'index'}{'graph'}}[$i]}{'title'});
  17 -      my $filename = "index$i.gif";
  18 +      my $filename = "index$i.png";
  19        my $color_bg = &GetValue (${${$output{'index'}{'graph'}}[$i]}{'color'});
  20        my $unit     = &GetValue (${${$output{'index'}{'graph'}}[$i]}{'unit'});
  21        my $date_idx = &GetValue (${${$output{'index'}{'graph'}}[$i]}{'value'});
  22 @@ -1142,7 +1142,7 @@
  23
  24
  25    open (IMG, "> $filename") || die "Error: Can't open \"$filename\": $!\n";
  26 -  print IMG $image->gif;
  27 +  print IMG $image->png;
  28    close (IMG);
  29    return $ymax;
  30  }
  31 @@ -1394,7 +1394,7 @@
  32    }
  33
  34    open (IMG, "> $filename") || die "Can't create '$filename'\n";
  35 -  print IMG $image->gif;
  36 +  print IMG $image->png;
  37    close (IMG);
  38    1;
  39  }
  40 @@ -1733,7 +1733,7 @@
  41                   (sprintf "Max: %5.1f $unit", $max_out * $factor), $black);
  42
  43    open (IMG, "> $filename") || die "Error: Can't open \"$filename\": $!\n";
  44 -  print IMG $image->gif;
  45 +  print IMG $image->png;
  46    close (IMG);
  47    return $ymax;
  48  }
  49 @@ -2225,12 +2225,12 @@
  50           my $s = ($i ? $i : "") . $suffix;
  51           print HTML "<CENTER><IMG ALT=\"$title\" ";
  52           close (HTML);
  53 -         my $y = &Graph3d ("$IMG_dir/$report$s.gif",
  54 +         my $y = &Graph3d ("$IMG_dir/$report$s.png",
  55                     $title, $xmax, $num, @values, \@colors, \@labels);
  56           open (HTML, ">> $HTML_output") ||
  57             die "Error: cant open $HTML_output\n";
  58           print HTML "WIDTH=\"$xmax\" HEIGHT=\"$y\" ";
  59 -         print HTML "SRC=\"$IMG_pth$report$s.gif\"></CENTER>\n";
  60 +         print HTML "SRC=\"$IMG_pth$report$s.png\"></CENTER>\n";
  61         }
  62          elsif ($type eq 'histo') {
  63           my (%values, %labels);
  64 @@ -2272,11 +2272,11 @@
  65           {
  66             my $r;
  67             close (HTML);
  68 -           $r = &Histo ("$IMG_dir/$report$s.gif", $title, $xmax,
  69 +           $r = &Histo ("$IMG_dir/$report$s.png", $title, $xmax,
  70                          $factor, $labelx, $labely, \%values, \%labels);
  71             open (HTML, ">> $HTML_output") ||
  72               die "Error: cant open $HTML_output\n";
  73 -           print HTML "<CENTER><IMG ALT=\"$title\" WIDTH=\"$xmax\" SRC=\"$IMG_pth$report$s.gif\"></CENTER>\n"
  74 +           print HTML "<CENTER><IMG ALT=\"$title\" WIDTH=\"$xmax\" SRC=\"$IMG_pth$report$s.png\"></CENTER>\n"
  75                  if $r;
  76           }
  77         }