prestogres 0.1.0

data/pgpool2/pgpool.spec

@@ -0,0 +1,264 @@
+# How to build RPM:
+#   rpmbuild -ba pgpool.spec --define"pgpool_version 3.3.1" --define="pg_version 93" --define="pghome /usr/pgsql-9.3"
+#
+# expecting RPM name are:
+#   pgpool-II-pg{xx}-{version}.pgdg.{arch}.rpm
+#   pgpool-II-pg{xx}-devel-{version}.pgdg.{arch}.rpm
+#   pgpool-II-pg{xx}-{version}.pgdg.src.rpm
+
+Summary:        Pgpool is a connection pooling/replication server for PostgreSQL
+Name:           pgpool-II-pg%{pg_version}
+Version:        %{pgpool_version}
+Release:        1%{?dist}
+License:        BSD
+Group:          Applications/Databases
+Vendor:         Pgpool Global Development Group
+URL:            http://www.pgppol.net/
+Source0:        pgpool-II-%{version}.tar.gz
+Source1:        pgpool.init
+Source2:        pgpool.sysconfig
+Patch1:         pgpool.conf.sample.patch
+BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
+BuildRequires:  postgresql%{pg_version}-devel pam-devel
+Obsoletes:      postgresql-pgpool
+
+# original pgpool archive name
+%define archive_name pgpool-II-%{version}
+
+%description
+pgpool-II is a inherited project of pgpool (to classify from
+pgpool-II, it is sometimes called as pgpool-I). For those of
+you not familiar with pgpool-I, it is a multi-functional
+middle ware for PostgreSQL that features connection pooling,
+replication and load balancing functions. pgpool-I allows a
+user to connect at most two PostgreSQL servers for higher
+availability or for higher search performance compared to a
+single PostgreSQL server.
+
+pgpool-II, on the other hand, allows multiple PostgreSQL
+servers (DB nodes) to be connected, which enables queries
+to be executed simultaneously on all servers. In other words,
+it enables "parallel query" processing. Also, pgpool-II can
+be started as pgpool-I by changing configuration parameters.
+pgpool-II that is executed in pgpool-I mode enables multiple
+DB nodes to be connected, which was not possible in pgpool-I.
+
+%package devel
+Summary:     The development files for pgpool-II
+Group:       Development/Libraries
+Requires:    %{name} = %{version}
+
+%description devel
+Development headers and libraries for pgpool-II.
+
+%prep
+%setup -q -n %{archive_name}
+%patch1 -p0
+
+%build
+%configure --with-pgsql-includedir=%{pghome}/include/ \
+           --with-pgsql-lib=%{pghome}/lib \
+           --disable-static --with-pam --disable-rpath \
+           --sysconfdir=%{_sysconfdir}/%{name}/
+
+make %{?_smp_flags}
+
+%install
+rm -rf %{buildroot}
+make %{?_smp_flags} DESTDIR=%{buildroot} install
+install -d %{buildroot}%{_datadir}/%{name}
+install -d %{buildroot}%{_sysconfdir}/%{name}
+mv %{buildroot}/%{_sysconfdir}/%{name}/pcp.conf.sample %{buildroot}%{_sysconfdir}/%{name}/pcp.conf
+mv %{buildroot}/%{_sysconfdir}/%{name}/pgpool.conf.sample %{buildroot}%{_sysconfdir}/%{name}/pgpool.conf
+mv %{buildroot}/%{_sysconfdir}/%{name}/pool_hba.conf.sample %{buildroot}%{_sysconfdir}/%{name}/pool_hba.conf
+install -d %{buildroot}%{_initrddir}
+install -m 755 %{SOURCE1} %{buildroot}%{_initrddir}/pgpool
+install -d %{buildroot}%{_sysconfdir}/sysconfig
+install -m 644 %{SOURCE2} %{buildroot}%{_sysconfdir}/sysconfig/pgpool
+
+# install to PostgreSQL
+export PATH=%{pghome}/bin:$PATH
+cd sql/pgpool-recovery/
+make %{?_smp_flags} DESTDIR=%{buildroot} install
+cd ../../
+cd sql/pgpool-regclass/
+make %{?_smp_flags} DESTDIR=%{buildroot} install
+cd ../../
+
+# nuke libtool archive and static lib
+rm -f %{buildroot}%{_libdir}/libpcp.{a,la}
+
+%clean
+rm -rf %{buildroot}
+
+%post
+/sbin/ldconfig
+chkconfig --add pgpool
+
+%preun
+if [ $1 = 0 ] ; then
+    /sbin/service pgpool condstop >/dev/null 2>&1
+    chkconfig --del pgpool
+fi
+
+%postun -p /sbin/ldconfig
+
+%files
+%defattr(-,root,root,-)
+%dir %{_datadir}/%{name}
+%doc README README.euc_jp TODO COPYING INSTALL AUTHORS ChangeLog NEWS doc/pgpool-en.html doc/pgpool-ja.html doc/pgpool.css doc/tutorial-en.html doc/tutorial-ja.html
+%{_bindir}/pgpool
+%{_bindir}/pcp_attach_node
+%{_bindir}/pcp_detach_node
+%{_bindir}/pcp_node_count
+%{_bindir}/pcp_node_info
+%{_bindir}/pcp_pool_status
+%{_bindir}/pcp_proc_count
+%{_bindir}/pcp_proc_info
+%{_bindir}/pcp_promote_node
+%{_bindir}/pcp_stop_pgpool
+%{_bindir}/pcp_recovery_node
+%{_bindir}/pcp_systemdb_info
+%{_bindir}/pcp_watchdog_info
+%{_bindir}/pg_md5
+%{_mandir}/man8/pgpool*
+%{_datadir}/pgpool-II/insert_lock.sql
+%{_datadir}/pgpool-II/system_db.sql
+%{_datadir}/pgpool-II/pgpool.pam
+%{pghome}/share/extension/pgpool-recovery.sql
+%{pghome}/share/extension/pgpool_recovery--1.0.sql
+%{pghome}/share/extension/pgpool_recovery.control
+%{pghome}/share/extension/pgpool-regclass.sql
+%{pghome}/share/extension/pgpool_regclass--1.0.sql
+%{pghome}/share/extension/pgpool_regclass.control
+%{_sysconfdir}/%{name}/pgpool.conf.sample-master-slave
+%{_sysconfdir}/%{name}/pgpool.conf.sample-replication
+%{_sysconfdir}/%{name}/pgpool.conf.sample-stream
+%{_libdir}/libpcp.so.*
+%{pghome}/lib/pgpool-recovery.so
+%{pghome}/lib/pgpool-regclass.so
+%{_initrddir}/pgpool
+%attr(764,root,root) %config(noreplace) %{_sysconfdir}/%{name}/*.conf
+%config(noreplace) %{_sysconfdir}/sysconfig/pgpool
+
+%files devel
+%defattr(-,root,root,-)
+%{_includedir}/libpcp_ext.h
+%{_includedir}/pcp.h
+%{_includedir}/pool_process_reporting.h
+%{_includedir}/pool_type.h
+%{_libdir}/libpcp.so
+
+%changelog
+* Tue Nov 26 2013 Nozomi Anzai <anzai@sraoss.co.jp> 3.3.1-1
+- Improved to specify the versions of pgool-II and PostgreSQL
+
+* Mon May 13 2013 Nozomi Anzai <anzai@sraoss.co.jp> 3.3.0-1
+- Update to 3.3.0
+- Change to install pgpool-recovery, pgpool-regclass to PostgreSQL
+
+* Tue Nov 3 2009 Devrim Gunduz <devrim@CommandPrompt.com> 2.2.5-3
+- Remove init script from all runlevels before uninstall. Per #RH Bugzilla
+  532177
+
+* Mon Oct 5 2009 Devrim Gunduz <devrim@CommandPrompt.com> 2.2.5-2
+- Add 2 new docs, per Tatsuo.
+
+* Sun Oct 4 2009 Devrim Gunduz <devrim@CommandPrompt.com> 2.2.5-1
+- Update to 2.2.5, for various fixes described at
+  http://lists.pgfoundry.org/pipermail/pgpool-general/2009-October/002188.html
+- Re-apply a fix for Red Hat Bugzilla #442372
+
+* Wed Sep 9 2009 Devrim Gunduz <devrim@CommandPrompt.com> 2.2.4-1
+- Update to 2.2.4
+
+* Wed May 6 2009 Devrim Gunduz <devrim@CommandPrompt.com> 2.2.2-1
+- Update to 2.2.2
+
+* Sun Mar 1 2009 Devrim Gunduz <devrim@CommandPrompt.com> 2.2-1
+- Update to 2.2
+- Fix URL
+- Own /usr/share/pgpool-II directory.
+- Fix pid file path in init script, per    pgcore #81.
+- Fix spec file -- we don't use short_name macro in pgcore spec file.
+- Create pgpool pid file directory, per pgcore #81.
+- Fix stop/start routines, also improve init script a bit.
+- Install conf files to a new directory (/etc/pgpool-II), and get rid
+  of sample conf files.
+
+* Fri Aug 8 2008 Devrim Gunduz <devrim@CommandPrompt.com> 2.1-1
+- Update to 2.1
+- Removed temp patch #4.
+
+* Sun Jan 13 2008 Devrim Gunduz <devrim@CommandPrompt.com> 2.0.1-1
+- Update to 2.0.1
+- Add a temp patch that will disappear in 2.0.2
+
+* Fri Oct 5 2007 Devrim Gunduz <devrim@CommandPrompt.com> 1.2.1-1
+- Update to 1.2.1
+
+* Wed Aug 29 2007 Devrim Gunduz <devrim@CommandPrompt.com> 1.2-5
+- Chmod sysconfig/pgpool to 644, not 755. Per BZ review.
+- Run chkconfig --add pgpool during %%post.
+
+* Thu Aug 16 2007 Devrim Gunduz <devrim@CommandPrompt.com> 1.2-4
+- Fixed the directory name where sample conf files and sql files
+  are installed.
+
+* Sun Aug 5 2007 Devrim Gunduz <devrim@CommandPrompt.com> 1.2-3
+- Added a patch for sample conf file to use Fedora defaults
+
+* Sun Aug 5 2007 Devrim Gunduz <devrim@CommandPrompt.com> 1.2-2
+- Added an init script for pgpool
+- Added /etc/sysconfig/pgpool
+
+* Wed Aug 1 2007 Devrim Gunduz <devrim@CommandPrompt.com> 1.2-1
+- Update to 1.2
+
+* Fri Jun 15 2007 Devrim Gunduz <devrim@CommandPrompt.com> 1.1.1-1
+- Update to 1.1.1
+
+* Sat Jun 2 2007 Devrim Gunduz <devrim@CommandPrompt.com> 1.1-1
+- Update to 1.1
+- added --disable-rpath configure parameter.
+- Chowned sample conf files, so that they can work with pgpoolAdmin.
+
+* Thu Apr 22 2007 Devrim Gunduz <devrim@CommandPrompt.com> 1.0.2-4
+- Added postgresql-devel as BR, per bugzilla review.
+- Added --disable-static flan, per bugzilla review.
+- Removed superfluous manual file installs, per bugzilla review.
+
+* Thu Apr 22 2007 Devrim Gunduz <devrim@CommandPrompt.com> 1.0.2-3
+- Rebuilt for the correct tarball
+- Fixed man8 file ownership, per bugzilla review #229321
+
+* Tue Feb 20 2007 Jarod Wilson <jwilson@redhat.com> 1.0.2-2
+- Create proper devel package, drop -libs package
+- Nuke rpath
+- Don't install libtool archive and static lib
+- Clean up %%configure line
+- Use proper %%_smp_mflags
+- Install config files properly, without .sample on the end
+- Preserve timestamps on header files
+
+* Tue Feb 20 2007 Devrim Gunduz <devrim@commandprompt.com> 1.0.2-1
+- Update to 1.0.2-1
+
+* Mon Oct 02 2006 Devrim Gunduz <devrim@commandprompt.com> 1.0.1-5
+- Rebuilt
+
+* Mon Oct 02 2006 Devrim Gunduz <devrim@commandprompt.com> 1.0.1-4
+- Added -libs and RPM
+- Fix .so link problem
+- Cosmetic changes to spec file
+
+* Thu Sep 27 2006 - Devrim GUNDUZ <devrim@commandprompt.com> 1.0.1-3
+- Fix spec, per Yoshiyuki Asaba
+
+* Thu Sep 26 2006 - Devrim GUNDUZ <devrim@commandprompt.com> 1.0.1-2
+- Fixed rpmlint errors
+- Fixed download url
+- Added ldconfig for .so files
+
+* Thu Sep 21 2006 - David Fetter <david@fetter.org> 1.0.1-1
+- Initial build pgpool-II 1.0.1 for PgPool Global Development Group

data/pgpool2/pgpool_adm/TODO

@@ -0,0 +1,7 @@
+* pcp_proc_count
+* pcp_proc_info
+* pcp_promote_node
+* pcp_recovery_node
+* pcp_stop_pgpool
+* pcp_systemdb_info
+* anything else ?

data/pgpool2/pgpool_adm/pgpool_adm--1.0.sql

@@ -0,0 +1,85 @@
+/* contrib/pgpool_adm/pgpool_adm--1.0.sql */
+
+/* ***********************************************
+ * Administrative functions for pgPool
+ * *********************************************** */
+
+/**
+ * input parameters: node_id, host, timeout, port, username, password
+ */
+CREATE FUNCTION pcp_node_info(integer, text, integer, integer, text, text, OUT host text, OUT port integer, OUT status text, OUT weight float4)
+RETURNS record
+AS 'MODULE_PATHNAME', '_pcp_node_info'
+LANGUAGE C VOLATILE STRICT;
+
+/**
+ * input parameters: node_id, server_name
+ */
+CREATE FUNCTION pcp_node_info(integer, text, OUT host text, OUT port integer, OUT status text, OUT weight float4)
+RETURNS record
+AS 'MODULE_PATHNAME', '_pcp_node_info'
+LANGUAGE C VOLATILE STRICT;
+
+/**
+ * input parameters: host, timeout, port, username, password
+ */
+CREATE FUNCTION pcp_pool_status(text, integer, integer, text, text, OUT item text, OUT value text, OUT description text)
+RETURNS record
+AS 'MODULE_PATHNAME', '_pcp_pool_status'
+LANGUAGE C VOLATILE STRICT;
+
+/**
+ * input parameters: server_name
+ */
+CREATE FUNCTION pcp_pool_status(text, OUT item text, OUT value text, OUT description text)
+RETURNS record
+AS 'MODULE_PATHNAME', '_pcp_pool_status'
+LANGUAGE C VOLATILE STRICT;
+
+/**
+ * input parameters: host, timeout, port, username, password
+ */
+CREATE FUNCTION pcp_node_count(text, integer, integer, text, text, OUT node_count integer)
+RETURNS integer
+AS 'MODULE_PATHNAME', '_pcp_node_count'
+LANGUAGE C VOLATILE STRICT;
+
+/**
+ * input parameters: server_name
+ */
+CREATE FUNCTION pcp_node_count(text, OUT node_count integer)
+RETURNS integer
+AS 'MODULE_PATHNAME', '_pcp_node_count'
+LANGUAGE C VOLATILE STRICT;
+
+/**
+ * input parameters: node_id, host, timeout, port, username, password
+ */
+CREATE FUNCTION pcp_attach_node(integer, text, integer, integer, text, text, OUT node_attached boolean)
+RETURNS boolean
+AS 'MODULE_PATHNAME', '_pcp_attach_node'
+LANGUAGE C VOLATILE STRICT;
+
+/**
+ * input parameters: node_id, server_name
+ */
+CREATE FUNCTION pcp_attach_node(integer, text, OUT node_attached boolean)
+RETURNS boolean
+AS 'MODULE_PATHNAME', '_pcp_attach_node'
+LANGUAGE C VOLATILE STRICT;
+
+/**
+ * input parameters: node_id, gracefully, host, timeout, port, username, password
+ */
+CREATE FUNCTION pcp_detach_node(integer, boolean, text, integer, integer, text, text, OUT node_detached boolean)
+RETURNS boolean
+AS 'MODULE_PATHNAME', '_pcp_detach_node'
+LANGUAGE C VOLATILE STRICT;
+
+/**
+ * input parameters: node_id, gracefully, server_name
+ */
+CREATE FUNCTION pcp_detach_node(integer, boolean, text, OUT node_detached boolean)
+RETURNS boolean
+AS 'MODULE_PATHNAME', '_pcp_detach_node'
+LANGUAGE C VOLATILE STRICT;

