#!/usr/bin/perl # whatifreg.pl - WHATIF registration form # 03082001 push(@INC, "/home/whatif/httpd/cgi-bin"); require 'cgi-lib.pl'; &ReadParse; print &PrintHeader; # Definieer de mail parameteres # $subject = "WHATIF aanvraag"; #$emailto = "maarten\@cmbi.ru.nl"; $emailto = "vriend\@cmbi.ru.nl"; $DASHLIN = "--------------------------------"; # Lees de waarde van de variabelen in # $title = $in{'title'}; $firstname = $in{'firstname'}; $initials = $in{'initials'}; $surname = $in{'surname'}; $telephone = $in{'telephone'}; $fax = $in{'fax'}; $email = $in{'email'}; $emailnot = $in{'emailnotify'}; $institute = $in{'institute'}; $workgroup = $in{'workgroup'}; $contact = $in{'contact'}; $street = $in{'street'}; $zipcode = $in{'zipcode'}; $city = $in{'city'}; $account = $in{'account'}; $account_nr= $in{'account_nr'}; $conf = $in{'conf'}; # Kompleteer het mail-subject # $subject = $subject . "[$institute $surname]"; # Test of de variabelen ingevuld zijn if ( $initials eq "" ) {$initials_err = 1;} if ( $firstname eq "" ) {$firstname_err = 1;} if ( $surname eq "" ) {$surname_err = 1;} if ( $telephone eq "" ) {$telephone_err = 1;} if ( $email eq "" ) {$email_err = 1;} if ( $institute eq "" ) {$institute_err = 1;} if ( $workgroup eq "" ) {$workgroup_err = 1;} if ( $contact eq "" ) {$contact_err = 1;} if ( $street eq "" ) {$street_err = 1;} if ( $zipcode eq "" ) {$zipcode_err = 1;} if ( $city eq "" ) {$city_err = 1;} if ( $account eq "" ) {$account_err = 1;} if ( $account_nr eq "" ){$account_nr_err = 1;} $allempty = $initials_err + $firstname_err + $surname_err + $telephone_err + $email_err; $allempty = $allempty + $institute_err + $workgroup_err + $contact_err; $allempty = $allempty + $street_err + $zipcode_err + $city_err; $allempty = $allempty + $account_err + $account_nr_err + $package_err; $allempty = $allempty + $title_err + $fax_err; # test if the form is filled otherwise show the form if ($allempty eq 13) { &displayform; } else { # Test of de variabelen "verboden" karakters bevatten. # if (index($title,"&") >= 0 || index($title,"+") >= 0 ) { $title_err = 2; } if (index($initials,"&") >= 0 || index($initials,"+") >= 0 ) { $initials_err = 2; } if (index($firstname,"&") >= 0 || index($firstname,"+") >= 0 ) { $firstname_err = 2; } if (index($surname,"&") >= 0 || index($surname,"+") >= 0 ) { $surname_err = 2; } if (index($telephone,"&") >= 0 || index($telephone,"+") >= 0 ) { $telephone_err = 2; } if (index($fax,"&") >= 0 || index($fax,"+") >= 0 ) { $fax_err = 2; } if (index($email,"&") >= 0 || index($email,"+") >= 0 ) { $email_err = 2; } if (index($email,"@") < 0 ) { $email_err = 3; } if (index($institute,"&") >= 0 || index($institute,"+") >= 0 ) { $institute_err = 2; } if (index($workgroup,"&") >= 0 || index($workgroup,"+") >= 0 ) { $workgroup_err = 2; } if (index($contact,"&") >= 0 || index($contact,"+") >= 0 ) { $contact_err = 2; } if (index($street,"&") >= 0 || index($street,"+") >= 0 ) { $street_err = 2; } if (index($zipcode,"&") >= 0 || index($zipcode,"+") >= 0 ) { $zipcode_err = 2; } if (index($city,"&") >= 0 || index($city,"+") >= 0 ) { $city_err = 2; } if (index($account,"&") >= 0 || index($account,"+") >= 0 ) { $account_err = 2; } $tot_err = $initials_err + $firstname_err + $surname_err + $telephone_err + $email_err; $tot_err = $tot_err + $institute_err + $workgroup_err + $contact_err; $tot_err = $tot_err + $street_err + $zipcode_err + $city_err; $tot_err = $tot_err + $account_err + $package_err; $tot_err = $tot_err + $title_err + $fax_err; if ( $tot_err != 0 ) { print "Error"; print ""; print "

