Net::SMTP::Server auf Windows 7 (gelöst) - #184311 (Fragen zu Perl-Modulen)

GwenDragon

2016-03-30 10:19

User since
2005-01-17
14533 Artikel
Admin1

Pfad auf logindb hinzufügen? Einfach, da kannst du Net::SMTP::Server::Client aufbohren (ungetestet).

1. sub new erweitern:
Nach der Zeile mit $self->{pass} = undef; den Code Zeile $self->{logindb} = undef; hinzufügen.

2. sub logindb hinzufügen:

Code: (dl )

sub logindb {
  my $self = shift;
  $self{logindb}{path} = shift;
  1;
}

3. sub __check_login erweitern:
Ersetze
my ($user,$pass) = @_;
durch
my ($self,$user,$pass) = @_;
Ersetze
if ( open my $db, '<', 'login.db' ) {
druch
if ( open my $db, '<', $self{logindb}{path} ) {

4. sub _auth erwietern:
Ersetze
$self->{loggedin} = __check_login($self->{user},$self->{pass});
durch
$self->{loggedin} = $self->__check_login($self->{user},$self->{pass});

Ich würde es nicht im Aufruf Net::SMTP::Server->new setzen (weil ich zu faul zum Aufbohren des Moduls war! ;) )sondern in deinem Server selbst:

Code: (dl )

1
2

my $client = new Net::SMTP::Server::Client($conn);
$client->logindb(....);

Last edited: 2016-03-30 10:36:24 +0200 (CEST)

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel