Mehrere User anlegen, nur wie?

[no_Legend]

Hallo Leute,

ich bin mir nicht sicher ob das Thema hier her gehört oder wo anders.
Wenn es falsch ist bitte an die Mods es zu verschieben.

Kann mir einer kurz erklären, wie ich mehrere Benutzer einrichten kann?
Ich benötige keine Rechte Verteilung, beide User haben Vollzugriff.

Hab dazu auch schon ein anderes Thema gefunden, allerdings hat mich das nicht weiter gebracht.
Am liebsten wäre mir, dass bei Passwörter verschlüsselt in der Config stehen.

Danke und Gruß Robert

[marvin78]

Code Auswählen Erweitern

attr FEMWEB basicAuth {VerifyLogon($user,$password)}

Sub in der myUtils:

Code Auswählen Erweitern

sub VerifyLogon($$) {
    my %users = (
        'user1' => decode_base64('xyz'),
        'user2' => decode_base64('zxy'),
        'user3' => decode_base64('zzz')
    );
    my ($user, $pass) = @_;
    my $rightpass = $users{$user};
    return $rightpass eq $pass;
}

[no_Legend]

Hi marvin,
danke für die antwort.
Bekomme es aber nicht hin.

Code Auswählen Erweitern

hab eine 99_myutils angelegt mit folgendem Inhalt:
#############################################
# $Id: myUtilsTemplate.pm 7570 2015-01-14 18:31:44Z rudolfkoenig $
#
# Save this file as 99_myUtils.pm, and create your own functions in the new
# file. They are then available in every Perl expression.

package main;

use strict;
use warnings;
use POSIX;

sub
myUtils_Initialize($$)
{
  my ($hash) = @_;
}

# Enter you functions below _this_ line.

###mehrere Benutzer
sub VerifyLogon($$) {
    my %users = (
        'robert' => decode_base64('passx'),
        'desiree' => decode_base64('passy')
    );
    my ($user, $pass) = @_;
    my $rightpass = $users{$user};
    return $rightpass eq $pass;
}

1;

Dazu noch diese Zeile in hem.cfg geändert:

Code Auswählen Erweitern

attr WEB basicAuth {VerifyLogon($user,$password)}

Mach ich was falsch oder hab ich was vergessen?

Danke und Gruß Robert

[marvin78]

Was genau funktioniert denn nicht? Gibt es Fehler? Was sagt das Log?

Als Hinweis: Das jeweilige Passwort muss base64-codiert in die sub. Am Anfang deiner myUtils sollte das hier

Code Auswählen Erweitern

use MIME::Base64;

stehen.

[no_Legend]

Im log taucht nur folgendes auf:

Code Auswählen Erweitern

2015.04.27 18:10:19 1: PERL WARNING: Use of uninitialized value $rightpass in string eq at ./FHEM/99_myUtils.pm line 30.

Ansonsten konnte ich nichts finden, was in Bezug auf das Passwort gehen würde.

[marvin78]

Als Hinweis: Das jeweilige Passwort muss base64-codiert in die sub. Am Anfang deiner myUtils sollte das hier

Code Auswählen Erweitern

use MIME::Base64;

stehen.

Hast du das beachtet?