view release on metacpan or  search on metacpan

AsyncZ/ErrMsg.pm  view on Meta::CPAN

# $Date: 2003/06/19 12:03:31 $
# $Revision: 1.5 $ 
our $VERSION = '0.02';


package Net::Z3950::AsyncZ::ErrMsg;
use Net::Z3950::AsyncZ::Errors;
use POSIX qw(:errno_h strerror );

use Exporter;
@ISA=qw (Exporter);
@EXPORT=qw(%errors isSystem isNetwork isUnspecified isZ3950);
use strict;

my $_ERROR_VAL = Net::Z3950::AsyncZ::Errors::errorval();

use vars "%errors";

# structure:  Error_Number => [ Error_Number,  retry, type ]
#             retry 1 = true, 0 = false
#	      type  0 = system, 1 = network, 2 = try again, 3 = unspecified, 4 = success
#		    5 = Z3950 error 

%errors =
 (
# syseror
	(EBUSY+0)=> [EBUSY, 1, 0],     	    	   #  Device or resource busy
	(ENODEV+0)=> [ENODEV, 0, 0],  	    	   #  No such device	
	(EUSERS+0)=> [EUSERS,1, 0],                #  Too many users
        (EACCES+0)=> [EACCES, 0, 0],               #  Permission denied
	(ECONNABORTED+0)=> [ECONNABORTED, 1, 0],   #  Software caused connection abort
        (EINTR +0)=> [EINTR, 1, 0],                # Interrupted system call
        (EINVAL +0)=> [EINVAL, 1, 0],              # Invalid argument 

# %neterr
	(ETIMEDOUT+0)=> [ETIMEDOUT, 1, 1],         #  Connection timed out
	(ECONNRESET+0)=> [ECONNRESET, 1, 1],       #  Connection reset by peer
	(EHOSTDOWN+0)=> [EHOSTDOWN,0, 1],          #  Host is down
	(EHOSTUNREACH +0)=> [EHOSTUNREACH,0, 1],   #  No route to host
	(ENETDOWN+0)=> [ENETDOWN, 0, 1],           #  Network is down
	(ENETUNREACH+0)=> [ENETUNREACH,0, 1],      #  Network is unreachable
	(ENETRESET+0)=> [ENETRESET,1, 1],          #  Network dropped connection because of reset
	(ECONNREFUSED+0)=> [ECONNREFUSED,0,1],     #  Connection refused
	(EDESTADDRREQ+0)=> [EDESTADDRREQ,0,1],     #  Destination address required
	(EADDRINUSE+0)=> [EADDRINUSE,0,1],         #  Address already in use
	(EADDRNOTAVAIL+0)=> [EADDRNOTAVAIL,0,1],   #  Cannot assign requested address
        (ESPIPE + 0)=> [ESPIPE, 0,0],		   #  Illegal seek (from failure to connect)

#try again
	(EAGAIN +0)=>[EAGAIN, 1,2],                   #  Try again
        (-1 + 0) =>  [-1, 1,2], 		      #  unprocessed fork

#  NZ3950 Error	       
        ($_ERROR_VAL+0) =>[$_ERROR_VAL, 1,5],         #  NZ3950 Error
        ($_ERROR_VAL+1) =>[$_ERROR_VAL +1, 1,5],         #  NZ3950 Error:  timeout
        ($_ERROR_VAL+2) =>[$_ERROR_VAL +2, 1,1],         #  Our timeout
        ($_ERROR_VAL+3) =>[$_ERROR_VAL +3, 1,1],         #  Alarm timeout

# Success
      (0 + 0) => [0,1,4]			     #  successful exit--no errors
);


my @Z3950_MSG = (
              "An error occurred when accessing the library database.",
	      "Failed to connect to the server.",
	      "Failed to connect to the server within time out period.",
	      "Failed to connect to the server within time out period."
);   	


# returns error message string for storing in $self->{msg}
# [1] exit without a result, error code 0, type = 4, "Timed out, try again"
# [2] error code = -1, failed connection, try again
# [3] error code >= $Net::Z3950::Errors::$_ERROR_VAL, substract $_ERROR_VAL from error code to get error 
#      see NZ3950 Error	above
# [4] None of the above, return the system error string for this error code

sub _getError {

  return   "Timed out. Try again." 
              if $_[0]->[2] == 4;
  return   "Failed to connect at this time. Try again." 
             if $_[0]->[0] == -1;
  return   $Z3950_MSG[$_[0]->[0] - $_ERROR_VAL]
             if $_[0]->[0] >= $_ERROR_VAL;                       
  return  strerror($_[0]->[0]);