Back To Programming / Scripting / Coding Forum

CGI script wont work.

  • ajdegans
  • Born
  • Born
  • No Avatar
  • Joined: Sep 17, 2003
  • Posts: 4
  • Loc: netherlands
  • Status: Offline

Post September 17th, 2003, 3:54 pm

Hi, im fairly new to CGI scripting. So i took some parts of code and made email forms.

One works!! But the second won't work. the cgi below is that particular file:

Code: [ Select ]
#!/usr/bin/perl
$sendmail_location = "/usr/sbin/sendmail";

read(STDIN, $formbuffer, $ENV{'CONTENT_LENGTH'});
@formpairs = split(/&/, $formbuffer);
foreach $formpair (@formpairs) {
    ($formname, $formvalue) = split(/=/, $formpair);
    $formvalue =~ tr/+/ /;
    $formvalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $formvalue =~ s/<([^>]|\n)*>//g;
    if ($FORM{$formname}) { $FORM{$formname} = $FORM{$formname}.",".$formvalue; }
    else { $FORM{$formname} = $formvalue; }
}


foreach $require (split(/\,/,$FORM{'require'})) {
if ($require eq "email" || $require eq "to") {
unless ($FORM{$require}=~ /\@/ && $FORM{$require}=~ /\./) {
$error .= "Error in $require.<BR>";
}
}
unless ($FORM{$require}) {
$error .= "Missing $require.<BR>";
}
}

unless ($FORM{'sendpage'}) {
$error .= "Missing confirmation page url<BR>";
}

if ($error) {
print "Content-type: text/html\n\n";
print qq(<CENTER><FONT COLOR="#000000"><B>Error</B><BR>-------------------------<BR>$error</FONT></CENTER>);
exit;
}

if ($FORM{'jounaam'}) {
$yeshow = qq(
Naam, $FORM{'jounaam'}
);
}

if ($FORM{'pakket'}) {
$yeshow = qq(
Pakket, $FORM{'pakket'}
);
}

if ($FORM{'email'}) {
$yeshow = qq(
E-mail, $FORM{'email'}
);
}

if ($FORM{'adres'}) {
$yeshow = qq(
Adres, $FORM{'adres'}
);
}

if ($FORM{'postcode'}) {
$yeshow = qq(
Postcode, $FORM{'postcode'}
);
}

if ($FORM{'plaats'}) {
$yeshow = qq(
Plaats, $FORM{'plaats'}
);
}

if ($FORM{'land'}) {
$yeshow = qq(
Land, $FORM{'land'}
);
}

if ($FORM{'telefoon'}) {
$yeshow = qq(
Telefoon, $FORM{'telefoon'}
);
}

if ($FORM{'gsm'}) {
$yeshow = qq(
gsm, $FORM{'gsm'}
);
}

if ($FORM{'message'}) {
$yeshow = qw(
From, $FORM{'message'}
);
}

if ($FORM{'hoekomjehier'}) {
$yeshow = qq(
Hoe kom je hier, $FORM{'hoekomjehier'}
);
}

open (MAIL, "|$sendmail_location -t") || die "Can't open $sendmail_location!\n";
print MAIL "From: $FORM{'jounaam'} <$FORM{'email'}>\n";
print MAIL "To: $FORM{'to'}\n";
print MAIL "Subject: $FORM{'subject'}\n\n";
print MAIL <<EOF;
$yeshow

$FORM{'message'}


EOF
close (MAIL);