An error has occured, the form cannot be processed.

"; print "You haven't completed the form. Items are missing or contain illegal characters:"; print "

The Initials are missing."; } if ( $initials_err == 2 ) { print "
The Initials contain illegal characters."; } } if ( $firstname_err != 0 ) { if ( $firstname_err == 1 ) { print "
The First name is missing."; } if ( $firstname_err == 2 ) { print "
The First name contains illegal characters."; } } if ( $surname_err != 0 ) { if ( $surname_err == 1 ) { print "
The Surname is missing."; } if ( $surname_err == 2 ) { print "
The Surname contains illegal characters."; } } if ( $telephone_err != 0 ) { if ( $telephone_err == 1 ) { print "
The Telephone-number is missing."; } if ( $telephone_err == 2 ) { print "
The Telephone-number contains illegal characters."; } } if ( $email_err != 0 ) { if ( $email_err == 1 ) { print "
The Email-address is missing."; } if ( $email_err == 2 ) { print "
The Email-address contains illegal characters."; } if ( $email_err == 3) { print "
The Email-address isn't valid"; } } if ( $institute_err != 0 ) { if ( $institute_err == 1 ) { print "
The Institute is missing."; } if ( $institute_err == 2 ) { print "
The Institute contains illegal characters."; } } if ( $workgroup_err != 0 ) { if ( $workgroup_err == 1 ) { print "
The Workgroup is missing."; } if ( $workgroup_err == 2 ) { print "
The Workgroup contains illegal characters."; } } if ( $contact_err != 0 ) { if ( $contact_err == 1 ) { print "
The Workgroup leader is missing."; } if ( $contact_err == 2 ) { print "
The Workgroup leader contains illegal characters."; } } if ( $street_err != 0 ) { if ( $street_err == 1 ) { print "
The Street is missing."; } if ( $street_err == 2 ) { print "
The Street contains illegal characters."; } } if ( $zipcode_err != 0 ) { if ( $zipcode_err == 1 ) { print "
The Zipcode is missing."; } if ( $zipcode_err == 2 ) { print "
The Zipcode contains illegal characters."; } } if ( $city_err != 0 ) { if ( $city_err == 1 ) { print "
The City is missing."; } if ( $city_err == 2 ) { print "
The City contains illegal characters."; } } if ( $account_err != 0 ) { if ( $account_err == 1 ) { print "
The Preferred-account is missing."; } if ( $account_err == 2 ) { print "
The Preferred-account contains illegal characters."; } } if ( $account_nr_err != 0 ) { if ( $account_nr_err == 1 ) { print "
The WHATIF user number is not filled in."; } } if ( $title_err == 2 ) { print "
The Title contains illegal characters."; } if ( $fax_err == 2 ) { print "
The Fax-number contains illegal characters."; } print "

"; print "Please, use the Back-button of your browser and fill in these fields."; print ""; }else { # Ga na van welke site de mail vandaan komt # $remotehost = $ENV{'REMOTE_HOST'}; # Bij onderstaande print-statement is de \n nodig om de source # vanuit Netscape zelf goed te kunnen bekijken # print "\n"; print "WHATIF registration\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

Preferred login:	$account
Title:	$title
Initials:	$initials
First name:	$firstname
Surname:	$surname
Street:	$street
Zipcode:	$zipcode
City:	$city
Telephone:	$telephone
Fax:	$fax
E-mail:	$email
Institute:	$institute
Workgroup:	$workgroup
Contact person:	$contact
WHATIF number:	$account_nr

\n"; $createaccount = "title=$title&firstname=$firstname&initials=$initials&surname=$surname&telephone=$telephone&fax=$fax&email=$email&emailnot=$emailnot&institute=$institute&workgroup=$workgroup&contact=$contact&street=$street&zipcode=$zipcode&city=$city&account=$account&account_nr=$account_nr"; $createaccount =~ s/ /\+/g; $createaccount =~ s/&/ /g; #$conf =1;### Debug if ($conf == 0){ print "

