#!/usr/bin/perl 
$| = 1;
$form_action = "manager.cgi";
################################################################
#                        manager.cgi                           #
################################################################
################################################################
#                        DOMAIN MANGER                         #
#                         Version 1.0                          #
#                      Copyright © 2000                        #
#                       by IndianMagic                         #
################################################################
#BASIC SETTINGS FOR DOMAIN MANAGER
# Specify the name of your script here
$scr_name="URL Redirection Service";

# Specify the name of your website here
$site_name="IndianMagic";

# If you want links to your main site in this script to point to some other file
# then specify the relative URL starting from root here e.g. for 
# http://yoursite.com/domains/welcome.htm specify "domains/welcome.htm"
$file_name="";

# Specify the URL to your domain here e.g. "http://www.yourname.com"
$base_url="http://www.indian-magic.net";

# Specify the base URL for all derived domains here e.g "yourname.com"
$domain1="indian-magic.net";
$domain2="im4a.com";

# Specify the URL to this script here. do not include the script name e.g.
# if the script URL is "http://yourname.com/domains/manager.cgi" specify
# "http://yourdomain.com/domains"
$cgi_url="http://www.indian-magic.net/cgi-bin";

# Complete URL for background image
$background_image="http://www.indian-magic.net/_themes/imagic/blutextb.gif";

# Color for the background
$background_color="#FFFFCC";

# Main text color
$text_color="#ffffff";

# Color for links
$link_color="#ccffcc";

# Color for visited links
$visited_link_color="#ff9966";

# Color for active links
$active_link_color="#ff66ff";

# Font for Table Text
$table_font="Arial";

# Table border size
$table_border_size="0";

# Color for Table headings background
$table_heading_color="#d0d0d0";

# Color for Headings text
$table_text_color="#000080";

# Background color for table cells
$cell_background_color="#000000";

# Color for Normal cells text
$cell_text_color="#0080ff";

# Path to the mail programme sendmail
$mailprog="/usr/lib/sendmail";

# Your email address dont forget to add "\" before the "@" symbol
$email_address="IndianMagic <webmaster\@indian-magic.net>";

# Filename for keeping user data
$datafile="protected/data.file";

# filename for keeping restricted names data (names you would not like your visitors to use)
$restrictfile="protected/restrict.file";
################################################################
# WARNING! Nothing Needs To Be Edited Below This Line  WARNING!#
################################################################
&init_cgi;

$querystring = $ENV{QUERY_STRING};
if ($querystring eq "new") {
	&sign_up;
	exit;
}

elsif ($querystring eq "modify") {
	&login_manager;
	exit;
}

elsif ($in{'new_final'}) {
	&sign_up;
	&new_final;
	exit;
}

elsif ($in{'login'}) {
	&account_manager;
	exit;
}

elsif ($in{'fpass'}) {
	&account_fpass;
	exit;
}

else {
	print "Location: $base_url\n\n";
	exit;
}

sub init_cgi {

	my $length = $ENV{CONTENT_LENGTH};
	my $query = $ENV{QUERY_STRING};
	my (@assign);

	if ($query){
		@assign = split(/&/,$query);
		$formlength = @assign;
	}

	elsif ($length) {
		read(STDIN, $_, $length);
		chomp;
		@assign = split('&');
		$formlength = @assign;
	}

	else {
		$formlength = 0;
	}

	for (my $i=0; $i<$formlength; $i++) {
		my ($name,$value) = split('=',$assign[$i]);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fFA-F0-9][a-fFA-F0-9])/pack("C", hex($1))/eg;
		$value =~ s/~!/ ~!/g;
		
		if (defined($in{$name})) {
			$in{$name} .= ",$value";
		}

		else {
			$in{$name} = $value;
		}
	}

}


sub insert_html {

	open (html_insert,"$html_file");
	@html_insert = <html_insert>;
	close (html_insert);

	foreach $line (@html_insert) {
		print $line;
	}

}

