View | Details | Raw Unified | Return to bug 19043
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/bug19043.perl (-1 / +13 lines)
Line 0 Link Here
0
- 
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
}

Return to bug 19043