bin/fs-setup

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: fs-setup,v 1.82 2002-02-27 22:39:14 ivan 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.19;
  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 use FS::part_bill_event;
  20
  21 die "Not running uid freeside!" unless checkeuid();
  22
  23 my %attrib2db =
  24   map { lc($FS::raddb::attrib{$_}) => $_ } keys %FS::raddb::attrib;
  25
  26 my $user = shift or die &usage;
  27 getsecrets($user);
  28
  29 #needs to match FS::Record
  30 my($dbdef_file) = "/usr/local/etc/freeside/dbdef.". datasrc;
  31
  32 ###
  33
  34 #print "\nEnter the maximum username length: ";
  35 #my($username_len)=&getvalue;
  36 my $username_len = 32; #usernamemax config file
  37
  38 print "\n\n", <<END, ":";
  39 Freeside tracks the RADIUS User-Name, check attribute Password and
  40 reply attribute Framed-IP-Address for each user.  You can specify additional
  41 check and reply attributes (or you can add them later with the
  42 fs-radius-add-check and fs-radius-add-reply programs).
  43
  44 First enter any additional RADIUS check attributes you need to track for each
  45 user, separated by whitespace.
  46 END
  47 my @check_attributes = map { $attrib2db{lc($_)} or die "unknown attribute $_"; }
  48                          split(" ",&getvalue);
  49
  50 print "\n\n", <<END, ":";
  51 Now enter any additional reply attributes you need to track for each user,
  52 separated by whitespace.
  53 END
  54 my @attributes = map { $attrib2db{lc($_)} or die "unknown attribute $_"; }
  55                    split(" ",&getvalue);
  56
  57 print "\n\n", <<END, ":";
  58 Do you wish to enable the tracking of a second, separate shipping/service
  59 address?
  60 END
  61 my $ship = &_yesno;
  62
  63 sub getvalue {
  64   my($x)=scalar(<STDIN>);
  65   chop $x;
  66   $x;
  67 }
  68
  69 sub _yesno {
  70   print " [y/N]:";
  71   my $x = scalar(<STDIN>);
  72   $x =~ /^y/i;
  73 }
  74
  75 ###
  76
  77 my($char_d) = 80; #default maxlength for text fields
  78
  79 #my(@date_type)  = ( 'timestamp', '', ''     );
  80 my(@date_type)  = ( 'int', 'NULL', ''     );
  81 my(@perl_type) = ( 'text', 'NULL', ''  );
  82 my @money_type = ( 'decimal',   '', '10,2' );
  83
  84 ###
  85 # create a dbdef object from the old data structure
  86 ###
  87
  88 my(%tables)=&tables_hash_hack;
  89
  90 #turn it into objects
  91 my($dbdef) = new DBIx::DBSchema ( map {
  92   my(@columns);
  93   while (@{$tables{$_}{'columns'}}) {
  94     my($name,$type,$null,$length)=splice @{$tables{$_}{'columns'}}, 0, 4;
  95     push @columns, new DBIx::DBSchema::Column ( $name,$type,$null,$length );
  96   }
  97   DBIx::DBSchema::Table->new(
  98     $_,
  99     $tables{$_}{'primary_key'},
 100     DBIx::DBSchema::ColGroup::Unique->new($tables{$_}{'unique'}),
 101     DBIx::DBSchema::ColGroup::Index->new($tables{$_}{'index'}),
 102     @columns,
 103   );
 104 } (keys %tables) );
 105
 106 my $cust_main = $dbdef->table('cust_main');
 107 unless ($ship) { #remove ship_ from cust_main
 108   $cust_main->delcolumn($_) foreach ( grep /^ship_/, $cust_main->columns );
 109 } else { #add indices on ship_last and ship_company
 110   push @{$cust_main->index->lol_ref}, ( ['ship_last'], ['ship_company'] )
 111 }
 112
 113 #add radius attributes to svc_acct
 114
 115 my($svc_acct)=$dbdef->table('svc_acct');
 116
 117 my($attribute);
 118 foreach $attribute (@attributes) {
 119   $svc_acct->addcolumn ( new DBIx::DBSchema::Column (
 120     'radius_'. $attribute,
 121     'varchar',
 122     'NULL',
 123     $char_d,
 124   ));
 125 }
 126
 127 foreach $attribute (@check_attributes) {
 128   $svc_acct->addcolumn( new DBIx::DBSchema::Column (
 129     'rc_'. $attribute,
 130     'varchar',
 131     'NULL',
 132     $char_d,
 133   ));
 134 }
 135
 136 ##make part_svc table (but now as object)
 137 #
 138 #my($part_svc)=$dbdef->table('part_svc');
 139 #
 140 ##because of svc_acct_pop
 141 ##foreach (grep /^svc_/, $dbdef->tables) {
 142 ##foreach (qw(svc_acct svc_acct_sm svc_charge svc_domain svc_wo)) {
 143 #foreach (qw(svc_acct svc_domain svc_forward svc_www)) {
 144 #  my($table)=$dbdef->table($_);
 145 #  my($col);
 146 #  foreach $col ( $table->columns ) {
 147 #    next if $col =~ /^svcnum$/;
 148 #    $part_svc->addcolumn( new DBIx::DBSchema::Column (
 149 #      $table->name. '__' . $table->column($col)->name,
 150 #      'varchar', #$table->column($col)->type,
 151 #      'NULL',
 152 #      $char_d, #$table->column($col)->length,
 153 #    ));
 154 #    $part_svc->addcolumn ( new DBIx::DBSchema::Column (
 155 #      $table->name. '__'. $table->column($col)->name . "_flag",
 156 #      'char',
 157 #      'NULL',
 158 #      1,
 159 #    ));
 160 #  }
 161 #}
 162
 163 #important
 164 $dbdef->save($dbdef_file);
 165 &FS::Record::reload_dbdef($dbdef_file);
 166
 167 ###
 168 # create 'em
 169 ###
 170
 171 my($dbh)=adminsuidsetup $user;
 172
 173 #create tables
 174 $|=1;
 175
 176 my @sql = $dbdef->sql($dbh);
 177 foreach my $statement ( $dbdef->sql($dbh) ) {
 178   $dbh->do( $statement )
 179     or die "CREATE error: ",$dbh->errstr, "\ndoing statement: $statement";
 180 }
 181
 182 #not really sample data (and shouldn't default to US)
 183
 184 #cust_main_county
 185
 186 #USPS state codes
 187 foreach ( qw(
 188 AL AK AS AZ AR CA CO CT DC DE FM FL GA GU HI ID IL IN IA KS KY LA
 189 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
 190 SC SD TN TX UT VT VI VA WA WV WI WY AE AA AP
 191 ) ) {
 192   my($cust_main_county)=new FS::cust_main_county({
 193     'state' => $_,
 194     'tax'   => 0,
 195     'country' => 'US',
 196   });
 197   my($error);
 198   $error=$cust_main_county->insert;
 199   die $error if $error;
 200 }
 201
 202 #AU "offical" state codes ala mark.williamson@ebbs.com.au (Mark Williamson)
 203 foreach ( qw(
 204 VIC NSW NT QLD TAS ACT WA SA
 205 ) ) {
 206   my($cust_main_county)=new FS::cust_main_county({
 207     'state' => $_,
 208     'tax'   => 0,
 209     'country' => 'AU',
 210   });
 211   my($error);
 212   $error=$cust_main_county->insert;
 213   die $error if $error;
 214 }
 215
 216 #ISO 2-letter country codes (same as country TLDs) except US and AU
 217 foreach ( qw(
 218 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
 219 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
 220 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
 221 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
 222 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
 223 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
 224 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
 225 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
 226 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
 227 YE YU ZR ZM ZW
 228 ) ) {
 229   my($cust_main_county)=new FS::cust_main_county({
 230     'tax'   => 0,
 231     'country' => $_,
 232   });
 233   my($error);
 234   $error=$cust_main_county->insert;
 235   die $error if $error;
 236 }
 237
 238 #billing events
 239 foreach my $aref (
 240   [ 'COMP', 'Comp invoice', '$cust_bill->comp();', 30, 'comp' ],
 241   [ 'CARD', 'Batch card', '$cust_bill->batch_card();', 40, 'batch-card' ],
 242   [ 'BILL', 'Send invoice', '$cust_bill->send();', 50, 'send' ],
 243 ) {
 244
 245   my $part_bill_event = new FS::part_bill_event({
 246     'payby' => $aref->[0],
 247     'event' => $aref->[1],
 248     'eventcode' => $aref->[2],
 249     'seconds' => 0,
 250     'weight' => $aref->[3],
 251     'plan' => $aref->[4],
 252   });
 253   my($error);
 254   $error=$part_bill_event->insert;
 255   die $error if $error;
 256
 257 }
 258
 259
 260 $dbh->disconnect or die $dbh->errstr;
 261
 262 print "Freeside database initialized sucessfully\n";
 263
 264 sub usage {
 265   die "Usage:\n  fs-setup user\n";
 266 }
 267
 268 ###
 269 # Now it becomes an object.  much better.
 270 ###
 271 sub tables_hash_hack {
 272
 273   #note that s/(date|change)/_$1/; to avoid keyword conflict.
 274   #put a kludge in FS::Record to catch this or? (pry need some date-handling
 275   #stuff anyway also)
 276
 277   my(%tables)=( #yech.}
 278
 279     'agent' => {
 280       'columns' => [
 281         'agentnum', 'int',            '',     '',
 282         'agent',    'varchar',           '',     $char_d,
 283         'typenum',  'int',            '',     '',
 284         'freq',     'int',       'NULL', '',
 285         'prog',     @perl_type,
 286       ],
 287       'primary_key' => 'agentnum',
 288       'unique' => [ [] ],
 289       'index' => [ ['typenum'] ],
 290     },
 291
 292     'agent_type' => {
 293       'columns' => [
 294         'typenum',   'int',  '', '',
 295         'atype',     'varchar', '', $char_d,
 296       ],
 297       'primary_key' => 'typenum',
 298       'unique' => [ [] ],
 299       'index' => [ [] ],
 300     },
 301
 302     'type_pkgs' => {
 303       'columns' => [
 304         'typenum',   'int',  '', '',
 305         'pkgpart',   'int',  '', '',
 306       ],
 307       'primary_key' => '',
 308       'unique' => [ ['typenum', 'pkgpart'] ],
 309       'index' => [ ['typenum'] ],
 310     },
 311
 312     'cust_bill' => {
 313       'columns' => [
 314         'invnum',    'int',  '', '',
 315         'custnum',   'int',  '', '',
 316         '_date',     @date_type,
 317         'charged',   @money_type,
 318         'printed',   'int',  '', '',
 319         'closed',    'char', 'NULL', 1,
 320       ],
 321       'primary_key' => 'invnum',
 322       'unique' => [ [] ],
 323       'index' => [ ['custnum'] ],
 324     },
 325
 326     'cust_bill_event' => {
 327       'columns' => [
 328         'eventnum',    'int',  '', '',
 329         'invnum',   'int',  '', '',
 330         'eventpart',   'int',  '', '',
 331         '_date',     @date_type,
 332         'status', 'varchar', '', $char_d,
 333         'statustext', 'text', 'NULL', '',
 334       ],
 335       'primary_key' => 'eventnum',
 336       'unique' => [ [ 'eventpart', 'invnum' ] ],
 337       'index' => [ ['invnum'], ['status'] ],
 338     },
 339
 340     'part_bill_event' => {
 341       'columns' => [
 342         'eventpart',    'int',  '', '',
 343         'payby',       'char',  '', 4,
 344         'event',       'varchar',           '',     $char_d,
 345         'eventcode',    @perl_type,
 346         'seconds',     'int', 'NULL', '',
 347         'weight',      'int', '', '',
 348         'plan',       'varchar', 'NULL', $char_d,
 349         'plandata',   'text', 'NULL', '',
 350         'disabled',     'char', 'NULL', 1,
 351       ],
 352       'primary_key' => 'eventpart',
 353       'unique' => [ [] ],
 354       'index' => [ ['payby'] ],
 355     },
 356
 357     'cust_bill_pkg' => {
 358       'columns' => [
 359         'pkgnum',  'int', '', '',
 360         'invnum',  'int', '', '',
 361         'setup',   @money_type,
 362         'recur',   @money_type,
 363         'sdate',   @date_type,
 364         'edate',   @date_type,
 365       ],
 366       'primary_key' => '',
 367       'unique' => [ ['pkgnum', 'invnum'] ],
 368       'index' => [ ['invnum'] ],
 369     },
 370
 371     'cust_credit' => {
 372       'columns' => [
 373         'crednum',  'int', '', '',
 374         'custnum',  'int', '', '',
 375         '_date',    @date_type,
 376         'amount',   @money_type,
 377         'otaker',   'varchar', '', 8,
 378         'reason',   'text', 'NULL', '',
 379         'closed',    'char', 'NULL', 1,
 380       ],
 381       'primary_key' => 'crednum',
 382       'unique' => [ [] ],
 383       'index' => [ ['custnum'] ],
 384     },
 385
 386     'cust_credit_bill' => {
 387       'columns' => [
 388         'creditbillnum', 'int', '', '',
 389         'crednum',  'int', '', '',
 390         'invnum',  'int', '', '',
 391         '_date',    @date_type,
 392         'amount',   @money_type,
 393       ],
 394       'primary_key' => 'creditbillnum',
 395       'unique' => [ [] ],
 396       'index' => [ ['crednum'], ['invnum'] ],
 397     },
 398
 399     'cust_main' => {
 400       'columns' => [
 401         'custnum',  'int',  '',     '',
 402         'agentnum', 'int',  '',     '',
 403 #        'titlenum', 'int',  'NULL',   '',
 404         'last',     'varchar', '',     $char_d,
 405 #        'middle',   'varchar', 'NULL', $char_d,
 406         'first',    'varchar', '',     $char_d,
 407         'ss',       'char', 'NULL', 11,
 408         'company',  'varchar', 'NULL', $char_d,
 409         'address1', 'varchar', '',     $char_d,
 410         'address2', 'varchar', 'NULL', $char_d,
 411         'city',     'varchar', '',     $char_d,
 412         'county',   'varchar', 'NULL', $char_d,
 413         'state',    'varchar', 'NULL', $char_d,
 414         'zip',      'varchar', '',     10,
 415         'country',  'char', '',     2,
 416         'daytime',  'varchar', 'NULL', 20,
 417         'night',    'varchar', 'NULL', 20,
 418         'fax',      'varchar', 'NULL', 12,
 419         'ship_last',     'varchar', 'NULL', $char_d,
 420 #        'ship_middle',   'varchar', 'NULL', $char_d,
 421         'ship_first',    'varchar', 'NULL', $char_d,
 422         'ship_company',  'varchar', 'NULL', $char_d,
 423         'ship_address1', 'varchar', 'NULL', $char_d,
 424         'ship_address2', 'varchar', 'NULL', $char_d,
 425         'ship_city',     'varchar', 'NULL', $char_d,
 426         'ship_county',   'varchar', 'NULL', $char_d,
 427         'ship_state',    'varchar', 'NULL', $char_d,
 428         'ship_zip',      'varchar', 'NULL', 10,
 429         'ship_country',  'char', 'NULL', 2,
 430         'ship_daytime',  'varchar', 'NULL', 20,
 431         'ship_night',    'varchar', 'NULL', 20,
 432         'ship_fax',      'varchar', 'NULL', 12,
 433         'payby',    'char', '',     4,
 434         'payinfo',  'varchar', 'NULL', $char_d,
 435         #'paydate',  @date_type,
 436         'paydate',  'varchar', 'NULL', 10,
 437         'payname',  'varchar', 'NULL', $char_d,
 438         'tax',      'char', 'NULL', 1,
 439         'otaker',   'varchar', '',     8,
 440         'refnum',   'int',  '',     '',
 441         'referral_custnum', 'int',  'NULL', '',
 442         'comments', 'text', 'NULL', '',
 443       ],
 444       'primary_key' => 'custnum',
 445       'unique' => [ [] ],
 446       #'index' => [ ['last'], ['company'] ],
 447       'index' => [ ['last'], [ 'company' ], [ 'referral_custnum' ] ],
 448     },
 449
 450     'cust_main_invoice' => {
 451       'columns' => [
 452         'destnum',  'int',  '',     '',
 453         'custnum',  'int',  '',     '',
 454         'dest',     'varchar', '',  $char_d,
 455       ],
 456       'primary_key' => 'destnum',
 457       'unique' => [ [] ],
 458       'index' => [ ['custnum'], ],
 459     },
 460
 461     'cust_main_county' => { #county+state+country are checked off the
 462                             #cust_main_county for validation and to provide
 463                             # a tax rate.
 464       'columns' => [
 465         'taxnum',   'int',   '',    '',
 466         'state',    'varchar',  'NULL',    $char_d,
 467         'county',   'varchar',  'NULL',    $char_d,
 468         'country',  'char',  '', 2,
 469         'tax',      'real',  '',    '', #tax %
 470       ],
 471       'primary_key' => 'taxnum',
 472       'unique' => [ [] ],
 473   #    'unique' => [ ['taxnum'], ['state', 'county'] ],
 474       'index' => [ [] ],
 475     },
 476
 477     'cust_pay' => {
 478       'columns' => [
 479         'paynum',   'int',    '',   '',
 480         #now cust_bill_pay #'invnum',   'int',    '',   '',
 481         'custnum',  'int',    '',   '',
 482         'paid',     @money_type,
 483         '_date',    @date_type,
 484         'payby',    'char',   '',     4, # CARD/BILL/COMP, should be index into
 485                                          # payment type table.
 486         'payinfo',  'varchar',   'NULL', 16,  #see cust_main above
 487         'paybatch', 'varchar',   'NULL', $char_d, #for auditing purposes.
 488         'closed',    'char', 'NULL', 1,
 489       ],
 490       'primary_key' => 'paynum',
 491       'unique' => [ [] ],
 492       'index' => [ [ 'custnum' ], [ 'paybatch' ] ],
 493     },
 494
 495     'cust_bill_pay' => {
 496       'columns' => [
 497         'billpaynum', 'int',     '',   '',
 498         'invnum',  'int',     '',   '',
 499         'paynum',  'int',     '',   '',
 500         'amount',  @money_type,
 501         '_date',   @date_type
 502       ],
 503       'primary_key' => 'billpaynum',
 504       'unique' => [ [] ],
 505       'index' => [ [ 'paynum' ], [ 'invnum' ] ],
 506     },
 507
 508     'cust_pay_batch' => { #what's this used for again?  list of customers
 509                           #in current CARD batch? (necessarily CARD?)
 510       'columns' => [
 511         'paybatchnum',   'int',    '',   '',
 512         'invnum',   'int',    '',   '',
 513         'custnum',   'int',    '',   '',
 514         'last',     'varchar', '',     $char_d,
 515         'first',    'varchar', '',     $char_d,
 516         'address1', 'varchar', '',     $char_d,
 517         'address2', 'varchar', 'NULL', $char_d,
 518         'city',     'varchar', '',     $char_d,
 519         'state',    'varchar', '',     $char_d,
 520         'zip',      'varchar', '',     10,
 521         'country',  'char', '',     2,
 522 #        'trancode', 'int', '', '',
 523         'cardnum',  'varchar', '',     16,
 524         #'exp',      @date_type,
 525         'exp',      'varchar', '',     11,
 526         'payname',  'varchar', 'NULL', $char_d,
 527         'amount',   @money_type,
 528       ],
 529       'primary_key' => 'paybatchnum',
 530       'unique' => [ [] ],
 531       'index' => [ ['invnum'], ['custnum'] ],
 532     },
 533
 534     'cust_pkg' => {
 535       'columns' => [
 536         'pkgnum',    'int',    '',   '',
 537         'custnum',   'int',    '',   '',
 538         'pkgpart',   'int',    '',   '',
 539         'otaker',    'varchar', '', 8,
 540         'setup',     @date_type,
 541         'bill',      @date_type,
 542         'susp',      @date_type,
 543         'cancel',    @date_type,
 544         'expire',    @date_type,
 545         'manual_flag', 'char', 'NULL', 1,
 546       ],
 547       'primary_key' => 'pkgnum',
 548       'unique' => [ [] ],
 549       'index' => [ ['custnum'] ],
 550     },
 551
 552     'cust_refund' => {
 553       'columns' => [
 554         'refundnum',    'int',    '',   '',
 555         #now cust_credit_refund #'crednum',      'int',    '',   '',
 556         'custnum',  'int',    '',   '',
 557         '_date',        @date_type,
 558         'refund',       @money_type,
 559         'otaker',       'varchar',   '',   8,
 560         'reason',       'varchar',   '',   $char_d,
 561         'payby',        'char',   '',     4, # CARD/BILL/COMP, should be index
 562                                              # into payment type table.
 563         'payinfo',      'varchar',   'NULL', 16,  #see cust_main above
 564         'paybatch',     'varchar',   'NULL', $char_d,
 565         'closed',    'char', 'NULL', 1,
 566       ],
 567       'primary_key' => 'refundnum',
 568       'unique' => [ [] ],
 569       'index' => [ [] ],
 570     },
 571
 572     'cust_credit_refund' => {
 573       'columns' => [
 574         'creditrefundnum', 'int',     '',   '',
 575         'crednum',  'int',     '',   '',
 576         'refundnum',  'int',     '',   '',
 577         'amount',  @money_type,
 578         '_date',   @date_type
 579       ],
 580       'primary_key' => 'creditrefundnum',
 581       'unique' => [ [] ],
 582       'index' => [ [ 'crednum', 'refundnum' ] ],
 583     },
 584
 585
 586     'cust_svc' => {
 587       'columns' => [
 588         'svcnum',    'int',    '',   '',
 589         'pkgnum',    'int',    'NULL',   '',
 590         'svcpart',   'int',    '',   '',
 591       ],
 592       'primary_key' => 'svcnum',
 593       'unique' => [ [] ],
 594       'index' => [ ['svcnum'], ['pkgnum'], ['svcpart'] ],
 595     },
 596
 597     'part_pkg' => {
 598       'columns' => [
 599         'pkgpart',    'int',    '',   '',
 600         'pkg',        'varchar',   '',   $char_d,
 601         'comment',    'varchar',   '',   $char_d,
 602         'setup',      @perl_type,
 603         'freq',       'int', '', '',  #billing frequency (months)
 604         'recur',      @perl_type,
 605         'setuptax',  'char', 'NULL', 1,
 606         'recurtax',  'char', 'NULL', 1,
 607         'plan',       'varchar', 'NULL', $char_d,
 608         'plandata',   'text', 'NULL', '',
 609         'disabled',   'char', 'NULL', 1,
 610       ],
 611       'primary_key' => 'pkgpart',
 612       'unique' => [ [] ],
 613       'index' => [ [] ],
 614     },
 615
 616 #    'part_title' => {
 617 #      'columns' => [
 618 #        'titlenum',   'int',    '',   '',
 619 #        'title',      'varchar',   '',   $char_d,
 620 #      ],
 621 #      'primary_key' => 'titlenum',
 622 #      'unique' => [ [] ],
 623 #      'index' => [ [] ],
 624 #    },
 625
 626     'pkg_svc' => {
 627       'columns' => [
 628         'pkgpart',    'int',    '',   '',
 629         'svcpart',    'int',    '',   '',
 630         'quantity',   'int',    '',   '',
 631       ],
 632       'primary_key' => '',
 633       'unique' => [ ['pkgpart', 'svcpart'] ],
 634       'index' => [ ['pkgpart'] ],
 635     },
 636
 637     'part_referral' => {
 638       'columns' => [
 639         'refnum',   'int',    '',   '',
 640         'referral', 'varchar',   '',   $char_d,
 641       ],
 642       'primary_key' => 'refnum',
 643       'unique' => [ [] ],
 644       'index' => [ [] ],
 645     },
 646
 647     'part_svc' => {
 648       'columns' => [
 649         'svcpart',    'int',    '',   '',
 650         'svc',        'varchar',   '',   $char_d,
 651         'svcdb',      'varchar',   '',   $char_d,
 652         'disabled',   'char',  'NULL',   1,
 653       ],
 654       'primary_key' => 'svcpart',
 655       'unique' => [ [] ],
 656       'index' => [ [] ],
 657     },
 658
 659     'part_svc_column' => {
 660       'columns' => [
 661         'columnnum',   'int',         '', '',
 662         'svcpart',     'int',         '', '',
 663         'columnname',  'varchar',     '', 64,
 664         'columnvalue', 'varchar', 'NULL', $char_d,
 665         'columnflag',  'char',    'NULL', 1,
 666       ],
 667       'primary_key' => 'columnnum',
 668       'unique' => [ [ 'svcpart', 'columnname' ] ],
 669       'index' => [ [ 'svcpart' ] ],
 670     },
 671
 672     #(this should be renamed to part_pop)
 673     'svc_acct_pop' => {
 674       'columns' => [
 675         'popnum',    'int',    '',   '',
 676         'city',      'varchar',   '',   $char_d,
 677         'state',     'varchar',   '',   $char_d,
 678         'ac',        'char',   '',   3,
 679         'exch',      'char',   '',   3,
 680         'loc',       'char',   'NULL',   4, #NULL for legacy purposes
 681       ],
 682       'primary_key' => 'popnum',
 683       'unique' => [ [] ],
 684       'index' => [ [ 'state' ] ],
 685     },
 686
 687     'part_pop_local' => {
 688       'columns' => [
 689         'localnum',  'int',     '',     '',
 690         'popnum',    'int',     '',     '',
 691         'city',      'varchar', 'NULL', $char_d,
 692         'state',     'char',    'NULL', 2,
 693         'npa',       'char',    '',     3,
 694         'nxx',       'char',    '',     3,
 695       ],
 696       'primary_key' => 'popnum',
 697       'unique' => [ [] ],
 698       'index' => [ [ 'npa', 'nxx' ] ],
 699     },
 700
 701     'svc_acct' => {
 702       'columns' => [
 703         'svcnum',    'int',    '',   '',
 704         'username',  'varchar',   '',   $username_len, #unique (& remove dup code)
 705         '_password', 'varchar',   '',   50, #13 for encryped pw's plus ' *SUSPENDED* (mp5 passwords can be 34)
 706         'popnum',    'int',    'NULL',   '',
 707         'uid',       'int', 'NULL',   '',
 708         'gid',       'int', 'NULL',   '',
 709         'finger',    'varchar',   'NULL',   $char_d,
 710         'dir',       'varchar',   'NULL',   $char_d,
 711         'shell',     'varchar',   'NULL',   $char_d,
 712         'quota',     'varchar',   'NULL',   $char_d,
 713         'slipip',    'varchar',   'NULL',   15, #four TINYINTs, bah.
 714         'seconds',   'int', 'NULL',   '', #uhhhh
 715         'domsvc',    'int', '',   '',
 716       ],
 717       'primary_key' => 'svcnum',
 718       'unique' => [ [ 'username', 'domsvc' ] ],
 719       'index' => [ ['username'], ['domsvc'] ],
 720     },
 721
 722 #    'svc_acct_sm' => {
 723 #      'columns' => [
 724 #        'svcnum',    'int',    '',   '',
 725 #        'domsvc',    'int',    '',   '',
 726 #        'domuid',    'int', '',   '',
 727 #        'domuser',   'varchar',   '',   $char_d,
 728 #      ],
 729 #      'primary_key' => 'svcnum',
 730 #      'unique' => [ [] ],
 731 #      'index' => [ ['domsvc'], ['domuid'] ],
 732 #    },
 733
 734     #'svc_charge' => {
 735     #  'columns' => [
 736     #    'svcnum',    'int',    '',   '',
 737     #    'amount',    @money_type,
 738     #  ],
 739     #  'primary_key' => 'svcnum',
 740     #  'unique' => [ [] ],
 741     #  'index' => [ [] ],
 742     #},
 743
 744     'svc_domain' => {
 745       'columns' => [
 746         'svcnum',    'int',    '',   '',
 747         'domain',    'varchar',    '',   $char_d,
 748         'catchall',  'int', 'NULL',    '',
 749       ],
 750       'primary_key' => 'svcnum',
 751       'unique' => [ ['domain'] ],
 752       'index' => [ [] ],
 753     },
 754
 755     'domain_record' => {
 756       'columns' => [
 757         'recnum',    'int',     '',  '',
 758         'svcnum',    'int',     '',  '',
 759         'reczone',   'varchar', '',  $char_d,
 760         'recaf',     'char',    '',  2,
 761         'rectype',   'char',    '',  5,
 762         'recdata',   'varchar', '',  $char_d,
 763       ],
 764       'primary_key' => 'recnum',
 765       'unique'      => [ [] ],
 766       'index'       => [ ['svcnum'] ],
 767     },
 768
 769     'svc_forward' => {
 770       'columns' => [
 771         'svcnum',   'int',    '',  '',
 772         'srcsvc',   'int',    '',  '',
 773         'dstsvc',   'int',    '',  '',
 774         'dst',      'varchar',    'NULL',  $char_d,
 775       ],
 776       'primary_key' => 'svcnum',
 777       'unique'      => [ [] ],
 778       'index'       => [ ['srcsvc'], ['dstsvc'] ],
 779     },
 780
 781     'svc_www' => {
 782       'columns' => [
 783         'svcnum',   'int',    '',  '',
 784         'recnum',   'int',    '',  '',
 785         'usersvc',  'int',    '',  '',
 786       ],
 787       'primary_key' => 'svcnum',
 788       'unique'      => [ [] ],
 789       'index'       => [ [] ],
 790     },
 791
 792     #'svc_wo' => {
 793     #  'columns' => [
 794     #    'svcnum',    'int',    '',   '',
 795     #    'svcnum',    'int',    '',   '',
 796     #    'svcnum',    'int',    '',   '',
 797     #    'worker',    'varchar',   '',   $char_d,
 798     #    '_date',     @date_type,
 799     #  ],
 800     #  'primary_key' => 'svcnum',
 801     #  'unique' => [ [] ],
 802     #  'index' => [ [] ],
 803     #},
 804
 805     'prepay_credit' => {
 806       'columns' => [
 807         'prepaynum',   'int',     '',   '',
 808         'identifier',  'varchar', '', $char_d,
 809         'amount',      @money_type,
 810         'seconds',     'int',     'NULL', '',
 811       ],
 812       'primary_key' => 'prepaynum',
 813       'unique'      => [ ['identifier'] ],
 814       'index'       => [ [] ],
 815     },
 816
 817     'port' => {
 818       'columns' => [
 819         'portnum',  'int',     '',   '',
 820         'ip',       'varchar', 'NULL', 15,
 821         'nasport',  'int',     'NULL', '',
 822         'nasnum',   'int',     '',   '',
 823       ],
 824       'primary_key' => 'portnum',
 825       'unique'      => [],
 826       'index'       => [],
 827     },
 828
 829     'nas' => {
 830       'columns' => [
 831         'nasnum',   'int',     '',    '',
 832         'nas',      'varchar', '',    $char_d,
 833         'nasip',    'varchar', '',    15,
 834         'nasfqdn',  'varchar', '',    $char_d,
 835         'last',     'int',     '',    '',
 836       ],
 837       'primary_key' => 'nasnum',
 838       'unique'      => [ [ 'nas' ], [ 'nasip' ] ],
 839       'index'       => [ [ 'last' ] ],
 840     },
 841
 842     'session' => {
 843       'columns' => [
 844         'sessionnum', 'int',       '',   '',
 845         'portnum',    'int',       '',   '',
 846         'svcnum',     'int',       '',   '',
 847         'login',      @date_type,
 848         'logout',     @date_type,
 849       ],
 850       'primary_key' => 'sessionnum',
 851       'unique'      => [],
 852       'index'       => [ [ 'portnum' ] ],
 853     },
 854
 855     'queue' => {
 856       'columns' => [
 857         'jobnum', 'int', '', '',
 858         'job', 'text', '', '',
 859         '_date', 'int', '', '',
 860         'status', 'varchar', '', $char_d,
 861         'statustext', 'text', 'NULL', '',
 862         'svcnum', 'int', 'NULL', '',
 863       ],
 864       'primary_key' => 'jobnum',
 865       'unique'      => [],
 866       'index'       => [ [ 'svcnum' ], [ 'status' ] ],
 867     },
 868
 869     'queue_arg' => {
 870       'columns' => [
 871         'argnum', 'int', '', '',
 872         'jobnum', 'int', '', '',
 873         'arg', 'text', 'NULL', '',
 874       ],
 875       'primary_key' => 'argnum',
 876       'unique'      => [],
 877       'index'       => [ [ 'jobnum' ] ],
 878     },
 879
 880     'part_export' => {
 881       'columns' => [
 882         'exportnum', 'int', '', '',
 883         'svcpart',   'int', '', '',
 884         'machine', 'varchar', '', $char_d,
 885         'exporttype', 'varchar', '', $char_d,
 886         'nodomain',     'char', 'NULL', 1,
 887       ],
 888       'primary_key' => 'exportnum',
 889       'unique'      => [],
 890       'index'       => [ [ 'machine' ], [ 'exporttype' ] ],
 891     },
 892
 893     'part_export_option' => {
 894       'columns' => [
 895         'optionnum', 'int', '', '',
 896         'exportnum', 'int', '', '',
 897         'optionname', 'varchar', '', $char_d,
 898         'optionvalue', 'text', 'NULL', '',
 899       ],
 900       'primary_key' => 'optionnum',
 901       'unique'      => [],
 902       'index'       => [ [ 'exportnum' ], [ 'optionname' ] ],
 903     },
 904
 905   );
 906
 907   %tables;
 908
 909 }
 910