bin/fs-setup

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