X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clearadm%2Fplotfs.cgi;fp=clearadm%2Fplotfs.cgi;h=e4a5e6c1d6549c0f4a5f75d4de904bea49803194;hb=c8ff289be5d7e6a63d08eca398cc7be875a4978b;hp=8617e79337ef6af1deecf454bbdcdad359762b8e;hpb=15f4731495714d8cdcf9c64344858f139cc892a2;p=clearscm.git diff --git a/clearadm/plotfs.cgi b/clearadm/plotfs.cgi index 8617e79..e4a5e6c 100755 --- a/clearadm/plotfs.cgi +++ b/clearadm/plotfs.cgi @@ -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