% unless(defined($report)) { You've got to tell me what report to display! % return; % } Displaying Bug Report <% $report %>
<%perl> $report =~ s/\.\.//g; $report =~ s#/##g; my $filename = sprintf("/var/www/jbovlaste/current/bugreports/%s",$report); my $reportdata = do $filename; % if(defined($reportdata->{'response'})) { % }
User <% $reportdata->{'username'} %>
Time <% scalar localtime $reportdata->{'time'} %>
Brief <% $reportdata->{'brief'} %>
Type/Area <% join("/",$reportdata->{'type'},$reportdata->{'area'}) %>
Report
Response
<%args> $report => undef <%shared> our($report); <%method title> Displaying Bug Report <% $report %>