#------------------------------------------------------------------------
# Compiled template generated by the Template Toolkit version 2.09
#------------------------------------------------------------------------

Template::Document->new({
    METADATA => {
        'modtime' => '1020712606',
        'name' => 'account/email/change-old.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 .=  "\n";
    $stash->set('expiration_ts', $stash->get('token_ts') + ($stash->get('max_token_age') * 86400));
    $output .=  "\nFrom: bugzilla-admin-daemon\nTo: ";
    $output .=  $stash->get('emailaddress');
    $output .=  "\nSubject: Bugzilla Change Email Address Request\nImportance: High\nX-MSMail-Priority: High\nX-Priority: 1\n\nBugzilla has received a request to change the email address \nfor your account to ";
    $output .=  $stash->get('newemailaddress');
    $output .=  ".\n\nIf you are not the person who made this request, or you wish to cancel\nthis request, visit the following link:\n";
    $output .=  $stash->get(['Param', [ 'urlbase' ]]);
    $output .=  "token.cgi?a=cxlem&t=";
    
    # FILTER
    $output .=  do {
        my $output = '';
        my $filter = $context->filter('url_quote')
                  || $context->throw($context->error);
    
    $output .=  $stash->get('token');
        
        &$filter($output);
    };
    
    $output .=  "\n\nIf you do nothing, and ";
    $output .=  $stash->get('newemailaddress');
    $output .=  " confirms this request, the \nchange will be made permanent after ";
    $output .=  $stash->get('max_token_age');
    $output .=  " days (";
    $output .=  $stash->get(['time2str', [ '%H:%M on the %o of %B, %Y', $stash->get('expiration_ts') ]]);
    $output .=  ").\n";
        } };
        if ($@) {
            $error = $context->catch($@, \$output);
            die $error unless $error->type eq 'return';
        }
    
        return $output;
    },
    DEFBLOCKS => {

    },
});