no strict 'refs';
${$_} = $svc_acct->getfield($_) foreach $svc_acct->fields;
}
+ $email = ( grep { $_ ne 'POST' }
+ $svc_acct->cust_svc->cust_pkg->cust_main->invoicing_list
+ )[0];
$finger = shell_quote $finger;
$quoted_password = shell_quote $_password;
$domain = $svc_acct->domain;
'_date', @date_type,
'payby', 'char', '', 4, # CARD/BILL/COMP, should be index into
# payment type table.
- 'payinfo', 'varchar', 'NULL', $char_d, #see cust_main above
+ 'payinfo', 'varchar', 'NULL', 16, #see cust_main above
'paybatch', 'varchar', 'NULL', $char_d, #for auditing purposes.
'closed', 'char', 'NULL', 1,
],
'reason', 'varchar', '', $char_d,
'payby', 'char', '', 4, # CARD/BILL/COMP, should be index
# into payment type table.
- 'payinfo', 'varchar', 'NULL', $char_d, #see cust_main above
+ 'payinfo', 'varchar', 'NULL', 16, #see cust_main above
'paybatch', 'varchar', 'NULL', $char_d,
'closed', 'char', 'NULL', 1,
],
'columns' => [
'recnum', 'int', '', '',
'svcnum', 'int', '', '',
- #'reczone', 'varchar', '', $char_d,
- 'reczone', 'varchar', '', 255,
+ 'reczone', 'varchar', '', $char_d,
'recaf', 'char', '', 2,
'rectype', 'char', '', 5,
- #'recdata', 'varchar', '', $char_d,
- 'recdata', 'varchar', '', 255,
+ 'recdata', 'varchar', '', $char_d,
],
'primary_key' => 'recnum',
'unique' => [],
or die "can't open $prefix/named.conf: $!";
open(CONF_HEADER,"<$prefix/named.conf.HEADER")
- or die "can't open $prefix/named.conf.HEADER: $!";
+ or die "can't open $prefix/named.conf.HEADER: $!"
while (<CONF_HEADER>) { print NAMED_CONF $_; }
close CONF_HEADER;
or die "can't open $prefix/named.conf: $!";
open(CONF_HEADER,"<$prefix/named.conf.HEADER")
- or die "can't open $prefix/named.conf.HEADER: $!";
+ or die "can't open $prefix/named.conf.HEADER: $!"
while (<CONF_HEADER>) { print NAMED_CONF $_; }
close CONF_HEADER;
#!/usr/bin/perl -Tw
#
-# $Id: fs-setup,v 1.96.4.3 2002-11-20 09:07:30 ivan Exp $
+# $Id: fs-setup,v 1.96.4.4 2002-12-14 11:16:04 steve Exp $
#to delay loading dbdef until we're ready
BEGIN { $FS::Record::setup_hack = 1; }
'_date', @date_type,
'payby', 'char', '', 4, # CARD/BILL/COMP, should be index into
# payment type table.
- 'payinfo', 'varchar', 'NULL', $char_d, #see cust_main above
+ 'payinfo', 'varchar', 'NULL', 16, #see cust_main above
'paybatch', 'varchar', 'NULL', $char_d, #for auditing purposes.
'closed', 'char', 'NULL', 1,
],
'reason', 'varchar', '', $char_d,
'payby', 'char', '', 4, # CARD/BILL/COMP, should be index
# into payment type table.
- 'payinfo', 'varchar', 'NULL', $char_d, #see cust_main above
+ 'payinfo', 'varchar', 'NULL', 16, #see cust_main above
'paybatch', 'varchar', 'NULL', $char_d,
'closed', 'char', 'NULL', 1,
],
'columns' => [
'recnum', 'int', '', '',
'svcnum', 'int', '', '',
- #'reczone', 'varchar', '', $char_d,
- 'reczone', 'varchar', '', 255,
+ 'reczone', 'varchar', '', $char_d,
'recaf', 'char', '', 2,
'rectype', 'char', '', 5,
- #'recdata', 'varchar', '', $char_d,
- 'recdata', 'varchar', '', 255,
+ 'recdata', 'varchar', '', $char_d,
],
'primary_key' => 'recnum',
'unique' => [],
'login' => 'MyAccount/login',
'customer_info' => 'MyAccount/customer_info',
'invoice' => 'MyAccount/invoice',
+ 'start' => 'MyAccount/start',
+ 'update' => 'MyAccount/update',
+ 'collect' => 'MyAccount/collect',
+ 'cancel' => 'MyAccount/cancel',
+ 'uncancel' => 'MyAccount/uncancel',
+ 'getinfo' => 'MyAccount/getinfo',
+ 'charge' => 'MyAccount/charge',
+ 'new_customer' => 'MyAccount/new_customer',
);
+
@EXPORT_OK = keys %autoload;
$ENV{'PATH'} ='/usr/bin:/usr/ucb:/bin';
use FS::UID qw(adminsuidsetup forksuidsetup);
use FS::ClientAPI;
+$ENV{SELFSERVICE_SERVER} = 'TRUE';
$Debug = 2; # >= 2 will log packet contents, including potentially compromising
# information
use vars qw( $opt $Debug );
+$ENV{SIGNUP_SERVER} = 'TRUE';
$Debug = 2;
my $user = shift or die &usage;
'msgcat' => { map { $_=>gettext($_) } qw(
passwords_dont_match invalid_card unknown_card_type not_a
- ) },
-
- 'statedefault' => $conf->config('statedefault') || 'CA',
-
- 'countrydefault' => $conf->config('countrydefault') || 'US',
+ ) }
};
map { $_ => $signup_data->{$_} } qw(
last first ss company address1 address2 city county state zip country
- daytime night fax payby payinfo paydate payname referral_custnum
+ daytime night fax payby payinfo paydate payname referral_custnum comments
),
} );
$error ||= "Illegal payment type"
unless grep { $_ eq $signup_data->{'payby'} } @payby;
- $cust_main->payinfo($cust_main->daytime)
- if $cust_main->payby eq 'LECB' && ! $cust_main->payinfo;
-
my @invoicing_list = split( /\s*\,\s*/, $signup_data->{'invoicing_list'} );
$signup_data->{'pkgpart'} =~ /^(\d+)$/ or '' =~ /^()$/;