Bug 26701: Remove unused C4/SIP scripts
Those scripts are not known to be used, we can remove them from the Koha codebase. Test plan: Confirm that the scripts removed by this patch are not used anywhere from Koha. Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Nick Clemens <nick@bywatersolutions.com> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
parent
1d61203fab
commit
3569731261
8 changed files with 0 additions and 226 deletions
|
|
@ -1,42 +0,0 @@
|
||||||
import operator
|
|
||||||
import socket
|
|
||||||
from time import strftime;
|
|
||||||
|
|
||||||
def SipSocket(host='localhost', port=5300):
|
|
||||||
so = socket.socket()
|
|
||||||
so.connect((host, port))
|
|
||||||
return so
|
|
||||||
|
|
||||||
def login(so, uname='scclient', passwd='clientpwd', locn='The basement',
|
|
||||||
seqno=0):
|
|
||||||
port = so.getpeername()[1]
|
|
||||||
if port == 5300:
|
|
||||||
resp = send(so, '9300CN%s|CO%s|CP%s|' % (uname, passwd, locn), seqno)
|
|
||||||
print "Received", repr(resp)
|
|
||||||
print "Verified: ", verify(resp)
|
|
||||||
else:
|
|
||||||
raise "Logging in is only support for the raw transport on port 5300"
|
|
||||||
|
|
||||||
def send(so, msg, seqno=0):
|
|
||||||
if seqno:
|
|
||||||
msg += 'AY' + str(seqno)[0] + 'AZ'
|
|
||||||
msg += ('%04X' % calculate_cksum(msg))
|
|
||||||
msg += '\r'
|
|
||||||
print 'Sending', repr(msg)
|
|
||||||
so.send(msg)
|
|
||||||
resp = so.recv(1000)
|
|
||||||
return resp, verify(resp)
|
|
||||||
|
|
||||||
def calculate_cksum(msg):
|
|
||||||
return (-reduce(operator.add, map(ord, msg)) & 0xFFFF)
|
|
||||||
|
|
||||||
def sipdate():
|
|
||||||
return(strftime("%Y%m%d %H%M%S"))
|
|
||||||
|
|
||||||
def verify(msg):
|
|
||||||
if msg[-1] == '\r': msg = msg[:-2]
|
|
||||||
if msg[-6:-4] == 'AZ':
|
|
||||||
cksum = calculate_cksum(msg[:-4])
|
|
||||||
return (msg[-4:] == ('%04X' % cksum))
|
|
||||||
# If there's no checksum, then the message is ok
|
|
||||||
return True
|
|
||||||
|
|
@ -1,16 +0,0 @@
|
||||||
#!/bin/bash
|
|
||||||
|
|
||||||
perl -I ./ -e '
|
|
||||||
use Data::Dumper;
|
|
||||||
use C4::SIP::ILS;
|
|
||||||
use C4::SIP::Sip::Configuration;
|
|
||||||
my $code = "MAIN";
|
|
||||||
my $conf = C4::SIP::Sip::Configuration->new("SIPconfig.xml");
|
|
||||||
my $ils = C4::SIP::ILS->new($conf->{institutions}->{$code});
|
|
||||||
print "XML for $code: ", Dumper($conf->{institutions}->{$code}), "\n";
|
|
||||||
print "ILS for $code: ", Dumper($ils), "\n";
|
|
||||||
print "\$ils->checkout_ok(): ", ($ils->checkout_ok() ? "Y" : "N"), "\n";
|
|
||||||
print "\$ils->checkin_ok() : ", ($ils->checkin_ok() ? "Y" : "N"), "\n";
|
|
||||||
print "\$ils->offline_ok() : ", ($ils->offline_ok() ? "Y" : "N"), "\n";
|
|
||||||
print "\n";
|
|
||||||
'
|
|
||||||
|
|
@ -1,44 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
#
|
|
||||||
|
|
||||||
use warnings;
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
use C4::SIP::ILS::Item;
|
|
||||||
use Data::Dumper;
|
|
||||||
|
|
||||||
my $compare = (@ARGV) ? shift : 0;
|
|
||||||
while (1) {
|
|
||||||
print "Enter item barcode: ";
|
|
||||||
my $in = <>;
|
|
||||||
defined($in) or last;
|
|
||||||
chomp($in);
|
|
||||||
last unless $in;
|
|
||||||
my $item = C4::SIP::ILS::Item->new($in);
|
|
||||||
unless ($item) {
|
|
||||||
print "No item ($in)";
|
|
||||||
next;
|
|
||||||
}
|
|
||||||
for (qw(marc marcxml)) { # Letting it just in case but should not longer be useful
|
|
||||||
$item->{$_} = 'suppressed...';
|
|
||||||
}
|
|
||||||
my $queue = $item->hold_queue();
|
|
||||||
print "Item ($in): ", Dumper($item);
|
|
||||||
print "hold_queue: ", Dumper($queue);
|
|
||||||
my $holdernumber;
|
|
||||||
if ($queue and scalar(@$queue)) {
|
|
||||||
$holdernumber = $queue->[0]->{borrowernumber};
|
|
||||||
print "first borrowernumber: $holdernumber\n";
|
|
||||||
}
|
|
||||||
if ($compare) {
|
|
||||||
print "Enter patron barcode: ";
|
|
||||||
my $barcode = <>;
|
|
||||||
defined($barcode) or next;
|
|
||||||
chomp($barcode);
|
|
||||||
next unless $barcode;
|
|
||||||
my $x = ILS::Item::_barcode_to_borrowernumber($barcode) || 'UNDEF';
|
|
||||||
print " converts to: $x\n";
|
|
||||||
printf " compares as: %s\n",
|
|
||||||
($item->barcode_is_borrowernumber($barcode,$holdernumber) ? 'TRUE' : 'FALSE');
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
@ -1,26 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
#
|
|
||||||
|
|
||||||
use warnings;
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
use C4::SIP::ILS::Patron;
|
|
||||||
use C4::SIP::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 = C4::SIP::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";
|
|
||||||
}
|
|
||||||
|
|
@ -1,18 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
#
|
|
||||||
|
|
||||||
use warnings;
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
use C4::SIP::ILS::Patron;
|
|
||||||
use Data::Dumper;
|
|
||||||
|
|
||||||
while (1) {
|
|
||||||
print "Enter patron barcode: ";
|
|
||||||
my $in = <>;
|
|
||||||
defined($in) or last;
|
|
||||||
chomp($in);
|
|
||||||
last unless $in;
|
|
||||||
my $patron = C4::SIP::ILS::Patron->new($in);
|
|
||||||
print "Patron ($in):\n", Dumper($patron);
|
|
||||||
}
|
|
||||||
|
|
@ -1,22 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
#
|
|
||||||
|
|
||||||
use warnings;
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
use C4::SIP::ILS::Transaction::RenewAll;
|
|
||||||
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 "Patron before: \n " . Dumper($patron);
|
|
||||||
my $action = C4::SIP::ILS::Transaction::RenewAll->new();
|
|
||||||
$action->do_renew_all();
|
|
||||||
print "\n\nTransaction::RenewAll: " . Dumper($action);
|
|
||||||
print "\n", "=" x 35, "\n";
|
|
||||||
}
|
|
||||||
|
|
@ -1,27 +0,0 @@
|
||||||
97AZFEF5
|
|
||||||
2300120071003 084235AOkohalibrary|AArch|ACkoha|ADkoha|
|
|
||||||
|
|
||||||
2300120060101 084236AOUWOLS|AAmjandkilde|ACterminal password|ADuser password|
|
|
||||||
2300120060101 084237AOUWOLS|AAdjfiander|ACterminal password|ADuser password|
|
|
||||||
9300CNLoginUserID|COLoginPassword|CPLocationCode|
|
|
||||||
11YN20060329 203000 AOUWOLS|AAdjfiander|AB1565921879|AC|
|
|
||||||
09Y20060102 08423620060113 084235APUnder the bed|AOUWOLS|AB1565921879|ACterminal password|
|
|
||||||
01N20060102 084238AOUWOLS|ALHe's a jerk|AAdjfiander|ACterminal password|
|
|
||||||
|
|
||||||
2520060102 084238AOUWOLS|AAdjfiander|ACterminal password|AD6789|
|
|
||||||
9910302.00
|
|
||||||
|
|
||||||
3520060110 084237AOkohalibrary|AArch|ADkoha|
|
|
||||||
1720060110 215612AOUWOLS|AB1565921879|
|
|
||||||
|
|
||||||
patron information:
|
|
||||||
6300020060329 201700Y AOkohalibrary|AArch|ACkoha|ADkoha|
|
|
||||||
|
|
||||||
15+20060415 110158BW20060815 110158|BSTaylor|BY2|AOUWOLS|AAdjfiander|AB1565921879|
|
|
||||||
15-20060415 110158AOUWOLS|AAdjfiander|AB1565921879|
|
|
||||||
29NN20060415 110158 AOUWOLS|AAdjfiander|AD6789|AB1565921879|
|
|
||||||
6520060415 110158AOUWOLS|AAdjfiander|AD6789|
|
|
||||||
|
|
||||||
working:
|
|
||||||
|
|
||||||
9300CNkoha|COkoha|CPkohalibrary|
|
|
||||||
|
|
@ -1,31 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
#
|
|
||||||
# This file reads a SIPServer xml-format configuration file and dumps it
|
|
||||||
# to stdout. Just to see what the structures look like.
|
|
||||||
#
|
|
||||||
# The 'new XML::Simple' option must agree exactly with the configuration
|
|
||||||
# in Sip::Configuration.pm
|
|
||||||
#
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
use English;
|
|
||||||
|
|
||||||
use XML::Simple qw(:strict);
|
|
||||||
use Data::Dumper;
|
|
||||||
|
|
||||||
my $parser = XML::Simple->new( KeyAttr => { login => '+id',
|
|
||||||
institution => '+id',
|
|
||||||
service => '+port', },
|
|
||||||
GroupTags => { listeners => 'service',
|
|
||||||
accounts => 'login',
|
|
||||||
institutions => 'institution', },
|
|
||||||
ForceArray=> [ 'service',
|
|
||||||
'login',
|
|
||||||
'institution' ],
|
|
||||||
ValueAttr => { 'error-detect' => 'enabled',
|
|
||||||
'min_servers' => 'value',
|
|
||||||
'max_servers' => 'value'} );
|
|
||||||
|
|
||||||
my $ref = $parser->XMLin(@ARGV ? shift : 'SIPconfig.xml');
|
|
||||||
|
|
||||||
print Dumper($ref);
|
|
||||||
Loading…
Reference in a new issue