Help for this page

Select Code to Download


  1. or download this
    #this is my sub for sending the email

...
_MAIL_
    close MAIL;
}
  2. or download this
    my $from = "noreply\@xxxxxx.com";
my $subject = "Membership";
...
my $text = "<html><head><title></title></head><body><a href=\"$link\">
+$link</a></body></html>";

$self->sendMail($email, $from, $subject, $text);
  3. or download this
    sub URLEncode {
    my $theURL = $_[0];
   $theURL =~ s/([\W])/"%" . uc(sprintf("%2.2x",ord($1)))/eg;
   return $theURL;
}