Hi All,
I wonder if you can help
I have a piece of software that when an email address is entered in the form it returns and displays the @ as a *.
I want it to display as the @ sign.
I think i have found the code that relates to this and have placed this below. Your help is much appreciated.
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split (/=/, $pair);
$value=~ tr/+/ /;
$value=~ s/%(..)/pack("C", hex($1))/eg;
$emailto = $value if ($name eq 'Email_Address');
$name=~tr/_/ /;
$value=~tr/[<>!@^\\]/*/;
if ($name =~ / secure$/i)
{
$secure[$si] = $value;
$slabel[$si] = substr($name,0,length($name)-7);
$si += 1;
}
else
{
$nonsecure[$nsi] = $value;
$nslabel[$nsi] = $name;
$nsi += 1;
}
}
Regards
MDJ1
http://www.isee-multimedia.co.uk
I wonder if you can help
I have a piece of software that when an email address is entered in the form it returns and displays the @ as a *.
I want it to display as the @ sign.
I think i have found the code that relates to this and have placed this below. Your help is much appreciated.
Code:
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split (/=/, $pair);
$value=~ tr/+/ /;
$value=~ s/%(..)/pack("C", hex($1))/eg;
$emailto = $value if ($name eq 'Email_Address');
$name=~tr/_/ /;
$value=~tr/[<>!@^\\]/*/;
if ($name =~ / secure$/i)
{
$secure[$si] = $value;
$slabel[$si] = substr($name,0,length($name)-7);
$si += 1;
}
else
{
$nonsecure[$nsi] = $value;
$nslabel[$nsi] = $name;
$nsi += 1;
}
}
Regards
MDJ1
http://www.isee-multimedia.co.uk