Interactive tests for SIP abstraction representation and Members.

[koha.git] / C4 / SIP / interactive_patron_check_password.pl

diff --git a/C4/SIP/interactive_patron_check_password.pl b/C4/SIP/interactive_patron_check_password.pl
new file mode 100755 (executable)
index 0000000..a56701c
--- /dev/null
+++ b/C4/SIP/interactive_patron_check_password.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+#
+
+use warnings;
+use strict;
+
+use ILS::Patron;
+use Sip qw(sipbool);
+use Data::Dumper;
+
+while (1) {
+       print "Enter patron barcode: ";
+       my $in = <>;
+       defined($in) or last;
+       chomp($in);
+       last unless $in;
+       my $patron = ILS::Patron->new($in);
+       print Dumper($patron);
+       $patron or next;
+       print "Enter patron password: ";
+       $in = <>;
+       chomp($in);
+       print "Raw password is: " . $patron->{password}, "\n"; 
+       print " check_password: " . $patron->check_password($in), "\n"; 
+       print "        sipbool: " . sipbool($patron->check_password($in)), "\n"; 
+}