473,394 Members | 2,052 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

home > topics > perl > questions > apache error when interfacing html with perl

Join Bytes to post your question to a community of 473,394 software developers and data experts.

apache error when interfacing html with perl

236 100+
Hi All,

I got this apache errors(see section A1 and A2 below) when I used a html(see section b below) to activate acctman.pl(see section c below). Section D below is part of the configuration of section c.

Not sure where went wrong as the web page displayed internal server error.

Also, what is the error 543? and error 2114. Where to find the list of errors in websites as it is not the standard apache error. I could not find at all in internet, anything not set correctly or not defined? The cgi-bin direcfory in the script is proven correct and htdocs directory is also set correctly.

The 2 Perl scripts below checked to be good without syntax error using e.g. : perl -c acctman.pl command.


Great Thanks in advance,
Andrew


A1) Access log in apache
==================
127.0.0.1 - - [17/Oct/2008:00:09:41 -0700] "GET /amform.html HTTP/1.1" 200 2114
127.0.0.1 - - [17/Oct/2008:00:20:42 -0700] "POST /cgi-bin/acctman.pl HTTP/1.1" 500 543

A2) error log in apache
================
[Fri Oct 17 00:20:43 2008] [error] [client 127.0.0.1] Premature end of script headers: acctman.pl, referer: http://127.0.0.1/amform.html
[Fri Oct 17 00:20:43 2008] [error] [client 127.0.0.1] Can't locate c:/program files/apache software foundation/apache2.2/cgi-bin/config.pl in @INC (@INC contains: C:/perl/site/lib C:/perl/lib .) at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman.pl line 75.\r, referer: http://127.0.0.1/amform.html



B) html page
==========

Expand|Select|Wrap|Line Numbers
  1.  
  2. <!DOCTYPE HTML PUBLIC "-//SoftQuad//DTD HTML 3.2 + extensions for HoTMetaL PRO 3.0(U) 19961211//EN"
  3.  "hmpro3.dtd">
  4. <HTML>
  5. <HEAD>
  6. <TITLE></TITLE></HEAD>
  7. <BODY>
  8. <FORM ACTION="/cgi-bin/acctman.pl" METHOD="POST">
  9. <CENTER>
  10. <TABLE BORDER="0" WIDTH="400">
  11. <TR>
  12. <TD ALIGN="CENTER">
  13. <TABLE BORDER="0" CELLPADDING="5" BGCOLOR="#FF8000">
  14. <TR>
  15. <TD><INPUT TYPE="CHECKBOX" NAME="agree" VALUE="agree"></TD>
  16. <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>I agree to the Terms 
  17. and Conditions above.</B></FONT></TD></TR></TABLE><BR></TD></TR>
  18. <TR>
  19. <TD>
  20. <HR SIZE="2" NOSHADE="NOSHADE"></TD></TR>
  21. <TR>
  22. <TD ALIGN="CENTER">
  23. <TABLE BORDER="0" WIDTH="350" NOWRAP="NOWRAP">
  24. <TR>
  25. <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Customer Information</B></FONT><BR><FONT
  26. SIZE="-2" FACE="verdana, arial, helvetica" COLOR="#FF0000"><B>Fields marked 
  27. with an astriks<BR>are required input fields.</B></FONT><BR><BR></TD></TR>
  28. <TR>
  29. <TD><INPUT TYPE="TEXT" NAME="fname">
  30. <FONT SIZE="-1" FACE="verdana, arial, helvetica">First Name *</FONT></TD></TR>
  31. <TR>
  32. <TD><INPUT TYPE="TEXT" NAME="lname">
  33. <FONT SIZE="-1" FACE="verdana, arial, helvetica">Last Name *</FONT></TD></TR>
  34. <TR>
  35. <TD><INPUT TYPE="TEXT" NAME="email">
  36. <FONT SIZE="-1" FACE="verdana, arial, helvetica">E-Mail Address *</FONT></TD></TR></TABLE>
  37. <TABLE BORDER="0" WIDTH="350" NOWRAP="NOWRAP">
  38. <TR>
  39. <TD><BR><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Choose a User 
  40. Name</B></FONT><BR><INPUT TYPE="TEXT" NAME="username"> 
  41. <FONT SIZE="-1" FACE="verdana, arial, helvetica">User Name</FONT>  
  42. <FONT SIZE="-1" FACE="arial, helvetica"><BR><BR><B>Choose a Password</B></FONT><BR>
  43.  
  44. <INPUT TYPE="password" NAME="pwd">     
  45. <FONT SIZE="-1" FACE="verdana, arial, helvetica">Password</FONT><BR><INPUT
  46. TYPE="password" NAME="pwd2"> <FONT SIZE="-1" FACE="verdana, arial, helvetica">Verify
  47.   Password</FONT></TD></TR></TABLE><BR><BR><INPUT
  48. TYPE="SUBMIT" NAME="process" VALUE="Submit My Order"><INPUT
  49. TYPE="RESET" NAME=""></TD></TR>
  50. <TR>
  51. <TD>
  52. <HR SIZE="2" NOSHADE="NOSHADE"></TD></TR></TABLE></CENTER></FORM></BODY></HTML>
  53.  
  54.  


