Hi Monks I have a Perl script that counts the total queues from URL. Script is working fine and developer has mentioned that i can put specific queue name and limit. If queue goes above the limit, it warn me.......now i am not Perl guy and not able to understand this script. I dont know what to change to get the result(specific queue). 
#!/usr/bin/perl

# Check_ActiveMQ_Smart
# © 2012 -- Sig-I/O Automatisering
# Version: 2012/05/15 -- mark@sig-io.nl

#use strict;
#use warnings;
use XML::Simple;
use DateTime::Event::Cron;

# ---------------------------------------------------------- CONFIGURA
+TION 
# Format of configuration:
# "QueueName" => [ "cron-spec", limit, "cron-spec", limit, ... ],
# cronspec in default 5 number cron format: "* * * * *"
#               minute         0-59
#               hour           0-23
#               day of month   1-31
#               month          1-12 (or names, see below)
#               day of week    0-7 (0 or 7 is Sun, or use names)
# If multiple cron-spec's match, only the first one will be used
# If no cron-spec's match, the queue is ignored
# limit as integer:
#    -1 == ignore this queue completely
#     0 or positive == max number of items in the queue
# Queue-name "default" is the fallback rule

my %config = (
        "ActiveMQ.DLQ"  => [
            "* * * * *", "0" ],
    "sig-io.startSomething" => [ 
            "40-59 20 * * *", 5000,
            "0-15 21 * * *", 5000,
            "* * * * *", 100 ],
    "sig-io.finishSomething" => [ 
            "0-45 21 * * *", 5000,
            "* * * * *", 100 ],
        "default"       => [ "* * * * *", "10" ],
);

my $verbose = 0;

# ---------------------------------------------------------- END CONFI
+G

my $now = DateTime->now;
$now->set_time_zone( 'Europe/Amsterdam' );

# ---------------------------------------------------------- SUBROUTIN
+ES
sub getlimit($)
{
    my $found = 0;
    my $queue = shift;
    my $limit = 0;

    if (exists $config{$queue})
    {
        my @configdata =  @{ $config{$queue} };
        my $numrules = int( scalar(@configdata) / 2);
        my $i = 0;
        while ($i < $numrules )
        {
#            print "Rule $i == '" . $configdata[$i*2] . "'\n";
            my $cron = DateTime::Event::Cron->new( $configdata[$i*2]);
            if ( $cron->match( $now ) )
            {
                $limit = $configdata[$i*2 +1];
                $found++;
#                print "Found matching rule ($i): " . $configdata[$i*2
+] . " with limit $limit !\n";
                $i = $numrules;
            }
            $i++;
        }

        if ( ( $queue eq "default" ) && ( $found == 0 ) )
        {
            # No matching rule found, not even a default rule
            return -2;
        }
    }
    else    # Try again with 'default' rules
    {
        if ( $queue ne "default" )
        {
#            print "No specific rules found for $queue, trying again w
+ith default\n";
            # Retry resolving with default rule:
            $limit = &getlimit("default");
        }
    }

    # We have a rule for this queue, but it doesn't match the time,
    # Fallback to default
    if ( ( $found == 0 ) && ( $queue ne "default" ) )
    {
        return &getlimit("default");
    }

    return $limit;
}

# --------------------------------------------------------------------
+------ MAIN

my $store;
my $memory;
my $temp;

# Default URL to watch
my $url = "http://activemq:8080/admin/xml/queues.jsp";
if ( defined $ARGV[0] )
{
    $url = $ARGV[0];
}


my $dump = qx|/usr/bin/curl -s $url|;
my $xmldata = XMLin($dump);

my $queue;
my $data;
my $issuecount = 0;
my $issues = "";

printf STDERR "%-50s %4s %7s %7s %4s    limit: %4d\n", "Queue Name", "
+Cons", "De-Q", "En-Q", "Size", "Lim" if $verbose;
while ( ($queue, $data) = each(%{$xmldata->{queue}}) )
{
    my ( $consumers, $enqueue, $dequeue, $size);
    my %stats = %{$data->{stats}};

    $consumers = $stats{consumerCount};
    $dequeue = $stats{dequeueCount};
    $enqueue = $stats{enqueueCount};
    $size = $stats{size};

    my $limit = &getlimit($queue);
    printf STDERR "%-50s %4d %7d %7d %4d    limit: %4s\n", $queue, $co
+nsumers, $dequeue, $enqueue, $size, $limit if $verbose;

    if ( $consumers == 0 )
    {
        if ( $queue ne "ActiveMQ.DLQ" )    # This queue always has 0 c
+onsumers
        {
            $issuecount++;
            $issues .= "$queue has NO consumers ";
        }
    }
    if ( $size > $limit )
    {
        $issuecount++;
        $issues .= "$queue is getting full ($size/$limit) ";
    }
}

my $retval = $issuecount;
my $state = "OK";
$retval = 2, $state = "CRITICAL" if ( $retval >= 2 );
$state = "WARNING" if ( $retval == 1 );
$issues = "queue reported OK" if $issues eq "";

$url =~ s/xml\///;
printf "%s: ActiveMQ = %s\n", $state, $issues, $url;
exit ($retval);

[download]
Please help me to figure it out this thanks

In reply to Need help to edit the script by cesargarza

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.