diff options
Diffstat (limited to 'IkiWiki/Rcs/mercurial.pm')
-rw-r--r-- | IkiWiki/Rcs/mercurial.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/IkiWiki/Rcs/mercurial.pm b/IkiWiki/Rcs/mercurial.pm index 36972c560..66ff0996a 100644 --- a/IkiWiki/Rcs/mercurial.pm +++ b/IkiWiki/Rcs/mercurial.pm @@ -66,7 +66,14 @@ sub rcs_prepedit ($) { #{{{ } #}}} sub rcs_commit ($$$) { #{{{ - my ($file, $message, $rcstoken) = @_; + my ($file, $message, $rcstoken, $user, $ipaddr) = @_; + + if (defined $user) { + $message="web commit by $user".(length $message ? ": $message" : ""); + } + elsif (defined $ipaddr) { + $message="web commit from $ipaddr".(length $message ? ": $message" : ""); + } $message = possibly_foolish_untaint($message); |