qpid-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mcpie...@apache.org
Subject svn commit: r1602276 - /qpid/proton/trunk/examples/messenger/perl/send.pl
Date Thu, 12 Jun 2014 19:38:03 GMT
Author: mcpierce
Date: Thu Jun 12 19:38:03 2014
New Revision: 1602276

URL: http://svn.apache.org/r1602276
Log:
PROTON-604: Fixed help message for Perl send example.

Modified the patch slightly to not attempt to perform a connection if
help was displayed.

Contributed by Ernie Allen <eallen@redhat.com>

Modified:
    qpid/proton/trunk/examples/messenger/perl/send.pl

Modified: qpid/proton/trunk/examples/messenger/perl/send.pl
URL: http://svn.apache.org/viewvc/qpid/proton/trunk/examples/messenger/perl/send.pl?rev=1602276&r1=1602275&r2=1602276&view=diff
==============================================================================
--- qpid/proton/trunk/examples/messenger/perl/send.pl (original)
+++ qpid/proton/trunk/examples/messenger/perl/send.pl Thu Jun 12 19:38:03 2014
@@ -34,11 +34,14 @@ sub HELP_MESSAGE() {
     print "Options:\n";
     print "\t-s        - the message subject\n";
     print "\t-C        - the message content\n";
-    print "\t<ADDRESS> - amqp://<domain>[/<name>]";
+    print "\t<ADDRESS> - amqp://<domain>[/<name>]\n";
+    print "\t-h        - this message\n";
+
+    exit;
 }
 
 my %options = ();
-getopts("a:C:s:", \%options) or usage();
+getopts("a:C:s:h:", \%options) or HELP_MESSAGE();
 
 my $address = $options{a} || "amqp://0.0.0.0";
 my $subject = $options{s} || localtime(time);



---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscribe@qpid.apache.org
For additional commands, e-mail: commits-help@qpid.apache.org


Mime
View raw message