(* Redirecting obsolete name to a new name *)

maintainRedirect := (
Print["Running maintainRedirect ..."];
names12 = Table[
   syns = usedSynonyms[name];
   Table[{syn, name}, {syn, syns}], {name, accNamesList}];
names12 = Join @@ names12;
nameswrong = {
   {"Laetiporus gilbertsonii", "Piptoporellus soloniensis"},
   {"Moniliophthora perniciosa", "Moniliophthora conchata"},
   {"Marasmiellus inodermatoides", "Moniliophthora conchata"},
   {"Deconica horizontalis", "Pholiota polychroa"},
   {"Phloeomana clavata", "Entoloma rhodocylix"}
   };
Do[
   If[!MemberQ[accNamesList, namewrong[[1]]] && MemberQ[accNamesList, namewrong[[2]]],
      names12 = Append[names12, namewrong];
   ], {namewrong, nameswrong}];
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",
   "RewriteCond %{HTTPS} !=on",
   "RewriteCond %{HTTP_HOST} mushrooms [NC]",
   "RewriteRule ^/?(.*) https://" <> htmldomain <> "/en/$1 [R=301,L]",
   "RewriteCond %{HTTP_HOST} sergeev [NC]",
   "RewriteRule ^/?(.*) https://" <> htmldomain <> "/en/$1 [R=301,L]",
   "RewriteBase \"/en/\"",
   text}];
Export[ToFileName[{dir0, "en"}, ".htaccess"], texten, "Lines"];
);