summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xlocaluserinfo10
1 files changed, 5 insertions, 5 deletions
diff --git a/localuserinfo b/localuserinfo
index 72a7efc..7c74589 100755
--- a/localuserinfo
+++ b/localuserinfo
@@ -118,7 +118,7 @@ while (my $username = shift @names) {
my $string;
- my ($fullname, $office, $workphone, $homephone, $other, $groupname, $members, $groups, @officehints, @addresshints, @grouphints) = &getuserinfo($username);
+ my ($fullname, $office, $workphone, $homephone, $other, $groupname, $members, $groups, $officehints, $addresshints, $grouphints) = &getuserinfo($username);
my $mailaddress = "$username\@$maildomain";
$string = $template;
@@ -128,13 +128,13 @@ while (my $username = shift @names) {
$string =~ s/\%workphone\%/$workphone/g;
$string =~ s/\%homephone\%/$homephone/g;
$string =~ s/\%other\%/$other/g;
- $string =~ s/\%officehints\%/@officehints/g;
- $string =~ s/\%addresshints\%/@addresshints/g;
+ $string =~ s/\%officehints\%/@$officehints/g;
+ $string =~ s/\%addresshints\%/@$addresshints/g;
$string =~ s/\%mailaddress\%/$mailaddress/g;
$string =~ s/\%groupname\%/$groupname/g;
$string =~ s/\%members\%/$members/g;
$string =~ s/\%groups\%/$groups/g;
- $string =~ s/\%grouphints\%/@grouphints/g;
+ $string =~ s/\%grouphints\%/@$grouphints/g;
print "$string\n";
}
@@ -158,7 +158,7 @@ sub getuserinfo($) {
my $groups = join ' ', defined($groups{$username}) ? @{$groups{$username}} : '';
my @grouphints = grep {s/^([\.[:alnum:]_-]+)$/\@$1/} split /\s+/, $groups;
- return ($fullname, $office, $workphone, $homephone, $other, $groupname, $members, $groups, @officehints, @addresshints, @grouphints);
+ return ($fullname, $office, $workphone, $homephone, $other, $groupname, $members, $groups, \@officehints, \@addresshints, \@grouphints);
}
sub get_maildomain {