c) acctman.pl
==========
Expand|Select|Wrap|Line Numbers
  1. #!c:\perl\bin\perl.exe
  2. #!/usr/bin/perl
  3. ############################################
  4. ##                                        ##
  5. ##     Account Manager LITE User Signup   ##
  6. ##          by SiteInteractive.com        ##
  7. ##    http://siteinteractive.com/contact  ##
  8. ##                                        ##
  9. ##             version:  1.09             ##
  10. ##       last modified:  07/24/2002       ##
  11. ##        copyright (c) 1998 - 2002       ##
  12. ##                                        ##
  13. ##    latest version is available from    ##
  14. ##        http://SiteInteractive.com      ##
  15. ##                                        ##
  16. ############################################
  17. #
  18. # Copyright 1998 Elite Host.  All Rights Reserved.
  19. #
  20. # TERMS OF USE 
  21. # 1. Account Manager is for licensed customers
  22. # only. Customer may use Account Manager as many
  23. # times as customer wishes, as long as customer owns or runs the web
  24. # site that Account Manager is installed on.  Account
  25. # Manager may not under any circumstances be sold
  26. # or redistributed without the written consent of CGI Script Center and
  27. # its owner Diran Alemshah.
  28. #
  29. # 2. CGI Script Center, at its own discresion, will decide if any terms 
  30. # of the this agreement have been violated by customer. Upon written e-
  31. # mailed notification to Customer of Terms of Use violations, CGI
  32. # Script Center may revoke customer's license to use Account Manager.
  33. # In that event, Customer agrees to any and all of the following:
  34. #
  35. # a) Customers found in violation of this agreement, found reselling or
  36. # redistributing Account Manager, or making 
  37. # Customers Members Area ID and password public to anyone in any 
  38. # manner will forfeit their Members area password and all rights to 
  39. # future versions of Account Manager.
  40. # 
  41. # b). Customer will no longer be licensed to run any version of 
  42. # Account Manager. 
  43. #
  44. # Indemnification
  45. # 1. Customer agrees that it shall defend, indemnify, save and hold
  46. # CGI Script Center, Elite Web Design and marketing, and any
  47. # persons affiliated with either company, harmless from any and all
  48. # demands, liabilities, losses, costs and claims, including reasonable
  49. # attorney's fees asserted against CGI Script Center, its agents, its
  50. # customers, officers and employees, that may arise or result from any
  51. # service provided or performed or agreed to be performed or any product
  52. # sold by customer, its agents, employees or assigns. Customer agrees to
  53. # defend, indemnify and hold harmless CGI Script Center, its agents,
  54. # its cusomters, officers, and employes,against
  55. # liabilities arising out of; a) any injury to person or property caused
  56. # by an products sold or  otherwise distributed in connection with CGI
  57. # Script Center products; (b) any material supplied by customer
  58. # infringing or allegedly infringing on the proprietary rights of a
  59. # third party; c) copyright infringement and (d) any defective products
  60. # sold to customer from CGI Script Center products.
  61. #
  62. # This program may not be distributed in whole or part, freely, for pay, 
  63. # or any other form of compensation.
  64. #
  65. #################################################################
  66. # This version designed for Win32 systems (NT).  If you require
  67. # a Unix version, please contact cgi@elitehost.com
  68. #################################################################
  69.  
  70.  
  71. ##############################################################
  72. # EDIT USER CONFIGURATIONS BELOW
  73. ##############################################################
  74.  
  75. require "c:/program files/apache software foundation/apache2.2/cgi-bin/config.pl";
  76.  
  77. # This completes this portion of your Account Manager setup
  78. ##############################################################
  79. # DO NOT EDIT BELOW THIS LINE
  80. ##############################################################
  81.  
  82. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  83. @pairs = split(/&/, $buffer);
  84. foreach $pair (@pairs) {
  85.     ($name, $value) = split(/=/, $pair);
  86.     $value =~ tr/+/ /;
  87.     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  88.     if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
  89.     else { $INPUT{$name} = $value; }
  90.       $value =~ s/<!--(.|\n)*-->//g;
  91. }
  92.  
  93. $version = "1.08";
  94.  
  95. $cgiurl = $ENV{'SCRIPT_NAME'};
  96.  
  97. if ($INPUT{'find'}) { &find; } ######### Will search for member info.
  98. if ($INPUT{'process'}) { &sorder; } 
  99. #elsif ($INPUT{'order'}) { &order; }
  100. #elsif ($INPUT{'sorder'}) {&sorder; } 
  101. else {&sorder;}############# IF no button was pressed, run just as 
  102. exit;
  103.  
  104.  
  105. sub sorder {
  106.  
  107. unless ($INPUT{'agree'}) {
  108. print "Content-type: text/html\n\n";
  109. &header;
  110. print<<EOF;
  111. <CENTER><BR>
  112. <TABLE BORDER="0" WIDTH="400"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  113. COLSTART="1"><CENTER><P><B><FONT FACE="verdana, arial, helvetica"><FONT
  114. COLOR="#FF0000">Account Manager</FONT> Status:<BR>You Must Agree.</FONT></B></P></CENTER>
  115. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">In order for us to process your request, you must check the box marked <B>"I agree to the above"</B> on our order form.</FONT></P>
  116. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">If you need further
  117. assistance, please contact <A HREF="mailto:$orgmail">$orgname Support</A>.</FONT></P>
  118. <CENTER><TABLE BORDER="0" WIDTH="400"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR
  119. ><TD COLSTART="1"><HR SIZE="1">
  120. <CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica">$orgname
  121. maintained with <B><A HREF="http://cgi.elitehost.com/">Account Manager $version</A></B></FONT> 
  122. </CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER>
  123. EOF
  124. &footer;
  125. exit;
  126. }
  127.  
  128.  
  129. unless ($INPUT{'fname'}) {
  130. print "Content-type: text/html\n\n";
  131. &header;
  132. print<<EOF;
  133. <CENTER><BR>
  134. <TABLE BORDER="0" WIDTH="400"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  135. COLSTART="1"><CENTER><P><B><FONT FACE="verdana, arial, helvetica"><FONT
  136. COLOR="#FF0000">Account Manager</FONT> Status:<BR>Please Enter Your First Name.</FONT></B></P></CENTER>
  137. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">Please don't forget to enter <B>your first name</B> in our service request form.</FONT></P>
  138. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">If you need further
  139. assistance, please contact <A HREF="mailto:$orgmail">$orgname Support</A>.</FONT></P>
  140. <CENTER><TABLE BORDER="0" WIDTH="400"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR
  141. ><TD COLSTART="1"><HR SIZE="1">
  142. <CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica">$orgname
  143. maintained with <B><A HREF="http://cgi.elitehost.com/">Account Manager $version</A></B></FONT> 
  144. </CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER>
  145. EOF
  146. &footer;
  147. exit;
  148. }
  149.  
  150. unless ($INPUT{'lname'}) {
  151. print "Content-type: text/html\n\n";
  152. &header;
  153. print<<EOF;
  154. <CENTER><BR>
  155. <TABLE BORDER="0" WIDTH="400"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  156. COLSTART="1"><CENTER><P><B><FONT FACE="verdana, arial, helvetica"><FONT
  157. COLOR="#FF0000">Account Manager</FONT> Status:<BR>Please Enter Your Last Name.</FONT></B></P></CENTER>
  158. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">Please don't forget to enter <B>your last name</B> in our service request form.</FONT></P>
  159. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">If you need further
  160. assistance, please contact <A HREF="mailto:$orgmail">$orgname Support</A>.</FONT></P>
  161. <CENTER><TABLE BORDER="0" WIDTH="400"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR
  162. ><TD COLSTART="1"><HR SIZE="1">
  163. <CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica">$orgname
  164. maintained with <B><A HREF="http://cgi.elitehost.com/">Account Manager $version</A></B></FONT> 
  165. </CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER>
  166. EOF
  167. &footer;
  168. exit;
  169. }
  170.  
  171.  
  172.  
  173. $INPUT{'email'} =~ s/\s//g;
  174.  
  175. unless ($INPUT{'email'} =~ /(@.*@)|(\.\.)|(@\.)|(^\.)|(,)|(\/)|(\:)/
  176.       || $INPUT{'email'} !~
  177.       /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/)
  178.       {
  179.          $legalemail = 1;
  180.         } else {
  181.          $legalemail = 0;
  182.         }
  183.  
  184.  
  185. if ($legalemail !~ 1) {
  186. print "Content-type: text/html\n\n";
  187. &header;
  188. print<<EOF;
  189. <CENTER><BR>
  190. <TABLE BORDER="0" WIDTH="400"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  191. COLSTART="1"><CENTER><P><B><FONT FACE="verdana, arial, helvetica"><FONT
  192. COLOR="#FF0000">Account Manager</FONT> Status:<BR>Please Enter Your E-Mail Address.</FONT></B></P></CENTER>
  193. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">Please don't forget to enter <B>your E-mail address</B> in our service request form.</FONT></P>
  194. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">If you need further
  195. assistance, please contact <A HREF="mailto:$orgmail">$orgname Support</A>.</FONT></P>
  196. <CENTER><TABLE BORDER="0" WIDTH="400"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR
  197. ><TD COLSTART="1"><HR SIZE="1">
  198. <CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica">$orgname
  199. maintained with <B><A HREF="http://cgi.elitehost.com/">Account Manager $version</A></B></FONT> 
  200. </CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER>
  201. EOF
  202. &footer;
  203. exit;
  204. }
  205.  
  206.  
  207. &add;
  208. }
  209.  
  210.  
  211.  
  212. sub close {
  213.  
  214. open (FILE,"$memberinfo/email.txt"); #### Full path name from root.
  215. @closing  = <FILE>;
  216. close(FILE);
  217.  
  218. open(MAIL,">$tempdir\\$INPUT{'email'}") || die("Cannot open $tempdir\\$INPUT{'email'} -- Check Directory Permissions : $!"); 
  219.  
  220.     print MAIL "To: $INPUT{'email'}\n";
  221.     print MAIL "From: $orgmail ($orgname)\n";
  222.     print MAIL "Subject: $response_subject\n";
  223.     print MAIL "-" x 75 . "\n\n";
  224.  
  225.  
  226.  
  227.  
  228.     foreach $line(@closing) {
  229.     $line =~ s/<FIRST_NAME>/$INPUT{'fname'}/g;
  230.     $line =~s/<LAST_NAME>/$INPUT{'lname'}/g;
  231.     $line =~ s/<USERNAME>/$INPUT{'username'}/g;
  232.     $line =~s/<PASSWORD>/$INPUT{'pwd'}/g;
  233.     $line =~s/<ORGNAME>/$orgname/g;
  234.     $line =~s/<ORGMAIL>/$orgmail/g;
  235.     print MAIL "$line";
  236.     }
  237.  
  238.     print MAIL"\n\n";
  239.     close (MAIL);
  240.  
  241.  
  242.  
  243.         #'use' the process module.
  244.         use Win32::Process;
  245.  
  246.         #theWin32:: module. Includes the Win32 error checking etc.
  247.         # see Win32:: section for included functions.
  248.         use Win32;
  249.  
  250.         #sub Error{ 
  251.         #print Win32::FormatMessage( Win32::GetLastError() );
  252.         #}
  253.         #Create the process object.
  254.         Win32::Process::Create($ProcessObj, $mailprog, "Blat $tempdir\\$INPUT{'email'} -t $INPUT{'email'} -s \"$response_subject\" -i \"$orgmail ($orgname)\" ", 0, DETACHED_PROCESS, ".")|| die ; 
  255.         #Set the process priority
  256.         #$ProcessObj->SetPriority(NORMAL_PRIORITY_CLASS)||die ;
  257.  
  258.         #Wait for the process to end. NO timeout 
  259.         $ProcessObj->Wait(INFINITE);
  260.         unlink("$tempdir\\$INPUT{'email'}");
  261.  
  262.  
  263.  
  264. #################################################################
  265. ## MAIL BACK TO ADMIN ###########################################
  266. #################################################################
  267.  
  268. open(MAIL,">$tempdir\\$orgmail") || die("Cannot open $tempdir\\$orgmail -- Check Directory Permissions : $!"); 
  269.  
  270.     print MAIL "To: $orgmail\n";
  271.     print MAIL "From: $INPUT{'email'} ($INPUT{'fname'} $INPUT{'lname'})\n";
  272.     print MAIL "Subject: $signupresponse\n";
  273.     print MAIL "-" x 75 . "\n\n";
  274.  
  275.     print MAIL "Customer Information\n";
  276.     print MAIL "-" x 75 . "\n\n";
  277.     print MAIL "Name: $INPUT{'fname'} $INPUT{'lname'}\n";
  278.     print MAIL "Email: $INPUT{'email'}\n\n";
  279.  
  280.  
  281.  
  282.  
  283.     close (MAIL);
  284.  
  285.  
  286.  
  287.         #'use' the process module.
  288.         use Win32::Process;
  289.  
  290.         #theWin32:: module. Includes the Win32 error checking etc.
  291.         # see Win32:: section for included functions.
  292.         use Win32;
  293.  
  294.         #sub Error{ 
  295.         #print Win32::FormatMessage( Win32::GetLastError() );
  296.         #}
  297.         #Create the process object.
  298.         Win32::Process::Create($ProcessObj, $mailprog, "Blat $tempdir\\$orgmail -t $orgmail -s \"$signupresponse\" -i \"$INPUT{'email'} ($INPUT{'fname'} $INPUT{'lname'})\" ", 0, DETACHED_PROCESS, ".")|| die ; 
  299.         #Set the process priority
  300.         #$ProcessObj->SetPriority(NORMAL_PRIORITY_CLASS)||die ;
  301.  
  302.         #Wait for the process to end. NO timeout 
  303.         $ProcessObj->Wait(INFINITE);
  304.         unlink("$tempdir\\$orgmail");
  305.  
  306.  
  307.  
  308.  
  309. print "Content-type: text/html\n\n";
  310. &header;
  311. print<<EOF;
  312. <CENTER><BR>
  313. <TABLE BORDER="0" WIDTH="400"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  314. COLSTART="1"><P><B><FONT FACE="verdana, arial, helvetica"><FONT
  315. COLOR="#FF0000">Account
  316. Manager</FONT> Status:  Success!</FONT></B></P>
  317. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">Your $orgname account information has been sent to the site administrators.  You should receive a response shortly.  Thank you for your interest.</FONT></P>
  318. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">Please contact
  319. <A HREF="mailto:$orgmail">$orgname Support</A> if you
  320. need any further assistance.</FONT></P>
  321. <HR SIZE="1">
  322. <CENTER><FONT SIZE=\"-2\" FACE=\"verdana, arial, helvetica\"> $orgname is maintained with  <A
  323. HREF=\"http://cgi.elitehost.com\"><B>Account Manager $version</B></A></FONT>
  324. </CENTER> 
  325. </TD></TR></ROWS></TBODY></TABLE></CENTER>
  326. EOF
  327. &footer;
  328. exit;
  329. }
  330.  
  331. #}
  332.  
  333. sub checkaddress {
  334.  
  335. $INPUT{'email'} =~ s/\s//g;
  336.  
  337. unless ($INPUT{'email'} =~ /(@.*@)|(\.\.)|(@\.)|(^\.)|(,)|(\/)|(\:)/
  338.       || $INPUT{'email'} !~
  339.       /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/)
  340.       {
  341.          $legalemail = 1;
  342.         } else {
  343.          $legalemail = 0;
  344.         }
  345.  
  346.  
  347. if ($legalemail !~ 1) {
  348. print "Content-type: text/html\n\n";
  349. &header;
  350. print<<EOF;
  351. <CENTER><BR>
  352. <TABLE BORDER="0" WIDTH="400"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  353. COLSTART="1"><CENTER><P><B><FONT FACE="verdana, arial, helvetica"><FONT
  354. COLOR="#FF0000">Account Manager</FONT> Status:<BR>Please Enter Your E-Mail Address.</FONT></B></P></CENTER>
  355. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">Please don't forget to enter <B>your E-mail address</B> in our service request form.</FONT></P>
  356. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">If you need further
  357. assistance, please contact <A HREF="mailto:$orgmail">$orgname Support</A>.</FONT></P>
  358. <CENTER><TABLE BORDER="0" WIDTH="400"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR
  359. ><TD COLSTART="1"><HR SIZE="1">
  360. <CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica">$orgname
  361. maintained with <B><A HREF="http://cgi.elitehost.com/">Account Manager $version</A></B></FONT> 
  362. </CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER>
  363. EOF
  364. &footer;
  365. exit;
  366. }
  367. }
  368.  
  369. sub find {
  370.  
  371. &checkaddress;
  372.  
  373. # Open member database, read info
  374. open (DAT,"<$memberinfo/amdata.db");
  375. if ($LOCK_EX){ 
  376.       flock(DAT, $LOCK_EX); #Locks the file
  377.     }
  378.  @database_array = <DAT>;
  379.  close (DAT);
  380.  
  381. foreach $lines(@database_array) {
  382.           @edit_array = split(/\:/,$lines);
  383.  
  384. &parseemail;
  385. # if ($edit_array[2] =~ /$INPUT{'email'}/i) {last; }
  386.  
  387. if ($edit_array[2] eq $email) {last; }
  388.  
  389. }
  390.  
  391. # unless ($edit_array[2] =~ /$INPUT{'email'}/i) {
  392.  
  393. unless ($edit_array[2] eq $email) {
  394.  
  395. print "Content-type: text/html\n\n";
  396. &header;
  397. print "<CENTER><BR><TABLE
  398. BORDER=\"0\" WIDTH=\"450\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  399. COLSTART=\"1\"><P><B><FONT FACE=\"verdana, arial, helvetica\"><FONT
  400. COLOR=\"#FF0000\">Account Manager</FONT> Status:  Not Found!</FONT></B></P><P><FONT
  401. SIZE=\"-1\" COLOR=\"$fontcolor\" FACE=\"verdana, arial, helvetica\">Your $orgname account information was not found in our database.  Please make sure that you used the same email address that you created your account with.</FONT></P><P><FONT
  402. SIZE=\"-1\" COLOR=\"$fontcolor\" FACE=\"verdana, arial, helvetica\">Please contact <A
  403. HREF=\"mailto:$orgmail\">$orgname Support</A> for your account information.</FONT></P><HR
  404. SIZE=\"1\"><CENTER><FONT SIZE=\"-2\" FACE=\"verdana, arial, helvetica\"> $orgname is maintained with  <A
  405. HREF=\"http://cgi.elitehost.com\"><B>Account Manager $version</B></A></FONT>
  406. </CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER>";
  407. &footer;
  408. exit;
  409. } 
  410.  
  411. print "Content-type: text/html\n\n";
  412. &header;
  413. print "<CENTER><BR><TABLE
  414. BORDER=\"0\" WIDTH=\"450\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  415. COLSTART=\"1\"><P><B><FONT FACE=\"verdana, arial, helvetica\"><FONT
  416. COLOR=\"#FF0000\">Account Manager</FONT> Status:  Success!</FONT></B></P><P><FONT
  417. SIZE=\"-1\" COLOR=\"$fontcolor\" FACE=\"verdana, arial, helvetica\">Your $orgname account information has been emailed to you at: $INPUT{'email'}.</FONT></P><P><FONT
  418. SIZE=\"-1\" COLOR=\"$fontcolor\" FACE=\"verdana, arial, helvetica\">Please contact <A
  419. HREF=\"mailto:$orgmail\">$orgname Support</A> if you need any further assistance.</FONT></P><HR
  420. SIZE=\"1\"><CENTER><FONT SIZE=\"-2\" FACE=\"verdana, arial, helvetica\"> $orgname is maintained with  <A
  421. HREF=\"http://cgi.elitehost.com\"><B>Account Manager $version</B></A></FONT>
  422. </CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER>";
  423. &footer;
  424.  
  425. # Output a temporary file
  426.  
  427.     open(MAIL,">$tempdir\\$edit_array[2]") || die("Cannot open $tempdir\\$edit_array[2] -- Check Directory Permissions : $!"); 
  428.  
  429.     print MAIL "To: $edit_array[2]\n";
  430.     print MAIL "From: $orgmail ($orgname Support)\n";
  431.  
  432.     #Date
  433.     print MAIL "$date\n";
  434.  
  435.     # Check for Message Subject
  436.     print MAIL "Subject: $orgname Account Information\n\n";
  437.     print MAIL "-" x 75 . "\n\n";
  438.  
  439.     print MAIL "You requested your $orgname account information:\n\n";
  440.  
  441.     print MAIL "Your $orgname User ID is: $edit_array[0]\n";
  442.     print MAIL "Your $orgname password is: $edit_array[1]\n\n";
  443.  
  444.     print MAIL "please contact $orgname support at: $orgmail\n";
  445.     print MAIL "if you have any questions.\n\n";
  446.  
  447.     print MAIL "$orgname Support Team\n";    
  448.  
  449.     close (MAIL);
  450.  
  451.         #'use' the process module.
  452.         use Win32::Process;
  453.  
  454.         #theWin32:: module. Includes the Win32 error checking etc.
  455.         # see Win32:: section for included functions.
  456.         use Win32;
  457.  
  458.         #sub Error{ 
  459.         #print Win32::FormatMessage( Win32::GetLastError() );
  460.         #}
  461.         #Create the process object.
  462.         Win32::Process::Create($ProcessObj, $mailprog, "Blat $tempdir\\$edit_array[2] -t $edit_array[2] -s \"$orgname Account Information\" -i \"$orgmail ($orgname Support)\" ", 0, DETACHED_PROCESS, ".")|| die ; 
  463.         #Set the process priority
  464.         #$ProcessObj->SetPriority(NORMAL_PRIORITY_CLASS)||die ;
  465.  
  466.         #Wait for the process to end. NO timeout 
  467.         $ProcessObj->Wait(INFINITE);
  468.         unlink("$tempdir\\$edit_array[2]");
  469.  
  470. exit;
  471.  
  472. }
  473.  
  474. sub add {
  475.  
  476.  
  477. unless ($INPUT{'username'}) {
  478. print "Content-type: text/html\n\n";
  479. &header;
  480. print "<CENTER><TABLE BORDER=\"0\" WIDTH=\"450\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR
  481. ><TD ALIGN=\"CENTER\" COLSTART=\"1\">     
  482. <FONT SIZE=\"+1\" FACE=\"verdana, arial, helvetica\"><FONT COLOR=\"#FF0000\">Account
  483. Manager:</FONT><BR>Account Information Input Form</FONT><BR><BR>
  484. <TABLE BORDER=\"0\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  485. ALIGN=\"LEFT\" COLSTART=\"1\"><FONT SIZE=\"+1\" COLOR=\"$fontcolor\" FACE=\"verdana, arial, helvetica\"><B>Username
  486. Error!  No Username</B></FONT><BR><BR><FONT
  487. SIZE=\"-1\" FACE=\"verdana, arial, helvetica\">Please go back and a Username.</FONT></TD></TR><TR><TD COLSTART=\"1\"><HR SIZE=\"1\">
  488. <CENTER><FONT SIZE=\"-2\" FACE=\"verdana, arial, helvetica\"> $orgname is maintained with  <A
  489. HREF=\"http://cgi.elitehost.com\"><B>Account Manager $version</B></A></FONT>
  490. </CENTER> </TD></TR></ROWS></TBODY></TABLE></TD></TR></ROWS></TBODY></TABLE></CENTER>";
  491. &footer;
  492. exit;
  493.     } 
  494.  
  495.  
  496.  
  497.  
  498. if ($INPUT{'username'} =~ /\s/) {
  499. print "Content-type: text/html\n\n";
  500. &header;
  501. print "<CENTER><TABLE BORDER=\"0\" WIDTH=\"450\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR
  502. ><TD ALIGN=\"CENTER\" COLSTART=\"1\">     
  503. <FONT SIZE=\"+1\" FACE=\"verdana, arial, helvetica\"><FONT COLOR=\"#FF0000\">Account
  504. Manager:</FONT><BR>Account Information Input Form</FONT><BR><BR>
  505. <TABLE BORDER=\"0\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  506. ALIGN=\"LEFT\" COLSTART=\"1\"><FONT SIZE=\"+1\" COLOR=\"$fontcolor\" FACE=\"verdana, arial, helvetica\"><B>Username
  507. Error!  Username Contains a Space</B></FONT><BR><BR><FONT
  508. SIZE=\"-1\" FACE=\"verdana, arial, helvetica\">Please go back and enter a Username without spaces.  If you would like to use a multi-word Username, be sure to use an underscore ( _ ).</FONT></TD></TR><TR><TD COLSTART=\"1\"><HR SIZE=\"1\">
  509. <CENTER><FONT SIZE=\"-2\" COLOR=\"$fontcolor\" FACE=\"verdana, arial, helvetica\"> $orgname is maintained with  <A
  510. HREF=\"http://cgi.elitehost.com\"><B>Account Manager $version</B></A></FONT>
  511. </CENTER> </TD></TR></ROWS></TBODY></TABLE></TD></TR></ROWS></TBODY></TABLE></CENTER>";
  512. &footer;
  513. exit;
  514.     }
  515.  
  516. if ($INPUT{'username'} eq $INPUT{'pwd'}) {
  517.  
  518. print "Content-type: text/html\n\n";
  519. &header;
  520. print "<CENTER><TABLE BORDER=\"0\" WIDTH=\"450\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR
  521. ><TD ALIGN=\"CENTER\" COLSTART=\"1\">     
  522. <FONT SIZE=\"+1\" FACE=\"verdana, arial, helvetica\"><FONT COLOR=\"#FF0000\">Account Manager:</FONT><BR>  Account Information Input Form</FONT><BR><BR>
  523. <TABLE BORDER=\"0\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  524. ALIGN=\"LEFT\" COLSTART=\"1\"><FONT SIZE=\"+1\" COLOR=\"$fontcolor\" FACE=\"verdana, arial, helvetica\"><B>Password Error!  Same as Username</B></FONT><BR><BR><FONT
  525. SIZE=\"-1\" FACE=\"verdana, arial, helvetica\">You must chose a Password other than your Username, for security considerations.  Please return and enter another password.</FONT></TD></TR>
  526.  
  527. </ROWS></TBODY></TABLE></TD></TR></ROWS></TBODY></TABLE></CENTER>";
  528. &footer;
  529. exit;
  530. }
  531.  
  532. unless ($INPUT{'pwd'} eq $INPUT{'pwd2'} && $INPUT{'pwd'} && $INPUT{'pwd2'} ){
  533.  
  534. print "Content-type: text/html\n\n";
  535. &header;
  536. print "<CENTER><TABLE BORDER=\"0\" WIDTH=\"450\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR
  537. ><TD ALIGN=\"CENTER\" COLSTART=\"1\">     
  538. <FONT SIZE=\"+1\" FACE=\"verdana, arial, helvetica\"><FONT COLOR=\"#FF0000\">Account
  539. Manager:</FONT><BR>Account Information Input Form</FONT><BR><BR>
  540. <TABLE BORDER=\"0\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  541. ALIGN=\"LEFT\" COLSTART=\"1\"><FONT SIZE=\"+1\" COLOR=\"$fontcolor\" FACE=\"verdana, arial, helvetica\"><B>Password
  542. Error!  Password Mismatch</B></FONT><BR><BR><FONT
  543. SIZE=\"-1\" FACE=\"verdana, arial, helvetica\">Please go back and re-enter your
  544. password choice.</FONT></TD></TR><TR><TD COLSTART=\"1\"><HR SIZE=\"1\">
  545. <CENTER><FONT SIZE=\"-2\" FACE=\"verdana, arial, helvetica\"> $orgname is maintained with  <A
  546. HREF=\"http://cgi.elitehost.com\"><B>Account Manager $version</B></A></FONT>
  547. </CENTER> </TD></TR></ROWS></TBODY></TABLE></TD></TR></ROWS></TBODY></TABLE></CENTER>";
  548. &footer;
  549. exit;
  550.     } 
  551.  
  552.  
  553. if (-e "$memberinfo/amdata.db") {
  554.  
  555. open (MEMBER, "<$memberinfo/amdata.db");
  556. if ($LOCK_EX){ 
  557.       flock(MEMBER, $LOCK_EX); #Locks the file
  558.     }
  559. @database_array = <MEMBER>;
  560.  close (MEMBER);
  561.  
  562. foreach $lines(@database_array) {
  563.           @edit_array = split(/\:/,$lines);
  564.     &parseusername2;
  565.  
  566. #    if ($edit_array[0] eq $INPUT{'username'}) {last; }
  567.  
  568. if (($edit_array[0]) && ($edit_array[0] eq $desiredname)) {last; }
  569.  
  570. }
  571.  
  572. $INPUT{'username'} =~ s/\W.*//;
  573. # if ($edit_array[0] eq $INPUT{'username'}) {
  574.  
  575. if (($edit_array[0]) && ($edit_array[0] eq $desiredname)) {
  576.  
  577. print "Content-type: text/html\n\n";
  578. &header;
  579. print "<CENTER><TABLE BORDER=\"0\" WIDTH=\"450\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR
  580. ><TD ALIGN=\"CENTER\" COLSTART=\"1\">     
  581. <FONT SIZE=\"+1\" FACE=\"verdana, arial, helvetica\"><FONT COLOR=\"#FF0000\">Account Manager:</FONT><BR>User Name Taken</FONT><BR><BR>
  582. <TABLE BORDER=\"0\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  583. ALIGN=\"LEFT\" COLSTART=\"1\"><FONT SIZE=\"+1\" FACE=\"verdana, arial, helvetica\"><B>User Name Error!  User Name Taken</B></FONT><BR><BR><FONT
  584. SIZE=\"-1\" COLOR=\"$fontcolor\" FACE=\"verdana, arial, helvetica\">The User Name you have selected is already in use by another user.  Please return and enter another user name.</FONT></TD></TR>
  585. <TR><TD COLSTART=\"1\"><HR SIZE=\"1\">
  586. <CENTER><FONT SIZE=\"-2\" FACE=\"verdana, arial, helvetica\"> $orgname is maintained with  <A
  587. HREF=\"http://cgi.elitehost.com\"><B>Account Manager $version</B></A></FONT>
  588. </CENTER></TD></TR></ROWS></TBODY></TABLE></TD></TR></ROWS></TBODY></TABLE></CENTER>";
  589. &footer;
  590. exit;
  591. }
  592.  
  593.  
  594. }
  595. &dupeaddress;
  596. &dupeaddress2;
  597. &usertemp;
  598. #&dupepwd;
  599. &temp;
  600. exit;
  601. }
  602.  
  603. sub usertemp {
  604.  
  605.  
  606. opendir (DIR, "$memberinfo"); 
  607. @file = grep { /.infotmp/} readdir(DIR);
  608. foreach $lines(@file) {
  609.  $lines =~ s/\W.*//;
  610.  
  611. &parseusername;
  612.  
  613. if ($lines eq $desiredname) {
  614.  
  615. # if ($lines =~ /$INPUT{'username'}\b/i) {
  616. print "Content-type: text/html\n\n";
  617. &header; 
  618. print<<EOF;
  619. <CENTER><BR>
  620. <TABLE BORDER="0" WIDTH="450"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  621. COLSTART="1"><P><B><FONT FACE="verdana, arial, helvetica"><FONT
  622. COLOR="#FF0000">Account
  623. Manager</FONT> Status:  Username Taken!</FONT></B></P>
  624. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">The Username: $INPUT{'username'} has already been reserved by someone awaiting membership</FONT></P>
  625. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">Please choose another Username.</FONT></P>
  626. <HR SIZE="1">
  627. <CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica"><B>$orgname maintained with
  628. <A HREF="http://cgi.elitehost.com/"><B>Account Manager $version</B></A></B></FONT> 
  629. </CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER>
  630. EOF
  631. &footer;
  632.   exit;   
  633.  
  634. }
  635. }
  636. }
  637.  
  638. sub dupeaddress {
  639. #print "Content-type: text/html\n\n";
  640. open (EMAIL, "<$memberinfo/amdata.db");
  641. if ($LOCK_EX){ 
  642.       flock(EMAIL, $LOCK_EX); #Locks the file
  643.     }
  644. @database_array = <EMAIL>;
  645.  close (EMAIL);
  646.  
  647. foreach $lines(@database_array) {
  648.           @edit_array = split(/\:/,$lines);
  649. &parseemail;
  650.  
  651. if ($edit_array[2] eq $email) {
  652.  
  653. # if ($edit_array[2] =~ /$INPUT{'email'}/i) {
  654. print "Content-type: text/html\n\n";
  655. &header;
  656. print<<EOF;
  657. <CENTER><BR>
  658. <TABLE BORDER="0" WIDTH="450"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  659. COLSTART="1"><P><B><FONT FACE="verdana, arial, helvetica"><FONT
  660. COLOR="#FF0000">Account
  661. Manager</FONT> Status:  Address Taken!</FONT></B></P>
  662. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">The E-mail address: $INPUT{'email'} is already in our database. </FONT></P>
  663. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">Please contact
  664. <A HREF="mailto:$orgmail"><B>$orgname Support</B></A> if you
  665. need any further assistance.</FONT></P>
  666. <HR SIZE="1">
  667. <CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica"><B>$orgname maintained with
  668. <A HREF="http://cgi.elitehost.com/"><B>Account Manager $version</B></A></B></FONT> 
  669. </CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER>
  670. EOF
  671. &footer;
  672. exit;
  673. }
  674. }
  675. }
  676.  
  677. sub dupeaddress2 {
  678.  
  679.  
  680. opendir (DIR, "$memberinfo");
  681. close (DIR); 
  682. @file = grep { /.infotmp/} readdir(DIR);
  683.  foreach $lines(@file) {
  684.  
  685.        open (DAT, "<$memberinfo/$lines");
  686. if ($LOCK_EX){ 
  687.       flock(DAT, $LOCK_EX); #Locks the file
  688.     } 
  689.              @approval = <DAT>;
  690.                 foreach $item(@approval) {
  691.                     @edit_approval = split(/\:/,$item);
  692.  
  693.  &parseemail;                 
  694.  
  695. if ($edit_approval[2] eq $email) {last; }
  696.  
  697. # if ($edit_approval[2] =~ /$INPUT{'email'}/i) {last; }
  698. }
  699.  
  700. if ($edit_approval[2] eq $email) {
  701.  
  702. # if ($edit_approval[2] =~ /$INPUT{'email'}/i) {
  703. print "Content-type: text/html\n\n";
  704. &header;
  705. print<<EOF;
  706. <CENTER><BR>
  707. <TABLE BORDER="0" WIDTH="450"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  708. COLSTART="1"><P><B><FONT FACE="verdana, arial, helvetica"><FONT
  709. COLOR="#FF0000">Account
  710. Manager</FONT> Status:  Address Taken!</FONT></B></P>
  711. <P><FONT COLOR="$fontcolor" SIZE="-1" FACE="verdana, arial, helvetica">The E-mail address:
  712. $INPUT{'email'} was found in use by someone awaiting membership.</FONT></P>
  713. <P><FONT COLOR="$fontcolor" SIZE="-1" FACE="verdana, arial, helvetica">Please contact
  714. <A HREF="mailto:$orgmail"><B>$orgname Support</B></A> if you need any further
  715. assistance.</FONT></P>
  716. <HR SIZE="1">
  717. <CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica"><B>$orgname
  718. maintained with
  719. <A HREF="http://cgi.elitehost.com/"><B>Account Manager $version</B></A></B></FONT> 
  720. </CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER>
  721. EOF
  722. &footer;
  723. #close (DIR);
  724. exit;
  725.  
  726. }
  727. }
  728. }
  729.  
  730. sub dupepwd {
  731.  
  732.  
  733. opendir (DIR, "$memberinfo");
  734. close (DIR); 
  735. @file = grep { /.infotmp/} readdir(DIR);
  736.  foreach $lines(@file) {
  737.  
  738.        open (DAT, "<$memberinfo/$lines");
  739. if ($LOCK_EX){ 
  740.       flock(DAT, $LOCK_EX); #Locks the file
  741.     } 
  742.              @approval = <DAT>;
  743.                 foreach $item(@approval) {
  744.                     @edit_approval = split(/\:/,$item);
  745.  
  746.  if ($edit_approval[1] =~ /$INPUT{'pwd'}\b/i) {last; }
  747. }
  748.  
  749. if ($edit_approval[1] =~ /$INPUT{'pwd'}\b/i) {
  750. print "Content-type: text/html\n\n";
  751. &header;
  752. print<<EOF;
  753. <CENTER><BR>
  754. <TABLE BORDER="0" WIDTH="450"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
  755. COLSTART="1"><P><B><FONT FACE="verdana, arial, helvetica"><FONT
  756. COLOR="#FF0000">Account
  757. Manager</FONT> Status:  Address Taken!</FONT></B></P>
  758. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">The Password you chose has already been requested by a new prospective user.  Please choose another.</FONT></P>
  759. <P><FONT SIZE="-1" COLOR="$fontcolor" FACE="verdana, arial, helvetica">Please contact
  760. <A HREF="mailto:$orgmail"><B>$orgname Support</B></A> if you need any further
  761. assistance.</FONT></P>
  762. <HR SIZE="1">
  763. <CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica"><B>$orgname
  764. maintained with
  765. <A HREF="http://cgi.elitehost.com/"><B>Account Manager $version</B></A></B></FONT> 
  766. </CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER>
  767. EOF
  768. &footer;
  769. #close (DIR);
  770. exit;
  771.  
  772. }
  773. }
  774. }
  775.  
  776.  
  777. ######################################
  778. # Create temp files for Admin approval
  779. ######################################
  780.  
  781. sub temp {
  782.  
  783.  
  784.  
  785. $INPUT{'fname'} =~ s/\s+$//;
  786. $INPUT{'lname'} =~ s/\s+$//;
  787.  
  788.  
  789. $newline2 = join
  790. ("\:",$INPUT{'username'},$INPUT{'pwd'},$INPUT{'email'},$INPUT{'fname'},$INPUT{'lname'},$setup,$monthly,$INPUT{'payment'},$INPUT{'creditcards'},$INPUT{'nameoncard'},$INPUT{'cardnumber'},$INPUT{'exp'},$INPUT{'billingaddress'},$INPUT{'billingaddress2'},$INPUT{'city'},$INPUT{'state'},$INPUT{'zip'},$INPUT{'lbill'},$INPUT{'papplied'},$INPUT{'aapplied'},$INPUT{'tbalance'},$INPUT{'tnew'},$INPUT{'tcharges'},$INPUT{'nnew'},$INPUT{'linvoice'},$INPUT{'taxes'},$INPUT{'ccity'},$INPUT{'cstate'},$INPUT{'czip'},0);
  791. $newline2 .= "\n";
  792.  
  793. open(TEMP2, ">$memberinfo/$INPUT{'username'}.infotmp") or print "unable to create user info temp file.  Check your directory permission settings";
  794. if ($LOCK_EX){ 
  795.       flock(TEMP2, $LOCK_EX); #Locks the file
  796.     }
  797. print TEMP2 $newline2;
  798. close (TEMP2);
  799.  
  800. #unlink ("$memberinfo/$INPUT{'username'}.infotmp");
  801.  
  802.  
  803. #}
  804.  
  805. if ($INPUT{$lines}) {
  806. unlink ("$memberinfo/$lines");
  807.  
  808.  
  809.  
  810. }
  811.  
  812. #}
  813. &close;
  814.  
  815. exit;
  816.  
  817. }
  818.  
  819.  
  820.  
  821. sub parseusername {
  822. $desiredname = $INPUT{'username'};
  823. $lines =~ tr/A-Z/a-z/;
  824. $desiredname =~ tr/A-Z/a-z/;
  825. }
  826.  
  827. sub parseusername2 {
  828. $desiredname = $INPUT{'username'};
  829. $edit_array[0] =~ tr/A-Z/a-z/;
  830. $desiredname =~ tr/A-Z/a-z/;
  831. }
  832.  
  833.  
  834. sub parseemail {
  835. $email = $INPUT{'email'};
  836. $edit_array[2] =~ tr/A-Z/a-z/;
  837. $email =~ tr/A-Z/a-z/;
  838. }
  839.  
  840.  
  841.  
  842.  
  843. sub header {
  844. open (FILE,"<$header/header.txt"); #### Full path name from root. 
  845.  @headerfile = <FILE>;
  846.  close(FILE);
  847. print "<HTML><HEAD><TITLE></TITLE></HEAD><BODY $bodyspec>\n";
  848. foreach $line(@headerfile) {
  849. print "$line";
  850.   }
  851. }
  852.  
  853.  
  854. sub footer {
  855. open (FILE,"<$footer/footer.txt"); #### Full path name from root. 
  856.  @footerfile = <FILE>;
  857.  close(FILE);
  858. foreach $line(@footerfile) {
  859. print "$line";
  860. }
  861. print "</BODY></HTML>";
  862. }
  863.  
  864.  

