From f8311a44c23f782dd28f64506d4d28251363dc8b Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Mon, 9 Oct 2017 12:51:34 +0200 Subject: [PATCH] Bug 19043: (QA follow-up) Add dbrev and print warning Content-Type: text/plain; charset=utf-8 This follow-up takes care of the requested warning at upgrade time. At the same time it removes the obsolete Columbia record when host and port are equal to the formerly used values. Note that the new host for on-campus use has been changed. Signed-off-by: Marcel de Rooy --- installer/data/mysql/atomicupdate/bug19043.perl | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 installer/data/mysql/atomicupdate/bug19043.perl diff --git a/installer/data/mysql/atomicupdate/bug19043.perl b/installer/data/mysql/atomicupdate/bug19043.perl new file mode 100644 index 0000000..807e2bf --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug19043.perl @@ -0,0 +1,13 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if( CheckVersion( $DBversion ) ) { + my $where = q|host='clio-db.cc.columbia.edu' AND port=7090|; + my $sql = "SELECT COUNT(*) FROM z3950servers WHERE $where"; + my ( $cnt ) = $dbh->selectrow_array( $sql ); + if( $cnt ) { + $dbh->do( "DELETE FROM z3950servers WHERE $where" ); + print "Removed $cnt Z39.50 target(s) for Columbia University\n"; + } + + SetVersion( $DBversion ); + print "Upgrade to $DBversion done (Bug 19043 - Z39.50 target for Columbia University is no longer publicly available.)\n"; +} -- 2.1.4