equal
deleted
inserted
replaced
102 -noperldoc => system("perldoc -V 2>/dev/null 1>/dev/null") |
102 -noperldoc => system("perldoc -V 2>/dev/null 1>/dev/null") |
103 ); |
103 ); |
104 }, |
104 }, |
105 ) or pod2usage(); |
105 ) or pod2usage(); |
106 |
106 |
|
107 # override the HGUSER to the 'remote user' from our SSH connect |
|
108 $ENV{HGUSER} = env_user() // $ENV{USER} // $ENV{LOGNAME} // getpwuid($>); |
|
109 |
107 if ($opt_message =~ /^@(.*)/) { |
110 if ($opt_message =~ /^@(.*)/) { |
108 @ARGV = $1; |
111 @ARGV = $1; |
109 $opt_message = join "", <>; |
112 $opt_message = join "", <>; |
110 } |
113 } |
111 elsif ($opt_message eq "-") { |
114 elsif ($opt_message eq "-") { |
298 |
301 |
299 move $file, $opt_file; |
302 move $file, $opt_file; |
300 |
303 |
301 } |
304 } |
302 |
305 |
|
306 sub env_user { |
|
307 foreach (qw(IUS_USER IUS_PROFILE REMOTE_USER)) { |
|
308 return $ENV{$_} if length defined $ENV{$_}; |
|
309 } |
|
310 return undef; |
|
311 } |
|
312 |
303 sub identity() { |
313 sub identity() { |
304 my $user = `who am i`; |
314 my $user = `who am i`; |
305 chomp $user; |
315 chomp $user; |
306 $user .= " [" . ($ENV{IUS_PROFILE} || $ENV{REMOTE_USER} || "-") . "]"; |
316 $user .= " [" . env_user() // '-' . "]"; |
307 return $user; |
317 return $user; |
308 } |
318 } |
309 |
319 |
310 sub full_hostname() { |
320 sub full_hostname() { |
311 my $r = `hostname -f`; |
321 my $r = `hostname -f`; |