#------------------------------------------------------------------------ # Compiled template generated by the Template Toolkit version 2.09 #------------------------------------------------------------------------ Template::Document->new({ METADATA => { 'modtime' => '1111377854', 'name' => 'index.html.tmpl', }, BLOCK => sub { my $context = shift || die "template sub called without context\n"; my $stash = $context->stash; my $output = ''; my $error; eval { BLOCK: { $output .= "\n"; $output .= "\n"; $output .= "\n\n"; $output .= "\n"; $output .= $context->process('global/header.html.tmpl', { 'title' => 'SquawkBox Bug Database' }); $output .= "\n\n\n\n\n\n \n \n

\n Please make a selection:\n

\n View all open bugs
\n Query existing bug reports
\n Enter a new bug report
\n Get summary reports
\n

"; if ($stash->get('username')) { $output .= "\n Change password or user preferences
\n Logout "; # FILTER $output .= do { my $output = ''; my $filter = $context->filter('html') || $context->throw($context->error); $output .= $stash->get('username'); &$filter($output); }; $output .= "
"; } else { $output .= "\n Log in to an existing account
\n"; } $output .= "\n

\n \n \n

$\"\"$

\n\n\n\n\n"; $output .= $context->process('global/footer.html.tmpl'); $output .= "\n"; } }; if ($@) { $error = $context->catch($@, \$output); die $error unless $error->type eq 'return'; } return $output; }, DEFBLOCKS => { }, });