sub sign_up {
	$error_text = "Sorry! but we are not accepting new accounts at the moment.<br>";
	&error;
	exit;

	print "Content-type:text/html\n\n";
	$html_file="htm/new.htm";
	open (html_insert,"$html_file");
	@html_insert = <html_insert>;
	close (html_insert);

	foreach $line (@html_insert) {
		if ($line !~ /<DATA>/) {
       			print $line;
		}
		else {
		       ($dummy,$remain)=split(/<DATA>/,$line);
			print $dummy;
print <<EOF;
<script language="javascript">
<!--
function help(x) {
loc="http://www.indian-magic.net/domainhelp.htm#" + x
newwin=window.open(loc,"help","scrollbars=yes,resizable=yes")
newwin.focus()
}
-->
</script>
<form action=$form_action method=post>
<div align="center"><center><table dir="ltr" border="$table_border_size"
cellpadding="4" cellspacing="2" width="600">

<tr>
<td valign="middle" colspan="2" bgcolor="$table_heading_color"><p align="center"><font 
size="2" face="$table_font" color="$table_text_color"><b>New Member Sign Up</b></font></p>
</td>

</tr>
<tr>
<td valign="middle" width="30%" nowrap><p align="right"><font 
size="2" color="$cell_text_color" face="$table_font">Your 
Name </font><a href="javascript:help('uname')"><img src="/images/i.gif" border="0"></a></p>
</td>
<td valign="middle" width="65%"><p><font color="#000000"><input 
type="text" size="30" name="uname"></font></p>
</td>
</tr>
<tr>
<td valign="middle" width="30%" nowrap><p align="right"><font 
size="2" color="$cell_text_color" face="$table_font">User 
Name </font><a href="javascript:help('name')"><img src="/images/i.gif" border="0"></a></p>
</td>
<td valign="middle" width="65%"><p><font color="#000000"><input 
type="text" size="30" name="name">.indian-magic.net</font></p>
</td>
</tr>
<tr>
<td valign="middle" width="30%"><p align="right"><font 
size="2" color="$cell_text_color" face="$table_font">Email 
Address </font><a href="javascript:help('email')"><img src="/images/i.gif" border="0"></a></p>
</td>
<td valign="middle" width="65%"><p><font color="#000000"><input 
type="text" size="30" name="email"></font></p>
</td>
</tr>
<tr>
<td valign="middle" width="30%"><p align="right"><font
size="2" color="$cell_text_color" face="$table_font">Site
URL </font><a href="javascript:help('url')"><img src="/images/i.gif" border="0"></a></p>
</td>
<td valign="middle" width="65%"><p><font color="#000000"><input
type="text" size="30" name="site_url" value="http://"></font></p>
</td>
</tr>
<tr>
<td valign="middle" width="30%"><p align="right"><font 
size="2" color="$cell_text_color" face="$table_font">Site 
Name </font><a href="javascript:help('sitename')"><img src="/images/i.gif" border="0"></a></p>
</td>
<td valign="middle" width="65%"><p><font color="#000000"><input 
type="text" size="30" name="site_name"></font></p>
</td>
</tr>
<tr>
<td valign="middle" width="30%"><p align="right"><font
size="2" color="$cell_text_color" face="$table_font">Prefer Cloaking
</font><a href="javascript:help('cloak')"><img src="/images/i.gif" border="0"></a></p>
</td>
<td valign="middle" width="65%"><p><font color="#000000"><input
type="checkbox" name="cloak" value=1></font></p>
</td>
</tr>
<tr>
<td valign="middle" width="30%"><p align="right"><font
size="2" color="$cell_text_color" face="$table_font">Prefer Path Forwarding
</font><a href="javascript:help('path')"><img src="/images/i.gif" border="0"></a></p>
</td>
<td valign="middle" width="65%"><p><font color="#000000"><input
type="checkbox" name="path" value=1></font></p>
</td>
</tr>
<tr>
<td valign="middle" width="30%"><p align="right"><font 
size="2" color="$cell_text_color" face="$table_font">Site 
Description </font><a href="javascript:help('description')"><img src="/images/i.gif" border="0"></a></p>
</td>
<td valign="middle" width="65%"><p><font color="#000000"><input 
type="text" size="30" name="site_description"></font></p>
</td>
</tr>
<tr>
<td valign="middle" width="30%"><p align="right"><font 
size="2" color="$cell_text_color" face="$table_font"> Search Engine Keywords 
</font><a href="javascript:help('key')"><img src="/images/i.gif" border="0"></a></p>
</td>
<td valign="middle" width="65%"><p><font color="#000000"><input 
type="text" size="30" name="key"></font></p>
</td>
</tr>
<tr>
<td valign="middle" width="30%"><p align="right"><font 
size="2" color="$cell_text_color" face="$table_font">Password </font><a href="javascript:help('password')"><img src="/images/i.gif" border="0"></a></p>
</td>
<td valign="middle" width="65%"><p><font color="#000000"><input 
type="password" size="30" name="password"></font></p>
</td>
</tr>
<tr><td valign="middle" colspan="2" width="100%">
EOF
	$html_file = "htm/rules.txt";
	&insert_html;
print <<EOF;
</td></tr>
<tr>
<td valign="middle" colspan="2" width="100%"><p 
align="center"><input type="submit" name="new_final" 
value="Submit"> <input type="reset" name="B2" 
value="Reset"></p>
</td>
</tr>
</table>
</center></div>
</form>
<p align="center"><a href="$base_url/$file_name" target="_top"><font size= "2" face="$table_font">Return to $site_name</font></a></p>
EOF
			print $remain;
		}
	}
}

