(UTC)
Change Template:
Choose Language:
context_title
context_text
Topic Summary - Displaying 2 post(s). Click here to show all |
Posted by: pyragony54 Posted on: Mar 14th, 2023 at 7:41am |
Search:
# Dummy mail engine
fopen( MAIL, ">>$vardir/mail.log" );
print {MAIL} 'Mail sent at ' . scalar gmtime() . "\n"
or croak "$croak{'print'} mail";
print {MAIL} "To: $toheader\n" or croak "$croak{'print'} mail";
print {MAIL} "From: $fromheader\n" or croak "$croak{'print'} mail";
print {MAIL} "X-Mailer: YaBB Sendmail\n"
or croak "$croak{'print'} mail";
print {MAIL} "Subject: $subject\n\n" or croak "$croak{'print'} mail";
$message =~ s/\r\n/\n/gsm;
print {MAIL} "<pre $pre>$message</pre>\n" or croak "$croak{'print'} mail";
print {MAIL} "End of Message\n\n" or croak "$croak{'print'} mail";
fclose(MAIL);
return 1;
}
return;
}
Replace: # Dummy mail engine
fopen( MAIL, ">>$vardir/mail.log" );
print {MAIL} 'Mail sent at ' . scalar gmtime() . "\n"
or croak "$croak{'print'} mail";
print {MAIL} "To: $toheader\n" or croak "$croak{'print'} mail";
print {MAIL} "From: $fromheader\n" or croak "$croak{'print'} mail";
print {MAIL} "X-Mailer: YaBB Sendmail\n"
or croak "$croak{'print'} mail";
print {MAIL} "Subject: $subject\n\n" or croak "$croak{'print'} mail";
$message =~ s/\r\n/\n/gsm;
print {MAIL} "$message\n" or croak "$croak{'print'} mail";
print {MAIL} "End of Message\n\n" or croak "$croak{'print'} mail";
fclose(MAIL);
return 1;
}
return;
}
Search: sub tomail {
my ( $MAIL, $mailout ) = @_;
my ( $fromheader, $toheader, $subject, $message, $charsetheader ) =
@{$mailout};
print {$MAIL} "To: $toheader\n" or croak "$croak{'print'} mail";
print {$MAIL} "From: $fromheader\n" or croak "$croak{'print'} mail";
print {$MAIL} "X-Mailer: YaBB Sendmail\n" or croak "$croak{'print'} mail";
print {$MAIL} "Subject: $subject\n" or croak "$croak{'print'} mail";
print {$MAIL} "MIME-Version: 1.0\r\n" or croak "$croak{'print'} mail";
print {$MAIL} "$cte\n" or croak "$croak{'print'} mail";
print {$MAIL} "Content-Type: text/html\; charset=$charsetheader\r\n"
or croak "$croak{'print'} mail";
$message =~ s/\r\n/\n/gsm;
print {$MAIL} "<pre $pre>$message</pre>\n" or croak "$croak{'print'} mail";
return;
}
Replace: sub tomail {
my ( $MAIL, $mailout ) = @_;
my ( $fromheader, $toheader, $subject, $message, $charsetheader ) =
@{$mailout};
print {$MAIL} "To: $toheader\n" or croak "$croak{'print'} mail";
print {$MAIL} "From: $fromheader\n" or croak "$croak{'print'} mail";
print {$MAIL} "X-Mailer: YaBB Sendmail\n" or croak "$croak{'print'} mail";
print {$MAIL} "Subject: $subject\n" or croak "$croak{'print'} mail";
print {$MAIL} "MIME-Version: 1.0\r\n" or croak "$croak{'print'} mail";
print {$MAIL} "$cte\n" or croak "$croak{'print'} mail";
print {$MAIL} "Content-Type: text/html\; charset=$charsetheader\r\n"
or croak "$croak{'print'} mail";
$message =~ s/\r\n/\n/gsm;
print {$MAIL} "$message\n" or croak "$croak{'print'} mail";
return;
}
This will fix all script error messages. If you want to install mods or have them, please make sure that there is no html code. If you need help, you are welcome to leave a message here, I will then be happy to adapt the mod. |
Posted by: pyragony54 Posted on: Mar 14th, 2023 at 7:01am |
Because there were always script violations. I modified the following lines in the Email.lng.
Search: <a href="{yabb scripturl}?action=activate&username={yabb cryptusername}&activationkey={yabb activationcode}">{yabb scripturl}?action=activate&username={yabb cryptusername}&activationkey={yabb activationcode}</a> Replace: {yabb scripturl}?action=activate&username={yabb cryptusername}&activationkey={yabb activationcode} Search: You may change your password after you login by clicking on the User CP tab at the top of the {yabb mbname} main page: <a href="{yabb scripturl}">{yabb scripturl}</a> and then click the Profile tab, click on Edit Profile (you will need to enter your password as a security measure). Replace: You may change your password after you login by clicking on the User CP tab at the top of the {yabb mbname} main page: {yabb scripturl} and then click the Profile tab, click on Edit Profile (you will need to enter your password as a security measure). ... and so forth In short: Removes all html code, it is absolutely not needed. If you can't figure it out, please contact me. Mailer.pm Search:
elsif ( $mailtype == 1 ) {
$smtp_to = $to;
$smtp_from = $from;
$smtp_message = qq~<pre $pre>$message</pre>~;
$smtp_subject = $subject;
$smtp_charset = $charsetheader;
require Sources::Smtp;
use_smtp();
}
Replace: elsif ( $mailtype == 1 ) {
$smtp_to = $to;
$smtp_from = $from;
$smtp_message = qq~$message~;
$smtp_subject = $subject;
$smtp_charset = $charsetheader;
require Sources::Smtp;
use_smtp();
}
Search: eval q^
$smtp->mail($from);
foreach (split /, /sm, $to) { $smtp->to($_); }
$smtp->data();
$smtp->datasend("To: $toheader\r\n");
$smtp->datasend("From: $fromheader\r\n");
$smtp->datasend("X-Mailer: YaBB Net::SMTP\r\n");
$smtp->datasend("Subject: $subject\r\n");
$smtp->datasend("MIME-Version: 1.0\r\n$cte\nContent-Type: text/html\; charset=$charsetheader\r\n");
$smtp->datasend("\r\n");
$smtp->datasend("<pre $pre>$message</pre>");
$smtp->dataend();
$smtp->quit();
^;
if ($EVAL_ERROR) {
fatal_error( 'net_fatal',
"$error_txt{'error_verbose'}: $EVAL_ERROR" );
}
return 1;
}
Replace: eval q^
$smtp->mail($from);
foreach (split /, /sm, $to) { $smtp->to($_); }
$smtp->data();
$smtp->datasend("To: $toheader\r\n");
$smtp->datasend("From: $fromheader\r\n");
$smtp->datasend("X-Mailer: YaBB Net::SMTP\r\n");
$smtp->datasend("Subject: $subject\r\n");
$smtp->datasend("MIME-Version: 1.0\r\n$cte\r\nContent-Type: text/html\; charset=$charsetheader\r\n");
$smtp->datasend("\r\n");
$smtp->datasend("$message");
$smtp->dataend();
$smtp->quit();
^;
if ($EVAL_ERROR) {
fatal_error( 'net_fatal',
"$error_txt{'error_verbose'}: $EVAL_ERROR" );
}
return 1;
}
|
YaBB Development & Mods » Powered by YaBB 2.7.00!
YaBB Forum Software © 2000-2024. All Rights Reserved.
HTML 5
Page completed in 1.3292 seconds.