FS/FS/ClientAPI/MyAccount.pm

   1 package FS::ClientAPI::MyAccount;
   2
   3 use strict;
   4 use vars qw($cache);
   5 use Digest::MD5 qw(md5_hex);
   6 use Date::Format;
   7 use Cache::SharedMemoryCache; #store in db?
   8 use FS::CGI qw(small_custview); #doh
   9 use FS::Conf;
  10 use FS::Record qw(qsearchs);
  11 use FS::svc_acct;
  12 use FS::svc_domain;
  13 use FS::cust_main;
  14 use FS::cust_bill;
  15
  16 use FS::ClientAPI; #hmm
  17 FS::ClientAPI->register_handlers(
  18   'MyAccount/login'         => \&login,
  19   'MyAccount/customer_info' => \&customer_info,
  20   'MyAccount/invoice'       => \&invoice,
  21   'MyAccount/cancel'        => \&cancel,
  22   'MyAccount/payment_info'  => \&payment_info,
  23 );
  24
  25 #store in db?
  26 my $cache = new Cache::SharedMemoryCache();
  27
  28 #false laziness w/FS::ClientAPI::passwd::passwd (needs to handle encrypted pw)
  29 sub login {
  30   my $p = shift;
  31
  32   my $svc_domain = qsearchs('svc_domain', { 'domain' => $p->{'domain'} } )
  33     or return { error => "Domain not found" };
  34
  35   my $svc_acct =
  36     ( length($p->{'password'}) < 13
  37       && qsearchs( 'svc_acct', { 'username'  => $p->{'username'},
  38                                  'domsvc'    => $svc_domain->svcnum,
  39                                  '_password' => $p->{'password'}     } )
  40     )
  41     || qsearchs( 'svc_acct', { 'username'  => $p->{'username'},
  42                                'domsvc'    => $svc_domain->svcnum,
  43                                '_password' => $p->{'password'}     } );
  44
  45   unless ( $svc_acct ) { return { error => 'Incorrect password.' } }
  46
  47   my $session = {
  48     'svcnum' => $svc_acct->svcnum,
  49   };
  50
  51   my $cust_pkg = $svc_acct->cust_svc->cust_pkg;
  52   if ( $cust_pkg ) {
  53     my $cust_main = $cust_pkg->cust_main;
  54     $session->{'custnum'} = $cust_main->custnum;
  55   }
  56
  57   my $session_id;
  58   do {
  59     $session_id = md5_hex(md5_hex(time(). {}. rand(). $$))
  60   } until ( ! defined $cache->get($session_id) ); #just in case
  61
  62   $cache->set( $session_id, $session, '1 hour' );
  63
  64   return { 'error'      => '',
  65            'session_id' => $session_id,
  66          };
  67 }
  68
  69 sub customer_info {
  70   my $p = shift;
  71   my $session = $cache->get($p->{'session_id'})
  72     or return { 'error' => "Can't resume session" }; #better error message
  73
  74   my %return;
  75
  76   my $custnum = $session->{'custnum'};
  77
  78   if ( $custnum ) { #customer record
  79
  80     my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
  81       or return { 'error' => "unknown custnum $custnum" };
  82
  83     $return{balance} = $cust_main->balance;
  84
  85     my @open = map {
  86                      {
  87                        invnum => $_->invnum,
  88                        date   => time2str("%b %o, %Y", $_->_date),
  89                        owed   => $_->owed,
  90                      };
  91                    } $cust_main->open_cust_bill;
  92     $return{open_invoices} = \@open;
  93
  94     my $conf = new FS::Conf;
  95     $return{small_custview} =
  96       small_custview( $cust_main, $conf->config('defaultcountry') );
  97
  98     $return{name} = $cust_main->first. ' '. $cust_main->get('last');
  99
 100   } else { #no customer record
 101
 102     my $svc_acct = qsearchs('svc_acct', { 'svcnum' => $session->{'svcnum'} } )
 103       or die "unknown svcnum";
 104     $return{name} = $svc_acct->email;
 105
 106   }
 107
 108
 109   return { 'error'          => '',
 110            'custnum'        => $custnum,
 111            %return,
 112          };
 113
 114 }
 115
 116 sub payment_info {
 117   my $p = shift;
 118   my $session = $cache->get($p->{'session_id'})
 119     or return { 'error' => "Can't resume session" }; #better error message
 120
 121   my %return;
 122
 123   my $custnum = $session->{'custnum'};
 124
 125   my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
 126     or return { 'error' => "unknown custnum $custnum" };
 127
 128   $return{balance} = $cust_main->balance;
 129
 130   $return{payname} = $cust_main->payname
 131                      || $cust_main->first. ' '. $cust_main->get('last');
 132
 133   $return{$_} = $cust_main->get($_) for qw(address1 address2 city state zip);
 134
 135   if ( $cust_main->payby =~ /^(CARD|DCRD)$/ ) {
 136     #$return{card_type} =
 137     $return{payinfo} = $cust_main->payinfo;
 138     #exp date (month, year)
 139
 140     #CARD vd DCRD remembering
 141   }
 142
 143   #list all states & counties
 144
 145   return { 'error' => '',
 146            %return,
 147          };
 148
 149 };
 150
 151
 152 sub invoice {
 153   my $p = shift;
 154   my $session = $cache->get($p->{'session_id'})
 155     or return { 'error' => "Can't resume session" }; #better error message
 156
 157   my $custnum = $session->{'custnum'};
 158
 159   my $invnum = $p->{'invnum'};
 160
 161   my $cust_bill = qsearchs('cust_bill', { 'invnum'  => $invnum,
 162                                           'custnum' => $custnum } )
 163     or return { 'error' => "Can't find invnum" };
 164
 165   #my %return;
 166
 167   return { 'error'        => '',
 168            'invnum'       => $invnum,
 169            'invoice_text' => join('', $cust_bill->print_text ),
 170          };
 171
 172 }
 173
 174 sub cancel {
 175   my $p = shift;
 176   my $session = $cache->get($p->{'session_id'})
 177     or return { 'error' => "Can't resume session" }; #better error message
 178
 179   my $custnum = $session->{'custnum'};
 180
 181   my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
 182     or return { 'error' => "unknown custnum $custnum" };
 183
 184   my @errors = $cust_main->cancel;
 185
 186   my $error = scalar(@errors) ? join(' / ', @errors) : '';
 187
 188   return { 'error' => $error };
 189
 190 }
 191
 192 1;
 193