diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-05-19 17:44:20 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-05-19 17:44:20 -0400 |
| commit | 3676ab329d40de55fa11b4862cc3fb5350ceedb3 (patch) | |
| tree | 9d744566354547c2c1561b82cbb609a0d371be2e /IkiWiki/Plugin | |
| parent | ba02e7f33dbbb7349b61250f9e565db22a9eb4fa (diff) | |
| download | ikiwiki-3676ab329d40de55fa11b4862cc3fb5350ceedb3.tar ikiwiki-3676ab329d40de55fa11b4862cc3fb5350ceedb3.tar.gz | |
sohrten url in subject
Diffstat (limited to 'IkiWiki/Plugin')
| -rw-r--r-- | IkiWiki/Plugin/emailauth.pm | 4 |
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")); |