d) config.pl
========
Expand|Select|Wrap|Line Numbers
  1. #!c:\perl\bin\perl.exe
  2. #!/usr/bin/perl
  3.  
  4. # You will find a complete HTML tutorial/manual at:
  5. # http://siteinteractive.com/acctlite/tutorial/
  6. #
  7. # Version 1.09
  8. ##############################################################
  9. # EDIT USER CONFIGURATIONS BELOW
  10. # 
  11. # Note: These are the only configurations you will need to
  12. # set in Account Manager LITE.
  13. #
  14. # Be sure to set the "require" paths in both the acctman.pl
  15. # and the amadmin.pl files.
  16. ##############################################################
  17.  
  18. # Add your BODY tag information, like background graphic, color, etc.
  19. $bodyspec = "background=\"\" bgcolor=\"#FFFFFF\" link=\"#0000FF\" vlink=\"#0000FF\"";
  20.  
  21. # Add your own graphics, text, links, etc., to the top of your pages.
  22. # Give the full directory path to your header.txt file.  DO NOT include
  23. # the header.txt file in the path here, just the directories.
  24. # $header = "C:/full/path/to/directory";
  25. $header = "";
  26.  
  27. # Add your own graphics, text, links, etc., to the bottom of your pages.
  28. # Give the full directory path to your footer.txt file.  DO NOT include
  29. # the footer.txt file in the path here, just the directories.
  30. # $footer = "C:/full/path/to/directory";
  31. $footer = "";
  32.  
  33. # Edit the font colors of the text on the help and error screens that
  34. # users will see.  This is helpful if you add a background color or
  35. # graphic.
  36. $fontcolor = "#000000";
  37.  
  38. # Type the name of your organization, group, or company
  39. $orgname = "Account Manager Demo";
  40.  
  41. # Type an email address that customer/user can respond to
  42. # Remember to put a backslash \ before your @
  43. # eg: $orgmail = "whatever\@wherever.com";
  44. $orgmail = "whatever\@wherever.com";
  45.  
  46. # Type the full path to your Mail program
  47. $mailprog = "c:/winnt/system32/blat.exe";
  48.  
  49.  
  50.  
  51. # This would be the subject of the e-mail your users will
  52. # receive automatically once they have submitted their
  53. # application.
  54. $response_subject = "Application Received";
  55.  
  56. # If you use .htaccess or .nsconfig, use a "1", otherwise leave blank
  57. # or set to "0".  This is if you use a secure users area.
  58. $htaccess = "1";
  59.  
  60. # If you entered "1" above, enter the full path to your
  61. # htpasswd or .nsconfig file.
  62. # Like this: $memaccess = "c:/full/path/to/.htpasswd";
  63. # This is the file that houses the usernames and encrypted passwords
  64. # but is only needed if you use .htaccess or .nsconfig
  65. $memaccess = "c:/full/directory/path/to/info/.htpasswd";
  66.  
  67. # Type the full path to the database file that contains all the info
  68. $memberinfo = "c:/full/directory/path/to/info";
  69.  
  70.  
  71. # Upload the approved.txt, denied.txt, and email.txt files
  72. # that come with Account Manager to your $memberinfo directory.
  73. # These files are used to send automatic e-mail responses to
  74. # your customers/subscribers.  Edit these files as needed.
  75.  
  76.  
  77. # Type a full path for a temp directory that BLAT Mail can use
  78. # as well as store other temporary files
  79. $tempdir = "c:/full/directory/path/to/temp";
  80.  
  81.  
  82. # Give the full directory path where you would like your password.txt
  83. # file to be saved.  DO NOT include the name password.txt in the path
  84. # here, just the directories.  $passfile = "/full/path/to/directory";
  85. $passfile = "c:/full/directory/path/to/info";
  86.  
  87.  
  88. # If you are run the script and receive File Locking (flock)
  89. # errors, remove the number 2 from between the quotes.
  90. # Then it would appear: $LOCK_EX = "";
  91. $LOCK_EX = "2";
  92.  
  93.  
  94. # Type the subject that will appear in the email customer/user
  95. # receives
  96. $subject = "ABC Member Info";
  97.  
  98.  
  99. # Encryption
  100. # If you are using Apache for Windows, you will want to leave this
  101. # to the default setting of $crypt = "";
  102. # If you are using a crypt-capable web server, place a 1 between the
  103. # quotes, to encrypt your passwords.  
  104.  
  105. $crypt = "";
  106.  
  107.  
  108. # Create two text files.  One called "approved.txt" and the other
  109. # called "denied.txt".  In each, write the response that you would
  110. # like your prospective members to receive when you have either
  111. # approved or denied their application for membership, respectively.
  112. # Then, upload both text files to your $memberinfo directory.
  113. # The script will do the rest.
  114. # Example, in the "approved.txt" file, you can type:
  115. # "Your account is now active."
  116.  
  117.  
  118. # Subject of email that is automatically sent to users that you
  119. # chose not to accept in your Account Manager.
  120. $denied_email_subject = "Application Denied";
  121.  
  122. # Subject for email that is automatically sent to users that you
  123. # chose to accept in your Account Manager.
  124. $approved_email_subject = "Application Approved";
  125.  
  126. # This is the e-mail Subject for the response that is sent back to
  127. # you, the administrator, when a signup request is received.
  128. $signupresponse = "Account Manager Lite Signup Response";
  129.  
  130.  
  131.  