sub new_final {

	&validate_data;
	$name = $in{'name'};
	$name =~ tr/[A-Z]/[a-z]/;
	$line = join ("\|",0,0,0,0,$name,$in{'email'},$in{'site_name'},$in{'site_description'},$in{'site_url'},$in{'key'},$in{'uname'},$in{'password'},$in{'cloak'},$in{'path'},0,0,0);     
	$line .= "\n";
	open(DATA, ">>$datafile");
	flock (DATA,2); 
	print DATA $line;
	flock (DATA,8);
	close (DATA);

	if ($in{'cloak'} == 1) {
		$cloaking="Yes";
	}
	else {
		$cloaking="No";
	}
	if ($in{'path'} == 1) {
		$pathf="Yes";
	}
	else {
		$pathf="No";
	}
	$name = $in{'name'};
	$name =~ tr/[A-Z]/[a-z]/;
	print "Content-type:text/html\n\n";
	$html_file="htm/new_final.htm";
	open (html_insert,"$html_file");
	@html_insert = <html_insert>;
	close (html_insert);

	foreach $line (@html_insert) {
		if ($line !~ /<DATA>/) {
			print $line;
		}
		else {
			($dummy,$remain)=split(/<DATA>/,$line);
			print $dummy;
print <<END;
<DIV ALIGN="CENTER"><CENTER><TABLE BORDER="$table_border_size" CELLSPACING="2" CELLPADDING="4" WIDTH="640">
<TR>
<TD BGCOLOR="$table_heading_color" WIDTH="640" COLSPAN="2" >
<CENTER><FONT SIZE="2" color="$table_text_color" FACE="$table_font">Thank you $in{'uname'}!</FONT></CENTER></TD>
</TR>
<TR>
<TD>
<FONT SIZE="2" COLOR="$cell_text_color" FACE="$table_font">User Name</FONT></TD>
<TD>
<FONT SIZE="2" COLOR="$text_color" FACE="$table_font">$name</FONT></TD>
</TR>
<TR>
<TD>
<FONT SIZE="2" COLOR="$cell_text_color" FACE="$table_font">Email Address </FONT></TD>
<TD>
<FONT SIZE="2" COLOR="$text_color" FACE="$table_font">$in{'email'}</FONT></TD>
</TR>
<TR>
<TD>
<FONT SIZE="2" COLOR="$cell_text_color" FACE="$table_font">Site Name </FONT></TD>
<TD>
<FONT SIZE="2" COLOR="$text_color" FACE="$table_font">$in{'site_name'}</FONT></TD>
</TR>
<TR>
<TD>
<FONT SIZE="2" COLOR="$cell_text_color" FACE="$table_font">Site URL </FONT></TD>
<TD>
<FONT SIZE="2" COLOR="$text_color" FACE="$table_font">$in{'site_url'}</FONT></TD>
</TR>
<TR>
<TD>
<FONT SIZE="2" COLOR="$cell_text_color" FACE="$table_font">Prefer Cloaking </FONT></TD>
<TD>
<FONT SIZE="2" COLOR="$text_color" FACE="$table_font">$cloaking </FONT></TD>
</TR>
<TR>
<TD>
<FONT SIZE="2" COLOR="$cell_text_color" FACE="$table_font">Prefer Path Forwarding </FONT></TD>
<TD>
<FONT SIZE="2" COLOR="$text_color" FACE="$table_font">$pathf </FONT></TD>
</TR>
<TR>
<TD>
<FONT SIZE="2" COLOR="$cell_text_color" FACE="$table_font">Site Description </FONT></TD>
<TD>
<FONT SIZE="2" COLOR="$text_color" FACE="$table_font">$in{'site_description'}</FONT></TD>
</TR>
<TR>
<TD>
<FONT SIZE="2" COLOR="$cell_text_color" FACE="$table_font">Search Engine Keywords</FONT></TD>
<TD>
<FONT SIZE="2" COLOR="$text_color" FACE="$table_font">$in{'key'}</FONT></TD>
</TR>
<TR>
<TD>
<FONT SIZE="2" COLOR="$cell_text_color" FACE="$table_font">Password </FONT></TD>
<TD>
<FONT SIZE="2" COLOR="$text_color" FACE="$table_font">$in{'password'}</FONT></TD>
</TR>
</DIV></CENTER></TABLE>
<BR><CENTER>Your new website can now be accessed at <A HREF="http://$name.indian-magic.net" TARGET="_blank">http://$name.indian-magic.net</A><BR>
<A HREF="$cgi_url/manager.cgi?modify">
<FONT SIZE="2" FACE="$table_font"><B>Click Here to Edit Account</B></FONT></A></CENTER>
<BR><CENTER><A HREF="$base_url/$file_name" target="_top">
<FONT SIZE="2" FACE="$table_font"><B>Return to $site_name</B></FONT></A></CENTER>
END

			print $remain;
		}
	}
	$update=0;
	&email_member; 
	#&email_data;
	exit;
}

