#!/usr/bin/perl
package IkiWiki::Plugin::cvs;
-# Copyright (c) 2009 Amitai Schlair
+# Copyright (c) 2009 Amitai Schleier
# All rights reserved.
#
# This code is derived from software contributed to ikiwiki
-# by Amitai Schlair.
+# by Amitai Schleier.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
$oldrev =~ s/INITIAL/0/;
$newrev =~ s/\(DEAD\)//;
my $diffurl = defined $config{diffurl} ? $config{diffurl} : "";
- my $epage = uri_escape_utf8($page);
+ my $epage = join('/',
+ map { uri_escape_utf8($_) } split('/', $page)
+ );
$diffurl=~s/\[\[file\]\]/$epage/g;
$diffurl=~s/\[\[r1\]\]/$oldrev/g;
$diffurl=~s/\[\[r2\]\]/$newrev/g;
if (defined $params{session}) {
if (defined $params{session}->param("name")) {
return "web commit by ".
- $params{session}->param("name").
+ IkiWiki::cloak($params{session}->param("name")).
(length $params{message} ? ": $params{message}" : "");
}
elsif (defined $params{session}->remote_addr()) {
return "web commit from ".
- $params{session}->remote_addr().
+ IkiWiki::cloak($params{session}->remote_addr()).
(length $params{message} ? ": $params{message}" : "");
}
}