From owner-freebsd-questions@FreeBSD.ORG  Wed Oct  1 10:04:37 2003
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
Delivered-To: freebsd-questions@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id C390516A4BF
	for <freebsd-questions@freebsd.org>;
	Wed,  1 Oct 2003 10:04:37 -0700 (PDT)
Received: from remt21.cluster1.charter.net (remt21.cluster1.charter.net
	[209.225.8.31])	by mx1.FreeBSD.org (Postfix) with ESMTP id CAF8D4400E
	for <freebsd-questions@freebsd.org>;
	Wed,  1 Oct 2003 10:04:33 -0700 (PDT)
	(envelope-from chowse@charter.net)
Received: from [66.168.145.25] (HELO moe)
	by remt21.cluster1.charter.net (CommuniGate Pro SMTP 4.0.6)
	with ESMTP id 10150179 for freebsd-questions@freebsd.org;
	Wed, 01 Oct 2003 13:04:32 -0400
From: "Charles Howse" <chowse@charter.net>
To: <freebsd-questions@freebsd.org>
Date: Wed, 1 Oct 2003 12:04:27 -0500
Message-ID: <005901c3883e$12780030$04fea8c0@moe>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook, Build 10.0.2616
Importance: Normal
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Subject: Perl cgi redirect not working
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.1
Precedence: list
List-Id: User questions <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>,
	<mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>,
	<mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 01 Oct 2003 17:04:37 -0000

Hi,
I'm *copying an example* perl cgi script from "FreeBSD Unleashed" pp.
699.
I have 2 issues.

1. The redirect on the last line isn't working.  It opens a blank page
and prints the text "Location: http://howse.no-ip.org/thanks.shtml".
That's not what I want.  I want to open the page thanks.shtml.

2. I can't see the text in the book clear enough to know whether the
characters I've marked with ^ should be dashes or tildies.

I've Googled for the redirect, and tried a few examples, no joy.
Would someone be kind enough to help?


#!/usr/bin/perl

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs =3D split(/&/, $buffer);
foreach $pair (@pairs)
{
    ($name, $value) =3D split(/=3D/, $pair);
    $value =3D~ tr/+/ /;
            ^
    $value =3D~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
            ^
    $value =3D~ s/~!/ ~!/g;
            ^   ^   ^=20
    $FORM{$name} =3D $value;
}

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

open (MAIL,"| /usr/sbin/sendmail -oi -t");
print MAIL "From: $FORM{'name'} <$FORM{'email'}>\n";
print MAIL "To: charles\n";
print MAIL "Subject: Contact form output\n\n";
print MAIL "$FORM{'name'}, from $ENV{'REMOTE_HOST'}
($ENV{'REMOTE_ADDR'}), has sent you the following comment:\n\n";
print MAIL "$FORM{'comment'}\n";
close (MAIL);

print "Location: http://howse.no-ip.org/thanks.shtml\n\n";



Thanks,
Charles

Got a computer with idle CPU time?
Join SETI@home and help make history!
http://setiathome.ssl.berkeley.edu/