sub email_member {
	if ($in{'cloak'} == 1) {
		$cloaking="Yes";
	}
	else {
		$cloaking="No";
	}
	if ($in{'path'} == 1) {
		$pathf="Yes";
	}
	else {
		$pathf="No";
	}
	$name = $in{'name'};
	$name =~ tr/[A-Z]/[a-z]/;
	open(MAIL,"|$mailprog -t");
print MAIL <<END;
To: $in{'email'}
Bcc: $email_address
From: $email_address
Sender: $email_address
Content-type: text/plain; charset=us-ascii
END
if ($update == 1) {
	print MAIL "Subject: Changes to Member Account\n\n";
	print MAIL "Hi $in{'uname'},\n\n";
	print MAIL "You have successfully made the following changes to your $site_name $scr_name account.\n\n";
}
else {
	print MAIL "Subject: Confirmation for Member Account\n\n";
	print MAIL "Hi $in{'uname'},\n\n";
	print MAIL "Congratulations and Thank you for joining $site_name $scr_name.\n\n";
	print MAIL "The following is your account information:\n\n";
}
print MAIL <<END;
User Name: $name
Email Address: $in{'email'}
Site Name: $in{'site_name'}
Site URL: $in{'site_url'}
Prefer Cloaking: $cloaking
Prefer Path Forwarding: $pathf
Site Description: $in{'site_description'}
Search Engine Keywords: $in{'key'}
Password: $in{'password'}

Your new domain can be accessed at : http://$name.$domain1 or http://$name.$domain2

If any of this information is incorrect or you need to change the information please go to $cgi_url/manager.cgi?modify

For any assistance or support related queries go to http://forums.indian-magic.net/community/scripts/topics.pl?NodeID=48734&ClientID=40936 or email support\@indian-magic.net

END
	close (MAIL);
}

