#!/usr/bin/perl

use CGI;

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

my $q = new CGI;

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

print "Content-type: image/gif\n\n";
system("/usr/local/bin/cvsgraph -c /var/www/conf/cvsgraph.conf -r '$root' -m '$module' $file,v")