#!/usr/bin/perl -Tw
#
-# $Id: fs-setup,v 1.63 2001-10-20 12:17:59 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;
###
-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', '' );
+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' => [ [] ],
'recur', @perl_type,
'setuptax', 'char', 'NULL', 1,
'recurtax', 'char', 'NULL', 1,
- 'plan', 'varchar', 'NULL', '',
- 'plandata', 'varchar', 'NULL', '',
+ 'plan', 'varchar', 'NULL', $char_d,
+ 'plandata', 'text', 'NULL', '',
],
'primary_key' => 'pkgpart',
'unique' => [ [] ],
'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' => [],