<%args>
$mjd
$imgtype => 'epsc'
</%args>

<%init>
use PS::MOPS::Lib qw(:all);

$m->comp('/mops_env');
my %typemap = (
    epsc => 'application/postscript',
    eps => 'application/postscript',
    png => 'image/png',
);

die "bogus image type: $imgtype" unless exists($typemap{$imgtype});
$r->content_type($typemap{$imgtype});

my $title = "MOPS SSM Detection Density, MJD $mjd";
my $stuff = join '', `obsTool --density --$imgtype --mjd $mjd --title "$title"`;
$m->clear_buffer;
$m->print($stuff);
$m->abort;  # stuff
</%init>
