• 0

[CGI] Form Help Please

Asked by hockeyhero4,

 Share

Question

Neowinian

hockeyhero4

Posted
Posted

Hello-

I wrote a cgi script for a contact form and it isn't working.

I would like to know if anyone could offer me some help please?

Here's the html part of the form:

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

<form action="cgi/gdform.cgi" method="post">

<font class="trudy_bluebodytext">

First Name:<INPUT TYPE="text" NAME="first" SIZE="20"><br>

Last Name:<INPUT TYPE="text" NAME="last" SIZE="20"><br>

Phone Number:<INPUT TYPE="text" NAME="phone" SIZE="11"><br>

E-Mail:<input type="text" name="email" /><br>

Please type your message/question below:<br>

<TEXTAREA NAME="comment" ROWS="15 here" COLS="70 here"></TEXTAREA>

<br><br><center>

<INPUT TYPE="submit"><INPUT TYPE="reset">

</center>

</form>

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

I don't think the problem is in the HTML...I think it's below in the actual script.

Here's the cgi script:

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

#!/usr/bin/perl

@to = qw(

michael@blackwellmultimedia.com

trudy.krisher@sinclair.edu

);

$rootdir = "/cgi";

$dbase = "$rootdir/data/trudy.txt";

$date = `date \"+%d %h %Y\"`;

chop($date);

$time = 'date';

$cn = time;

$TITLE = "QCC: TrudyKrisher.com";

&initb;

#form_fields

$first = $FORM{'first'};

$last = $FORM{'last'};

$phone = $FORM{'phone'};

$email = $FORM{'email'};

$comment = $FORM{'comment'};

#check for missing field data

&missing_entry() unless $FORM{first};

&missing_entry() unless $FORM{last};

&missing_entry() unless $FORM{phone};

&missing_entry() unless $FORM{email};

&check_email;

#write the data to a file

&create_dbase;

#shift(@fields);

select(STDOUT); $| = 1;

&hdr;

print << "EOHTML";

<span class="hed">Thank you</span>

<P>Your request has been received.

EOHTML

&ftr;

# close(STDOUT);

if ($pid = fork) {

close(STDIN);

close(STDOUT);

} elsif ($pid == 0) {

#open(STDERR, ">>logs/fferrlog");

open(STDOUT, ">&STDERR");

warn "log test";

for $_to (@to) {

warn "log $_to\n";

next unless $_to;

unless (open(SM,"|/usr/sbin/sendmail -t -odb")) {

warn $!;

open(SM, ">&STDERR");

}

print SM $msg = "From: $email

Errors-To: $error

Return-Path: $error

To: $_to

Subject: TrudyKrisher.com

";

print SM "

Thank you for submitting your request. Your information has been recorded as the following.

Name: $FORM{first} $FORM{last}

Phone: $FORM{phone}

Email: $FORM{email}

Message/Question: $FORM{comment}

Thank you!

Trudy Krisher

www.trudykrisher.com

";

close(SM);

warn "to: $_to, from: $from, date: ".localtime()."\n";

}

}

else {

print "<HR><P>\n";

print "Form input was not processed. Please mail your ";

print "remarks to $to_field\n";

}

sub create_dbase {

open(DBASE, ">>$dbase") || die "I can't create $dbase\n";

print DBASE "$FORM{first}|$FORM{last}|$FORM{phone}|$FORM{email}|$FORM{comment}EOF\n";

close(DBASE);

}

sub email_error {

$url= "http://www.trudykrisher.com/error.html";

print "Location:$url\n\n";

exit;

}

sub missing_entry {

$url= "http://www.trudykrisher.com/required.html";

print "Location:$url\n\n";

exit;

}

sub check_email {

if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||$email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/) {

&email_error;

}

else {

return 1;

}

}

sub initb {

if ($ENV{'REQUEST_METHOD'} eq 'POST') {

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

}

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {

($name, $value) = split(/=/, $pair);

next if $name eq "name";

$value =~ tr/+/ /;

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~ s/^\s+//;

$value =~ s/\s+$//;

$value =~ s/[\n]/ /g;

$value =~ s/[\r]/ /g;

$value =~ s/\t+/ /g;

$value = "yes" if $value eq "value";

if ($value ne "") {

if ($name eq 'msga') {

$FORM{$name} .= $value."\t";

}

elsif ($name eq 'msg') {

$FORM{$name} .= "\t". $value;

}

elsif ($name eq 'room_date') {

$FORM{$name} .= " ". $value;

}

else {

$FORM{$name} = $value;

}

push(@fields, $name);

}

}

}

sub hdr {

print "Content-type: text/html\n";

print <<"EOHTML";

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

<HEAD>

<meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">

<title>THANK YOU</TITLE>

</HEAD>

<BODY>

<P><CENTER>

<!--START CONTENT-->

Trudy Krisher

EOHTML

}

