#!/usr/bin/perl -Tw
#
-# $Id: fs-setup,v 1.57 2001-09-11 00:07:30 ivan Exp $
+# $Id: fs-setup,v 1.65 2001-10-24 15:29:30 ivan Exp $
#to delay loading dbdef until we're ready
BEGIN { $FS::Record::setup_hack = 1; }
use strict;
use DBI;
-use DBIx::DBSchema 0.18;
+use DBIx::DBSchema 0.19;
use DBIx::DBSchema::Table;
use DBIx::DBSchema::Column;
use DBIx::DBSchema::ColGroup::Unique;
die "Not running uid freeside!" unless checkeuid();
my %attrib2db =
- map { $FS::raddb::attrib{lc($_)} => $_ } keys %FS::raddb::attrib;
+ map { lc($FS::raddb::attrib{$_}) => $_ } keys %FS::raddb::attrib;
my $user = shift or die &usage;
getsecrets($user);
###
-print "\nEnter the maximum username length: ";
-my($username_len)=&getvalue;
+#print "\nEnter the maximum username length: ";
+#my($username_len)=&getvalue;
+my $username_len = 32; #usernamemax config file
print "\n\n", <<END, ":";
-Freeside tracks the RADIUS attributes User-Name, check attribute Password and
+Freeside tracks the RADIUS User-Name, check attribute Password and
reply attribute Framed-IP-Address for each user. You can specify additional
-check and reply attributes. First enter any additional RADIUS check attributes
-you need to track for each user, separated by whitespace.
+check and reply attributes (or you can add them later with the
+fs-radius-add-check and fs-radius-add-reply programs).
+
+First enter any additional RADIUS check attributes you need to track for each
+user, separated by whitespace.
END
my @check_attributes = map { $attrib2db{lc($_)} or die "unknown attribute $_"; }
split(" ",&getvalue);
#my(@date_type) = ( 'timestamp', '', '' );
my(@date_type) = ( 'int', 'NULL', '' );
-my(@perl_type) = ( 'varchar', 'NULL', 255 );
+my(@perl_type) = ( 'text', 'NULL', '' );
my @money_type = ( 'decimal', '', '10,2' );
###
'_date', @date_type,
'amount', @money_type,
'otaker', 'varchar', '', 8,
- 'reason', 'varchar', 'NULL', 255,
+ 'reason', 'text', 'NULL', '',
],
'primary_key' => 'crednum',
'unique' => [ [] ],
'otaker', 'varchar', '', 8,
'refnum', 'int', '', '',
'referral_custnum', 'int', 'NULL', '',
- 'comments', 'varchar', 'NULL', '',
+ 'comments', 'text', 'NULL', '',
],
'primary_key' => 'custnum',
'unique' => [ [] ],
'cust_pay_batch' => { #what's this used for again? list of customers
#in current CARD batch? (necessarily CARD?)
'columns' => [
+ 'paybatchnum', 'int', '', '',
'invnum', 'int', '', '',
'custnum', 'int', '', '',
'last', 'varchar', '', $char_d,
'payname', 'varchar', 'NULL', $char_d,
'amount', @money_type,
],
- 'primary_key' => '',
+ 'primary_key' => 'paybatchnum',
'unique' => [ [] ],
'index' => [ ['invnum'], ['custnum'] ],
},
'susp', @date_type,
'cancel', @date_type,
'expire', @date_type,
+ 'manual_flag', 'char', 'NULL', 1,
],
'primary_key' => 'pkgnum',
'unique' => [ [] ],
'setup', @perl_type,
'freq', 'int', '', '', #billing frequency (months)
'recur', @perl_type,
+ 'setuptax', 'char', 'NULL', 1,
+ 'recurtax', 'char', 'NULL', 1,
+ 'plan', 'varchar', 'NULL', $char_d,
+ 'plandata', 'text', 'NULL', '',
],
'primary_key' => 'pkgpart',
'unique' => [ [] ],
],
'primary_key' => 'popnum',
'unique' => [ [] ],
- 'index' => [ [] ],
+ 'index' => [ [ 'state' ] ],
+ },
+
+ 'part_pop_local' => {
+ 'columns' => [
+ 'localnum', 'int', '', '',
+ 'popnum', 'int', '', '',
+ 'city', 'varchar', 'NULL', $char_d,
+ 'state', 'char', 'NULL', 2,
+ 'npa', 'char', '', 3,
+ 'nxx', 'char', '', 3,
+ ],
+ 'primary_key' => 'popnum',
+ 'unique' => [ [] ],
+ 'index' => [ [ 'npa', 'nxx' ] ],
},
'svc_acct' => {
'queue' => {
'columns' => [
'jobnum', 'int', '', '',
- 'job', 'varchar', '', '',
+ 'job', 'text', '', '',
'_date', 'int', '', '',
'status', 'varchar', '', $char_d,
],
'columns' => [
'argnum', 'int', '', '',
'jobnum', 'int', '', '',
- 'arg', 'varchar', 'NULL', '',
+ 'arg', 'text', 'NULL', '',
],
'primary_key' => 'argnum',
'unique' => [],