view release on metacpan or  search on metacpan

eg/mod_auth_token_example.pl  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use Carp;
use Getopt::Long;
use Authen::ModAuthToken qw/generate_mod_auth_token/;
use File::Basename;

sub show_help();

my $server = "http://my.server.com";
my $prefix = "/protected";
my $secret = "FlyingMoneys";
my $file   = undef;
my $remote_addr = undef;
my $apache = undef;

my $verbose = 0 ;

eg/mod_auth_token_example.pl  view on Meta::CPAN

my $token = generate_mod_auth_token(
	secret => $secret,
	filepath => $file,
	remote_addr => $remote_addr) ;

my $url = $server . $prefix . $token ;

print $url, "\n";


sub show_help()
{
	my $base=basename($0);
	print<<EOF;
Authen::ModAuthToken example
Copyright (C) 2012 by A. Gordon <gordon at cshl.edu>

Usage:
   $base [OPTIONS]

Options: