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>