fs_selfservice/FS-SelfService/cgi/verify.cgi

   1 #!/usr/bin/perl -T
   2 #!/usr/bin/perl -Tw
   3
   4 use strict;
   5 use vars qw( $cgi $self_url $error
   6              $verify_html $verify_template
   7              $success_html $success_template
   8              $decline_html $decline_template
   9            );
  10
  11 use subs qw( print_verify print_okay print_decline
  12              verify_default success_default decline_default
  13            );
  14 use CGI;
  15 use Text::Template;
  16 use FS::SelfService qw( capture_payment );
  17
  18 $verify_html =  -e 'verify.html'
  19                   ? 'verify.html'
  20                   : '/usr/local/freeside/verify.html';
  21 $success_html = -e 'verify_success.html'
  22                   ? 'success.html'
  23                   : '/usr/local/freeside/success.html';
  24 $decline_html = -e 'verify_decline.html'
  25                   ? 'decline.html'
  26                   : '/usr/local/freeside/decline.html';
  27
  28
  29 if ( -e $verify_html ) {
  30   my $verify_txt = Text::Template::_load_text($verify_html)
  31     or die $Text::Template::ERROR;
  32   $verify_txt =~ /^(.*)$/s; #untaint the template source - it's trusted
  33   $verify_txt = $1;
  34   $verify_template = new Text::Template ( TYPE => 'STRING',
  35                                           SOURCE => $verify_txt,
  36                                           DELIMITERS => [ '<%=', '%>' ],
  37                                         )
  38     or die $Text::Template::ERROR;
  39 } else {
  40   $verify_template = new Text::Template ( TYPE => 'STRING',
  41                                           SOURCE => &verify_default,
  42                                           DELIMITERS => [ '<%=', '%>' ],
  43                                         )
  44     or die $Text::Template::ERROR;
  45 }
  46
  47 if ( -e $success_html ) {
  48   my $success_txt = Text::Template::_load_text($success_html)
  49     or die $Text::Template::ERROR;
  50   $success_txt =~ /^(.*)$/s; #untaint the template source - it's trusted
  51   $success_txt = $1;
  52   $success_template = new Text::Template ( TYPE => 'STRING',
  53                                            SOURCE => $success_txt,
  54                                            DELIMITERS => [ '<%=', '%>' ],
  55                                          )
  56     or die $Text::Template::ERROR;
  57 } else {
  58   $success_template = new Text::Template ( TYPE => 'STRING',
  59                                            SOURCE => &success_default,
  60                                            DELIMITERS => [ '<%=', '%>' ],
  61                                          )
  62     or die $Text::Template::ERROR;
  63 }
  64
  65 if ( -e $decline_html ) {
  66   my $decline_txt = Text::Template::_load_text($decline_html)
  67     or die $Text::Template::ERROR;
  68   $decline_txt =~ /^(.*)$/s; #untaint the template source - it's trusted
  69   $decline_txt = $1;
  70   $decline_template = new Text::Template ( TYPE => 'STRING',
  71                                            SOURCE => $decline_txt,
  72                                            DELIMITERS => [ '<%=', '%>' ],
  73                                          )
  74     or die $Text::Template::ERROR;
  75 } else {
  76   $decline_template = new Text::Template ( TYPE => 'STRING',
  77                                            SOURCE => &decline_default,
  78                                            DELIMITERS => [ '<%=', '%>' ],
  79                                          )
  80     or die $Text::Template::ERROR;
  81 }
  82
  83 $cgi = new CGI;
  84
  85 my $rv = capture_payment(
  86            data => { map { $_ => scalar($cgi->param($_)) } $cgi->param },
  87            url  => $cgi->self_url,
  88 );
  89
  90 $error = $rv->{error};
  91
  92 if ( $error eq '_decline' ) {
  93   print_decline();
  94 } elsif ( $error ) {
  95   print_verify();
  96 } else {
  97   print_okay(%$rv);
  98 }
  99
 100
 101 sub print_verify {
 102
 103   $error = "Error: $error" if $error;
 104
 105   my $r = { $cgi->Vars, 'error' => $error };
 106
 107   $r->{self_url} = $cgi->self_url;
 108
 109   print $cgi->header( '-expires' => 'now' ),
 110         $verify_template->fill_in( PACKAGE => 'FS::SelfService::_signupcgi',
 111                                    HASH    => $r
 112                                  );
 113 }
 114
 115 sub print_decline {
 116   print $cgi->header( '-expires' => 'now' ),
 117         $decline_template->fill_in();
 118 }
 119
 120 sub print_okay {
 121   my %param = @_;
 122
 123   my @success_url = split '/', $cgi->url(-path);
 124   pop @success_url;
 125
 126   my $success_url  = join '/', @success_url;
 127   if ($param{session_id}) {
 128     my $session_id = lc($param{session_id});
 129     $success_url .= "/selfservice.cgi?action=myaccount&session=$session_id";
 130   } else {
 131     $success_url .= '/signup.cgi?action=success';
 132   }
 133
 134   print $cgi->header( '-expires' => 'now' ),
 135         $success_template->fill_in( HASH => { success_url => $success_url } );
 136 }
 137
 138 sub success_default { #html to use if you don't specify a success file
 139   <<'END';
 140 <HTML><HEAD><TITLE>Signup successful</TITLE></HEAD>
 141 <BODY BGCOLOR="#e8e8e8"><FONT SIZE=7>Signup successful</FONT><BR><BR>
 142 Thanks for signing up!
 143 <BR><BR>
 144 <SCRIPT TYPE="text/javascript">
 145   window.top.location="<%= $success_url %>";
 146 </SCRIPT>
 147 </BODY></HTML>
 148 END
 149 }
 150
 151 sub verify_default { #html to use for verification response
 152   <<'END';
 153 <HTML><HEAD><TITLE>Processing error</TITLE></HEAD>
 154 <BODY BGCOLOR="#e8e8e8"><FONT SIZE=7>Processing error</FONT><BR><BR>
 155 There has been an error processing your account.  Please contact customer
 156 support.
 157 </BODY></HTML>
 158 END
 159 }
 160
 161 sub decline_default { #html to use if there is a decline
 162   <<'END';
 163 <HTML><HEAD><TITLE>Processing error</TITLE></HEAD>
 164 <BODY BGCOLOR="#e8e8e8"><FONT SIZE=7>Processing error</FONT><BR><BR>
 165 There has been an error processing your account.  Please contact customer
 166 support.
 167 </BODY></HTML>
 168 END
 169 }
 170
 171 # subs for the templates...
 172
 173 package FS::SelfService::_signupcgi;
 174 use HTML::Entities;
 175