bin/fs-setup

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: fs-setup,v 1.60 2001-10-02 16:00:30 jeff Exp $
   4
   5 #to delay loading dbdef until we're ready
   6 BEGIN { $FS::Record::setup_hack = 1; }
   7
   8 use strict;
   9 use DBI;
  10 use DBIx::DBSchema 0.18;
  11 use DBIx::DBSchema::Table;
  12 use DBIx::DBSchema::Column;
  13 use DBIx::DBSchema::ColGroup::Unique;
  14 use DBIx::DBSchema::ColGroup::Index;
  15 use FS::UID qw(adminsuidsetup datasrc checkeuid getsecrets);
  16 use FS::Record;
  17 use FS::cust_main_county;
  18 use FS::raddb;
  19
  20 die "Not running uid freeside!" unless checkeuid();
  21
  22 my %attrib2db =
  23   map { lc($FS::raddb::attrib{$_}) => $_ } keys %FS::raddb::attrib;
  24
  25 my $user = shift or die &usage;
  26 getsecrets($user);
  27
  28 #needs to match FS::Record
  29 my($dbdef_file) = "/usr/local/etc/freeside/dbdef.". datasrc;
  30
  31 ###
  32
  33 print "\nEnter the maximum username length: ";
  34 my($username_len)=&getvalue;
  35
  36 print "\n\n", <<END, ":";
  37 Freeside tracks the RADIUS attributes User-Name, check attribute Password and
  38 reply attribute Framed-IP-Address for each user.  You can specify additional
  39 check and reply attributes.  First enter any additional RADIUS check attributes
  40 you need to track for each user, separated by whitespace.
  41 END
  42 my @check_attributes = map { $attrib2db{lc($_)} or die "unknown attribute $_"; }
  43                          split(" ",&getvalue);
  44
  45 print "\n\n", <<END, ":";
  46 Now enter any additional reply attributes you need to track for each user,
  47 separated by whitespace.
  48 END
  49 my @attributes = map { $attrib2db{lc($_)} or die "unknown attribute $_"; }
  50                    split(" ",&getvalue);
  51
  52 print "\n\n", <<END, ":";
  53 Do you wish to enable the tracking of a second, separate shipping/service
  54 address?
  55 END
  56 my $ship = &_yesno;
  57
  58 sub getvalue {
  59   my($x)=scalar(<STDIN>);
  60   chop $x;
  61   $x;
  62 }
  63
  64 sub _yesno {
  65   print " [y/N]:";
  66   my $x = scalar(<STDIN>);
  67   $x =~ /^y/i;
  68 }
  69
  70 ###
  71
  72 my($char_d) = 80; #default maxlength for text fields
  73
  74 #my(@date_type)  = ( 'timestamp', '', ''     );
  75 my(@date_type)  = ( 'int', 'NULL', ''     );
  76 my(@perl_type) = ( 'varchar', 'NULL', 255  );
  77 my @money_type = ( 'decimal',   '', '10,2' );
  78
  79 ###
  80 # create a dbdef object from the old data structure
  81 ###
  82
  83 my(%tables)=&tables_hash_hack;
  84
  85 #turn it into objects
  86 my($dbdef) = new DBIx::DBSchema ( map {
  87   my(@columns);
  88   while (@{$tables{$_}{'columns'}}) {
  89     my($name,$type,$null,$length)=splice @{$tables{$_}{'columns'}}, 0, 4;
  90     push @columns, new DBIx::DBSchema::Column ( $name,$type,$null,$length );
  91   }
  92   DBIx::DBSchema::Table->new(
  93     $_,
  94     $tables{$_}{'primary_key'},
  95     DBIx::DBSchema::ColGroup::Unique->new($tables{$_}{'unique'}),
  96     DBIx::DBSchema::ColGroup::Index->new($tables{$_}{'index'}),
  97     @columns,
  98   );
  99 } (keys %tables) );
 100
 101 my $cust_main = $dbdef->table('cust_main');
 102 unless ($ship) { #remove ship_ from cust_main
 103   $cust_main->delcolumn($_) foreach ( grep /^ship_/, $cust_main->columns );
 104 } else { #add indices on ship_last and ship_company
 105   push @{$cust_main->index->lol_ref}, ( ['ship_last'], ['ship_company'] )
 106 }
 107
 108 #add radius attributes to svc_acct
 109
 110 my($svc_acct)=$dbdef->table('svc_acct');
 111
 112 my($attribute);
 113 foreach $attribute (@attributes) {
 114   $svc_acct->addcolumn ( new DBIx::DBSchema::Column (
 115     'radius_'. $attribute,
 116     'varchar',
 117     'NULL',
 118     $char_d,
 119   ));
 120 }
 121
 122 foreach $attribute (@check_attributes) {
 123   $svc_acct->addcolumn( new DBIx::DBSchema::Column (
 124     'rc_'. $attribute,
 125     'varchar',
 126     'NULL',
 127     $char_d,
 128   ));
 129 }
 130
 131 ##make part_svc table (but now as object)
 132 #
 133 #my($part_svc)=$dbdef->table('part_svc');
 134 #
 135 ##because of svc_acct_pop
 136 ##foreach (grep /^svc_/, $dbdef->tables) {
 137 ##foreach (qw(svc_acct svc_acct_sm svc_charge svc_domain svc_wo)) {
 138 #foreach (qw(svc_acct svc_domain svc_forward svc_www)) {
 139 #  my($table)=$dbdef->table($_);
 140 #  my($col);
 141 #  foreach $col ( $table->columns ) {
 142 #    next if $col =~ /^svcnum$/;
 143 #    $part_svc->addcolumn( new DBIx::DBSchema::Column (
 144 #      $table->name. '__' . $table->column($col)->name,
 145 #      'varchar', #$table->column($col)->type,
 146 #      'NULL',
 147 #      $char_d, #$table->column($col)->length,
 148 #    ));
 149 #    $part_svc->addcolumn ( new DBIx::DBSchema::Column (
 150 #      $table->name. '__'. $table->column($col)->name . "_flag",
 151 #      'char',
 152 #      'NULL',
 153 #      1,
 154 #    ));
 155 #  }
 156 #}
 157
 158 #important
 159 $dbdef->save($dbdef_file);
 160 &FS::Record::reload_dbdef($dbdef_file);
 161
 162 ###
 163 # create 'em
 164 ###
 165
 166 my($dbh)=adminsuidsetup $user;
 167
 168 #create tables
 169 $|=1;
 170
 171 my @sql = $dbdef->sql($dbh);
 172 foreach my $statement ( $dbdef->sql($dbh) ) {
 173   $dbh->do( $statement )
 174     or die "CREATE error: ",$dbh->errstr, "\ndoing statement: $statement";
 175 }
 176
 177 #not really sample data (and shouldn't default to US)
 178
 179 #cust_main_county
 180
 181 #USPS state codes
 182 foreach ( qw(
 183 AL AK AS AZ AR CA CO CT DC DE FM FL GA GU HI ID IL IN IA KS KY LA
 184 ME MH MD MA MI MN MS MO MT NC ND NE NH NJ NM NV NY MP OH OK OR PA PW PR RI
 185 SC SD TN TX UT VT VI VA WA WV WI WY AE AA AP
 186 ) ) {
 187   my($cust_main_county)=new FS::cust_main_county({
 188     'state' => $_,
 189     'tax'   => 0,
 190     'country' => 'US',
 191   });
 192   my($error);
 193   $error=$cust_main_county->insert;
 194   die $error if $error;
 195 }
 196
 197 #AU "offical" state codes ala mark.williamson@ebbs.com.au (Mark Williamson)
 198 foreach ( qw(
 199 VIC NSW NT QLD TAS ACT WA SA
 200 ) ) {
 201   my($cust_main_county)=new FS::cust_main_county({
 202     'state' => $_,
 203     'tax'   => 0,
 204     'country' => 'AU',
 205   });
 206   my($error);
 207   $error=$cust_main_county->insert;
 208   die $error if $error;
 209 }
 210
 211 #ISO 2-letter country codes (same as country TLDs) except US and AU
 212 foreach ( qw(
 213 AF AL DZ AS AD AO AI AQ AG AR AM AW AT AZ BS BH BD BB BY BE BZ BJ BM BT BO
 214 BA BW BV BR IO BN BG BF BI KH CM CA CV KY CF TD CL CN CX CC CO KM CG CK CR CI
 215 HR CU CY CZ DK DJ DM DO TP EC EG SV GQ ER EE ET FK FO FJ FI FR FX GF PF TF GA
 216 GM GE DE GH GI GR GL GD GP GU GT GN GW GY HT HM HN HK HU IS IN ID IR IQ IE IL
 217 IT JM JP JO KZ KE KI KP KR KW KG LA LV LB LS LR LY LI LT LU MO MK MG MW MY MV
 218 ML MT MH MQ MR MU YT MX FM MD MC MN MS MA MZ MM NA NR NP NL AN NC NZ NI NE NG
 219 NU NF MP NO OM PK PW PA PG PY PE PH PN PL PT PR QA RE RO RU RW KN LC VC WS SM
 220 ST SA SN SC SL SG SK SI SB SO ZA GS ES LK SH PM SD SR SJ SZ SE CH SY TW TJ TZ
 221 TH TG TK TO TT TN TR TM TC TV UG UA AE GB UM UY UZ VU VA VE VN VG VI WF EH
 222 YE YU ZR ZM ZW
 223 ) ) {
 224   my($cust_main_county)=new FS::cust_main_county({
 225     'tax'   => 0,
 226     'country' => $_,
 227   });
 228   my($error);
 229   $error=$cust_main_county->insert;
 230   die $error if $error;
 231 }
 232
 233 $dbh->disconnect or die $dbh->errstr;
 234
 235 print "Freeside database initialized sucessfully\n";
 236
 237 sub usage {
 238   die "Usage:\n  fs-setup user\n";
 239 }
 240
 241 ###
 242 # Now it becomes an object.  much better.
 243 ###
 244 sub tables_hash_hack {
 245
 246   #note that s/(date|change)/_$1/; to avoid keyword conflict.
 247   #put a kludge in FS::Record to catch this or? (pry need some date-handling
 248   #stuff anyway also)
 249
 250   my(%tables)=( #yech.}
 251
 252     'agent' => {
 253       'columns' => [
 254         'agentnum', 'int',            '',     '',
 255         'agent',    'varchar',           '',     $char_d,
 256         'typenum',  'int',            '',     '',
 257         'freq',     'int',       'NULL', '',
 258         'prog',     @perl_type,
 259       ],
 260       'primary_key' => 'agentnum',
 261       'unique' => [ [] ],
 262       'index' => [ ['typenum'] ],
 263     },
 264
 265     'agent_type' => {
 266       'columns' => [
 267         'typenum',   'int',  '', '',
 268         'atype',     'varchar', '', $char_d,
 269       ],
 270       'primary_key' => 'typenum',
 271       'unique' => [ [] ],
 272       'index' => [ [] ],
 273     },
 274
 275     'type_pkgs' => {
 276       'columns' => [
 277         'typenum',   'int',  '', '',
 278         'pkgpart',   'int',  '', '',
 279       ],
 280       'primary_key' => '',
 281       'unique' => [ ['typenum', 'pkgpart'] ],
 282       'index' => [ ['typenum'] ],
 283     },
 284
 285     'cust_bill' => {
 286       'columns' => [
 287         'invnum',    'int',  '', '',
 288         'custnum',   'int',  '', '',
 289         '_date',     @date_type,
 290         'charged',   @money_type,
 291         'printed',   'int',  '', '',
 292       ],
 293       'primary_key' => 'invnum',
 294       'unique' => [ [] ],
 295       'index' => [ ['custnum'] ],
 296     },
 297
 298     'cust_bill_pkg' => {
 299       'columns' => [
 300         'pkgnum',  'int', '', '',
 301         'invnum',  'int', '', '',
 302         'setup',   @money_type,
 303         'recur',   @money_type,
 304         'sdate',   @date_type,
 305         'edate',   @date_type,
 306       ],
 307       'primary_key' => '',
 308       'unique' => [ ['pkgnum', 'invnum'] ],
 309       'index' => [ ['invnum'] ],
 310     },
 311
 312     'cust_credit' => {
 313       'columns' => [
 314         'crednum',  'int', '', '',
 315         'custnum',  'int', '', '',
 316         '_date',    @date_type,
 317         'amount',   @money_type,
 318         'otaker',   'varchar', '', 8,
 319         'reason',   'varchar', 'NULL', 255,
 320       ],
 321       'primary_key' => 'crednum',
 322       'unique' => [ [] ],
 323       'index' => [ ['custnum'] ],
 324     },
 325
 326     'cust_credit_bill' => {
 327       'columns' => [
 328         'creditbillnum', 'int', '', '',
 329         'crednum',  'int', '', '',
 330         'invnum',  'int', '', '',
 331         '_date',    @date_type,
 332         'amount',   @money_type,
 333       ],
 334       'primary_key' => 'creditbillnum',
 335       'unique' => [ [] ],
 336       'index' => [ ['crednum'], ['invnum'] ],
 337     },
 338
 339     'cust_main' => {
 340       'columns' => [
 341         'custnum',  'int',  '',     '',
 342         'agentnum', 'int',  '',     '',
 343 #        'titlenum', 'int',  'NULL',   '',
 344         'last',     'varchar', '',     $char_d,
 345 #        'middle',   'varchar', 'NULL', $char_d,
 346         'first',    'varchar', '',     $char_d,
 347         'ss',       'char', 'NULL', 11,
 348         'company',  'varchar', 'NULL', $char_d,
 349         'address1', 'varchar', '',     $char_d,
 350         'address2', 'varchar', 'NULL', $char_d,
 351         'city',     'varchar', '',     $char_d,
 352         'county',   'varchar', 'NULL', $char_d,
 353         'state',    'varchar', 'NULL', $char_d,
 354         'zip',      'varchar', '',     10,
 355         'country',  'char', '',     2,
 356         'daytime',  'varchar', 'NULL', 20,
 357         'night',    'varchar', 'NULL', 20,
 358         'fax',      'varchar', 'NULL', 12,
 359         'ship_last',     'varchar', 'NULL', $char_d,
 360 #        'ship_middle',   'varchar', 'NULL', $char_d,
 361         'ship_first',    'varchar', 'NULL', $char_d,
 362         'ship_company',  'varchar', 'NULL', $char_d,
 363         'ship_address1', 'varchar', 'NULL', $char_d,
 364         'ship_address2', 'varchar', 'NULL', $char_d,
 365         'ship_city',     'varchar', 'NULL', $char_d,
 366         'ship_county',   'varchar', 'NULL', $char_d,
 367         'ship_state',    'varchar', 'NULL', $char_d,
 368         'ship_zip',      'varchar', 'NULL', 10,
 369         'ship_country',  'char', 'NULL', 2,
 370         'ship_daytime',  'varchar', 'NULL', 20,
 371         'ship_night',    'varchar', 'NULL', 20,
 372         'ship_fax',      'varchar', 'NULL', 12,
 373         'payby',    'char', '',     4,
 374         'payinfo',  'varchar', 'NULL', 16,
 375         #'paydate',  @date_type,
 376         'paydate',  'varchar', 'NULL', 10,
 377         'payname',  'varchar', 'NULL', $char_d,
 378         'tax',      'char', 'NULL', 1,
 379         'otaker',   'varchar', '',     8,
 380         'refnum',   'int',  '',     '',
 381         'referral_custnum', 'int',  'NULL', '',
 382         'comments', 'varchar', 'NULL', '',
 383       ],
 384       'primary_key' => 'custnum',
 385       'unique' => [ [] ],
 386       #'index' => [ ['last'], ['company'] ],
 387       'index' => [ ['last'], [ 'company' ], [ 'referral_custnum' ] ],
 388     },
 389
 390     'cust_main_invoice' => {
 391       'columns' => [
 392         'destnum',  'int',  '',     '',
 393         'custnum',  'int',  '',     '',
 394         'dest',     'varchar', '',  $char_d,
 395       ],
 396       'primary_key' => 'destnum',
 397       'unique' => [ [] ],
 398       'index' => [ ['custnum'], ],
 399     },
 400
 401     'cust_main_county' => { #county+state+country are checked off the
 402                             #cust_main_county for validation and to provide
 403                             # a tax rate.
 404       'columns' => [
 405         'taxnum',   'int',   '',    '',
 406         'state',    'varchar',  'NULL',    $char_d,
 407         'county',   'varchar',  'NULL',    $char_d,
 408         'country',  'char',  '', 2,
 409         'tax',      'real',  '',    '', #tax %
 410       ],
 411       'primary_key' => 'taxnum',
 412       'unique' => [ [] ],
 413   #    'unique' => [ ['taxnum'], ['state', 'county'] ],
 414       'index' => [ [] ],
 415     },
 416
 417     'cust_pay' => {
 418       'columns' => [
 419         'paynum',   'int',    '',   '',
 420         #now cust_bill_pay #'invnum',   'int',    '',   '',
 421         'custnum',  'int',    '',   '',
 422         'paid',     @money_type,
 423         '_date',    @date_type,
 424         'payby',    'char',   '',     4, # CARD/BILL/COMP, should be index into
 425                                          # payment type table.
 426         'payinfo',  'varchar',   'NULL', 16,  #see cust_main above
 427         'paybatch', 'varchar',   'NULL', $char_d, #for auditing purposes.
 428       ],
 429       'primary_key' => 'paynum',
 430       'unique' => [ [] ],
 431       'index' => [ [] ],
 432     },
 433
 434     'cust_bill_pay' => {
 435       'columns' => [
 436         'billpaynum', 'int',     '',   '',
 437         'invnum',  'int',     '',   '',
 438         'paynum',  'int',     '',   '',
 439         'amount',  @money_type,
 440         '_date',   @date_type
 441       ],
 442       'primary_key' => 'billpaynum',
 443       'unique' => [ [] ],
 444       'index' => [ [ 'paynum', 'invnum' ] ],
 445     },
 446
 447     'cust_pay_batch' => { #what's this used for again?  list of customers
 448                           #in current CARD batch? (necessarily CARD?)
 449       'columns' => [
 450         'paybatchnum',   'int',    '',   '',
 451         'invnum',   'int',    '',   '',
 452         'custnum',   'int',    '',   '',
 453         'last',     'varchar', '',     $char_d,
 454         'first',    'varchar', '',     $char_d,
 455         'address1', 'varchar', '',     $char_d,
 456         'address2', 'varchar', 'NULL', $char_d,
 457         'city',     'varchar', '',     $char_d,
 458         'state',    'varchar', '',     $char_d,
 459         'zip',      'varchar', '',     10,
 460         'country',  'char', '',     2,
 461         'trancode', 'int', '', '',
 462         'cardnum',  'varchar', '',     16,
 463         #'exp',      @date_type,
 464         'exp',      'varchar', '',     11,
 465         'payname',  'varchar', 'NULL', $char_d,
 466         'amount',   @money_type,
 467       ],
 468       'primary_key' => 'paybatchnum',
 469       'unique' => [ [] ],
 470       'index' => [ ['invnum'], ['custnum'] ],
 471     },
 472
 473     'cust_pkg' => {
 474       'columns' => [
 475         'pkgnum',    'int',    '',   '',
 476         'custnum',   'int',    '',   '',
 477         'pkgpart',   'int',    '',   '',
 478         'otaker',    'varchar', '', 8,
 479         'setup',     @date_type,
 480         'bill',      @date_type,
 481         'susp',      @date_type,
 482         'cancel',    @date_type,
 483         'expire',    @date_type,
 484       ],
 485       'primary_key' => 'pkgnum',
 486       'unique' => [ [] ],
 487       'index' => [ ['custnum'] ],
 488     },
 489
 490     'cust_refund' => {
 491       'columns' => [
 492         'refundnum',    'int',    '',   '',
 493         #now cust_credit_refund #'crednum',      'int',    '',   '',
 494         'custnum',  'int',    '',   '',
 495         '_date',        @date_type,
 496         'refund',       @money_type,
 497         'otaker',       'varchar',   '',   8,
 498         'reason',       'varchar',   '',   $char_d,
 499         'payby',        'char',   '',     4, # CARD/BILL/COMP, should be index
 500                                              # into payment type table.
 501         'payinfo',      'varchar',   'NULL', 16,  #see cust_main above
 502         'paybatch',     'varchar',   'NULL', $char_d,
 503       ],
 504       'primary_key' => 'refundnum',
 505       'unique' => [ [] ],
 506       'index' => [ [] ],
 507     },
 508
 509     'cust_credit_refund' => {
 510       'columns' => [
 511         'creditrefundnum', 'int',     '',   '',
 512         'crednum',  'int',     '',   '',
 513         'refundnum',  'int',     '',   '',
 514         'amount',  @money_type,
 515         '_date',   @date_type
 516       ],
 517       'primary_key' => 'creditrefundnum',
 518       'unique' => [ [] ],
 519       'index' => [ [ 'crednum', 'refundnum' ] ],
 520     },
 521
 522
 523     'cust_svc' => {
 524       'columns' => [
 525         'svcnum',    'int',    '',   '',
 526         'pkgnum',    'int',    'NULL',   '',
 527         'svcpart',   'int',    '',   '',
 528       ],
 529       'primary_key' => 'svcnum',
 530       'unique' => [ [] ],
 531       'index' => [ ['svcnum'], ['pkgnum'], ['svcpart'] ],
 532     },
 533
 534     'part_pkg' => {
 535       'columns' => [
 536         'pkgpart',    'int',    '',   '',
 537         'pkg',        'varchar',   '',   $char_d,
 538         'comment',    'varchar',   '',   $char_d,
 539         'setup',      @perl_type,
 540         'freq',       'int', '', '',  #billing frequency (months)
 541         'recur',      @perl_type,
 542       ],
 543       'primary_key' => 'pkgpart',
 544       'unique' => [ [] ],
 545       'index' => [ [] ],
 546     },
 547
 548 #    'part_title' => {
 549 #      'columns' => [
 550 #        'titlenum',   'int',    '',   '',
 551 #        'title',      'varchar',   '',   $char_d,
 552 #      ],
 553 #      'primary_key' => 'titlenum',
 554 #      'unique' => [ [] ],
 555 #      'index' => [ [] ],
 556 #    },
 557
 558     'pkg_svc' => {
 559       'columns' => [
 560         'pkgpart',    'int',    '',   '',
 561         'svcpart',    'int',    '',   '',
 562         'quantity',   'int',    '',   '',
 563       ],
 564       'primary_key' => '',
 565       'unique' => [ ['pkgpart', 'svcpart'] ],
 566       'index' => [ ['pkgpart'] ],
 567     },
 568
 569     'part_referral' => {
 570       'columns' => [
 571         'refnum',   'int',    '',   '',
 572         'referral', 'varchar',   '',   $char_d,
 573       ],
 574       'primary_key' => 'refnum',
 575       'unique' => [ [] ],
 576       'index' => [ [] ],
 577     },
 578
 579     'part_svc' => {
 580       'columns' => [
 581         'svcpart',    'int',    '',   '',
 582         'svc',        'varchar',   '',   $char_d,
 583         'svcdb',      'varchar',   '',   $char_d,
 584       ],
 585       'primary_key' => 'svcpart',
 586       'unique' => [ [] ],
 587       'index' => [ [] ],
 588     },
 589
 590     'part_svc_column' => {
 591       'columns' => [
 592         'columnnum',   'int',         '', '',
 593         'svcpart',     'int',         '', '',
 594         'columnname',  'varchar',     '', 64,
 595         'columnvalue', 'varchar', 'NULL', $char_d,
 596         'columnflag',  'char',    'NULL', 1,
 597       ],
 598       'primary_key' => 'columnnum',
 599       'unique' => [ [ 'svcpart', 'columnname' ] ],
 600       'index' => [ [ 'svcpart' ] ],
 601     },
 602
 603     #(this should be renamed to part_pop)
 604     'svc_acct_pop' => {
 605       'columns' => [
 606         'popnum',    'int',    '',   '',
 607         'city',      'varchar',   '',   $char_d,
 608         'state',     'varchar',   '',   $char_d,
 609         'ac',        'char',   '',   3,
 610         'exch',      'char',   '',   3,
 611         'loc',       'char',   'NULL',   4, #NULL for legacy purposes
 612       ],
 613       'primary_key' => 'popnum',
 614       'unique' => [ [] ],
 615       'index' => [ [ 'state' ] ],
 616     },
 617
 618     'part_pop_local' => {
 619       'columns' => [
 620         'localnum',  'int',     '',     '',
 621         'popnum',    'int',     '',     '',
 622         'city',      'varchar', 'NULL', $char_d,
 623         'state',     'char',    'NULL', 2,
 624         'npa',       'char',    '',     3,
 625         'nxx',       'char',    '',     3,
 626       ],
 627       'primary_key' => 'popnum',
 628       'unique' => [ [] ],
 629       'index' => [ [ 'npa', 'nxx' ] ],
 630     },
 631
 632     'svc_acct' => {
 633       'columns' => [
 634         'svcnum',    'int',    '',   '',
 635         'username',  'varchar',   '',   $username_len, #unique (& remove dup code)
 636         '_password', 'varchar',   '',   50, #13 for encryped pw's plus ' *SUSPENDED* (mp5 passwords can be 34)
 637         'popnum',    'int',    'NULL',   '',
 638         'uid',       'int', 'NULL',   '',
 639         'gid',       'int', 'NULL',   '',
 640         'finger',    'varchar',   'NULL',   $char_d,
 641         'dir',       'varchar',   'NULL',   $char_d,
 642         'shell',     'varchar',   'NULL',   $char_d,
 643         'quota',     'varchar',   'NULL',   $char_d,
 644         'slipip',    'varchar',   'NULL',   15, #four TINYINTs, bah.
 645         'seconds',   'int', 'NULL',   '', #uhhhh
 646         'domsvc',    'int', '',   '',
 647       ],
 648       'primary_key' => 'svcnum',
 649       'unique' => [ [ 'username', 'domsvc' ] ],
 650       'index' => [ ['username'], ['domsvc'] ],
 651     },
 652
 653 #    'svc_acct_sm' => {
 654 #      'columns' => [
 655 #        'svcnum',    'int',    '',   '',
 656 #        'domsvc',    'int',    '',   '',
 657 #        'domuid',    'int', '',   '',
 658 #        'domuser',   'varchar',   '',   $char_d,
 659 #      ],
 660 #      'primary_key' => 'svcnum',
 661 #      'unique' => [ [] ],
 662 #      'index' => [ ['domsvc'], ['domuid'] ],
 663 #    },
 664
 665     #'svc_charge' => {
 666     #  'columns' => [
 667     #    'svcnum',    'int',    '',   '',
 668     #    'amount',    @money_type,
 669     #  ],
 670     #  'primary_key' => 'svcnum',
 671     #  'unique' => [ [] ],
 672     #  'index' => [ [] ],
 673     #},
 674
 675     'svc_domain' => {
 676       'columns' => [
 677         'svcnum',    'int',    '',   '',
 678         'domain',    'varchar',    '',   $char_d,
 679         'catchall',  'int', 'NULL',    '',
 680       ],
 681       'primary_key' => 'svcnum',
 682       'unique' => [ ['domain'] ],
 683       'index' => [ [] ],
 684     },
 685
 686     'domain_record' => {
 687       'columns' => [
 688         'recnum',    'int',     '',  '',
 689         'svcnum',    'int',     '',  '',
 690         'reczone',   'varchar', '',  $char_d,
 691         'recaf',     'char',    '',  2,
 692         'rectype',   'char',    '',  5,
 693         'recdata',   'varchar', '',  $char_d,
 694       ],
 695       'primary_key' => 'recnum',
 696       'unique'      => [ [] ],
 697       'index'       => [ ['svcnum'] ],
 698     },
 699
 700     'svc_forward' => {
 701       'columns' => [
 702         'svcnum',   'int',    '',  '',
 703         'srcsvc',   'int',    '',  '',
 704         'dstsvc',   'int',    '',  '',
 705         'dst',      'varchar',    'NULL',  $char_d,
 706       ],
 707       'primary_key' => 'svcnum',
 708       'unique'      => [ [] ],
 709       'index'       => [ ['srcsvc'], ['dstsvc'] ],
 710     },
 711
 712     'svc_www' => {
 713       'columns' => [
 714         'svcnum',   'int',    '',  '',
 715         'recnum',   'int',    '',  '',
 716         'usersvc',  'int',    '',  '',
 717       ],
 718       'primary_key' => 'svcnum',
 719       'unique'      => [ [] ],
 720       'index'       => [ [] ],
 721     },
 722
 723     #'svc_wo' => {
 724     #  'columns' => [
 725     #    'svcnum',    'int',    '',   '',
 726     #    'svcnum',    'int',    '',   '',
 727     #    'svcnum',    'int',    '',   '',
 728     #    'worker',    'varchar',   '',   $char_d,
 729     #    '_date',     @date_type,
 730     #  ],
 731     #  'primary_key' => 'svcnum',
 732     #  'unique' => [ [] ],
 733     #  'index' => [ [] ],
 734     #},
 735
 736     'prepay_credit' => {
 737       'columns' => [
 738         'prepaynum',   'int',     '',   '',
 739         'identifier',  'varchar', '', $char_d,
 740         'amount',      @money_type,
 741         'seconds',     'int',     'NULL', '',
 742       ],
 743       'primary_key' => 'prepaynum',
 744       'unique'      => [ ['identifier'] ],
 745       'index'       => [ [] ],
 746     },
 747
 748     'port' => {
 749       'columns' => [
 750         'portnum',  'int',     '',   '',
 751         'ip',       'varchar', 'NULL', 15,
 752         'nasport',  'int',     'NULL', '',
 753         'nasnum',   'int',     '',   '',
 754       ],
 755       'primary_key' => 'portnum',
 756       'unique'      => [],
 757       'index'       => [],
 758     },
 759
 760     'nas' => {
 761       'columns' => [
 762         'nasnum',   'int',     '',    '',
 763         'nas',      'varchar', '',    $char_d,
 764         'nasip',    'varchar', '',    15,
 765         'nasfqdn',  'varchar', '',    $char_d,
 766         'last',     'int',     '',    '',
 767       ],
 768       'primary_key' => 'nasnum',
 769       'unique'      => [ [ 'nas' ], [ 'nasip' ] ],
 770       'index'       => [ [ 'last' ] ],
 771     },
 772
 773     'session' => {
 774       'columns' => [
 775         'sessionnum', 'int',       '',   '',
 776         'portnum',    'int',       '',   '',
 777         'svcnum',     'int',       '',   '',
 778         'login',      @date_type,
 779         'logout',     @date_type,
 780       ],
 781       'primary_key' => 'sessionnum',
 782       'unique'      => [],
 783       'index'       => [ [ 'portnum' ] ],
 784     },
 785
 786     'queue' => {
 787       'columns' => [
 788         'jobnum', 'int', '', '',
 789         'job', 'varchar', '', '',
 790         '_date', 'int', '', '',
 791         'status', 'varchar', '', $char_d,
 792       ],
 793       'primary_key' => 'jobnum',
 794       'unique'      => [],
 795       'index'       => [],
 796     },
 797
 798     'queue_arg' => {
 799       'columns' => [
 800         'argnum', 'int', '', '',
 801         'jobnum', 'int', '', '',
 802         'arg', 'varchar', 'NULL', '',
 803       ],
 804       'primary_key' => 'argnum',
 805       'unique'      => [],
 806       'index'       => [ [ 'jobnum' ] ],
 807     },
 808   );
 809
 810   %tables;
 811
 812 }
 813