#!/usr/bin/perl
#############################################################
# Ikonboard v2.1
# Copyright 2001 Ikonboard.com - All Rights Reserved
# Ikonboard is a trademark of Ikonboard.com
#
# Software Distributed by: Ikonboard.com
# Visit us online at http://www.ikonboard.com
# Email us on [email protected]
#
# All files written by Matthew Mecham
#############################################################
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
$CGI::HEADERS_ONCE = 1; # Make sure we only have 1 header
eval {
($0 =~ m,(.*)/[^/]+,) and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
require "ikon.lib"; # Require ikonboard ()
require "data/progs.cgi"; # Require prog names
require "data/boardinfo.cgi";# Require board info
require "data/styles.cgi"; # Require styles info
require "ikonmail.lib"; # 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 = "register.cgi";
$query = new CGI;
&checkVALIDITY;
$cookiepath = $query->url(-absolute=>1);
$cookiepath =~ s/$thisprog//sg;
for ('inmembername','password','emailaddress','showemail','homepage','aolname','icqnumber',
'location','interests','signature','timedifference','useravatar','action') {
next unless defined $_;
next if $_ eq 'SEND_MAIL';
$tp = $query->param($_);
$tp = &unHTML("$tp");
${$_} = $tp;
}
$helpurl = &helpfiles("Registering");
$helpurl = qq~$helpurl~;
&title;
$output .= qq~
~;
if (($passwordverification eq "yes") && ($emailfunctions ne "off")) {
$output =~ s/Status\:/Your password has been emailed to you/;
}
### Set the cookies
$namecookie = cookie(-name => "amembernamecookie",
-value => "$inmembername",
-path => "$cookiepath",
-expires => "+30d");
$passcookie = cookie(-name => "apasswordcookie",
-value => "$inpassword",
-path => "$cookiepath",
-expires => "+30d");
### Create a dummy file to foil snoopers, and to stop them gaining a list of the directory
open (FILE, ">members/index.html");
print FILE qq(
401 Authorization Required
Authorization Required
This server could not verify that you
are authorized to access the document
requested. Either you supplied the wrong
credentials (e.g., bad password), or your
browser doesn't understand how to supply
the credentials required.
Apache/1.3.9 Server at $homeurl Port 80
);
close (FILE);
### append boardstats.cgi
require "$ikondir" . "data/boardstats.cgi";
$filetomake = "$ikondir" . "data/boardstats.cgi";
$totalmembers++;
open(FILE, ">$filetomake");
flock(FILE, 2);
print FILE "\$lastregisteredmember = \"$inmembername\"\;\n";
print FILE "\$totalmembers = \"$totalmembers\"\;\n";
print FILE "\$totalthreads = \"$totalthreads\"\;\n";
print FILE "\$totalposts = \"$totalposts\"\;\n";
print FILE "\n1\;";
close (FILE);
### Send the emails
if (($passwordverification eq "yes") && ($emailfunctions ne "off")) {
$passcookie = cookie(-name => "apasswordcookie",
-value => "",
-expires => "now");
$to = "$emailaddress";
$from = "$homename <$adminemail_out>";
$subject = "Thank You For Registering at $boardname";
$message .= "\n";
$message .= "$homename\n";
$message .= "$boardurl/$forumsummaryprog\n\n\n";
$message .= "Thank you for registering!\n\n\n";
$message .= "Your username and password are below:\n\n";
$message .= " Username : $inmembername\n";
$message .= " Password : $password\n\n\n";
$message .= "Usernames and passwords are case sensitive.\n\n";
$message .= "Please note that you can change your password at any time\n";
$message .= "by editing your profile. If you change your email address,\n";
$message .= "a new password will be sent to you.\n\n";
&sendmail($from, $from, $to, $SMTP_SERVER, $subject, $message);
} # end send password to member
if ($newusernotify eq "yes" && $emailfunctions ne "off") {
$to = "$adminemail_in";
$from = "$homename <$adminemail_out>";
$subject = "New User Has Registered";
$message = "";
$message .= "\n";
$message .= "$boardname\n";
$message .= "$boardurl/$forumsummaryprog\n";
$message .= "---------------------------------------------------------------------\n\n";
$message .= "New user registration information:\n\n";
$message .= " Username : $inmembername\n";
$message .= " Password : $password\n";
$message .= " Email : $emailaddress\n";
$message .= " Homepage : http://$inhomepage\n";
$message .= " IP Address: $ipaddress\n\n";
$message .= "---------------------------------------------------------------------\n";
&sendmail($from, $from, $to, $SMTP_SERVER, $subject, $message);
} # end routine
} # end routine
elsif ($action eq "agreed") {
if (($passwordverification eq "yes") && ($emailfunctions ne "off")) {
$requirepass = qq~
Your password will be emailed to the address you specify
~;
}
else {
$requirepass = qq~
Password: Please choose a password, all passwords are case sensitive. Please do not use any 'wild' characters such as '*' '|' or any other HTML characters
~;
}
### Avatar stuff
if ($avatars eq "on") {
$dirtoopen = "$imagesdir" . "avatars";
opendir (DIR, "$dirtoopen") or die "This is not the correct directory ($dirtoopen) please check the \$imagesdir path in the Admin center \>\; Set-Variables";
@dirdata = readdir(DIR);
closedir (DIR);
@images = grep(/gif/,@dirdata);
@images = sort @images;
foreach (@images) {
$cleanavatar = $_;
$cleanavatar =~ s/.gif//i;
# Skip, if it's an admin/moderator only avatar
if ($cleanavatar =~ /admin_/) { next; }
if ($cleanavatar eq "noavatar") {
$selecthtml .= qq~\n~;
$currentface = "$cleanavatar";
}
else {
$selecthtml .= qq~\n~;
}
}
$avatarhtml = qq~
Avatar: You may choose an avatar to be displayed under your chosen username when you make a post
~;
} # end avatar if
### Print the form
$output .= qq~
$boardname
Register
~;
&title;
$output .= qq~
