Subj : Createing a database table
To   : All
From : Jame Clay
Date : Sat Jul 07 2001 07:40 am

Hi All!


========<cut>=========================================

#!/usr/bin/perl -w
# nltable.pl - 9 June 2001 - R.J. Clay
# Createing a nodelist table for use with information
# from a Fidonet/FTN St. Louis Format Nodelist
# in an SQL (Mysql) based database.

# connect to database
#   Assumes that $dbname, $dbuser, & $dbpass
# have been set.  $dbuser must already
# have the priveledges to create a table.

$dbname = 'ftndbtst';
$dbuser = 'sysop';
$dbpass = 'ftntstpw';

use DBI;

( $dbh = DBI->connect("dbi:mysql:dbname=$dbname", $dbuser, $dbpass) )
    or  die $DBI::errstr;

# drop the old nodelist table, if it exists.
$drop_stmt = "DROP TABLE nodelist";

#print " $drop_stmt ";
$dbh->do( "$drop_stmt " );

# build Create Table sql statement
$create_stmt = "CREATE TABLE nodelist( ";

$create_stmt .= "id                            INT NOT NULL AUTO_INCREMENT
PRIMARY KEY, ";
$create_stmt .= "type                          VARCHAR(6) DEFAULT '' NOT NULL,
";
$create_stmt .= "zone                          SMALLINT  DEFAULT '1' NOT NULL,
";
$create_stmt .= "net                           SMALLINT  DEFAULT '1' NOT NULL,
";
$create_stmt .= "node                          SMALLINT  DEFAULT '1' NOT NULL,
";
$create_stmt .= "point                         SMALLINT  DEFAULT '0' NOT NULL,
";
$create_stmt .= "region                        SMALLINT  DEFAULT '0' NOT NULL,
";
$create_stmt .= "name                          VARCHAR(32) DEFAULT '' NOT NULL,
";
$create_stmt .= "location                      VARCHAR(32) DEFAULT '' NOT NULL,
";
$create_stmt .= "sysop                         VARCHAR(32) DEFAULT '' NOT NULL,
";
$create_stmt .= "phone                         VARCHAR(20) DEFAULT
'000-000-000-000' NOT NULL, ";
$create_stmt .= "baud                          CHAR(6) DEFAULT '300' NOT NULL,
";
$create_stmt .= "flags                         VARCHAR(32) DEFAULT '' NOT NULL,
";
$create_stmt .= "domain                        VARCHAR(8) DEFAULT 'fidonet' NOT
NULL, ";
$create_stmt .= "INDEX ftnnode (zone, net, node, point, domain) ";
$create_stmt .= ") ";

#print " $create_stmt ";
$dbh->do( "$create_stmt " );
#    or $create_ok = "0";

# disconnect from database

( $dbh->disconnect )
        or  die $DBI::errstr;

exit();

========<cut>=========================================

--- BBBS/LiI v4.01 Flag-3
 * Origin: https://rocasa.org/bbbs (1:120/544.2)

.