MQ and php and perl

Finally I managed to write monitoring scripts for MQ. The architecture is a simple client-server architecture. Since the commands need to run as mq, there is a socket based server program which runs on the boxes where queue manager is hosted. I wrote this in perl since I dont have a standalone php installed in my middleware boxes. The web client is written in php, which will query the perl socket server for the details and get back the results in xml format. The xml format is parsed through and displayed as a simple table. The background colour of a row in a table indicates the health of queue/channel. It is a poorly written dirty script with all necessary blocks for security but still unfit to put in internet due to poor comments and unelegant style. If anybody wants a copy send me a mail nsupathy at gmail dot com.