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: );
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>