Help for this page

Select Code to Download


  1. or download this
    $addr="$name <$email>";
use Encode qw/encode/;
$to = encode('MIME-Q', $to);
$subject = encode('MIME-Q', $subject);
  2. or download this
    $tmpbody=~s/\%NAME\%/$name/sg;
  3. or download this
    $extra1 = DBI::data_string_desc($name);
$extra2 = DBI::data_string_desc($body);
$tmpbody=~s/\%NAME\%/$name."<br>".$extra1."<br>".$extra2/sg;