Oct 16 '08 #1
10 6921
numberwhun
3,509 Expert Mod 2GB
Reading and understanding the log errors that you get is key.

This error:

[Fri Oct 17 00:20:43 2008] [error] [client 127.0.0.1] Can't locate c:/program files/apache software foundation/apache2.2/cgi-bin/config.pl in @INC (@INC contains: C:/perl/site/lib C:/perl/lib .) at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman.pl line 75.\r, referer: http://127.0.0.1/amform.html

seems to be caused by this:

require "c:/program files/apache software foundation/apache2.2/cgi-bin/config.pl";

Regards,

Jeff
Oct 17 '08 #2
happyse27
236 100+
Hi Jeff,

But the config pl is in this cgi-bin directory and the sample script documentation mentioned need to change it. So how to configure this statement? or any alternative?

Thanks and Best Rgds,
Andrew
Oct 17 '08 #3
numberwhun
3,509 Expert Mod 2GB
Well, the error is stating that it cannot find that file in either c:/perl/site/lib or c:/perl/lib. You have to remember that when you use "require" or "use", Perl looks to find the modules in one of the directories that are listed in @INC. The files located in those directories are for installed modules. If config.pl were a module, then it would be called config.pm. Unlike other languages where require might be for reading and importing a file, in Perl, it is for telling perl to use a module (as is the use command).

