(* List of Russian names from gribylenoblasti.ru *)

maintainRussianLenoblast := (
url = "http://gribylenoblasti.ru/spisok-vidov-rus/";
file = "mushrooms-russian-lenoblast.htm";
match0 = 
  "\:0420\:0443\:0441\:0441\:043a\:0438\:0435 \
\:043d\:0430\:0437\:0432\:0430\:043d\:0438\:044f" ~~ __ ~~ 
   "\:041f\:0435\:0440\:0435\:0439\:0442\:0438 \:0432 \:0441\:043f\
\:0438\:0441\:043e\:043a \:0441 \:043b\:0430\:0442\:0438\:043d\:0441\
\:043a\:0438\:043c\:0438 \:043d\:0430\:0437\:0432\:0430\:043d\:0438\
\:044f\:043c\:0438";
match = RegularExpression[
   "(?i)(?s)<li><a \
href=.*?>\\s*(.*?)\\s*</a>((&nbsp;)|\\s)*(.*?)\\s*</li>"];
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 -> {"$4", "$1"}];
Print["Found ", Length[data], " names in file ", file, " -> rusnames2"];
printnames[data // TableForm];
rusnames2 = updatenames[data];
);