From 59cbeb1454e06e5ecacf3537ec07d022a5de4be4 Mon Sep 17 00:00:00 2001
From: Greg Sabino Mullane <greg@users.mediawiki.org>
Date: Mon, 23 Apr 2007 18:33:38 +0000
Subject: [PATCH] Remove mysql5 schema stuff, various minor updates.

---
 maintenance/postgres/compare_schemas.pl | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/maintenance/postgres/compare_schemas.pl b/maintenance/postgres/compare_schemas.pl
index d8b4148924..ce045fef32 100644
--- a/maintenance/postgres/compare_schemas.pl
+++ b/maintenance/postgres/compare_schemas.pl
@@ -7,8 +7,8 @@ use strict;
 use warnings;
 use Data::Dumper;
 
-my @old = ("../tables.sql", "../mysql5/tables.sql", "../mysql5/tables-binary.sql");
-my $new = "tables.sql";
+my @old = ('../tables.sql');
+my $new = 'tables.sql';
 my @xfile;
 
 ## Read in exceptions and other metadata
@@ -27,7 +27,7 @@ while (<DATA>) {
 		push @xfile, $val;
 		next;
 	}
-	for (split(/\s+/ => $val)) {
+	for (split /\s+/ => $val) {
 		$ok{$name}{$_} = 0;
 	}
 }
@@ -46,7 +46,7 @@ my $typeval = qr{(\(\d+\))?};
 
 my $typeval2 = qr{ unsigned| binary| NOT NULL| NULL| auto_increment| default ['\-\d\w"]+| REFERENCES .+CASCADE};
 
-my $indextype = join '|' => qw(INDEX KEY FULLTEXT), "PRIMARY KEY", "UNIQUE INDEX", "UNIQUE KEY";
+my $indextype = join '|' => qw(INDEX KEY FULLTEXT), 'PRIMARY KEY', 'UNIQUE INDEX', 'UNIQUE KEY';
 $indextype = qr{$indextype};
 
 my $engine = qr{TYPE|ENGINE};
@@ -55,7 +55,7 @@ my $tabletype = qr{InnoDB|MyISAM|HEAP|HEAP MAX_ROWS=\d+|InnoDB MAX_ROWS=\d+ AVG_
 
 my $charset = qr{utf8|binary};
 
-open my $newfh, "<", $new or die qq{Could not open $new: $!\n};
+open my $newfh, '<', $new or die qq{Could not open $new: $!\n};
 
 
 my ($table,%old);
@@ -83,7 +83,7 @@ sub parse_sql {
 
 	my $oldfile = shift;
 
-	open my $oldfh, "<", $oldfile or die qq{Could not open $oldfile: $!\n};
+	open my $oldfh, '<', $oldfile or die qq{Could not open $oldfile: $!\n};
 
 	my %info;
 	while (<$oldfh>) {
@@ -97,6 +97,10 @@ sub parse_sql {
 			$table = $1;
 			$info{$table}{name}=$table;
 		}
+		elsif (m#^\) /\*\$wgDBTableOptions\*/#) {
+			$info{$table}{engine} = 'TYPE';
+			$info{$table}{type} = 'variable';
+		}
 		elsif (/^\) ($engine)=($tabletype);$/) {
 			$info{$table}{engine}=$1;
 			$info{$table}{type}=$2;
@@ -110,8 +114,8 @@ sub parse_sql {
 			$info{$table}{column}{$1} = $2;
 		}
 		elsif (/^  ($indextype)(?: (\w+))? \(([\w, \(\)]+)\),?$/) {
-			$info{$table}{lc $1."_name"} = $2 ? $2 : "";
-			$info{$table}{lc $1."pk_target"} = $3;
+			$info{$table}{lc $1.'_name'} = $2 ? $2 : '';
+			$info{$table}{lc $1.'pk_target'} = $3;
 		}
 		else {
 			die "Cannot parse line $. of $oldfile:\n$_\n";
@@ -235,9 +239,7 @@ for (sort keys %new) {
 __DATA__
 ## Known exceptions
 OLD: searchindex          ## We use tsearch2 directly on the page table instead
-OLD: archive              ## This is a view due to the char(14) timestamp hack
 RENAME: user mwuser       ## Reserved word causing lots of problems
 RENAME: text pagecontent  ## Reserved word
-NEW: archive2             ## The real archive table
 NEW: mediawiki_version    ## Just us, for now
 XFILE: ../archives/patch-profiling.sql
-- 
2.20.1