avoid showing password prefs for emailauth user

1 files changed, 9 insertions, 1 deletions

diff --git a/IkiWiki.pm b/IkiWiki.pm
index f414996db..53eb8235b 100644
--- 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 signinedit lockedit conditional
+				openid emailauth signinedit lockedit conditional
 				recentchanges parentlinks editpage
 				templatebody}],
 		description => "plugins to enable by default",
@@ -1464,6 +1464,14 @@ sub openiduser ($) {
 	return;
 }
 
+sub emailuser ($) {
+	my $user=shift;
+	if (defined $user && $user =~ m/(.+)@/) {
+		return $1;
+	}
+	return;
+}
+
 sub htmlize ($$$$) {
 	my $page=shift;
 	my $destpage=shift;