use strict;
use Apache::ScoreboardGraph ();

use constant IS_MODPERL => exists $ENV{MOD_PERL};

my($image, $r, $gtop_host);
if (IS_MODPERL) {
    $r = shift;
    $r->send_http_header('image/gif');
    $image = Apache::Scoreboard->image;
    $gtop_host = $r->dir_config("GTopHost");
}
else {
    my $host = shift || "localhost";
    $image = Apache::Scoreboard->fetch("http://$host/scoreboard");
    $gtop_host = shift;
}

my $sbgraph = Apache::ScoreboardGraph->new({image => $image});
my($graph, $data) = $sbgraph->mem_usage({gtop_host => $gtop_host});

if (IS_MODPERL) {
    print $graph->plot($data);
}
else {
    $graph->plot_to_png("scoreboard-mem-usage.png", $data);
}