Index by: file name |
procedure name |
procedure call |
annotation
deleteJDBCDriver_proc.tcl
(annotations | original source)
####################################################################
# delete JDBCDriver.
####################################################################
proc deleteJDBCDriver { dbDriverName } {
global AdminConfig
putsLog "proc - [info level 0 ]"
# ensure the driver exists then delete the driver.
if { [ catch { $AdminConfig getid /JDBCProvider:$dbDriverName/ } r ] == 0 } {
putsLog "dbDriverId is $r"
set dbDriverId $r
if { [ catch { $AdminConfig remove $dbDriverId } r ] == 0 } {
putsLog "db2 driver $dbDriverName removed sucessfully"
} else {
putsLog "ERROR: filed to delete db2 driver $dbDriverName"
return -code error $r
}
} else {
return -code error $r
}
}
Index by: file name |
procedure name |
procedure call |
annotation
File generated 2007-08-07 at 13:42.