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 => { 'manual' => 1,
  87                      map { $_ => scalar($cgi->param($_)) } $cgi->param
  88                    },
  89            url  => $cgi->self_url,
  90 );
  91
  92 $error = $rv->{error};
  93
  94 if ( $error eq '_decline' ) {
  95   print_decline();
  96 } elsif ( $error ) {
  97   print_verify();
  98 } else {
  99   print_okay(%$rv);
 100 }
 101
 102
 103 sub print_verify {
 104
 105   $error = "Error: $error" if $error;
 106
 107   my $r = { $cgi->Vars, 'error' => $error };
 108
 109   $r->{self_url} = $cgi->self_url;
 110
 111   print $cgi->header( '-expires' => 'now' ),
 112         $verify_template->fill_in( PACKAGE => 'FS::SelfService::_signupcgi',
 113                                    HASH    => $r
 114                                  );
 115 }
 116
 117 sub print_decline {
 118   print $cgi->header( '-expires' => 'now' ),
 119         $decline_template->fill_in();
 120 }
 121
 122 sub print_okay {
 123   my %param = @_;
 124
 125   my @success_url = split '/', $cgi->url(-path);
 126   pop @success_url;
 127
 128   my $success_url  = join '/', @success_url;
 129   if ($param{session_id}) {
 130     my $session_id = lc($param{session_id});
 131     $success_url .= "/selfservice.cgi?action=myaccount&session=$session_id";
 132   } else {
 133     $success_url .= '/signup.cgi?action=success';
 134   }
 135
 136   print $cgi->header( '-expires' => 'now' ),
 137         $success_template->fill_in( HASH => { success_url => $success_url } );
 138 }
 139
 140 sub success_default { #html to use if you don't specify a success file
 141   <<'END';
 142 <HTML><HEAD><TITLE>Signup successful</TITLE></HEAD>
 143 <BODY BGCOLOR="#e8e8e8"><FONT SIZE=7>Signup successful</FONT><BR><BR>
 144 Thanks for signing up!
 145 <BR><BR>
 146 <SCRIPT TYPE="text/javascript">
 147   window.top.location="<%= $success_url %>";
 148 </SCRIPT>
 149 </BODY></HTML>
 150 END
 151 }
 152
 153 sub verify_default { #html to use for verification response
 154   <<'END';
 155 <HTML><HEAD><TITLE>Processing error</TITLE></HEAD>
 156 <BODY BGCOLOR="#e8e8e8"><FONT SIZE=7>Processing error</FONT><BR><BR>
 157 There has been an error processing your account.  Please contact customer
 158 support.
 159 </BODY></HTML>
 160 END
 161 }
 162
 163 sub decline_default { #html to use if there is a decline
 164   <<'END';
 165 <HTML><HEAD><TITLE>Processing error</TITLE></HEAD>
 166 <BODY BGCOLOR="#e8e8e8"><FONT SIZE=7>Processing error</FONT><BR><BR>
 167 There has been an error processing your account.  Please contact customer
 168 support.
 169 </BODY></HTML>
 170 END
 171 }
 172
 173 # subs for the templates...
 174
 175 package FS::SelfService::_signupcgi;
 176 use HTML::Entities;
 177