Sponsored Content
Full Discussion: PERL MQSeries MQCONN issue
Top Forums Programming PERL MQSeries MQCONN issue Post 303002281 by mrn6430 on Monday 21st of August 2017 07:05:15 PM
Old 08-21-2017
PERL MQSeries MQCONN issue

Hi,

I have an issue with a PERL5 script that calls MQCONN. I get this error on this Perl step when connecting to my Q manager: "Undefined Undefined subroutine &main::MQCONN called at ./quelog.pl "

I use this code:
Code:
$Hconn = MQCONN($QMGR,$CompCode,$Reason);

In my .profile:
Code:
export PERL5LIB="$PERL5LIB:/shared/tools/quelog/modules"

where I have my MQseries, MQCLIENT and MQSERVER. Please help !

Perl Version = perl 5, version 16, subversion 1 (v5.16.1) built for i686-linux-thread-multi
Linux OS: Red Hat 6.5

---------- Post updated at 06:05 PM ---------- Previous update was at 12:00 PM ----------

I tried to re-compile and I get this error:

Code:
gcc -c  -I"/opt/mqm/inc" -I../include -m32 -march=i686 -mtune=i686 -D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2   -DVERSION=\"1.34\" -DXS_VERSION=\"1.34\" -fPIC "-I/vendor/perl5/lib/i686-linux-thread-multi/CORE"  -DMQ_CMVC_LVALUE=\"v7.5.0.6/p750-006-160226\" constants.c
Running Mkbootstrap for MQClient::MQSeries ()
chmod 644 MQSeries.bs
rm -f ../blib/arch/auto/MQClient/MQSeries/MQSeries.so
LD_RUN_PATH="/opt/mqm/lib" gcc  -shared -Wl,-rpath -Wl,/opt/mqm/lib MQSeries.o constants.o  -o ../blib/arch/auto/MQClient/MQSeries/MQSeries.so     \
           -L/opt/mqm/lib -lmqic        \
 MQSeries.o: could not read symbols: File in wrong format
collect2: ld returned 1 exit status

 

10 More Discussions You Might Find Interesting

1. Programming

Shellscript for MQSeries

Iam new to shellscript. 1)How to strart QUERYMANAGER using shellscript. 2)How to put and get messages in MQSeries using shellscripts. 3)iam using local queues . Thanks lot. (0 Replies)
Discussion started by: ram2s2001
0 Replies

2. Shell Programming and Scripting

Is there a way to find the version of my MQSeries?

Is there a way to find the version of my MQSeries? Thanks, Vijay. (0 Replies)
Discussion started by: Vijay06
0 Replies

3. Shell Programming and Scripting

perl issue ..

hi one perl issue i have xml file with 2 values and one condition b.w them <rule> <val1>12</val1> <cond>and</cond> <val2>13</val2> </rule> i read these values in hash in perl code $one{val1} = 12 $one{cond} = and $one{val2} = 13 now i want to form... (3 Replies)
Discussion started by: zedex
3 Replies

4. Shell Programming and Scripting

Perl Script Issue - Please Help * Thanks!!!

Please help me with my script please. I am trying to do the following: 1. Read files for the current directory 2. Open and read from nbe files files only 3. Read only the lines with the results pattern 4. Split the line and print 3rd field Please indicate what line I need to modify. ... (8 Replies)
Discussion started by: jroberson
8 Replies

5. Shell Programming and Scripting

Perl Issue

Hi, I got this script from the web, this generates an LDAP report in CSV format. #!/usr/bin/perl # # Copyright (c) 2004 # Ali Onur Cinar &060;cinar&064;zdo.com&062; # # License: # # Permission to use, copy, modify, and distribute this software and its # documentation for... (23 Replies)
Discussion started by: raj001
23 Replies

6. Shell Programming and Scripting

using MQCONN

Hi, I am trying to connect to a queue manager, but I am not able to use the MQCONN command . If anyone have sample program , please help thanks in davance Satya (2 Replies)
Discussion started by: Satyak
2 Replies

7. Shell Programming and Scripting

Perl issue - please help!