sub email_data {
	open(MAIL,"|$mailprog -oi -t");
# Create headers
print MAIL <<"END";
From: $email_address
Sender: $email_address
To: $email_address
Subject: Latest Data file for $scr_name 

Attached is the latest Data file after today's change

END
	open(FILE, "uuencode $datafile data_url.txt|") or die;
	while( <FILE>) { print MAIL; };

# Close the file and finish sending the mail

	close(FILE);
	close(MAIL);
}

sub validate_data {

	$name = $in{'name'};
	$name =~ tr/[A-Z]/[a-z]/;
	unless ($in{'email'} =~ /^[\w-.]+\@[\w-.]+$/) {
		$error_text .= "<font color=#FF0000>Not a valid e-mail address.</font><br>";
		$error = 1;
	}

	if ($update != 1) {
		if ($in{'name'} eq "") {
			$error_text .= "<font color=#FF0000>You must type in your User Name.</font><br>";
			$error = 1;
		}

		if (($in{'name'} =~ / /) || ($in{'name'} =~ /\./) || ($in{'name'} =~ /</) || ($in{'name'} =~ />/)) {
			$error_text .= "<font color=#FF0000>There are illegal characters in your User Name.</font><br>";
			$error = 1;
		}
		open (DATA,"<$restrictfile");
		flock (DATA,2);
		@tempdata_array = <DATA>;
		flock (DATA,8);
		close (DATA);
		$a=0;
		foreach (@tempdata_array) {
			@name_array = split(/\|/,$tempdata_array[$a]);
			if ($name eq $name_array[0]) {
				$error_text .= "<font color=#FF0000>User Name <font color=#000000><b>'$name_array[0]'</b></font> has been restricted from being given out. It could be for internal use only.</font><br>";
				$error = 1;
			}
			$a++;
		}

		open (DATA,"<$datafile");
		flock (DATA,2);
		@tempdata_array = <DATA>;
		flock (DATA,8);
		close (DATA);
		$a=0;
		foreach (@tempdata_array) {
			@name_array = split(/\|/,$tempdata_array[$a]);
			if ($name eq $name_array[4]) {
				$error_text .= "<font color=#FF0000>User Name <font color=#000000><b>'$name_array[4]'</b></font> has already been taken.</font><br>";
				$error = 1;
			}
			$a++;
		}
	}

	if ($in{'uname'} eq "") {
		$error_text .= "<font color=#FF0000>You must type in your Full Name.</font><br>";
		$error = 1;
	}

	if ($in{'site_name'} eq "") {
		$error_text .= "<font color=#FF0000>You must type in your Site Name.</font><br>";
		$error = 1;
	}

	unless ($in{'site_url'} =~ /\http:/) {
		$error_text .= "<font color=#FF0000>Not a valid URL.</font><br>";
		$error = 1;
	}

	if ($in{'password'} eq "") {
		$error_text .= "<font color=#FF0000>You must enter your password.</font><br>";
		$error = 1;
	}

	if ($error == 1) {
		&error;
	}
}

