EOF } sub checkNames { $CN =~ s/\n/ /g;$CN =~ s/\r/ /g;$CN =~ s/\~//g;$CN =~ s///g; $CN =~ s/\^//g;$CN =~ s/$/ /g;$CN =~ s/$/ /g;$CN =~ s/\{/ /g;$CN =~ s/\}/ /g;$CN =~ s/\[//g; $CN =~ s/\]//g;$CN =~ s/\\//g;$CN =~ s/\+//g;$CN =~ s/%//g;$CN =~ s/\|//g; $CN =~ s/\0//g;$CN =~ s/\$//g;$CN =~ s/\*//g;$CN =~ s/"//g; $CN =~ s/( )+/ /g; } sub signUp { print < Everhot Inc. - Sign Up EOF &start_html_FP; print <Sign Up

EOD print <To open an account, become a registered member, reseller or distributor of Everhot Inc. products, please follow the steps below:

1. Download or open a Credit Application Form (PDF file)
(You can also request the Form to be mailed or faxed to you by calling the toll-free number in contact information page).

2. Print the Application.

3. Complete the Application Form.

4. Fax the Form to the number provided on top of the Application together with a signed copy of Reseller Certificate.

The processing time is usually 3-5 business days and may vary depending on wether any additional information is required from your company.

EOF print "

Request a Credit Application by Fax

\n"; print <

Name		*
Company		*
Contact Phone Number		*
Fax Number		*
E-mail Address		*

EOF &end_html_FP; } sub sendApplication { $errorNumber = 0; $name = $FORM{name}; $company = $FORM{company}; $phone = $FORM{phone}; $fax = $FORM{fax}; $email = $FORM{email}; $CN = $name;&checkNames;$name = $CN; $CN = $company;&checkNames;$company = $CN; $CN = $phone;&checkNames;$phone = $CN; $CN = $fax;&checkNames;$fax = $CN; $CN = $email;&checkNames;$email = $CN; if (length($name) > 40 or length($company) > 40 or length($email) > 40 or length($phone) > 20 or length($fax) > 20) { $errorNumber = 6; } if ($name and $company and $email and $phone and $fax) { }else{ $errorNumber = 2; } if ($name eq " " or $company eq " " or $email eq " " or $phone eq " " or $fax eq " ") { $errorNumber = 2; } unless ($email =~ /^[\w\d][\w\d\,\.\-]*\@([\w\d\-]+\.)+([a-zA-Z]+)$/){ $email = $email; $errorNumber = 9; } open (UDATA, "<$DB_DIR/evhUserdata.db") or die "Could not open file"; @UDATA = ; close(UDATA); $timeLocal = time; $timeLocalFR = time + $timeOut; foreach $line (@UDATA) { @myData = split(/\|\|/, $line); if ($myData[6] eq $ip_address and $timeLocal < $myData[7]){ $errorNumber = 10; } if ($email eq $myData[2]) { $errorNumber = 12; } } if ($errorNumber eq 0) { open (FILE,"+<$DB_DIR/evhUid.db") or die "Could not open file"; flock(FILE, LOCK_EX); @count = ; truncate(FILE, 0); seek(FILE, 0, 0); $user_id = @count[0] + 1; @cont = $user_id; print FILE @cont; flock(FILE, LOCK_UN); close (FILE); $newline = "$company||$name||$email||$user_id||$phone||$fax||$ip_address||$timeLocalFR||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0\n"; open (DAT,"+<$DB_DIR/evhUserdata.db") or die "Could not open file"; flock(DAT, LOCK_EX); @array = ; unshift @array, $newline; seek(DAT, 0, 0); truncate(DAT, 0); print DAT @array; flock(DAT, LOCK_UN); close(DAT); $from_name = $name; $from_mail = $email; $to_mail=$my_mail_to; $to_name='Everhot, Inc.'; $subject='Request a Credit Application Form by Fax'; $message = < From: "$from_name" <$from_mail> Subject: $subject Content-Type: text/html; charset=iso-8859-1 At $Date_ by user $name (IP-address - $ip_address) was sended request for Credit Application Form

Date $Date_	Phone $phone
Customer $name	Fax $fax
Company $company	E-mail $email
Please send me the Credit Application Form by Fax. Best Wishes, $name Dear Webmaster, You can view profile of this user and set password here

END open (MAIL, "| $mailprog -f $from_mail $to_mail"); print MAIL $message; close MAIL; print < Thank you! EOF &start_html_FP; print "

Thank you!

\n"; print "

Your request has been sent.

We'll get back to you shortly.

"; print "Go back\n"; &end_html_FP; }else{ &errorNumber; } } sub checkLogin { $name = $FORM{username}; $pass = $FORM{password}; $estLogin = 0; &readData; foreach $line(@UDATA) { @myData = split(/\|\|/, $line); if ($name eq $myData[2]) { if ($pass eq $myData[8]) { $estLogin++; $userID = $myData[3]; } } } if ($estLogin eq 0) { $errorNumber = 8; &errorNumber; }else{ &set_sess_id; $nameFP = $name; $uName = $name; use CGI qw/:standard/; $the_cookie = cookie(-name=>'HOTINCO', -value => [$nameFP,$SESS_ID]); print header(-cookie=>$the_cookie); open (NUDATA, "+<$DB_DIR/evhUserdata.db") or die "Could not open file"; @NUDATA = ; flock(NUDATA, LOCK_EX); foreach $line(@NUDATA){ @myData = split(/\|\|/, $line); if($myData[3] eq $userID){ $line = "$myData[0]||$myData[1]||$myData[2]||$myData[3]||$myData[4]||$myData[5]||$myData[6]||$myData[7]||$myData[8]||$myData[9]||$SESS_ID||$myData[11]||$myData[12]||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0||0\n"; }else{ $line = join("\|\|",@myData); } } seek(NUDATA, 0, 0); truncate(NUDATA, 0); print NUDATA @NUDATA; flock(NUDATA, LOCK_UN); close(NUDATA); print "Please, waiting for a second...\n"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; } } sub showForm { #&PCT; %zoo = cookie('HOTINCO'); if (%zoo) { foreach (sort keys %zoo) { $first = $_; $second = $zoo{$_}; } &readData; $loginEst = 0; foreach $line(@UDATA) { @myData = split(/\|\|/, $line); if ($myData[2] eq $first) { if($myData[10] eq $second) { $loginEst++; $uCompany = $myData[0]; $uEmail = $myData[2]; } } } if ($loginEst eq 0) { $errorNumber = 14; &errorNumber; }else{ &showCatalogForm; } } else { $errorNumber = 7; &errorNumber; } } sub showCatalogForm { &PCT; print < Everhot Inc. - Place an Order EOF open (HEAD, "<$DB_DIR/headLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; open (BODY, "<$DB_DIR/bodyLogin.db"); @BODY = ; close(BODY); foreach $line(@BODY) { if ($line =~ //) { $line =~ s//Hello, $uCompany<\/b><\/td>/g; } print "$line"; } print "
Place an Order
\n"; print "
\n"; print <Download Order Form (PDF file)
EOF print ""; } $from_name = 'Robot'; $from_mail = $my_mail_from; $to_mail=$my_mail_to; $to_name='Everhot, Inc.'; $subject='Order from Everhotinc.Com'; $message = < From: "$from_name" <$from_mail> Subject: $subject Content-Type: text/html; charset=iso-8859-1 At $Date_ by $uCompany (IP-address - $ip_address) an order was placed

Place an Order by Stock#

Order More

Stock# Qty

Stock# Qty

Stock# Qty

Stock# Qty

Stock# Qty

Place an Order by Item Description
\n"; &readData; print "
"; print "\n"; print ""; print "\n"; print ""; print "\n"; print ""; print "\n"; print ""; print "\n"; print "\n"; print ""; print "
PEX Tubing
\n"; print "\n"; foreach $line(@CATDATA) { @myCatData = split(/\|\|/, $line); if ($myCatData[2] eq "PEX Tubing") { $pxt++; print "\n"; } } print "
Item Description Qty
$myCatData[1]
Fittings
\n"; print "\n"; foreach $line(@CATDATA) { @myCatData = split(/\|\|/, $line); if ($myCatData[2] eq "Fittings") { $pxt++; print "\n"; } } print "
Item Description Qty
$myCatData[1]
Tools
\n"; print "\n"; foreach $line(@CATDATA) { @myCatData = split(/\|\|/, $line); if ($myCatData[2] eq "Tools") { $pxt++; print "\n"; } } print "
Item Description Qty
$myCatData[1]
Accessories
\n"; print "\n"; foreach $line(@CATDATA) { @myCatData = split(/\|\|/, $line); if ($myCatData[2] eq "Accessories") { $pxt++; print "\n"; } } print "
Item Description Qty
$myCatData[1]
\n"; open (HEAD, "<$DB_DIR/footLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; } sub sendOrderByStockNumber { $numB = 0; @stockNumberList= (); @qtyList = (); $stockN = 0; $qtyN = 0; @dataString = split(/&/, $bufer); foreach $para(@dataString) { ($namo, $valo) = split(/=/, $para); if ($valo ne "" and $namo ne "action"){ $numB++; if ($numB eq 2) { $numB = 0; } if($numB eq 1) { if ($valo =~ /\w/){ @stockNumberList[$stockN] = $valo; $stockN++; } } if($numB eq 0) { if ($valo !~ /[^0-9]/ ){ @qtyList[$qtyN] = $valo; $qtyN++; } } } } %zoo = cookie('HOTINCO'); if (%zoo) { foreach (sort keys %zoo) { $first = $_; $second = $zoo{$_}; } &readData; $loginEst = 0; foreach $line(@UDATA) { @myData = split(/\|\|/, $line); if ($myData[2] eq $first) { if($myData[10] eq $second) { $loginEst++; $uCompany = $myData[0]; $uEmail = $myData[2]; } } } if ($loginEst eq 0) { $errorNumber = 14; &errorNumber; }else{ $qtyGoods3 = @stockNumberList; $qtyGoods2 = @qtyList; if ($qtyGoods3 eq 0 or $qtyGoods2 eq 0) { $errorNumber = 15; &errorNumber; } &PCT; print < Everhot Inc. - Confirm Order EOF open (HEAD, "<$DB_DIR/headLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; open (BODY, "<$DB_DIR/bodyLogin.db"); @BODY = ; close(BODY); foreach $line(@BODY) { if ($line =~ //) { $line =~ s//
Hello, $uCompany<\/b><\/td>/g; } print "$line"; } print "
Confirm Order
\n"; print "
\n"; print < EOF $qtyGoods = @stockNumberList; for ($t=0;$t<=$qtyGoods-1;$t++) { if ($qtyList[$t] ne "" and $stockNumberList[$t] ne "") { print "\n"; } } print ""; print "
Stock# $stockNumberList[$t] Qty $qtyList[$t]

\n"; open (HEAD, "<$DB_DIR/footLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; } } else { $errorNumber = 7; &errorNumber; } } sub sendBack { $numB = 0; @stockNumberList= (); @qtyList = (); $stockN = 0; $qtyN = 0; @dataString = split(/&/, $bufer); foreach $para(@dataString) { ($name, $value) = split(/=/, $para); if ($value ne "" and $name ne "action"){ $numB++; if ($numB eq 2) { $numB = 0; } if($numB eq 1) { if ($value =~ /\w/){ @stockNumberList[$stockN] = $value; $stockN++; } } if($numB eq 0) { if ($value !~ /[^0-9]/ ){ @qtyList[$qtyN] = $value; $qtyN++; } } } } %zoo = cookie('HOTINCO'); if (%zoo) { foreach (sort keys %zoo) { $first = $_; $second = $zoo{$_}; } &readData; $loginEst = 0; foreach $line(@UDATA) { @myData = split(/\|\|/, $line); if ($myData[2] eq $first) { if($myData[10] eq $second) { $loginEst++; $uCompany = $myData[0]; $uEmail = $myData[2]; } } } if ($loginEst eq 0) { $errorNumber = 14; &errorNumber; }else{ $qtyGoods3 = @stockNumberList; $qtyGoods2 = @qtyList; if ($qtyGoods3 eq 0 or $qtyGoods2 eq 0) { $errorNumber = 15; &errorNumber; } &PCT; print < Everhot Inc. - Place an Order EOF open (HEAD, "<$DB_DIR/headLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; open (BODY, "<$DB_DIR/bodyLogin.db"); @BODY = ; close(BODY); foreach $line(@BODY) { if ($line =~ //) { $line =~ s//
Hello, $uCompany<\/b><\/td>/g; } print "$line"; } print "
Place an Order
\n"; print "
\n"; print <Download Order Form (PDF file)

Place an Order by Stock#

Order More

EOF $qtyGoods = @stockNumberList; for ($t=0;$t<=$qtyGoods-1;$t++) { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print <

Stock# Qty

EOD open (HEAD, "<$DB_DIR/footLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; } } else { $errorNumber = 7; &errorNumber; } } sub confirmOrder { $numB = 0; @stockNumberList= (); @qtyList = (); $stockN = 0; $qtyN = 0; @dataString = split(/&/, $bufer); foreach $para(@dataString) { ($name, $value) = split(/=/, $para); $numB++; if ($value ne "" and $name ne "action"){ if ($numB eq 2) { $numB = 0; } if($numB eq 1) { if ($value =~ /\w/){ @stockNumberList[$stockN] = $value; $stockN++; } } if($numB eq 0) { if ($value !~ /[^0-9]/ ){ @qtyList[$qtyN] = $value; $qtyN++; } } } } %zoo = cookie('HOTINCO'); if (%zoo) { foreach (sort keys %zoo) { $first = $_; $second = $zoo{$_}; } &readData; $loginEst = 0; foreach $line(@UDATA) { @myData = split(/\|\|/, $line); if ($myData[2] eq $first) { if($myData[10] eq $second) { $loginEst++; $uCompany = $myData[0]; $uName = $myData[1]; $uEmail = $myData[2]; $uPhone = $myData[4]; $uFax = $myData[5]; } } } if ($loginEst eq 0) { $errorNumber = 14; &errorNumber; }else{ $qtyGoods3 = @stockNumberList; $qtyGoods2 = @qtyList; if ($qtyGoods3 eq 0 or $qtyGoods2 eq 0) { $errorNumber = 15; &errorNumber; } $tableText = ""; for($g=0;$g<=$qtyGoods3-1;$g++) { $tableText = "$tableText
Stock# $stockNumberList[$g] Qty $qtyList[$g]

Date
$Date_ Phone
$uPhone

Customer
$uName, $uCompany Fax
$uFax

Customer's Order $tableText

END open (MAIL, "| $mailprog -f $from_mail $to_mail"); print MAIL $message; close MAIL; &PCT; print < Everhot Inc. - Thank you! EOF open (HEAD, "<$DB_DIR/headLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; open (BODY, "<$DB_DIR/bodyLogin.db"); @BODY = ; close(BODY); foreach $line(@BODY) { if ($line =~ //) { $line =~ s//Hello, $uCompany<\/b><\/td>/g; } print "$line"; } print "
Thank you!
\n"; print "
\n"; print <Download Order Form (PDF file)

Your order has been placed.

We'll get back to you shortly.

Go Back

EOF open (HEAD, "<$DB_DIR/footLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; } } else { $errorNumber = 7; &errorNumber; } } sub confirmSendOrderByID { $numB = 0; @stockNumberList= (); @qtyList = (); $stockN = 0; $qtyN = 0; @dataString = split(/&/, $bufer); &readData; foreach $line(@CATDATA) { @myCatData = split(/\|\|/, $line); $tempStock = $myCatData[0]; foreach $para(@dataString) { ($name, $value) = split(/=/, $para); $tempName = $name; $tempName =~ s/QTY_//ig; if ($tempName =~ /$tempStock/i and $value ne "") { @stockNumberList[$stockN] = $myCatData[0]; $stockN++; @qtyList[$qtyN] = $value; $qtyN++; } } } %zoo = cookie('HOTINCO'); if (%zoo) { foreach (sort keys %zoo) { $first = $_; $second = $zoo{$_}; } &readData; $loginEst = 0; foreach $line(@UDATA) { @myData = split(/\|\|/, $line); if ($myData[2] eq $first) { if($myData[10] eq $second) { $loginEst++; $uCompany = $myData[0]; $uEmail = $myData[2]; } } } if ($loginEst eq 0) { $errorNumber = 14; &errorNumber; }else{ $qtyGoods3 = @stockNumberList; $qtyGoods2 = @qtyList; if ($qtyGoods3 eq 0 or $qtyGoods2 eq 0) { $errorNumber = 15; &errorNumber; } &PCT; print < Everhot Inc. - Confirm Order EOF open (HEAD, "<$DB_DIR/headLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; open (BODY, "<$DB_DIR/bodyLogin.db"); @BODY = ; close(BODY); foreach $line(@BODY) { if ($line =~ //) { $line =~ s//Hello, $uCompany<\/b><\/td>/g; } print "$line"; } print "
Confirm Order
\n"; print "
\n"; print < EOF $qtyGoods = @stockNumberList; foreach $line (@CATDATA) { @myCatData = split(/\|\|/, $line); for ($h=0;$h<=$qtyGoods-1;$h++) { if ($myCatData[0] eq $stockNumberList[$h]) { $j++; print "\n"; } } } print ""; print "
Stock# $myCatData[0] $myCatData[1] Qty $qtyList[$h]

\n"; open (HEAD, "<$DB_DIR/footLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; } } else { $errorNumber = 7; &errorNumber; } } sub sendOrderByDesc { $numB = 0; @stockNumberList= (); @qtyList = (); $stockN = 0; $qtyN = 0; @dataString = split(/&/, $bufer); &readData; foreach $line(@CATDATA) { @myCatData = split(/\|\|/, $line); $tempStock = $myCatData[0]; foreach $para(@dataString) { ($name, $value) = split(/=/, $para); $tempName = $name; $tempName =~ s/QTY_//ig; if ($tempName =~ /$tempStock/i and $value ne "") { @stockNumberList[$stockN] = $myCatData[0]; $stockN++; @qtyList[$qtyN] = $value; $qtyN++; } } } %zoo = cookie('HOTINCO'); if (%zoo) { foreach (sort keys %zoo) { $first = $_; $second = $zoo{$_}; } &readData; $loginEst = 0; foreach $line(@UDATA) { @myData = split(/\|\|/, $line); if ($myData[2] eq $first) { if($myData[10] eq $second) { $loginEst++; $uCompany = $myData[0]; $uName = $myData[1]; $uEmail = $myData[2]; $uPhone = $myData[4]; $uFax = $myData[5]; } } } if ($loginEst eq 0) { $errorNumber = 14; &errorNumber; }else{ $qtyGoods3 = @stockNumberList; $qtyGoods2 = @qtyList; if ($qtyGoods3 eq 0 or $qtyGoods2 eq 0) { $errorNumber = 15; &errorNumber; } $tableText = ""; foreach $line(@CATDATA) { @myCatData = split(/\|\|/, $line); for($g=0;$g<=$qtyGoods3-1;$g++) { if ($myCatData[0] eq $stockNumberList[$g]) { $tableText = "$tableTextStock# $myCatData[0]$myCatData[1]Qty $qtyList[$g]"; } } } $from_name = 'Robot'; $from_mail = $my_mail_from; $to_mail=$my_mail_to; $to_name='Everhot, Inc.'; $subject='Order from Everhotinc.Com'; $message = < From: "$from_name" <$from_mail> Subject: $subject Content-Type: text/html; charset=iso-8859-1 At $Date_ by $uCompany (IP-address - $ip_address) an order was placed

Date
$Date_ Phone
$uPhone

Customer
$uName, $uCompany Fax
$uFax

Customer's Order $tableText

END open (MAIL, "| $mailprog -f $from_mail $to_mail"); print MAIL $message; close MAIL; &PCT; print < Everhot Inc. - Thank You! EOF open (HEAD, "<$DB_DIR/headLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; open (BODY, "<$DB_DIR/bodyLogin.db"); @BODY = ; close(BODY); foreach $line(@BODY) { if ($line =~ //) { $line =~ s//Hello, $uCompany<\/b><\/td>/g; } print "$line"; } print "
Thank you!
\n"; print "
\n"; print <Download Order Form (PDF file)

Your order has been placed.

We'll get back to you shortly.

Go Back

EOF open (HEAD, "<$DB_DIR/footLogin.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; } } else { $errorNumber = 7; &errorNumber; } } sub downloadFile { $file = $FORM{file}; %zoo = cookie('HOTINCO'); if (%zoo) { # make a table foreach (sort keys %zoo) { $first = $_; $second = $zoo{$_}; } &readData; $loginEst = 0; foreach $line(@UDATA) { @myData = split(/\|\|/, $line); if ($myData[2] eq $first) { if($myData[10] eq $second) { $loginEst++; $uCompany = $myData[0]; $uEmail = $myData[2]; } } } if ($loginEst eq 0) { $errorNumber = 14; &errorNumber; }else{ $t = "$SCR_DIR/$file"; print "Location:$t\n\n"; } } else { $errorNumber = 7; &errorNumber; } } sub set_sess_id { $a = int (789 + rand(999)); $b = int (456 + rand (999)); $c = int (123 + rand (999)); @letters = ('q','w','e','r','t','y','u','i','o','p','a','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m','Q','W','E','R','T','Y','U','I','O','P','A','S','D','F','G','H','J','K','L','Z','X','C','V','B','N','M'); $a1 = int (rand(52)); $b2 = int (rand(52)); $c3 = int (rand(52)); $SESS_ID = "$a$letters[$a1]$b$letters[$b2]$c$letters[$c3]$letters[$b2]"; } sub forgetPass { print < Everhot Inc. - Password Recovery System EOF &start_html_FP; print <Password Recovery System
EOD print "
\n"; print "\n"; print "\n"; print "\n"; print "
Enter your E-mail: *
\n"; print "
\n"; &end_html_FP; } sub remindPassword { $login = $FORM{login}; &readData; $estEmail = 0; foreach $line(@UDATA) { @myData = split(/\|\|/, $line); if ($myData[2] eq $login) { $estEmail++; $email = $myData[2]; $company = $myData[0]; $name = $myData[1]; $password = $myData[8]; } } if ($estEmail eq 0) { $errorNumber = 11; &errorNumber; }else{ $my_mail_to = $email; $my_mail_from = $my_mail_to; $from_name = "Everhot Inc."; $from_mail = $my_mail_from; $to_mail=$my_mail_to; $to_name="$company"; $subject="Your Account at Everhot Inc."; $message = < From: "$from_name" <$from_mail> Subject: $subject Content-Type: text/html; charset=iso-8859-1
Dear $name,

Your requested information is sent you by our automated password recovery system:

--------------------------------------------------------
Your account at Everhot Inc. Member's Section

Login: $email
Password: $password
--------------------------------------------------------

Please, store your password in a safe place for security purposes.

If you feel you received this message by mistake, or if you are not an Everhot Inc. customer, please forward this message back to us.

Thank you!

Best wishes, Everhot Inc.
END1 open (MAIL, "| $mailprog -f $from_mail $to_mail"); print MAIL $message; close MAIL; print < Check Your E-mail EOF &start_html_FP; print "
Check Your E-mail
\n"; print "
\n"; print "Your login and password was succesfully sended to $email.
Please, check your mailbox.

"; print "Go back\n"; &end_html_FP; } } sub logOut { use CGI qw/:standard/; $the_cookie = cookie(-name=>'HOTINCO', -value => [$nameFP,$SESS_ID], -expires => '-1h'); print header(-cookie=>$the_cookie); print "Please, waiting for a second...\n"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; } sub start_html_FP { open (HEAD, "<$DB_DIR/headContact.db"); @HEAD = ; close(HEAD); print "@HEAD\n"; } sub end_html_FP { open (FOOT, "<$DB_DIR/footContact.db"); @FOOT = ; close(FOOT); print "@FOOT\n"; } sub readData { open (UDATA, "<$DB_DIR/evhUserdata.db") or die "Could not open file"; @UDATA = ; close(UDATA); open (CATDATA, "<$DB_DIR/catalogData.db") or die "Could not open file"; @CATDATA = ; close(CATDATA); } sub errorNumber { &PCT; print < Error! EOF &start_html_FP; &sub_for_error; $error = $errorNumber; &error; &end_html_FP; exit; } sub error { if ($error eq 1) {print "Some of the fields contain unacceptable symbols.\n";} if ($error eq 2){print "Please, complete the required fields.\n";} if ($error eq 5){print "Couldn't identify the operation!\n";} if ($error eq 6){print "Some of the fields are too long.\n";} if ($error eq 9){print "Wrong e-mail address.\n";} if ($error eq 8){print "Login/Password is incorrect. Please, try again, or use our password recovery system.\n";} if ($error eq 10){print "Couldn't identify the operation!\n";} if($error eq 11) { print "We're really sorry. There is no such e-mail address at our database.

"; print "You can register once again."; } if ($error eq 14){print "You must login first!\n";} if ($error eq 7){print "Sorry, you must login first!\n";} if ($error eq 15){print "Please, check the form carefully! Some of the required fields is empty.\n";} if ($error eq 12){print "User with this e-mail is already registered. Please, enter different e-mail, try to Log-In or use our password recovery system.\n";} print "

Go back\n"; }