use strict;
use vars qw( $DEBUG $me );
+use subs qw( _myaccount_cache );
use Data::Dumper;
use Tie::RefHash;
+use Digest::SHA qw(sha512_hex);
use FS::Conf;
use FS::Record qw(qsearch qsearchs dbdef);
use FS::CGI qw(popurl);
map { $_ => $packet->{$_} } qw(
salesnum
last first company daytime night fax mobile
- ss
+ ss stateid stateid_state
+
+ payby
+ payinfo paycvv paydate payname paystate paytype
+ paystart_month paystart_year payissue
+ payip
),
} );
my $session_id;
do {
- $session_id = sha1_hex(time(). {}. rand(). $$)
+ $session_id = sha512_hex(time(). {}. rand(). $$)
} until ( ! defined _myaccount_cache->get($session_id) ); #just in case
- _cache->set( $session_id, $session, '1 hour' ); # 1 hour?
+ _myaccount_cache->set( $session_id, $session, '1 hour' ); # 1 hour?
my %return = ( 'error' => '',
'signup_service' => $svc_x,