From 23e82796230d1fd745f6936f4b877807c51a0d9f Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 15 Dec 2009 00:35:31 +0100
Subject: [PATCH] decode message names

---
 SIP2.pm    | 32 ++++++++++++++++++++++++++++++++
 t/1-SIP2.t | 12 ++++++++++++
 2 files changed, 44 insertions(+)
 create mode 100644 SIP2.pm
 create mode 100755 t/1-SIP2.t

diff --git a/SIP2.pm b/SIP2.pm
new file mode 100644
index 0000000..612525a
--- /dev/null
+++ b/SIP2.pm
@@ -0,0 +1,32 @@
+package SIP2;
+
+use Data::Dump qw();
+
+my $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 ( $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
diff --git a/t/1-SIP2.t b/t/1-SIP2.t
new file mode 100755
index 0000000..deda76b
--- /dev/null
+++ b/t/1-SIP2.t
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use Test::More tests => 1;
+
+use lib 'lib';
+
+BEGIN {
+	use_ok( 'SIP2' );
+}
+
+SIP2::dump_message '<<<<' => '09foobar';
+
-- 
2.20.1