(no commit message)

[git.ikiwiki.info.git] / IkiWiki.pm

diff --git a/IkiWiki.pm b/IkiWiki.pm
index bb36b0885e8c43ff0b913c850935d18d7cf81529..fe5af6d15a769250879accb6592b45d84f5c555e 100644 (file)
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -165,7 +165,7 @@ sub getsetup () {
        default_plugins => {
                type => "internal",
                default => [qw{mdwn link inline meta htmlscrubber passwordauth
-                               openid emailauth signinedit lockedit conditional
+                               openid signinedit lockedit conditional
                                recentchanges parentlinks editpage
                                templatebody}],
                description => "plugins to enable by default",
@@ -566,6 +566,14 @@ sub getsetup () {
                safe => 1,
                rebuild => 1,
        },
+       deterministic => {
+               type => "boolean",
+               default => 0,
+               description => "try harder to produce deterministic output",
+               safe => 1,
+               rebuild => 1,
+               advanced => 1,
+       },
 }
 
 sub getlibdirs () {
@@ -1217,7 +1225,7 @@ sub cgiurl (@) {
        }
 
        return $cgiurl."?".
-               join("&", map $_."=".uri_escape_utf8($params{$_}), keys %params);
+               join("&", map $_."=".uri_escape_utf8($params{$_}), sort(keys %params));
 }
 
 sub cgiurl_abs (@) {
@@ -1471,7 +1479,9 @@ sub emailuser ($) {
        if (defined $user && $user =~ m/(.+)@/) {
                my $nick=$1;
                # remove any characters from not allowed in wiki files
-               $nick=~s/[^$config{wiki_file_chars}]/_/g;
+               # support use w/o %config set
+               my $chars = defined $config{wiki_file_chars} ? $config{wiki_file_chars} : "-[:alnum:]+/.:_";
+               $nick=~s/[^$chars]/_/g;
                return $nick;
        }
        return;