diff options
Diffstat (limited to 'checksetup.pl')
-rwxr-xr-x | checksetup.pl | 598 |
1 files changed, 3 insertions, 595 deletions
diff --git a/checksetup.pl b/checksetup.pl index ac60ff63a..7fda5c978 100755 --- a/checksetup.pl +++ b/checksetup.pl @@ -1617,604 +1617,12 @@ if( Param('webdotbase') && Param('webdotbase') !~ /^https?:/ ) { print "\n" unless $silent; - -########################################################################### -# Table definitions -########################################################################### - -# -# The following hash stores all --TABLE-- definitions. This will be used -# to automatically create those tables that don't exist. The code is -# safer than the make*.sh shell scripts used to be, because they won't -# delete existing tables. -# -# If you want to intentionally do this, you can always drop a table and re-run -# checksetup, e.g. like this: -# -# $ mysql bugs -# mysql> drop table votes; -# mysql> exit; -# $ ./checksetup.pl -# -# If you change one of the field definitions, then you must also go to the -# next occurrence of the string --TABLE-- (near the end of this file) and -# add in some conditional code that will automatically update an older -# installation. -# - - -my %table; - -$table{bugs_activity} = - 'bug_id mediumint not null, - attach_id mediumint null, - who mediumint not null, - bug_when datetime not null, - fieldid mediumint not null, - added tinytext, - removed tinytext, - - index (bug_id), - index (who), - index (bug_when), - index (fieldid)'; - - -$table{attachments} = - 'attach_id mediumint not null auto_increment primary key, - bug_id mediumint not null, - creation_ts datetime not null, - description mediumtext not null, - mimetype mediumtext not null, - ispatch tinyint, - filename varchar(100) not null, - thedata longblob not null, - submitter_id mediumint not null, - isobsolete tinyint not null default 0, - isprivate tinyint not null default 0, - - index(bug_id), - index(submitter_id), - index(creation_ts)'; - -# September 2002 myk@mozilla.org: Tables to support status flags, -# which replace attachment statuses and allow users to flag bugs -# or attachments with statuses (review+, approval-, etc.). -# -# "flags" stores one record for each flag on each bug/attachment. -# "flagtypes" defines the types of flags that can be set. -# "flaginclusions" and "flagexclusions" specify the products/components -# a bug/attachment must belong to in order for flags of a given type -# to be set for them. - -$table{flags} = - 'id MEDIUMINT NOT NULL PRIMARY KEY , - type_id SMALLINT NOT NULL , - status CHAR(1) NOT NULL , - - bug_id MEDIUMINT NOT NULL , - attach_id MEDIUMINT NULL , - - creation_date DATETIME NOT NULL , - modification_date DATETIME NULL , - - setter_id MEDIUMINT NULL , - requestee_id MEDIUMINT NULL , - - is_active TINYINT NOT NULL DEFAULT 1, - - INDEX(bug_id, attach_id) , - INDEX(setter_id) , - INDEX(requestee_id) - '; - -$table{flagtypes} = - 'id SMALLINT NOT NULL PRIMARY KEY , - name VARCHAR(50) NOT NULL , - description TEXT NULL , - cc_list VARCHAR(200) NULL , - - target_type CHAR(1) NOT NULL DEFAULT \'b\' , - - is_active TINYINT NOT NULL DEFAULT 1 , - is_requestable TINYINT NOT NULL DEFAULT 0 , - is_requesteeble TINYINT NOT NULL DEFAULT 0 , - is_multiplicable TINYINT NOT NULL DEFAULT 0 , - - sortkey SMALLINT NOT NULL DEFAULT 0 , - grant_group_id MEDIUMINT NULL , - request_group_id MEDIUMINT NULL - '; - -$table{flaginclusions} = - 'type_id SMALLINT NOT NULL , - product_id SMALLINT NULL , - component_id SMALLINT NULL , - - INDEX(type_id, product_id, component_id) - '; - -$table{flagexclusions} = - 'type_id SMALLINT NOT NULL , - product_id SMALLINT NULL , - component_id SMALLINT NULL , - - INDEX(type_id, product_id, component_id) - '; - -$table{bugs} = - 'bug_id mediumint not null auto_increment primary key, - assigned_to mediumint not null, # This is a comment. - bug_file_loc text, - bug_severity varchar(64) not null, - bug_status varchar(64) not null, - creation_ts datetime not null, - delta_ts datetime not null, - short_desc mediumtext not null, - op_sys varchar(64) not null, - priority varchar(64) not null, - product_id smallint not null, - rep_platform varchar(64), - reporter mediumint not null, - version varchar(64) not null, - component_id smallint not null, - resolution varchar(64) not null, - target_milestone varchar(20) not null default "---", - qa_contact mediumint not null, - status_whiteboard mediumtext not null, - votes mediumint not null, - keywords mediumtext not null, ' # Note: keywords field is only a cache; - # the real data comes from the keywords table. - . ' - lastdiffed datetime not null, - everconfirmed tinyint not null, - reporter_accessible tinyint not null default 1, - cclist_accessible tinyint not null default 1, - estimated_time decimal(5,2) not null default 0, - remaining_time decimal(5,2) not null default 0, - deadline datetime, - alias varchar(20), - - index (assigned_to), - index (creation_ts), - index (delta_ts), - index (bug_severity), - index (bug_status), - index (op_sys), - index (priority), - index (product_id), - index (reporter), - index (version), - index (component_id), - index (resolution), - index (target_milestone), - index (qa_contact), - index (votes), - - fulltext (short_desc), - - unique(alias)'; - - -$table{cc} = - 'bug_id mediumint not null, - who mediumint not null, - - index(who), - unique(bug_id,who)'; - -$table{watch} = - 'watcher mediumint not null, - watched mediumint not null, - - index(watched), - unique(watcher,watched)'; - - -$table{longdescs} = - 'bug_id mediumint not null, - who mediumint not null, - bug_when datetime not null, - work_time decimal(5,2) not null default 0, - thetext mediumtext, - isprivate tinyint not null default 0, - already_wrapped tinyint not null default 0, - index(bug_id), - index(who), - index(bug_when), - fulltext (thetext)'; - - -$table{components} = - 'id smallint not null auto_increment primary key, - name varchar(64) not null, - product_id smallint not null, - initialowner mediumint not null, - initialqacontact mediumint not null, - description mediumtext not null, - - unique(product_id,name), - index(name)'; - - -$table{dependencies} = - 'blocked mediumint not null, - dependson mediumint not null, - - index(blocked), - index(dependson)'; - - -# User regexp is which email addresses are put into this group. -# -# 2001-04-10 myk@mozilla.org: -# isactive determines whether or not a group is active. An inactive group -# cannot have bugs added to it. Deactivation is a much milder form of -# deleting a group that allows users to continue to work on bugs in the group -# without enabling them to extend the life of the group by adding bugs to it. -# http://bugzilla.mozilla.org/show_bug.cgi?id=75482 - -$table{groups} = - 'id mediumint not null auto_increment primary key, - name varchar(255) not null, - description text not null, - isbuggroup tinyint not null, - last_changed datetime not null, - userregexp tinytext not null, - isactive tinyint not null default 1, - - unique(name)'; - -$table{logincookies} = - 'cookie mediumint not null auto_increment primary key, - userid mediumint not null, - ipaddr varchar(40) NOT NULL, - lastused DATETIME NOT NULL, - - index(lastused)'; - -$table{classifications} = - 'id smallint not null auto_increment primary key, - name varchar(64) not null, - description mediumtext, - - unique(name)'; - -$table{products} = - 'id smallint not null auto_increment primary key, - name varchar(64) not null, - classification_id smallint not null default 1, - description mediumtext, - milestoneurl tinytext not null, - disallownew tinyint not null, - votesperuser smallint not null, - maxvotesperbug smallint not null default 10000, - votestoconfirm smallint not null, - defaultmilestone varchar(20) not null default "---", - - unique(name)'; - - -$table{profiles} = - 'userid mediumint not null auto_increment primary key, - login_name varchar(255) not null, - cryptpassword varchar(128), - realname varchar(255), - disabledtext mediumtext not null, - mybugslink tinyint not null default 1, - emailflags mediumtext, - refreshed_when datetime not null, - extern_id varchar(64) default null, - unique(login_name)'; - - -$table{profiles_activity} = - 'userid mediumint not null, - who mediumint not null, - profiles_when datetime not null, - fieldid mediumint not null, - oldvalue tinytext, - newvalue tinytext, - - index (userid), - index (profiles_when), - index (fieldid)'; - - -$table{namedqueries} = - 'userid mediumint not null, - name varchar(64) not null, - linkinfooter tinyint not null, - query mediumtext not null, - - unique(userid, name)'; - -$table{fielddefs} = - 'fieldid mediumint not null auto_increment primary key, - name varchar(64) not null, - description mediumtext not null, - mailhead tinyint not null default 0, - sortkey smallint not null, - - unique(name), - index(sortkey)'; - -$table{versions} = - 'value tinytext, - product_id smallint not null'; - - -$table{votes} = - 'who mediumint not null, - bug_id mediumint not null, - vote_count smallint not null, - - index(who), - index(bug_id)'; - -$table{keywords} = - 'bug_id mediumint not null, - keywordid smallint not null, - - index(keywordid), - unique(bug_id,keywordid)'; - -$table{keyworddefs} = - 'id smallint not null primary key, - name varchar(64) not null, - description mediumtext, - - unique(name)'; - - -$table{milestones} = - 'product_id smallint not null, - value varchar(20) not null, - sortkey smallint not null, - unique (product_id, value)'; - -# GRM -$table{duplicates} = - 'dupe_of mediumint(9) not null, - dupe mediumint(9) not null primary key'; - -# 2001-06-21, myk@mozilla.org, bug 77473: -# Stores the tokens users receive when a password or email change is -# requested. Tokens provide an extra measure of security for these changes. -$table{tokens} = - 'userid mediumint not null , - issuedate datetime not null , - token varchar(16) not null primary key , - tokentype varchar(8) not null , - eventdata tinytext null , - - index(userid)'; - -# group membership tables for tracking group and privilege -# -# This table determines the groups that a user belongs to -# directly or due to regexp and which groups can be blessed -# by a user. -# -# grant_type: -# if GRANT_DIRECT - record was explicitly granted -# if GRANT_DERIVED - record was derived from expanding a group hierarchy -# if GRANT_REGEXP - record was created by evaluating a regexp -$table{user_group_map} = - 'user_id mediumint not null, - group_id mediumint not null, - isbless tinyint not null default 0, - grant_type tinyint not null default 0, - - unique(user_id, group_id, grant_type, isbless)'; - -# This table determines which groups are made a member of another -# group, given the ability to bless another group, or given -# visibility to another groups existence and membership -# grant_type: -# if GROUP_MEMBERSHIP - member groups are made members of grantor -# if GROUP_BLESS - member groups may grant membership in grantor -# if GROUP_VISIBLE - member groups may see grantor group -$table{group_group_map} = - 'member_id mediumint not null, - grantor_id mediumint not null, - grant_type tinyint not null default 0, - - unique(member_id, grantor_id, grant_type)'; - -# This table determines which groups a user must be a member of -# in order to see a bug. -$table{bug_group_map} = - 'bug_id mediumint not null, - group_id mediumint not null, - unique(bug_id, group_id), - index(group_id)'; - -# Store quips in the db. -$table{quips} = - 'quipid mediumint not null auto_increment primary key, - userid mediumint null, - quip text not null, - approved tinyint(1) not null default 1'; - -$table{group_control_map} = - 'group_id mediumint not null, - product_id mediumint not null, - entry tinyint not null, - membercontrol tinyint not null, - othercontrol tinyint not null, - canedit tinyint not null, - - unique(product_id, group_id), - index(group_id)'; - -# Generic charting over time of arbitrary queries. -# Queries are disabled when frequency == 0. -$table{series} = - 'series_id mediumint auto_increment primary key, - creator mediumint not null, - category smallint not null, - subcategory smallint not null, - name varchar(64) not null, - frequency smallint not null, - last_viewed datetime default null, - query mediumtext not null, - public tinyint(1) not null default 0, - - index(creator), - unique(creator, category, subcategory, name)'; - -$table{series_data} = - 'series_id mediumint not null, - series_date datetime not null, - series_value mediumint not null, - - unique(series_id, series_date)'; - -$table{category_group_map} = - 'category_id smallint not null, - group_id mediumint not null, - - unique(category_id, group_id)'; - -$table{series_categories} = - 'id smallint auto_increment primary key, - name varchar(64) not null, - - unique(name)'; - - - -# whine system - -$table{whine_queries} = - 'id mediumint auto_increment primary key, - eventid mediumint not null, - query_name varchar(64) not null default \'\', - sortkey smallint not null default 0, - onemailperbug tinyint not null default 0, - title varchar(128) not null, - - index(eventid)'; - -$table{whine_schedules} = - 'id mediumint auto_increment primary key, - eventid mediumint not null, - run_day varchar(32), - run_time varchar(32), - run_next datetime, - mailto mediumint not null, - mailto_type smallint not null default 0, - - index(run_next), - index(eventid)'; - -$table{whine_events} = - 'id mediumint auto_increment primary key, - owner_userid mediumint not null, - subject varchar(128), - body mediumtext'; - -# mkanat@kerio.com - bug 17453 -# Below are all the old enumerations converted to tables -$table{bug_status} = - 'id smallint auto_increment primary key, - value varchar(64) not null, - sortkey smallint not null default 0, - isactive tinyint(1) not null default 1, - - unique(value), - index(sortkey, value)'; - -$table{rep_platform} = - 'id smallint auto_increment primary key, - value varchar(64) not null, - sortkey smallint not null default 0, - isactive tinyint(1) not null default 1, - - unique(value), - index(sortkey, value)'; - -$table{resolution} = - 'id smallint auto_increment primary key, - value varchar(64) not null, - sortkey smallint not null default 0, - isactive tinyint(1) not null default 1, - - unique(value), - index(sortkey, value)'; - -$table{op_sys} = - 'id smallint auto_increment primary key, - value varchar(64) not null, - sortkey smallint not null default 0, - isactive tinyint(1) not null default 1, - - unique(value), - index(sortkey, value)'; - -$table{bug_severity} = - 'id smallint auto_increment primary key, - value varchar(64) not null, - sortkey smallint not null default 0, - isactive tinyint(1) not null default 1, - - unique(value), - index(sortkey, value)'; - -$table{priority} = - 'id smallint auto_increment primary key, - value varchar(64) not null, - sortkey smallint not null default 0, - isactive tinyint(1) not null default 1, - - unique(value), - index(sortkey, value)'; - - ########################################################################### # Create tables ########################################################################### -# Figure out if any existing tables are of type ISAM and convert them -# to type MyISAM if so. ISAM tables are deprecated in MySQL 3.23, -# which Bugzilla now requires, and they don't support more than 16 -# indexes per table, which Bugzilla needs. -my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$::db_name`"); -$sth->execute; -my @isam_tables = (); -while (my ($name, $type) = $sth->fetchrow_array) { - push(@isam_tables, $name) if $type eq "ISAM"; -} - -if(scalar(@isam_tables)) { - print "One or more of the tables in your existing MySQL database are of\n" . - "type ISAM. ISAM tables are deprecated in MySQL 3.23 and don't \n " . - "support more than 16 indexes per table, which Bugzilla needs. \n" . - "Converting your ISAM tables to type MyISAM:\n\n"; - foreach my $table (@isam_tables) { - print "Converting table $table... "; - $dbh->do("ALTER TABLE $table TYPE = MYISAM"); - print "done.\n"; - } - print "\nISAM->MyISAM table conversion done.\n\n"; -} - - -# Get a list of the existing tables (if any) in the database -$sth = $dbh->table_info(undef, undef, undef, "TABLE"); -my @tables = @{$dbh->selectcol_arrayref($sth, { Columns => [3] })}; -#print 'Tables: ', join " ", @tables, "\n"; - -# go through our %table hash and create missing tables -while (my ($tabname, $fielddef) = each %table) { - next if grep /^$tabname$/, @tables; - print "Creating table $tabname ...\n"; - - $dbh->do("CREATE TABLE $tabname (\n$fielddef\n) TYPE = MYISAM") - or die "Could not create table '$tabname'. " . - "Please check your '$my_db_driver' access.\n"; -} +# Note: --TABLE-- definitions are now in Bugzilla::DB::Schema. +$dbh->bz_setup_database(); ########################################################################### # Populate groups table @@ -2416,7 +1824,7 @@ PopulateEnumTable('resolution', @resolutions); ########################################################################### # Create initial test product if there are no products present. ########################################################################### -$sth = $dbh->prepare("SELECT description FROM products"); +my $sth = $dbh->prepare("SELECT description FROM products"); $sth->execute; unless ($sth->rows) { print "Creating initial dummy product 'TestProduct' ...\n"; |