(* Redirecting obsolete name to a new name *)

maintainRedirect := (
Print["Running maintainRedirect ..."];
names12 = Table[List @@ repl, {repl, replnames}];
{names1, names2} = Transpose[names12];
text = Table[{name1, name2} = name12;
   If[MemberQ[names1, name2], "", 
    "RewriteRule ^" <> htmlname[name1] <> "\\.htm$ " <> htmlname[name2] <> ".htm [R]"], {name12, names12}];
text = Select[text, (# =!= "") &];
texten = Flatten[{
   "RewriteEngine On",
   "# Permanently redirect mushrooms.su to griby.org",
   "RewriteCond %{HTTP_HOST} mushrooms\\.su [NC]",
   "RewriteRule ^/?(.*) https://" <> htmldomain <> "/en/$1 [R=301,L]",
   "# Redirect http to https",
   "RewriteCond %{HTTPS} !=on",
   "RewriteCond %{HTTP_HOST} griby [NC]",
   "RewriteRule ^/?(.*) https://" <> htmldomain <> "/en/$1 [R=301,L]",
   "# Unclear purpose",
   "RewriteCond %{HTTP_HOST} sergeev [NC]",
   "RewriteRule ^/?(.*) https://" <> htmldomain <> "/en/$1 [R=301,L]",
   "# Redirect some scientific names",
   "RewriteBase \"/en/\"",
   text}];
Export[ToFileName[{dir0, "en"}, ".htaccess"], texten, "Lines"];
textru = Flatten[{
   "RewriteEngine On",
   "# Permanently redirect mushrooms.su to griby.org",
   "RewriteCond %{HTTP_HOST} mushrooms\\.su [NC]",
   "RewriteRule ^/?(.*) https://" <> htmldomain <> "/ru/$1 [R=301,L]",
   "# Redirect http to https",
   "RewriteCond %{HTTPS} !=on",
   "RewriteCond %{HTTP_HOST} griby [NC]",
   "RewriteRule ^/?(.*) https://" <> htmldomain <> "/ru/$1 [R=301,L]",
   "# Unclear purpose",
   "RewriteCond %{HTTP_HOST} sergeev [NC]",
   "RewriteRule ^/?(.*) https://" <> htmldomain <> "/ru/$1 [R=301,L]",
   "# Redirect some scientific names",
   "RewriteBase \"/ru/\"",
   text}];
Export[ToFileName[{dir0, "ru"}, ".htaccess"], textru, "Lines"];
);