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

   1 package OpenILS::Event;
   2 use strict; use warnings;
   3 use XML::LibXML;
   4 use OpenSRF::Utils::SettingsClient;
   5 use OpenSRF::Utils::Logger;
   6 my $logger = "OpenSRF::Utils::Logger";
   7
   8
   9 # Creates a new Event object.
  10 # The first param is the event name
  11 # Following the first param is an optional hash of params:
  12 #               perm => the name of the permission error for permimssion errors
  13 #               permloc => the location of the permission error for permission errors
  14 #               payload => the payload to be returned on successfull events
  15
  16
  17 my $events = undef;
  18 my $descs = undef;
  19
  20 sub new {
  21         my( $class, $event, %params ) = @_;
  22
  23         _load_events() unless $events;
  24
  25         if( $event ne 'SUCCESS' ) {
  26                 $logger->info("Returning non-success event object: $event ");
  27         }
  28
  29         my $e = $events->{$event};
  30         throw OpenSRF::EX
  31                 ("No event defined with textcode: $event") unless defined $e;
  32
  33         my( $m, $f, $l ) = caller(0);
  34         my( $mm, $ff, $ll ) = caller(1);
  35
  36         $f  ||= "";
  37         $l  ||= "";
  38         $ff ||= "";
  39         $ll ||= "";
  40
  41         my $lang = 'en-US'; # assume english for now
  42
  43         my $t = CORE::localtime();
  44
  45         return {
  46                 ilsevent                => $e,
  47                 textcode                => $event,
  48                 stacktrace      => "$f:$l, $ff:$ll",
  49                 desc                    => $descs->{$lang}->{$e},
  50                 servertime      => $t,
  51                 pid                     => $$, %params };
  52 }
  53
  54 sub _load_events {
  55         my $settings_client = OpenSRF::Utils::SettingsClient->new();
  56         my $eventsxml =  $settings_client->config_value( "ils_events" );
  57
  58         if(!$eventsxml) {
  59                 throw OpenSRF::EX ("No ils_events file found in settings config");
  60         }
  61
  62         $logger->info("Loading events xml file $eventsxml");
  63
  64         my $doc = XML::LibXML->new->parse_file($eventsxml);
  65
  66         my @nodes = $doc->documentElement->findnodes('//event');
  67         for my $node (@nodes) {
  68                 $events->{$node->getAttribute('textcode')} =
  69                         $node->getAttribute('code');
  70         }
  71
  72         $descs = {};
  73         my @desc = $doc->documentElement->findnodes('//desc');
  74         for my $d (@desc) {
  75                 my $lang = $d->getAttribute('lang');
  76                 my $code = $d->parentNode->getAttribute('code');
  77                 $descs->{$lang} = {} unless $descs->{$lang};
  78                 $descs->{$lang}->{$code} = $d->textContent;
  79         }
  80 }
  81
  82
  83
  84
  85 1;