From 99efcf83f065b0c6fdd0436ea953dd11ff31ebad Mon Sep 17 00:00:00 2001 From: "Joe Atzberger (siptest" Date: Tue, 24 Jun 2008 17:35:13 -0500 Subject: [PATCH] Interactive tests for SIP abstraction representation and Members. The test for members is useful to compare against the SIP (ILS) representation. Signed-off-by: Joshua Ferraro --- C4/SIP/interactive_members_dump.pl | 22 +++++++++++++++++ C4/SIP/interactive_patron_check_password.pl | 26 +++++++++++++++++++++ 2 files changed, 48 insertions(+) create mode 100755 C4/SIP/interactive_members_dump.pl create mode 100755 C4/SIP/interactive_patron_check_password.pl diff --git a/C4/SIP/interactive_members_dump.pl b/C4/SIP/interactive_members_dump.pl new file mode 100755 index 0000000000..8df6ea4f40 --- /dev/null +++ b/C4/SIP/interactive_members_dump.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl +# + +use warnings; +use strict; + +use C4::Members; +use Data::Dumper; + +while (1) { + print "Enter patron barcode: "; + my $in = <>; + defined($in) or last; + chomp($in); + last unless $in; + print "GetMember : \n", Dumper(GetMember($in, 'cardnumber')); + my ($member) = GetMemberDetails(undef, $in); + my $flags = $member->{flags}; + print "GetMemberDetails (member) : \n", Dumper($member); + print "GetMemberDetails ( flags) : \n", Dumper($flags); + print "=" x 10, "\n"; +} diff --git a/C4/SIP/interactive_patron_check_password.pl b/C4/SIP/interactive_patron_check_password.pl new file mode 100755 index 0000000000..a56701c315 --- /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"; +} -- 2.20.1