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 <[email protected]> (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…) _______________________________________________ Lug-dd maillist - [email protected] https://ssl.schlittermann.de/mailman/listinfo/lug-dd
