Re: [Arsperl-users] handling ARWARN 1200

[Alex A. <ale...@oi...>]

Hi Paizo,

In the programs that I've written, I usually check the size of the
hash or array as opposed to checking for ARWARN 1200.  I'll provide
two examples of how to do this.  The first example is with a hash and
the second is with an array.

The first example is untested code that I put together by doing some
googling.  The keys() function might be helpful.  For example:

%entries = ars_GetListEntry($ctrl, $ARSschema, $qual, 0, 0);
$hash_size = keys(%entries);

if ($hash_size eq 0) {
    print "ARWARN 1200: Nothing was found\n");
    ars_Logoff($ctrl) || exit 0;
    exit 0;
}

A lot of programs that I've written in the past use an array
instead of a hash and then branch based on the size of the array.

Partial code from an actual working program:

  @entries = ars_GetListEntry($c, $s_ho, $q, 0, 0);
  if ($#entries eq -1) {
    print MAIL ("There are no $holdtypes.\n");
  } elsif ($#entries eq 1) {
    print MAIL ("There is one $holdtype:\n\n");
    $entry_num = $entries[0];
    &PrintHeader;
    &PrintEntry($entry_num, $startorend, $holdtype);
  } else {
    $ent_num = ($#entries + 1) / 2;
    print MAIL ("There are $ent_num $holdtypes:\n");
    &PrintHeader;
    for ($i = 0; $i <= $#entries; $i +=2 ) {
      $entry_num = $entries[$i];
      &PrintEntry($entry_num, $startorend, $holdtype);
    }
  }

Hope that helps!
Alex

On Fri, Oct 05, 2007 at 10:31:00AM +0200, Paizo wrote:
> Hi listeners,
> 
> I'm making a perl script to check the presence of some kind of tickets.
> Usually there are no tickets of this kind causing a ARWARN 1200.
> I would like to handle this warning but i miss something....
> 
> 
> $arwarn = "";
> (%entries = ars_GetListEntry($ctrl, $ARSschema, $qual, 0, 0)) || ($arwarn =
> $ars_errstr);
> 
> print "$arwarn\n"; # $arwarn is empty!
> 
> if ($arwarn=~ m/\ARWARN 1200/i)
> {
>     ars_Logoff($ctrl) || exit 0;
>     exit 0;
> }
> 
> what's wrong with that code?
> Seems also that $arwarn is empty because it print nothing at all.
> 
> 
> thank you for your time.
> 
> 
> -- 
> --------------------
> A me cugin na volta xe ndà dal geataro e el ga domandà na coppetta trigusto
> co i gusti seegheta, sarexe e schie co na fettina de poenta.
> El geataro pena sentio cheà goduriosa scelta, el se ga messo subito el
> pigiama de banane e el ghe ga messo in testa a corona de poegge medie e lo
> ga fatto diventare Re dei Gelati Biricchini.
> -----------------------
> Confezione trigusto seegheta/sarexe/chie co pratico contenitore par e fete
> de poenta, stile estatè o quea dea ciocoeata
> Altri gusti poe essere bigadini/kiwi/lasonil co socoi de vacca da tociare o
> erbagatta/straciatella/calsina co coe de sorxe da tociare
> ------------
> Rileggendo a firma diria che se poe puntare al mercato dei ghiaccioli col el
> gusto crema al diserbo e paraflù ricoperta da una soffice crosta de pus co
> al posto del bacheto un termometro anale pratico pa misurarse a freve dopo
> aver magnà el geato (chi xe che no lo fa al giorno d'oggi?!?!). Garantite
> scorese bitonali e solfeggi anali.

> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc.
> Still grepping through log files to find problems?  Stop.
> Now Search log events and configuration files using AJAX and a browser.
> Download your FREE copy of Splunk now >> http://get.splunk.com/
> _______________________________________________
> Arsperl-users mailing list
> Ars...@ar...
> https://lists.sourceforge.net/lists/listinfo/arsperl-users


-- 
O--------------O--O---------------------------------O
|   Alex Agle   \/ Systems Support Specialist III   |
O---------------/\  Georgia Institute of Technology |
|(404)894-6165 //\\  ITS - Applications Support     |
| Atlanta, GA //\/\\  alex.agle(@)oit.gatech.edu    |
O------------O-\/\/-O-------------------------------O