sub error {
	print "Content-type:text/html\n\n";
	$html_file="htm/error.htm";
	open (html_insert,"$html_file");
	@html_insert = <html_insert>;
	close (html_insert);

	foreach $line (@html_insert) {
		if ($line !~ /<DATA>/) {
			print $line;
		}
		else {
			($dummy,$remain)=split(/<DATA>/,$line);
			print $dummy;
			print "<br><br><center><font face=\"$table_font\"><b>You have the following errors:</b><br><br>";
			print $error_text;
			print "<br><b>Please use your browsers back button to correct them.</b></font></center><br><br>";
			print $remain;
		}
	}
	exit;

}

sub update_account {
	$update=1;
	&validate_data;
	open (DATA,"<$datafile");
	flock (DATA,2); 
	@data_array = <DATA>;
	flock (DATA,8);
	close (DATA);
	$name = $in{'name'};
	$name =~ tr/[A-Z]/[a-z]/;
	$a=0;
	foreach (@data_array) {
		@new_array = split(/\|/,$data_array[$a]);
		if ($new_array[4]  eq $name) {
			$new_array[5]=$in{'email'};
			$new_array[6]=$in{'site_name'};
			$new_array[7]=$in{'site_description'};
			$new_array[8]=$in{'site_url'};
			$new_array[9]=$in{'key'};
			$new_array[10]=$in{'uname'};
			$new_array[11]=$in{'new_password'};
			$new_array[12]=$in{'cloak'};
			$new_array[13]=$in{'path'};
		}
		$data_array[$a] = join("\|",@new_array);
		$a++;
	}
	open (DATA,">$datafile");
	flock (DATA,2); 
	print DATA @data_array;
	flock (DATA,8);
	close (DATA);
	&email_member;
	#&email_data;
}



sub login_manager {
	print "Content-type:text/html\n\n";
	$html_file="htm/login.htm";
	open (html_insert,"$html_file");
	@html_insert = <html_insert>;
	close (html_insert);
	foreach $line (@html_insert) {
		if ($line !~ /<DATA>/) {
			print $line;
		}
		else {
			($dummy,$remain)=split(/<DATA>/,$line);
			print $dummy;
print <<EOF;
<p>&nbsp;</p>
<form method="POST" action="$form_action">
<div align="center"><center>

<table border="$table_border_size" cellspacing="2" cellpadding="4" width="400">
    <tr>
        <td bgcolor="$table_heading_color" colspan="2" align="center"><font size="2" color="$table_text_color" face="$table_font"><b>Account Manager</b></font>
        </td>
    </tr>


    <tr>
        <td align="right"><font size="2" color="$cell_text_color" face="$table_font">User Name</font>
        </td>
        <td align="left">
            <input type="text" size="20" name="name"><font size="2" face="$table_font">.indian-magic.net</font>
        </td>
    </tr>
    <tr>
        <td align="right"><font size="2" color="$cell_text_color" face="$table_font">Password</font>
        </td>
        <td align="left">
            <input type="password" size="20" name="password">
        </td>
    </tr>
</table>
</center></div>
<p align="center"><input type="submit" name="login" value="submit"><input type="submit" name="fpass" value="Forgot Password"></p>
</form>
<BR><CENTER><A HREF="$base_url/$file_name" target="_top">
<FONT SIZE="2" FACE="$table_font">Return to $site_name</FONT></A></CENTER>
EOF

			print $remain;
		}
	}
	exit;
}