Since config.pl is actually just a configuration file with a bunch of variables, your best bet may be to redo the file to be an actual config file where it has a layout as such:

name value
name value
name value
.
.
.

Then, you could read in the file and put it into a hash with the "name" on each line being a key and the value being....well....the value. Its fairly simple and non-trivial to do that, but that's my recommendation.

Regards,

Jeff
Oct 17 '08 #4
KevinADC
4,059 Expert 2GB
He has Apache installed on the D drive but the "require" call (line 75 acctman.pl) is to the C drive.
Oct 17 '08 #5
happyse27
236 100+
Hi Jeff,

I tried but cant work for the method, and reverted back. Not sure if I implemented wrongly or not...


Hi Kevin,

Thanks! You are very sharp!. I changed the c drive of apache to d drive and it didnt complaint. But I got other new error below. Not sure how to configure the email thing below and how to path the directory?


Kindly assist. Cheers...


Andrew


new apache error log
===============
[Sat Oct 18 04:41:41 2008] [error] [client 127.0.0.1] Premature end of script headers: acctman.pl, referer: http://127.0.0.1/amform.html
[Sat Oct 18 04:41:41 2008] [error] [client 127.0.0.1] Cannot open c:/full/directory/path/to/temp\\h@hotmail.com -- Check Directory Permissions : No such file or directory at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman.pl line 218.\r, referer: http://127.0.0.1/amform.html
Oct 17 '08 #6
happyse27
236 100+
Hi All,

