installer/data/mysql/atomicupdate/bug19043.perl

   1 $DBversion = 'XXX';  # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3     my $where = q|host='clio-db.cc.columbia.edu' AND port=7090|;
   4     my $sql = "SELECT COUNT(*) FROM z3950servers WHERE $where";
   5     my ( $cnt ) = $dbh->selectrow_array( $sql );
   6     if( $cnt ) {
   7         $dbh->do( "DELETE FROM z3950servers WHERE $where" );
   8         print "Removed $cnt Z39.50 target(s) for Columbia University\n";
   9     }
  10
  11     SetVersion( $DBversion );
  12     print "Upgrade to $DBversion done (Bug 19043 - Z39.50 target for Columbia University is no longer publicly available.)\n";
  13 }