Hallo Thomas,
Thomas Müller thomas@mueller-meissen.de (Do 07 Mär 2013 18:41:05 CET):
Hallo Martin,
da habe ich ja Glück dass das hier schon mal jemand gemacht hat :-) Die "größere Bibliothek" ist dann wohl die SLUB, die steht bei LIB-IT als Referenz...(?)
Nun gehen leider meine perl-Kenntnisse faktisch gegen Null was Eigenentwicklung von Scripts betrifft, hättest Du evtl. ein Beispiel für solch ein Hilfsscript?
#! /usr/bin/perl
use strict; use warnings;
sub ask_somebody($$);
$| = 1; while (<>) { my ($user, $pass) = split;
if (ask_somebody($user, $pass)) { print "OK\n"; } else { print "ERR\n"; } }
sub ask_somebody($$) { my ($user, $pass) = @_;
… if (… alles gut …) return 1; return 0; }
Das mit dem "-l" kann ich nicht nachvollziehen.
Ich hätte auch noch die Idee, die Userdaten aus der LIBERO DB in geeigneter Form zu exportieren (lt. Hersteller bietet LIBERO eine odbc Schnittstelle dafür) und eine lokale mysql-Datenbank damit zu füttern. Die Authentifizierung dagegen kann squid meiner Kenntnis nach per squid_auth_db machen.
Du kannst auch ODBC direkt aus dem Perl heraus ansprechen. Aber wahrscheinlich genügt das Perl-Modul „Soap::Lite“. (Aber von Seife habe ich keine Ahnung…)