Help for this page

Select Code to Download


  1. or download this
     
    open(QUEUES, $queuecmd);
    my @lines=<QUEUES>;
    close QUEUES;
    my @queues = grep {s/.*count= *(\d+),.* Queue=or_event_queue\s*/$1/} @
    +lines;
    print "$queues[0]\n";
    
  2. or download this
    Host 'server02' connected
     ============================================================
    ...
       count=     0, delivering=     0, Queue=recipient_notification
       count=     0, delivering=     0, Queue=queue/alert_engine_alert
       count=     0, delivering=     0, Queue=failed_recipient_notificatio
    +n