[- $args = shift @param; &EMU::debug("contact editor"); $nick = $EMU::query->param('orig'); foreach $d (split(':', $EMU::userdb{"addresses.$nick"})) { $d =~ s/\"/\"/g; push(@data, $d); } foreach $n (grep {/^addresses\./} keys %EMU::userdb) { $n =~ s/^addresses\.//; push(@nicknames, lc($n)); } $orig = $nick; $orig =~ s/'/\\'/g; # the first 2 entries are fullname and email, so the addrbook_* entries # really start at $data[2], so when accessing it, we must add 1 -]