diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2002-09-02 21:51:47 +0000 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2002-09-02 21:51:47 +0000 |
| commit | 8c8aa53953d047c176023358ca311b78cafc6f7b (patch) | |
| tree | 82cc7289cfcfc0c2f47246aa2e1b4819d9f9c899 /src/interfaces/libpgtcl/pgtcl.c | |
| parent | b356b969ef9b9be11f2417b006089c5940e93c42 (diff) | |
pg_on_connection_loss command for libpgtcl. Patch from
Gerhard Hintermayer, revised and documented by Tom Lane.
This patch also fixes a 'must fix' bug: libpgtcl's LISTEN/NOTIFY
support was broken by the recent changes to the PGnotify structure.
Guess that change wasn't quite so safe as we thought.
Diffstat (limited to 'src/interfaces/libpgtcl/pgtcl.c')
| -rw-r--r-- | src/interfaces/libpgtcl/pgtcl.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/interfaces/libpgtcl/pgtcl.c b/src/interfaces/libpgtcl/pgtcl.c index a415d63be65..e0f64958fe9 100644 --- a/src/interfaces/libpgtcl/pgtcl.c +++ b/src/interfaces/libpgtcl/pgtcl.c @@ -10,7 +10,7 @@ * * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.25 2002/06/20 20:29:53 momjian Exp $ + * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.26 2002/09/02 21:51:47 tgl Exp $ * *------------------------------------------------------------------------- */ @@ -151,8 +151,13 @@ Pgtcl_Init(Tcl_Interp *interp) "pg_listen", Pg_listen, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); + + Tcl_CreateCommand(interp, + "pg_on_connection_loss", + Pg_on_connection_loss, + (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); - Tcl_PkgProvide(interp, "Pgtcl", "1.3"); + Tcl_PkgProvide(interp, "Pgtcl", "1.4"); return TCL_OK; } |