projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added caching to clearadm
[clearscm.git]
/
clearadm
/
plotfs.cgi
diff --git
a/clearadm/plotfs.cgi
b/clearadm/plotfs.cgi
index
3bc8a03
..
e4a5e6c
100755
(executable)
--- a/
clearadm/plotfs.cgi
+++ b/
clearadm/plotfs.cgi
@@
-1,4
+1,4
@@
-#!/usr/bin/perl
+#!/usr/
local/
bin/perl
=pod
=pod
@@
-61,6
+61,7
@@
use strict;
use warnings;
use FindBin;
use warnings;
use FindBin;
+use Convert::Base64;
use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
@@
-165,8
+166,12
@@
$graph->set (
my $image = $graph->plot(\@data)
or croak $graph->error;
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
=pod