print "Location: $FORM{'sendpage'}\n\n";
exit;
  1. #!/usr/bin/perl
  2. $sendmail_location = "/usr/sbin/sendmail";
  4. read(STDIN, $formbuffer, $ENV{'CONTENT_LENGTH'});
  5. @formpairs = split(/&/, $formbuffer);
  6. foreach $formpair (@formpairs) {
  7.     ($formname, $formvalue) = split(/=/, $formpair);
  8.     $formvalue =~ tr/+/ /;
  9.     $formvalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  10.   $formvalue =~ s/<([^>]|\n)*>//g;
  11.     if ($FORM{$formname}) { $FORM{$formname} = $FORM{$formname}.",".$formvalue; }
  12.     else { $FORM{$formname} = $formvalue; }
  13. }
  16. foreach $require (split(/\,/,$FORM{'require'})) {
  17. if ($require eq "email" || $require eq "to") {
  18. unless ($FORM{$require}=~ /\@/ && $FORM{$require}=~ /\./) {
  19. $error .= "Error in $require.<BR>";
  20. }
  21. }
  22. unless ($FORM{$require}) {
  23. $error .= "Missing $require.<BR>";
  24. }
  25. }
  27. unless ($FORM{'sendpage'}) {
  28. $error .= "Missing confirmation page url<BR>";
  29. }
  31. if ($error) {
  32. print "Content-type: text/html\n\n";
  33. print qq(<CENTER><FONT COLOR="#000000"><B>Error</B><BR>-------------------------<BR>$error</FONT></CENTER>);
  34. exit;
  35. }
  37. if ($FORM{'jounaam'}) {
  38. $yeshow = qq(
  39. Naam, $FORM{'jounaam'}
  40. );
  41. }
  43. if ($FORM{'pakket'}) {
  44. $yeshow = qq(
  45. Pakket, $FORM{'pakket'}
  46. );
  47. }
  49. if ($FORM{'email'}) {
  50. $yeshow = qq(
  51. E-mail, $FORM{'email'}
  52. );
  53. }
  55. if ($FORM{'adres'}) {
  56. $yeshow = qq(
  57. Adres, $FORM{'adres'}
  58. );
  59. }
  61. if ($FORM{'postcode'}) {
  62. $yeshow = qq(
  63. Postcode, $FORM{'postcode'}
  64. );
  65. }
  67. if ($FORM{'plaats'}) {
  68. $yeshow = qq(
  69. Plaats, $FORM{'plaats'}
  70. );
  71. }
  73. if ($FORM{'land'}) {
  74. $yeshow = qq(
  75. Land, $FORM{'land'}
  76. );
  77. }
  79. if ($FORM{'telefoon'}) {
  80. $yeshow = qq(
  81. Telefoon, $FORM{'telefoon'}
  82. );
  83. }
  85. if ($FORM{'gsm'}) {
  86. $yeshow = qq(
  87. gsm, $FORM{'gsm'}
  88. );
  89. }
  91. if ($FORM{'message'}) {
  92. $yeshow = qw(
  93. From, $FORM{'message'}
  94. );
  95. }
  97. if ($FORM{'hoekomjehier'}) {
  98. $yeshow = qq(
  99. Hoe kom je hier, $FORM{'hoekomjehier'}
  100. );
  101. }
  103. open (MAIL, "|$sendmail_location -t") || die "Can't open $sendmail_location!\n";
  104. print MAIL "From: $FORM{'jounaam'} <$FORM{'email'}>\n";
  105. print MAIL "To: $FORM{'to'}\n";
  106. print MAIL "Subject: $FORM{'subject'}\n\n";
  107. print MAIL <<EOF;
  108. $yeshow
  110. $FORM{'message'}
  113. EOF
  114. close (MAIL);
  116. print "Location: $FORM{'sendpage'}\n\n";
  117. exit;


Maybe someone can find wrong code. Me i think the part with:
Code: [ Select ]
if ($FORM{'jounaam'}) {
$yeshow = qq(
Naam, $FORM{'jounaam'}
);
}

if ($FORM{'pakket'}) {
$yeshow = qq(
Pakket, $FORM{'pakket'}
);
}

if ($FORM{'email'}) {
$yeshow = qq(
E-mail, $FORM{'email'}
);
}

if ($FORM{'adres'}) {
$yeshow = qq(
Adres, $FORM{'adres'}
);
}

if ($FORM{'postcode'}) {
$yeshow = qq(
Postcode, $FORM{'postcode'}
);
}

if ($FORM{'plaats'}) {
$yeshow = qq(
Plaats, $FORM{'plaats'}
);
}

if ($FORM{'land'}) {
$yeshow = qq(
Land, $FORM{'land'}
);
}

if ($FORM{'telefoon'}) {
$yeshow = qq(
Telefoon, $FORM{'telefoon'}
);
}

if ($FORM{'gsm'}) {
$yeshow = qq(
gsm, $FORM{'gsm'}
);
}

if ($FORM{'message'}) {
$yeshow = qw(
From, $FORM{'message'}
);
}

if ($FORM{'hoekomjehier'}) {
$yeshow = qq(
Hoe kom je hier, $FORM{'hoekomjehier'}
);
}
  1. if ($FORM{'jounaam'}) {
  2. $yeshow = qq(
  3. Naam, $FORM{'jounaam'}
  4. );
  5. }
  7. if ($FORM{'pakket'}) {
  8. $yeshow = qq(
  9. Pakket, $FORM{'pakket'}
  10. );
  11. }
  13. if ($FORM{'email'}) {
  14. $yeshow = qq(
  15. E-mail, $FORM{'email'}
  16. );
  17. }
  19. if ($FORM{'adres'}) {
  20. $yeshow = qq(
  21. Adres, $FORM{'adres'}
  22. );
  23. }
  25. if ($FORM{'postcode'}) {
  26. $yeshow = qq(
  27. Postcode, $FORM{'postcode'}
  28. );
  29. }
  31. if ($FORM{'plaats'}) {
  32. $yeshow = qq(
  33. Plaats, $FORM{'plaats'}
  34. );
  35. }
  37. if ($FORM{'land'}) {
  38. $yeshow = qq(
  39. Land, $FORM{'land'}
  40. );
  41. }
  43. if ($FORM{'telefoon'}) {
  44. $yeshow = qq(
  45. Telefoon, $FORM{'telefoon'}
  46. );
  47. }
  49. if ($FORM{'gsm'}) {
  50. $yeshow = qq(
  51. gsm, $FORM{'gsm'}
  52. );
  53. }
  55. if ($FORM{'message'}) {
  56. $yeshow = qw(
  57. From, $FORM{'message'}
  58. );
  59. }
  61. if ($FORM{'hoekomjehier'}) {
  62. $yeshow = qq(
  63. Hoe kom je hier, $FORM{'hoekomjehier'}
  64. );
  65. }


