projects
/
bak-git.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8830aaf
)
always prefix message with originating host
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 18 Mar 2010 23:20:37 +0000
(
00:20
+0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 18 Mar 2010 23:20:37 +0000
(
00:20
+0100)
bak-git-server.pl
patch
|
blob
|
history
diff --git
a/bak-git-server.pl
b/bak-git-server.pl
index
a826934
..
f25e926
100755
(executable)
--- 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{/[^/]+$}{};