sub account_manager {
	open (EDIT_MEMBER,"<$datafile");
	flock (EDIT_MEMBER,2); 
	@edit_member = <EDIT_MEMBER>;
	flock (EDIT_MEMBER,8);
	close (EDIT_MEMBER);
	$valid=0;
	$a=0;

	foreach (@edit_member) {
		@edit_array = split(/\|/,$edit_member[$a]);
		$name = $in{'name'};
		$name =~ tr/[A-Z]/[a-z]/;
		if (($name eq $edit_array[4]) && ($in{'password'} eq $edit_array[11])) {
			$valid++;

			if ($in{'action'} eq "process") {
				$in{'password'} = $in{'new_password'};
				$edit_array[4]=$name;
				$edit_array[5]=$in{'email'};
				$edit_array[6]=$in{'site_name'};
				$edit_array[7]=$in{'site_description'};
				$edit_array[8]=$in{'site_url'};
				$edit_array[9]=$in{'key'};
				$edit_array[10]=$in{'uname'};
				$edit_array[11]=$in{'new_password'};
				$edit_array[12]=$in{'cloak'};
				$edit_array[13]=$in{'path'};
				&update_account;
			}
			if ($edit_array[12] == 1) {
				$checked="CHECKED";
			}
			else {
				$checked="";
			}
			if ($edit_array[13] == 1) {
				$pathfo="CHECKED";
			}
			else {
				$pathfo="";
			}

			print "Content-type:text/html\n\n";
			$html_file="htm/update.htm";
			open (html_insert,"$html_file");
			@html_insert = <html_insert>;
			close (html_insert);

			foreach $line (@html_insert) {
				if ($line !~ /<DATA>/) {
					print $line;
				}
				else {
					($dummy,$remain)=split(/<DATA>/,$line);
					print $dummy;

print <<EOF;
<form action="$form_action" method="post">
    <div align="center"><center><table dir="ltr" border="$table_border_size"
    cellpadding="4" cellspacing="2" width="600">
        <tr>
            <td bgcolor="$table_heading_color" align="center" colspan="2"><font size="2" color="$table_text_color" face="$table_font"><b>Edit Account</b></font>
            </td>
        </tr>
EOF

					if ($in{'action'} eq "process") {
print <<EOF;
        <tr>
            <td bgcolor="#C0C0C0" align="center" colspan="2"><font size="2" color="#FF0000" face="$table_font">Account Updated...</font>
            </td>
        </tr>
EOF
					}

print <<EOF;
        <tr>
            <td valign="middle" width="30%" nowrap><p align="right"><font
            size="2" color="$cell_text_color" face="$table_font">Domain
            Name </font></p>
            </td>
            <td valign="middle" width="65%"><p><font color="#ffffff" size="2">$edit_array[4].indian-magic.net
            <font></p>
            </td>
        </tr>
        <tr>
            <td valign="middle" width="30%"><p align="right"><font
            size="2" color="$cell_text_color" face="$table_font">Email
            Address </font></p>
            </td>
            <td valign="middle" width="65%"><p><font color="#000000"><input
            type="text" size="30" name="email" value="$edit_array[5]"></font></p>
            </td>
        </tr>
        <tr>
            <td valign="middle" width="30%"><p align="right"><font
            size="2" color="$cell_text_color" face="$table_font">Your Name</font></p>
            </td>
            <td valign="middle" width="65%"><p><font color="#000000"><input
            type="text" size="30" name="uname" value="$edit_array[10]"></font></p>
            </td>
        </tr>
        <tr>
            <td valign="middle" width="30%"><p align="right"><font
            size="2" color="$cell_text_color" face="$table_font">Site
            Name </font></p>
            </td>
            <td valign="middle" width="65%"><p><font color="#000000"><input
            type="text" size="30" name="site_name" value="$edit_array[6]"></font></p>
            </td>
        </tr>
        <tr>
            <td valign="middle" width="30%"><p align="right"><font
            size="2" color="$cell_text_color" face="$table_font">Site
            URL </font></p>
            </td>
            <td valign="middle" width="65%"><p><font color="#000000"><input
            type="text" size="30" name="site_url" value="$edit_array[8]"></font></p>
            </td>
        </tr>
        <tr>
            <td valign="middle" width="30%"><p align="right"><font
            size="2" color="$cell_text_color" face="$table_font">Prefer Cloaking
            </font></p>
            </td>
            <td valign="middle" width="65%"><p><font color="#000000"><input
            type="checkbox" name="cloak" value=1 $checked></font></p>
            </td>
        </tr>
        <tr>
            <td valign="middle" width="30%"><p align="right"><font
            size="2" color="$cell_text_color" face="$table_font">Prefer Path Forwarding
            </font></p>
            </td>
            <td valign="middle" width="65%"><p><font color="#000000"><input
            type="checkbox" name="path" value=1 $pathfo></font></p>
            </td>
        </tr>
        <tr>
            <td valign="middle" width="30%"><p align="right"><font
            size="2" color="$cell_text_color" face="$table_font">Site
            Description </font></p>
            </td>
            <td valign="middle" width="65%"><p><font color="#000000"><input
            type="text" size="30" name="site_description" value="$edit_array[7]"></font></p>
            </td>
        </tr>
        <tr>
            <td valign="middle" width="30%"><p align="right"><font
            size="2" color="$cell_text_color" face="$table_font">Search Engine Keywords
            </font></p>
            </td>
            <td valign="middle" width="65%"><p><font color="#000000"><input
            type="text" size="30" name="key" value="$edit_array[9]"></font></p>
            </td>
        </tr>
       <tr>
            <td valign="middle" width="30%"><p align="right"><font
            size="2" color="$cell_text_color" face="$table_font">Password </font></p>
            </td>
            <td valign="middle" width="65%"><p><font color="#000000"><input
            type="password" size="30" name="new_password" value="$edit_array[11]"></font></p>
            </td>
        </tr>
        <tr>
            <td valign="middle" colspan="2" width="100%"><p
            align="center">
            <input type="submit" name="B1" value="Submit">
            <input type="reset" name="B2" value="Reset">
            <input type="hidden" name="name" value="$in{'name'}">
            <input type="hidden" name="password" value="$in{'password'}">
            <input type="hidden" name="action" value="process">
            <input type="hidden" name="login" value="B1">

            </p>
            </td>
        </tr>
    </table>
    </center></div>
</form>
<p align="center"><a href="$base_url/$file_name" target="_top"><font size= "2" face="$table_font">Return to $site_name</font></a></p>
EOF
					print $remain;
				}
			}
			exit;
		}
		$a++;
	}

	if ($valid == 0) {
		$error_text = "You have entered an invalid account name or password.<br>";
		&error;
	}

	exit;
}

