YaBB Development & Mods

Okay - SourceForge is down so I can't upload anything to the SVN right now. Plus I have some appointments this AM and won't be back for a while.

BUT: In Sources/UserSelect.pm replace the entire sub routine 'checkuser_avail' with

Code (Perl)

sub checkuser_avail {
     load_language('Register');
     no warnings qw(uninitialized);
     my $taken = 'false';
     my $namecheck = $matchcase ? $INFO{'user'} : lc $INFO{'user'};
     my $realnamecheck =
       $matchcase eq 'checked' ? $INFO{'display'} : lc $INFO{'display'};
     my ( $type, $reservecheck, $avail );
     if ( $INFO{'type'} eq 'email' ) {
         $INFO{'email'} =~ s/\A\s+|\s+\z//gxsm;
         $type = $register_txt{'112'};
         if (
             lc $INFO{'email'} eq
             lc member_index( 'check_exist', $INFO{'email'}, 2 ) )
         {
             $taken = 'true';
         }
     }
     elsif ( $INFO{'type'} eq 'display' ) {
         $INFO{'display'} =~ s/\A\s+|\s+\z//gxsm;
         $type = $register_txt{'111'};
         if (
             (
                 lc $INFO{'display'} eq
                 lc member_index( 'check_exist', $INFO{'display'}, 1 )
             )
             && ( lc $INFO{'display'} ne lc ${ $uid . $username }{'realname'} )
           )
         {
             $taken = 'true';
         }

         if ($matchname) {
             foreach my $reserved (@reserve) {
                 chomp $reserved;
                 $reservecheck = $matchcase ? $reserved : lc $reserved;
                 if ($matchword) {
                     if ( $realnamecheck eq $reservecheck ) {
                         $taken = 'reg';
                         last;
                     }
                 }
                 else {
                     if ( $realnamecheck =~ /$reservecheck/xsm ) {
                         $taken = 'reg';
                         last;
                     }
                 }
             }
         }
     }
     elsif ( $INFO{'type'} eq 'user' ) {
         $INFO{'user'} =~ s/\A\s+|\s+\z//gxsm;
         $INFO{'user'} =~ s/\s/_/gxsm;
         $type = $register_txt{'110'};
         if (
             lc $INFO{'user'} eq
             lc member_index( 'check_exist', $INFO{'user'}, 0 ) )
         {
             $taken = 'true';
         }
         if ($matchuser) {
             foreach my $reserved (@reserve) {
                 chomp $reserved;
                 $reservecheck = $matchcase ? $reserved : lc $reserved;
                 if ($matchword) {
                     if ( $namecheck eq $reservecheck ) {
                         $taken = 'reg';
                         last;
                     }
                 }
                 else {
                     if ( $namecheck =~ /$reservecheck/xsm ) {
                         $taken = 'reg';
                         last;
                     }
                 }
             }
         }
     }

     if ( $taken eq 'false' ) {
         $avail =
 qq~<img src="$imgdir/check.png">&nbsp;&nbsp;<span style="color:#00dd00">$type$register_txt{'114'}</span>~;
     }
     elsif ( $taken eq 'true' ) {
         $avail =
 qq~<img src="$imgdir/cross.png">&nbsp;&nbsp;<span style="color:#dd0000">$type$register_txt{'113'}</span>~;
     }
     else {
         $avail =
 qq~<img src="$imgdir/cross.png">&nbsp;&nbsp;<span style="color:#dd0000">$type$register_txt{'115'}</span>~;
     }

     print
       "Content-type: text/plain;charset=$yymycharset;\n\n$INFO{'type'}|$avail"
       or croak "$croak{'print'} avail";

     CORE::exit;    # This is here only to avoid server error log entries!
     return;
 }

There were several lines that needed to be added/changed.

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