Apache-Centipaid

 view release on metacpan or  search on metacpan

Centipaid.pm  view on Meta::CPAN

use Net::hostent;
use DBI;
use CGI::Cookie;



use strict;

$Apache::Centipaid::VERSION = '1.3.1';

sub need_to_pay($) {
	my $r = shift(@_);
	my $payto = $r->dir_config("acct") || 0;
	my $amount = $r->dir_config("amount") || 0;
	my $duration = $r->dir_config("duration") || 0;
	my $uri =  $r->uri;
	my $access =  $r->dir_config("access") || 0;
	my $domain =  $r->dir_config("domain") || 0;
	my $lang =  $r->dir_config("lang") || "en";
	my $https =  $r->dir_config("https") || "https://pay.centipaid.com";

RCS/Centipaid.pm,v  view on Meta::CPAN

use Net::hostent;
use DBI;
use CGI::Cookie;



use strict;

$Apache::Centipaid::VERSION = '1.2';

sub need_to_pay($) {
	my $r = shift(@@_);
	my $payto = $r->dir_config("acct") || 0;
	my $amount = $r->dir_config("amount") || 0;
	my $duration = $r->dir_config("duration") || 0;
	my $uri =  $r->uri;
	my $access =  $r->dir_config("access") || 0;
	my $domain =  $r->dir_config("domain") || 0;
	my $lang =  $r->dir_config("lang") || "en";
	my $https =  $r->dir_config("https") || "https://pay.centipaid.com";

RCS/Centipaid.pm,v  view on Meta::CPAN

a2 1
# Version $Revision:$
d4 1
a4 1
# $Id: Centipaid.pm,v 1.1 2002/11/15 20:06:45 adonis Exp adonis $
d39 1
a39 1
$Apache::Centipaid::VERSION = '1.00';
d41 1
a41 1
sub need_to_pay($$$$$$$$) {
d43 8
a50 7
	my $payto = shift(@@_);
	my $amount = shift(@@_);
	my $duration = shift(@@_);
	my $uri =  shift(@@_);
	my $access =  shift(@@_);
	my $domain =  shift(@@_);
	my $lang =  shift(@@_);
d53 1

RCS/Centipaid.pm,v  view on Meta::CPAN

a2 1
# Version 1.0 
d4 1
a4 1
# $Id:$
d17 1
a17 1
# http://www.cemtipaid.com/
d41 1
a41 1
sub need_to_pay($$$$$$$) {
d49 1
d52 1
a52 1
	$r->header_out(Location =>"http://www.centipaid.com/pay/?payto=$payto&amount=$amount&duration=$duration&access=$access&domain=$domain&path=$uri");
d85 1
d90 1
a90 1
my $enforce_ip = $r->dir_config("enforce_id") || 0;
d94 3
a96 2