lib/SIP2.pm

   1 package SIP2;
   2
   3 use Data::Dump qw();
   4
   5 our $message_codes;
   6 foreach ( <DATA> ) {
   7         my ($code,$description) = split(/\t/,$_,2);
   8         $message_codes->{$code} = $description;
   9 }
  10 warn "# message_codes ", Data::Dump::dump $message_codes;
  11
  12 sub dump_message {
  13         my ( $self, $prefix, $message ) = @_;
  14         my $code = substr($message,0,2);
  15         warn $prefix, " ", $message_codes->{$code}, Data::Dump::dump($message), "\n";
  16 }
  17
  18
  19
  20 1;
  21
  22 __DATA__
  23 09      Checkin
  24 10      Checkin Response
  25 11      Checkout
  26 12      Checkout Response
  27 35      End Patron Session
  28 36      End Session Response
  29 63      Patron Information
  30 64      Patron Information Response
  31 93      Login
  32 94      Login Response
  33 98      ACS Status
  34 99      SC Status