use FS::cust_credit;
use FS::cust_refund;
use FS::cust_pkg;
+use FS::cust_contact;
=head1 NAME
Used for determining FCC 477 reporting
+=item ship_address1
+
+=item ship_address2
+
+=item ship_city
+
+=item ship_county
+
+=item ship_state
+
+=item ship_zip
+
+=item ship_country
+
+Optional shipping address fields. If sending an optional shipping address,
+ship_address1, ship_city, ship_state and ship_zip are required.
+
=item daytime
Daytime phone number
#same for refnum like signup_server-default_refnum
$opt{refnum} ||= FS::Conf->new->config('signup_server-default_refnum');
- $class->API_insert( %opt );
+ FS::cust_main->API_insert( %opt );
}
=item update_customer
print Dumper($result);
+Returns the following fields:
+
+=over 4
+
+=item error
+
+Empty, or error message (in which case, none of the other fields will be populated)
+
+=item display_custnum
+
+Optional customer number display override - if present, use this for all UI instead of the real database custnum
+
+=item name
+
+Simple string for customer identification (from first, last, company)
+
+=item balance
+
+=item status
+
+=item statuscolor
+
+=item first
+
+=item last
+
+=item company
+
+=item daytime
+
+=item night
+
+=item mobile
+
+=item fax
+
+=item agentnum
+
+Agent (Company)
+
+=item salesnum
+
+Sales person
+
+=item refnum
+
+Advertising channel
+
+=item classnum
+
+Customer class
+
+=item usernum
+
+Employee (initial customer insert)
+
+=item referral_custnum
+
+Referring customer
+
+=item address1
+
+=item address2
+
+=item city
+
+=item county
+
+=item state
+
+=item zip
+
+=item country
+
+=item ship_address1
+
+=item ship_address2
+
+=item ship_city
+
+=item ship_county
+
+=item ship_state
+
+=item ship_zip
+
+=item ship_country
+
+=item invoicing_list
+
+Comma-separated list of email addresses
+
+=item postal_invoicing
+
+0 or 1
+
+=back
+
=cut
sub customer_info {
A single string for just one detail line, or an array reference of one or more
lines of detail
+=back
+
=cut
sub order_package {
}
+=item email_optout OPTION => VALUE, ...
+
+Each e-mail address, or L<FS::cust_contact> record, has two opt-in flags:
+message_dest: recieve non-invoicing messages, and invoice_dest: recieve
+invoicing messages
+
+Use this API call to remove opt-in flags for an e-mail address
+
+=over 4
+
+=item address
+
+E-Mail address
+
+=item disable_message_dest
+
+Enabled by default:
+Set this parameter as 0 in your API call to leave the message_dest flag as is
+
+=item disable_invoice_dest
+
+Enabled by default:
+Set this parameter as 0 in your API call to leave the invoice_dest flag as is
+
+=back
+
+=cut
+
+sub email_opt_out {
+ my ($class, %opt) = @_;
+
+ return _shared_secret_error()
+ unless _check_shared_secret($opt{secret});
+
+ return {error => 'No e-mail address specified'}
+ unless $opt{address} && $opt{address} =~ /\@/;
+
+ $opt{disable_message_dest} ||= 1;
+ $opt{disable_invoice_dest} ||= 1;
+
+ my $address = FS::Record::dbh->quote($opt{address});
+
+ for my $cust_contact (
+ FS::Record::qsearch({
+ table => 'cust_contact',
+ select => 'cust_contact.*',
+ addl_from => 'LEFT JOIN contact_email USING (contactnum)',
+ extra_sql => "WHERE contact_email.emailaddress = $address",
+ })
+ ) {
+ $cust_contact->set(invoice_dest => '') if $opt{disable_invoice_dest};
+ $cust_contact->set(message_dest => '') if $opt{disable_message_dest};
+
+ my $error = $cust_contact->replace();
+ return {error => $error} if $error;
+ }
+ return;
+}
+
+
##
# helper subroutines
##
return { 'error' => 'Incorrect shared secret' };
}
+
+=back
+
+=cut
+
1;