Hallo Heiko,
danke für den Codeschnipsel. Ich versuch's mal zu verstehen und mit der "Seife"abfrage zu verbinden :-)
Ansonsten bleibt mir immernoch die Krücke mit dem Umweg über import in mysql. Es soll wie immer gestern fertig sein...
Gruß Thomas
Am Donnerstag, 7. März 2013, 21:12:32 schrieb Heiko Schlittermann:
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…)