Sorry, I changed to c:/full/directory/path/to/temp from d drive and it didnt complain anymore.

However I got new error below.

Not sure really how to resolve this for this time round. Thanks in advance...


Thanks in advance,
Andrew

apache error
=========
[Sat Oct 18 04:51:11 2008] [error] [client 127.0.0.1] Premature end of script headers: acctman.pl, referer: http://127.0.0.1/amform.html
[Sat Oct 18 04:51:11 2008] [error] [client 127.0.0.1] Died at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/acctman.pl line 254.\r, referer: http://127.0.0.1/amform.html
Oct 17 '08 #7
KevinADC
4,059 Expert 2GB
line 245 acctman.pl

Expand|Select|Wrap|Line Numbers
  1. Win32::Process::Create($ProcessObj, $mailprog, "Blat $tempdir\\$INPUT{'email'} -t $INPUT{'email'} -s \"$response_subject\" -i \"$orgmail ($orgname)\" ", 0, DETACHED_PROCESS, ".")|| die ; 
  2.  
Is Blat installed on your computer?

http://www.blat.net/194/

Note, the script acctman.pl is 10 years old! It looks poorly written. It may not work anymore being that old and running on newer versions of perl and newer versions of Windows.
Oct 17 '08 #8
happyse27
236 100+
Hi Kevin,

