#!/usr/bin/perl

use CGI::Carp "fatalsToBrowser";          # Output errors to browser
use CGI qw(:standard);                    # Saves loads of work
$CGI::POST_MAX=1024 * 150;                # limit post data
$CGI::DISABLE_UPLOADS = 1;                # Disable uploads

eval {
($0 =~ m,(.*)/[^/]+,)   and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
require "ikon.lib";          # Require ikonboard ()
require "ikonadmin.lib";     # Require Admin func()
require "data/progs.cgi";    # Require prog names
require "data/boardinfo.cgi";# Require board info
require "data/styles.cgi";   # Require styles info
};
if ($@) {
    print header(); print start_html(-title=>"Ikonboard Error!");
    print "Could not find these files: $@\nIf you are running NT you may need to enter the full path in each require statement in each script";
    print end_html; exit;
}

$|++;                                     # Unbuffer the output

#################--- Begin the program ---###################

$thisprog = "setbademail.cgi";

$query = new CGI;

&checkVALIDITY;

$cookiepath = $query->url(-absolute=>1);
$cookiepath =~ s/$thisprog//sg;


$mailarray     = $query -> param('mailarray');
$action        = $query -> param("action");
$action        = &cleaninput("$action");


$inmembername = cookie("adminname");
$inpassword   = cookie("adminpass");

print header();

&admintitle;
            

if ($action eq "process") {

        &getmember("$inmembername");
        
        if (($membercode eq "ad") && ($inpassword eq $password) && ($inmembername eq $membername)) { 
        
        $mailarray =~ s/\n\n//g;

        @savedmailarray = split(/\&/,$mailarray);
        
        $filetomake = "$ikondir" . "data/badmails.cgi";
        open (FILE, ">$filetomake");
        print FILE $mailarray;
        close (FILE);
        
        if (-e $filetomake && -w $filetomake) {
                print qq(
                <tr><td bgcolor=#333333" colspan=2><font face=verdana size=3 color=#FFFFFF>
                <b>Welcome your ikon board Administration Center</b>
                </td></tr>
                <tr>
                <td bgcolor=#FFFFFF valign=middle colspan=2>
                <font face=verdana color=#333333 size=3><center><b>All information saved</b></center><br><br>
                <font size=2><b>You have the following saved bad E-Mail Addresses</b><br><br>
                );
                
                foreach $bad (@savedmailarray) {
                    chomp $_;
#                    ($bad, $good) = split(/\=/,$_);
                    print qq(<b>$bad</b> will not be accepted<br>);
                    }
                print qq(
                <br><br><br><center><a href="setbademail.cgi">Add more E-Mail Addresses</a></center>);
                }
                else {
                    print qq(
                    <tr><td bgcolor=#333333" colspan=2><font face=verdana size=3 color=#FFFFFF>
                    <b>Welcome your ikon board Administration Center</b>
                    </td></tr>
                    <tr>
                    <td bgcolor=#FFFFFF valign=middle align=center colspan=2>
                    <font face=verdana color=#333333 size=3><b>All information NOT saved</b><br>The file, or directory is not writable.
                    </td></tr></table></td></tr></table>
                    );
                    }
                }
               }
        
    else {
        
        &getmember("$inmembername");
        
        if (($membercode eq "ad") && ($inpassword eq $password) && ($inmembername eq $membername)) {
                # Open the badmail file

                $filetoopen = "$ikondir" . "data/badmails.cgi";
                open (FILE, "$filetoopen") or $badmails = "\@hotmail.com";
                $badmails = <FILE> if (!$badmails);
                close (FILE);
                
                $inmembername =~ s/\_/ /g;

                print qq(
                <tr><td bgcolor=#333333" colspan=2><font face=verdana size=3 color=#FFFFFF>
                <b>Welcome to your ikon board Administration Center / Bad E-Mail Address filter</b>
                </td></tr>
                <tr>
                <td bgcolor=#EEEEEE valign=middle align=center colspan=2>
                <font face=verdana color=#333333 size=3><b>Bad mail filter</b>
                </td></tr>
                
                <form action="$thisprog" method="post">
                <input type=hidden name="action" value="process">
                
                <tr>
                <td bgcolor=#FFFFFF valign=middle colspan=2>
                <font face=verdana color=#000000 size=2>
                <b>Please note:</b> This bad e-mail filter is designed to stop certain e-mails from being
                registered.<br> You can choose which mails are stopped.<br>
                This stop is done <b>at the time of registering</b> and <b> at change profile</b><BR>
				If someone registers with an filtered e-mail he/she gets an error and can't register<BR><BR>
                <b>Instructions:</b> Simply enter the bad e-mail 'addition' (i.e. \@hotmail.com).<BR>
				Please make sure that the e-mail addresses are <b>split by a &</b><br><br>
                </font></td>
                </tr>
                
                <tr>
                <td bgcolor=#FFFFFF valign=middle align=center colspan=2>
                <textarea cols=60 rows=6 wrap="virtual" name="mailarray">$badmails</textarea>
                </td>
                </tr>
                
                <tr>
                <td bgcolor=#EEEEEE valign=middle align=center colspan=2>
                <input type=submit name=submit ></form></td></tr></table></td></tr></table>
                );
                
                }
                else {
                    &adminlogin;
                    }
        }
print qq~</td></tr></table></td></tr></table></td></tr></table></body></html>~; 
exit;