pyragony54 Language Offline I Love YaBB! Posts: 852 Location: Йошкар-Ола Joined: May 25th, 2014 Gender: Mood: Dead Zodiac sign: Censor Words Oct 18th, 2017 at 6:34pm Mark & QuoteQuote Quote:Nicht abgefangene Fehler : Kann nicht öffnen CENSOR at /var/www/vhosts/yabbtest.de/cgi-bin/yabb2/Admin/AdminEdit.pm line 154. if (idea == 'none') {use (manuals) && (Google | | search)}if ($ answer == 0) {post (question)} IP Logged
Dandello Forum AdministratorYaBB Modder Offline I love YaBB 2.7! Posts: 2235 Location: The Land of YaBB Joined: Feb 12th, 2014 Gender: Mood: Annoyed Zodiac sign: Re: Censor Words Reply #1 - Oct 18th, 2017 at 7:50pm Mark & QuoteQuote More bugs (and missing file checks) - I should have the fix up later today or tomorrow. Perfection is not possible. Excellence, however, is excellent. WWW IP Logged
Dandello Forum AdministratorYaBB Modder Offline I love YaBB 2.7! Posts: 2235 Location: The Land of YaBB Joined: Feb 12th, 2014 Gender: Mood: Annoyed Zodiac sign: Re: Censor Words Reply #2 - Oct 18th, 2017 at 10:30pm Mark & QuoteQuote Okay - a fix: In Admin/AdminEdit.pm find Code (Perl) my ( $censorlanguage, $line ); if ( $FORM{'censorlanguage'} ) { $censorlanguage = $FORM{'censorlanguage'} } else { $censorlanguage = $lang; } opendir LNGDIR, $langdir; my @langitems = readdir LNGDIR; closedir LNGDIR; my $drawnldirs = q{}; foreach my $fld ( sort { lc($a) cmp lc $b } @langitems ) { my $dispsel = q{}; if ( -e "$langdir/$fld/Main.lng" ) { my $displang = $lngs{$fld}; if ( $censorlanguage eq $fld ) { $dispsel = ' selected="selected"'; } $drawnldirs .= qq~<option value="$fld"$dispsel>$displang</option>~; } } our ($CENSOR); fopen( 'CENSOR', '<', "$langdir/$censorlanguage/censor.txt" ) or croak "$croak{'open'} CENSOR"; my @censored = <$CENSOR>; fclose('CENSOR') or croak "$croak{'close'} CENSOR"; foreach my $i (@censored) { $i =~ tr/\r//d; $i =~ tr/\n//d; } replace with Code (Perl) my $censorlanguage = $lang; my $line = q{}; if ( $FORM{'censorlanguage'} ) { $censorlanguage = $FORM{'censorlanguage'} } opendir LNGDIR, $langdir; my @langitems = readdir LNGDIR; closedir LNGDIR; my $drawnldirs = q{}; foreach my $fld ( sort { lc($a) cmp lc $b } @langitems ) { my $dispsel = q{}; if ( -e "$langdir/$fld/Main.lng" ) { my $displang = $lngs{$fld}; if ( $censorlanguage eq $fld ) { $dispsel = ' selected="selected"'; } $drawnldirs .= qq~<option value="$fld"$dispsel>$displang</option>~; } } my @censored = (); our ($CENSOR); if ( -e "$langdir/$censorlanguage/censor.txt") { fopen( 'CENSOR', '<', "$langdir/$censorlanguage/censor.txt" ) or croak "$croak{'open'} CENSOR"; @censored = <$CENSOR>; fclose('CENSOR') or croak "$croak{'close'} CENSOR"; chomp @censored; foreach my $i (@censored) { $i =~ s/[\n\r]//gxsm; } } This not only makes sure the file exists, but fixes a bug where it just wasn't looking in the right place. Perfection is not possible. Excellence, however, is excellent. WWW IP Logged
pyragony54 Language Offline I Love YaBB! Posts: 852 Location: Йошкар-Ола Joined: May 25th, 2014 Gender: Mood: Dead Zodiac sign: Re: Censor Words Reply #3 - Oct 20th, 2017 at 6:46am Mark & QuoteQuote Works if (idea == 'none') {use (manuals) && (Google | | search)}if ($ answer == 0) {post (question)} IP Logged