| changeset 9 | 0943e8462f06 |
| parent 7 | bc20f10e81e1 |
| child 10 | 21b549d5c57b |
| 8:0111bdde6f23 | 9:0943e8462f06 |
|---|---|
193 |
193 |
194 sub identity() |
194 sub identity() |
195 { |
195 { |
196 my $user = `who am i`; |
196 my $user = `who am i`; |
197 chomp $user; |
197 chomp $user; |
198 $user .= " [" . ($ENV{REMOTE_USER} || "-") . "]"; |
198 $user .= " [" . ($ENV{IUS_PROFILE} || $ENV{REMOTE_USER} || "-") . "]"; |
199 return $user; |
199 return $user; |
200 } |
200 } |
201 |
201 |
202 sub hostname() |
202 sub hostname() |
203 { |
203 { |