#------------------------------------------------------------------------ # Compiled template generated by the Template Toolkit version 2.09 #------------------------------------------------------------------------ Template::Document->new({ METADATA => { 'modtime' => '1019156175', 'name' => 'account/cancel-token.txt.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 .= "\nFrom: bugzilla-admin-daemon\nTo: "; $output .= $stash->get('emailaddress'); $output .= "\nSubject: "; $output .= $stash->get('tokentype'); $output .= " token cancelled\n\nA token was cancelled from "; $output .= $stash->get('remoteaddress'); $output .= ". \nIf you did not request this, it could be either an honest \nmistake or the result of a malicious hack attempt. \n\nTake a look at the information below and forward this email \nto "; $output .= $stash->get('maintainer'); $output .= " if you suspect foul play.\n\n Token: "; $output .= $stash->get('token'); $output .= "\n Token Type: "; $output .= $stash->get('tokentype'); $output .= "\n User: "; $output .= $stash->get('emailaddress'); $output .= "\n Issue Date: "; $output .= $stash->get('issuedate'); $output .= "\n Event Data: "; $output .= $stash->get('eventdata'); $output .= "\nCancelled Because: "; $output .= $stash->get('cancelaction'); $output .= "\n\n\n"; } }; if ($@) { $error = $context->catch($@, \$output); die $error unless $error->type eq 'return'; } return $output; }, DEFBLOCKS => { }, });