data/pgpool2/pgpool_adm/pgpool_adm.c

@@ -0,0 +1,558 @@
+/*-------------------------------------------------------------------------
+ *
+ * pgpool_adm.c
+ *
+ *
+ * Copyright (c) 2002-2011, PostgreSQL Global Development Group
+ *
+ * Author: Jehan-Guillaume (ioguix) de Rorthais <jgdr@dalibo.com>
+ *
+ * IDENTIFICATION
+ *	  contrib/pgpool_adm/pgpool_adm.c
+ *
+ *-------------------------------------------------------------------------
+ */
+#include "postgres.h"
+#include "miscadmin.h"
+#include "utils/builtins.h"
+#include "foreign/foreign.h"
+#include "nodes/pg_list.h"
+
+#include <unistd.h>
+
+#include "catalog/pg_type.h"
+#include "funcapi.h"
+#include "libpcp_ext.h"
+#include "pgpool_adm.h"
+
+/**
+ * Init a pcp_conninfo struct with empty values
+ * pcp_conninfo: pcpConninfo structure to intialize
+ */
+void
+init_pcp_conninfo(pcpConninfo * pcp_conninfo)
+{
+	pcp_conninfo->host = NULL;
+	pcp_conninfo->timeout = -1;
+	pcp_conninfo->port = -1;
+	pcp_conninfo->user = NULL;
+	pcp_conninfo->pass = NULL;
+}
+
+/**
+ * Checks the give pcp_conninfo has valid properties
+ * pcp_conninfo: pcpConninfo structure to check
+ *
+ * exit the function call on error !
+ */
+void
+check_pcp_conninfo_props(pcpConninfo * pcp_conninfo)
+{
+	if (pcp_conninfo->timeout < 0)
+		ereport(ERROR, (0, errmsg("Timeout is out of range.")));
+
+	if (pcp_conninfo->port < 0 || pcp_conninfo->port > 65535)
+		ereport(ERROR, (0, errmsg("PCP port out of range.")));
+
+	if (! pcp_conninfo->user)
+		ereport(ERROR, (0, errmsg("No user given.")));
+
+	if (! pcp_conninfo->pass)
+		ereport(ERROR, (0, errmsg("No password given.")));
+}
+
+/**
+ * Wrapper around pcp_connect
+ * pcp_conninfo: pcpConninfo structure having pcp connection properties
+ */
+int
+pcp_connect_conninfo(pcpConninfo * pcp_conninfo)
+{
+	pcp_set_timeout(pcp_conninfo->timeout);
+
+	if (pcp_connect(pcp_conninfo->host, pcp_conninfo->port, pcp_conninfo->user, pcp_conninfo->pass))
+	{
+		return -1;
+	}
+
+	return 0;
+}
+
+/**
+ * Returns a pcpConninfo structure filled from a foreign server
+ * name: the name of the foreign server
+ */
+pcpConninfo
+get_pcp_conninfo_from_foreign_server(char * name)
+{
+	Oid userid = GetUserId();
+	pcpConninfo pcp_conninfo;
+	/* raise an error if given foreign server doesn't exists */
+	ForeignServer * foreign_server = GetForeignServerByName(name, false);
+	UserMapping * user_mapping;
+	ListCell * cell;
+	
+	init_pcp_conninfo(&pcp_conninfo);
+
+	/* raise an error if the current user isn't mapped with the given foreign server */
+	user_mapping = GetUserMapping(userid, foreign_server->serverid);
+
+	foreach(cell, foreign_server->options)
+	{
+		DefElem * def = lfirst(cell);
+
+		if (strcmp(def->defname, "host") == 0)
+		{
+			pcp_conninfo.host = pstrdup(strVal(def->arg));
+		}
+		else if (strcmp(def->defname, "port") == 0)
+		{
+			pcp_conninfo.port = atoi(strVal(def->arg));
+		}
+		else if (strcmp(def->defname, "timeout") == 0)
+		{
+			pcp_conninfo.timeout = atoi(strVal(def->arg));
+		}
+	}
+
+	foreach(cell, user_mapping->options)
+	{
+		DefElem * def = lfirst(cell);
+
+		if (strcmp(def->defname, "user") == 0)
+		{
+			pcp_conninfo.user = pstrdup(strVal(def->arg));
+		}
+		else if (strcmp(def->defname, "password") == 0)
+		{
+			pcp_conninfo.pass = pstrdup(strVal(def->arg));
+		}
+	}
+
+	return pcp_conninfo;
+}
+
+/**
+ * nodeID: the node id to get info from
+ * host_or_srv: server name or ip address of the pgpool server
+ * timeout: timeout
+ * port: pcp port number
+ * user: user to connect with
+ * pass: password
+ **/
+Datum
+_pcp_node_info(PG_FUNCTION_ARGS)
+{
+	int16  nodeID = PG_GETARG_INT16(0);
+	char * host_or_srv = text_to_cstring(PG_GETARG_TEXT_PP(1));
+	pcpConninfo pcp_conninfo;
+
+	BackendInfo * backend_info = NULL;
+	Datum values[4]; /* values to build the returned tuple from */
+	bool nulls[] = {false, false, false, false};
+	TupleDesc tupledesc;
+	HeapTuple tuple;
+
+	if (nodeID < 0 || nodeID >= MAX_NUM_BACKENDS)
+		ereport(ERROR, (0, errmsg("NodeID is out of range.")));
+
+	init_pcp_conninfo(&pcp_conninfo);
+
+	if (PG_NARGS() == 6)
+	{
+		pcp_conninfo.host = host_or_srv;
+		pcp_conninfo.timeout = PG_GETARG_INT16(2);
+		pcp_conninfo.port = PG_GETARG_INT16(3);
+		pcp_conninfo.user = text_to_cstring(PG_GETARG_TEXT_PP(4));
+		pcp_conninfo.pass = text_to_cstring(PG_GETARG_TEXT_PP(5));
+	}
+	else if (PG_NARGS() == 2)
+	{
+		pcp_conninfo = get_pcp_conninfo_from_foreign_server(host_or_srv);
+	}
+	else
+	{
+		ereport(ERROR, (0, errmsg("Wrong number of argument.")));
+	}
+
+	check_pcp_conninfo_props(&pcp_conninfo);
+
+	/**
+	 * Construct a tuple descriptor for the result rows.
+	 **/
+	tupledesc = CreateTemplateTupleDesc(4, false);
+	TupleDescInitEntry(tupledesc, (AttrNumber) 1, "hostname", TEXTOID, -1, 0);
+	TupleDescInitEntry(tupledesc, (AttrNumber) 2, "port", INT4OID, -1, 0);
+	TupleDescInitEntry(tupledesc, (AttrNumber) 3, "status", TEXTOID, -1, 0);
+	TupleDescInitEntry(tupledesc, (AttrNumber) 4, "weight", FLOAT4OID, -1, 0);
+	tupledesc = BlessTupleDesc(tupledesc);
+
+	/**
+	 * PCP session
+	 **/
+	if (pcp_connect_conninfo(&pcp_conninfo))
+	{
+		ereport(ERROR,(0, errmsg("Cannot connect to PCP server.")));
+	}
+
+	if ((backend_info = pcp_node_info(nodeID)) == NULL)
+	{
+		pcp_disconnect();
+		ereport(ERROR,(0, errmsg("Cannot get node information.")));
+	}
+
+	/* set values */
+	values[0] = CStringGetTextDatum(backend_info->backend_hostname);
+	nulls[0] = false;
+	values[1] = Int16GetDatum(backend_info->backend_port);
+	nulls[1] = false;
+	switch (backend_info->backend_status)
+	{
+		case CON_UNUSED:
+			values[2] = CStringGetTextDatum("Connection unused");
+			break;
+		case CON_CONNECT_WAIT:
+			values[2] = CStringGetTextDatum("Waiting for connection to start");
+			break;
+		case CON_UP:
+			values[2] = CStringGetTextDatum("Connection in use");
+			break;
+		case CON_DOWN:
+			values[2] = CStringGetTextDatum("Disconnected");
+			break;
+	}
+	nulls[2] = false;
+	values[3] = Float8GetDatum(backend_info->backend_weight/RAND_MAX);
+	nulls[3] = false;
+
+	free(backend_info);
+	pcp_disconnect();
+
+	/* build and return the tuple */
+	tuple = heap_form_tuple(tupledesc, values, nulls);
+
+	ReleaseTupleDesc(tupledesc);
+
+	PG_RETURN_DATUM(HeapTupleGetDatum(tuple));
+}
+
+/**
+ * host_or_srv: server name or ip address of the pgpool server
+ * timeout: timeout
+ * port: pcp port number
+ * user: user to connect with
+ * pass: password
+ **/
+Datum
+_pcp_pool_status(PG_FUNCTION_ARGS)
+{
+	MemoryContext oldcontext;
+	FuncCallContext *funcctx;
+	POOL_REPORT_CONFIG *status;
+	int32 nrows;
+	int32 call_cntr;
+	int32 max_calls;
+	AttInMetadata *attinmeta;
+
+	/* stuff done only on the first call of the function */
+	if (SRF_IS_FIRSTCALL())
+	{
+		TupleDesc tupdesc;
+		char * host_or_srv = text_to_cstring(PG_GETARG_TEXT_PP(0));
+		pcpConninfo pcp_conninfo;
+
+		init_pcp_conninfo(&pcp_conninfo);
+
+		/* create a function context for cross-call persistence */
+		funcctx = SRF_FIRSTCALL_INIT();
+
+		/* switch to memory context appropriate for multiple function calls */
+		oldcontext = MemoryContextSwitchTo(funcctx->multi_call_memory_ctx);
+
+		if (PG_NARGS() == 5)
+		{
+			pcp_conninfo.host = host_or_srv;
+			pcp_conninfo.timeout = PG_GETARG_INT16(1);
+			pcp_conninfo.port = PG_GETARG_INT16(2);
+			pcp_conninfo.user = text_to_cstring(PG_GETARG_TEXT_PP(3));
+			pcp_conninfo.pass = text_to_cstring(PG_GETARG_TEXT_PP(4));
+		}
+		else if (PG_NARGS() == 1)
+		{
+			pcp_conninfo = get_pcp_conninfo_from_foreign_server(host_or_srv);
+		}
+		else
+		{
+			MemoryContextSwitchTo(oldcontext);
+			ereport(ERROR, (0, errmsg("Wrong number of argument.")));
+		}
+
+		check_pcp_conninfo_props(&pcp_conninfo);
+
+		/* get configuration and status */
+		/**
+		 * PCP session
+		 **/
+		if (pcp_connect_conninfo(&pcp_conninfo))
+		{
+			ereport(ERROR,(0, errmsg("Cannot connect to PCP server.")));
+		}
+
+		if ((status = pcp_pool_status(&nrows)) == NULL)
+		{
+			pcp_disconnect();
+			ereport(ERROR,(0, errmsg("Cannot pool status information.")));
+		}
+
+		pcp_disconnect();
+
+		/* Construct a tuple descriptor for the result rows */
+		tupdesc = CreateTemplateTupleDesc(3, false);
+		TupleDescInitEntry(tupdesc, (AttrNumber) 1, "item", TEXTOID, -1, 0);
+		TupleDescInitEntry(tupdesc, (AttrNumber) 2, "value", TEXTOID, -1, 0);
+		TupleDescInitEntry(tupdesc, (AttrNumber) 3, "description", TEXTOID, -1, 0);
+
+		/*
+		 * Generate attribute metadata needed later to produce tuples from raw
+		 * C strings
+		 */
+		attinmeta = TupleDescGetAttInMetadata(tupdesc);
+		funcctx->attinmeta = attinmeta;
+
+		if ((status != NULL) && (nrows > 0))
+		{
+			funcctx->max_calls = nrows;
+
+			/* got results, keep track of them */
+			funcctx->user_fctx = status;
+		}
+		else
+		{
+			/* fast track when no results */
+			MemoryContextSwitchTo(oldcontext);
+			SRF_RETURN_DONE(funcctx);
+		}
+
+		MemoryContextSwitchTo(oldcontext);
+	}
+
+	/* stuff done on every call of the function */
+	funcctx = SRF_PERCALL_SETUP();
+
+	/* initialize per-call variables */
+	call_cntr = funcctx->call_cntr;
+	max_calls = funcctx->max_calls;
+
+	status = (POOL_REPORT_CONFIG*) funcctx->user_fctx;
+	attinmeta = funcctx->attinmeta;
+
+	if (call_cntr < max_calls)	/* executed while there is more left to send */
+	{
+		char * values[3];
+		HeapTuple tuple;
+		Datum result;
+
+		values[0] = pstrdup(status[call_cntr].name);
+		values[1] = pstrdup(status[call_cntr].value);
+		values[2] = pstrdup(status[call_cntr].desc);
+
+		/* build the tuple */
+		tuple = BuildTupleFromCStrings(attinmeta, values);
+
+		/* make the tuple into a datum */
+		result = HeapTupleGetDatum(tuple);
+
+		SRF_RETURN_NEXT(funcctx, result);
+	}
+	else
+	{
+		/* do when there is no more left */
+		SRF_RETURN_DONE(funcctx);
+	}
+
+	free(status);
+}
+
+/**
+ * nodeID: the node id to get info from
+ * host_or_srv: server name or ip address of the pgpool server
+ * timeout: timeout
+ * port: pcp port number
+ * user: user to connect with
+ * pass: password
+ **/
+Datum
+_pcp_node_count(PG_FUNCTION_ARGS)
+{
+	char * host_or_srv = text_to_cstring(PG_GETARG_TEXT_PP(0));
+	pcpConninfo pcp_conninfo;
+	int16 node_count = 0;
+
+	init_pcp_conninfo(&pcp_conninfo);
+
+	if (PG_NARGS() == 5)
+	{
+		pcp_conninfo.host = host_or_srv;
+		pcp_conninfo.timeout = PG_GETARG_INT16(1);
+		pcp_conninfo.port = PG_GETARG_INT16(2);
+		pcp_conninfo.user = text_to_cstring(PG_GETARG_TEXT_PP(3));
+		pcp_conninfo.pass = text_to_cstring(PG_GETARG_TEXT_PP(4));
+	}
+	else if (PG_NARGS() == 1)
+	{
+		pcp_conninfo = get_pcp_conninfo_from_foreign_server(host_or_srv);
+	}
+	else
+	{
+		ereport(ERROR, (0, errmsg("Wrong number of argument.")));
+	}
+
+	check_pcp_conninfo_props(&pcp_conninfo);
+
+	/**
+	 * PCP session
+	 **/
+	if (pcp_connect_conninfo(&pcp_conninfo))
+	{
+		ereport(ERROR,(0, errmsg("Cannot connect to PCP server.")));
+	}
+
+	if ((node_count = pcp_node_count()) == -1)
+	{
+		pcp_disconnect();
+		ereport(ERROR,(0, errmsg("Cannot get node count.")));
+	}
+
+	pcp_disconnect();
+
+	PG_RETURN_INT16(node_count);
+}
+
+/**
+ * nodeID: the node id to get info from
+ * host_or_srv: server name or ip address of the pgpool server
+ * timeout: timeout
+ * port: pcp port number
+ * user: user to connect with
+ * pass: password
+ **/
+Datum
+_pcp_attach_node(PG_FUNCTION_ARGS)
+{
+	int16  nodeID = PG_GETARG_INT16(0);
+	char * host_or_srv = text_to_cstring(PG_GETARG_TEXT_PP(1));
+	pcpConninfo pcp_conninfo;
+	int status;
+
+	if (nodeID < 0 || nodeID >= MAX_NUM_BACKENDS)
+		ereport(ERROR, (0, errmsg("NodeID is out of range.")));
+
+	init_pcp_conninfo(&pcp_conninfo);
+
+	if (PG_NARGS() == 6)
+	{
+		pcp_conninfo.host = host_or_srv;
+		pcp_conninfo.timeout = PG_GETARG_INT16(2);
+		pcp_conninfo.port = PG_GETARG_INT16(3);
+		pcp_conninfo.user = text_to_cstring(PG_GETARG_TEXT_PP(4));
+		pcp_conninfo.pass = text_to_cstring(PG_GETARG_TEXT_PP(5));
+	}
+	else if (PG_NARGS() == 2)
+	{
+		pcp_conninfo = get_pcp_conninfo_from_foreign_server(host_or_srv);
+	}
+	else
+	{
+		ereport(ERROR, (0, errmsg("Wrong number of argument.")));
+	}
+
+	check_pcp_conninfo_props(&pcp_conninfo);
+
+	/**
+	 * PCP session
+	 **/
+	if (pcp_connect_conninfo(&pcp_conninfo))
+	{
+		ereport(ERROR,(0, errmsg("Cannot connect to PCP server.")));
+	}
+
+	status = pcp_attach_node(nodeID);
+
+	pcp_disconnect();
+
+	if (status == -1)
+	{
+		PG_RETURN_BOOL(false);
+	}
+
+	PG_RETURN_BOOL(true);
+}
+
+/**
+ * nodeID: the node id to get info from
+ * gracefully: detach node gracefully if true
+ * host_or_srv: server name or ip address of the pgpool server
+ * timeout: timeout
+ * port: pcp port number
+ * user: user to connect with
+ * pass: password
+ **/
+Datum
+_pcp_detach_node(PG_FUNCTION_ARGS)
+{
+	int16 nodeID = PG_GETARG_INT16(0);
+	bool gracefully = PG_GETARG_BOOL(1);
+	char * host_or_srv = text_to_cstring(PG_GETARG_TEXT_PP(2));
+	pcpConninfo pcp_conninfo;
+	int status;
+
+	if (nodeID < 0 || nodeID >= MAX_NUM_BACKENDS)
+		ereport(ERROR, (0, errmsg("NodeID is out of range.")));
+
+	init_pcp_conninfo(&pcp_conninfo);
+
+	if (PG_NARGS() == 7)
+	{
+		pcp_conninfo.host = host_or_srv;
+		pcp_conninfo.timeout = PG_GETARG_INT16(3);
+		pcp_conninfo.port = PG_GETARG_INT16(4);
+		pcp_conninfo.user = text_to_cstring(PG_GETARG_TEXT_PP(5));
+		pcp_conninfo.pass = text_to_cstring(PG_GETARG_TEXT_PP(6));
+	}
+	else if (PG_NARGS() == 3)
+	{
+		pcp_conninfo = get_pcp_conninfo_from_foreign_server(host_or_srv);
+	}
+	else
+	{
+		ereport(ERROR, (0, errmsg("Wrong number of argument.")));
+	}
+
+	check_pcp_conninfo_props(&pcp_conninfo);
+
+	/**
+	 * PCP session
+	 **/
+	if (pcp_connect_conninfo(&pcp_conninfo))
+	{
+		ereport(ERROR,(0, errmsg("Cannot connect to PCP server.")));
+	}
+
+	if (gracefully)
+	{
+		status = pcp_detach_node_gracefully(nodeID);
+	}
+	else
+	{
+		status = pcp_detach_node(nodeID);
+	}
+
+	pcp_disconnect();
+
+	if (status == -1)
+	{
+		PG_RETURN_BOOL(false);
+	}
+
+	PG_RETURN_BOOL(true);
+}