Please check your registration information above. To edit the fields please press the BACK button.
\n"; print "By pressing the CONFIRM buttom, I confirm to have read the WHATIF legal information/end-user agreement,"; print " and acknowledge to adhere to the restrictions and obligations set forth within.

"; # Vraag om bevestiging print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; } else { print "Your registration form will be processed.
\n"; print "The account and password will be send to you by E-mail.
\n"; # ga na of de .whatif_reg directory bestaat, zo niet maak deze # $direxists = chdir("/tmp/.whatifreg"); if ( $direxists == 0 ) { system ( "mkdir /tmp/.whatifreg" ); system ( "chmod 750 /tmp/.whatifreg" ); } $TMP = "/tmp/.whatifreg/whatifreg_$$"; # Save the data in a file for later processing... # open (TMPFILE, ">$TMP"); print TMPFILE "$DASHLIN" ."". "$DASHLIN\n"; print TMPFILE "Preferred login: $account\n"; print TMPFILE "WHATIF usernr: $account_nr\n"; # print TMPFILE "Title : $title\n"; print TMPFILE "Initials : $initials\n"; print TMPFILE "First name : $firstname\n"; print TMPFILE "Surname : $surname\n"; print TMPFILE "Street : $street\n"; print TMPFILE "Zipcode : $zipcode\n"; print TMPFILE "City : $city\n\n"; print TMPFILE "Telephone : $telephone\n"; print TMPFILE "Fax : $fax\n"; print TMPFILE "E-mail : $email\n\n"; print TMPFILE "E-mail notification: $emailnot\n"; # print TMPFILE "Institute : $institute\n"; print TMPFILE "Workgroup : $workgroup\n"; print TMPFILE "Contact person : $contact\n\n"; # print TMPFILE "Remote host : $remotehost\n\n"; # print TMPFILE "---run this line to --CREATE ACCOUNT---------------------\n"; print TMPFILE "/home/whatif/httpd/htdocs/whatif/5.0/adm/adduser.pl $createaccount\n"; print TMPFILE "---------------------------------------------------------\n"; print TMPFILE "$DASHLIN" ."". "$DASHLIN\n"; close TMPFILE; system ("mail -s \"$subject\" $emailto < $TMP"); unlink $TMPFILE; } } } sub displayform { print "\n"; print "\n"; print "\n"; print "WHATIF Registration form\n"; print "\n"; print "\n"; print "\n"; #print "\n"; #print "\n"; print "

WHATIF Registration form

\n"; print "The WHAT IF update is only accessible to valid WHAT IF users.
\n"; print "The user validity check is based on the combination institute - user number.
\n"; print "Forms without a valid user number will not be processed!
\n"; print "

Please read the legal information/end-user agreement<\/A>.<\/H3>\n"; print "If requested, you will receive Email notification of future WHAT IF updates.
\n"; print "\n"; print "
Back to the CMBI homepage
\n"; print "\n"; print "\n"; print "Questions? E-Mail us\n"; print "
\n"; print "\n"; #print "\n"; print "\n"; print "
\n"; #print "\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; print "\n"; print "\n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print " "; print "\n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "\n"; print "
User of the account
Title Initials\n"; print "
First name
Surname
Street^*
Postcode^* City^\n"; print "
Telephone^ Fax^\n"; print "
E-mail^ (*: at the institute)
\n"; print " \n"; print " \ E-mail notification on updates
\
Affiliation
Institute
Workgroup
Workgroup leader
\
Account information
Preferred login name
WHATIF user number (Obligatory info! See your WHATIF bill for this)
\
\ \ \ \ \ \ \ \n"; print " \ \ \ \ \
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
your registration request to the CMBI, or
all fields and start again.
\n"; print "
\n"; print "\n"; print "\n"; } #--- einde programma ---

User of the account
Title		Initials\n"; print "
First name
Surname
Street^*
Postcode^*		City^*\n"; print "
Telephone^*			Fax^*\n"; print "
E-mail^*				(*: at the institute)
\n"; print "	\n"; print " \ E-mail notification on updates
\
Affiliation
Institute
Workgroup
Workgroup leader
\
Account information
Preferred login name
WHATIF user number			(Obligatory info! See your WHATIF bill for this)
\
		\ \ \ \ \ \ \ \n"; print " \ \ \ \ \

	your registration request to the CMBI, or
	all fields and start again.