X-Git-Url: http://git.pippins.net/embedvideo/.git/static/gitweb.js?a=blobdiff_plain;f=bin%2Fupgrade_3_0_to_4_0;fp=bin%2Fupgrade_3_0_to_4_0;h=0000000000000000000000000000000000000000;hb=f5103edfe84559ed62829fbf551259bb2e247d8a;hp=a7ac6f948d6e57af081b968e406bef2433a236c3;hpb=5d71d9514473854e9cb35c6cc57fa172957ed47f;p=eq%2F.git diff --git a/bin/upgrade_3_0_to_4_0 b/bin/upgrade_3_0_to_4_0 deleted file mode 100755 index a7ac6f9..0000000 --- a/bin/upgrade_3_0_to_4_0 +++ /dev/null @@ -1,33 +0,0 @@ -#!/usr/bin/perl - -use DBI; -use Getopt::Std; - -$mydir = `cd \$(dirname $0) 2>/dev/null; pwd`; chomp($mydir); -unshift @INC,("$mydir/../setup"); -if( -f "$mydir/../setup/db_config.local") { require "db_config.local"; } -else { require "db_config"; } - -################################################### -# Connect to the database -$dbh=DBI->connect("dbi:mysql:dbname=$dbname:host=$dbhost:port=$dbport",$dbuser,$dbpass,{ - AutoCommit=>0, - PrintError=>0}) or print "Connect Failure:".$DBI::errstr."\n" and exit 2; -################################################### - -# Add a new 'email' field to the eq_aaronic table -$sth = $dbh->prepare("ALTER TABLE `eq_aaronic` ADD `email` VARCHAR( 120 ) NULL AFTER `phone`"); -$sth->execute or die "-E- DB error: $DBI::errstr\n"; - -# Add a new 'priesthood' field to the eq_elder table -$sth = $dbh->prepare("ALTER TABLE `eq_elder` ADD `priesthood` enum('High Priest','Elder','Priest','Teacher','Deacon','Unordained') NULL AFTER `email`"); -$sth->execute or die "-E- DB error: $DBI::errstr\n"; - -print "-> Done!\n"; - -################################################### -# Disconnect from the database -$dbh->disconnect(); -################################################### - -