#!/usr/bin/perl
###########################################
# pg_create_table.pl
# Mike Schilli, 2002 ([email protected])
###########################################
use warnings;
use strict;

my $USER = "";
my $PASS = "";

use DBI;

my @DSN = ("DBI:Pg:" .
 "dbname=keep_on_truckin",
 $USER, $PASS);

   # Datenbank andocken
my $dbh = DBI->connect(@DSN,
   { PrintError => 0,
     AutoCommit => 1,
   });

die $DBI::errstr unless $dbh;

$dbh->do("DROP SEQUENCE serialseq");
$dbh->do("DROP TABLE fahrzeuge");

$dbh->do( "
CREATE SEQUENCE serialseq MINVALUE 0;
CREATE TABLE fahrzeuge (
 serial  INT DEFAULT
         nextval('serialseq')
         PRIMARY KEY,
 kennz   VARCHAR(20) UNIQUE,
 tonnen  INT
) " ) or die $dbh->errstr();

$dbh->disconnect;