Open-ILS/src/perlmods/OpenILS/EX.pm

   1 package OpenILS::EX;
   2 use strict; use warnings;
   3 use Template qw(:template);
   4 use OpenSRF::Utils::SettingsClient;
   5 use OpenILS::Utils::Fieldmapper;
   6
   7 # ----------------------------------------------------------------------------------
   8 # These exceptions are not thrown.  They are returned as request result objects
   9 # ----------------------------------------------------------------------------------
  10
  11 my %ex_types = (
  12         UNKNOWN                                                                 => 1,
  13         SEARCH_TOO_LARGE                                                => 2,
  14         UNKNOWN_BARCODE                                         => 3,
  15         DUPLICATE_INVALID_USER_BARCODE  => 4,
  16         DUPLICATE_USER_USERNAME                         => 5,
  17         USER_WRONG_PASSWORD                                     => 6,
  18         PERMISSION_DENIED                                               => 7,
  19         UNKNOWN_USER                                                    => 8,
  20         MAX_RENEWALS_REACHED                                    => 9,
  21         COPY_NEEDED_FOR_HOLD                                    => 10,
  22         NO_HOLD_FOUND                                                   => 11,
  23         NO_TRANSACTION_FOUND                                    => 12,
  24 );
  25
  26 use overload ( '""' => sub { $_[0]->ex()->err_msg(); } );
  27
  28 sub new {
  29
  30         my($class, $type) = @_;
  31         $class = ref($class) || $class;
  32
  33         my $self = {};
  34         bless($self, $class);
  35
  36         $self->{ex} = new Fieldmapper::ex;
  37         $self->{ex}->type($ex_types{$type});
  38         $self->{ex}->err_msg($self->run());
  39         warn "type is $type\n";
  40
  41         return $self;
  42 }
  43
  44
  45 sub ex { return shift()->{ex}; }
  46
  47 sub run {
  48
  49         my $self = shift;
  50
  51         my $result;
  52         my $conf = OpenSRF::Utils::SettingsClient->new;
  53
  54         my $script = $conf->config_value("ex_script");
  55
  56         my $template = Template->new(
  57                 {
  58                         ABSOLUTE                => 1,
  59                         OUTPUT          => \$result,
  60                         PRE_CHOMP       => 1,
  61                         POST_CHOMP      => 1,
  62                 }
  63         );
  64
  65         my $status = $template->process($script,
  66                         { ex_types => \%ex_types, type => $self->{ex}->type });
  67
  68         if(!$status) {
  69                 return "Unable to process exception script.  No meaningful data to return..." .
  70                         " Error is:\n" . $template->error() . "\n";
  71         }
  72
  73         $result =~ s/^\s*//og;
  74         warn " -|-|-|- Exception result [$result]\n";
  75
  76         return $result;
  77 }
  78
  79
  80
  81
  82
  83