sub account_fpass {
	open (EDIT_MEMBER,"<$datafile");
	flock (EDIT_MEMBER,2); 
	@edit_member = <EDIT_MEMBER>;
	flock (EDIT_MEMBER,8);
	close (EDIT_MEMBER);
	$valid=0;
	$a=0;

	foreach (@edit_member) {
		@edit_array = split(/\|/,$edit_member[$a]);
		$name = $in{'name'};
		$name =~ tr/[A-Z]/[a-z]/;
		if ($name eq $edit_array[4]) {
			$valid++;
			open(MAIL,"|$mailprog -t");
print MAIL <<END;
To: $edit_array[5]
Bcc: $email_address
From: $email_address
Sender: $email_address
Subject: Your Password for $site_name - $scr_name
Content-type: text/plain; charset=us-ascii

Hi $edit_array[10],

Please find below your account name and password as requested:

Account Name: $edit_array[4]
Password: $edit_array[11]

Your domain can be accessed at : http://$name.$domain1 or http://$name.$domain2

To modify your account  please go to $cgi_url/manager.cgi?modify

For any assistance or support related queries go to http://forums.indian-magic.net/community/scripts/topics.pl?NodeID=48734&ClientID=40936 or email support\@indian-magic.net

END
			close (MAIL);

			print "Content-type:text/html\n\n";
			$html_file="htm/password.htm";
			open (html_insert,"$html_file");
			@html_insert = <html_insert>;
			close (html_insert);

			foreach $line (@html_insert) {
				print $line;
			}
			exit;
		}
		$a++;
	}

	if ($valid == 0) {
		$error_text = "You have entered an invalid account name.<br>";
		&error;
	}
	exit;
}