Code (Perl)

            if ( $email_ban ) {
                 LoadLanguage('Email');
                 if ( $lev eq 'p' ) {
                     $banned_time  = $profile_txt{'p'};
                     $bannedsubj   = $security_txt{'banned'};
                     $bemail       = $banneduseremail;
                     $busersybject = $bannedusersybject;
                 }
                 else {
                     $tmp = time_ban();
                     $banned_time =
                       qq~$security_txt{'ban_permt'} ~ . timeformat($tmb);
                     $bannedsubj   = $security_txt{'suspend'};
                     $bemail       = $suspendeduseremail;
                     $busersybject = $suspendusersybject;
                 }
                 $bannedfor = q{};
                 if ($ban_reason) {
                     $bannedfor =
                       $security_txt{'ban_warn_b'} . $ban_reason . q{ };
                 }
                 $language = ${ $uid . $username }{'language'};
                 require Sources::Mailer;
                 my $message = template_email(
                     $bemail,
                     {
                         'banner'      => ${ $uid . $username }{'realname'},
                         'ban_time'    => $banned_time,
                         'ban_reason'  => $bannedfor,
                         'subject'     => $bannedsubj,
                         'displayname' => ${ $uid . $user }{'realname'},
                     }
                 ); 

Code

1; 

Code

$yabbtags{'banneduseremail'} = q~scherm naam~;
 $emaildesc{'banneduseremail'} = q~De verbannen gebruiker Notificatie email~;
 $bannedusersybject = q~Uw account verbannen op~;
 $banneduseremail = q~Hallo, {yabb displayname}:

 U bent verbannen van {yabb mbname} {yabb ban_time} door {yabb banner}{yabb ban_reason}.

 Met vriendelijke groet,
 Het {yabb mbname} team
 <a href="{yabb scripturl}">{yabb scripturl}</a>
 ~;

 $yabbtags{'suspendeduseremail'} = q~scherm naam~;
 $emaildesc{'suspendeduseremail'} = q~De verbannen gebruiker Notificatie email~;
 $suspendusersybject = q~Uw account is geschorst op~;
 $suspendeduseremail = q~Hallo, {yabb displayname}:

 Uw account op {yabb mbname} is geschorst {yabb ban_time} door {yabb banner}{yabb ban_reason}.

 Met vriendelijke groet,
 Het {yabb mbname} team
 <a href="{yabb scripturl}">{yabb scripturl}</a>
 ~;

  

Code

1; 

Code

$profile_txt{'ban_page'} = q~Verbod op~;
 $profile_txt{'ban_enter'} = q~Verbod~;
 $profile_txt{'ban_cancel'} = q~Annuleren~;
 $profile_txt{'ban_reason'} = 'Reden voor het verbod op <span class="small">(Optioneel)</span>';
 $profile_txt{'email_ban'} = 'Email gebruiker met betrekking tot verbod';
 $profile_txt{'ban_for'} = 'voor een';