#!/usr/bin/perl
#
# Perl CGI script for creating a new author
#

# get some standard routines
require "../../etc/pasha_conf.pl";
require "${Pasha_dir}/lib/lib_cgi.pl";
require "${Pasha_dir}/lib/lib_pasha.pl";

# see what data was sent to us
%Cgi = %{&get_cgi_input()};

# save update of review
if ($Cgi{option} =~ /^Save/) { &make_changes( { %Cgi }); }

# print the top of the HTML page
&print_head();

# basic registration information
&print_author_registration();

# print the bottom of the HTML page
&print_foot();


##
# Add new author in the authors file and add password for htaccess
##
sub make_changes {
my(%cgi) = %{$_[0]};
my($line, $new_id);

# sanity check
for ("fullname", "email", "password", "affiliation", "phone") {
	unless ($cgi{$_} =~ /\w/) {
		&error("There was a problem with the $_ field. Please try again.");
	}
}

# email address in use already?
if (&parse_authors($cgi{email}) > 0) {
	&error("!! Email address already registered. Please contact the conference organizers.");
}

# each author needs his/her own unique ID (time + PID based);
$new_id = $Time . substr($$, -2, 2);

# prepare new information
$line = join("\t", $new_id, $cgi{fullname}, $cgi{email}, $cgi{password}, $cgi{affiliation}, $cgi{phone});

# write new entry to authors file
&update_db_file("authors", "append", $line);

# prepare new password entry
$line = $cgi{email} . ":" . crypt($cgi{password}, 29);

# write new entry to passwd.authors
&update_db_file("passwd.authors", "append", $line);

# feedback
&print_head("Thanks for registering!");

print <<END;

Thanks for registering for ${Conference_nym}!
<p>
You can now <a href="../author/index.cgi">submit your work</a> for review.
<p>
<font color="blue">
Note: In the logon box, <b>enter your email address as the user name</b>.
</font>
<p>
END

&print_foot();

} # end &make_changes


##
# Simple box with basic information for a new author
##
sub print_author_registration {

print <<END;
<br>

<SCRIPT LANGUAGE="JavaScript1.1">
function CheckFields() {
	if (form.fullname.value.length == 0) { alert("You need to enter your name!"); return false; }
	if (form.email.value.length == 0) { alert("You need to enter your email address!"); return false; }
	if (form.password.value.length == 0) { alert("You need to enter a password!"); return false; }
	if (form.affiliation.value.length == 0) { alert("You need to enter an affiliation!"); return false; }
	if (form.phone.value.length == 0) { alert("You need to enter a phone number!"); return false; }
                
	// all is well
	return true;
}
</SCRIPT>

<form method="post" action="index.cgi" name="form">
<input type="hidden" name="option" value="Save">

<table width="95%" align="center" bgcolor="#6767ff" cellpadding="3" cellspacing="2">
<tr>
<th colspan="3"> <font color="white"> Register to submit for ${Conference_nym} </font> </th>
</tr>
<tr> 
<td bgcolor="#dddddd" align="center"> &nbsp; Your name (last name, first name): <br>
<input type="text" name="fullname" size="40" maxlength="60"> </td>
<td rowspan="5" bgcolor="#eeeeee" width="300"> 
<b> Instructions: </b>
<br>

Please enter your name, affiliation, email address and phone numbe so the
conference organizers can get in touch with you, e.g. to request additional
information or to let you know your submission has been accepted. You may
also receive a message when you can look at the reviews for your submission.

<p>

The password can be something simple as long as you don't use it for any
other online system. You will be prompted for this password (as well as your
email address) when you want to add, update or delete your submissions.

<p>

Note that this information will <i>not</i> be made available to the
conference reviewers.
<p>

</td>
</tr>
<tr> 
<td bgcolor="#ffffff" align="center"> &nbsp; Your affiliation (institution, department): <br>
<input type="text" name="affiliation" size="40" maxlength="60"> </td>
</tr>
<tr> 
<td bgcolor="#dddddd" align="center"> &nbsp; Your email address: <br>
<input type="text" name="email" size="40" maxlength="60"> </td>
</tr>
<tr> 
<td bgcolor="#ffffff" align="center"> &nbsp; Your password: <br>
<input type="text" name="password" size="8" maxlength="8"> </td>
</tr>
<tr> 
<td bgcolor="#dddddd" align="center"> &nbsp; Your phone number: <br>
<input type="text" name="phone" size="25" maxlength="25"> </td>
</tr>
<tr>
<th colspan="3" bgcolor="#ababff"> <input type=submit value="Register" onClick="return CheckFields()"> </th>
</tr>
</table>
END

} # end &print_author_registration()