#!/usr/bin/perl
#
# $Id: bugpostrpt.pl,v 1.3 2006/01/23 21:39:30 ddoughty Exp $
#
# Source File: bugpostrpt.pl

# Get config
require 'bugsitecfg.pl';

&app_initialize;

print "Content-Type: text/html\n\n";

$REPORT{'reportno'}=$FORM{'reportno'};
$REPORT{'submittedby'}=$FORM{'submittedby'};
$REPORT{'status'}=$FORM{'status'};
$REPORT{'title'}=$FORM{'title'};
$REPORT{'desc'}=$FORM{'desc'};
$REPORT{'adddtl'}=$FORM{'adddtl'};
$REPORT{'fix'}=$FORM{'fix'};
&put_report($FORM{'reportno'});
&show_detail();