YaBB Development & Mods - Modifikation in YaBB 2.6.12

pyragony54 Language Offline I Love YaBB! Posts: 852 Location: Йошкар-Ола Joined: May 25^th, 2014 Gender: Mood: Dead Zodiac sign:	Modifikation in YaBB 2.6.12 Mar 14^th, 2023 at 7:01am	Mark & Quote Quote
	Because there were always script violations. I modified the following lines in the Email.lng. Search: Code (Perl) <a href="{yabb scripturl}?action=activate&username={yabb cryptusername}&activationkey={yabb activationcode}">{yabb scripturl}?action=activate&username={yabb cryptusername}&activationkey={yabb activationcode}</a> Replace: Code (Perl) {yabb scripturl}?action=activate&username={yabb cryptusername}&activationkey={yabb activationcode} Search: Code (Perl) 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: Code (Perl) 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 Code (Perl) 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: Code (Perl) 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: Code (Perl) 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: Code (Perl) 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; }

	if (idea == 'none') {use (manuals) && (Google \| \| search)} if ($ answer == 0) {post (question)}
	IP Logged

# 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; }

# 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; }

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; }

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; }

Name:
E-mail:
Your Verification Code is:	Please type the characters exactly as they appear in the image, without the first 2 and last 2 characters. The characters must be typed in the same order, and they are case-sensitive.
Verification Code:
Preview

pyragony54 Language Offline I Love YaBB! Posts: 852 Location: Йошкар-Ола Joined: May 25^th, 2014 Gender: Mood: Dead Zodiac sign:	Re: Modifikation in YaBB 2.6.12 Reply #1 - Mar 14^th, 2023 at 7:41am	Mark & Quote Quote
	Search: Code (Perl) # 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: Code (Perl) # 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: Code (Perl) 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: Code (Perl) 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.

	if (idea == 'none') {use (manuals) && (Google \| \| search)} if ($ answer == 0) {post (question)}
	IP Logged