% unless(defined($session{'username'})) {
Please log in to file a bug report.
% return;
% }
Bug Reporting
% unless(defined($brief) && defined($report)) {
% } else {
Thanks!
Return to the bug reports.
<%perl>
open(REPORT,sprintf(">/var/www/jbovlaste/current/bugreports/%s.%i",
$session{'username'}, time()));
print REPORT Dumper({username => $session{'username'},
time => time(),
brief => $brief, report => $report,
type => $type, area => $area});
close(REPORT);
%perl>
% }
<%init>
our(%session);
%init>
<%method title>
Submitting Bug
%method>
<%args>
$brief => undef
$type => undef
$area => undef
$report => undef
%args>