YaBB Development & Mods

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.

Question:

Options:	Text	Color	Split Pie
Option 1:
Option 2:
Option 3:
Option 4:
Option 5:
Option 6:
Option 7:
Option 8:
Poll Comment:	Max 500 characters. Remaining characters:

Automatic End in:	days and minutes. Leave it blank if you don't want to set it now.
Enable Guest Voting:	Check this if you want guests to be able to vote in this poll.
Hide results:	Check this if you do not want the results of this poll shown until voting has been closed.
Multiple Choice	Check this if you want to allow users to vote for more than one option.
Time limit for deleting vote:	Time in minutes users are allowed to delete their vote (0 to disable delete).
Use legends for Pie Chart	Check this to use legends instead of labels next to each pie slice.
Pie Chart Radius:	Must be a value between 100 and 200 (default 100)

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