Return to makepeople.pl CVS log

Up to [Local Repository] / db / prgsrc

Editor script update

    1: #!/usr/bin/perl -w
    2: 
    3: use dbchgk;
    4: 
    5: =head1 NAME
    6: 
    7: makepeople.pl - скрипт для создания пустой таблицы People
    8: 
    9: =head1 SYNOPSIS
   10: 
   11: makepeople.pl
   12: 
   13: 
   14: =head1 AUTHOR
   15: 
   16: Роман Семизаров
   17:  
   18: =cut
   19: 
   20: 
   21: 
   22: 
   23: my $DUMPDIR = $ENV{DUMPDIR} || "../dump";
   24: 
   25: do "chgk.cnf";
   26: use locale;
   27: use POSIX qw (locale_h);
   28: 
   29: mydo("DROP TABLE IF EXISTS People");
   30: 
   31: mydo("CREATE TABLE People
   32:   ( 
   33:     CharId CHAR(20) PRIMARY KEY,    
   34:     Name CHAR(50),
   35:     Surname CHAR(50),
   36:     Nicks TEXT,
   37:     QNumber INT DEFAULT 0,
   38:     TNumber INT DEFAULT 0
   39: ) COLLATE utf8_general_ci");
   40: 
   41: mydo ("DROP TABLE IF EXISTS P2Q");
   42: 
   43: mydo("CREATE TABLE P2Q
   44:     (
   45:         Author CHAR(20),
   46:         Question INT UNSIGNED,
   47: 	KEY authorkey(Author),
   48: 	KEY questionkey(Question),
   49: 	PRIMARY KEY (Author, Question)
   50:     )"
   51: );
   52: 
   53: mydo("DROP TABLE IF EXISTS P2T");
   54: 
   55: mydo("CREATE TABLE P2T
   56:     (
   57:         Author CHAR(20),
   58:         Tour INT UNSIGNED,
   59: 	KEY authorkey(Author),
   60: 	KEY tourkey(Tour),
   61: 	PRIMARY KEY (Author, Tour)
   62:     )"
   63: );