aboutsummaryrefslogtreecommitdiff
path: root/IkiWiki
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2015-05-19 17:44:20 -0400
committerJoey Hess <joeyh@joeyh.name>2015-05-19 17:44:20 -0400
commit3676ab329d40de55fa11b4862cc3fb5350ceedb3 (patch)
tree9d744566354547c2c1561b82cbb609a0d371be2e /IkiWiki
parentba02e7f33dbbb7349b61250f9e565db22a9eb4fa (diff)
downloadikiwiki-3676ab329d40de55fa11b4862cc3fb5350ceedb3.tar
ikiwiki-3676ab329d40de55fa11b4862cc3fb5350ceedb3.tar.gz
sohrten url in subject
Diffstat (limited to 'IkiWiki')
-rw-r--r--IkiWiki/Plugin/emailauth.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/IkiWiki/Plugin/emailauth.pm b/IkiWiki/Plugin/emailauth.pm
index a739c2bc7..a589199d3 100644
--- a/IkiWiki/Plugin/emailauth.pm
+++ b/IkiWiki/Plugin/emailauth.pm
@@ -78,12 +78,14 @@ sub email_auth ($$$$) {
eval q{use Mail::Sendmail};
error($@) if $@;
+ my $shorturl=$config{url};
+ $shorturl=~s/^https?:\/\///i;
sendmail(
To => $email,
From => "$config{wikiname} admin <".
(defined $config{adminemail} ? $config{adminemail} : "")
.">",
- Subject => "$config{wikiname} login | ".$config{url},
+ Subject => "$config{wikiname} login | $shorturl",
Message => $template->output,
) or error(gettext("Failed to send mail"));