#!/usr/bin/perl
# file KLEIDER/src/pinw/like_tables.cgs
# <?install location = "cgi-bin/private/like_tables"?>
# legt die Datenbank-Tabellen an

use utf8;
use DBI;

binmode (STDOUT, ":encoding(utf8)");

my $dbh = DBI -> connect (
   "DBI:mysql:${mysql.likedb.name}",
   "${mysql.likedb.user}",
   "${mysql.likedb.password}"
);
if (!$dbh) {
   print "Status: 503 Database Unavailable\n\n";
   exit;
}

my $ok = $dbh -> do (<<"SQL");
CREATE TABLE lk (
       id INT UNSIGNED     NOT NULL AUTO_INCREMENT,
       tm BIGINT UNSIGNED  NOT NULL,                 -- Zeit
       st VARCHAR(10),                               -- Kennung der Story                                
       sc TINYINT UNSIGNED,                          -- Nummer des Abschnitts
       im VARCHAR(10),                               -- Bildkennung
       lg VARCHAR(3),                                -- Sprache
       vw VARCHAR(8),                                -- Darstellung
       vs CHAR(22)         NOT NULL,                 -- MD5-base64 IP/Browser
       nm CHAR(22)         NOT NULL,                 -- MD5-base64 des Namens
       PRIMARY KEY (id)
)
       DEFAULT CHARACTER SET = utf8,
       DEFAULT COLLATE       = utf8_bin
SQL

if (! defined ($ok)) {
   print "Content-Type: text/plain; charset=\"UTF-8\"\n\n";
   print "Kann Tabelle lk nicht anlegen\n";
   exit;
}
    
print "Status: 204 no response\n\n";

# end of file KLEIDER/src/pinw/like_tables.cgs