#!/usr/bin/perl
###########################################
# pg_create_table.pl
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
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;