head	1.3;
access;
symbols
	TIGRIS_1_1_0RC2:1.3
	TIGRIS_1_1_0RC1:1.3
	TIGRIS_1_1:1.3.0.10
	TIGRIS_1_0_8:1.3
	TIGRIS_1_0_8RC3:1.3
	TIGRIS_1_0_8RC2:1.3
	TIGRIS_1_0_8RC1:1.3
	TIGRIS_1_0_7:1.3
	TIGRIS_1_0_7RC3:1.3
	TIGRIS_1_0_7RC2:1.3
	TIGRIS_1_0_7RC1:1.3
	TIGRIS_1_0_6:1.3
	TIGRIS_1_0_6RC5:1.3
	TIGRIS_1_0_6RC4:1.3
	TIGRIS_1_0_6RC3:1.3
	TIGRIS_1_0_6RC2:1.3
	TIGRIS_1_0_6RC1:1.3
	TIGRIS_1_0_5:1.3
	TIGRIS_1_0_5RC6:1.3
	TIGRIS_1_0_5RC5:1.3
	TIGRIS_1_0_5RC4:1.3
	TIGRIS_1_0_5RC3:1.3
	TIGRIS_1_0_5RC2:1.3
	TIGRIS_1_0_5RC1:1.3
	TIGRIS_1_0_4:1.3
	TIGRIS_1_0_3:1.3
	TIGRIS_1_0_2:1.3
	TIGRIS_1_0_1:1.3
	TIGRIS_1_0:1.3.0.12
	TIGRIS_1_0_0:1.3
	TIGRIS_1_0_0_RC1:1.3.0.8
	dlr:1.1.1
	TIGRIS_0_9_2_4:1.3
	TIGRIS_0_9_2_3:1.3
	HELM_PEER_PORT_BRANCH:1.1.1.1
	TURBINE_PEER:1.3
	TIGRIS_0_9_2_1:1.3
	TIGRIS_0_9_2:1.3.0.6
	TIGRIS_0_9_0:1.3.0.4
	TIGRIS_0_8_4:1.3.0.2;
locks; strict;
comment	@# @;


1.3
date	2000.11.15.00.33.43;	author thom;	state Exp;
branches;
next	1.2;

1.2
date	2000.11.13.23.18.06;	author thom;	state Exp;
branches;
next	1.1;

1.1
date	2000.11.13.22.17.20;	author thom;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2001.02.21.00.36.29;	author dlr;	state Exp;
branches;
next	;


desc
@@


1.3
log
@fix the select statement
@
text
@#!/usr/bin/perl -ws

#
# drop all the issues databases
#

use DBI;
use strict;

my $admin_user = $ENV{'DATABASE_ADMIN_USER'};
my $admin_pass = $ENV{'DATABASE_ADMIN_PASSWORD'};

my $mysql = DBI->connect("DBI:mysql:mysql", $admin_user, $admin_pass);

my $select = <<EOI;
select distict Db
       from db
       where Db like "issues%"
EOI

my $sth = $mysql->prepare($select);
my @@issueDB;

$sth->execute;

while (my $row = $sth->fetchrow_arrayref) {
    push(@@issueDB, $row->[0]);
}
    
$mysql->disconnect();    

$mysql = DBI->connect("DBI:mysql", $admin_user, $admin_pass);

foreach my $db (@@issueDB)
{
    my $drop = "drop database $db";
    my $sth = $mysql->prepare($drop);
    print "Dropping database $db\n";
    $sth->execute;
}
@


1.2
log
@fixed error in script: missing dollar-sign
@
text
@a18 1
    ;
@


1.1
log
@added dropping issuezilla databases to UPGRADE
@
text
@d35 1
a35 1
foreach my db (@@issueDB)
@


1.1.1.1
log
@Replacing the HEAD with the HELM_PEER_PORT_BRANCH.
@
text
@d19 1
d35 1
a35 1
foreach my $db (@@issueDB)
@


