hier ist wohl ein kleiner Fehler im connect:

Versuche es mal mit:

$connect = DBI->connect($sDatabaseHost, $sDatabaseName, $sDatabaseUser, $sDatabasePass) || die “Could not connect to database: $DBI::errstr”;

Gruß

Sebastian

ich habe vor mich mithilfe deines Skriptes an einen externen mysql server zu verbinden. Der mysql server läuft auf einem anderen host als der ejabberd server.
In deinem skript kann ich zwar einen host eintrage, dieser wird aber nirgens im code benutzt.

Ich habe schon verschiedene dinge in der “DBI->connect(‘DBI:mysql” zeile versucht, aber entweder verbindet er sich weiterhin auf “localhost” oder es erscheint nur ein “%” an stelle des servernamen.

mit dem “mysql” programm und den selben login/datenbank-daten funktioniert es problemlos!

Danke im voraus

Denis

ich hab nichts dagegen. Wenn du einen Link auf diesen Eintrag machst, wäre das natürlich toll.

Gruß

Sebastian

unter welcher Lizenz steht das Script denn? Darf ich es (unter Angabe Deines Namens als Originalautor) wieder veröffentlichen?

Danke!
Jakob

Was hat sich denn an der Authentifizierung geändert? -Benötigt ejabberd jetzt einen anderen Rückgabewert?

Die Datenbankeinstellungen in der ejabberd.conf sind für die integrierte MySQL-Authentifizierung gedacht.

Siehe dazu https://support.process-one.net/doc/display/MESSENGER/Using+ejabberd+with+MySQL+native+driver

(Kommentar oben von Noby)

@Philipp
Danke für den Tipp

@Sebastian
Ich kenne mich bisher überhaupt nicht mit Skriptprogrammierung aus. Kann lediglich ein paar Schritte nachvollziehen.
Da muss ich leider passen und warten bis jemand mit etwas Erfahrung etwas funktionsfähiges geschrieben hat.

hm du hast recht, ein paar Log-Einträge wären ganz sinnvoll.

Schau dir dazu doch mal:

http://perldoc.perl.org/Sys/Syslog.html

oder vielleicht besser mit log4perl:

http://www.linux-magazin.de/Heft-Abo/Ausgaben/2003/01/Wachsame-Schlaefer

alternativ kann man natürlich mit Perl auch direkt Log-Files schreiben:

open(LOG,”logfile”) or die “Unable to open logfile:$!\n”;
while(){
print if /\berror\b/i;
}
close(LOG);

oder du gibst einen print nach STDERR:

print { $OK ? STDOUT : STDERR } “Log-Entry\n”;

Gruß

Sebastian

vielleicht fängst du zuerst damit an dir ein kleines Perl Skript zu schreiben, dass dir nur das verschlüsselte Passwort aus dem unverschlüsselten Passwort erzeugt.

Also zum Beispiel sowas:

#!/usr/bin/perl
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $encrpass = md5($password); # binary
print $encrpass

Die Ausgabe vergleichst du mit dem was in der Datenbank steht.

Wird noch salt oder anderes zusätzlich verwendet wird es etwas aufwändiger das Encrypted Password zu erzeugen.

Hier wird crypt mit einem salt verwendet:

$sCryptstring = crypt($sPassword,$row->{$sPasswordTableField});

“$row->{$sPasswordTableField}” ist das salt. (http://dev.perl.org/perl6/rfc/208.html)

Sobald du herrausgefunden hast, wie das Passwort erzeugt wird von phpbb md5, crypt oder etwas anderes und welcher salt verwendet wird, baust du das ganze wie oben mit einem kleinen perl-skript nach.

Danach baust du das in das Orginal-Skript ein. So kannst du das Passwort dann auch durch Jabber ändern lassen.

Gruß

Sebastian