SIP2.pm

   1 package SIP2;
   2
   3 use Data::Dump qw();
   4
   5 my $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 ( $prefix, $message ) = @_;
  14         my $code = substr($message,0,2);
  15         warn $prefix, " ", $message_codes->{$code}, Data::Dump::dump($message), "\n";
  16 }
  17
  18 1;
  19
  20 __DATA__
  21 09      Checkin
  22 10      Checkin Response
  23 11      Checkout
  24 12      Checkout Response
  25 35      End Patron Session
  26 36      End Session Response
  27 63      Patron Information
  28 64      Patron Information Response
  29 93      Login
  30 94      Login Response
  31 98      ACS Status
  32 99      SC Status