Added script to grab & ack polled messages

Change-Id: I5ea2ed87f4133cf8154c3986e48b8970a26163a2

modules/registrars/cozaepp/cozaepppoll.php

+<?
+# Copyright (c) 2012-2013, AllWorldIT
+# 
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+
+# Official Website:
+# http://devlabs.linuxassist.net/projects/whmcs-coza-epp
+
+# Lead developer: 
+# Nigel Kukard <nkukard@lbsd.net>
+
+
+# ! ! P L E A S E   N O T E  ! !
+
+# * If you make changes to this file, please consider contributing 
+#   anything useful back to the community. Don't be a sour prick.
+
+# * If you find this module useful please consider making a 
+#   donation to support modules like this.
+
+
+# WHMCS hosting, theming, module development, payment gateway 
+# integration, customizations and consulting all available from 
+# http://allworldit.com
+
+
+
+# This file brings in a few constants we need
+require_once dirname(__FILE__) . '/../../../dbconnect.php';
+# Setup include dir
+$include_path = ROOTDIR . '/modules/registrars/cozaepp';
+set_include_path($include_path . PATH_SEPARATOR . get_include_path());
+# Include EPP stuff we need
+require_once 'cozaepp.php';
+# Additional functions we need
+require_once ROOTDIR . '/includes/functions.php';
+# Include registrar functions aswell
+require_once ROOTDIR . '/includes/registrarfunctions.php';
+# We need pear for the error handling
+require_once "PEAR.php";
+
+require_once 'Net/EPP/Frame.php';
+require_once 'Net/EPP/Frame/Command.php';
+require_once 'Net/EPP/ObjectSpec.php';
+
+# Grab module parameters
+$params = getregistrarconfigoptions('cozaepp');
+
+echo("COZA-EPP Poll Report\n");
+echo("---------------------------------------------------\n");
+
+# Request balance from registrar
+if (PEAR::isError($client = _cozaepp_Client())) {
+	echo("ERROR: ".$client->getMessage()."\n");
+	exit;
+}
+
+
+
+# Loop with message queue
+while (!$last) {
+	# Request messages
+	$output= $client->request('
+	<epp xmlns="urn:ietf:params:xml:ns:epp-1.0">
+		<command>
+			<poll op="req"/>
+		</command>
+	</epp>
+	');
+
+	# Decode response
+	$doc= new DOMDocument();
+	$doc->loadXML($output);
+
+	# Pull off code
+	$coderes = $doc->getElementsByTagName('result')->item(0)->getAttribute('code');
+	if ($coderes == 1301 || $coderes == 1300) {
+		$msgs = $doc->getElementsByTagName('msg');
+		for ($m = 0; $m < $msgs->length; $m++) {
+		    echo "CODE: $coderes, MESSAGE: '".$msgs->item($m)->textContent."'\n";
+		}
+
+		# This is the last one
+		if ($coderes == 1300) {
+			$last = 1;
+		}
+
+		$msgid = $doc->getElementsByTagName('msgQ')->item(0)->getAttribute('id');
+		$res = _cozaepp_ackpoll($client,$msgid);
+		if (PEAR::isError($res)) {
+			echo("ERROR: ".$res->getMessage()."\n");
+		}
+
+	} else {
+		$msgid = $doc->getElementsByTagName('svTRID')->item(0)->textContent;
+		$msgs = $doc->getElementsByTagName('msg');
+		for ($m = 0; $m < $msgs->length; $m++) {
+			echo "\n";
+		    echo "UNKNOWN CODE: $coderes, MESSAGE: '".$msgs->item($m)->textContent."', ID: $msgid\n";
+			echo $output;
+			echo "\n\n";
+		}
+
+	}
+}
+
+?>