What you've revealed in this post is that you are emailing credit card information. Although your page is likely to be on a secure server, email is not secure. Anyone can attach a covert listening device to any one of the thousands of miles of wires, or hack a server and sniff the plain data being transferred, and steal this credit card information.
Even if you think this is secure, the credit card companies will not. Any merchant that uses non-PCI Compliant methods to capture or store credit card information can be liable for charges in arrears as well as hefty fines for violation of their original merchant agreement, which invariably outlines restriction on capture and storage. So if the answer is "well, this is what the customer wants to do" I say to you, it's your responsibility to inform them of the gravity of the situation.
To address the original problem, I don't use free scripts but it should be a simple thing to find the print loop and do something like:
if ($form{'credit_card_info'}) { next; }
But this is the least of the problems here. Sorry to bear bad news.
As for your suggestion on the code, I tried to apply this but am not getting close to making it work. The following is the code snippet from the script of the section that handles the html success page. Could you please provide any more detailed help to achieve blocking a specific name field from printing on the success page? Your help would be greatly appreciated.
<start code snippet>
=item success_page_fields ()
Outputs success page HTML output for each input field.
=cut
sub success_page_fields {
my ($self) = @_;
foreach my $f (@{ $self->{Field_Order} }) {
my $val = (defined $self->{Form}{$f}? $self->{Form}{$f} : '');
$self->success_page_field( $self->escape_html($f), $self->escape_html($val) );
}
}
=item success_page_field ( NAME, VALUE ) {
Outputs success page HTML for a single input field. NAME and VALUE
are the HTML escaped field name and value.
=cut
sub success_page_field {
my ($self, $name, $value) = @_;
print "<p><b>$name:</b> $value</p>\n";
}
<end code snippet>
Thank you,
Randal
try something like this:
sub success_page_fields {
my ($self) = @_;
foreach my $f (@{ $self->{Field_Order} }) {
next if ($f eq 'card_number');
my $val = (defined $self->{Form}{$f}? $self->{Form}{$f} : '');
$self->success_page_field( $self->escape_html($f), $self->escape_html($val) );
}
}
That did the trick.
Thank you so much for your assistance and time. I really do appreciate it.
Thanks,
Randal
