move selfcheck bits into own module

diff --git a/lib/SIP2/SC.pm b/lib/SIP2/SC.pm
new file mode 100644 (file)
index 0000000..ca5be3f
--- /dev/null
+++ b/lib/SIP2/SC.pm
@@ -0,0 +1,50 @@
+package SIP2::SC;
+
+=head1 NAME
+
+SIP2::SC - SelfCheck system or library automation device dealing with patrons or library materials
+
+=cut
+
+
+use warnings;
+use strict;
+
+use IO::Socket::INET;
+use Data::Dump qw(dump);
+use autodie;
+
+use lib 'lib';
+use base qw(SIP2);
+
+sub new {
+       my $class = shift;
+       my $self;
+       $self->{sock} = IO::Socket::INET->new( @_ ) || die "can't connect to ", dump(@_), ": $!";
+       bless $self, $class;
+       $self;
+}
+
+sub message {
+       my ( $self, $send ) = @_;
+
+       local $/ = "\r";
+
+
+       my $sock = $self->{sock} || die "no sock?";
+       my $ip = $self->{sock}->peerhost;
+
+       $self->dump_message( ">>>> $ip ", $send );
+       print $sock "$send\r\n";        # FIXME we should have only CR here per protocol!
+       $sock->flush;
+
+       my $expect = substr($send,0,2) | 0x01;
+
+       my $in = <$sock>;
+       $self->dump_message( "<<<< $ip ", $in );
+       die "expected $expect" unless substr($in,0,2) != $expect;
+
+       return $in;
+}
+
+1;