X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clearadm%2Fplotfs.cgi;h=e4a5e6c1d6549c0f4a5f75d4de904bea49803194;hb=c8ff289be5d7e6a63d08eca398cc7be875a4978b;hp=3bc8a03fe46d39a27c2b9e74a01c2e9edb2dbcdb;hpb=ceb7db8c45226caebec04a0406521ff3911e59fc;p=clearscm.git

diff --git a/clearadm/plotfs.cgi b/clearadm/plotfs.cgi
index 3bc8a03..e4a5e6c 100755
--- a/clearadm/plotfs.cgi
+++ b/clearadm/plotfs.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/local/bin/perl
 
 =pod
 
@@ -61,6 +61,7 @@ use strict;
 use warnings;
 
 use FindBin;
+use Convert::Base64;
 
 use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
 
@@ -165,8 +166,12 @@ $graph->set (
 my $image = $graph->plot(\@data)
   or croak $graph->error;
 
-print "Content-type: image/png\n\n";
-print $image->png;
+unless ($opts{generate}) {
+  print "Content-type: image/png\n\n";
+  print $image->png;
+} else {
+  print encode_base64 $image->png;
+} # unless
 
 =pod