package SIP2;

use Data::Dump qw();

our $message_codes;
foreach ( <DATA> ) {
	my ($code,$description) = split(/\t/,$_,2);
	$message_codes->{$code} = $description;
}
warn "# message_codes ", Data::Dump::dump $message_codes;

sub dump_message {
	my ( $self, $prefix, $message ) = @_;
	my $code = substr($message,0,2);
	warn $prefix, " ", $message_codes->{$code}, Data::Dump::dump($message), "\n";
}



1;

__DATA__
09	Checkin
10	Checkin Response
11	Checkout
12	Checkout Response
35	End Patron Session
36	End Session Response
63	Patron Information
64	Patron Information Response
93	Login
94	Login Response
98	ACS Status
99	SC Status
