File Coverage

blib/lib/Authen/ModAuthToken.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	5	8	62.5
condition	1	2	50.0
subroutine	6	6	100.0
pod	1	1	100.0
total	41	45	91.1

package Authen::ModAuthToken;
use strict;
use warnings;
require Exporter;
use Carp;
use URI::Escape;
use Digest::MD5 qw/md5_hex/;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw/generate_mod_auth_token/;

our $VERSION = '0.03';

sub generate_mod_auth_token
{
	my %args = @_;

	my $secret = $args{secret} or croak "Missing 'secret' key value";
	my $remote_addr = $args{remote_addr} || "";
	my $filepath = $args{filepath} or croak "Missing 'filepath' key value";
	die "'filepath' key value should start with '/'" unless substr($filepath,0,1) eq "/";

	my $hexTime = sprintf("%08x", time());
	my $token_md5 = md5_hex ( $secret . $filepath . $hexTime . $remote_addr);

	my $encoded_url = "";
	foreach my $part ( split '/', $filepath ) {
		next unless $part;
		$encoded_url .= "/" . uri_escape($part) ;
	}

	my $url = "/" . $token_md5 . "/" . $hexTime . $encoded_url;

	return $url;
}

# ABSTRACT: A Module to generate Mod-Auth-Token compatible URLs

1;
__END__