From da9db4066f08905f177fdbee51a9abb9ba5cf3c6 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 19 Mar 2010 00:20:37 +0100 Subject: [PATCH] always prefix message with originating host --- bak-git-server.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bak-git-server.pl b/bak-git-server.pl index a826934..f25e926 100755 --- a/bak-git-server.pl +++ b/bak-git-server.pl @@ -102,9 +102,9 @@ while (my $client = $server->accept()) { my $on_host = $1 if $rel_path =~ s/^([^:]+):(.+)$/$2/ && -e $1; my $path = $rel_path =~ m{^/} ? $rel_path : "$pwd/$rel_path"; - $message ||= ''; - warn "$hostname [$command] $path | $message\n"; - $message ||= "$hostname [$command] $path"; + warn "$hostname [$command] $on_host:$path | $message\n"; + $message ||= "$path [$command]"; + $message = "$hostname: $message"; my $dir = $path; $dir =~ s{/[^/]+$}{}; -- 2.20.1