beatovich: DAU User Config-file

Beitrag lesen

hallo

Hallo Beat,

und wie reagiert dein System auf falsche Eingaben?

open(my $c, "<", $CONFIG_FILE ) or die $!;
while(<$c>){
	$_ =~ m{^SET_PASSWORD_HASH \s+ (\S+) }x and $PASSWORD_HASH = $1 and next; 
	$_ =~ m{^SET_ROOT_DIR \s+ (\S+) }x and $ROOT_DIR = $1 and next; 
	$_ =~ m{^SET_HTTP_BASE_PATH \s+ (\S+) }x and $HTTP_BASE_PATH = $1 and next; 
	$_ =~ m{^SET_REDIRECT \s+ (\S+) }x and $REDIRECT = $1 and next; 
	$_ =~ m{^SET_FILESYSENCODING \s+ (\S+) }x and $FILESYSENCODING = $1 and next; 
	$_ =~ m{^ADD_FILETYPE \s+ (\S+) }x and push( @LIMIT_FILETYPE, $1) and next; 
	$_ =~ m{^ADD_DIR \s+ (\S+) }x and push( @LIMIT_DIR, $1) and next; 
	$_ =~ m{^ADD_WRITE_DIR \s+ (\S+) }x and push( @LIMIT_WRITE_DIR, $1) and next; 
}
close $c;

Nicht registrierte Parameter werden ignoriert. Wenn unsinnige Direktories angegeben werden, wird das an anderer Stelle zu Fehlern führen.

ADD_FILETYPE cpp

Woher kennt der DAU deine Syntax?

Die wird dokumentiert, wenn man kissedit.pl ohne action Parameter aufruft.