Hello. I've been writing some code in Perl to read in strings from html files and have been having issues. In the html file, each "paragraph" is a certain file on the website. I need to find every one of the files that is a certain type, in this case, having green color....therefore... (7 Replies)
Discussion started by: akreibich07
7 Replies

8. Shell Programming and Scripting

wc -l command issue with perl

Hi Team, the Following program execute with out error but the out is not save with create2.txt. kindly help me!!! print "Enter your Number \n"; my $name = <STDIN>; if ($name =="*91111*") { @dirlist1 = `wc -l $name > create2.txt`; } else {print "do not match";} (3 Replies)
Discussion started by: adaleru
3 Replies

9. Shell Programming and Scripting

Out of memory issue in perl

I am getting a out of memory issue while executing the perl program. Per version : /opt/acc_perl/lib/site_perl/5.14.2 Read in 54973 total records Read in 54973 table records from table. Out of memory! so the job get failed due to out of memory. need to get rid of the out of memory... (3 Replies)
Discussion started by: ramkumar15
3 Replies

10. Programming

Perl - EMail issue - NEED Help

I have a perl that is sending emails in a bad format: "begin 644 Included.doc M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ M*BHJ*BHJ*BHJ*BH*4U5#0T534T953"!-1$XG<R!F;W(@07)C:&EV92!022`M M($-A;F-E;`HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ... (1 Reply)
Discussion started by: mrn6430
1 Replies
SVN::Hooks::CheckJira(3pm)				User Contributed Perl Documentation				SVN::Hooks::CheckJira(3pm)

