#### No New Users HACK,
#### by C.v. Marle (C.A.vanMarle@inter.NL.net)

#### This hack makes an extra function in the "variables set-up"
#### wich gives you the uppertunity to prevent registering of new users

#### The nonewusers.dat file is the file with the text wich should
#### appear if you turn on the hack and users got into the register page

# Some things may differ, because I've a very modified board...
# Sorry... If you can't find any thing, please mail me...
# BACK-UP all your files before editing!!!
# Don't blame me if your board's messed up


[setvariables.cgi]

>> Aftter:

                $tempoutput = "<select name=\"announcements\">\n<option value=\"no\">NO\n<option value=\"yes\">YES\n</select>\n";
                $tempoutput =~ s/value=\"$announcements\"/value=\"$announcements\" selected/;
                print qq~
                <tr>
                <td bgcolor=#FFFFFF valign=middle align=left width=40%>
                <font face=verdana color=#333333 size=1><b>Do you to have an announcements forum?</b><br>'Yes' is recommended</font></td>
                <td bgcolor=#FFFFFF valign=middle align=left>
                $tempoutput</td>
                </tr>

>> add this:

                ~;

                $tempoutput = "<select name=\"newusrs\">\n<option value=\"yes\">YES\n<option value=\"no\">NO\n</select>\n";
                $tempoutput =~ s/value=\"$newusrs\"/value=\"$newusrs\" selected/;
                print qq~
                <tr>
                <td bgcolor=#FFFFFF valign=middle align=left width=40%>
                <font face=verdana color=#333333 size=1><b>Allow new users to register?</b><br>'Yes' is recommended</font></td>
                <td bgcolor=#FFFFFF valign=middle align=left>
                $tempoutput</td>
                </tr>
				

[register.cgi]

>> before:

if ($action eq "addmember") { #start add member


>> add:

if ($newusrs eq 'no') { #start for No New Users HACK
	&nonew;
}
else {


>> after:

} # end elseform

>> add:

} # end else for No New Users HACK

>> And the end of the file, after:

    &output(
    -Title   => $boardname, 
    -ToPrint => $output, 
    -Version => $versionnumber 
    );

>> add:

sub nonew { # start No New Users HACK sub
    $filetoopen = "$ikondir" . "data/nonewusers.dat";

    open(FILE,$filetoopen) or die "Cannot locate the nonewusers.dat file, this should be in the data directory";
    @filedata = <FILE>; close(FILE);
    foreach (@filedata) { $tempoutput .= $_; }
    
    $output .= qq~
    <tr>
    <td bgcolor=$miscbacktwo align=center><font face="$font" color=$fontcolormisc size=3>
    <b>No New Users Allowed</b>
    </td>
    </tr>
    <td bgcolor=$miscbackone align=left><font face="$font" color=$fontcolormisc size=2>

     $tempoutput
        
    </td>
    </tr>
	</table>
    </td></tr></table>
    ~;
} # end No New Users HACK sub

upload nonewusers.dat in your ikonboard/data directory

## OPTIONAL

## This show a little message on the ikonboard.cgi page
## to inform visitors about the registering prevention
## (if the hack is turned on)

[ikonboard.cgi]

>> change:

    #------- HTML

    $output .= qq~
    <!-- Cgi-bot Begin Board logo and navigation -->
    <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth align=center>
        <tr>
        <td width=30% rowspan=2><img src="$imagesurl/images/$boardlogo" border=0></td>
            <td valign=bottom align=right><font face="$font" color=$fontcolormisc size=2>
                $boardname welcomes its newest member $cleanlastregistered<br>
                $boardname has <b>$totalmembers</b> members with <b>$totalposts</b> posts in <b>$totalthreads</b> topics
            </td>
        </tr>
    </table>
    <br>

>> to:

	if ($newusrs eq 'no') { $nonewusershtml="No registering allow at the moment<BR>"; }

    #------- HTML

    $output .= qq~
    <!-- Cgi-bot Begin Board logo and navigation -->
    <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth align=center>
        <tr>
        <td width=30% rowspan=2><img src="$imagesurl/images/$boardlogo" border=0></td>
            <td valign=bottom align=right><font face="$font" color=$fontcolormisc size=2>
				$nonewusershtml
                $boardname welcomes its newest member $cleanlastregistered<br>
                $boardname has <b>$totalmembers</b> members with <b>$totalposts</b> posts in <b>$totalthreads</b> topics
            </td>
        </tr>
    </table>
    <br>



# I think that should do it...       ;)      

# Mzzl, Chris

# P.S. if you find any bugs/errors please send me an e-mail