########################

sub ftr {

print << "EOHTML";

<!--END CONTENT-->

</CENTER>

</BODY>

</HTML>

EOHTML

}

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

Any help you may offer would be greatly appreciated. Thank you very much.

To get ahold of me personally, please email Michael@BlackwellMultimedia.com

Link to comment
https://www.neowin.net/forum/topic/483270-cgi-form-help-please/
Share on other sites

1 answer to this question

Recommended Posts

  • 0
Rising Star

XgD

Posted
Posted

If the script runs but doesn't grab the form fields, try changing the method=... line in your HTML to have POST in all capitals, as you compare it to "POST" later on in the cgi script:

if ($ENV{'REQUEST_METHOD'} eq 'POST') {

Also, use code tags

Otherwise, give a better explanation as to the problem.

XgD

This topic is now closed to further replies.
 Share
Go to question listing

  • Recently Browsing   0 members

    • No registered users viewing this page.

  • Posts

    • Sony's region restrictions on PC begin lifting, bringing back PlayStation ports for everyone

      By Dolan · Posted

      Awesome! Just in time before Steam summer sale.
    • Elon Musk once again claims Tesla robotaxis are coming soon

      By ad47uk · Posted

      Still won't get me in one, I prefer a human driver.
    • Sony's region restrictions on PC begin lifting, bringing back PlayStation ports for everyone

      By LoneWolfSL · Posted

      Sony's region restrictions on PC begin lifting, bringing back PlayStation ports for everyone by Pulasthi Ariyasinghe 2023 was when Sony began its region-locking initiative on the PC platform. The move affected over 100 countries, restricting the purchase of popular PlayStation ports and live service experiences for anyone in the regions outside of Sony's choosing. However, it seems the company is finally opening up access to these countries, starting today. While Sony has made no official announcements, which was also how the original restrictions came to be, users in these regions have begun seeing most of the publisher's catalog reappearing on their Steam store platforms. The change can be seen on affected games' SteamDB histories as well. For example, on Helldivers 2, a popular but blocked multiplayer game from before, it can be seen that the 'PurchaseRestrictedCountries' flag has been removed from a large number of countries just a few hours ago, on June 13. The controversy began in 2023 when Sony began requiring PlayStation Network accounts for their PC ports, even for games that did not have any online elements. Following an uproar, especially regarding Helldivers 2, the company reversed course and made it an optional account on PC. Unfortunately, Sony did not lift the regional restrictions it placed on the countries that do not officially support PlayStation Network accounts, which amounts to well over 100 regions. As for what may have changed the company's mind about this, Stellar Blade may have played a big role. The Sony-published action game by Shift Up just released on PC to an absolutely massive audience, with it already touting almost 200,000 concurrent players on the Steam platform. While its demo was originally region restricted, the developer had worked with Sony to remove these locks and launch the game globally. Just a few days later, almost the entire PlayStation catalog has gone through the same process. Interestingly, while massive PlayStation titles like Helldivers 2, God of War Ragnarok, Spider-Man 2, and The Last of Us Part II Remastered are back to being available across most regions, it seems Ghost of Tsushima is still under the original restrictions. It's unclear why the title has not joined the rest in shedding its locks.
    • Microsoft launches Copilot Vision on Windows, allowing AI to see what is on your screen

      By ad47uk · Posted

      Easy to switch off Ai on macOS, just a couple of clicks, something that is not possible on Windows, it is just hidden. Even Android it is possible at the moment to switch off AI, by not installing the app and keeping Google Assistant as it is. Not really possible to use anything else but IOS or Android for smartphones, since that is all that is available, unless I go for a non-smart phone. My problem, certainly with Windows, is that Ms thinks we all want to use AI and don't make it easy to disable. I only use my Windows machine for games these days and will be staying with Windows 10. I use my Mac for everything else, at least Apple gives the choice as i said above to turn AI off.
    • AMD quietly releases a new budget-friendly AM4 processor with 3D cache

      By Suurin_ · Posted

      I think X3D is distinct from "X" alone, weren't most early X3D chips clock locked?

  • Recent Achievements

    • Explorer
      Case_f went up a rank
      Explorer
    • Conversation Starter
      Jamie Smith earned a badge
      Conversation Starter
    • First Post
      NeoToad777 earned a badge
      First Post
    • Week One Done
      JoeV earned a badge
      Week One Done
    • One Month Later
      VAT Services in UAE earned a badge
      One Month Later

  • Popular Contributors

    1. 1
      +primortal
      537
    2. 2
      ATLien_0
      230
    3. 3
      +Edouard
      154
    4. 4
      +FloatingFatMan
      149
    5. 5
      Michael Scrip
      108
    Show More

  • Tell a friend

    Love Neowin? Tell a friend!