Return to makepeople.pl CVS log

Up to [Local Repository] / db / prgsrc

Annotation of db/prgsrc/makepeople.pl, revision 1.1

1.1     ! roma7       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: );