(* General settings *)

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 = ToFileName[{dir00, "pictures", "qatar-plants"}];
dirtemp = diskfile[diskc, "temp"];
dirwork = diskfile[diskc, "sergeev\\tamu\\html\\qplants"];
dirdata= ToFileName[{dirwork, "data"}];
filedump = ToFileName[dirtemp, "qplants-web.mx"];
htmldomain = "www.floraofqatar.com";
apikey ="AIzaSyC_URruirXwk_QqHyZP57b51VxpJRzqfhc"; (* https://console.developers.google.com/apis/credentials/key/157?project=my-project-1486416305745&pli=1 *)

(* Reading packages *)

filefunc = ToFileName[dirwork, "functions.m"];
If[FileType[filefunc] =!= File, Print["Fatal Error: no file ", filefunc, " Exiting ..."]; Exit[]];
Get[filefunc];
     
checkdir /@ {dir0, dirtemp, dirwork};
checkdir1[dirdata];

SetDirectory[dirwork];
subprogs = FileNames["maintain-*.m"];
subnames = progname /@ subprogs;
Print["Getting sub-programs: ", Transpose[{subprogs, subnames}] // TableForm];
(* Get /@ subprogs; *)
(* Binary format *)
ToExpression[Import[#, "Text"(*, CharacterEncoding -> "WindowsCyrillic"*)]] &/@ subprogs;
Get["opensql.m"];
(*
(* For debugging *)
Do[
Print["Reading sub-program ", subprog];
ToExpression[Import[subprog, "Text"(*, CharacterEncoding -> "WindowsCyrillic"*)]], {subprog, subprogs}];
*)

(* Printing list of programs *)
maintainPrograms;

(* Creating or reading database for families *)
maintainFamilydata;

(* Getting list of plants *)
maintainList;

(* Unlisted plants *)
maintainUnlisted;

(* Creating a web page for lookout of plant names *)
maintainLookout;

(* Sorting list of plants *)
maintainSort;

(* Index file, compact listing *)
maintainIndexC;

(* Getting list of excluded pictures *)
maintainExclude;

(* Getting list of notes *)
maintainNotes;

(* Get Wikipedia articles *)
maintainWiki;

(* Main index file *)
maintainIndex;

(* Plant species sorted by families *)
maintainIndexF;

(* Index file, listing in alphabetical order *)
maintainIndexA;

(* Web page for each family *)
maintainfamilypages;

(* Location on a map, reading blank map *)
maintainGeoBlank;

(* Web page for each plant specie *)
maintainPlantpages;

(* Creating sitemap for Google *)
maintainSitemap;

(* Submitting sitemap *)
(*
maintainSitemapSubmit;
*)


(*
If[ifusesaved =!= True,

(* Reading shooting data of pictures *)
maintainReadMetadata;

(* Using GPS data to find address *)
maintainLocations;

(* Reading GPS tracks *)
maintainTracks;

(* Reading addresses *)
maintainReadLocations;
]; (* the above is done only if ifusesaved =!= True *)

(* Creating geo files *.kml *)
maintainKML;

If[ifcopy === True, maintainCopynew];
*)