bin/fs-setup

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