#!/usr/bin/perl
#
# read data from STDIN
#
#   1st line:   <userid>
#
use strict;
my $mapfile = '/etc/benno-auth/userextend.map';

my $userid = <>; chomp $userid;

open my $dh, $mapfile
    or die "Cannot open  mapfile for user extendation $mapfile: $!\n";

my ($userext,$parameter,$value);
while (my $line = <$dh>) {
    next if $line =~ /^#/;
    next if $line =~ /^$/;
    $line =~ s/[\r\n]//g;
    if (($userext,$parameter,$value) = split(/\s+/,$line,3)) {
        next if $userid ne $userext;
        print "$parameter $value\n";
    }
}
close $dh;