Thanks again. I just want a minimal round of testing to make sure that it acctman.pl.

I will try to take out the emailing portion and also what is the way to reduce the scripts so that I can make it easily workable?

Also, the acctman.pl can I specific which version of perl to use? Or there are some newer version of acctman.pl itself?


Thanks again,
Andrew
Oct 18 '08 #9
happyse27
236 100+
Hi Kevin,

Typo- error, Thanks again. I just want a minimal round of testing to make sure that it works for acctman.pl.

Thanks,
Andrew
Oct 18 '08 #10
KevinADC
4,059 Expert 2GB
Hi Kevin,

Typo- error, Thanks again. I just want a minimal round of testing to make sure that it works for acctman.pl.

Thanks,
Andrew
OK, but I am not interested in helping to modify that script. If I were you I would search for something newer.
Oct 18 '08 #11

Sign in to post your reply or Sign up for a free account.

Similar topics

2
Smarty gives File does not exist: C:/Program Files/Apache Group/Apache2/htdocs/favicon.ico
by: Mike | last post by:
I am sure that I am making a simple boneheaded mistake and I would appreciate your help in spotting in. I have just installed apache_2.0.53-win32-x86-no_ssl.exe php-5.0.3-Win32.zip...
PHP
1
Strange behaviour with perl and apache
by: David Cantin | last post by:
Hi I have some troubles with a long system() sub-process (from 30 sec to 30 min) called from a CGI. My web page have to wait the end of the system() call before finishing it's loadding but...
Perl
6
Pg + perl + apache
by: Michael L. Artz | last post by:
I'm having some odd issues, but I'm not sure exactly the cause of them, but postgres is the component in the system that is throwing the errors, so I thought I'd start here. I have built a web...
PostgreSQL Database
4
Apache ErrorDocument / PHP header() interaction does not work as expected
by: liyanage | last post by:
I recently worked on error handling and three related issues/questions came up. 1.) I am trying to trigger Apache ErrorDocument handlers by setting appropriate HTTP status codes in my PHP...
PHP
6
No CSS or PHP Includes showing on apache localhost site
by: MaiyaHolliday | last post by:
Hello, I've recently installed apache on a new computer, and cannot figure out why my site will not process any includes. (it was working on my old one) There are no errors on the page such as...
Apache Web Server
2
SOAP::Lite and Apache
by: furrypop | last post by:
Hi, I'm trying to get the Perl SOAP::Lite examples to work on a Windows PC, running Apache 2.2.4. Apache is definitely serving CGI scripts, as I've tested a dummy Hello World thing. I'm also...
Perl
0
Permission Denied when reading a home directory file from Apache cgi script
by: phil469 | last post by:
I'm having an issue when trying to read a file in a user's homedir from a cgi script. I have a virtual host section in my httpd.conf file which I'll include. The cgi script is a very basic script...
Apache Web Server
2
Kelicula
Running cgi (or perl at all) in apache
by: Kelicula | last post by:
I have installed Activestate perl with Apache 2.2 and I can't get perl written cgi scripts to run. I have changed the conf file to this <Directory "htdocs/cgi-bin"> SetHandler cgi-script ...
Apache Web Server
6
Apache 2.2 VirtualHosts not working on Windows Vista
by: josequinonesii | last post by:
I've searched, I've read, I've tested and re-read numerous post but to no avail yet... Quite simply, the settings I've applied to my httpd.conf, httpd-vhost.conf and my hosts files simply does not...
Apache Web Server
0
How to turn on java script in a villaon keypad mobile phone
by: Charles Arthur | last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
Java
0
Merging data from multiple Excel files
by: ryjfgjl | last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
Data Management
0
Migrating Website to Cloud - Emmanuel Katto
by: emmanuelkatto | last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel
General
1
Looking to do Android software development, any suggestions? Is flutter better?
by: nemocccc | last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
General
1
Is that possible of reading the .csv file in column wise and the column have different lengths ?
by: Sonnysonu | last post by:
This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...
C / C++
0
Changing the language in Windows 10
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
Windows Server
0
Oralloy
Problem With Comparison Operator <=> in G++
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...
C / C++
0
jinu1996
Maximizing Business Potential: The Nexus of Website Design and Digital Marketing
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
Online Marketing
0
tracyyun
Discussion: How does Zigbee compare with other wireless protocols in smart home applications?
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
General

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.

BYTES.COM © 2024
About Bytes
Terms Of Use
Privacy Policy
Sitemap
Advertise on Bytes:
Post a Job
Sponsored Posts
Platinum & Gold Sponsors
Hire Now!