Help for this page

Select Code to Download


  1. or download this
    use Digest::MD5 qw(md5_hex);
my $ip=$r->connection->remote_ip();
...
my $sid=md5_hex("$ip;;$url;;$basekey");
$url="http://www.siteb.com$url?sid=$sid";
$r->redirect($url);
  2. or download this
    use Digest::MD5 qw(md5_hex);
my $sid=$ARGS{sid};
...
if ($sid eq $vsid) {
   $m->call_next();
}