bin/fs-setup

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: fs-setup,v 1.92 2002-05-31 22:37:06 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.20;
  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 #create history tables (false laziness w/create-history-tables)
 164 foreach my $table ( grep { ! /^h_/ } $dbdef->tables ) {
 165   my $tableobj = $dbdef->table($table)
 166     or die "unknown table $table";
 167
 168   my $h_tableobj = DBIx::DBSchema::Table->new( {
 169     name        => "h_$table",
 170     primary_key => 'historynum',
 171     unique      => DBIx::DBSchema::ColGroup::Unique->new( [] ),
 172     'index'     => DBIx::DBSchema::ColGroup::Index->new( [
 173                      @{$tableobj->unique->lol_ref},
 174                      @{$tableobj->index->lol_ref}
 175                    ] ),
 176     columns     => [
 177                      DBIx::DBSchema::Column->new( {
 178                        'name'    => 'historynum',
 179                        'type'    => 'serial',
 180                        'null'    => 'NOT NULL',
 181                        'length'  => '',
 182                        'default' => '',
 183                        'local'   => '',
 184                      } ),
 185                      DBIx::DBSchema::Column->new( {
 186                        'name'    => 'history_date',
 187                        'type'    => 'int',
 188                        'null'    => 'NULL',
 189                        'length'  => '',
 190                        'default' => '',
 191                        'local'   => '',
 192                      } ),
 193                      DBIx::DBSchema::Column->new( {
 194                        'name'    => 'history_user',
 195                        'type'    => 'varchar',
 196                        'null'    => 'NOT NULL',
 197                        'length'  => '80',
 198                        'default' => '',
 199                        'local'   => '',
 200                      } ),
 201                      DBIx::DBSchema::Column->new( {
 202                        'name'    => 'history_action',
 203                        'type'    => 'varchar',
 204                        'null'    => 'NOT NULL',
 205                        'length'  => '80',
 206                        'default' => '',
 207                        'local'   => '',
 208                      } ),
 209                      map { $tableobj->column($_) } $tableobj->columns
 210                    ],
 211   } );
 212   $dbdef->addtable($h_tableobj);
 213 }
 214
 215 #important
 216 $dbdef->save($dbdef_file);
 217 &FS::Record::reload_dbdef($dbdef_file);
 218
 219 ###
 220 # create 'em
 221 ###
 222
 223 my($dbh)=adminsuidsetup $user;
 224
 225 #create tables
 226 $|=1;
 227
 228 foreach my $statement ( $dbdef->sql($dbh) ) {
 229   $dbh->do( $statement )
 230     or die "CREATE error: ". $dbh->errstr. "\ndoing statement: $statement";
 231 }
 232
 233 #not really sample data (and shouldn't default to US)
 234
 235 #cust_main_county
 236
 237 #USPS state codes
 238 foreach ( qw(
 239 AL AK AS AZ AR CA CO CT DC DE FM FL GA GU HI ID IL IN IA KS KY LA
 240 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
 241 SC SD TN TX UT VT VI VA WA WV WI WY AE AA AP
 242 ) ) {
 243   my($cust_main_county)=new FS::cust_main_county({
 244     'state' => $_,
 245     'tax'   => 0,
 246     'country' => 'US',
 247   });
 248   my($error);
 249   $error=$cust_main_county->insert;
 250   die $error if $error;
 251 }
 252
 253 #AU "offical" state codes ala mark.williamson@ebbs.com.au (Mark Williamson)
 254 foreach ( qw(
 255 VIC NSW NT QLD TAS ACT WA SA
 256 ) ) {
 257   my($cust_main_county)=new FS::cust_main_county({
 258     'state' => $_,
 259     'tax'   => 0,
 260     'country' => 'AU',
 261   });
 262   my($error);
 263   $error=$cust_main_county->insert;
 264   die $error if $error;
 265 }
 266
 267 #ISO 2-letter country codes (same as country TLDs) except US and AU
 268 foreach ( qw(
 269 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
 270 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
 271 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
 272 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
 273 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
 274 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
 275 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
 276 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
 277 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
 278 YE YU ZR ZM ZW
 279 ) ) {
 280   my($cust_main_county)=new FS::cust_main_county({
 281     'tax'   => 0,
 282     'country' => $_,
 283   });
 284   my($error);
 285   $error=$cust_main_county->insert;
 286   die $error if $error;
 287 }
 288
 289 #billing events
 290 foreach my $aref (
 291   [ 'COMP', 'Comp invoice', '$cust_bill->comp();', 30, 'comp' ],
 292   [ 'CARD', 'Batch card', '$cust_bill->batch_card();', 40, 'batch-card' ],
 293   [ 'BILL', 'Send invoice', '$cust_bill->send();', 50, 'send' ],
 294 ) {
 295
 296   my $part_bill_event = new FS::part_bill_event({
 297     'payby' => $aref->[0],
 298     'event' => $aref->[1],
 299     'eventcode' => $aref->[2],
 300     'seconds' => 0,
 301     'weight' => $aref->[3],
 302     'plan' => $aref->[4],
 303   });
 304   my($error);
 305   $error=$part_bill_event->insert;
 306   die $error if $error;
 307
 308 }
 309
 310 $dbh->commit or die $dbh->errstr;
 311 $dbh->disconnect or die $dbh->errstr;
 312
 313 print "Freeside database initialized sucessfully\n";
 314
 315 sub usage {
 316   die "Usage:\n  fs-setup user\n";
 317 }
 318
 319 ###
 320 # Now it becomes an object.  much better.
 321 ###
 322 sub tables_hash_hack {
 323
 324   #note that s/(date|change)/_$1/; to avoid keyword conflict.
 325   #put a kludge in FS::Record to catch this or? (pry need some date-handling
 326   #stuff anyway also)
 327
 328   my(%tables)=( #yech.}
 329
 330     'agent' => {
 331       'columns' => [
 332         'agentnum', 'int',            '',     '',
 333         'agent',    'varchar',           '',     $char_d,
 334         'typenum',  'int',            '',     '',
 335         'freq',     'int',       'NULL', '',
 336         'prog',     @perl_type,
 337       ],
 338       'primary_key' => 'agentnum',
 339       'unique' => [ [] ],
 340       'index' => [ ['typenum'] ],
 341     },
 342
 343     'agent_type' => {
 344       'columns' => [
 345         'typenum',   'int',  '', '',
 346         'atype',     'varchar', '', $char_d,
 347       ],
 348       'primary_key' => 'typenum',
 349       'unique' => [ [] ],
 350       'index' => [ [] ],
 351     },
 352
 353     'type_pkgs' => {
 354       'columns' => [
 355         'typenum',   'int',  '', '',
 356         'pkgpart',   'int',  '', '',
 357       ],
 358       'primary_key' => '',
 359       'unique' => [ ['typenum', 'pkgpart'] ],
 360       'index' => [ ['typenum'] ],
 361     },
 362
 363     'cust_bill' => {
 364       'columns' => [
 365         'invnum',    'int',  '', '',
 366         'custnum',   'int',  '', '',
 367         '_date',     @date_type,
 368         'charged',   @money_type,
 369         'printed',   'int',  '', '',
 370         'closed',    'char', 'NULL', 1,
 371       ],
 372       'primary_key' => 'invnum',
 373       'unique' => [ [] ],
 374       'index' => [ ['custnum'] ],
 375     },
 376
 377     'cust_bill_event' => {
 378       'columns' => [
 379         'eventnum',    'int',  '', '',
 380         'invnum',   'int',  '', '',
 381         'eventpart',   'int',  '', '',
 382         '_date',     @date_type,
 383         'status', 'varchar', '', $char_d,
 384         'statustext', 'text', 'NULL', '',
 385       ],
 386       'primary_key' => 'eventnum',
 387       #no... there are retries now #'unique' => [ [ 'eventpart', 'invnum' ] ],
 388       'unique' => [],
 389       'index' => [ ['invnum'], ['status'] ],
 390     },
 391
 392     'part_bill_event' => {
 393       'columns' => [
 394         'eventpart',    'int',  '', '',
 395         'payby',       'char',  '', 4,
 396         'event',       'varchar',           '',     $char_d,
 397         'eventcode',    @perl_type,
 398         'seconds',     'int', 'NULL', '',
 399         'weight',      'int', '', '',
 400         'plan',       'varchar', 'NULL', $char_d,
 401         'plandata',   'text', 'NULL', '',
 402         'disabled',     'char', 'NULL', 1,
 403       ],
 404       'primary_key' => 'eventpart',
 405       'unique' => [ [] ],
 406       'index' => [ ['payby'] ],
 407     },
 408
 409     'cust_bill_pkg' => {
 410       'columns' => [
 411         'pkgnum',  'int', '', '',
 412         'invnum',  'int', '', '',
 413         'setup',   @money_type,
 414         'recur',   @money_type,
 415         'sdate',   @date_type,
 416         'edate',   @date_type,
 417       ],
 418       'primary_key' => '',
 419       'unique' => [ ['pkgnum', 'invnum'] ],
 420       'index' => [ ['invnum'] ],
 421     },
 422
 423     'cust_credit' => {
 424       'columns' => [
 425         'crednum',  'int', '', '',
 426         'custnum',  'int', '', '',
 427         '_date',    @date_type,
 428         'amount',   @money_type,
 429         'otaker',   'varchar', '', 8,
 430         'reason',   'text', 'NULL', '',
 431         'closed',    'char', 'NULL', 1,
 432       ],
 433       'primary_key' => 'crednum',
 434       'unique' => [ [] ],
 435       'index' => [ ['custnum'] ],
 436     },
 437
 438     'cust_credit_bill' => {
 439       'columns' => [
 440         'creditbillnum', 'int', '', '',
 441         'crednum',  'int', '', '',
 442         'invnum',  'int', '', '',
 443         '_date',    @date_type,
 444         'amount',   @money_type,
 445       ],
 446       'primary_key' => 'creditbillnum',
 447       'unique' => [ [] ],
 448       'index' => [ ['crednum'], ['invnum'] ],
 449     },
 450
 451     'cust_main' => {
 452       'columns' => [
 453         'custnum',  'int',  '',     '',
 454         'agentnum', 'int',  '',     '',
 455 #        'titlenum', 'int',  'NULL',   '',
 456         'last',     'varchar', '',     $char_d,
 457 #        'middle',   'varchar', 'NULL', $char_d,
 458         'first',    'varchar', '',     $char_d,
 459         'ss',       'char', 'NULL', 11,
 460         'company',  'varchar', 'NULL', $char_d,
 461         'address1', 'varchar', '',     $char_d,
 462         'address2', 'varchar', 'NULL', $char_d,
 463         'city',     'varchar', '',     $char_d,
 464         'county',   'varchar', 'NULL', $char_d,
 465         'state',    'varchar', 'NULL', $char_d,
 466         'zip',      'varchar', '',     10,
 467         'country',  'char', '',     2,
 468         'daytime',  'varchar', 'NULL', 20,
 469         'night',    'varchar', 'NULL', 20,
 470         'fax',      'varchar', 'NULL', 12,
 471         'ship_last',     'varchar', 'NULL', $char_d,
 472 #        'ship_middle',   'varchar', 'NULL', $char_d,
 473         'ship_first',    'varchar', 'NULL', $char_d,
 474         'ship_company',  'varchar', 'NULL', $char_d,
 475         'ship_address1', 'varchar', 'NULL', $char_d,
 476         'ship_address2', 'varchar', 'NULL', $char_d,
 477         'ship_city',     'varchar', 'NULL', $char_d,
 478         'ship_county',   'varchar', 'NULL', $char_d,
 479         'ship_state',    'varchar', 'NULL', $char_d,
 480         'ship_zip',      'varchar', 'NULL', 10,
 481         'ship_country',  'char', 'NULL', 2,
 482         'ship_daytime',  'varchar', 'NULL', 20,
 483         'ship_night',    'varchar', 'NULL', 20,
 484         'ship_fax',      'varchar', 'NULL', 12,
 485         'payby',    'char', '',     4,
 486         'payinfo',  'varchar', 'NULL', $char_d,
 487         #'paydate',  @date_type,
 488         'paydate',  'varchar', 'NULL', 10,
 489         'payname',  'varchar', 'NULL', $char_d,
 490         'tax',      'char', 'NULL', 1,
 491         'otaker',   'varchar', '',     8,
 492         'refnum',   'int',  '',     '',
 493         'referral_custnum', 'int',  'NULL', '',
 494         'comments', 'text', 'NULL', '',
 495       ],
 496       'primary_key' => 'custnum',
 497       'unique' => [ [] ],
 498       #'index' => [ ['last'], ['company'] ],
 499       'index' => [ ['last'], [ 'company' ], [ 'referral_custnum' ] ],
 500     },
 501
 502     'cust_main_invoice' => {
 503       'columns' => [
 504         'destnum',  'int',  '',     '',
 505         'custnum',  'int',  '',     '',
 506         'dest',     'varchar', '',  $char_d,
 507       ],
 508       'primary_key' => 'destnum',
 509       'unique' => [ [] ],
 510       'index' => [ ['custnum'], ],
 511     },
 512
 513     'cust_main_county' => { #county+state+country are checked off the
 514                             #cust_main_county for validation and to provide
 515                             # a tax rate.
 516       'columns' => [
 517         'taxnum',   'int',   '',    '',
 518         'state',    'varchar',  'NULL',    $char_d,
 519         'county',   'varchar',  'NULL',    $char_d,
 520         'country',  'char',  '', 2,
 521         'taxclass',   'varchar', 'NULL', $char_d,
 522         'exempt_amount', @money_type,
 523         'tax',      'real',  '',    '', #tax %
 524       ],
 525       'primary_key' => 'taxnum',
 526       'unique' => [ [] ],
 527   #    'unique' => [ ['taxnum'], ['state', 'county'] ],
 528       'index' => [ [] ],
 529     },
 530
 531     'cust_pay' => {
 532       'columns' => [
 533         'paynum',   'int',    '',   '',
 534         #now cust_bill_pay #'invnum',   'int',    '',   '',
 535         'custnum',  'int',    '',   '',
 536         'paid',     @money_type,
 537         '_date',    @date_type,
 538         'payby',    'char',   '',     4, # CARD/BILL/COMP, should be index into
 539                                          # payment type table.
 540         'payinfo',  'varchar',   'NULL', 16,  #see cust_main above
 541         'paybatch', 'varchar',   'NULL', $char_d, #for auditing purposes.
 542         'closed',    'char', 'NULL', 1,
 543       ],
 544       'primary_key' => 'paynum',
 545       'unique' => [ [] ],
 546       'index' => [ [ 'custnum' ], [ 'paybatch' ] ],
 547     },
 548
 549     'cust_bill_pay' => {
 550       'columns' => [
 551         'billpaynum', 'int',     '',   '',
 552         'invnum',  'int',     '',   '',
 553         'paynum',  'int',     '',   '',
 554         'amount',  @money_type,
 555         '_date',   @date_type
 556       ],
 557       'primary_key' => 'billpaynum',
 558       'unique' => [ [] ],
 559       'index' => [ [ 'paynum' ], [ 'invnum' ] ],
 560     },
 561
 562     'cust_pay_batch' => { #what's this used for again?  list of customers
 563                           #in current CARD batch? (necessarily CARD?)
 564       'columns' => [
 565         'paybatchnum',   'int',    '',   '',
 566         'invnum',   'int',    '',   '',
 567         'custnum',   'int',    '',   '',
 568         'last',     'varchar', '',     $char_d,
 569         'first',    'varchar', '',     $char_d,
 570         'address1', 'varchar', '',     $char_d,
 571         'address2', 'varchar', 'NULL', $char_d,
 572         'city',     'varchar', '',     $char_d,
 573         'state',    'varchar', 'NULL', $char_d,
 574         'zip',      'varchar', '',     10,
 575         'country',  'char', '',     2,
 576 #        'trancode', 'int', '', '',
 577         'cardnum',  'varchar', '',     16,
 578         #'exp',      @date_type,
 579         'exp',      'varchar', '',     11,
 580         'payname',  'varchar', 'NULL', $char_d,
 581         'amount',   @money_type,
 582       ],
 583       'primary_key' => 'paybatchnum',
 584       'unique' => [ [] ],
 585       'index' => [ ['invnum'], ['custnum'] ],
 586     },
 587
 588     'cust_pkg' => {
 589       'columns' => [
 590         'pkgnum',    'int',    '',   '',
 591         'custnum',   'int',    '',   '',
 592         'pkgpart',   'int',    '',   '',
 593         'otaker',    'varchar', '', 8,
 594         'setup',     @date_type,
 595         'bill',      @date_type,
 596         'susp',      @date_type,
 597         'cancel',    @date_type,
 598         'expire',    @date_type,
 599         'manual_flag', 'char', 'NULL', 1,
 600       ],
 601       'primary_key' => 'pkgnum',
 602       'unique' => [ [] ],
 603       'index' => [ ['custnum'] ],
 604     },
 605
 606     'cust_refund' => {
 607       'columns' => [
 608         'refundnum',    'int',    '',   '',
 609         #now cust_credit_refund #'crednum',      'int',    '',   '',
 610         'custnum',  'int',    '',   '',
 611         '_date',        @date_type,
 612         'refund',       @money_type,
 613         'otaker',       'varchar',   '',   8,
 614         'reason',       'varchar',   '',   $char_d,
 615         'payby',        'char',   '',     4, # CARD/BILL/COMP, should be index
 616                                              # into payment type table.
 617         'payinfo',      'varchar',   'NULL', 16,  #see cust_main above
 618         'paybatch',     'varchar',   'NULL', $char_d,
 619         'closed',    'char', 'NULL', 1,
 620       ],
 621       'primary_key' => 'refundnum',
 622       'unique' => [ [] ],
 623       'index' => [ [] ],
 624     },
 625
 626     'cust_credit_refund' => {
 627       'columns' => [
 628         'creditrefundnum', 'int',     '',   '',
 629         'crednum',  'int',     '',   '',
 630         'refundnum',  'int',     '',   '',
 631         'amount',  @money_type,
 632         '_date',   @date_type
 633       ],
 634       'primary_key' => 'creditrefundnum',
 635       'unique' => [ [] ],
 636       'index' => [ [ 'crednum', 'refundnum' ] ],
 637     },
 638
 639
 640     'cust_svc' => {
 641       'columns' => [
 642         'svcnum',    'int',    '',   '',
 643         'pkgnum',    'int',    'NULL',   '',
 644         'svcpart',   'int',    '',   '',
 645       ],
 646       'primary_key' => 'svcnum',
 647       'unique' => [ [] ],
 648       'index' => [ ['svcnum'], ['pkgnum'], ['svcpart'] ],
 649     },
 650
 651     'part_pkg' => {
 652       'columns' => [
 653         'pkgpart',    'int',    '',   '',
 654         'pkg',        'varchar',   '',   $char_d,
 655         'comment',    'varchar',   '',   $char_d,
 656         'setup',      @perl_type,
 657         'freq',       'int', '', '',  #billing frequency (months)
 658         'recur',      @perl_type,
 659         'setuptax',  'char', 'NULL', 1,
 660         'recurtax',  'char', 'NULL', 1,
 661         'plan',       'varchar', 'NULL', $char_d,
 662         'plandata',   'text', 'NULL', '',
 663         'disabled',   'char', 'NULL', 1,
 664         'taxclass',   'varchar', 'NULL', $char_d,
 665       ],
 666       'primary_key' => 'pkgpart',
 667       'unique' => [ [] ],
 668       'index' => [ [] ],
 669     },
 670
 671 #    'part_title' => {
 672 #      'columns' => [
 673 #        'titlenum',   'int',    '',   '',
 674 #        'title',      'varchar',   '',   $char_d,
 675 #      ],
 676 #      'primary_key' => 'titlenum',
 677 #      'unique' => [ [] ],
 678 #      'index' => [ [] ],
 679 #    },
 680
 681     'pkg_svc' => {
 682       'columns' => [
 683         'pkgpart',    'int',    '',   '',
 684         'svcpart',    'int',    '',   '',
 685         'quantity',   'int',    '',   '',
 686       ],
 687       'primary_key' => '',
 688       'unique' => [ ['pkgpart', 'svcpart'] ],
 689       'index' => [ ['pkgpart'] ],
 690     },
 691
 692     'part_referral' => {
 693       'columns' => [
 694         'refnum',   'int',    '',   '',
 695         'referral', 'varchar',   '',   $char_d,
 696       ],
 697       'primary_key' => 'refnum',
 698       'unique' => [ [] ],
 699       'index' => [ [] ],
 700     },
 701
 702     'part_svc' => {
 703       'columns' => [
 704         'svcpart',    'int',    '',   '',
 705         'svc',        'varchar',   '',   $char_d,
 706         'svcdb',      'varchar',   '',   $char_d,
 707         'disabled',   'char',  'NULL',   1,
 708       ],
 709       'primary_key' => 'svcpart',
 710       'unique' => [ [] ],
 711       'index' => [ [] ],
 712     },
 713
 714     'part_svc_column' => {
 715       'columns' => [
 716         'columnnum',   'int',         '', '',
 717         'svcpart',     'int',         '', '',
 718         'columnname',  'varchar',     '', 64,
 719         'columnvalue', 'varchar', 'NULL', $char_d,
 720         'columnflag',  'char',    'NULL', 1,
 721       ],
 722       'primary_key' => 'columnnum',
 723       'unique' => [ [ 'svcpart', 'columnname' ] ],
 724       'index' => [ [ 'svcpart' ] ],
 725     },
 726
 727     #(this should be renamed to part_pop)
 728     'svc_acct_pop' => {
 729       'columns' => [
 730         'popnum',    'int',    '',   '',
 731         'city',      'varchar',   '',   $char_d,
 732         'state',     'varchar',   '',   $char_d,
 733         'ac',        'char',   '',   3,
 734         'exch',      'char',   '',   3,
 735         'loc',       'char',   'NULL',   4, #NULL for legacy purposes
 736       ],
 737       'primary_key' => 'popnum',
 738       'unique' => [ [] ],
 739       'index' => [ [ 'state' ] ],
 740     },
 741
 742     'part_pop_local' => {
 743       'columns' => [
 744         'localnum',  'int',     '',     '',
 745         'popnum',    'int',     '',     '',
 746         'city',      'varchar', 'NULL', $char_d,
 747         'state',     'char',    'NULL', 2,
 748         'npa',       'char',    '',     3,
 749         'nxx',       'char',    '',     3,
 750       ],
 751       'primary_key' => 'localnum',
 752       'unique' => [ [] ],
 753       'index' => [ [ 'npa', 'nxx' ], [ 'popnum' ] ],
 754     },
 755
 756     'svc_acct' => {
 757       'columns' => [
 758         'svcnum',    'int',    '',   '',
 759         'username',  'varchar',   '',   $username_len, #unique (& remove dup code)
 760         '_password', 'varchar',   '',   50, #13 for encryped pw's plus ' *SUSPENDED* (mp5 passwords can be 34)
 761         'sec_phrase', 'varchar',  'NULL',   $char_d,
 762         'popnum',    'int',    'NULL',   '',
 763         'uid',       'int', 'NULL',   '',
 764         'gid',       'int', 'NULL',   '',
 765         'finger',    'varchar',   'NULL',   $char_d,
 766         'dir',       'varchar',   'NULL',   $char_d,
 767         'shell',     'varchar',   'NULL',   $char_d,
 768         'quota',     'varchar',   'NULL',   $char_d,
 769         'slipip',    'varchar',   'NULL',   15, #four TINYINTs, bah.
 770         'seconds',   'int', 'NULL',   '', #uhhhh
 771         'domsvc',    'int', '',   '',
 772       ],
 773       'primary_key' => 'svcnum',
 774       'unique' => [ [ 'username', 'domsvc' ] ],
 775       'index' => [ ['username'], ['domsvc'] ],
 776     },
 777
 778 #    'svc_acct_sm' => {
 779 #      'columns' => [
 780 #        'svcnum',    'int',    '',   '',
 781 #        'domsvc',    'int',    '',   '',
 782 #        'domuid',    'int', '',   '',
 783 #        'domuser',   'varchar',   '',   $char_d,
 784 #      ],
 785 #      'primary_key' => 'svcnum',
 786 #      'unique' => [ [] ],
 787 #      'index' => [ ['domsvc'], ['domuid'] ],
 788 #    },
 789
 790     #'svc_charge' => {
 791     #  'columns' => [
 792     #    'svcnum',    'int',    '',   '',
 793     #    'amount',    @money_type,
 794     #  ],
 795     #  'primary_key' => 'svcnum',
 796     #  'unique' => [ [] ],
 797     #  'index' => [ [] ],
 798     #},
 799
 800     'svc_domain' => {
 801       'columns' => [
 802         'svcnum',    'int',    '',   '',
 803         'domain',    'varchar',    '',   $char_d,
 804         'catchall',  'int', 'NULL',    '',
 805       ],
 806       'primary_key' => 'svcnum',
 807       'unique' => [ ['domain'] ],
 808       'index' => [ [] ],
 809     },
 810
 811     'domain_record' => {
 812       'columns' => [
 813         'recnum',    'int',     '',  '',
 814         'svcnum',    'int',     '',  '',
 815         'reczone',   'varchar', '',  $char_d,
 816         'recaf',     'char',    '',  2,
 817         'rectype',   'char',    '',  5,
 818         'recdata',   'varchar', '',  $char_d,
 819       ],
 820       'primary_key' => 'recnum',
 821       'unique'      => [ [] ],
 822       'index'       => [ ['svcnum'] ],
 823     },
 824
 825     'svc_forward' => {
 826       'columns' => [
 827         'svcnum',   'int',    '',  '',
 828         'srcsvc',   'int',    '',  '',
 829         'dstsvc',   'int',    '',  '',
 830         'dst',      'varchar',    'NULL',  $char_d,
 831       ],
 832       'primary_key' => 'svcnum',
 833       'unique'      => [ [] ],
 834       'index'       => [ ['srcsvc'], ['dstsvc'] ],
 835     },
 836
 837     'svc_www' => {
 838       'columns' => [
 839         'svcnum',   'int',    '',  '',
 840         'recnum',   'int',    '',  '',
 841         'usersvc',  'int',    '',  '',
 842       ],
 843       'primary_key' => 'svcnum',
 844       'unique'      => [ [] ],
 845       'index'       => [ [] ],
 846     },
 847
 848     #'svc_wo' => {
 849     #  'columns' => [
 850     #    'svcnum',    'int',    '',   '',
 851     #    'svcnum',    'int',    '',   '',
 852     #    'svcnum',    'int',    '',   '',
 853     #    'worker',    'varchar',   '',   $char_d,
 854     #    '_date',     @date_type,
 855     #  ],
 856     #  'primary_key' => 'svcnum',
 857     #  'unique' => [ [] ],
 858     #  'index' => [ [] ],
 859     #},
 860
 861     'prepay_credit' => {
 862       'columns' => [
 863         'prepaynum',   'int',     '',   '',
 864         'identifier',  'varchar', '', $char_d,
 865         'amount',      @money_type,
 866         'seconds',     'int',     'NULL', '',
 867       ],
 868       'primary_key' => 'prepaynum',
 869       'unique'      => [ ['identifier'] ],
 870       'index'       => [ [] ],
 871     },
 872
 873     'port' => {
 874       'columns' => [
 875         'portnum',  'int',     '',   '',
 876         'ip',       'varchar', 'NULL', 15,
 877         'nasport',  'int',     'NULL', '',
 878         'nasnum',   'int',     '',   '',
 879       ],
 880       'primary_key' => 'portnum',
 881       'unique'      => [],
 882       'index'       => [],
 883     },
 884
 885     'nas' => {
 886       'columns' => [
 887         'nasnum',   'int',     '',    '',
 888         'nas',      'varchar', '',    $char_d,
 889         'nasip',    'varchar', '',    15,
 890         'nasfqdn',  'varchar', '',    $char_d,
 891         'last',     'int',     '',    '',
 892       ],
 893       'primary_key' => 'nasnum',
 894       'unique'      => [ [ 'nas' ], [ 'nasip' ] ],
 895       'index'       => [ [ 'last' ] ],
 896     },
 897
 898     'session' => {
 899       'columns' => [
 900         'sessionnum', 'int',       '',   '',
 901         'portnum',    'int',       '',   '',
 902         'svcnum',     'int',       '',   '',
 903         'login',      @date_type,
 904         'logout',     @date_type,
 905       ],
 906       'primary_key' => 'sessionnum',
 907       'unique'      => [],
 908       'index'       => [ [ 'portnum' ] ],
 909     },
 910
 911     'queue' => {
 912       'columns' => [
 913         'jobnum', 'int', '', '',
 914         'job', 'text', '', '',
 915         '_date', 'int', '', '',
 916         'status', 'varchar', '', $char_d,
 917         'statustext', 'text', 'NULL', '',
 918         'svcnum', 'int', 'NULL', '',
 919       ],
 920       'primary_key' => 'jobnum',
 921       'unique'      => [],
 922       'index'       => [ [ 'svcnum' ], [ 'status' ] ],
 923     },
 924
 925     'queue_arg' => {
 926       'columns' => [
 927         'argnum', 'int', '', '',
 928         'jobnum', 'int', '', '',
 929         'arg', 'text', 'NULL', '',
 930       ],
 931       'primary_key' => 'argnum',
 932       'unique'      => [],
 933       'index'       => [ [ 'jobnum' ] ],
 934     },
 935
 936     'queue_depend' => {
 937       'columns' => [
 938         'dependnum', 'int', '', '',
 939         'jobnum', 'int', '', '',
 940         'depend_jobnum', 'int', '', '',
 941       ],
 942       'primary_key' => 'dependnum',
 943       'unique'      => [],
 944       'index'       => [ [ 'jobnum' ], [ 'depend_jobnum' ] ],
 945     },
 946
 947     'export_svc' => {
 948       'columns' => [
 949         'exportsvcnum' => 'int', '', '',
 950         'exportnum'    => 'int', '', '',
 951         'svcpart'      => 'int', '', '',
 952       ],
 953       'primary_key' => 'exportsvcnum',
 954       'unique'      => [ [ 'exportnum', 'svcpart' ] ],
 955       'index'       => [ [ 'exportnum' ], [ 'svcpart' ] ],
 956     },
 957
 958     'part_export' => {
 959       'columns' => [
 960         'exportnum', 'int', '', '',
 961         #'svcpart',   'int', '', '',
 962         'machine', 'varchar', '', $char_d,
 963         'exporttype', 'varchar', '', $char_d,
 964         'nodomain',     'char', 'NULL', 1,
 965       ],
 966       'primary_key' => 'exportnum',
 967       'unique'      => [],
 968       'index'       => [ [ 'machine' ], [ 'exporttype' ] ],
 969     },
 970
 971     'part_export_option' => {
 972       'columns' => [
 973         'optionnum', 'int', '', '',
 974         'exportnum', 'int', '', '',
 975         'optionname', 'varchar', '', $char_d,
 976         'optionvalue', 'text', 'NULL', '',
 977       ],
 978       'primary_key' => 'optionnum',
 979       'unique'      => [],
 980       'index'       => [ [ 'exportnum' ], [ 'optionname' ] ],
 981     },
 982
 983     'radius_usergroup' => {
 984       'columns' => [
 985         'usergroupnum', 'int', '', '',
 986         'svcnum',       'int', '', '',
 987         'groupname',    'varchar', '', $char_d,
 988       ],
 989       'primary_key' => 'usergroupnum',
 990       'unique'      => [],
 991       'index'       => [ [ 'svcnum' ], [ 'groupname' ] ],
 992     },
 993
 994     'msgcat' => {
 995       'columns' => [
 996         'msgnum', 'int', '', '',
 997         'msgcode', 'varchar', '', $char_d,
 998         'locale', 'varchar', '', 16,
 999         'msg', 'text', '', '',
1000       ],
1001       'primary_key' => 'msgnum',
1002       'unique'      => [ [ 'msgcode', 'locale' ] ],
1003       'index'       => [],
1004     },
1005
1006     'cust_tax_exempt' => {
1007       'columns' => [
1008         'exemptnum', 'int', '', '',
1009         'custnum',   'int', '', '',
1010         'taxnum',    'int', '', '',
1011         'year',      'int', '', '',
1012         'month',     'int', '', '',
1013         'amount',   @money_type,
1014       ],
1015       'primary_key' => 'exemptnum',
1016       'unique'      => [ [ 'custnum', 'taxnum', 'year', 'month' ] ],
1017       'index'       => [],
1018     },
1019
1020
1021
1022   );
1023
1024   %tables;
1025
1026 }
1027