site/cgi-bin/affiliate.pl

   1 #!/usr/bin/perl -w
   2 # -d:ptkdb
   3 BEGIN { $ENV{DISPLAY} = '192.168.32.15:0.0' }
   4 use strict;
   5 use FindBin;
   6 use lib "$FindBin::Bin/modules";
   7 use BSE::DB;
   8 use BSE::Request;
   9 use BSE::Template;
  10 use Carp 'confess';
  11 use BSE::UI::Affiliate;
  12
  13 $SIG{__DIE__} = sub { confess $@ };
  14
  15 my $req = BSE::Request->new;
  16 my $result = BSE::UI::Affiliate->dispatch($req);
  17 BSE::Template->output_result($req, $result);
  18
  19 __END__
  20 =head1 NAME
  21
  22 affiliate.pl - set the affiliate code for new orders or display a user info page
  23
  24 =head1 SYNOPSIS
  25
  26 # display a user's information or affiliate page
  27 http://your.site.com/cgi-bin/affiliate.pl?id=I<number>
  28
  29 # set the stored affiliate code and refresh to the top of the site
  30 http://your.site.com/cgi-bin/affiliate.pl?a_set=1&id=I<code>
  31
  32 =head1 DESCRIPTION
  33
  34 This is implemented by L<BSE::UI::Affiliate>, please see that for
  35 complete documentation.
  36
  37 =head1 AUTHOR
  38
  39 Tony Cook <tony@develop-help.com>
  40
  41 =cut