bin/fs-setup

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