ASG
IBM
Zystems
Cressida
Icon
Netflexity
 
  MQSeries.net
Search  Search       Tech Exchange      Education      Certifications      Library      Info Center      SupportPacs      LinkedIn  Search  Search                                                                   FAQ  FAQ   Usergroups  Usergroups
 
Register  ::  Log in Log in to check your private messages
 
RSS Feed - WebSphere MQ Support RSS Feed - Message Broker Support

MQSeries.net Forum Index » Files and Code Samples » Perl

This forum is locked: you cannot post, reply to, or edit topics.  This topic is locked: you cannot edit posts or make replies.
 Perl « View previous topic :: View next topic » 
Author Message
Cressida
PostPosted: Sun Sep 02, 2007 6:34 am    Post subject: Perl Reply with quote

Disciple

Joined: 13 Jul 2007
Posts: 152

AdminMove - Sometimes an admin has to move messages out of one queue and onto another without destroying the context info. The attached script shows how to do this using the Perl MQ API. The messages are moved under syncpoint and use the FAIL_IF_QUIESCING options as well. It runs local or as a client and doesn't barf in strict mode.

Created by: T. Robert Wyatt

getput - Useful perl utility for providing a "hopping" point for messages. In other words, if you want to move a message from Queue Manager A to Queue Manager C, but you can only move it there via intermediate Queue Manager B, then you can use this program to automatically forward messages to the ultimate destination. It is invoked with 2 parameters, the source queue name and the destination queue name. It is configured to maintain the MsgId, CorrelId and other header information as it passes the message along, but this can easily be tweaked to create a new message that has the same data as the original. If there are no messages on the source queue it will exit after 10 minutes. It has a 32K buffer size. Both of these parameters can be changed to suit your needs.

Created by: Brandon Duncan

makeq - Although this program seems simple on the surface, it actually has an interesting way of creating a queue. makeq.pl will issue commands within runmqsc interactively to create the queue and capture the output from the queue manager. This is displayed to the user. makeq.pl then calls system() to run setmqaut and grant authorities for a given user on the newly created queue. This program can be easily modified to issue any command within runmqsc and interact with the command console.

Created by: Brandon Duncan

inquireq - This simple program connects to a queue manager and then issues an MQINQ command on a queue to get the current depth of the queue. It is used to illustrate how MQINQ works with the Perl MQSeries API, and can be easily extended to query other query attributes - or even other objects like queue managers, namelists, etc.

Created by: Brandon Duncan
Back to top
View user's profile Send private message
Display posts from previous:   
This forum is locked: you cannot post, reply to, or edit topics.  This topic is locked: you cannot edit posts or make replies. Page 1 of 1

MQSeries.net Forum Index » Files and Code Samples » Perl
Jump to:  



You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
Protected by Anti-Spam ACP
 
 


Theme by Dustin Baccetti
Powered by phpBB © 2001, 2002 phpBB Group

Copyright © MQSeries.net. All rights reserved.