I have a little script(for the web) that I am playing with. All this script needs to do is take a group of specific params and make sure that there is info in there (not necessary if it is correct) and then take any other ones that may appear put them all into an email and send it. The mechanics of the script work fine but when I run it with other people my copy will sometimes get their data and vise-versa. It will sometimes duplicate the information inside the email. So far I have only noticed it when I hit refresh repeatedly, but I am affraid that this could become a "privacy" issue. I don't know if the CGI object is causing this, my script being stupid, or Apache. I have run it on different Apache configurations with the same problem. 
#!/usr/bin/perl
# Setting up my include files
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP;

undef $/;

# Creating objects
my $q = "";
$q = new CGI;



my $email_body = "";
my @params = $q->param;
my %param = {};
my %product_names = (    'product_a' => 'Product A',
            'product_b' => 'Product B');
            
foreach (@params) {
    $param{$_} = 1;
}

$email_body.="calling HANDLE_PERSONAL_INFORMATION\n";
HANDLE_PERSONAL_INFORMATION();
$email_body.="calling HANDLE_PRODUCTS\n";
HANDLE_PRODUCTS();
PRINT_HEADER();
SEND_EMAIL($email_body);
#print $email_body;
exit;



sub HANDLE_PRODUCTS {
    #this is where I will do all the product handling
    my @last_params = keys %param;
    $email_body.="Listing products selected:\n";
    foreach (@last_params) {  
    $email_body .= $product_names{$_} . "($_): " . $q->param($_) . "\n
+" if($q->param($_) != 0);
    }
}


sub HANDLE_PERSONAL_INFORMATION {
    my $order_num = $_[0];
    my @personal_information = ('name', 'street', 'city', 'state', 'zi
+p', 'phone', 'email');
    my @errors = HANDLE_INFORMATION(@personal_information);
    if(($errors[0] != 0) || ($#errors > 1)){
    # I have created an error please help
    PRINT_HEADER();
    HANDLE_ERRORS(@errors);
    PRINT_FOOTER();
    exit;
    }
}

sub HANDLE_INFORMATION {
    my @columns = @_;
    $email_body.="Inside HANDLE_INFORMATION with columns: @columns\n";
    my @errors = ();
    foreach (@columns){
    my $temp = $q->param("$_");
    if($temp ne ''){
        delete($param{$_});
        $email_body .= uc $_;
        $email_body .= ": $temp\n";
    } else {
        #debuging    
        push @errors, $_;
    }
    }
    if($#errors == 0){
        return 0;
    } else {
    return @errors;
    }
}

sub HANDLE_ERRORS {
    #######################################
    # This handles all the errors that    #
    # the user causes              #
    #######################################
    foreach (@_){
    my $temp = ucfirst($_);
    print "<font color=red>$temp is required</font><br>\n";
    }
    print "Please hit the back button and fill out all the fields\n";
}

sub PRINT_HEADER {
    print $q->header;
print <<EODUMP;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>PAGE TITLE</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1
+">
</head>

<body bgcolor="#FFFFFF" text="#000000">
HEADER GOES HERE


EODUMP


}

sub PRINT_FOOTER {
print <<EODUMP;
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>


EODUMP
    
}

sub SEND_EMAIL {
    my $smtp = Net::SMTP->new("my.email.server") or HANDLE_ERROR("Can 
+not submit.  System Down.");
    
    $smtp->mail ('email@domain');
    $smtp->to ('email@domain');
    $smtp->data();
    $smtp->datasend("To:  email\@domain\n");
    $smtp->datasend("From:  email\@domain\n");
    $smtp->datasend("Subject: Order\n");
    $smtp->datasend("\n");
    $smtp->datasend($email_body);
    $smtp->dataend();
    $smtp->quit;
    
    print "Your order has been submitted.<br>\n";
    print "You should be contacted shortly<br>\n";
    my @array = split(/\n/, $email_body);
    foreach(@array){
    print "$_<br>";
    }

}

[download]
I really think it is an Apache issue. Has anyone else had this? Thanks

--BigJoe

Learn patience, you must.
Young PerlMonk, craves Not these things.
Use the source Luke.

In reply to CGI or Apache Problem? by BigJoe

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.