sub setuser($){
    my $user = $_[0];
    for (0..8){
        $TITLES[$_] = '--' if $TITLES[$_] eq '';
        $CARDS[$_]  = '--' if $CARDS[$_]  eq '';
    }
    for (0..4){
        $LURLS[$_] = '--' if $LURLS[$_] eq '';
        $LALTS[$_] = '--' if $LALTS[$_] eq '';
    }
    my $titles = join "<==>", @TITLES;
    my $cards = join "<==>", @CARDS;
    my $lurls = join "<==>", @LURLS;
    my $lalts = join "<==>", @LALTS;
    my $value = join "<~~>", (
        $USER{pass},
        $USER{name},
        $USER{mail},
        $USER{url},
        $USER{mode},
        $USER{rurl},
        $titles,
        $cards,
        $USER{keywords},
        $USER{desc},
        $lurls,
        $lalts,
        $USER{wbmp},
        $USER{maillink},
        $USER{goto}
    );
    $DB{$user} = $value;
    logline("wapfunc: setuser $user");
}

##</code><code>##

sub leesinfo() {
    for (split /&/, ($ENV{REQUEST_METHOD} eq 'GET' ? $ENV{QUERY_STRING} : <>)) {
        split /=/;
        for (@_) {
            tr{+} { };
            s{%([0-9A-Fa-f]{2})}
             {pack('c',hex($1))}ge;
        }
        $fields{$_[0]} = $_[1];
    }
    $gelezen = 1;
}