#!/usr/local/bin/perl

use CGI;

# Turn off buffering of stdout to get the Content-Type header flushed
$| = 1;

my $q = new CGI;

my $cvsgraphconf = $q->param('c');
my $root = $q->param('r');
my $module = $q->param('m');
my $file = $q->param('f');

print "Content-Type: image/jpeg\n\n";
system("/opt/netscape/suitespot/docs/cgi-bin/cvsgraph -c $cvsgraphconf -r $root -m '$module' $file");