% unless(defined($session{'username'})) { Please log in to file a bug report. % return; % } Bug Reporting
% unless(defined($brief) && defined($report)) {
Brief Description
Type
Area
Detailed 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); % } <%init> our(%session); <%method title> Submitting Bug <%args> $brief => undef $type => undef $area => undef $report => undef