[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[cobalt-users] Raq2 and CGI scriopts

I'm trying to get a cgi script to run on a Raq2, that I previously had
running on a Qube2.
This is a simple mail-form script.

The CGIwrap gives an error that says:
CGIWrap Error: Script Execution Failed
CGIWrap encountered an error while attempting to execute this script:

Error Message: No such file or directory
Error Number: 2

Now,  the only files and directories that the script references are for
perl - #!/usr/bin/perl
and sendmail - $mailprog = '/usr/sbin/sendmail';

I've checked the server via ftp and telnet, and those are correct references
for perl and sendmail on the Raq, ie. they do exist in those paths.

So, what directory can't it find?

I've placed the entire script below, if anyone wants to try to figure that
one out, I'm open for suggestions.

Thanks

Eric

The CGI script mail-form.cgi

#!/usr/bin/perl
#
# mail-form cgi
# © 2000 Jackie Hamilton - http://www.cgi101.com/
#
# Quick and dirty Web form processing script.  Emails the data
# to the recipient.
#
# change this to the proper location of sendmail on your system:
$mailprog = '/usr/sbin/sendmail';

# change this to your email address:
$recipient = 'dbstudios1028@xxxxxxx';

# change this to your URL:
$homepage = "http://www.danblackstudios.com/";;

# everything below this shouldn't need changing.
#
# Print out a content-type for HTTP/1.0 compatibility
print "Content-type:text/html\n\n";

# Get the input and grok it into something legible

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$postinput = $buffer;
$postinput =~ s/&/\n/g;
$postinput =~ s/\+/ /g;
$postinput =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig;

# Now send mail to $recipient

open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
print MAIL "To: $recipient\n";
print MAIL "From: webserver\n";
print MAIL "Subject: Dan Black Studios Mail Form\n\n";
print MAIL $postinput;
print MAIL "\n\n";
print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
print MAIL "HTTP From: $ENV{'HTTP_FROM'}\n";
print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
close (MAIL);

# Print a thank-you page
print <<EndHTML;
<html>
<head>
<Title>Thank you</Title>
</Head>
<body>
<H2>Thank you for writing!</H2>
Thank you for contacting us.  Please Return to our
<a href="$homepage">home page.</a><p>
</body>
</html>
EndHTML

# the end.