#!/usr/bin/perl

#############################################################
$|=1;
#############################################################
eval {
  ($0 =~ m,(.*)/[^/]+,)   && unshift (@INC, "$1");
  ($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1");

require("common.cgi");
};

&Control_Parse;
⩵
&CleanInput2 unless $name eq "";
#############################################################

if ( $action eq "ShowPageTop" ) { &PageTop(); }
if ( $action eq "ShowMembersTop" ) { &MembersTop(); }
if ( $action eq "ShowMain" ) { &MakeMain(); }
if ( $action eq "ShowControl" ) { &MembersMenu(); }
if ( $action eq "ShowBottom" ) { &MakeBottom(); }
if ( $action eq "ShowBlank" ) { &MakeBlank(); }
if ( $action eq "help" ) { &MakeHelp(); }
if ( $action eq "chatrooms" ) { &Makechatrooms(); }
if ( $action eq "Register" ) { &RegisterName(); }
if ( $action eq "Register2" ) { &RegisterName($name); }
if ( $action eq "signup" ) { &register(); }
if ( $action eq "signup2" ) { &register($name); }
if ( $action eq "Members_Enter" ) { &Sign_in(); }
if ( $action eq "check" ) { &Check_Member(); }
if ( $action eq "Delete" ) { &DeleteName(); }
if ( $action eq "delete_chatname" ) { &CheckDeleteName(); }
if ( $action eq "ViewProfiles" ) { &View_Profiles(); }
if ( $action eq "ViewProfiles2" ) { &View_Profiles2(); }
if ( $action eq "ViewTop" ) { &View_Top(); }
if ( $action eq "ShowMemberProfile" ) { &View_MemberProfile(); }
if ( $action eq "EditProfiles" ) { &edit_profiles(); }
if ( $action eq "make_edit" ) { &MakeEdit(); }
if ( $action eq "LostPassword" ) { &Lost_Password(); }
if ( $action eq "send_pass" ) { &Check_PassEmail(); }
if ( $action eq "UpPhoto" ) { &Upload_Photo(); }
if ( $action eq "photo_help" ) { &PhotoHelp(); }
if ( $action eq "DeletePhoto" ) { &Delete_Photo(); }
if ( $action eq "check_del_photo" ) { &CheckDelPhoto(); }
if ( $action eq "usr_log_out" ) { &Log_Out_ReDirect(); }

#############################################################

print "Content-type: text/html\n\n";
print "$TopTags";
print "$Style";
print "<SCRIPT LANGUAGE=\"JavaScript\">\n";
print "<!---\n";
print "function jumpBox(list) {location.href=list.options[list.selectedIndex].value}\n";
print "//--->\n";
print "</SCRIPT>\n";
&MiddleHead;
print "$Status";
print "$EndHead";
print "$Body";
&PageTop;

open (HEADER, "$header");
@header = <HEADER>;
close(HEADER);

print "@header";
if ( $Entrance_HeadLine eq "" )
{
print "<br>";
}
else
{
print "<table cellspacing=\"2\" cellpadding=\"2\" border=\"0\" width=\"100%\">\n";
print "<tr>\n";
print "<td align=\"center\">$head_font<strong>$Entrance_HeadLine</strong>$end_font<br><br></td>\n";
print "</tr>\n";
print "</table>\n";
}
if ( $Entrance_Message eq "" )
{
print "<br>";
}
else
{
print "<table cellspacing=\"2\" cellpadding=\"2\" border=\"0\" width=\"100%\">\n";
print "<tr>\n";
print "<td align=\"$EntranceAlign\">$subhead_font<strong>$Entrance_Message</strong>$end_font<br><br></td>\n";
print "</tr>\n";
print "</table>\n";
}
print "<table cellspacing=\"2\" cellpadding=\"2\" border=\"0\" width=\"100%\">\n";
print "<tr>\n<td align=\"center\" valign=\"top\" width=\"300\">";
&SideMenu;
print "</td>\n<td align=\"center\" valign=\"top\" width=\"75%\">\n";

	if ($MustRegister eq "yes") 
	{
		print "<table cellspacing=\"2\" cellpadding=\"2\" border=\"0\" width=\"100%\">\n<tr>\n<td align=\"center\" colspan=\"2\">$reg_font<strong>$t02a</strong>$end_font</td>\n</tr>\n</table>\n";
	}

&Makechatrooms;

print "</td></tr></table>\n";

open (FOOTER, "$footer");
@footer = <FOOTER>;
close(FOOTER);

print "@footer<br>\n";
&BottomMenu;
print "$Copyright\n";
print "$End";

exit;
#############################################################
	
sub MakeMain()
{
	&No_Right_Click();
	$name =~ s/___/ /g;

	print "Content-type: text/html\n\n";
	print "$TopTags";
	print "$No_Right_Click";
	print "$Status";
	print "$Style";
	&MiddleHead2;

print "<SCRIPT LANGUAGE=\"JavaScript\">\n";
print "<!---\n";
print "function jumpBox(list) {location.href=list.options[list.selectedIndex].value}\n";
print "//--->\n";
print "</SCRIPT>\n";

    print qq|

$EndHead
$Body

<script language="JavaScript">

var now = new Date() 
var h = now.getHours()

if (h < 12)
document.write("<center><font face='$font' size=$TextHeadSize color=$TextHeadColor><strong>$morning_intro $name.</strong></font></center>")
else if (h < 17)
document.write("<center><font face='$font' size=$TextHeadSize color=$TextHeadColor><strong>$afternoon_intro $name.</strong></font></center>")
else
document.write("<center><font face='$font' size=$TextHeadSize color=$TextHeadColor><strong>$evening_intro $name.</strong></font></center>")

</script>
<br><br>

    |;

&Makechatrooms;

print "$End";

exit;
}
#############################################################

sub MakeBottom()
{
    print "Content-type: text/html\n\n";
    print "$TopTags$EndHead$Body$Copyright$End";
	exit;
}

#############################################################

sub MiddleHead()
{
    print qq|

<script language="JavaScript">
<!--
var win=null;

function displayChat(url,name) {
var w = screen.availWidth - 12;
var h = screen.availHeight - 45;

if (window.screen) {
settings="width=" + w + ",height=" + h + ",scrollbars=no,location=no,directories=no,status=no,menubar=no,toolbar=no,resizable=yes,copyhistory=no,top=0,left=0";
win=window.open(url,name,settings);
}
win.focus();
}

function displayMessages(url,name,w,h,pos,infocus){
mod='&name=inquiry';
url+=mod;
if(pos=="random"){myleft=(screen.width)?Math.floor(Math.random()*(screen.width-w)):100;mytop=(screen.height)?Math.floor(Math.random()*((screen.height-h)-75)):100;}
if(pos=="center"){myleft=((screen.availWidth - w - 10) * .5);mytop=((screen.availHeight - h - 30) * .5);}
else if((pos!='center' && pos!="random") \|\| pos==null){myleft=20;mytop=20}
settings="width=" + w + ",height=" + h + ",top=" + mytop + ",left=" + myleft + ",scrollbars=yes,location=no,directories=no,status=no,menubar=no,toolbar=no,resizable=yes";
win=window.open(url,name,settings);
}

function displayPeople(url,name,w,h,pos,infocus){
mod='&name=inquiry';
url+=mod;
if(pos=="random"){myleft=(screen.width)?Math.floor(Math.random()*(screen.width-w)):100;mytop=(screen.height)?Math.floor(Math.random()*((screen.height-h)-75)):100;}
if(pos=="center"){myleft=((screen.availWidth - w - 10) * .5);mytop=((screen.availHeight - h - 30) * .5);}
else if((pos!='center' && pos!="random") \|\| pos==null){myleft=20;mytop=20}
settings="width=" + w + ",height=" + h + ",top=" + mytop + ",left=" + myleft + ",scrollbars=yes,location=no,directories=no,status=no,menubar=no,toolbar=no,resizable=yes";
win=window.open(url,name,settings);
}
//-->
</script>

    |;

}
#############################################################

sub MiddleHead2()
{
	$password = $data{'password'};
	
	print qq|

<script language="JavaScript">
<!--

var win=null;

function displayChat(url,name) {
var w = screen.availWidth - 12;
var h = screen.availHeight - 40;

if (window.screen) {
mod='&action=transfer2&name=$name&password=$password';
url+=mod;
settings="width=" + w + ",height=" + h + ",scrollbars=no,location=no,directories=no,status=no,menubar=no,toolbar=no,resizable=yes,copyhistory=no,top=0,left=0";
win=window.open(url,name,settings);
}
win.focus();
}

function displayMessages(url,name,w,h,pos,infocus){
mod='&name=inquiry';
url+=mod;
if(pos=="random"){myleft=(screen.width)?Math.floor(Math.random()*(screen.width-w)):100;mytop=(screen.height)?Math.floor(Math.random()*((screen.height-h)-75)):100;}
if(pos=="center"){myleft=((screen.availWidth - w - 10) * .5);mytop=((screen.availHeight - h - 30) * .5);}
else if((pos!='center' && pos!="random") \|\| pos==null){myleft=20;mytop=20}
settings="width=" + w + ",height=" + h + ",top=" + mytop + ",left=" + myleft + ",scrollbars=yes,location=no,directories=no,status=no,menubar=no,toolbar=no,resizable=yes";
win=window.open(url,name,settings);
}

function displayPeople(url,name,w,h,pos,infocus){
mod='&name=inquiry';
url+=mod;
if(pos=="random"){myleft=(screen.width)?Math.floor(Math.random()*(screen.width-w)):100;mytop=(screen.height)?Math.floor(Math.random()*((screen.height-h)-75)):100;}
if(pos=="center"){myleft=((screen.availWidth - w - 10) * .5);mytop=((screen.availHeight - h - 30) * .5);}
else if((pos!='center' && pos!="random") \|\| pos==null){myleft=20;mytop=20}
settings="width=" + w + ",height=" + h + ",top=" + mytop + ",left=" + myleft + ",scrollbars=yes,location=no,directories=no,status=no,menubar=no,toolbar=no,resizable=yes";
win=window.open(url,name,settings);
}
//-->
</script>

	|;

}
#############################################################

sub Sign_in()
{
	print "Content-type: text/html\n\n";
	print "$TopTags";
	print "$Style";
	print "$Status";
	print "$EndHead";
	print "$Body";
	&PageTop2;

    print qq|

<br>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">$head_font<strong>$Members_Head</strong>$end_font<br><br></td>
</tr>
<tr>
<td align="center">$subhead_font<strong>$Members_Subhead</strong>$end_font</td>
</tr>
</table>

    |;

if ($UseMail eq "Yes") {
print "<p align=\"center\">$reg_font<strong>$EP1</strong>$end_font<br>$link_font<a href=\"$control_script?action=LostPassword\"><strong>$EP2</strong></a>$end_font</p>\n";
}
else {
print "<p align=\"center\">$reg_font<strong>$Back2</strong>$end_font<br>$link_font<a href=\"mailto: $Email?subject=$EP3\"><strong>$Email</strong></a>$end_font</p>\n";
}

    print qq|

<br>

$CommentsTableTop
<tr>
<td colspan="2" bgcolor="$TableHeadBGColor">$tablehead_font<strong>$Members_Head</strong>$end_font
</td>
</tr>
<tr bgcolor="$TableColor">
<td colspan=2 align=center>$tablereg_font$A4$end_font</td>
</tr>
<tr bgcolor="$TableColor">
<td align=right width="40%">$tablereg_font<strong>$A5</strong>$end_font</td><form action=$control_script method=Post name="form"><td><input type=text name=name maxlength="12"></td>
</tr>
<tr bgcolor="$TableColor">
<td align=right>$tablereg_font<strong>$A6</strong>$end_font</td><td><input type=password name=password maxlength="12"></td>
</tr>
<tr bgcolor="$TableColor">
<td align="right">$tablereg_font<strong>$CRS</strong>$end_font</td><td><input type=hidden name=action value=check><input type=submit class="button" value=$A7></td></form>
$TableEnd
<br>

    |;
	
&BottomMenu;

print "$Copyright<br>\n";
print "$End";

exit;
}
##############################################################

sub Check_Member()
{
	$name =~ s/ /___/ig;

   if ($name eq "") { &Error("$E1 $E0"); }
   if ($password eq "") { &Error("$E3 $E0"); }

	if (($name eq $username) && ($password eq $adminpassword))
	{
		&Members_Area;
		exit;
	}

   if ( -e "$Members/$name.txt" ) 
   {
       &CheckPass;
   }

   &Error("$E10 $E0");	  
}
#############################################################

sub CheckPass()
{
	$name =~ s/ /___/ig;

   if ( -e "$Members/$name.txt" ) #$memberfile eq $name) 
	{
		open (NAMES,"$Members/$name.txt") || die ("Can't open $Members/$name.txt");
		@NAMES=<NAMES>;
		close (NAMES);
		
		foreach $oldname (@NAMES) 
		{
		($Oldchatname, $OldIP, $OldPword, $useremail, $showphoto, $realname, $occupation, $userage, $usersex, $userlocal, $hobbies, $userprofile, $showemail, $allowsend, $regtime) = split(/\|/, $oldname);

			if ($UseMail eq "Yes") 
			{
			&Error("$Sorry3<br><br>$Back6<br><br><a href=\"javascript:history.go(-1)\"><font size=2><strong>$Click</strong>$end_font</a>") unless ($password eq "$OldPword");
			}
			else 
			{
			&Error("$Sorry3<br><br>$Back4<br><a href=\"mailto: $Email?subject=$EP3\">$Email</a><br><br><a href=\"javascript:history.go(-1)\"><font size=2><strong>$Click</strong>$end_font</a>") unless ($password eq "$OldPword");
			}
		}
	}
	&Members_Area;
	exit;
}
#############################################################

sub RegisterName()
{
	require ("$cgi_path/sub/RegisterName.sub.cgi");
	exit;
}
##############################################################

sub View_Profiles()
{
	&No_Right_Click();

    print "Content-type: text/html\n\n";
    print qq|
	
	$TopTags
	$Status
	$Style
	$No_Right_Click
	$EndHead
	$Body
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
	<tr>
	<td align="center">$head_font<strong>$VPHead</strong>$end_font<br>$reg_font<strong>$VP4</strong>$end_font<br><br></td>
	</tr>
	<tr>
	<td align="center">$subhead_font<strong>$VP1</strong>$end_font</td>
	</tr>
	</table>
	<br>
	$TableTop
	<tr bgcolor="$TableHeadBGColor"><td>$tablehead_font<strong>$VP2</strong>$end_font</td><td>$tablehead_font<strong>$PH5</strong>$end_font</td><td>$tablehead_font<strong>$VP3</strong>$end_font</td></tr>
	
	    |;

	opendir(NAMEFILES,"$Members");
	@memberlist = grep {-f "$Members/$_" } readdir (NAMEFILES);
	@list = sort {lc($a) cmp lc($b) || $a <=> $b} @memberlist;
	closedir(NAMEFILES);
	
	foreach $memberfile (@list) 
	{
		open (NAMES,"$Members/$memberfile") || die ("Can't open $Members/$memberfile");
		@NAMES=<NAMES>;
		close (NAMES);
	
		foreach $oldname (@NAMES) 
		{
			($Oldchatname, $OldIP, $OldPword, $useremail, $showphoto, $realname, $occupation, $userage, $usersex, $userlocal, $hobbies, $userprofile, $showemail, $allowsend, $regtime) = split(/\|/, $oldname);
			$showphoto = ( $showphoto eq "Yes" ? "$CRO1" : "$CRO2" );
			$chatname = $Oldchatname;
			$ChatName = $Oldchatname;
			$ChatName =~ s/___/ /g;
			print qq(<tr bgcolor="$TableColor"><td>$link_font<a href="$control_script?action=ShowMemberProfile&name=$chatname"><strong>$ChatName</strong></a>$end_font</td><td align="center">$tablereg_font<strong>$showphoto</strong>$end_font</td><td>$tablereg_font<strong>$regtime</strong>$end_font</td>\n);
		}
	}
	
	print "$TableEnd<br><br>\n";
	print "$End\n";
	
	exit;
}
##############################################################

sub View_Profiles2()
{
    print "Content-type: text/html\n\n";
    print qq|

	$TopTags
	$Status
	$EndHead
	<frameset  rows="70,*" framespacing="0" frameborder="no" framepadding="0" border="0">
	<frame name="viewtop" src="$control_script?action=ViewTop" marginwidth="0" marginheight="0" scrolling="no" frameborder="0">
	<frame name="viewmain" src="$control_script?action=ViewProfiles" marginwidth="0" marginheight="0" scrolling="auto" frameborder="0">
	</frameset>
	$Body
	$End

    |;

exit;
}
##############################################################

sub View_Top()
{
	&No_Right_Click();

    print "Content-type: text/html\n\n";
    print qq|

	$TopTags
	$Status
	$No_Right_Click
	$EndHead
	$Body
	<br>
	$TableTop
	<tr bgcolor="$TableColor">
	<td width="33%" align="center">$link_font<a  href="javascript:parent.viewmain.history.go(-1)" alt="$back"><strong>< $back</strong></a>$end_font</td>
	<td width="34%" align="center" valign="middle" width="70%">$tablereg_font<strong>$profile</strong>$end_font</td>
	<td width="33%" align="center">$link_font<a  href="javascript:parent.viewmain.history.go(+1)" alt="$Forward"><strong>$Forward ></strong></a>$end_font</td>
	$TableEnd
	$End

    |;

	exit;
}
##############################################################

sub View_MemberProfile()
{
	require ("$cgi_path/sub/View_MemberProfile.sub.cgi");
	exit;
}

##############################################################

sub edit_profiles()
{
	$chatname = "$name";
	$chatname =~ s/___/ /g;

    print "Content-type: text/html\n\n";
    print qq|
		
	$TopTags
	$Status
	$Style
	$EndHead
	$Body
	<center>
	<table border="0" cellpadding="0" cellspacing="0" width="90%">
	<tr>
	<td align="center">$head_font<strong>$EditHead $chatname</strong>$end_font<br><br></td>
	</tr>
	<tr>
	<td align="center">$subhead_font<strong>$CRT3</strong>$end_font<br><br></td>
	</tr>
	</table>
	
	    |;
		  
	open (EDITNAMES,"$Members/$name.txt") || die ("Can't open $Members/$name.txt");
	@EDITNAMES=<EDITNAMES>;
	close (EDITNAMES);
	
	foreach $editname (@EDITNAMES) 
	{
		($chatname, $OldIP, $chatpass, $useremail, $showphoto, $realname, $occupation, $userage, $usersex, $userlocal, $hobbies, $userprofile, $showemail, $allowsend, $showtime) = split(/\|/, $editname);
	
	$userprofile =~ s/<BR\>/\n/g; 
	
	print "$RegisterTableTop\n";print "<tr>\n";
	print "<td bgcolor=\"$TableHeadBGColor\" colspan=\"2\">\n";
	print "$tablehead_font<strong>$EP5</strong>$end_font\n";
	print "</td>\n";
	print "</tr>\n";
	print "<tr bgcolor=\"$TableColor\">\n";
	print "<td colspan=\"2\">$tablereg_font<strong>$EP6</strong>$end_font</td></tr>\n";
	print "<tr bgcolor=\"$TableColor\">\n";
	print "<td align=\"right\"><form action=$register_script method=post>$tablereg_font$CR3b$end_font</td><td><input type=\"text\" name=\"usrpwd\" value=\"$chatpass\" maxlength=\"12\"></td></tr>\n";
	print "<tr bgcolor=\"$TableColor\">\n";
	print "<td align=\"right\">$tablereg_font$CR3a$end_font</td><td><input type=\"text\" name=\"usremail\" value=\"$useremail\"></td></tr>\n";
	print "<td bgcolor=\"$TableHeadBGColor_2\" colspan=\"2\">";
	print "$tablehead2_font<strong>$CR4</strong>$end_font\n";
	print "</td>\n";
	print "</tr>\n";
	print "<tr bgcolor=\"$TableColor\">\n";
	print "<td align=\"right\">$tablereg_font$CR5$end_font</td><td><input type=\"text\" name=\"usrreal\" value=\"$realname\"></td></tr>\n";
	print "<tr bgcolor=\"$TableColor\">\n";
	print "<td align=\"right\">$tablereg_font$CR6$end_font</td><td><input type=\"text\" name=\"usroc\" value=\"$occupation\"></td></tr>\n";
	print "<tr bgcolor=\"$TableColor\">\n";
	print "<td align=\"right\">$tablereg_font$CR7$end_font</td><td><input type=\"text\" name=\"usrag\" value=\"$userage\"></td></tr>\n";
	print "<tr bgcolor=\"$TableColor\">\n";
	
	if ($usersex eq "Male") 
	{
		print "<td align=\"right\">$tablereg_font$CR8$end_font</td><td align=\"center\">&nbsp;$tablereg_font$CRM$end_font<input type=\"radio\" name=\"usrsex\" value=\"Male\" checked>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tablereg_font$CRF$end_font<input type=\"radio\" name=\"usrsex\" value=\"Female\"></td></tr>\n";
	}
	elsif ($usersex eq "Female") 
	{
		print "<td align=\"right\">$tablereg_font$CR8$end_font</td><td align=\"center\">&nbsp;$tablereg_font$CRM$end_font<input type=\"radio\" name=\"usrsex\" value=\"Male\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tablereg_font$CRF$end_font<input type=\"radio\" name=\"usrsex\" value=\"Female\" checked></td></tr>\n";
	}
	else 
	{
		print "<td align=\"right\">$tablereg_font$CR8$end_font</td><td align=\"center\">&nbsp;$tablereg_font$CRM$end_font<input type=\"radio\" name=\"usrsex\" value=\"Male\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tablereg_font$CRF$end_font<input type=\"radio\" name=\"usrsex\" value=\"Female\"></td></tr>\n";
	}
	
	print "<tr bgcolor=\"$TableColor\">\n";
	print "<td align=\"right\">$tablereg_font$CR9$end_font</td><td><input type=\"text\" name=\"usrpl\" value=\"$userlocal\"></td></tr>\n";
	print "<tr bgcolor=\"$TableColor\">\n";
	print "<td align=\"right\">$tablereg_font$CR10$end_font</td><td><input type=\"text\" name=\"usrhob\" value=\"$hobbies\"></td></tr>\n";
	print "<tr bgcolor=\"$TableColor\">\n";
	print "<td align=\"center\" colspan=\"2\">$tablereg_font$EP8$end_font<br><br><textarea cols=\"30\" rows=\"6\" name=\"message\">$userprofile</textarea></td></tr>\n";
	print "<tr>\n";
	print "<td bgcolor=\"$TableHeadBGColor_2\" colspan=\"2\">";
	print "$tablehead2_font<strong>$CRSO</strong>$end_font\n";
	print "</td>\n";
	print "</tr>\n";
	
	if ($UseMail eq "Yes") 
	{
		print "<tr bgcolor=\"$TableColor\">\n";
	
		if ($allowsend eq "Yes") 
		{
			print "<td>$tablereg_font$CRO4$end_font</td><td align=\"center\">$tablereg_font$CRO1$end_font&nbsp;<input type=\"radio\" name=\"sendemail\" value=\"Yes\" checked>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tablereg_font$CRO2$end_font&nbsp;<input type=\"radio\" name=\"sendemail\" value=\"No\"></td></tr>\n";
		}
		elsif ($allowsend  eq "No") 
		{
			print "<td>$tablereg_font$CRO4$end_font</td><td align=\"center\">$tablereg_font$CRO1$end_font&nbsp;<input type=\"radio\" name=\"sendemail\" value=\"Yes\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tablereg_font$CRO2$end_font&nbsp;<input type=\"radio\" name=\"sendemail\" value=\"No\" checked></td></tr>\n";
		}
		else 
		{
			print "<td>$tablereg_font$CRO4$end_font</td><td align=\"center\">$tablereg_font$CRO1$end_font&nbsp;<input type=\"radio\" name=\"sendemail\" value=\"Yes\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tablereg_font$CRO2$end_font&nbsp;<input type=\"radio\" name=\"sendemail\" value=\"No\"></td></tr>\n";
		}
	}
	
	print "<tr bgcolor=\"$TableColor\">\n";
	
	if ($showemail eq "Yes") 
	{
		print "<td>$tablereg_font$CRO3$end_font</td><td align=\"center\">$tablereg_font$CRO1$end_font&nbsp;<input type=\"radio\" name=\"displaymail\" value=\"Yes\" checked>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tablereg_font$CRO2$end_font&nbsp;<input type=\"radio\" name=\"displaymail\" value=\"No\"></td></tr>\n";
	}
	elsif ($showemail eq "No") 
	{
		print "<td>$tablereg_font$CRO3$end_font</td><td align=\"center\">$tablereg_font$CRO1$end_font&nbsp;<input type=\"radio\" name=\"displaymail\" value=\"Yes\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tablereg_font$CRO2$end_font&nbsp;<input type=\"radio\" name=\"displaymail\" value=\"No\" checked></td></tr>\n";
	}
	else 
	{
		print "<td>$tablereg_font$CRO3$end_font</td><td align=\"center\">$tablereg_font$CRO1$end_font&nbsp;<input type=\"radio\" name=\"displaymail\" value=\"Yes\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tablereg_font$CRO2$end_font&nbsp;<input type=\"radio\" name=\"displaymail\" value=\"No\"></td></tr>\n";
	}
	
	print "<tr bgcolor=\"$TableColor\">\n";
	print "<td align=\"right\">$tablereg_font<strong>$CRS</strong>$end_font</td><td><input type=hidden name=time value=\"$showtime\"><input type=hidden name=photo value=$showphoto><input type=hidden name=name value=$chatname><input type=hidden name=IP value=$OldIP><input type=hidden name=action value=make_edit><input type=\"submit\" class=\"button\" value=\"$CSP\"></td></form>\n";
	print "$TableEnd<br>\n";
	print "$End\n";
	}
	
	exit;
}
##############################################################

sub Lost_Password()
{
	require("$cgi_path/sub/LostPassword.sub.cgi");
	exit;
}
##############################################################

sub Upload_Photo()
{
	$chatname = $data{'name'};

    print "Content-type: text/html\n\n";
	
	print "$TopTags";
	print "$Status";
	print "$Style";
	print "$EndHead";
	print "$Body";
	
	print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">\n";
	print "<tr>\n";
	print "<td align=\"center\">$head_font<strong>$UploadPhotoHead</strong>$end_font<br><br></td>\n";
	print "</tr>\n";
	print "</table>\n";
	
	if ($SuspendPhoto eq "Yes") 
	{
		print "<br><br><br><br>$SmallTableTop\n";
		print "<tr>\n";
		print "<td align=\"center\" valign=\"middle\">$reg_font<strong>$PH0a</strong>$end_font</td>\n";
		print "$SmallTableEnd\n";
	}
	else 
	{
		print "<table border=\"0\" cellpadding=\"10\" cellspacing=\"0\" width=\"100%\">\n";
		print "<tr>\n";
		print "<td>$reg_font<strong>$PH1</strong>$end_font</td>\n";
		print "</tr>\n";
		print "</table>\n";
		print "<br>\n";
		print "$TableTop\n";
		print "<tr bgcolor=\"$TableColor\">\n";
		print "<td align=\"center\">$tablereg_font<strong>$PH2</strong>$end_font</td>\n";
		print "</tr>\n";
		print "<tr bgcolor=\"$TableColor\">\n";
		print "<td align=\"center\">$tablereg_font<a href=\"$control_script?action=photo_help\"><strong>$PH4</strong></a>$end_font</td>\n";
		print "$TableEnd\n";
		print "<br>\n";
		print "$TableTop\n";
		print "<tr bgcolor=\"$TableColor\">\n";
		print "<td align=\"center\"><form action=\"$photo_script\" method=\"POST\" ENCTYPE=\"multipart/form-data\"><input type=file name=\"profilephoto\" value=\"$chatname\"></td>\n";
		print "</tr>\n";
		print "<tr bgcolor=\"$TableColor\">\n";
		print "<td align=\"center\"><input type=hidden name=name value=$chatname><input type=hidden name=temp value=$temp><input type=submit class=\"button\" value=\"$PH3\"></td></form>\n";
		print "$TableEnd\n";
	}
		print "$End\n";
	
	exit;
}
##############################################################

sub PhotoHelp()
{
    print "Content-type: text/html\n\n";
    print qq|
	
<html>	
<head>
<title>$ProgName</title>
<style type="text/css">
<!--
a:hover {
color: #99ccff;
}
-->
</style>
</head>	
<body leftmargin="12" topmargin="2" marginwidth="12" marginheight="2" bgcolor="#000000" text="#ffffff" link="#ff0000" alink="#99ccff" vlink="#ff0000">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center"><font face="$font" color="#ffcc66"><h3>$PhotoHelpHead</h3>$end_font</td>
</tr>
</table>
<a href=\"javascript:history.go(-1)\"><font face=arial size=2><strong>$PH16</strong>$end_font</a>
<p><font face=arial size=2><strong>$PH17</strong>$end_font</p>
<center>
</body>
</html>

    |;

exit;
}
##############################################################

sub Delete_Photo()
{
    print "Content-type: text/html\n\n";
    print qq|
	
$TopTags
$Status
$Style
$EndHead	
$Body
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">$head_font<strong>$DeletePhotoHead</strong>$end_font<br><br></td>
</tr>
<tr>
<td align="center">$subhead_font<strong>$PH12</strong>$end_font</td>
</tr>
</table>
<br><br><br>
$CommentsTableTop
<tr>
<td colspan="2" bgcolor="$TableHeadBGColor">$tablehead_font<strong>$PH10</strong>$end_font
</td>
</tr>
<tr bgcolor="$TableColor">
<td colspan=2 align=center>$tablereg_font$A4$end_font</td>
</tr>
<tr bgcolor="$TableColor">
<td align=right width="37%">$tablereg_font<strong>$A5</strong>$end_font</td><form action=$control_script method=Post name="form"><td width=226><input type=text name=name maxlength="12"></td>
</tr>
<tr bgcolor="$TableColor">
<td align=right>$tablereg_font<strong>$A6</strong>$end_font</td><td><input type=password name=password maxlength="12"></td>
</tr>
<tr bgcolor="$TableColor">
<td align="right">$tablereg_font<strong>$CRS</strong>$end_font</td><td><input type=hidden name=action value=check_del_photo><input type=submit class=\"button\" value="$PH11"></td></form>
$TableEnd
$End

    |;

exit;
}
##############################################################

sub CheckDelPhoto()
{
	$chatname = $data{'name'};
	$chatpass = $data{'password'};
	
	if ($data{'name'} eq "") {	&Error("$E1 $E0");	}
	if ($data{'password'} eq "") {	&Error("$E3 $E0");	}
	
	if ( -e "$Members/$chatname.txt") {  &PhotoDelPass; }

	&Error("$E10 $E0");	  
}
#############################################################

sub PhotoDelPass()
{
	$chatname = $data{'name'};
	$chatpass = $data{'password'};

	opendir(NAMEFILES,"$Members");
	@list = readdir (NAMEFILES);
	closedir(NAMEFILES);
    
	foreach $memberfile (@list) 
	{
    	if ($memberfile eq $name) 
		{
   		open (NAMES,"$Members/$chatname.txt") || die ("Can't open $Members/$chatname.txt");
			@NAMES=<NAMES>;
			close (NAMES);
			
			foreach $oldname (@NAMES) 
			{
				($Oldchatname, $OldIP, $OldPword, $useremail, $showphoto, $realname, $occupation, $userage, $usersex, $userlocal, $hobbies, $userprofile, $showemail, $allowsend, $regtime) = split(/\|/, $oldname);

				if ($UseMail eq "Yes") 
				{
					&Error("$Sorry3<br><br>$Back6<br><br><a href=\"javascript:history.go(-1)\"><font size=2><strong>$Click</strong>$end_font</a>") unless ($chatpass eq "$OldPword");
				}
				else 
				{
					&Error("$Sorry3<br><br>$Back4<br><a href=\"mailto: $Email?subject=$EP3\">$Email</a><br><br><a href=\"javascript:history.go(-1)\"><font size=2><strong>$Click</strong>$end_font</a>") unless ($chatpass eq "$OldPword");
				}
	    	}

      	}
   	}
	
	&Find_User_Photo;
	
}
#############################################################

sub Find_User_Photo()
{
	$chatname = $data{'name'};
	$chatpass = $data{'password'};
	$chatphoto = "$chatname" . ".jpg";
	$photo_dir = "$Profiles" . "/images";
	$photo_dir2 = "$temp" . "/images";
	
	if ( -e "$photo_dir/$chatphoto") {  &Delete_User_Photo;	}
	
	&CheckNext;
}
#############################################################

sub CheckNext()
{
	$chatname = $data{'name'};
	$chatpass = $data{'password'};
	$chatphoto = "$chatname" . ".jpg";
	$photo_dir = "$Profiles" . "/images";
	$photo_dir2 = "$temp" . "/images";

		if ( -e "$photo_dir2/$chatphoto" ) {  &Delete_User_Photo;	}
	
	&Error("$E22");
}
#############################################################

sub Delete_User_Photo()
{
	$chatname = $data{'name'};
	$chatpass = $data{'password'};
	$chatphoto = "$chatname" . ".jpg";
	$photo_dir = "$Profiles" . "/images";
	$photo_dir2 = "$temp" . "/images";

 	if (-e "$photo_dir/$chatphoto") 
	{
	   unlink("$photo_dir/$chatphoto") || &Error("<font face=Arial color=#ffff99 size=2>$unsuccessful$end_font<br><br>$Delete_Sorry<br><br>$E0");
	}

   if ( -e "$photo_dir2/$chatphoto") 
	{
    	unlink("$photo_dir2/$chatphoto") || &Error("<font face=Arial color=#ffff99 size=2>$unsuccessful$end_font<br><br>$Delete_Sorry<br><br>$E0");
	}

	open (NAMES,"$Members/$chatname.txt") || die ("Can't open $Members/$chatname.txt");
	@NAMES=<NAMES>;
	close (NAMES);

	foreach $oldname (@NAMES) 
	{
		($chatname, $IP, $chatpass, $useremail, $showphoto, $realname, $occupation, $userage, $usersex, $userlocal, $hobbies, $userprofile, $showemail, $allowsend, $showtime) = split(/\|/, $oldname);
	}

	&Lock;
	open (EDITPROFILE, ">$Members/$chatname.txt") || die ("Can't open $Members/$chatname.txt");
	print EDITPROFILE "$chatname\|$IP\|$chatpass\|$useremail\|No\|$realname\|$occupation\|$userage\|$usersex\|$userlocal\|$hobbies\|$userprofile\|$showemail\|$allowsend\|$showtime|\n";
	close (EDITPROFILE);
	&UnLock;

	open (DELETE,"$Reserve") || die "Can't Open $Reserve";
	@DELETE_FILES=<DELETE>;
	close(DELETE);
	
	&Lock;
	open (AND_DELETE,">$Reserve") || die "Can't Open $Reserve";
	
		foreach $delete_files (@DELETE_FILES) 
		{
		($Oldchatname, $OLDIP, $oldchatpass, $usermail, $showphoto, $realname, $occupation, $userage, $usersex, $userlocal, $hobbies, $userprofile, $showemail, $allowsend, $regtime) = split(/\|/ , $delete_files);
		
			if ($Oldchatname eq "$chatname") 
			{
			next;
			}
		
		print AND_DELETE "$delete_files";	
		}
	
	close(AND_DELETE);
	&UnLock;

   open (EDIT_RESERVE,"$Reserve") || die "Can't Open $Reserve";
   @EDIT_RESERVE=<EDIT_RESERVE>;
   close(EDIT_RESERVE);
   
	&Lock;
	open (EDIT_PROFILE, ">>$Reserve") || die "Can't Open $Reserve";
	print EDIT_PROFILE "$chatname\|$IP\|$chatpass\|$useremail\|No\|$realname\|$occupation\|$userage\|$usersex\|$userlocal\|$hobbies\|$userprofile\|$showemail\|$allowsend\|$showtime|\n";
	close (EDIT_PROFILE);
	&UnLock;

	&FileConfirm;
	exit;
}

#############################################################

sub DeleteName()
{
    print "Content-type: text/html\n\n";
    print qq|
	
$TopTags
$Status
$Style
$EndHead	
$Body
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">$head_font<strong><strong>$CDHeader</strong>$end_font<br><br></td>
</tr>
<tr>
<td align="center">$subhead_font<strong>$PH13</strong>$end_font<br>$reg_font<strong> $PH14 $PH15</strong>$end_font</td>
</tr>
</table>
<br><br><br>
$CommentsTableTop
<tr>
<td bgcolor="$TableHeadBGColor" colspan="2">$tablehead_font<strong>$CD0</strong>$end_font
</td>
</tr>
<tr bgcolor="$TableColor">
<td align="center" colspan="2">$tablereg_font$CD1$end_font</td></tr>
<tr bgcolor="$TableColor"><form action=$control_script method=post name=form>
<td align="right" width="37%">$tablereg_font<strong>$CD2</strong>$end_font</td><td><input type="text" name="deletechatname"></td></tr>
<tr bgcolor="$TableColor">
<td align="right">$tablereg_font<strong>$CD3</strong>$end_font</td><td><input type="text" name="dpass"></td></tr>
<tr bgcolor="$TableColor">
<td align="right">$tablereg_font<strong>$CD4</strong>$end_font</td><td><input type="hidden" name=action value="delete_chatname"><input type="submit" class="button" value="$CD5"></td></tr></form>
$TableEnd
$End

    |;

exit;
}
##############################################################

sub CheckDeleteName()
{
	$deletechatname = $data{'deletechatname'};
	$deletechatname =~ s/ /___/ig;
	$dpass = $data{'dpass'};
	$ChatFile = "$deletechatname" . ".txt";

	if ($deletechatname eq "") 
	{
		&Error("$E1 $E0");
	}	

	if ($dpass eq "") 
	{
		&Error("$E3 $E0");
	}

	if ( -e "$Members/$ChatFile" )
	{
       &DeleteNamePass;
	}

	&Error("$E10 $E0");	  
}
#############################################################

sub DeleteNamePass()
{
	$deletechatname = $data{'deletechatname'};
	$deletechatname =~ s/ /___/ig;
	$dpass = $data{'dpass'};
	$ChatFile = "$deletechatname" . ".txt";

	if ( -e "$Members/$ChatFile" )
	{   
		open (NAMES,"$Members/$ChatFile") || die ("Can't open $Members/$ChatFile");
		@NAMES=<NAMES>;
		close (NAMES);
	
		foreach $oldname (@NAMES) 
		{
			($Oldchatname, $OldIP, $OldPword, $useremail, $showphoto, $realname, $occupation, $userage, $usersex, $userlocal, $hobbies, $userprofile, $showemail, $allowsend, $regtime) = split(/\|/, $oldname);

			if ($UseMail eq "Yes") 
			{
				&Error("$Sorry3<br><br>$Back6<br><br><a href=\"javascript:history.go(-1)\"><font size=2><strong>$Click</strong>$end_font</a>") unless ($dpass eq "$OldPword");
			}
			else 
			{
				&Error("$Sorry3<br><br>$Back4<br><a href=\"mailto: $Email?subject=$EP3\">$Email</a><br><br><a href=\"javascript:history.go(-1)\"><font size=2><strong>$Click</strong>$end_font</a>") unless ($dpass eq "$OldPword");
			}
		}
	}
	
	&delete_chat_name;
}
#############################################################

sub delete_chat_name()
{
	$deletechatname = $data{'deletechatname'};
	$deletechatname =~ s/ /___/ig;
	$dpass = $data{'dpass'};
	$ChatFile = "$deletechatname" . ".txt";
	$chatphoto = "$deletechatname" . ".jpg";
	$photo_dir = "$Profiles" . "/images";
	$photo_dir2 = "$temp" . "/images";

   open (OLDEMAIL, "$e_mail") || &Error("Can't open $e_mail");
   @OLDEMAIL=<OLDEMAIL>;
   close (OLDEMAIL);

   &Lock;
   open (NEWEMAIL, ">$e_mail") || &Error("Can't open $e_mail");
   foreach $OLDEMAIL (@OLDEMAIL) 
   {   
      ($mail, $Name) = split(/\|/ , $OLDEMAIL);    
      if ($Name ne "$deletechatname") {   print NEWEMAIL "$OLDEMAIL";    }      
   }
   close (NEWEMAIL);	
   &UnLock;

   if ( -e "$photo_dir/$chatphoto" )
   {
      unlink("$photo_dir/$chatphoto") || &Error("<font face=Arial color=#ffff99 size=2>$unsuccessful$end_font<br><br>$Delete_Sorry<br><br>$E0");
   }
   
   if ( -e "$photo_dir2/$chatphoto" )
   {
      unlink("$photo_dir2/$chatphoto") || &Error("<font face=Arial color=#ffff99 size=2>$unsuccessful$end_font<br><br>$Delete_Sorry<br><br>$E0");
   }
		  
   if ( -e "$Members/$ChatFile" )
   {
      unlink("$Members/$ChatFile") || &Error("<font face=Arial color=#ffff99 size=2>$unsuccessful$end_font<br><br>$Delete_Sorry<br><br>$E0");
   }

   open (DELETE,"$Reserve") || die ("Can't open $Reserve");
   @DELETE_FILES=<DELETE>;
   close(DELETE);

   &Lock;
   open (AND_DELETE,">$Reserve") || die ("Can't open $Reserve");
   foreach $delete_files (@DELETE_FILES) 
   {    
      ($OldChatName, $OldIP, $OldPword, $useremail, $showphoto, $realname, $occupation, $userage, $usersex, $userlocal, $hobbies, $userprofile, $showemail, $allowsend, $regtime) = split(/\|/ , $delete_files);    
      if ($OldChatName eq "$deletechatname" && $OldPword eq "$dpass") {	next; }	
      print AND_DELETE "$delete_files";	
   }
   close(AND_DELETE);
   &UnLock;

   &Log_Out_ReDirect($deletechatname);
   exit;
}
##############################################################