3 51 1ea13c4f-c6ed-478b-afdc-d6a20117a8a7 http://ex-fs.net/ 234DF17B-418C-4FDC-9DFE-CD0C586D2E76 4 Ex-fs.net (wh) 515 1 700 0 701 -1 702 -1 517 578-720,482-576,722-1080,402-480,322-400,202-320,0-200 518 0 512 0 532 1 553 1 522 0 570 2 245 1ea13c4f-c6ed-478b-afdc-d6a20117a8a7 55 http://ex-fs.net/templates/ex-fs/images/logo.png 93 41631,150353287 550 // VERSION = 2018.01.29 //////////////////////// Создание списка видео /////////////////////////// #define mpiJsonInfo 40032 #define mpiKPID 40033 #define DEBUG 0 // Флаг отладки. 1 - при неудачном получении ссылки сохранять файл на рабочий стол ex-fs.log. 0 - не сохранять /////////////////////////////////////////////////////////////////////////////// // Г Л О Б А Л Ь Н Ы Е П Е Р Е М Е Н Н Ы Е // THmsScriptMediaItem Podcast = GetRoot(); // Главная папка подкаста string gsUrlBase = "http://ex-fs.net"; // База для относительных ссылок int gnTotalItems = 0; // Счётчик созданных элементов TDateTime gStart = Now; // Время начала запуска скрипта string gsTime = "02:30:00.000"; // Продолжительность видео string gsTVDBInfo = ""; bool gbUseSerialKPInfo = false; /////////////////////////////////////////////////////////////////////////////// // Ф У Н К Ц И И // ////////////////////////////////////////////////////////////////////////////// // Установка переменной Podcast: поиск родительской папки, содержащий скрипт THmsScriptMediaItem GetRoot() { Podcast = PodcastItem; while ((Trim(Podcast[550])=='') && (Podcast.ItemParent!=nil)) Podcast=Podcast.ItemParent; return Podcast; } /////////////////////////////////////////////////////////////////////////////// // Получение информации с Kinopoisk о сериале void LoadKPSerialInfo() { string sID, sData, sHtml, sName, sVal, sHeaders, sYear; int nEpisode, nSeason, n; TRegExpr RE; if (gsTVDBInfo!='') return; sID = Trim(PodcastItem[100500]); // Получаем запомненный kinopoisk ID if (sID=='') HmsRegExMatch('/images/(film|film_big)/(\\d+)', mpThumbnail, sID, 2); // Или пытаемся его получить из картинки if ((sID!='') && (sID!='0')) { // Проверяем, была ли уже загружена информация для такого количества серий if ((PodcastItem[100508]!='') && (PodcastItem[100508]==PodcastItem[100509])) { gsTVDBInfo = PodcastItem[100507]; return; } sHeaders = 'Referer: https://kinopoisk.ru/\r\n'+ 'Accept-Encoding: gzip, deflate\r\n'+ 'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0\r\n'; sHtml = HmsDownloadURL("https://www.kinopoisk.ru/film/"+sID+"/episodes/", sHeaders, true); if (HmsRegExMatch2('<td[^>]+class="news">([^<]+),\\s+(\\d{4})', sHtml, sName, sYear)) { // Если получили оригинальное название сериала - пробуем загрузить инфу с картинками sName = ReplaceStr(sName, ' ', '_'); gsTVDBInfo = HmsUtf8Decode(HmsDownloadURL('http://wonky.lostcut.net/tvdb.php?n='+sName+'&y='+sYear, sHeaders, true)); } if (gsTVDBInfo=='') { RE = TRegExpr.Create('(<h[^>]+moviename-big.*?)</h', PCRE_SINGLELINE); nSeason = 1; nEpisode = 1; if (RE.Search(sHtml)) do { sName = HmsHtmlToText(re.Match()); if (HmsRegExMatch("Сезон\\s*?(\\d+)", sName, sVal)) { nSeason=StrToInt(sVal); nEpisode=1; continue; } gsTVDBInfo += 's'+Str(nSeason)+'e'+Str(nEpisode)+'=;t='+sName+'|'; nEpisode++; } while (RE.SearchAgain()); } if (gsTVDBInfo=='') gsTVDBInfo = '-'; } PodcastItem[100507] = gsTVDBInfo; // Запоминаем инфу PodcastItem[100509] = PodcastItem[100508]; // для такого количества серий } /////////////////////////////////////////////////////////////////////////////// // Получение реального названия и картинки для серии сериала из gsTVDBInfo void GetSerialInfo(THmsScriptMediaItem Item, int nSeason, int nEpisode) { string sName, sImg; if (!gbUseSerialKPInfo ) return; if (gsTVDBInfo=='') LoadKPSerialInfo(); if (HmsRegExMatch2('s'+Str(nSeason)+'e'+Str(nEpisode)+'=(.*?);t=(.*?)\\|', gsTVDBInfo, sImg, sName)) { if (sImg !="") Item[mpiThumbnail] = sImg; if (sName!="") Item[mpiTitle ] = Format("%.2d %s", [nEpisode, sName]); Item[mpiSeriesEpisodeNo ] = nEpisode; Item[mpiSeriesSeasonNo ] = nSeason; Item[mpiSeriesEpisodeTitle] = sName; Item[mpiSeriesTitle ] = PodcastItem[mpiSeriesTitle]; } } /////////////////////////////////////////////////////////////////////////////// // Формирование ссылки для воспроизведения через HDSDump.exe void HDSLink(string sLink, string sQual = '') { string sData, sExePath, sVal; sExePath = ProgramPath+'\\Transcoders\\hdsdump.exe'; MediaResourceLink = Format('cmd://"%s" --manifest "%s" --outfile "<OUTPUT FILE>"', [sExePath, sLink]); if (sQual != '') MediaResourceLink += ' --quality ' + sQual; if (mpTimeStart != '') MediaResourceLink += ' --skip ' + mpTimeStart; PodcastItem[mpiTimeSeekDisabled] = true; // Получение длительности видео, если она не установлена if ((Trim(PodcastItem[mpiTimeLength])=='') || (RightCopy(PodcastItem[mpiTimeLength], 6)=='00.000')) { sData = HmsDownloadUrl(sLink, 'Referer: '+sLink, true); if (HmsRegExMatch('<duration>(\\d+)', sData, sVal)) PodcastItem.Properties[mpiTimeLength] = StrToInt(sVal); } } /////////////////////////////////////////////////////////////////////////////// // Получение ссылки с moonwalk.cc void GetLink_Moonwalk(string sLink) { string sHtml, sData, sJsData, sPost, sVer, sQual, sVal, sServ, sVar, sUrlBase; int i; float f; TRegExpr RE; bool bHdsDump, bQualLog; TJsonObject JSON, OPTIONS, POSTDATA; string sHeaders = sLink+'\r\n'+ 'Accept-Encoding: identity\r\n'+ 'User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.84 Safari/537.36\r\n'; // Проверка установленных дополнительных параметров HmsRegExMatch('--quality=(\\w+)', mpPodcastParameters, sQual); bHdsDump = Pos('--hdsdump' , mpPodcastParameters) > 0; bQualLog = Pos('--qualitylog' , mpPodcastParameters) > 0; // Замена домена moonwalk.co и moonwalk.pw на moonwalk.cc HmsRegExReplace('(.*?moonwalk.)(co|pw)(.*)', sLink, '$1cc$3', sLink); sHtml = HmsDownloadURL(sLink, 'Referer: '+sHeaders); if (HmsRegExMatch('<iframe[^>]+src="(http.*?)"', sHtml, sLink)) { // Если внутри есть ссылка на iframe - загружаем его HmsRegExReplace('(.*?moonwalk.)(co|pw)(.*)', sLink, '$1cc$3', sLink); sHtml = HmsDownloadURL(sLink, 'Referer: '+sHeaders); } HmsRegExMatch2('(.*?//([^/]+))', sLink, sUrlBase, sServ); // Получаем UrlBase и домен sHeaders += 'Origin: '+sUrlBase+'\r\nX-Requested-With: XMLHttpRequest\r\n'; JSON = TJsonObject.Create(); OPTIONS = TJsonObject.Create(); POSTDATA = TJsonObject.Create(); try { // Ищем значения параметров (this.options) if (!HmsRegExMatch('VideoBalancer\\((.*?)\\);', sHtml, sData)) { HmsLogMessage(2, mpTitle+": Не найдены данные VideoBalancer в iframe."); return; } OPTIONS.LoadFromString(sData); // Если есть субтитры и их ещё локально не сохраняли - загружаем if ((OPTIONS.S["subtitles\\master_vtt"]!="") && (!FileExists(PodcastItem[mpiSubtitleLanguage]))) { sData = HmsUtf8Decode(HmsDownloadURL(OPTIONS.S["subtitles\\master_vtt"], "Referer: "+sHeaders)); RE = TRegExpr.Create('(\\d{2}:\\d{2}:[\\d:,.\\s->]+.*?)(?=\n\\d{2}:d{2}:|\n\\d+\n|$)', PCRE_SINGLELINE); i = 1; sVal = ""; // Форматируем if (RE.Search(sData)) do { sVal += Format("%d\r\n%s\r\n\r\n", [i, RE.Match]); i++; } while (RE.SearchAgain); sLink = HmsSubtitlesDirectory+'\\'+PodcastItem.ItemID+'.srt'; HmsStringToFile(sVal, sLink); // Сохраняем субтитры локально PodcastItem[mpiSubtitleLanguage] = sLink; // Указываем новое расположение } // Получение ссылки на js-скрипт, где есть список параметров POST запроса if (!HmsRegExMatch('src="([^"]+/video-[^"]+.js)', sHtml, sVal)) { HmsLogMessage(2, mpTitle+": Не найдена ссылка на js-скрипт в iframe."); return; } sJsData = HmsDownloadURL(HmsExpandLink(sVal, sUrlBase), 'Referer: '+sLink); // Устанавливаем дополнительные заголовки и их значения if (HmsRegExMatch('headers:({.*?})', sJsData, sVal)) { JSON.LoadFromString(sVal); for (i=0; i < JSON.Count; i++) { sVal = JSON.Values[i].AsString; if (HmsRegExMatch('this.options.(\\w+)', sVal, sVar)) sVal = OPTIONS.S[sVar]; sHeaders += JSON.Names[i] + ": " + sVal + "\r\n"; } } // Получаем параметры POST запроса if (!HmsRegExMatch('var\\s+\\w+=(\\{mw_key.*?\\})', sJsData, sData)) { HmsLogMessage(2, mpTitle+": Не найдены параметры для POST запроса."); return; } POSTDATA.LoadFromString(sData); // Формируем данные для POST sPost = ""; for (i=0; i < POSTDATA.Count; i++) { sVal = POSTDATA.Values[i].AsString; if (HmsRegExMatch2('(this.options.(\\w+))', sVal, sVer, sVar)) sVal = ReplaceStr(sVal, sVer, OPTIONS.S[sVar]); if (HmsRegExMatch('\\w+\\.(\\w+)', sVal, sVar)) HmsRegExMatch('window\\.'+sVar+'\\s*=\\s*[\'"](.*?)[\'"]', sHtml, sVal); sPost += POSTDATA.Names[i] + "=" + sVal + "&"; } // Get global variable if (HmsRegExMatch2("window\\['(\\w+)'\\]\\s*=\\s*'(\\w+)'", sHtml, sVar, sVal)) if (HmsRegExMatch("\\w+\\.(\\w+)\\s*=\\s*\\w+\\[[\"']"+sVar, sJsData, sVar)) sPost += sVar + "=" + sVal; sLink = "/manifests/video/"+OPTIONS.S["video_token"]+"/all"; sData = HmsSendRequest(sServ, sLink, 'POST', 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, sPost, 80, true); sData = ReplaceStr(HmsJsonDecode(sData), "\\r\\n", ""); } finally { JSON.Free; OPTIONS.Free; POSTDATA.Free; } if (bHdsDump && HmsRegExMatch('"manifest_f4m"\\s*?:\\s*?"(.*?)"', sData, sLink)) { HDSLink(sLink, sQual); } else if (HmsRegExMatch('"manifest_m3u8"\\s*?:\\s*?"(.*?)"', sData, sLink)) { MediaResourceLink = ' ' + sLink; // Получение длительности видео, если она не установлена // ------------------------------------------------------------------------ sData = HmsDownloadUrl(sLink, 'Referer: '+sHeaders, true); sVal = Trim(PodcastItem.ItemOrigin[mpiTimeLength]); if ((sVal=='') || (RightCopy(sVal, 6)=='00.000')) { if (HmsRegExMatch('(http.*?)[\r\n$]', sData, sLink)) { sHtml = HmsDownloadUrl(sLink, 'Referer: '+sHeaders, true); RE = TRegExpr.Create('#EXTINF:(\\d+.\\d+)', PCRE_SINGLELINE); f=0; if (RE.Search(sHtml)) do f += StrToFloatDef(RE.Match(1), 0); while (RE.SearchAgain()); RE.Free; if (f > 0) PodcastItem.ItemOrigin[mpiTimeLength] = HmsTimeFormat(Round(f))+'.000'; } } // ------------------------------------------------------------------------ // Если установлен ключ --quality или в настройках подкаста выставлен приоритет выбора качества // ------------------------------------------------------------------------ string sSelectedQual = '', sMsg, sHeight; int iMinPriority = 99, iPriority; if ((sQual!='') || (mpPodcastMediaFormats!='')) { TStringList QLIST = TStringList.Create(); // Собираем список ссылок разного качества RE = TRegExpr.Create('#EXT-X-STREAM-INF:RESOLUTION=\\d+x(\\d+).*?[\r\n](http.+)$', PCRE_MULTILINE); if (RE.Search(sData)) do { sHeight = Format('%.5d', [StrToInt(RE.Match(1))]); sLink = RE.Match(2); QLIST.Values[sHeight] = sLink; iPriority = HmsMediaFormatPriority(StrToInt(sHeight), mpPodcastMediaFormats); if ((iPriority >= 0) && (iPriority < iMinPriority)) { iMinPriority = iPriority; sSelectedQual = sHeight; } } while (RE.SearchAgain()); RE.Free; QLIST.Sort(); if (QLIST.Count > 0) { if (sQual=='low' ) sSelectedQual = QLIST.Names[0]; else if (sQual=='medium') sSelectedQual = QLIST.Names[Round((QLIST.Count-1) / 2)]; else if (sQual=='high' ) sSelectedQual = QLIST.Names[QLIST.Count - 1]; else if (HmsRegExMatch('(\\d+)', sQual, sQual)) { extended minDiff = 999999; // search nearest quality for (i=0; i < QLIST.Count; i++) { extended diff = StrToInt(QLIST.Names[i]) - StrToInt(sQual); if (Abs(diff) < minDiff) { minDiff = Abs(diff); sSelectedQual = QLIST.Names[i]; } } } } if (sSelectedQual != '') MediaResourceLink = ' ' + QLIST.Values[sSelectedQual]; if (bQualLog) { sMsg = 'Доступное качество: '; for (i = 0; i < QLIST.Count; i++) { if (i>0) sMsg += ', '; sMsg += IntToStr(StrToInt(QLIST.Names[i])); // Обрезаем лидирующие нули } if (sSelectedQual != '') sSelectedQual = IntToStr(StrToInt(sSelectedQual)); else sSelectedQual = 'Auto'; sMsg += '. Выбрано: ' + sSelectedQual; HmsLogMessage(1, mpTitle+'. '+sMsg); } QLIST.Free; } // ------------------------------------------------------------------------ } else if (HmsRegExMatch('"manifest_mp4"\\s*?:\\s*?"(.*?)"', sData, sLink)) { sData = HmsDownloadURL(sLink, 'Referer: '+sHeaders); // Поддержка установленных приоритетов качества в настройках подкаста JSON = TJsonObject.Create(); int height, selHeight=0, minPriority=99, priority, maxHeight; if (sQual=='medium') sQual='480'; if (sQual=='low') sQual='360'; maxHeight = StrToIntDef(sQual, 4320); try { JSON.LoadFromString(sData); for (i=0; i<JSON.Count; i++) { sVer = JSON.Names[i]; sLink = JSON.S[sVer]; height = StrToIntDef(sVer, 0); if ((sQual!='') && (sQual==sVer)) { MediaResourceLink = sLink; selHeight = height; break; } if (mpPodcastMediaFormats!='') { priority = HmsMediaFormatPriority(height, mpPodcastMediaFormats); if ((priority>=0) && (priority<minPriority)) { MediaResourceLink = sLink; minPriority = priority; } } else if ((height > selHeight) && (height <= maxHeight)) { MediaResourceLink = sLink; selHeight = height; } } } finally { JSON.Free(); } } else { HmsLogMessage(2, mpTitle+': Ошибка получения данных от new_session.'); if (DEBUG==1) { if (ServiceMode) sVal = SpecialFolderPath(0x37); // Общая папака "Видео" else sVal = SpecialFolderPath(0); // Рабочий стол sVal = IncludeTrailingBackslash(sVal)+'Moonwalk.log'; HmsStringToFile(sHeaders+'\r\nsHtml:\r\n'+sHtml+'\r\nsPost:\r\n'+sPost+'\r\nsData:\r\n'+sData, sVal); HmsLogMessage(1, mpTitle+': Создан лог файл '+sVal); } } } // Конец функции поулчения ссылки с moonwalk.cc /////////////////////////////////////////////////////////////////////////////// // Создание информационной ссылки void CreateInfoItem(string sName, TStrings INFO) { THmsScriptMediaItem Item; string sVal = Trim(INFO.Values[sName]); if ((sVal=="") || (sVal=="-")) return; Item = HmsCreateMediaItem('Info'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID); Item[mpiTitle ] = sName+': '+sVal; Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg'; Item[mpiTimeLength] = 20; Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0)); gnTotalItems++; // ---- Формирование и сохранение текста для отображения видео информации --- string sInfo=''; for (int i=0; i<INFO.Count; i++) { sName = INFO.Names[i]; if (HmsRegExMatch('(Описание|Жанр|Название|Постер|Трейлер)', sName, '')) continue; sInfo += "<c:#FFC3BD>"+sName+": </c>"+INFO.Values[sName]+" "; if (!HmsRegExMatch('(Год|IMDb)', sName, '')) sInfo += "|"; } sInfo = Copy(sInfo, 1, Length(sInfo)-1); TStrings INFOTEXT = TStringList.Create(); INFOTEXT.Values['Poster'] = mpThumbnail; INFOTEXT.Values['Title' ] = INFO.Values['Название']; INFOTEXT.Values['Info' ] = Trim(sInfo); INFOTEXT.Values['Categ' ] = INFO.Values['Жанр' ]; INFOTEXT.Values['Descr' ] = INFO.Values['Описание']; Item[1001001] = INFOTEXT.Text; INFOTEXT.Free(); // --------------------------------- } /////////////////////////////////////////////////////////////////////////////// // Создание ссылки-ошибки void CreateErrorItem(string sMsg) { THmsScriptMediaItem Item = HmsCreateMediaItem('Err'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID); Item[mpiTitle ] = sMsg; Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/symbol-error.png'; } /////////////////////////////////////////////////////////////////////////////// // Создание папки или подкаста THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') { THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой Item[mpiTitle ] = sName; // Присваиваем наименование Item[mpiThumbnail ] = sImg; // Картинка Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания Item[100500 ] = PodcastItem[100500]; gnTotalItems++; // Увеличиваем счетчик созданных элементов return Item; // Возвращаем созданный объект } /////////////////////////////////////////////////////////////////////////////// // Создание ссылки на видео THmsScriptMediaItem CreateMediaItem(THmsScriptMediaItem Folder, string sTitle, string sLink, string sImg, string sTime='') { THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID); Item[mpiTitle ] = sTitle; Item[mpiThumbnail ] = sImg; Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0)); Item[mpiTimeLength] = sTime; gnTotalItems++; return Item; } /////////////////////////////////////////////////////////////////////////////// // ----------------- Формирование видео с картинкой с информацией о фильме ---- bool VideoPreview() { string sVal, sFileImage, sPoster, sTitle, sDescr, sCateg, sInfo, sLink, sData; int xMargin=7, yMargin=10, nSeconds=10, n; string gsCacheDir = IncludeTrailingBackslash(HmsTempDirectory)+'Moonwalk/'; string gsPreviewPrefix = "Moonwalk"; float nH=cfgTranscodingScreenHeight, nW=cfgTranscodingScreenWidth; // Проверяем и, если указаны в параметрах подкаста, выставляем значения смещения от краёв if (HmsRegExMatch('--xmargin=(\\d+)', mpPodcastParameters, sVal)) xMargin=StrToInt(sVal); if (HmsRegExMatch('--ymargin=(\\d+)', mpPodcastParameters, sVal)) yMargin=StrToInt(sVal); if (Trim(PodcastItem[1001001])=='') return; // Если нет инфы - выходим быстро! TStrings INFO = TStringList.Create(); // Создаём объект TStrings INFO.Text = PodcastItem[1001001]; // И загружаем туда информацию sPoster = INFO.Values['Poster']; // Постер sTitle = INFO.Values['Title' ]; // Самая верхняя надпись - Название sCateg = INFO.Values['Genre' ]; // Жанр sInfo = INFO.Values['Info' ]; // Блок информации sDescr = INFO.Values['Descr' ]; if (sTitle=='') sTitle = ' '; ForceDirectories(gsCacheDir); sFileImage = ExtractShortPathName(gsCacheDir)+'videopreview_'; // Файл-заготовка для сохранения картинки sDescr = Copy(sDescr, 1, 3000); // Если блок описания получился слишком большой - обрезаем INFO.Text = ""; // Очищаем объект TStrings для формирования параметров запроса INFO.Values['prfx' ] = gsPreviewPrefix; // Префикс кеша сформированных картинок на сервере INFO.Values['title' ] = sTitle; // Блок - Название INFO.Values['info' ] = sInfo; // Блок - Информация INFO.Values['categ' ] = sCateg; // Блок - Жанр/категории INFO.Values['descr' ] = sDescr; // Блок - Описание фильма INFO.Values['mlinfo'] = '20'; // Максимальное число срок блока Info INFO.Values['w' ] = IntToStr(Round(nW)); // Ширина кадра INFO.Values['h' ] = IntToStr(Round(nH)); // Высота кадра INFO.Values['xm'] = IntToStr(xMargin); // Отступ от краёв слева/справа INFO.Values['ym'] = IntToStr(yMargin); // Отступ от краёв сверху/снизу INFO.Values['bg'] = 'http://www.pageresource.com/wallpapers/wallpaper/noir-blue-dark_3512158.jpg'; // Катринка фона (кэшируется на сервере) INFO.Values['fx'] = '3'; // Номер эффекта для фона: 0-нет, 1-Blur, 2-more Blur, 3-motion Blur, 4-radial Blur INFO.Values['fztitle'] = IntToStr(Round(nH/14)); // Размер шрифта блока названия (тут относительно высоты кадра) INFO.Values['fzinfo' ] = IntToStr(Round(nH/22)); // Размер шрифта блока информации INFO.Values['fzcateg'] = IntToStr(Round(nH/26)); // Размер шрифта блока жанра/категории INFO.Values['fzdescr'] = IntToStr(Round(nH/18)); // Размер шрифта блока описания // Если текста описания больше чем нужно - немного уменьшаем шрифт блока if (Length(sDescr)>890) INFO.Values['fzdescr'] = IntToStr(Round(nH/20)); // Если есть постер, задаём его параметры отображения (где, каким размером) if (sPoster!='') { INFO.Values['wpic' ] = IntToStr(Round(nW/4)); // Ширина постера (1/4 ширины кадра) INFO.Values['xpic' ] = '10'; // x-координата постера INFO.Values['ypic' ] = '10'; // y-координата постера if (mpFilePath=='InfoUpdate') { INFO.Values['wpic' ] = IntToStr(Round(nW/6)); // Ширина постера (1/6 ширины кадра) INFO.Values['xpic' ] = IntToStr(Round(nW/2 - nW/12)); // центрируем } INFO.Values['urlpic'] = sPoster; // Адрес изображения постера } sData = ''; // Из установленных параметров формируем строку POST запроса for (n=0; n<INFO.Count; n++) sData += '&'+Trim(INFO.Names[n])+'='+HmsHttpEncode(INFO.Values[INFO.Names[n]]); INFO.Free(); // Освобождаем объект из памяти, теперь он нам не нужен // Делаем POST запрос не сервер формирования картинки с информацией sLink = HmsSendRequestEx('wonky.lostcut.net', '/videopreview.php?p='+gsPreviewPrefix, 'POST', 'application/x-www-form-urlencoded', '', sData, 80, 0, '', true); // В ответе должна быть ссылка на сформированную картинку if (LeftCopy(sLink, 4)!='http') {HmsLogMessage(2, 'Ошибка получения файла информации videopreview.'); return;} // Сохраняем сформированную картинку с информацией в файл на диске HmsDownloadURLToFile(sLink, sFileImage); // Копируем и нумеруем файл картики столько раз, сколько секунд мы будем её показывать for (n=1; n<=nSeconds; n++) CopyFile(sFileImage, sFileImage+Format('%.3d.jpg', [n]), false); // Для некоторых телевизоров (Samsung) видео без звука отказывается проигрывать, поэтому скачиваем звук тишины char sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3'; try { if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3); sFileMP3 = '-i "'+sFileMP3+'"'; } except { sFileMP3=''; } // Формируем из файлов пронумерованных картинок и звукового команду для формирования видео MediaResourceLink = Format('%s -f image2 -r 1 -i "%s" -c:v libx264 -pix_fmt yuv420p ', [sFileMP3, sFileImage+'%03d.jpg']); } /////////////////////////////////////////////////////////////////////////////// // Получение названий и картинок серий сериала void GetSerialInfoFromImdb(string sName, TStrings INFO) { string sData, sLink, sID, sKey, sImg, sVal; int nSeason, nEpisode, nYear; TJsonObject JSON, MOVIE, SEASON, EPISODE; TJsonArray SEASONS, EPISODES; sLink = 'http://www.myapifilms.com/imdb/idIMDB?format=json&language=ru&token=c5c8d3f3-0524-4c66-90df-e2e727b2e628&&seasons=1&title='+HmsHttpEncode(sName); sData = HmsRemoveLineBreaks(HmsDownloadURL(sLink, '', true)); JSON = TJsonObject.Create(); try { JSON.LoadFromString(sData); nYear = StrToIntDef(LeftCopy(JSON.O['0'].S['year'], 4), 0); MOVIE = JSON.O['data\\movies\\0']; if (MOVIE == nil) return; SEASONS = MOVIE['seasons'].AsArray(); if (SEASONS == nil) return; for (nSeason=0; nSeason<SEASONS.Length; nSeason++) { EPISODES = SEASONS[nSeason].A['episodes']; for (nEpisode=0; nEpisode<EPISODES.Length; nEpisode++) { EPISODE = EPISODES[nEpisode]; sImg = EPISODE.S['urlPoster']; if (sImg=='') continue; sKey = IntToStr(nSeason+1)+'x'+EPISODE.S['episode']; INFO.Values[sKey] = sImg; } } } finally { JSON.Free; } } /////////////////////////////////////////////////////////////////////////////// // Создание списка серий сериала с Moonwalk.cc void CreateMoonwallkLinks(string sLink) { String sHtml, sData, sServ, sRef, sSerie, sVal, sHeaders, sID, sSub, sFile; int n, nEpisode, nSeason; THmsScriptMediaItem Item, Folder = PodcastItem; TJsonObject JSON; TJsonArray JARRAY, EPISODE; bool bOneSeason; sHeaders = sLink+'/\r\n'+ 'Accept-Encoding: gzip, deflate\r\n'+ 'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0\r\n'+ 'X-Requested-With: XMLHttpRequest\r\n'; gbUseSerialKPInfo = Pos("--usekpinfo", mpPodcastParameters) > 0; sHtml = HmsDownloadURL(sLink, 'Referer: '+sHeaders, true); if (HmsRegExMatch('<body>\\s*?</body>', sHtml, '')) { HmsRegExReplace('(.*?moonwalk.)(co|pw)(.*)', sLink, '$1cc$3', sLink); sHtml = HmsDownloadURL(sLink, 'Referer: '+sHeaders, true); } if (HmsRegExMatch('<iframe[^>]+src="(.*?)"', sHtml, sLink)) { if (LeftCopy(sLink, 2)=="//") sLink = "http:" + Trim(sLink); sHtml = HmsDownloadURL(sLink, 'Referer: '+sHeaders, true); } sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml)); if (Trim(mpSeriesTitle)=='') { PodcastItem[mpiSeriesTitle] = mpTitle; HmsRegExMatch('^(.*?)[\\(\\[]', mpTitle, PodcastItem[mpiSeriesTitle]); } if (!HmsRegExMatch('VideoBalancer\\((.*?)\\);', sHtml, sData)) { if (HmsRegExMatch('>([^<]+Error.*?)<', sHtml, sVal)) CreateErrorItem(sVal); HmsLogMessage(2, mpTitle+': Не найдены данные VideoBalancer в iframe.'); return; } JSON = TJsonObject.Create(); try { JSON.LoadFromString(sData); HmsRegExMatch("'(.*?)'", JSON.S['ref'], sRef); nSeason = 0; if (HmsRegExMatch2('^(.*?)\\?season=(\\d+)', sLink, sLink, sVal)) nSeason = StrToInt(sVal); // Подсчитываем количество серий и запоминаем в укромном месте n = JSON['episodes'].Count; PodcastItem[100508] = Str(n); JARRAY = JSON.A['seasons']; // Если в ссылке указан номер сезона - показываем только серии этого сезона // Если сезон всего один и номер его = 1, то сразу выкатываем серии if (JARRAY != nil) bOneSeason = (JARRAY.Length == 1) && (JARRAY.I[0] == 1); if ((nSeason > 0) || bOneSeason) { gsTime = '00:45:00.000'; JARRAY = JSON.A['episodes']; for (n=0; n < JARRAY.Length; n++) { EPISODE = JARRAY[n].AsArray; nEpisode = JARRAY.I[n]; sSerie = Format("%.2d серия", [nEpisode]); // Форматируем номер в два знака Item = CreateMediaItem(Folder, sSerie, sLink+'?season='+Str(nSeason)+'&episode='+Str(nEpisode)+'&ref='+sRef, mpThumbnail, gsTime); if (JSON.S["subtitles\\master_vtt"]!="") Item[mpiSubtitleLanguage] = HmsSubtitlesDirectory+'\\'+PodcastItem.ItemID+'.srt'; GetSerialInfo(Item, nSeason, nEpisode); } } else if (JARRAY != nil) { // Создаём список сезонов как папки for (n=0; n < JARRAY.Length; n++) { nSeason = JARRAY.I[n]; sSerie = Format("%d сезон", [nSeason]); // Форматируем номер в два знака Item = CreateFolder(Folder, sSerie, sLink+'?season='+Str(nSeason)+'&ref='+sRef, mpThumbnail); Item[mpiSeriesTitle] = PodcastItem[mpiSeriesTitle]; } } else { // Просто ссылка на фильм Item = CreateMediaItem(Folder, mpTitle, sLink, mpThumbnail, gsTime); } } finally { JSON.Free; } } /////////////////////////////////////////////////////////////////////////////// void SetInfo(string sHtml, string sPattern, string sName, TStrings INFO) { string sVal; if (HmsRegExMatch(sPattern, sHtml, sVal)) { sVal = ReplaceStr(HmsHtmlToText(sVal), '|', ''); if ((sVal!='') && (sVal!='-')) INFO.Values[sName] = sVal; } } /////////////////////////////////////////////////////////////////////////////// // Создание информационных ссылок (Жанр, Страна, Рейтинг и проч.) void CreateInfoItems() { string sHtml, sVal, sVal2, sTime, sKPID, sImg; TStrings INFO; if (!HmsRegExMatch('kinopoisk.ru/images/film/(\\d+)', mpThumbnail, sKPID)) return; sHtml = HmsDownloadURL('https://www.kinopoisk.ru/film/'+sKPID+'/', 'Referer: http://ivi.ru', true); sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml)); INFO = TStringList.Create; SetInfo(sHtml, '(<h1.*?</h1>)' , 'Название', INFO); SetInfo(sHtml, '>год</td>(.*?)</tr>' , 'Год' , INFO); SetInfo(sHtml, '>страна</td>(.*?)</tr>' , 'Страна' , INFO); SetInfo(sHtml, '>слоган</td>(.*?)</tr>' , 'Слоган' , INFO); SetInfo(sHtml, '>режиссер</td>(.*?)</tr>', 'Режиссер', INFO); SetInfo(sHtml, '>сценарий</td>(.*?)</tr>', 'Сценарий', INFO); SetInfo(sHtml, '>продюсер</td>(.*?)</tr>', 'Продюсер', INFO); SetInfo(sHtml, '>оператор</td>(.*?)</tr>', 'Оператор', INFO); SetInfo(sHtml, '>бюджет</td>(.*?)</tr>' , 'Бюджет' , INFO); SetInfo(sHtml, '>возраст</td>(.*?)</tr>' , 'Возраст' , INFO); SetInfo(sHtml, '>жанр</td>(.*?)</(span|tr)>', 'Жанр' , INFO); SetInfo(sHtml, '>IMDb:(.*?)</' , 'IMDb' , INFO); SetInfo(sHtml, '>сборы в США</td>(.*?)</(a|tr)>' , 'Сборы в США' , INFO); SetInfo(sHtml, '>сборы в мире</td>(.*?)</(a|tr)>' , 'Сборы в мире' , INFO); SetInfo(sHtml, '>сборы в России</td>(.*?)</(a|tr)>', 'Сборы в России', INFO); SetInfo(sHtml, '>премьера (мир)</td>(.*?)</(a|tr)>', 'Премьера (мир)', INFO); SetInfo(sHtml, '>премьера (РФ)</td>(.*?)</(a|tr)>' , 'Премьера (РФ)' , INFO); if (HmsRegExMatch('"rating_ball">(.*?)</(span|tr)>', sHtml, sVal)) { if (HmsRegExMatch('"ratingCount">(.*?)</(span|tr)>', sHtml, sVal2)) sVal += ' ('+HmsHtmlToText(sVal2)+')'; INFO.Values['Рейтинг КП'] = HmsHtmlToText(sVal); } if (HmsRegExMatch('>время</td>(.*?)</tr>', sHtml, sVal)) { if (HmsRegExMatch('(\\d+)\\s*?мин.', sVal, sVal)) { INFO.Values['Продолжительность'] = HmsTimeFormat(StrToInt(sVal) * 60); } } SetInfo(sHtml, '(<div[^>]+"description".*?</div>)', 'Описание', INFO); if (HmsRegExMatch('video_src[^>]+content="[^>"]+file=([^"&]+)', sHtml, sVal)) { HmsRegExMatch('image_src[^>]+href="(.*?)"', sHtml, sImg); if (HmsRegExMatch('video:duration[^>]+content="(\\d+)"', sHtml, sTime)) sTime = HmsTimeFormat(StrToInt(sTime))+".000"; else sTime = "00:03:50.000"; CreateMediaItem(PodcastItem, "Трейлер", HmsHttpDecode(sVal), sImg, sTime); } // Создаём выборочно информационные ссылки CreateInfoItem('Страна' , INFO); CreateInfoItem('Жанр' , INFO); CreateInfoItem('Режиссер' , INFO); CreateInfoItem('IMDb' , INFO); CreateInfoItem('Рейтинг КП', INFO); INFO.Free; } /////////////////////////////////////////////////////////////////////////////// // Создание ссылок на трейлеры void CreateTrailersLinks(string sLink) { string sHtml, sName, sTitle, sVal, sImg; TRegExpr RE1, RE2; THmsScriptMediaItem Item; sHtml = HmsDownloadURL(sLink, 'Referer: '+sLink, true); RE1 = TRegExpr.Create('<!-- ролик -->(.*?)<!-- /ролик -->', PCRE_SINGLELINE); RE2 = TRegExpr.Create('<a[^>]+href="/getlink.php[^>]+link=([^>]+\\.(mp4|mov|flv)).*?</a>', PCRE_SINGLELINE); if (RE1.Search(sHtml)) do { if (!HmsRegExMatch('(<a[^>]+href="/film/\\d+/video/\\d+/".*?</a>)', RE1.Match, sTitle)) continue; sTitle = HmsHtmlToText(sTitle); if (HmsRegExMatch('["\']previewFile["\']:\\s*?["\'](.*?)["\']', RE1.Match, sVal)) { sImg = 'http://kp.cdn.yandex.net/'+sVal; } if (RE2.Search(RE1.Match)) do { sLink = RE2.Match(1); sName = sTitle+' '+HmsHtmlToText(RE2.Match(0)); Item = PodcastItem.FindItemByProperty(mpiTitle, sName); if ((Item != null) && (Item != nil)) Item[mpiFilePath] = sLink; else CreateMediaItem(PodcastItem, sName, sLink, sImg, '00:03:50.000'); } while (RE2.SearchAgain()); } while (RE1.SearchAgain()); RE1.Free; RE2.Free; } /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // /////////////////////////////////////////////////////////////////////////////// { if (PodcastItem.IsFolder) { PodcastItem.DeleteChildItems(); if (HmsRegExMatch('kinopoisk.ru', mpFilePath, '')) { CreateTrailersLinks(mpFilePath); } else { CreateMoonwallkLinks(mpFilePath); if ((Pos('?season', mpFilePath) < 1) && (Pos('--infoitems', mpPodcastParameters) > 0)) { CreateInfoItems(); } } } else { if (LeftCopy(mpFilePath, 4)=='Info') VideoPreview(); else if (HmsRegExMatch('\\.(mp4|mov|flv)$', mpFilePath, '')) MediaResourceLink = mpFilePath; else GetLink_Moonwalk(mpFilePath); } } 551 C++Script 530 int gnMaxPages=10, gnMaxInGroup=100, gnItemsAdded=0; string gsUrlBase="http://ex-fs.net"; TDateTime gTimeStart = Now; bool gbGroupAlph, gbYearInTitle; string gsPatternBlock = '"MiniPost"(.*?)</div>\\s*?</div>', gsPatternTitle = '<div class="MiniPostName">(.*?)</div>', gsPatternLink = 'class="MiniPostName".*?<a[^>]+href="(.*?)"', gsPatternImg = '<img[^>]+src="(.*?)"', gsPatternYear = '<a[^>]+href="/year/(\\d+)', gsPatternPages = '.*/page/(\\d+)/">\\d+'; // ------------------------------------ Получение название группы из имени ---- char GetGroupName(char sName) { char sGroupName = '#'; sName = Uppercase(sName); if (HmsRegExMatch('([A-ZА-Я0-9].*)', sName, sName)) sGroupName = LeftCopy(sName, 1); if (HmsRegExMatch('[0-9]', sGroupName, sGroupName)) sGroupName = '#'; if (HmsRegExMatch('[A-Z]', sGroupName, sGroupName)) sGroupName = 'A..Z'; return sGroupName; } // --------------- Создание ссылок на фильм/сериал/передачу из TStringList ---- void CreateItemsFromList(TStringList LIST, THmsScriptMediaItem ParentFolder) { int i; char sValue, sLink, sTitle, sYear, sGroup, sCurGroup='', sImg; THmsScriptMediaItem GroupFolder = ParentFolder, Item; for (i=0; i<LIST.Count; i++) { sValue = LIST.Strings[i]; sGroup = ExtractWord(1, sValue, '|'); sTitle = ExtractWord(2, sValue, '|'); sLink = ExtractWord(3, sValue, '|'); sYear = ExtractWord(4, sValue, '|'); sImg = ExtractWord(5, sValue, '|'); if (gbYearInTitle) sTitle = Trim(sTitle)+" ("+sYear+")"; if ((sCurGroup != sGroup) && (Trim(sGroup) != "")) { GroupFolder = ParentFolder.AddFolder(sGroup); GroupFolder[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); GroupFolder[mpiFolderSortOrder] = "-mpCreateDate"; } Item = GroupFolder.AddFolder(sLink); Item[mpiTitle ] = sTitle; Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); Item[mpiThumbnail ] = sImg; Item[mpiYear ] = sYear; Item[mpiFolderSortOrder] = "-mpCreateDate"; gnItemsAdded++; } } /////////////////////////////////////////////////////////////////////////////// // Проверка актуальности версии функции GetLink_Moonwalk в скриптах void CheckMoonwalkFunction() { string sData, sFuncOld, sFuncNew; THmsScriptMediaItem PodcastFolder=FolderItem; int nTimePrev, nTimeNow; int mpiMoonwalkUpdateTime = 100602; string sPatternMoonwalkFunction = "(// Получение ссылки с moonwalk.cc.*?// Конец функции поулчения ссылки с moonwalk.cc)"; // Ищем скрипт получения ссылки на поток if ((Trim(PodcastFolder[550])=='') && (PodcastFolder.ItemParent!=nil)) PodcastFolder = PodcastFolder.ItemParent; if (PodcastFolder.ItemParent==nil) return; // Если не нашли - выходим // Если проверяемая функция присутствует в скрипте - получаем текст функции в переменную sFuncOld if (HmsRegExMatch(sPatternMoonwalkFunction, PodcastFolder[550], sFuncOld, 1, PCRE_SINGLELINE)) { nTimePrev = StrToIntDef(PodcastFolder[mpiMoonwalkUpdateTime], 0); nTimeNow = DateTimeToTimeStamp1970(Now, false); if (nTimeNow-nTimePrev < 1800) return; // Если после последней проверки прошло меньше получаса - выходим PodcastFolder[mpiMoonwalkUpdateTime] = Str(nTimeNow); // Запоминаем время проверки sData = HmsUtf8Decode(HmsDownloadURL("https://gist.githubusercontent.com/WendyH/3092dc755ad4a6c412e2fcd17c28d096/raw/GetLink_Moonwalk.cpp?_="+Str(nTimeNow))); if (HmsRegExMatch(sPatternMoonwalkFunction, sData, sFuncNew, 1, PCRE_SINGLELINE)) { if (HmsMD5SumOfString(sFuncOld)==HmsMD5SumOfString(sFuncNew)) return; // Если версия скрипта не отличается - выходим PodcastFolder[550] = ReplaceStr(PodcastFolder[550], sFuncOld, sFuncNew); // Заменяем старую функцию на новую HmsLogMessage(2, PodcastFolder[mpiTitle]+": Обновлена функция получения ссылки с moonwalk.cc!"); } } //Вызов в главной процедуре: if (Pos('--noupdatemoonwalk', mpPodcastParameters)<1) CheckMoonwalkFunction(); } // ---------------------------------------------------------------------------- { char sHtml, sLink, sTitle, sVal, sYear, sImg; TRegExpr re; THmsScriptMediaItem Item, Folder = FolderItem; int i, nPages, nGrp=0; bool bGrouping; char sGrp=""; TStringList LIST = TStringList.Create(); if (Pos('--noupdatemoonwalk', mpPodcastParameters)<1) CheckMoonwalkFunction(); sLink = mpFilePath; gbGroupAlph = (Pos('--group=alph' , mpPodcastParameters) > 0); gbYearInTitle = (Pos('--yearintitle', mpPodcastParameters) > 0); if (HmsRegExMatch('--maxingroup=(\\d+)', mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal); // Если нет ссылки - делаем поиск названия if (LeftCopy(mpFilePath, 4) != "http") { if (Length(mpTitle)<4) mpTitle += " :::"; // Фишка обхода ограничения на минимальную длину в 4 символа (двоеточие при самом поиске не учитывается) sLink = gsUrlBase+'/?do=search&subaction=search&full_search=1&titleonly=3&story='+HmsHttpEncode(HmsUtf8Encode(mpTitle)); sHtml = HmsUtf8Decode(HmsDownloadURL(sLink, gsUrlBase, true)); gsPatternBlock = 'SeaRchresultPostTitle(.*?)SeaRchresultPostOpisanie'; gsPatternTitle = '(<a.*?</a>)'; gsPatternLink = '<a[^>]+href="(.*?)"'; gsPatternYear = '<a[^>]+href="/year/(\\d+)'; } else { sHtml = HmsUtf8Decode(HmsDownloadURL(sLink, gsUrlBase, true)); } FolderItem.DeleteChildItems(); // Дозагрузка страниц if (HmsRegExMatch(gsPatternPages, sHtml, sVal, 1, PCRE_SINGLELINE)) { nPages = StrToInt(sVal); if (HmsRegExMatch('--maxpages=(\\d+)', mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal); if (nPages > gnMaxPages) nPages = gnMaxPages; for (i=2; i <= nPages; i++) { HmsSetProgress(Trunc(i*100/nPages)); HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, nPages])); if (HmsCancelPressed()) break; sHtml+= HmsUtf8Decode(HmsDownloadURL(sLink+'/page/'+IntToStr(i)+'/', gsUrlBase, true)); } HmsHideProgress(); } // Создание ссылок RE = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE); try { // Определяем, если блоков в загруженном более чем gnMaxInGroup, включаем группировку i=0; if (RE.Search(sHtml)) do i++; while (RE.SearchAgain()); bGrouping = (i > gnMaxInGroup); i=0; if (RE.Search(sHtml)) do { sLink=''; sYear=''; sImg=''; HmsRegExMatch(gsPatternTitle, RE.Match, sTitle); HmsRegExMatch(gsPatternImg , RE.Match, sImg ); HmsRegExMatch(gsPatternLink , RE.Match, sLink ); HmsRegExMatch(gsPatternYear , RE.Match, sYear ); sTitle = ReplaceStr(HmsHtmlToText(sTitle), "/", "-"); sLink = HmsExpandLink(sLink, gsUrlBase+'/'); if (LeftCopy(sImg, 1)=='/') sImg = gsUrlBase+Trim(sImg); if (bGrouping && !gbGroupAlph) { sGrp = Format('%.2d', [nGrp]); i++; if (i>=gnMaxInGroup) { nGrp++; i=0; } } else if (gbGroupAlph) { sGrp = GetGroupName(sTitle); } else { sGrp = " "; } LIST.Add(sGrp+'|'+sTitle+'|'+sLink+'|'+sYear+'|'+sImg); } while (RE.SearchAgain()); } finally { RE.Free; } if (gbGroupAlph) LIST.Sort(); CreateItemsFromList(LIST, FolderItem); HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded)); } 531 C++Script 527 --addinfoitems --quality=high 100602 1517517353 51 05f57e639ab4d991e7791ac70cd3bbe4 -SearchFolder 1ea13c4f-c6ed-478b-afdc-d6a20117a8a7 515 2 512 2 532 2 700 2 553 2 42 3 4 0 Поиск 35 41631,1530208333 93 41631,1530410417 200104 ef4cc5d865af1d9b672cc3ea8ec28190 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 0 245 05f57e639ab4d991e7791ac70cd3bbe4 527 --yearintitle 32 ef4cc5d865af1d9b672cc3ea8ec28190 -SearchCommands 05f57e639ab4d991e7791ac70cd3bbe4 515 2 512 2 532 2 700 2 553 2 42 3 4 "Набрать текст" 35 41631,152349537 200 5 500 // Var 21.07.2013 // int mpiFolderType = 200; int mpiDynamicScript = 500; int mpiDynamicSyntaxType = 501; int mpiPreviousItemID = 200104; int mpiDoNothing = 201100; char gsSpace = 'Пробел'; char gsDelLastChar = 'Удалить последний символ'; char gsClearSearch = 'Очистить текст поиска'; char gsClearHystoryIn = 'Очистить историю поиска в папке "%s"'; char gsMsgClearHistory = 'История поиска в папке "%s" очищена'; char gsMsgTextSaved = 'Подкаст "%s" добавлен в "%s"'; char gsMsgNothingSaved = 'Текст поиска не набран! Добавлять нечего.'; char gsMsgSearchText = 'Текст поиска: %s'; char gsAddSearchTo = 'Добавить в папку "%s"'; char gsSuggestQuery = 'http://ex-fs.net/engine/ajax/search.php?query='; char gsSuggestResultCut= ''; char gsSuggestRegExpr = '<span class="searchheading">(.*?)</span>'; char gsSuggestMethod = 'POST'; int gnSuggestNoUTFEnc = 0; char gsSuggestMessage = 'Вариант: '; int gnTotalItems=0; TDateTime gTimeStart = Now; char gsTextSearch, gsMsg=''; THmsScriptMediaItem goRootItem, goCmdItem; // ------------------------------------------ Создание папок команд поиска ---- void CreateSearchCommands() { int i; char sText; THmsScriptMediaItem Item; CreateDynamicItem(FolderItem, '#', '-SearchCreateChars=From:32To:58'); CreateDynamicItem(FolderItem, 'A-Z', '-SearchCreateChars=From:65To:91'); CreateDynamicItem(FolderItem, 'А-Я', '-SearchCreateChars=From:192To:224'); CreateDynamicItem(FolderItem, gsClearSearch, '-SearchCmd=ClearSearchText'); // Создание команды добавления в корневую папку поиска CreateDynamicItem(FolderItem, Format(gsAddSearchTo, [goRootItem[mpiTitle]]), '-SearchCmd=SaveSearchText'); // Создание команд добавления в папки, находящиеся в корневой, если поле "Файл" (mpiFilePath) у них пустое for (i=0; i<goRootItem.ChildCount; i++) { Item = goRootItem.ChildItems[i]; if ((Item.ItemClassID!=51) || (Item[mpiFilePath]!='')) continue; CreateDynamicItem(FolderItem, Format(gsAddSearchTo, [Item[mpiTitle]]), '-SaveSearchTextTo='+Item.ItemID); } // Создание команды очистки истории в корневой папке поиска CreateDynamicItem(FolderItem, Format(gsClearHystoryIn, [goRootItem[mpiTitle]]), '-SearchCmd=ClearSearchHistory'); // Создание команд очистки истории в папках, которые наодятся в корневой for (i=0; i<goRootItem.ChildCount; i++) { Item = goRootItem.ChildItems[i]; if ((Item.ItemClassID!=51) || (Item[mpiFilePath]!='')) continue; CreateDynamicItem(FolderItem, Format(gsClearHystoryIn, [Item[mpiTitle]]), '-ClearSearchHistoryIn='+Item.ItemID); } // Создание ссылки, информирующей о текущем набранном тексте поиска Item = HmsCreateMediaItem('-command=none', goCmdItem.ItemID); Item[mpiTitle] = Format(gsMsgSearchText, [gsTextSearch]); Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg'; } // ---------------------------- Добавление подкаста с именем текста поиска ---- void AddPodcastSearch(THmsScriptMediaItem prntItem) { THmsScriptMediaItem Item; if (Trim(gsTextSearch)=='') {gsMsg = gsMsgNothingSaved; return;} if (LowerCase(gsTextSearch)==gsTextSearch) gsTextSearch = NameCase(gsTextSearch); Item = prntItem.AddFolder(gsTextSearch, false); Item[mpiFilePath ] = Format('search="%s"', [gsTextSearch]); Item[mpiTitle ] = gsTextSearch; Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); Item[mpiFolderSortOrder] = "-mpCreateDate"; gnTotalItems++; HmsDatabaseAutoSave(false); gsMsg = Format(gsMsgTextSaved, [gsTextSearch, prntItem[mpiTitle]]); gsTextSearch = ''; } // --------- Функция создания динамической папки с унаследованным скриптом ---- void CreateDynamicItem(THmsScriptMediaItem prntItem, char sTitle, char sLink) { char s; THmsScriptMediaItem Folder; if (Trim(sTitle)=='') sTitle = gsSpace; Folder = prntItem.AddFolder(sLink, true); Folder[mpiTitle ] = sTitle; Folder[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++; Folder[mpiFolderType ] = prntItem[mpiFolderType]; Folder[mpiDynamicScript ] = prntItem[mpiDynamicScript]; Folder[mpiDynamicSyntaxType] = prntItem[mpiDynamicSyntaxType]; Folder[mpiFolderSortOrder ] = prntItem[mpiFolderSortOrder]; } // ---------------------------- MAIN PROCEDURE ------------------------------ { int i, nCnt; char sCh, sCh1, sCh2, sText; THmsScriptMediaItem Item; char s, sUrlServer = '', sRequestPage = '/', sPostData = '', sHeaders = ''; if (LeftCopy(mpFilePath, 1) != '-') return; // Если это не команда - то и не обрабатываем // Поиск корневого каталога поиска (папки, которая содержит динамическую папку с путем "-SearchCommands") goRootItem = FolderItem; goCmdItem = FolderItem; while ((goRootItem.ItemParent != HmsDatabaseRootItem) && (goRootItem.ItemParent != nil)) { if (goRootItem[mpiFilePath] == '-SearchCommands') {goCmdItem=goRootItem; goRootItem=goCmdItem.ItemParent; break;} goRootItem = goRootItem.ItemParent; } // Если это повторный вызов, смены папки не произошло - ничего не делаем if ((FolderItem.ItemID==goRootItem[mpiPreviousItemID]) && !DebugMode && (FolderItem!=goCmdItem)) return; FolderItem.DeleteChildItems(); goRootItem[mpiPreviousItemID] = FolderItem.ItemID; gsTextSearch = HmsGetUserSearchText(); // Получаем текущее значение текста поиска // ---- Проверяем команды - по значению в mpFilePath ---- if (goRootItem[mpiDoNothing]=='1') { // Флаг "Ничего не делать" - например, при возврате goRootItem[mpiDoNothing] = ''; // в команду набирания буквы из подпапки варианта } else if (HmsRegExMatch('-SearchCommands', mpFilePath, sCh1)) { // Создание корневых команд поиска CreateSearchCommands(); return; } else if (HmsRegExMatch('-SearchChar=(\\d+)', mpFilePath, sCh1)) { // Добавление буквы (символа) к набираемому тексту поиска gsTextSearch += Chr(StrToInt(sCh1)); } else if (HmsRegExMatch('-SetSearchText=(.*)', mpFilePath, gsTextSearch)) { // Назначить текст поиска значением варианта подсказки goRootItem[mpiDoNothing] = '1'; gsSuggestQuery = ''; // включаем флаг не выполнять команду при возврате из этой папки } else if (HmsRegExMatch('-SaveSearchTextTo=(.*)', mpFilePath, sCh1)) { // Добавление в папку Х. Поиск этой папки по ItemID. Item = goRootItem; // Ищем папку с ItemID равному идентификатору, переданному в mpFilePath for (i=0; i<goRootItem.ChildCount; i++) { if (goRootItem.ChildItems[i].ItemID==sCh1) {Item = goRootItem.ChildItems[i]; break;} } AddPodcastSearch(Item); // и добавляем в найденную папку подкаст текстом поиска } else if (HmsRegExMatch('-ClearSearchHistoryIn=(.*)', mpFilePath, sCh1)) { // Очистка истории (добавленных ранее) поисковых значений Item = goRootItem; // Ищем папку с ItemID равному идентификатору, переданному в mpFilePath for (i=0; i<goRootItem.ChildCount; i++) { if (goRootItem.ChildItems[i].ItemID==sCh1) {Item = goRootItem.ChildItems[i]; break;} } for(i=0; i<Item.ChildCount; i++) { // Удаляем все элементы с начинающимся словом 'search' в поле mpiFilePath if (LeftCopy(Item.ChildItems[i].Properties[mpiFilePath], 6)=='search') {Item.ChildItems[i].Delete();i--;} } gsMsg = Format(gsMsgClearHistory, [Item[mpiTitle]]); // вывод сообщения, что история очищена } else if (HmsRegExMatch('-SearchCmd=(\\w+)', mpFilePath, sCh1)) { if (sCh1=='DeleteLastChar' ) gsTextSearch = LeftCopy(gsTextSearch, Length(gsTextSearch)-1); // Удаление последнего символа else if (sCh1=='SaveSearchText' ) AddPodcastSearch(goRootItem); // Добавить текст поиска в корневую папку else if (sCh1=='ClearSearchText') gsTextSearch = ''; // Очистка текста поиска else if (sCh1=='ClearSearchHistory') { // Очистка истории (добавленных значений поиска) for(i=0; i<goRootItem.ChildCount; i++) { Item = goRootItem.ChildItems[i]; // Ищем все элементы, у которых значение mpiFilePath начиначется с 'search' if (LeftCopy(Item[mpiFilePath], 6)=='search') {goRootItem.ChildItems[i].Delete();i--;} } gsMsg = Format(gsMsgClearHistory, [goRootItem[mpiTitle]]); } } else if (HmsRegExMatch2('-SearchCreateChars=From:(\\d+)To:(\\d+)', mpFilePath, sCh1, sCh2)) { // Создание списка букв/символов CreateDynamicItem(FolderItem, gsDelLastChar, '-SearchCmd=DeleteLastChar Suggestions'); // В начало - команда удаления символа CreateDynamicItem(FolderItem, ' ', '-SearchChar=32 Suggestions'); // Пробел for (i= StrToInt(sCh1); i<StrToInt(sCh2); i++) CreateDynamicItem(FolderItem, Chr(i), '-SearchChar='+IntToStr(i)+' Suggestions'); // слово "Suggestions" добавлено к значению mpiFilePath тек команд, в которых возможно использование подсказок } else return; // Если неизвестная нам команда - просто выходим HmsSetUserSearchText(gsTextSearch); // Устанавливаем значение текста поиска Item = HmsCreateMediaItem('-command=none', FolderItem.ItemID); if (gsMsg=='') { // Если сообщения небыло - просто выводим ссылку с текущим значением набранного текста Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg'; Item[mpiTitle ] = Format(gsMsgSearchText, [gsTextSearch]); } else { // Выводим сообщение Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png'; Item[mpiTitle ] = gsMsg; } Item = HmsCreateMediaItem('-command=none', FolderItem.ItemParent.ItemID); // В родительской папке (выше) обновляем информацию о текущем значении текста Item[mpiTitle] = Format(gsMsgSearchText, [gsTextSearch]); Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg'; Item = HmsCreateMediaItem('-command=none', goCmdItem.ItemID); // Также в папке, содержащую главные команды поиска Item[mpiTitle] = Format(gsMsgSearchText, [gsTextSearch]); Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg'; // Suggestions ------ Блок работы с подсказками ------- if ((gsSuggestQuery!='') && (Pos('Suggestions', mpFilePath)>0) && (Length(gsTextSearch)>1)) { sText = gsTextSearch; if (gnSuggestNoUTFEnc==0) sText = HmsUtf8Encode(sText); // Если не указано не кодировать в UTF - кодируем sText = HmsHttpEncode(sText); // Если есть ключ <TEXT> в запросе - заменяем его на значение набранного текста, иначе просто добавляем в конец if (Pos('<TEXT>', gsSuggestQuery)>0) gsSuggestQuery = ReplaceStr(gsSuggestQuery, '<TEXT>', sText); else gsSuggestQuery = gsSuggestQuery + sText; HmsRegExMatch2('http://(.*?)(/.*)', gsSuggestQuery, sUrlServer, sRequestPage); if (gsSuggestMethod=='POST') HmsRegExMatch2('^(.*?)\\?(.*)', sRequestPage, sRequestPage, sPostData); sHeaders = 'http://'+sUrlServer+'/\r\n'+ 'Accept-Encoding: gzip, deflate\r\n'+ 'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0\r\n'+ 'Connection: Keep-Alive\r\n'+ 'Accept: application/json, text/javascript, */*; q=0.01\r\n'; // Для включения возможности gzip в запросах sText = HmsSendRequestEx(sUrlServer, sRequestPage, gsSuggestMethod, 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, sPostData, 80, 0, '', true); sText = HmsUtf8Decode(sText); if (gsSuggestResultCut!='') HmsRegExMatch(gsSuggestResultCut, sText, sText);// Если есть выражение обрезки - обрезаем sText = HmsJsonDecode(sText); TRegExpr t = TRegExpr.Create('(<[^>]+>)'); // Избавляемся от тегов в середине слов подсказки TRegExpr reSearch = TRegExpr.Create(gsSuggestRegExpr, PCRE_SINGLELINE); if (reSearch.Search(sText)) do { s = reSearch.Match; if (t.Search(s)) do s=ReplaceStr(s, t.Match, ''); while (t.SearchAgain());// (функция HmsHtmlToText не подходит т.к. ставит пробел в середине слова) if (HmsRegExMatch('^(.*?)[/\\(\\|]', s, sCh)) { // Обрезаем подсказку до знаков /, ( или | if (Pos(LowerCase(gsTextSearch), LowerCase(sCh))>0) s = sCh; // Если после этого в подсказке встречается набранный текст - то так и оставляем } if (LowerCase(s)==s) s = NameCase(s); // Если подсказки - все маленькие буквы, делаем NameCase // Если в подсказке больше одного слова - дополнительно создаём сначала подсказки из слов, которые содержат набранный текст (выделяем слова отдельно) if (WordCount(s, ' ')>1) { nCnt = WordCount(s, ' '); for (i=1; i<=nCnt; i++) { sCh=ExtractWord(i, s, ' '); if (Trim(sCh)=='') continue; if (Pos(LowerCase(gsTextSearch), LowerCase(sCh))<1) continue; if (LowerCase(gsTextSearch)==LowerCase(sCh)) continue; sCh = ReplaceStr(sCh, ':', ''); sCh=ReplaceStr(sCh, '\\', ''); sCh=ReplaceStr(sCh, '(', ''); sCh=ReplaceStr(sCh, ')', ''); CreateDynamicItem(FolderItem, gsSuggestMessage+sCh, '-SetSearchText='+sCh); } } // Создаём папку с предложением варианта (подсказку) if (LowerCase(s)!=LowerCase(gsTextSearch)) CreateDynamicItem(FolderItem, gsSuggestMessage+s, '-SetSearchText='+s); if (gnTotalItems>100) break; // Ограничиваем количество создаваемых элементов = 100 } while (reSearch.SearchAgain()); } HmsIncSystemUpdateID(); // Говорим устройству об обновлении содержания } 501 C++Script 93 41631,1530410417 245 ef4cc5d865af1d9b672cc3ea8ec28190 53 0603b056-51b2-427a-9105-1f66d0172bc2 http://ex-fs.net/films/ 1ea13c4f-c6ed-478b-afdc-d6a20117a8a7 515 2 512 2 532 2 700 2 553 2 42 3 4 1 Фильмы - Последние поступления 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 0603b056-51b2-427a-9105-1f66d0172bc2 93 41630,9223242708 531 Нет скрипта 527 --maxpages=4 --yearintitle --maxingroup=150 525 43132,9843480556 215 -mpCreateDate 53 21b55791-c9e9-4bb9-88a6-546e478cbe9b http://ex-fs.net/series/ 1ea13c4f-c6ed-478b-afdc-d6a20117a8a7 515 2 512 2 532 2 700 2 553 2 42 3 4 2 Сериалы 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 21b55791-c9e9-4bb9-88a6-546e478cbe9b 93 41631,0463529861 531 Нет скрипта 527 --group=alph --maxpages=50 525 43132,9846935995 51 0478d66e-ac93-4377-b454-374ac487b417 1ea13c4f-c6ed-478b-afdc-d6a20117a8a7 515 2 512 2 532 2 700 2 553 2 42 3 4 3 Мультфильмы 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 0 245 0478d66e-ac93-4377-b454-374ac487b417 93 41631,1245786227 53 daab54ce-4e99-4ae8-8abe-728e741af7f6 http://ex-fs.net/cartoon/ 0478d66e-ac93-4377-b454-374ac487b417 515 2 512 2 532 2 700 2 553 2 42 3 4 Последние добавленные 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 daab54ce-4e99-4ae8-8abe-728e741af7f6 93 41631,1193552315 527 --maxpages=4 --yearintitle 525 43132,9849755787 53 eaa0f8ca-1ce3-4d47-9315-03869ef1a1d0 http://ex-fs.net/cartoon/ 0478d66e-ac93-4377-b454-374ac487b417 515 2 512 2 532 2 700 2 553 2 42 3 4 По алфавиту 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 eaa0f8ca-1ce3-4d47-9315-03869ef1a1d0 527 --maxpages=30 --group=alph 93 41631,1245786458 525 43132,9851133102 51 1379a516-21f0-4509-9197-fb863ef79865 http://ex-fs.net/genre 1ea13c4f-c6ed-478b-afdc-d6a20117a8a7 515 2 512 2 532 2 700 2 553 2 42 3 4 4 Категории 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 1 245 1379a516-21f0-4509-9197-fb863ef79865 93 41631,1307855093 571 char gsBaseUrl = "http://ex-fs.net"; int gnItemsAdded=0; TDateTime gTimeStart=Now; char gsTagBlockBegin = '<tr class="alldoppole">', gsTagBlockEnd = '</tr>', gsPatternTitle = '(<a.*?</a>)', gsPatternLink = '<a[^>]+href="(.*?)"'; // ---------------------------------------------------------------------------- { char sHtml, sLink, sTitle; TRegExpr re; THmsScriptMediaItem Item; FolderItem.DeleteChildItems(); sHtml = HmsUtf8Decode(HmsDownloadURL(mpFilePath, gsBaseUrl, true)); re = TRegExpr.Create(gsTagBlockBegin+'(.*?)'+gsTagBlockEnd, PCRE_SINGLELINE); if (re.Search(sHtml)) do { HmsRegExMatch(gsPatternTitle, re.Match, sTitle); HmsRegExMatch(gsPatternLink , re.Match, sLink ); sTitle = HmsHtmlToText(sTitle); sLink = HmsExpandLink(sLink, gsBaseUrl+"/"); sTitle = NameCase(sTitle); Item = FolderItem.AddFolder(sLink); Item[mpiTitle ] = ReplaceStr(sTitle, '/', '-'); Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); Item[mpiFolderSortOrder] = "-mpCreateDate"; } while (re.SearchAgain()); re.Free(); } 572 C++Script 527 --yearintitle 53 8185d10ba2b8c2e4abafb03da51daca0 http://ex-fs.net/genre/%D0%B0%D0%BD%D0%B8%D0%BC%D0%B5/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Аниме 35 41632,0044328704 93 41632,0044335648 53 ff5316aae25815cb9c4ed6f2e3968e46 http://ex-fs.net/genre/%D0%B1%D0%B8%D0%BE%D0%B3%D1%80%D0%B0%D1%84%D0%B8%D1%8F/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Биография 35 41632,0044328704 93 41632,0044335648 53 bce398edcb5bfb7ca717cd8a6df6d320 http://ex-fs.net/genre/%D0%B1%D0%BE%D0%B5%D0%B2%D0%B8%D0%BA/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Боевик 35 41632,0044328704 93 41632,0044335648 53 9ebd48509d956d3a891c7f5c5a97468e http://ex-fs.net/genre/%D0%B2%D0%B5%D1%81%D1%82%D0%B5%D1%80%D0%BD/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Вестерн 35 41632,0044328704 93 41632,0044335648 53 eb351e99d5fca0eca9d12fbd9bfe0186 http://ex-fs.net/genre/%D0%B2%D0%BE%D0%B5%D0%BD%D0%BD%D1%8B%D0%B9/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Военный 35 41632,0044328704 93 41632,0044335648 53 a453a9b6d84cec637072f84ba97b3be5 http://ex-fs.net/genre/%D0%B4%D0%B5%D1%82%D0%B5%D0%BA%D1%82%D0%B8%D0%B2/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Детектив 35 41632,0044328704 93 41632,0044335648 53 ce9afd742125db1812b32a505d66efcb http://ex-fs.net/genre/%D0%B4%D0%B5%D1%82%D1%81%D0%BA%D0%B8%D0%B9/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Детский 35 41632,0044328704 93 41632,0044335648 53 812f5f19eaad2504fd175ca6af86b81c http://ex-fs.net/genre/%D0%B4%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%D0%B0%D0%BB%D1%8C%D0%BD%D1%8B%D0%B9/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Документальный 35 41632,0044328704 93 41632,0044335648 53 49bc31b71a79c69c6713442583b305cb http://ex-fs.net/genre/%D0%B4%D1%80%D0%B0%D0%BC%D0%B0/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Драма 35 41632,0044328704 93 41632,0044335648 53 4a261cc2d178530f99db0811ee7ada1c http://ex-fs.net/genre/%D0%B8%D1%81%D1%82%D0%BE%D1%80%D0%B8%D1%8F/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 История 35 41632,0044328704 93 41632,0044335648 53 b8a1a0324f1454988340ceb3d440e488 http://ex-fs.net/genre/%D0%BA%D0%BE%D0%BC%D0%B5%D0%B4%D0%B8%D1%8F/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Комедия 35 41632,0044328704 93 41632,0044335648 53 d76c5bbc0ee1a9bc4ecdd7e406680bf2 http://ex-fs.net/genre/%D0%BA%D0%BE%D1%80%D0%BE%D1%82%D0%BA%D0%BE%D0%BC%D0%B5%D1%82%D1%80%D0%B0%D0%B6%D0%BA%D0%B0/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Короткометражка 35 41632,0044328704 93 41632,0044335648 53 bad7256975a1143b18ae1fea501f285c http://ex-fs.net/genre/%D0%BA%D1%80%D0%B8%D0%BC%D0%B8%D0%BD%D0%B0%D0%BB/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Криминал 35 41632,0044328704 93 41632,0044335648 53 4cc663f07f1904d7a1c013fdb7d46ba2 http://ex-fs.net/genre/%D0%BC%D0%B5%D0%BB%D0%BE%D0%B4%D1%80%D0%B0%D0%BC%D0%B0/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Мелодрама 35 41632,0044328704 93 41632,0044335648 53 8fd5bb47aa6d52c5fc6c238788ffaa3d http://ex-fs.net/genre/%D0%BC%D1%83%D0%B7%D1%8B%D0%BA%D0%B0/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Музыка 35 41632,0044328704 93 41632,0044335648 53 2f8405e6b096ebfb5aaf55c235bc771d http://ex-fs.net/genre/%D0%BC%D1%83%D0%BB%D1%8C%D1%82%D1%84%D0%B8%D0%BB%D1%8C%D0%BC/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Мультфильм 35 41632,0044328704 93 41632,0044335648 53 00d62bd3be6ef9ead7f379be4ba81eef http://ex-fs.net/genre/%D0%BC%D1%8E%D0%B7%D0%B8%D0%BA%D0%BB/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Мюзикл 35 41632,0044328704 93 41632,0044335648 53 4d83e9bbc8e84da3d4f68203bb8b399f http://ex-fs.net/genre/%D0%BF%D1%80%D0%B8%D0%BA%D0%BB%D1%8E%D1%87%D0%B5%D0%BD%D0%B8%D1%8F/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Приключения 35 41632,0044328704 93 41632,0044335648 53 647c3239ef2a1825fc4f6002e560b5f0 http://ex-fs.net/genre/%D1%81%D0%B5%D0%BC%D0%B5%D0%B9%D0%BD%D1%8B%D0%B9/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Семейный 35 41632,0044328704 93 41632,0044335648 53 7a877842c5eef3ea732a95be2cd7717c http://ex-fs.net/genre/%D1%81%D0%BF%D0%BE%D1%80%D1%82/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Спорт 35 41632,0044328704 93 41632,0044335648 53 29858033c9378e07b400e46ef4566ffd http://ex-fs.net/genre/%D1%82%D1%80%D0%B8%D0%BB%D0%BB%D0%B5%D1%80/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Триллер 35 41632,0044328704 93 41632,0044335648 53 24a9825983576b7bfed46313b776dcf0 http://ex-fs.net/genre/%D1%83%D0%B6%D0%B0%D1%81%D1%8B/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Ужасы 35 41632,0044328704 93 41632,0044335648 53 f5b377faaa35a2f1f8338dafefcd167e http://ex-fs.net/genre/%D1%84%D0%B0%D0%BD%D1%82%D0%B0%D1%81%D1%82%D0%B8%D0%BA%D0%B0/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Фантастика 35 41632,0044328704 93 41632,0044335648 525 42709,049296331 53 3d688c3764a9a327c3030c535f67def2 http://ex-fs.net/genre/%D1%84%D1%8D%D0%BD%D1%82%D0%B5%D0%B7%D0%B8/ 1379a516-21f0-4509-9197-fb863ef79865 515 2 512 2 532 2 700 2 553 2 42 3 4 Фэнтези 35 41632,0044328704 93 41632,0044335648 51 27f26531-d4b9-406b-ae16-59b620d07596 1ea13c4f-c6ed-478b-afdc-d6a20117a8a7 515 2 512 2 532 2 700 2 553 2 42 3 4 5 По годам 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 1 245 27f26531-d4b9-406b-ae16-59b620d07596 93 41631,1249284722 571 int gnItemsAdded=0; TDateTime gTimeStart=Now; { variant Item; int nYear, nMonth, nDay; FolderItem.DeleteChildItems(); DecodeDate(Now, nYear, nMonth, nDay); if (nMonth>11) nYear++; for (int i=nYear; i>1990; i--) { Item = FolderItem.AddFolder("http://ex-fs.net/year/"+IntToStr(i)); Item[mpiTitle] = IntToStr(i); Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); Item[mpiFolderSortOrder] = "-mpCreateDate"; gnItemsAdded++; } } 572 C++Script 53 ed9365cb-6db6-406a-bf35-8d989ba2bfd4 http://ex-fs.net/year/2017 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2017 215 -mpCreateDate 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 ed9365cb-6db6-406a-bf35-8d989ba2bfd4 93 42745,7730902083 525 42745,7766726968 53 ad3cd2f1-5a6f-4589-8c48-a3b0dd9c0b55 http://ex-fs.net/year/2016 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2016 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 ad3cd2f1-5a6f-4589-8c48-a3b0dd9c0b55 93 42429,1124563079 525 42609,5196787963 53 827e47e9-7fe1-4262-9f25-0e2ae5f8fe89 http://ex-fs.net/year/2015 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2015 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 827e47e9-7fe1-4262-9f25-0e2ae5f8fe89 93 42429,1124563079 53 ed85fc446e0fb4f6cd28085ef65f61a5 http://ex-fs.net/year/2014 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2014 35 41632,0071180556 93 41632,0071234607 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 ed85fc446e0fb4f6cd28085ef65f61a5 53 a7a40a341945668909bff806465dae60 http://ex-fs.net/year/2013 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2013 35 41632,0064236111 93 41632,0071234607 525 42654,6228593634 53 c71c3075436c85dda72757773124826a http://ex-fs.net/year/2012 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2012 35 41632,0057291667 93 41632,0071234607 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 c71c3075436c85dda72757773124826a 53 3238ec573fd97180f3476bdac6e7603f http://ex-fs.net/year/2011 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2011 35 41632,0050347222 93 41632,0071234607 53 690016159bcc7a9bec01725914509e42 http://ex-fs.net/year/2010 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2010 35 41632,0043402778 93 41632,0071234607 53 8a9df39f4ab376b777d55a1d3331d8d7 http://ex-fs.net/year/2009 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2009 35 41632,0036458333 93 41632,0071234607 53 8030a7c41b38659ff2081c54cf3fb857 http://ex-fs.net/year/2008 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2008 35 41632,0029513889 93 41632,0071234607 53 302e67c3d4d88601f1de46f09143b9e9 http://ex-fs.net/year/2007 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2007 35 41632,0022569444 93 41632,0071234607 53 f71514a19ecc31bf14b2716712856225 http://ex-fs.net/year/2006 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2006 35 41632,0015625 93 41632,0071234607 53 a172bf857b01157a6dab26252534131c http://ex-fs.net/year/2005 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2005 35 41632,0008680556 93 41632,0071234607 53 ae17603f08c8e9ee9434c03b009f07cc http://ex-fs.net/year/2004 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2004 35 41632,0001736111 93 41632,0071234607 53 de6fd45d6e6b13fe1d87a556fe0d21a8 http://ex-fs.net/year/2003 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2003 35 41631,9994791667 93 41632,0071234607 53 91187cf4aab1e1cffbfe66c59f26ca43 http://ex-fs.net/year/2002 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2002 35 41631,9987847222 93 41632,0071234607 53 6e625d267b9ce3245ba7e5540df27ccd http://ex-fs.net/year/2001 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2001 35 41631,9980902778 93 41632,0071234607 53 fce6fdb9208c6b2d7db4c82423ec7b4e http://ex-fs.net/year/2000 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 2000 35 41631,9973958333 93 41632,0071234607 53 d993d3dcb46fe4617db4144e14c09b6f http://ex-fs.net/year/1999 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 1999 35 41631,9967013889 93 41632,0071234607 53 ccc68a4166794bc51ab4b8a6f28976d7 http://ex-fs.net/year/1998 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 1998 35 41631,9960069444 93 41632,0071234607 53 ac40ae5c7269d6e1be7e569816c8226e http://ex-fs.net/year/1997 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 1997 35 41631,9953125 93 41632,0071234607 53 3e3c5407f4d2c441e238dd9bc5cc0b70 http://ex-fs.net/year/1996 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 1996 35 41631,9946180556 93 41632,0071234607 53 2249fc866c04d881fda4beff5e630111 http://ex-fs.net/year/1995 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 1995 35 41631,9939236111 93 41632,0071234607 53 f18130a2811b8eae1b98fc7d96b0be90 http://ex-fs.net/year/1994 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 1994 35 41631,9932291667 93 41632,0071234607 53 d20a3b0ae826fcc30050d341b8ed2a39 http://ex-fs.net/year/1993 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 1993 35 41631,9925347222 93 41632,0071234607 53 f2c4ab6f97a48c316a7d0c3842bb909a http://ex-fs.net/year/1992 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 1992 35 41631,9918402778 93 41632,0071234607 53 ce724424ea82bc0bbd75d154e9bc0bff http://ex-fs.net/year/1991 27f26531-d4b9-406b-ae16-59b620d07596 515 2 512 2 532 2 700 2 553 2 42 3 4 1991 35 41631,9911458333 93 41632,0071234607 51 54d39c88-8f27-4f27-854e-f39a159c7ce9 http://ex-fs.net/country/ 1ea13c4f-c6ed-478b-afdc-d6a20117a8a7 515 2 512 2 532 2 700 2 553 2 42 3 4 6 По странам 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 571 char gsBaseUrl = "http://ex-fs.net"; int gnItemsAdded=0; TDateTime gTimeStart=Now; char gsTagBlockBegin = '<tr class="alldoppole">', gsTagBlockEnd = '</tr>', gsPatternTitle = '(<a.*?</a>)', gsPatternLink = '<a[^>]+href="(.*?)"'; // ---------------------------------------------------------------------------- { char sHtml, sLink, sTitle; TRegExpr re; THmsScriptMediaItem Item; FolderItem.DeleteChildItems(); sHtml = HmsUtf8Decode(HmsDownloadURL(mpFilePath, gsBaseUrl, true)); re = TRegExpr.Create(gsTagBlockBegin+'(.*?)'+gsTagBlockEnd, PCRE_SINGLELINE); if (re.Search(sHtml)) do { HmsRegExMatch(gsPatternTitle, re.Match, sTitle); HmsRegExMatch(gsPatternLink , re.Match, sLink ); sTitle = HmsHtmlToText(sTitle); sLink = HmsExpandLink(sLink, gsBaseUrl+"/"); Item = FolderItem.AddFolder(sLink); Item[mpiTitle ] = ReplaceStr(sTitle, '/', '-'); Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); Item[mpiFolderSortOrder] = "-mpCreateDate"; } while (re.SearchAgain()); re.Free(); } 572 C++Script 570 1 245 54d39c88-8f27-4f27-854e-f39a159c7ce9 93 41631,1416359838 527 --yearintitle 53 99b6492e344f5098aae6aec0276ced6f http://ex-fs.net/country/%D0%90%D0%B2%D1%81%D1%82%D1%80%D0%B0%D0%BB%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Австралия 35 41632,0077430556 93 41632,0098302083 53 fd6f101cfa84e5da4ea7ee18a0eb8ed5 http://ex-fs.net/country/%D0%90%D0%B2%D1%81%D1%82%D1%80%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Австрия 35 41632,0077430556 93 41632,0098302083 53 32189fe654c6d410d0a901df178e4b13 http://ex-fs.net/country/%D0%90%D0%BD%D0%B3%D0%BE%D0%BB%D0%B0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Ангола 35 41632,0077430556 93 41632,0098302083 53 0386cf10ed0eee1211e102671b6123bc http://ex-fs.net/country/%D0%90%D1%80%D0%B3%D0%B5%D0%BD%D1%82%D0%B8%D0%BD%D0%B0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Аргентина 35 41632,0077430556 93 41632,0098302083 525 42705,9948358333 53 d34f1dcfbbf79c7bc3532cc8dd3ec878 http://ex-fs.net/country/%D0%90%D1%80%D0%BC%D0%B5%D0%BD%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Армения 35 41632,0077430556 93 41632,0098302199 53 000c3f8626319cd624a7b5b8b73f105e http://ex-fs.net/country/%D0%91%D0%B0%D0%B3%D0%B0%D0%BC%D1%8B/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Багамы 35 41632,0077430556 93 41632,0098302199 53 700058fedff4e031d88900dd80d22e9e http://ex-fs.net/country/%D0%91%D0%B5%D0%BB%D0%B0%D1%80%D1%83%D1%81%D1%8C/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Беларусь 35 41632,0077430556 93 41632,0098302199 53 cfc8f2dd5f2ddc02eaea802f14a971ab http://ex-fs.net/country/%D0%91%D0%B5%D0%BB%D1%8C%D0%B3%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Бельгия 35 41632,0077430556 93 41632,0098302199 53 b712b367521f1c91741e6f77bf9bdc0b http://ex-fs.net/country/%D0%91%D0%BE%D0%BB%D0%B3%D0%B0%D1%80%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Болгария 35 41632,0077430556 93 41632,0098302199 53 3cfe2bdb6a266e4aa465edacef770e86 http://ex-fs.net/country/%D0%91%D0%BE%D0%BB%D0%B8%D0%B2%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Боливия 35 41632,0077430556 93 41632,0098302199 53 93b2a19b3fc1c345bf51487993e6b3e6 http://ex-fs.net/country/%D0%91%D0%BE%D1%81%D0%BD%D0%B8%D1%8F-%D0%93%D0%B5%D1%80%D1%86%D0%B5%D0%B3%D0%BE%D0%B2%D0%B8%D0%BD%D0%B0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Босния-Герцеговина 35 41632,0077430556 93 41632,0098302199 53 71193dce938ffcbefd78113badb11374 http://ex-fs.net/country/%D0%91%D1%80%D0%B0%D0%B7%D0%B8%D0%BB%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Бразилия 35 41632,0077430556 93 41632,0098302199 53 83168014297d822ed0d1adddd8d2ec56 http://ex-fs.net/country/%D0%92%D0%B5%D0%BB%D0%B8%D0%BA%D0%BE%D0%B1%D1%80%D0%B8%D1%82%D0%B0%D0%BD%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Великобритания 35 41632,0077430556 93 41632,0098302199 53 d70898fe9668746ee45f664264424dbd http://ex-fs.net/country/%D0%92%D0%B5%D0%BD%D0%B3%D1%80%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Венгрия 35 41632,0077430556 93 41632,0098302778 53 2dafe44a9e2272128ba9e47517a20cb5 http://ex-fs.net/country/%D0%92%D1%8C%D0%B5%D1%82%D0%BD%D0%B0%D0%BC/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Вьетнам 35 41632,0077430556 93 41632,0098302778 53 f2ef859a25902a8d9b34771778e627c5 http://ex-fs.net/country/%D0%93%D0%B5%D1%80%D0%BC%D0%B0%D0%BD%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Германия 35 41632,0077430556 93 41632,0098302778 53 dc265b80bafbf357b03f2687df636dc9 http://ex-fs.net/country/%D0%93%D0%B5%D1%80%D0%BC%D0%B0%D0%BD%D0%B8%D1%8F_%28%D0%93%D0%94%D0%A0%29/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Германия (ГДР) 35 41632,0077430556 93 41632,0098302778 53 9780e4943c731625ff58d0f33b9f8f85 http://ex-fs.net/country/%D0%93%D0%B5%D1%80%D0%BC%D0%B0%D0%BD%D0%B8%D1%8F_%28%D0%A4%D0%A0%D0%93%29/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Германия (ФРГ) 35 41632,0077430556 93 41632,0098302778 53 ac23a37097dd3851bf6587a4316ffdf9 http://ex-fs.net/country/%D0%93%D0%BE%D0%BD%D0%BA%D0%BE%D0%BD%D0%B3/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Гонконг 35 41632,0077430556 93 41632,0098302778 53 4c452d287062cb948c8393dd258d09b1 http://ex-fs.net/country/%D0%93%D1%80%D0%B5%D1%86%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Греция 35 41632,0077430556 93 41632,0098302778 53 c854a28de46c631b5d501efa2e3be2ba http://ex-fs.net/country/%D0%93%D1%80%D1%83%D0%B7%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Грузия 35 41632,0077430556 93 41632,0098302778 53 76bda2c141c93f4b7c0ed035b22d308a http://ex-fs.net/country/%D0%94%D0%B0%D0%BD%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Дания 35 41632,0077430556 93 41632,0098302778 53 6875c87e30df8da82bc552b9ebba4a66 http://ex-fs.net/country/%D0%98%D0%B7%D1%80%D0%B0%D0%B8%D0%BB%D1%8C/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Израиль 35 41632,0077430556 93 41632,0098302778 53 209940200a4bc8b3c0ae98778eed4988 http://ex-fs.net/country/%D0%98%D0%BD%D0%B4%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Индия 35 41632,0077430556 93 41632,0098302778 53 38bbf0b168fe86ddf9c7a2844f6e4247 http://ex-fs.net/country/%D0%98%D0%BD%D0%B4%D0%BE%D0%BD%D0%B5%D0%B7%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Индонезия 35 41632,0077430556 93 41632,0098302778 53 4a20501334df5645dd41116b713ebbb6 http://ex-fs.net/country/%D0%98%D1%80%D0%B0%D0%BD/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Иран 35 41632,0077430556 93 41632,0098302778 53 538d4bb6cce8925e6c43d1ae5d4be44a http://ex-fs.net/country/%D0%98%D1%80%D0%BB%D0%B0%D0%BD%D0%B4%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Ирландия 35 41632,0077430556 93 41632,0098302778 53 ba3c36af67f914f9bf274eaf67b4dc71 http://ex-fs.net/country/%D0%98%D1%81%D0%BB%D0%B0%D0%BD%D0%B4%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Исландия 35 41632,0077430556 93 41632,0098302778 53 618900975580717435912f4653751f6e http://ex-fs.net/country/%D0%98%D1%81%D0%BF%D0%B0%D0%BD%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Испания 35 41632,0077430556 93 41632,0098302778 53 425c021033c2ad0729b49b3ac0579374 http://ex-fs.net/country/%D0%98%D1%82%D0%B0%D0%BB%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Италия 35 41632,0077430556 93 41632,0098302778 53 93e00f1885c82dc58acc54dccec451ca http://ex-fs.net/country/%D0%9A%D0%B0%D0%B7%D0%B0%D1%85%D1%81%D1%82%D0%B0%D0%BD/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Казахстан 35 41632,0077430556 93 41632,0098302778 53 6ef5834cd3cbf5c0257c9053b6a6bf93 http://ex-fs.net/country/%D0%9A%D0%B0%D0%BC%D0%B5%D1%80%D1%83%D0%BD/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Камерун 35 41632,0077430556 93 41632,0098302778 53 7cb9f4d9e5821cf69c85351b5ac5ac9a http://ex-fs.net/country/%D0%9A%D0%B0%D0%BD%D0%B0%D0%B4%D0%B0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Канада 35 41632,0077430556 93 41632,0098302778 53 70edfc7d036cd439b2d5a6336534208f http://ex-fs.net/country/%D0%9A%D0%B0%D1%82%D0%B0%D1%80/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Катар 35 41632,0077430556 93 41632,0098302778 53 e27aa0762fd2dc3c619967f8eb83b1e1 http://ex-fs.net/country/%D0%9A%D0%B5%D0%BD%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Кения 35 41632,0077430556 93 41632,0098302778 53 07047721efe666414e8ce25330f80878 http://ex-fs.net/country/%D0%9A%D0%B8%D1%82%D0%B0%D0%B9/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Китай 35 41632,0077430556 93 41632,0098302894 53 abc069935bc37cf92c46c9d6974c5463 http://ex-fs.net/country/%D0%9A%D0%BE%D0%BB%D1%83%D0%BC%D0%B1%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Колумбия 35 41632,0077430556 93 41632,0098302894 53 ea74abe5f5b1993634e8a89252985e7a http://ex-fs.net/country/%D0%9A%D0%BE%D1%80%D0%B5%D1%8F_%D0%AE%D0%B6%D0%BD%D0%B0%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Корея Южная 35 41632,0077430556 93 41632,0098302894 525 42763,0195046643 53 38021ed1d377796b768219ededa3d358 http://ex-fs.net/country/%D0%9A%D1%83%D0%B1%D0%B0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Куба 35 41632,0077430556 93 41632,0098302894 53 d458be894c1971e2e16664566c177bff http://ex-fs.net/country/%D0%9B%D0%B0%D1%82%D0%B2%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Латвия 35 41632,0077430556 93 41632,0098302894 53 efd03b63ae1028027d8422ce4939c388 http://ex-fs.net/country/%D0%9B%D0%B8%D1%82%D0%B2%D0%B0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Литва 35 41632,0077430556 93 41632,0098302894 53 71063c5e148cce3130105745057f533f http://ex-fs.net/country/%D0%9B%D1%8E%D0%BA%D1%81%D0%B5%D0%BC%D0%B1%D1%83%D1%80%D0%B3/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Люксембург 35 41632,0077430556 93 41632,0098302894 53 437b1d0829b80d4162876857bec5a137 http://ex-fs.net/country/%D0%9C%D0%B0%D0%BA%D0%B5%D0%B4%D0%BE%D0%BD%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Македония 35 41632,0077430556 93 41632,0098302894 53 b5f420c7d7179fc70982943e20ddcc9a http://ex-fs.net/country/%D0%9C%D0%B0%D0%BB%D0%B0%D0%B9%D0%B7%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Малайзия 35 41632,0077430556 93 41632,0098302894 53 d4fefb58a0a17ccd1b9d5d9da061c8df http://ex-fs.net/country/%D0%9C%D0%B0%D0%BB%D1%8C%D1%82%D0%B0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Мальта 35 41632,0077430556 93 41632,0098302894 53 8875d7956b3fa96c4c17f8cdfe965d1f http://ex-fs.net/country/%D0%9C%D0%B0%D1%80%D0%BE%D0%BA%D0%BA%D0%BE/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Марокко 35 41632,0077430556 93 41632,0098302894 53 da3729d5d0e198048eb73820692f4bc0 http://ex-fs.net/country/%D0%9C%D0%B5%D0%BA%D1%81%D0%B8%D0%BA%D0%B0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Мексика 35 41632,0077430556 93 41632,0098302894 53 c0fda2df1eb274b79cbca99dd3fe1e87 http://ex-fs.net/country/%D0%9C%D0%BE%D0%BD%D0%B0%D0%BA%D0%BE/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Монако 35 41632,0077430556 93 41632,0098302894 53 77038332d6b28580b8d1764c0416d043 http://ex-fs.net/country/%D0%9D%D0%B8%D0%B4%D0%B5%D1%80%D0%BB%D0%B0%D0%BD%D0%B4%D1%8B/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Нидерланды 35 41632,0077430556 93 41632,0098302894 53 078756cd429aab03bfaba937a25c9847 http://ex-fs.net/country/%D0%9D%D0%BE%D0%B2%D0%B0%D1%8F_%D0%97%D0%B5%D0%BB%D0%B0%D0%BD%D0%B4%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Новая Зеландия 35 41632,0077430556 93 41632,0098302894 53 05f86b0c6a24482630bbd9763feed474 http://ex-fs.net/country/%D0%9D%D0%BE%D1%80%D0%B2%D0%B5%D0%B3%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Норвегия 35 41632,0077430556 93 41632,0098302894 53 ab0f792b71367f5c13c558598ba87551 http://ex-fs.net/country/%D0%9E%D0%90%D0%AD/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 ОАЭ 35 41632,0077430556 93 41632,0098302894 53 1b580cf1f6d04fb15092f90fba4a2e4e http://ex-fs.net/country/%D0%9E%D1%81%D1%82%D1%80%D0%BE%D0%B2_%D0%9C%D1%8D%D0%BD/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Остров Мэн 35 41632,0077430556 93 41632,0098302894 53 1b1b2b7e1953c93992aab66d6015fceb http://ex-fs.net/country/%D0%9F%D0%B0%D0%BB%D0%B5%D1%81%D1%82%D0%B8%D0%BD%D0%B0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Палестина 35 41632,0077430556 93 41632,0098302894 53 698a0c33f29767cc38a8de477c8f8a14 http://ex-fs.net/country/%D0%9F%D0%B0%D1%80%D0%B0%D0%B3%D0%B2%D0%B0%D0%B9/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Парагвай 35 41632,0077430556 93 41632,0098302894 53 e9efef23c3587cd4a6194279aa8016c1 http://ex-fs.net/country/%D0%9F%D0%B5%D1%80%D1%83/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Перу 35 41632,0077430556 93 41632,0098302894 53 240809a9fa136df312f550496744b009 http://ex-fs.net/country/%D0%9F%D0%BE%D0%BB%D1%8C%D1%88%D0%B0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Польша 35 41632,0077430556 93 41632,0098302894 53 8151338a895793e0dee27fa923043def http://ex-fs.net/country/%D0%9F%D0%BE%D1%80%D1%82%D1%83%D0%B3%D0%B0%D0%BB%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Португалия 35 41632,0077430556 93 41632,0098302894 53 1a3fb2ddae16e9433039a73a76e84510 http://ex-fs.net/country/%D0%A0%D0%BE%D1%81%D1%81%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Россия 35 41632,0077430556 93 41632,0098302894 53 b7d757ba986bb6fe9592ca0307b32157 http://ex-fs.net/country/%D0%A0%D1%83%D0%BC%D1%8B%D0%BD%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Румыния 35 41632,0077430556 93 41632,0098302894 53 7056c5886f7cbc6e07484c83c6c631e1 http://ex-fs.net/country/%D0%A1%D0%B5%D1%80%D0%B1%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Сербия 35 41632,0077430556 93 41632,0098302894 53 1b9cf8f29c324041f8fa48a4f131536a http://ex-fs.net/country/%D0%A1%D0%B5%D1%80%D0%B1%D0%B8%D1%8F_%D0%B8_%D0%A7%D0%B5%D1%80%D0%BD%D0%BE%D0%B3%D0%BE%D1%80%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Сербия и Черногория 35 41632,0077430556 93 41632,0098302894 53 0a317241877dabef55fd8e635e5762c0 http://ex-fs.net/country/%D0%A1%D0%B8%D0%BD%D0%B3%D0%B0%D0%BF%D1%83%D1%80/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Сингапур 35 41632,0077430556 93 41632,0098302894 53 d5632b7f64c77dc817ecb4630d2f7f94 http://ex-fs.net/country/%D0%A1%D0%BB%D0%BE%D0%B2%D0%B0%D0%BA%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Словакия 35 41632,0077430556 93 41632,0098302894 53 d258d1d3fb86db3c913044992f4bb203 http://ex-fs.net/country/%D0%A1%D0%BB%D0%BE%D0%B2%D0%B5%D0%BD%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Словения 35 41632,0077430556 93 41632,0098302894 53 f36480f135ff00c3539336ec61892958 http://ex-fs.net/country/%D0%A1%D0%A1%D0%A1%D0%A0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 СССР 35 41632,0077430556 93 41632,0098302894 53 9c80228dafaecdde3622de76bb20d843 http://ex-fs.net/country/%D0%A1%D0%A8%D0%90/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 США 35 41632,0077430556 93 41632,0098302894 53 e88a063c8aa427837f73a76dd2f9a2a7 http://ex-fs.net/country/%D0%A2%D0%B0%D0%B8%D0%BB%D0%B0%D0%BD%D0%B4/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Таиланд 35 41632,0077430556 93 41632,0098302894 53 f2b36785fbc98165c506078c88dcf24d http://ex-fs.net/country/%D0%A2%D0%B0%D0%B9%D0%B2%D0%B0%D0%BD%D1%8C/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Тайвань 35 41632,0077430556 93 41632,0098302894 53 384b7936b12d481f3439e8a34a46656d http://ex-fs.net/country/%D0%A2%D1%83%D0%BD%D0%B8%D1%81/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Тунис 35 41632,0077430556 93 41632,0098302894 53 85f5f5366eb1e205b254de662d365250 http://ex-fs.net/country/%D0%A2%D1%83%D1%80%D1%86%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Турция 35 41632,0077430556 93 41632,0098302894 53 a34ed53a601de283875fbef026fd3bf9 http://ex-fs.net/country/%D0%A3%D0%BA%D1%80%D0%B0%D0%B8%D0%BD%D0%B0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Украина 35 41632,0077430556 93 41632,0098302894 53 8d16b4ef073f043ce88b92ae488a4315 http://ex-fs.net/country/%D0%A3%D1%80%D1%83%D0%B3%D0%B2%D0%B0%D0%B9/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Уругвай 35 41632,0077430556 93 41632,0098302894 53 54de2766052608147806e16ca50818fd http://ex-fs.net/country/%D0%A4%D0%B8%D0%BB%D0%B8%D0%BF%D0%BF%D0%B8%D0%BD%D1%8B/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Филиппины 35 41632,0077430556 93 41632,0098302894 53 ddf6f168feec95f20cc9e3df7a5ac0dc http://ex-fs.net/country/%D0%A4%D0%B8%D0%BD%D0%BB%D1%8F%D0%BD%D0%B4%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Финляндия 35 41632,0077430556 93 41632,0098302894 53 653b5bf7563f27f638bf49769887e582 http://ex-fs.net/country/%D0%A4%D1%80%D0%B0%D0%BD%D1%86%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Франция 35 41632,0077430556 93 41632,0098302894 53 1d2272e3aae038d31141a253687f85e4 http://ex-fs.net/country/%D0%A5%D0%BE%D1%80%D0%B2%D0%B0%D1%82%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Хорватия 35 41632,0077430556 93 41632,0098302894 53 3a3511e0bc18b2fa401e0911ae051a29 http://ex-fs.net/country/%D0%A7%D0%B0%D0%B4/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Чад 35 41632,0077430556 93 41632,0098303009 53 2577f292b294a542d0b1f852c0449c90 http://ex-fs.net/country/%D0%A7%D0%B5%D1%85%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Чехия 35 41632,0077430556 93 41632,0098303009 53 5e904e5bf46f7fd84835e6b915fab440 http://ex-fs.net/country/%D0%A7%D0%B5%D1%85%D0%BE%D1%81%D0%BB%D0%BE%D0%B2%D0%B0%D0%BA%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Чехословакия 35 41632,0077430556 93 41632,0098303009 53 9ba09ac2d8a27194ccd908c4485c6f5d http://ex-fs.net/country/%D0%A7%D0%B8%D0%BB%D0%B8/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Чили 35 41632,0077430556 93 41632,0098303009 53 c8752d4f3e0462517ebe319b4a012b2e http://ex-fs.net/country/%D0%A8%D0%B2%D0%B5%D0%B9%D1%86%D0%B0%D1%80%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Швейцария 35 41632,0077430556 93 41632,0098303009 53 086be940b20c3762338cecaba391ff41 http://ex-fs.net/country/%D0%A8%D0%B2%D0%B5%D1%86%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Швеция 35 41632,0077430556 93 41632,0098303009 53 2999e6a41c7e014b7a939c6ecd916151 http://ex-fs.net/country/%D0%AD%D1%81%D1%82%D0%BE%D0%BD%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Эстония 35 41632,0077430556 93 41632,0098303009 53 2dabe9fe363769d8753a18eea185b081 http://ex-fs.net/country/%D0%AE%D0%90%D0%A0/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 ЮАР 35 41632,0077430556 93 41632,0098303009 53 cae410139550ad9570436fc7e80efb3d http://ex-fs.net/country/%D0%AF%D0%BF%D0%BE%D0%BD%D0%B8%D1%8F/ 54d39c88-8f27-4f27-854e-f39a159c7ce9 515 2 512 2 532 2 700 2 553 2 42 3 4 Япония 35 41632,0077430556 93 41632,0098303009