(* General settings - without performing subroutines *) (* Previously saved definitions *) filedump = "F:\\temp\\html.mx"; Print["Getting various data for pictures from saved session of maintain/structured/maint.nb from the file ", filedump, " ..."]; timedump = NumberForm[Timing[Get[filedump]][[1]], {5, 1}]; Print[" --- Data were read in ", timedump, " second."]; diskphp = "C"; (* php, lynx, ... *) diskhtml = "F"; diskc = "E"; (* sergeev and temp directories *) diskf = "F"; (* log files *) diskfile[disk_String, file_String] := ToFileName[{disk <> ":"}, file]; dir00 = diskfile[diskhtml, "html"]; dir0 = dirmushrooms = ToFileName[{dir00, "pictures", "mushrooms"}]; dirtemp = diskfile[diskc, "temp"]; dirwork = dirwork0 = diskfile[diskc, "sergeev\\qeeri\\html\\rmushrooms"]; dirdata= ToFileName[{dirwork, "data"}]; filedump = ToFileName[dirtemp, "rmushrooms-web.mx"]; htmldomain = "www.griby.org"; apikey ="AIzaSyC_URruirXwk_QqHyZP57b51VxpJRzqfhc"; (* https://console.developers.google.com/apis/credentials/key/157?project=my-project-1486416305745&pli=1 *) (* https://account.mapbox.com/ *) mapboxkey = "pk.eyJ1IjoiYXNlcmdlZXYiLCJhIjoiY2t2aW9sYTJtMGdlYjJ3cWd4aWQxYzB3MCJ9._Dk3YRW7ytiYoRtGe58wnw"; (* for maps only *) yearsrussia = Range[2003, 2099]; (* Reading packages *) filefunc = ToFileName[dirwork, "functions.m"]; If[FileType[filefunc] =!= File, Print["Fatal Error: no file ", filefunc, " Exiting ..."]; Exit[]]; Get[filefunc]; checkdir /@ {dirtemp, dirwork}; checkdir /@ {dir0, dirdata}; (* Reading sub-programs *) SetDirectory[dirwork]; subprogs = FileNames["maintain-*.m"]; subprogs = Join[subprogs, {"replnames.m"}]; subnames = progname /@ subprogs; Print["Getting sub-programs: ", Transpose[{subprogs, subnames}] // TableForm]; (* Get /@ subprogs; *) (* Binary format *) ToExpression[(Print["Getting program ", #, "... "]; Import[#, "Text"])] & /@ subprogs; Get["opensql.m"]; (* Beginning operations *) maintainInit; (* Reading list of mushroom names and translations from several Internet sources *) maintainNames; (* Getting list of mushrooms *) maintainList; (* Getting mushroom data for IDs from catalogueoflife.org *) maintainGetData; (* Reading mushroom data for IDs from saved files *) maintainReadData; (* Selecting ID for each name *) maintainSelectID; (* Get Wikipedia articles *) maintainWiki; (* Translations *) maintainTranslations; (* Montage of pictures for each mushroom *) (* Also, other operations *) maintainMontageNames; (* Text to upload to spbmyco.ru *) maintainMyco; (* Creating geo files *.kml for each mushroom *) maintainKML; (* Index file sorted by full classification line *) maintainIndexf; (* Index file sorted by full classification line - Russian language *) maintainIndexfRu; (* Alphabetical list *) maintainIndexa; (* Main index file *) maintainIndex; (* Web page for each mushroom species *) maintainSpecies; maintainSpeciesRu; (* Weather data *) maintainWeather; (* Group pictures by dates *) maintainDates; (* Redirecting obsolete name to a new name *) maintainRedirect; (* Creating sitemap for Google *) maintainSitemap; (*maintainSitemapSubmit;*) (* Saving session - for possible debugging *) maintainDumpsave;