105     ) or pod2usage();

   105     ) or pod2usage();

   106 

   106 

   107     # override the HGUSER  to the 'remote user' from our SSH connect

   107     # override the HGUSER  to the 'remote user' from our SSH connect

   108     $ENV{HGUSER} = env_user() // $ENV{USER} // $ENV{LOGNAME} // getpwuid($>);

   108     $ENV{HGUSER} = env_user() // $ENV{USER} // $ENV{LOGNAME} // getpwuid($>);

   109 

   109 

   110     if ($opt_message =~ /^@(.*)/) {

   112     if ($opt_message =~ /^@(.*)/) {

   111         @ARGV = $1;

   113         @ARGV = $1;

   112         $opt_message = join "", <>;

   114         $opt_message = join "", <>;

   113     }

   115     }

   114     elsif ($opt_message eq "-") {

   116     elsif ($opt_message eq "-") {

   311 }

   313 }

   312 

   314 

   313 sub identity() {

   315 sub identity() {

   314     my $user = `who am i`;

   316     my $user = `who am i`;

   315     chomp $user;

   317     chomp $user;

   317     return $user;

   319     return $user;

   318 }

   320 }

   319 

   321 

   320 sub full_hostname() {

   322 sub full_hostname() {

   321     my $r = `hostname -f`;

   323     my $r = `hostname -f`;