X-Git-Url: http://xvm.mit.edu/gitweb/invirt/scripts/munin.git/blobdiff_plain/57ada299e7ce6efa105a94662c9fada8470d921a..8d6e57668a3f9e68154644419a7b9fc5a20d97f5:/web/usage.cgi?ds=inline

diff --git a/web/usage.cgi b/web/usage.cgi
index 59482e9..e815d78 100755
--- a/web/usage.cgi
+++ b/web/usage.cgi
@@ -50,7 +50,7 @@ my $type = $q->param("type") || "cpu";
 $type =~ m|^(\w+)$| or die "Invalid graph type";
 $type = $graph_types{$1} or die "Invalid graph type";
 
-my $path = catfile(GRAPH_DIR, "*-$type-$uuid-?.rrd");
+my $path = catfile(GRAPH_DIR, "*-$type-uuid_$uuid-?.rrd");
 my @files = glob $path or die "No data found";
 
 push @args, "--start", "-".$days."d";
@@ -82,8 +82,9 @@ sub die(@) {
 			      pointsize => 14,
 			      );
   $im->Read('label:'.join('', @_));
-  $format = 'png' unless exists($format{$format});
+  $format = 'png' unless exists($formats{$format});
   $mime_type = $formats{$format};
+  $| = 1;
   print $q->header(-type=>$mime_type);
   $im->Write($format.':-');
   CORE::die @_;