NAME
SVN::Hooks::CheckJira - Integrate Subversion with the JIRA ticketing system. VERSION
version 1.19 DESCRIPTION
This SVN::Hooks plugin requires that any Subversion commits affecting some parts of the repository structure must make reference to valid JIRA issues in the commit log message. JIRA issues are referenced by their keys which consists of a sequence of uppercase letters separated by an hyfen from a sequence of digits. E.g., CDS-123, RT-1, and SVN-97. It's active in the "pre-commit" and/or the "post-commit" hook. It's configured by the following directives. CHECK_JIRA_CONFIG(BASEURL, LOGIN, PASSWORD [, REGEXP [, REGEXP]]) This directive specifies how to connect and to authenticate to the JIRA server. BASEURL is the base URL of the JIRA server, usually, something like "http://jira.example.com/jira". LOGIN and PASSWORD are the credentials of a JIRA user who has browsing rights to the JIRA projects that will be referenced in the commit logs. The fourth argument is an optional qr/Regexp/ object. It will be used to match against the commit logs in order to extract the list of JIRA issue keys. By default, the JIRA keys are looked for in the whole commit log, which is equivalent to qr/(.*)/. Sometimes this can be suboptimal because the user can introduce in the message some text that inadvertently looks like a JIRA issue key whithout being so. With this argument, the log message is matched against the REGEXP and only the first matched group (i.e., the part of the message captured by the first parenthesis ($1)) is used to look for JIRA issue keys. The fifth argument is another optional qr/Regexp/ object. It is used to match JIRA project keys, which match qr/[A-Z]{2,}/ by default. However, since you can specify different patterns for JIRA project keys (<http://confluence.atlassian.com/display/JIRA/Configuring+Project+Keys>), you need to be able to specify this here too. The JIRA issue keys are extracted from the commit log (or the part of it specified by the REGEXP) with the following pattern: "qr/([A-Z]+-d+)/g"; CHECK_JIRA(REGEXP => {OPT => VALUE, ...}) This directive tells how each part of the repository structure must be integrated with JIRA. During a commit, all files being changed are tested against the REGEXP of each CHECK_JIRA directive, in the order that they were called. If at least one changed file matches a regexp, the issues cited in the commit log are checked against their current status on JIRA according to the options specified after the REGEXP. The available options are the following: projects => 'PROJKEYS' By default, the commiter can reference any JIRA issue in the commit log. You can restrict the allowed keys to a set of JIRA projects by specifying a comma-separated list of project keys to this option. require => [01] By default, the log must reference at least one JIRA issue. You can make the reference optional by passing a false value to this option. valid => [01] By default, every issue referenced must be valid, i.e., it must exist on the JIRA server. You can relax this requirement by passing a false value to this option. (Why would you want to do that, though?) unresolved => [01] By default, every issue referenced must be unresolved, i.e., it must not have a resolution. You can relax this requirement by passing a false value to this option. by_assignee => [01] By default, the commiter can reference any valid JIRA issue. Passing a true value to this option you require that the commiter can only reference issues to which she is the current assignee. check_one => CODE-REF If the above checks aren't enough you can pass a code reference (subroutine) to this option. The subroutine will be called once for each referenced issue with three arguments: the JIRA::Client object used to talk to the JIRA server. the RemoteIssue object representing the issue. the SVN::Look object used to grok information about the commit. The subroutine must simply return with no value to indicate success and must die to indicate failure. Plese, read the JIRA::Client and SVN::Look modules documentation to understand how to use these objects. check_all => CODE-REF Sometimes checking each issue separatelly isn't enough. You may want to check some relation among all the referenced issues. In this case, pass a code reference to this option. It will be called once for the commit. Its first argument is the JIRA::Client object used to talk to the JIRA server. The following arguments are references to RemoteIssue objects for every referenced issue. The last argument is the SVN::Look object used to grok information about the commit. The subroutine must simply return with no value to indicate success and must die to indicate failure. check_all_svnlook => CODE-REF This check is the same as the previous one, except that the first argument passed to the routine is the SVN::Look object used to grok information about the commit. The rest of the arguments are the same. post_action => CODE-REF This is not a check, but an opportunity to perform some action after a successful commit. The code reference passed will be called once during the post-commit hook phase. Its first argument is the JIRA::Client object used to talk to the JIRA server. The second argument is the SVN::Look object that can be used to inspect all the information about the commit proper. The following arguments are the JIRA keys mentioned in the commit log message. The value returned by the routine, if any, is ignored. exclude => REGEXP Normally you specify a CHECK_JIRA with a regex matching a root directory in the repository hierarchy. Sometimes you need to specify some subparts of that root directory that shouldn't be treated by this CHECK_JIRA directive. You can use this option to specify these exclusions by means of another regex. You can set defaults for these options using a CHECK_JIRA directive with the string 'default' as a first argument, instead of a qr/Regexp/. # Set some defaults CHECK_JIRA(default => { projects => 'CDS,TST', by_assignee => 1, }); # Check if some commits are scheduled, i.e., if they reference # JIRA issues that have at least one fix version. sub is_scheduled { my ($jira, $issue, $svnlook) = @_; return scalar @{$issue->{fixVersions}}; } CHECK_JIRA(qr/^(trunk|branches/fix)/ => { check_one => &is_scheduled, }); Note that you need to call CHECK_JIRA at least once with a qr/Regexp/ in order to trigger the checks. A call for ('default' doesn't count. If you want to change defaults and force checks for every commit, do this: CHECK_JIRA(default => {projects => 'CDS'}); CHECK_JIRA(qr/./); The 'post_action' pseudo-check can be used to interact with the JIRA server after a successful commit. For instance, you may want to add a comment to each refered issue like this: # This routine returns a closure that can be passed to # post_action. The closure receives a string to be added as a # comment to each issue refered to by the commit message. The # commit info can be interpolated inside the comment using the # SVN::Look method names inside angle brackets. sub add_comment { my ($format) = @_; return sub { my ($jira, $svnlook, @keys) = @_; # Substitute keywords in the input comment with calls # into the $svnlook reference $format =~ s/{(w+)}/"$svnlook->$1()"/eeg; for my $key (@keys) { $jira->addComment($key, $format); } } } CHECK_JIRA(qr/./ => { post_action => add_comment("Subversion Commit r{rev} by {author} on {date} {log_msg}") }); You can use a generic CHECK_JIRA excluding specific directories from it using the "exclude" option like this: CHECK_JIRA(qr:^(trunk|branches/[^/]): => { exclude => qr:/documentation/:, # other options... }); AUTHOR
Gustavo L. de M. Chaves <gnustavo@cpan.org> COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by CPqD. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. perl v5.14.2 2012-06-24 SVN::Hooks::CheckJira(3pm)
All times are GMT -4. The time now is 03:19 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy