From 674eb2642c8d48ae532005ee6d5b3138ffb2a763 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 15 Jun 2017 15:47:21 +0200 Subject: [PATCH] Bug 18801: [Follow-up] Dbrev to repair bad auth type codes Content-Type: text/plain; charset=utf-8 Test plan Run updatedatabase. Signed-off-by: Marcel de Rooy --- installer/data/mysql/atomicupdate/bug18801.perl | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 installer/data/mysql/atomicupdate/bug18801.perl diff --git a/installer/data/mysql/atomicupdate/bug18801.perl b/installer/data/mysql/atomicupdate/bug18801.perl new file mode 100644 index 0000000..8a8fd50 --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug18801.perl @@ -0,0 +1,15 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if( CheckVersion( $DBversion ) ) { + # Fetch all auth types + my $authtypes = $dbh->selectcol_arrayref( q|SELECT authtypecode FROM auth_types| ); + + if( grep { $_ eq 'Default' } @$authtypes ) { + # If this exists as an authtypecode, we don't do anything + } else { + # Replace the incorrect Default by empty string + $dbh->do( q|UPDATE auth_header SET authtypecode='' WHERE authtypecode='Default'| ); + } + + SetVersion( $DBversion ); + print "Upgrade to $DBversion done (Bug 18801 - Update incorrect Default auth type codes)\n"; +} -- 2.1.4