init is the badass thing but i have no clue to fix that :(

If someone could help :(

Thanks in advance
  • Anonymous
  • Bot
  • No Avatar
  • Joined: 25 Feb 2008
  • Posts: ?
  • Loc: Ozzuland
  • Status: Online

Post September 17th, 2003, 3:54 pm

  • Bigwebmaster
  • Site Admin
  • Site Admin
  • User avatar
  • Joined: Dec 20, 2002
  • Posts: 8934
  • Loc: Seattle, WA & Phoenix, AZ
  • Status: Offline

Post September 17th, 2003, 11:40 pm

When you run this script are you getting errors? or what exactly is not working?
Ozzu Hosting - Want your website on a fast server like Ozzu?
  • ajdegans
  • Born
  • Born
  • No Avatar
  • Joined: Sep 17, 2003
  • Posts: 4
  • Loc: netherlands
  • Status: Offline

Post September 18th, 2003, 8:30 am

I get this error page

Code: [ Select ]
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, helpdesk@flexwebhosting.nl and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.



--------------------------------------------------------------------------------

Apache/1.3.27 Server at www.zerocom.nl Port 80
  1. Internal Server Error
  2. The server encountered an internal error or misconfiguration and was unable to complete your request.
  3. Please contact the server administrator, helpdesk@flexwebhosting.nl and inform them of the time the error occurred, and anything you might have done that may have caused the error.
  5. More information about this error may be available in the server error log.
  9. --------------------------------------------------------------------------------
  11. Apache/1.3.27 Server at www.zerocom.nl Port 80


I had it working somehow but then all form fields remained blanc. so the entire form was of no use... it didnt show up in the email. So basicly it funcioned but only a part...
  • bestempire
  • Newbie
  • Newbie
  • No Avatar
  • Joined: Sep 18, 2003
  • Posts: 7
  • Status: Offline

Post September 18th, 2003, 10:17 am

Check if you have CHMODed the file correctly and the path to Perl is right
  • ajdegans
  • Born
  • Born
  • No Avatar
  • Joined: Sep 17, 2003
  • Posts: 4
  • Loc: netherlands
  • Status: Offline

Post September 18th, 2003, 11:35 am

i checked chmod

its: -rwxr-xr-x (755)

In the manual for another email script it works...

Also the path to perl is correct :)
  • Bigwebmaster
  • Site Admin
  • Site Admin
  • User avatar
  • Joined: Dec 20, 2002
  • Posts: 8934
  • Loc: Seattle, WA & Phoenix, AZ
  • Status: Offline

Post September 18th, 2003, 7:16 pm

Do you have access to your server error log? More information should be there that would explain exactly why it does not work.
Ozzu Hosting - Want your website on a fast server like Ozzu?
  • ajdegans
  • Born
  • Born
  • No Avatar
  • Joined: Sep 17, 2003
  • Posts: 4
  • Loc: netherlands
  • Status: Offline

Post September 19th, 2003, 1:50 pm

i got this from the error_log

Code: [ Select ]
syntax error at bestelformulier.cgi line 97, near ")("
Execution of bestelformulier.cgi aborted due to compilation errors.

[Thu Sep 18 17:19:10 2003] [error] [client 62.131.20.6] Premature end of script headers: /home/virtual/site59/fst/var/www/cgi-bin/bestelformulier.cgi
  1. syntax error at bestelformulier.cgi line 97, near ")("
  2. Execution of bestelformulier.cgi aborted due to compilation errors.
  4. [Thu Sep 18 17:19:10 2003] [error] [client 62.131.20.6] Premature end of script headers: /home/virtual/site59/fst/var/www/cgi-bin/bestelformulier.cgi


i guess i wrote the .cgi wrong but i have no clue whats wrong since i hardly know cgi... :)

Page 1 of 1

Post Information

  • Total Posts in this topic: 7 posts
  • Users browsing this forum: No registered users and 111 guests
  • You cannot post new topics in this forum
  • You cannot reply to topics in this forum
  • You cannot edit your posts in this forum
  • You cannot delete your posts in this forum
  • You cannot post attachments in this forum
 
cron
 

© 2011 Unmelted, LLC. Ozzu® is a registered trademark of Unmelted, LLC.