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