#!/usr/local/bin/perl

#
# generate a form to join FGnet
# Daniela Hall 03/06/2003
#

use File::Basename;

$| = 1;

use CGI;
use CGI::Carp qw(fatalsToBrowser);

require "join.pl";

$datadir = "/var/www/Prima/FGnet/members/";

$lockfile = "$datadir/lock";
$logfile = "$datadir/log";
$systemislocked = 0;  
$administrator = "Daniela.Hall\@inrialpes.fr";


$q = new CGI;

print $q->header(-type=>'text/html');

if ($q->param('memberform')) {
    &process_member_form($q);
    &mail_member_form($q);
    &update_member_list($q);
    &send_file("$datadir/success.html");
}
else {
    &show_member_form($q);
}