(* Creating sitemap for Google *) maintainSitemap := ( (*smfile = "sitemap.xml.gz";*) smfile = "sitemap.xml"; Print["Creating sitemap ..."]; time1 = SessionTime[]; nofiles = { }; dirhtml = dir0; checkdir[dirhtml]; SetDirectory[dirhtml]; files = ToLowerCase /@ toslash /@ FileNames["*.htm", "", Infinity]; files = Select[files, StringFreeQ[#, nofiles] &]; mall = Length[files]; Print["Total number of files *.htm: ", mall]; files = Reverse[files[[Ordering[FileDate /@ files]]]]; Print["Newest HTML file: ", files // First]; Print["Oldest HTML file: ", files // Last]; txt = { "", "", "", Table[ {"", file = files[[n]]; "https://" <> htmldomain <> "/" <> file <> "", date = FileDate[files[[n]]]; date = DateString[date, {"Year", "-", "Month", "-", "Day", "T", "Hour", ":", "Minute", ":", "Second", "-05:00"}]; "" <> date <> "", "monthly", (* prior = 0.5 + 0.3 (0.5 - n/mall);*) prior = Switch[StringDrop[file, -4], "index", 0.9, "index-ru", 0.9, "indexf", 0.8, "indexf-ru", 0.8, "indexc", 0.7, "indexc-ru", 0.7, _, 0.5]; prior = NumberForm[prior, {4, 1}] // ToString; "" <> prior <> "", ""}, {n, mall}], "" }; Export[smfile, StringJoin[Riffle[Flatten[txt], "\n"]], "Text"]; time2 = SessionTime[]; Print["Sitemap created. Elapsed time: ", time2 - time1, " second"]; ); maintainSitemapSubmit := ( (* See http://en.wikipedia.org/wiki/Sitemaps *) searchurls = {"http://www.google.com/webmasters/tools/ping?sitemap=", "http://search.yahooapis.com/SiteExplorerService/V1/updateNotification?appid=SitemapWriter&url=", "http://search.yahooapis.com/SiteExplorerService/V1/ping?sitemap=", "http://submissions.ask.com/ping?sitemap=", "http://webmaster.live.com/ping.aspx?siteMap=", "http://www.bing.com/webmaster/ping.aspx?siteMap="}; sitemaplocat = "http%3A%2F%2F" <> htmldomain <> "%2Fsitemap.xml"; Print["Sumbitting sitemap to search engines ..."]; Print[TableForm[{#, Short[Import[# <> sitemaplocat]]} & /@ searchurls]]; (* searchurls = {"http://www.google.com/webmasters/tools/ping?sitemap="}; sitemaplocat = "http%3A%2F%2Fwww.asergeev.com%2Fsitemapg.xml"; Print["Sumbitting sitemap-geo to Google ..."]; Print[TableForm[{#, Short[Import[# <> sitemaplocat]]} & /@ searchurls]]; *) );