10 use FS::UID qw(adminsuidsetup);
11 use FS::Record qw(qsearchs qsearch);
23 my $part_export = qsearchs('part_export' => { exportnum => $exportnum })
24 or die "can't find export $exportnum\n";
26 my $srs = $part_export->get_srs;
28 my $rv = $srs->make_request(
30 action => 'get_domains_by_expiredate',
33 exp_from => time2str('%Y-%m-%d', time() - 4*24*60*60),
34 exp_to => time2str('%Y-%m-%d', time() + 10*366*24*60*60),
40 die $rv->{response_text} unless $rv->{is_success};
42 my %domains = map { $_->{name}, $_ } @{ $rv->{attributes}->{exp_domains} };
46 # 'f_let_expire' => 'N',
47 # 'name' => 'wolfecpa.com',
48 # 'f_auto_renew' => 'N',
49 # 'expiredate' => '2017-09-16 04:00:00'
52 foreach my $svc_domain ( $part_export->svc_x ) {
53 unless ( exists($domains{$svc_domain->domain}) ) {
54 warn $svc_domain->domain. " not at registrar. No action taken.\n";
58 $domains{$svc_domain->domain}{seen} = 1;
60 unless ( $domains{$svc_domain->domain}{expiredate} =~
61 /^(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2}):(\d{2})/ )
63 warn "Can't parse expiration date for ". $svc_domain->domain. " skipping\n";
67 my ($year,$month,$day,$hour,$minute,$second) = ($1,$2,$3,$4,$5,$6);
68 my $exp = DateTime->new( year => $year,
74 time_zone => 'America/New_York',#timezone of opensrs
76 my $expiretime = $exp->epoch;
78 my $error = $part_export->is_supported_domain($svc_domain);
79 warn $error if $error;
83 my $whois = whois($svc_domain->domain);
84 $whois =~ /Record created on (\d{1,2}-\w{3}-\d{4})\./ && ($create = $1);
85 my $createtime = str2time($create);
87 unless ($createtime) {
88 $exp->subtract( 'years' => 1 );
89 $createtime = $exp->epoch;
93 my $cust_svc = $svc_domain->cust_svc;
94 my $cust_pkg = $cust_svc->cust_pkg;
96 warn $svc_domain->domain. " not linked to package. No action taken.\n";
100 foreach my $pkg ( grep { $_->pkgpart == $pkgpart } $cust_pkg->cust_main->ncancelled_pkgs ) {
101 next if $pkg->cust_svc; # only handles simple 1 domain/package case
102 $cust_svc->pkgnum($pkg->pkgnum);
103 $error = $cust_svc->replace;
104 die "error linking to empty package: $error\n" if $error;
109 unless ($cust_pkg->pkgpart == $pkgpart) {
110 $new = new FS::cust_pkg
111 { custnum => $cust_pkg->custnum, pkgpart => $pkgpart };
112 my $error = $new->insert;
113 die "error inserting package: $error\n" if $error;
114 $cust_svc->pkgnum($new->pkgnum);
115 $error = $cust_svc->replace;
116 die "error linking to new package: $error\n" if $error;
120 # set dates on package if it was empty?
121 $cust_pkg->bill($expiretime);
122 $cust_pkg->setup($createtime);
123 $error = $cust_pkg->replace;
124 die $error if $error;