Return to makepeople.pl CVS log

Up to [Local Repository] / db / prgsrc

Editor script update

#!/usr/bin/perl -w

use dbchgk;

=head1 NAME

makepeople.pl - скрипт для создания пустой таблицы People

=head1 SYNOPSIS

makepeople.pl


=head1 AUTHOR

Роман Семизаров
 
=cut




my $DUMPDIR = $ENV{DUMPDIR} || "../dump";

do "chgk.cnf";
use locale;
use POSIX qw (locale_h);

mydo("DROP TABLE IF EXISTS People");

mydo("CREATE TABLE People
  ( 
    CharId CHAR(20) PRIMARY KEY,    
    Name CHAR(50),
    Surname CHAR(50),
    Nicks TEXT,
    QNumber INT DEFAULT 0,
    TNumber INT DEFAULT 0
) COLLATE utf8_general_ci");

mydo ("DROP TABLE IF EXISTS P2Q");

mydo("CREATE TABLE P2Q
    (
        Author CHAR(20),
        Question INT UNSIGNED,
	KEY authorkey(Author),
	KEY questionkey(Question),
	PRIMARY KEY (Author, Question)
    )"
);

mydo("DROP TABLE IF EXISTS P2T");

mydo("CREATE TABLE P2T
    (
        Author CHAR(20),
        Tour INT UNSIGNED,
	KEY authorkey(Author),
	KEY tourkey(Tour),
	PRIMARY KEY (Author, Tour)
    )"
);