(* List of Russian names from gribovedy.rf *)

maintainRussianUloma := (
url = "http://xn--90acbgep7bn9h.xn--p1ai/home/spisok-russkikh-nazvanij";
file = "mushrooms-russian-uloma.htm"; 
match0 = 
  "Written by \:041d\:0438\:043a\:043e\:043b\:0430\:0439 \:0411\:0443\
\:0434\:043d\:0438\:043a" ~~ __ ~~ 
   "value=\"\:0421\:043f\:0438\:0441\:043e\:043a \:0440\:0443\:0441\
\:0441\:043a\:0438\:0445 \:043d\:0430\:0437\:0432\:0430\:043d\:0438\
\:0439 \:0433\:0440\:0438\:0431\:043e\:0432\"";
match = RegularExpression[
   "(?i)(?s)rel=\"alternate\">\\s*(.{3,50}?)\\s* [-] \\s*([a-z,A-Z]{2,30}\\s+[a-z,A-Z]{2,30})"];
urlsave[url, file, textcondit];
text = Import[file, "TEXT"];
text = StringCases[text, match0];
If[text === {}, Print["Error: no match: ", match0]];
text = text[[1]];
data = StringCases[text, match -> {"$2", "$1"}];
Print["Found ", Length[data], " names in file ", file, " -> rusnames6"];
printnames[data // TableForm];
rusnames6 = updatenames[data];
);