Pulling Data From A Command Line

[lisaw]

Hello, I was hoping that you good people could help me. I am trying to figure out how to take data from a address line and insert it into a cgi program

http://www.domain.com/bin/sendnotice.cgi?category=ArtsArt&email=me@me.
+com&password=369728

Data trying to transfer into cgi:
catgory
email
password

Here's the program that I'm trying to transfer the data into, and the part that I can't figure out:

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

        $request{$name} = $value;


}


$url = "http://www.domain.com";
$refer = "http://www.domain.com";
$maillocation = "/usr/sbin/sendmail";

$stmail="$request{'category'}" ;
$tmail="$request{'email'}" ;
$tnmail="$request{'password'}" ;

Any help would be greatly apprecieted. Lisa

[zigdon]

Hate to give you the party line, but any reason why not to use CGI?:

use CGI;
use strict;
use warnings;

my $q = new CGI;
my $url = $q->url(-base);
my $refer = $ENV{HTTP_REFERER};
my $maillocation = "/usr/sbin/sendmail";

my $stmail=$q->param('category');
my $tmail=$q->param('email');
my $tnmail=$q->param('password');

Update: Aristotle is defenitly right, added strict, warnings and a bunch of my's.

-- Dan

[Aristotle]

Hate to give you the party line, but where's strict and warnings? ;-) Also, consider using the referer() method.

#!/usr/bin/perl -w
use strict;
use CGI;

my $q = new CGI;

my ($url, $ref, $sendmail) = (
    $q->url(-base),
    $q->referer,
    "/usr/sbin/sendmail",
);

# can't use list assingnment here because param()
# may return more than one value
my ($stmail, $tmail, $tnmail);
$stmail=$q->param('category');
$tmail=$q->param('email');
$tnmail=$q->param('password');

Makeshifts last the longest.

[rdfield]

use CGI or die;

rdfield