3
51
9bcd70df-0140-4c4e-82be-f7554b3a797e
http://www.hdkinoteatr.com
234DF17B-418C-4FDC-9DFE-CD0C586D2E76
4
HDKinoTeatr
-1
515
1
700
0
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
512
1
532
1
553
1
522
0
-1
-1
570
1
93
41257,9039847569
530
string DBGFILE='';
int INTERNET_FLAG_NO_AUTO_REDIRECT = 0x00200000,
mpiPreviousItemID = 200107,
mpiPreviousPrntID = 200108;
int LOG = 1, // Wonky 307.48
SHOWPROGRESS = 1,
MAXINGROUP = 100,
NODELITEMS = 0,
TITLECASE = 0,
LOADFROMLINKS= 0,
YEARINTITLE = 0,
GROUPMODE = 0,
REMSERIEWORD = 0,
NUMBERING = 0,
COLLECTING = 0,
ITEMASFOLDER = 2,
COLLECTASITEM= 0,
GROUPBYSORT = 0,
;
TStrings WONKY307=TStringList.Create(), PARAM=TStringList.Create(), VARS=TStringList.Create(), WCOLLECT=nil, COOKIES=TStringList.Create();
int gnTotalItems=0, W_MODE=0; char gsUrlBase='', gsCfgDate='', gsCfgAuthor='', gsAbout='';
Variant gaProps4Copy=[36,7,5,41,35,32,28,31,215,9,29,55,4,8,50,39000]; THmsScriptMediaItem ROOTPODCAST, COLLECTOR;
bool bWasShownProgress=false, gbStoreCookie=false, gbIE6Fix=false; char gsFrmtSeries = '%.2d'; TDateTime gTimeStart = Now;
string gsHeaders =
'http://www.google.com/\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'+
'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8\r\n';
// =======================================================================================
// НАБОР ПРОЦЕДУР И ФУНКЦИЙ -= WONKY307 =- ver 307.48
// ---------------------------------------------------------------------------------------
// Добавление в коллектор
void CollectTheItem(Variant OrigItem, bool bGroupMode, int nCountInGRP, int nGroup, char sGroupName) {
int i, OldGROUPMODE = GROUPMODE; char sTitle, sOldGroup = sGroupName;
THmsScriptMediaItem GroupItem, Folder, Item; Variant WOBJECT;
if ((W_MODE==1) || (WCOLLECT==nil)) return;
for (i=0; i<WCOLLECT.Count; i++) {
WOBJECT = WCOLLECT.Objects[i]; if (WOBJECT==nil) continue;
if (!CheckObjectCondition(WOBJECT, OrigItem)) continue;
sTitle = WOBJECT.Values['Title'];
GROUPMODE = 1;
Folder = COLLECTOR.AddFolder(sTitle + ' - По алфавиту', true);
Folder[mpiFolderSortOrder] = mpiTitle;
ControlGrouping(OrigItem[mpiTitle], OrigItem[mpiYear], bGroupMode, nCountInGRP, nGroup, sGroupName, 2);
if (sGroupName!='') {
if (Length(sGroupName)==2) {
GroupItem = Folder.AddFolder(LeftCopy(sGroupName, 1), true);
if (Trim(GroupItem[mpiFolderSortOrder])=='') Folder[mpiFolderSortOrder] = mpiTitle;
GroupItem = GroupItem.AddFolder(sGroupName, false);
} else {
GroupItem = Folder.AddFolder(sGroupName, false);
}
}
else GroupItem = Folder; GroupItem[532] = 0; // Отключаем скрипт обновления
if (Trim(GroupItem[mpiFolderSortOrder])=='') GroupItem[mpiFolderSortOrder] = mpiTitle;
if (COLLECTASITEM==1) {
Item = HmsCreateMediaItem(OrigItem[mpiFilePath], GroupItem.ItemID);
} else {
Item = GroupItem.AddFolder(OrigItem[mpiFilePath], true);
}
Item[mpiTitle] = OrigItem[mpiTitle]; // Название
Item[mpiThumbnail] = OrigItem[mpiThumbnail]; // Картинка
Item[mpiComment] = OrigItem[mpiComment]; // Комментарий
Item[mpiYear] = OrigItem[mpiYear]; // Год
Item[mpiDirector] = OrigItem[mpiDirector]; // Режиссер
Item[mpiTimeLength] = OrigItem[mpiTimeLength]; // Длительность
Item[mpiActor] = OrigItem[mpiActor]; // В ролях
Item[mpiGenre] = OrigItem[mpiGenre]; // Жанр
Item[mpiCreateDate] = OrigItem[mpiCreateDate]; // Дата создания
Item[mpiPodcastParameters] = OrigItem[mpiPodcastParameters]; // Параметры
Item[mpiFolderSortOrder] = -mpiCreateDate; // Сортировка: Дата создания по убыванию
GROUPMODE = 3;
Folder = COLLECTOR.AddFolder(sTitle + ' - По годам', true);
Folder[mpiFolderSortOrder] = -mpiTitle;
ControlGrouping(OrigItem[mpiTitle], OrigItem[mpiYear], bGroupMode, nCountInGRP, nGroup, sGroupName);
if (sGroupName!='') GroupItem = Folder.AddFolder(sGroupName, false);
else GroupItem = Folder; GroupItem[532] = 0; // Отключаем скрипт обновления
if (Trim(GroupItem[mpiFolderSortOrder])=='') GroupItem[mpiFolderSortOrder] = -mpiCreateDate;
if (COLLECTASITEM==1) {
Item = HmsCreateMediaItem(OrigItem[mpiFilePath], GroupItem.ItemID);
} else {
Item = GroupItem.AddFolder(OrigItem[mpiFilePath], true);
}
Item[mpiTitle] = OrigItem[mpiTitle]; // Название
Item[mpiThumbnail] = OrigItem[mpiThumbnail]; // Картинка
Item[mpiComment] = OrigItem[mpiComment]; // Комментарий
Item[mpiYear] = OrigItem[mpiYear]; // Год
Item[mpiDirector] = OrigItem[mpiDirector]; // Режиссер
Item[mpiTimeLength] = OrigItem[mpiTimeLength]; // Длительность
Item[mpiActor] = OrigItem[mpiActor]; // В ролях
Item[mpiGenre] = OrigItem[mpiGenre]; // Жанр
Item[mpiCreateDate] = OrigItem[mpiCreateDate];
Item[mpiPodcastParameters] = OrigItem[mpiPodcastParameters]; // Параметры
Item[mpiFolderSortOrder] = -mpiCreateDate;
sGroupName = sOldGroup; GROUPMODE = OldGROUPMODE;
break;
}
}
// ---------------------------------------------------------------------------------------
// Рекурсивная функция создания динамических подпапок
void CreateDynamicItems(TStrings WONKYBLK, Variant ParentItem, char &sScript='') {
int n, i, nParamId; char sTitle, sLink, sName, s;
Variant WONKYOBJECT, SUBBLOCK, Folder, Item;
for (n=0; n<WONKYBLK.Count; n++) {
SUBBLOCK = WONKYBLK.Objects(n); if (SUBBLOCK==0) continue;
sTitle = SUBBLOCK.Values['mpiTitle']; if (sTitle=='') continue;
sLink = SUBBLOCK.Values['mpiFilePath']; if (sLink =='') sLink=sTitle;
Folder = ParentItem.AddFolder(sLink, false, 32);
Folder[mpiTitle] = sTitle;
Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Folder[200] = 5; // mpiFolderType
Folder[500] = sScript; // mpiDynamicScript
Folder[501] = 'C++Script'; // mpiDynamicSyntaxType
Folder[mpiFolderSortOrder] = -mpiCreateDate;
for (i=0; i<SUBBLOCK.Count; i++) {
sName = SUBBLOCK.Names(i); if (sName=='') continue;
nParamId = GetIdByParamName(sName);
if ((nParamId==0)||(nParamId==mpiTitle)||(nParamId==mpiFilePath)) continue;
Folder[nParamId] = SUBBLOCK.Values[sName];
}
if (GetWonkyObject(SUBBLOCK, 'CreateItems', WONKYOBJECT, ParentItem)) CreateDynamicItems(WONKYOBJECT, Folder, sScript);
if (Folder.HasChildItems) {
s = '';
for (i=0; i<Folder.ChildCount; i++) {
Item = Folder.ChildItems[i];
s += Format("['%s','%s','%s'],\n", [Item[mpiTitle], Item[mpiFilePath], Trim(Item[mpiThumbnail])]);
}
s = 'Variant aSubs = [\n'+Trim(s)+'\n];';
Folder[500] = ReplaceStr(sScript, 'Variant aSubs = "";', s);
}
}
}
// ---------------------------------------------------------------------------------------
// Создание папки настроек (альтернативный вариант)
void CreateSettingsFolder(TStrings WONKYBLK, Variant ParentItem, char sFolderName='', char sFolderLink='') {
int i, n, n2, nParamId; char sTitle, sLink, sName;
Variant WONKYOBJECT, WONKYOBJECT2, SUBBLOCK, SUBBLOCK2; THmsScriptMediaItem SetFolder, Folder, Folder2, Item;
if (sFolderLink=='') sFolderLink = sFolderName;
SetFolder = ParentItem.AddFolder(sFolderLink, true);
SetFolder[mpiCreateDate] = '31.12.5013 23:59';
SetFolder[mpiTitle] = sFolderName;
SetFolder[mpiFolderSortOrder] = -mpiCreateDate;
if (!GetWonkyObject(WONKYBLK, 'CreateItems', WONKYOBJECT, ParentItem)) return;
for (n=0; n<WONKYOBJECT.Count; n++) {
SUBBLOCK = WONKYOBJECT.Objects(n); if (SUBBLOCK==0) continue;
sTitle = SUBBLOCK.Values['mpiTitle']; if (sTitle=='') continue;
sLink = SUBBLOCK.Values['mpiFilePath']; if (sLink =='') sLink=sTitle;
Folder = SetFolder.AddFolder(sLink, true);
Folder[mpiTitle] = sTitle;
Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Folder[mpiFolderSortOrder] = -mpiCreateDate;
for (i=0; i<SUBBLOCK.Count; i++) {
sName = SUBBLOCK.Names(i); if (sName=='') continue;
nParamId = GetIdByParamName(sName);
if ((nParamId==0)||(nParamId==mpiTitle)||(nParamId==mpiFilePath)) continue;
Folder[nParamId] = SUBBLOCK.Values[sName];
}
if (GetWonkyObject(SUBBLOCK, 'CreateItems', WONKYOBJECT2, ParentItem)) {
for (n2=0; n2<WONKYOBJECT2.Count; n2++) {
SUBBLOCK2 = WONKYOBJECT2.Objects(n2); if (SUBBLOCK2==0) continue;
sTitle = SUBBLOCK2.Values['mpiTitle']; if (sTitle=='') continue;
sLink = SUBBLOCK2.Values['mpiFilePath']; if (sLink =='') sLink=sTitle;
Folder2 = Folder.AddFolder(sLink, true);
Folder2[mpiTitle] = sTitle;
Folder2[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Folder2[mpiFolderSortOrder] = -mpiCreateDate;
Item = HmsCreateMediaItem(sLink+' '+Folder[mpiFilePath]+' ROOTITEM="'+ROOTPODCAST.ItemID+'"', Folder2.ItemID);
Item[mpiTitle] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[mpiFolderSortOrder] = -mpiCreateDate;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
for (i=0; i<SUBBLOCK2.Count; i++) {
sName = SUBBLOCK2.Names(i); if (sName=='') continue;
nParamId = GetIdByParamName(sName);
if ((nParamId==0)||(nParamId==mpiTitle)||(nParamId==mpiFilePath)) continue;
Item[nParamId] = SUBBLOCK2.Values[sName];
}
}
}
}
}
// ---------------------------------------------------------------------------------------
// Создание динамических каталогов (поиска или настроек)
void CreateDynamicGroup(TStrings WONKYBLK, Variant ParentItem, char sFolderName='', char sFolderLink='', char sScriptExp='') {
int n; char sScript='', s1, s2, sVarName, sVarValue;
Variant WONKYOBJECT; THmsScriptMediaItem Folder;
if (sFolderLink=='') sFolderLink = sFolderName;
Folder = ParentItem.AddFolder(sFolderLink, false, 32);
Folder[mpiCreateDate] = '31.12.5013 23:59';
Folder[mpiTitle] = sFolderName;
Folder[mpiFolderSortOrder] = -mpiCreateDate;
// Получаем текст скрипта для динамических папок (из скрипта создания подкаст лент)
if (sScriptExp!='') HmsRegExMatch(sScriptExp, FolderItem[571], sScript, 1, PCRE_SINGLELINE);
sScript = ReplaceStr(sScript, '*//*', '*/*');
// Заменяем в скрипте глобальные текстовые переменные из конфига (если таковые там встречаются)
for (n=0; n<WONKYBLK.Count; n++) {
sVarName = WONKYBLK.Names[n]; s1 = LeftCopy(sVarName, 2); if ((s1!='gs')&&(s1!='gn')) continue;
sVarValue = WONKYBLK.Values[sVarName];
if (s1=='gn') {
if(HmsRegExMatch2("(("+sVarName+"\\s*?=).*?;)", sScript, s1, s2, PCRE_SINGLELINE)) sScript = ReplaceStr(sScript, s1, s2+" "+sVarValue+";");
} else {
if(HmsRegExMatch2("(("+sVarName+"\\s*?=).*?;)", sScript, s1, s2, PCRE_SINGLELINE)) sScript = ReplaceStr(sScript, s1, s2+" '"+sVarValue+"';");
}
}
if ((Trim(sScript)!='') && (sFolderLink!='-SettingsCommands')) {
Folder[200] = 5; // mpiFolderType
Folder[500] = sScript; // mpiDynamicScript
Folder[501] = 'C++Script'; // mpiDynamicSyntaxType
}
if (!GetWonkyObject(WONKYBLK, 'CreateItems', WONKYOBJECT, ParentItem)) return;
CreateDynamicItems(WONKYOBJECT, Folder, sScript);
}
/*BeginSettingsScript
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = "";
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
EndSettingsScript*/
/*BeginSearchScript
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://www.google.ru/complete/search?sclient=psy-ab&q=';
char gsSuggestResultCut= '';
char gsSuggestRegExpr = '\\["(.*?)",';
char gsSuggestMethod = 'GET';
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.IsFolder || (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.IsFolder || (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;
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, '\\', '');
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(); // Говорим устройству об обновлении содержания
}
EndSearchScript*/
// ---------------------------------------------------------------------------------------
// Обработка названия
char NormalizeTitle(char sTitle, char sYear='', char sParentTitle='', char sParentParentTitle='') {
char sValue1, sValue2, sValue3=''; bool bDontAddYear=false, bDontShort=false; int i, n;
sTitle = ReplaceStr(ReplaceStr(sTitle, ' />', '>'), '/>', '>');
sTitle = HmsHtmlToText(sTitle);
if (HmsRegExMatch('(?:[Сс]ерия|[Сс]езон|[Вв]ыпуск)', sTitle, sValue1)) {
bDontAddYear = true;
// bDontShort = true;
HmsRegExMatch('^(.*?)[-/|\\(]', sTitle, sValue1);
if (Pos(sValue1, sParentTitle+sParentParentTitle)>0) {
HmsRegExMatch('([Сс]ерия\\s+\\d+)', sTitle, sTitle);
HmsRegExMatch('(\\s+\\d+[Сс]ерия)', sTitle, sTitle);
HmsRegExMatch('([Вв]ыпуск\\s+\\d+)', sTitle, sTitle);
HmsRegExMatch('(\\s+\\d+[Вв]ыпуск)', sTitle, sTitle);
HmsRegExMatch('(\\d+\\s+[Сс]езон)', sTitle, sTitle);
HmsRegExMatch('([Сс]езон\\d+\\s+)', sTitle, sTitle);
}
}
if (HmsRegExMatch('\\|(.*)', sTitle, sValue2)) {
HmsRegExMatch('^(.*?)[-|\\(]', sTitle, sValue1);
sTitle = sValue1 + ' - ' + sValue2;
}
sValue1 = WONKY307.Values['RemoveFromTitle'];
if (sValue1!='') {
n = WordCount(sValue1, '|');
for (i=1; i<=n; i++) {
sValue2 = ExtractWord(i, sValue1, '|');
sTitle = ReplaceStr(sTitle, sValue2, '');
}
}
if (REMSERIEWORD==1) if (HmsRegExMatch ('([Сс]ерия\\s)', sTitle, sValue1)) sTitle = ReplaceStr(sTitle, sValue1+' ', '');
if (HmsRegExMatch2('^(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format(gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
else if (HmsRegExMatch2('^[Сс]ерия\\s+(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format('Серия '+gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
else if (HmsRegExMatch2('^[Сс]езон\\s+(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format('Сезон '+gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
else if (HmsRegExMatch2('^[Вв]ыпуск\\s+(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format('Выпуск '+gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
if (TITLECASE==0) sTitle = sTitle; // Чтобы много раз потом непроверять, когда там 0
else if (TITLECASE==1) sTitle = Uppercase(sTitle);
else if (TITLECASE==2) sTitle = Uppercase(Copy(sTitle, 1, 1))+Lowercase(Copy(sTitle, 2, 999));
else if (TITLECASE==3) sTitle = NameCase (sTitle);
// Если есть указание добавлять год к названию фильма, то проверяем есть этот год и не есть ли он уже там
if ((YEARINTITLE==1) && !bDontAddYear) if ((Trim(sYear)!='') && (Pos(sYear, sTitle)<1)) sTitle += ' ('+sYear+')';
sTitle = ReplaceStr(sTitle, '/', '-');
return sTitle;
}
// ---------------------------------------------------------------------------------------
// Контроль группировки и подготовка имени группы.
void ControlGrouping(char sTitle, char sYear, bool &bGroupMode, int &nCountInGRP, int &nGroup, char &sGroupName, int iChars=1) {
char sName;
nCountInGRP++;
if ((GROUPMODE==0) && bGroupMode) {
// Группировка обычная, по максимальному количеству элементов в группе
if (sGroupName == '') sGroupName = Format('%.2d', [nGroup]);
if (nCountInGRP>MAXINGROUP) {nGroup++; nCountInGRP=1; sGroupName=Format('%.2d', [nGroup]);}
} else if (GROUPMODE==1) {
// Группировка по алфавиту - первым буквам названия
sName = Uppercase(sTitle);
// Пропускаем первые не алфавитные символы и не цифры
if (!HmsRegExMatch('([0-9A-ZА-Я].*)', sName, sName)) sGroupName = '#'; // Если название вообще из не алфавитных
else sGroupName = LeftCopy(sName, iChars);
if (HmsRegExMatch('\\d', sGroupName, sGroupName)) sGroupName = '#';
if (HmsRegExMatch('[A-Z]', sGroupName, sGroupName)) sGroupName = 'A..Z';
bGroupMode = true;
} else if (GROUPMODE==2) {
// Группировка по алфавиту - первые буквы названия входят в группы А-Г, ...
sName = Uppercase(sTitle);
// Пропускаем первые не алфавитные символы и не цифры
if (!HmsRegExMatch('([0-9A-ZА-Я].*)', sName, sName)) sGroupName = '#'; // Если название вообще из не алфавитных
else sGroupName = LeftCopy(sName, 1);
if (HmsRegExMatch('\\d', sGroupName, sGroupName)) sGroupName = '#';
else if (HmsRegExMatch('[A-Z]', sGroupName, sGroupName)) sGroupName = 'A..Z';
else if (HmsRegExMatch('[А-Г]', sGroupName, sGroupName)) sGroupName = 'А..Г';
else if (HmsRegExMatch('[Д-З]', sGroupName, sGroupName)) sGroupName = 'Д..З';
else if (HmsRegExMatch('[И-Н]', sGroupName, sGroupName)) sGroupName = 'И..Н';
else if (HmsRegExMatch('[О-С]', sGroupName, sGroupName)) sGroupName = 'О..С';
else if (HmsRegExMatch('[Т-Х]', sGroupName, sGroupName)) sGroupName = 'Т..Х';
else if (HmsRegExMatch('[Ц-Я]', sGroupName, sGroupName)) sGroupName = 'Ц..Я';
bGroupMode = true;
} else if (GROUPMODE==3) {
// Группировка по годам (если указан)
sGroupName = sYear;
if (Trim(sGroupName)=='') sGroupName = 'Год неуказан';
bGroupMode = true;
}
}
// ---------------------------------------------------------------------------------------
void LogMe(char sMsg) {
char sText='';
if (DBGFILE=='') return;
if (FileExists(DBGFILE)) sText = HmsStringFromFile(DBGFILE);
HmsStringToFile(sText+Format('%s %s\n', [VarToStr(Now), sMsg]), DBGFILE);
}
// ---------------------------------------------------------------------------------------
// Получить дату в формате HMS.
char Date2HMSFormat(char sDateStr) {
char s='', sYear, sMonth, sDay, sTime;
char sStrMonth ='Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec';
char sStrMonthRus='янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек';
int n;
if (HmsRegExMatch3('(\\d{4}).(\\d{2}).(\\d{2})', sDateStr, sYear, sMonth, sDay, PCRE_SINGLELINE)) {
//'2012-06-12T12:32:16.000Z';
s = sDay+'.'+sMonth+'.'+sYear+' '+Copy(sDateStr,12, 5);
} else if (HmsRegExMatch3('(\\d{2}).(\\w{3}).(\\d{4}).\\d{2}:\\d{2}', sDateStr, sDay, sMonth, sYear, PCRE_SINGLELINE)) {
// 'Wed, 29 Oct 2008 14:14:48 +0000'
for (n=1; n<=12; n++) {if ((ExtractWord(n, sStrMonth, ',')==sMonth)||(ExtractWord(n, sStrMonthRus, ',')==sMonth)) break;}
sMonth = Format("%.2d", [n]);
s = sDay+'.'+sMonth+'.'+sYear+' '+Copy(sDateStr,12, 5);
} else if (HmsRegExMatch3('(\\d{2}).(\\w{3}).(\\d{4})', sDateStr, sDay, sMonth, sYear, PCRE_SINGLELINE)) {
// '23 янв 2008'
for (n=1; n<=12; n++) {if ((ExtractWord(n, sStrMonth, ',')==sMonth)||(ExtractWord(n, sStrMonthRus, ',')==sMonth)) break;}
sMonth = Format("%.2d", [n]);
s = sDay+'.'+sMonth+'.'+sYear+' '+Copy(sDateStr,12, 5);
}
return s;
}
// ---------------------------------------------------------------------------------------
// Получить длительность в формате HMS.
char GetTimeLength(char sDura) {
int nH, nM, nS, nSecs, nMins; char sH, sM, sS;
if (Pos(':', sDura)>0) {
// Если там есть двоеточие, то думаем что там минуты:секунды или даже ещё и часы
sDura=HmsHtmlToText(sDura);
if (WordCount(sDura, ':')==3) {
HmsRegExMatch('(\\d*:\\d*:\\d\\d?)', sDura, sDura, 1, PCRE_SINGLELINE); // Убираем левые символы (не цифры). Бывает такое.
nH = StrToIntDef(ExtractWord(1, sDura, ':'), 0);
nM = StrToIntDef(ExtractWord(2, sDura, ':'), 0);
nS = StrToIntDef(ExtractWord(3, sDura, ':'), 0);
} else if (WordCount(sDura, ':')==2) {
HmsRegExMatch('(\\d*:\\d\\d?)', sDura, sDura, 1, PCRE_SINGLELINE);
nM = StrToIntDef(ExtractWord(1, sDura, ':'), 0);
nS = StrToIntDef(ExtractWord(2, sDura, ':'), 0);
nH = Trunc(nM/60);
nM = nM-(nH*60);
} else return sDura;
} else if ((Pos('мин', sDura)>0)||(Pos('min', sDura)>0)) {
HmsRegExMatch('([\\d]+)', sDura, sDura);
nMins = StrToIntDef(sDura, 0);
nH = Trunc(nMins/60);
nM = nMins-(nH*60);
nS = 0;
} else if (HmsRegExMatch2('(\\d+)m(\\d+)s', sDura, sM, sS)) {
nM = StrToIntDef(sM, 0);
nS = StrToIntDef(sS, 0);
nH = Trunc(nM/60);
nM = nM-(nH*60);
} else {
// Иначе будем думать, что в переданном параметре - количество секунд.
HmsRegExMatch('([\\d]+)', sDura, sDura); // Убираем левые символы (не цифры)
nSecs = StrToIntDef(sDura, 0);
nH = Trunc(nSecs/60/60);
nM = Trunc(nSecs/60)-(nH*60);
nS = nSecs-(nM*60)-(nH*60*60);
}
return format("%.2d:%.2d:%.2d.000", [nH, nM, nS]);
}
// ---------------------------------------------------------------------------------------
// Найти в тексте информацию медиаресурса (название, ссылка, эскиз и т.д.) и запомнить в объекте TStrings ItemInfo
// (3-я из 4-х главных функций)
TStrings FindAndFillInfo(char sText, TStrings WONKYBLK, Variant prntItem, bool bAdd=false) {
char sValue, sParamName, sRegExpr, sY, sM, sD, s; int i, nParamId, n, nExcludes;
TStrings WONKYOBJECT, ItemInfo = TStringList.Create();
for (i=0; i<WONKYBLK.Count; i++) {
sParamName = WONKYBLK.Names[i]; sValue = '';
if (sParamName=='') {
sParamName = WONKYBLK.Strings(i);
if (GetWonkyObject(WONKYBLK, sParamName, WONKYOBJECT, ItemInfo)) {
if (LeftCopy(sParamName, 7)=='Exclude') {ItemInfo.Clear(); return ItemInfo;}
}
continue;
} else {
sRegExpr = WONKYBLK.Values[sParamName];
}
if (sRegExpr=='') continue;
s = LeftCopy(sParamName, 7);
if (s=='Exclude') {
if (HmsRegExMatch(sRegExpr, sText, sValue, 1, PCRE_SINGLELINE)) {ItemInfo.Clear(); return ItemInfo;}
} else if (s=='TitlCut') {
if (HmsRegExMatch(sRegExpr, ItemInfo.Values['mpiTitle'], sValue, 1, PCRE_SINGLELINE)) {
ItemInfo.Values['mpiTitle'] = ReplaceStr(ItemInfo.Values['mpiTitle'], sValue, '');
}
}
nParamId = GetIdByParamName(sParamName); if (nParamId==0 ) continue;
if (sRegExpr == 'inherit') sValue = prntItem[nParamId];
else if (Pos('(', sRegExpr)<=0) sValue = sRegExpr;
else if (!HmsRegExMatch(sRegExpr, sText, sValue, 1, PCRE_SINGLELINE)) {
n=2; sRegExpr = WONKYBLK.Values[sParamName+IntToStr(n)];
while (sRegExpr!='') {
if (sRegExpr == 'inherit') {sValue = prntItem[nParamId]; break;}
else if (Pos('(', sRegExpr)<=0) {sValue = sRegExpr; break;}
else if (!HmsRegExMatch(sRegExpr, sText, sValue, 1, PCRE_SINGLELINE)) {
n++; sRegExpr = WONKYBLK.Values[sParamName+IntToStr(n)];
} else sRegExpr = '';
}
}
if (sValue == '') continue;
if ((nParamId==mpiThumbnail)||(nParamId==mpiFilePath)) { // Если это ссылки
// Если это ссылки, то проверяем некоторые случаи (добавляем к неполным ссылкам UrlBase)
HmsRegExMatch('src=["\'](.*?)["\']', sValue, sValue, 1, PCRE_SINGLELINE);
HmsRegExMatch('href=["\'](.*?)["\']', sValue, sValue, 1, PCRE_SINGLELINE);
sValue = CompleteLink(sValue);
// Если в ссылках встречаются русские символы - делаем их безопасными
if (HmsRegExMatch('^.*?([а-яА-Я].*)', sValue, s, 1, PCRE_SINGLELINE)) sValue = ReplaceStr(sValue, s, HmsHttpEncode(HmsUtf8Encode(s)));
}
sValue = Trim(ReplaceStr(HmsHtmlToText(sValue), #160, ' ')); // Заменяем пробел на обычный
if (Pos('</', sValue)>0) sValue=HmsHtmlToText(sValue);
sValue = ReplaceStr(sValue, '\r\n', '. ');
if (CheckWonkyParam(WONKYBLK, 'ToUTF8')) sValue=HmsHtmlToText(sValue, 65001);
if ( nParamId==mpiCreateDate) sValue=Date2HMSFormat(sValue);
else if ( nParamId==mpiTimeLength) sValue=GetTimeLength (sValue);
else if ( nParamId==mpiYear ) HmsRegExMatch('([\\d]{4})', sValue, sValue, 1, PCRE_SINGLELINE); // Только цифры, ничего лишнего
ItemInfo.Values[sParamName] = sValue;
}
if (ItemInfo.Values['mpiCreateDate']=='') ItemInfo.Values['mpiCreateDate'] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0));
if (WONKYBLK.IndexOfName('SetParams')>=0) ItemInfo.Values['mpiPodcastParameters']+= WONKYBLK.Values['SetParams'];
if (ItemInfo.Values['mpiTimeLength']=='') ItemInfo.Values['mpiTimeLength'] = '01:40:00.000';
if (ItemInfo.Values['mpiTitle']!='') ItemInfo.Values['mpiTitle'] = NormalizeTitle(ItemInfo.Values['mpiTitle'], ItemInfo.Values['mpiYear']);
if (ItemInfo.Values['mpiFilePath'] =='') ItemInfo.Values['mpiFilePath'] = ItemInfo.Values['mpiTitle'];
if (Trim(prntItem[500])!='') {
ItemInfo.Values['id200'] = prntItem[200]; // mpiFolderType
ItemInfo.Values['id500'] = prntItem[500]; // mpiDynamicScript
ItemInfo.Values['id501'] = prntItem[501]; // mpiDynamicSyntaxType
ItemInfo.Values['id39000'] = prntItem[39000]; // Cookies
}
if (!bAdd && (ItemInfo.Values['mpiTitle']=='')) ItemInfo.Clear();
return ItemInfo;
}
// -------------- Проверка и приведение, если нужно, ссылки к полному виду ----
char CompleteLink(char sLink) {
if (LeftCopy(sLink, 4)!='http') {
if (LeftCopy(sLink, 2)=='//') sLink = 'http:' + Trim(sLink);
else if (LeftCopy(sLink, 1)!='/' ) sLink = gsUrlBase + '/' + Trim(sLink);
else sLink = gsUrlBase + Trim(sLink);
}
return sLink;
}
// ---------------------------------------------------------------------------------------
// Перекидывание информации из блока-хранилища TStrings в элемент подкаста
void StoreInfoToPodcast(TStrings ItemInfo, THmsScriptMediaItem Item) {
int i, nPropId; char sPropName;
if (ItemInfo.Count<1) return;
for (i=0; i<ItemInfo.Count; i++) {
sPropName = ItemInfo.Names[i];
nPropId = GetIdByParamName(sPropName);
if ((FolderItem==Item) && (nPropId==mpiCreateDate)) continue;
Item[nPropId] = ItemInfo.Values[sPropName];
}
}
// ---------------------------------------------------------------------------------------
THmsScriptMediaItem CreateInFolder(TStrings WONKYBLK, THmsScriptMediaItem PrntFolder, TStrings ItemInfo) {
THmsScriptMediaItem NewFolder = PrntFolder; int i; Variant WONKYOBJECT, WOBJECT; string sName;
if (GetWonkyObject(WONKYBLK, 'Folders', WONKYOBJECT, PrntFolder)) {
for (i=0; i<WONKYOBJECT.Count; i++) {
WOBJECT = WONKYOBJECT.Objects[i]; if (WOBJECT==nil) continue;
if (!CheckObjectCondition(WOBJECT, ItemInfo)) continue;
sName = WOBJECT.Values['mpiTitle'];
NewFolder = PrntFolder.AddFolder(sName);
break;
}
}
return NewFolder;
}
// ---------------------------------------------------------------------------------------
// Поиск в тексте блоков с информацией о видео (2-я из 4-х главных функций)
void ProcessFindItems(char sText, TStrings WONKYBLK_IN, THmsScriptMediaItem ParentItem) {
int n, i, nIndxBlk, nItems, nItemsTotal, nGroup=0, nCountInGRP=0, nParamId, nOldSHOWPRGRS, nItemsAdded=0, nVal;
bool bGroupMode=false, bForceFolder; char sGroupName='', sHtmlBlock, sValue;
int GROUPMODE_OLD; TStrings ItemInfo; Variant WONKYOBJECT, WONKYBLK = WONKYBLK_IN;
THmsScriptMediaItem Item, ItemCh, ItemFolder, ItemOrigFolder;
// Если информации для поиска нет вообще или неустановлен параметр SearchBlock - то нам тут и работы нет
if ((WONKYBLK.Count<1)||(WONKYBLK.Values['SearchBlock']=='')) return;
sValue = WONKYBLK.Values['UrlBase' ]; if (sValue!='') gsUrlBase = ReplaceWonkyVars(sValue);
sValue = WONKYBLK.Values['CutBlock' ]; if (sValue!='') HmsRegExMatch(sValue, sText, sText, 1, PCRE_SINGLELINE);
sValue = WONKYBLK.Values['TitleCase']; if (sValue!='') {
if (sValue == 'upper') TITLECASE = 1;
if (sValue == 'first') TITLECASE = 2;
if (sValue == 'name' ) TITLECASE = 3;
if (sValue == 'none' ) TITLECASE = 0;
}
// Определяем количество элементов
nItemsTotal = GetCountOf(sText, WONKYBLK.Values['SearchBlock']);
LogMe('ProcessFindItems: nItemsTotal='+IntToStr(nItemsTotal)+'; SearchBlock='+WONKYBLK.Values['SearchBlock']);
if (nItemsTotal<1) return;
// Если родительский элемент не является папкой - делаем из неё таковую
if (!ParentItem.IsFolder) {
if (WONKYBLK.IndexOfName('ForceFolder')>=0) bForceFolder=CheckWonkyParam(WONKYBLK, 'ForceFolder');
else bForceFolder = (ParentItem[mpiFilePath]==ParentItem[mpiTitle]);
ItemFolder = ParentItem.ItemParent.AddFolder(ParentItem[mpiFilePath]+'_f', bForceFolder);
for (i=0; i<Length(gaProps4Copy); i++) {n = gaProps4Copy[i]; ItemFolder[n] = ParentItem[n];}
ParentItem.Delete();
} else ItemFolder = ParentItem;
// Если элементов больше MAXINGROUP, включаем группировку
MAXINGROUP = StrToIntDef(WONKYBLK.Values['MaxInGroup'], MAXINGROUP);
bGroupMode = (nItemsTotal>MAXINGROUP);
ItemOrigFolder = ItemFolder;
// Подготовка к запуску поискового модуля TRegExpr - вставляем запрограммированный поисковой блок
TRegExpr reSearch = TRegExpr.Create(WONKYBLK.Values['SearchBlock'], PCRE_SINGLELINE);
if (reSearch.Search(sText)) do {
// Нашли в тексте блок с информацией о видео
sValue = WONKYBLK.Values['SkipIf'];
if (sValue!='') if (HmsRegExMatch(sValue, reSearch.Match, sValue, 1, PCRE_SINGLELINE)) continue;
sValue = WONKYBLK.Values['SkipNotIf'];
if (sValue!='') if (!HmsRegExMatch(sValue, reSearch.Match, sValue, 1, PCRE_SINGLELINE)) continue;
nItems++; gnTotalItems++;
ItemFolder = ItemOrigFolder;
WONKYBLK = WONKYBLK_IN;
if (HmsCancelPressed()) RaiseException('Прервано.');
if (SHOWPROGRESS==1) HmsSetProgress(Trunc(nItems*100/nItemsTotal));
VARS.Values['<TEXTITEM>'] = reSearch.Match;
// Поиск информации о найденном видео
if (GetWonkyObject(WONKYBLK, 'ConditionBlocks', WONKYOBJECT, ItemFolder)) WONKYBLK = WONKYOBJECT;
ItemInfo = FindAndFillInfo(reSearch.Match, WONKYBLK, ItemFolder);
if (ItemInfo.Count==0) continue;
ControlGrouping(ItemInfo.Values['mpiTitle'], ItemInfo.Values['mpiYear'], bGroupMode, nCountInGRP, nGroup, sGroupName);
if (NUMBERING==1) {
if (nItemsTotal>99) ItemInfo.Values['mpiTitle'] = Format('%.3d. %s', [nCountInGRP, ItemInfo.Values['mpiTitle']]);
else ItemInfo.Values['mpiTitle'] = Format('%.2d. %s', [nCountInGRP, ItemInfo.Values['mpiTitle']]);
}
// add in 307.40
if (GetWonkyObject(WONKYBLK, 'CreateInFolders', WONKYOBJECT, ItemInfo)) ItemFolder = CreateInFolder(WONKYOBJECT, ItemFolder, ItemInfo);
if (W_MODE==1) {
if (GetWonkyObject(WONKYBLK, 'ForceFolder', WONKYOBJECT, ItemFolder)) bForceFolder = true;
else bForceFolder = (ItemInfo.Values['mpiFilePath']==ItemInfo.Values['mpiTitle']);
if (CheckWonkyParam(WONKYBLK, 'ForcePodcast')) bForceFolder=false;
Item = ItemFolder.AddFolder(ItemInfo.Values['mpiFilePath'], bForceFolder);
sValue = WONKYBLK.Values['NumPages']; if (sValue!='') {
sHtmlBlock = LoadURL(ItemInfo.Values['mpiFilePath']);
if (HmsRegExMatch(sValue, sHtmlBlock, sValue, 1, PCRE_SINGLELINE)) ItemInfo.Values['mpiPodcastParameters']+= ' --pages='+Trim(sValue);
}
} else {
if ((ITEMASFOLDER>0) && ((ITEMASFOLDER==1) || GetWonkyObject(WONKYBLK, 'ForceFolder', WONKYOBJECT, ItemFolder) || CheckWonkyParam(WONKYBLK, 'ForceFolder'))) {
if (Trim(ItemFolder[500])!='') i = 32; else i = -1;
if (sGroupName != '') Item = ItemFolder.AddFolder(sGroupName+'\\'+ItemInfo.Values['mpiFilePath'], true, i);
else Item = ItemFolder.AddFolder(ItemInfo.Values['mpiFilePath'], true, i);
} else {
if (sGroupName != '') {
Item = ItemFolder.AddFolder(sGroupName, false);
if (Trim(Item[mpiCreateDate])=='') Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0));
Item = HmsCreateMediaItem(ItemInfo.Values['mpiFilePath'], Item.ItemID);
} else {
Item = HmsCreateMediaItem(ItemInfo.Values['mpiFilePath'], ItemFolder.ItemID);
}
}
}
StoreInfoToPodcast(ItemInfo, Item); // И заполняем найденной информацией
if (COLLECTING==1) CollectTheItem(Item, bGroupMode, nCountInGRP, nGroup, sGroupName);
//if (GROUPMODE==0) Item.ItemParent[mpiFolderSortOrder] = -mpiCreateDate;
if ( (GROUPMODE==1) || (GROUPMODE==2) ) {
Item.ItemParent.ItemParent[mpiFolderSortOrder] = mpiTitle;
Item.ItemParent[mpiFolderSortOrder] = mpiTitle;
} else if (GROUPMODE==3) {
Item.ItemParent.ItemParent[mpiFolderSortOrder] = -mpiTitle;
Item.ItemParent[mpiFolderSortOrder] = mpiTitle;
}
VARS.Values['<FILEPATH>'] = Item[mpiFilePath];
VARS.Values['<TITLE>'] = Item[mpiTitle];
VARS.Values['<TITLE4SEARCH>'] = GetTitle4Search(Item);
if (Trim(Item[mpiThumbnail])=='') Item[mpiThumbnail] = Item.ItemParent[mpiThumbnail];
nItemsAdded++;
sValue = WONKYBLK.Values['TitleFormat']; if (sValue != '') Item[mpiTitle] = Format(sValue, [nItemsAdded, Item[mpiTitle]]);
nVal = StrToIntDef(WONKYBLK.Values['LimitItems'], 0);
if ((nVal>0) && (nItemsAdded>=nVal)) break;
GetWonkyObject(WONKYBLK, 'GetVars', WONKYOBJECT, Item);
if (GetWonkyObject(WONKYBLK, 'ChangeValues', WONKYOBJECT, Item)) WonkyChangeValues(WONKYOBJECT, Item);
nOldSHOWPRGRS = SHOWPROGRESS; SHOWPROGRESS = 0; // Запоминаем флаг и в более глубоких циклах не показываем
// Если есть ссылка и команда на разрешение заглядывать внутрь по ссылке - загружаем
if ((LOADFROMLINKS==1)&&(GetWonkyObject(WONKYBLK, 'LoadLink', WONKYOBJECT, ParentItem))) {
GROUPMODE_OLD = GROUPMODE; GROUPMODE = 0;
if ((WONKYOBJECT!=0) && (LeftCopy(Item[mpiFilePath], 4)=='http')) LoadPages(WONKYOBJECT, Item); // Если есть инструкции загружать - загружаем
GROUPMODE = GROUPMODE_OLD;
}
// Проверяем, установлен ли блок поиска подчинённых элементов
if (GetWonkyObject(WONKYBLK, 'SearchItems', WONKYOBJECT, ParentItem)) {
GROUPMODE_OLD = GROUPMODE; GROUPMODE = 0;
ProcessFindItems(reSearch.Match, WONKYOBJECT, Item);
GROUPMODE = GROUPMODE_OLD;
}
SHOWPROGRESS = nOldSHOWPRGRS; // Воссстанавливаем значение флага показа прогресса выполнения
if (WONKYBLK.IndexOfName('DeleteIfEmpty')>=0) if (!Item.HasChildItems()) Item.Delete();
} while (reSearch.SearchAgain());
reSearch.Free();
return;
}
// ---------------------------------------------------------------------------------------
// Присвоение нового значения полю (если указано условие, то с его проверкой)
void WonkyChangeValues(TStrings WONKYOBJECT, THmsScriptMediaItem ParentItem) {
int n, i, nParamId; char sOldName, sValue, sField; Variant SUBBLOCK;
VARS.Values['<FILEPATH>'] = ParentItem[mpiFilePath];
VARS.Values['<TITLE>'] = ParentItem[mpiTitle];
for (n=0; n<WONKYOBJECT.Count; n++) {
SUBBLOCK = WONKYOBJECT.Objects(n); if (SUBBLOCK==0) continue;
if (!CheckObjectCondition(SUBBLOCK, ParentItem)) continue;
for (i=0; i<SUBBLOCK.Count; i++) {
sField = SUBBLOCK.Names[i]; if (sField=='') continue;
sValue = SUBBLOCK.Values[sField];
if (Pos('<', sValue)>0) sValue = ReplaceWonkyVars(sValue);
if (HmsRegExMatch('^[A-Z]+$', sField, sField, 0, 2)) {VARS.Values['<'+sField+'>']=sValue; continue;}
nParamId = GetIdByParamName(sField); if (nParamId==0) continue;
if (nParamId==mpiFilePath) sOldName = ParentItem[mpiTitle]; // Смена ссылки может изменить имя
ParentItem[nParamId] = sValue;
if (nParamId==mpiFilePath) ParentItem[mpiTitle] = sOldName; // Приходиться восстанавливать его
}
LogMe('Сработало ChangeValues: '+sField+'='+sValue);
}
}
// ---------------------------------------------------------------------------------------
// Обработка блока AfterLoad после загрузки страницы
void AfterLoadPageBlock(char sText, TStrings WONKYBLK, THmsScriptMediaItem ParentItem) {
Variant WONKYOBJECT, SUBBLOCK;
GetWonkyObject(WONKYBLK, 'GetVars', WONKYOBJECT, ParentItem);
if (GetWonkyObject(WONKYBLK, 'ChangeValues', WONKYOBJECT, ParentItem)) WonkyChangeValues(WONKYOBJECT, ParentItem);
if (GetWonkyObject(WONKYBLK, 'LoginRequest', WONKYOBJECT, ParentItem)) LoginRequest(WONKYOBJECT, ParentItem);
if (GetWonkyObject(WONKYBLK, 'CreateItems', WONKYOBJECT, ParentItem)) CreateItems(WONKYOBJECT, ParentItem);
}
// ---------------------------------------------------------------------------------------
// Подсчёт количества блоков в тексте
int GetCountOf(char sText, char substring) {
int n=0; TRegExpr re = TRegExpr.Create(substring, PCRE_SINGLELINE);
if ((trim(sText)=='')||(trim(substring)=='')||(trim(substring)=='(.*?)')) return 0;
if (re.Search(sText)) do n++; while (re.SearchAgain);
re.Free; return n;
}
// ---------------------------------------------------------------------------------------
// Проверка логического параметра робота
bool CheckWonkyParam(TStrings WONKYOBJECT, char sParamName) {
char s = Uppercase(LeftCopy(Trim(WONKYOBJECT.Values[sParamName]), 1));
return ((s=='Y')||(s=='1'));
}
// ---------------------------------------------------------------------------------------
// Заменяет шаблоны переменных типа <TITLE>, <FILEPATH> и всех других на их значения
char ReplaceWonkyVars(char sData) {
char sVarName, sVarValue;
for (int i=0; i<VARS.Count; i++) {
sVarName = VARS.Names[i];
sVarValue = VARS.Values[sVarName];
if (Pos(sVarName, sData)>0) sData = ReplaceStr(sData, sVarName, sVarValue);
}
return sData;
}
// ---------------------------------------------------------------------------------------
// Получить строку
char GetValueFromIdsWithFormats(Variant ParentItem, char Ids, char sFormat='') {
Variant aVals = ['','','','','','','','','','']; int i, n, nParamId; char sField, sValue='';
n = WordCount(Ids, ',');
if (n > Length(aVals)) n = Length(aVals);
if (sFormat=='') n = 1;
for (i=0; i<n; i++) {
sValue = Trim(ExtractWord(i+1, Ids, ','));
nParamId = GetIdByParamName(sValue); if (nParamId!=0) sValue = ParentItem.Values[sValue];
aVals[i] = sValue;
}
if (sFormat!='') if ((aVals[0]+aVals[1])=='') sValue=''; else sValue=Format(sFormat, aVals);
return sValue;
}
// ---------------------------------------------------------------------------------------
// Проверить наличие условий и выполняются ли они
bool CheckObjectCondition(Variant WONKYOBJECT, Variant ParentItem) {
char sField, sFCond, sValue='', sText; int nParamId; bool bNegative, bFound;
sFCond = WONKYOBJECT.Values['IfKey'];
if (sFCond!='') if (Pos(sFCond, mpPodcastParameters)<1) return false;
sField = WONKYOBJECT.Values['ConditionField'];
sFCond = WONKYOBJECT.Values['ConditionExp' ];
if ((sField=='')||(sFCond=='')) return true;
bNegative = CheckWonkyParam(WONKYOBJECT, 'Negative');
if (HmsRegExMatch('^<\\w+>$', sField, '')) {
sText = VARS.Values[sField];
} else if (ParentItem.ClassName == 'TStringList') {
sText = ParentItem.Values[sField];
} else {
nParamId = GetIdByParamName(sField); if (nParamId==0) return true;
sText = ParentItem[nParamId];
}
bFound = HmsRegExMatch(sFCond, sText, sValue, 1, PCRE_SINGLELINE) ^ bNegative;
if (bFound) {
if (sValue == '') sValue = sFCond;
if (DBGFILE!= '') LogMe('CONDITION: '+sField+' : '+sFCond+'\n<CONDVAL>='+LeftCopy(sValue, 100));
VARS.Values['<CONDVAL>'] = sValue;
}
return bFound;
}
// ---------------------------------------------------------------------------------------
// Проверить на наличие объекта с именем sObjName. Если есть, то WONKYOBJECT будет содержать ссылку на него.
// (4-я из 4-х главных функций)
bool GetWonkyObject(TStrings WONKYBLK, char sObjName, Variant &WONKYOBJECT, Variant ParentItem) {
Variant SUBOBJECT; int n, nParamId; bool bFound=false, bNeg=false;
char sParamName, sValue, sField, sFCond, sVarName, sWhere, sRESearch, sWhereText;
if (sObjName=='Condition') bFound=true;
int nIndxBlk = WONKYBLK.IndexOf(sObjName); if (nIndxBlk<0) return bFound;
WONKYOBJECT = WONKYBLK.Objects[nIndxBlk]; if (WONKYOBJECT==0) return bFound;
if (!CheckObjectCondition(WONKYOBJECT, ParentItem)) return false;
if (!GetWonkyObject(WONKYOBJECT, 'Condition', SUBOBJECT, ParentItem)) return false;
// Проверим на некоторые объекты для дополнительных действий
if (sObjName=='Headers') {
for (n=0; n<WONKYOBJECT.Count; n++) {
sParamName = WONKYOBJECT.Names[n]; // sParamName может быть User-Agent, Accept-Charset, Referer...
if (HmsRegExMatch(sParamName+': (.*?)\n', gsHeaders, sValue, 1, 4))
gsHeaders = ReplaceStr(gsHeaders, sValue, WONKYOBJECT.Values[sParamName]);
else
gsHeaders+= sParamName+': '+WONKYOBJECT.Values[sParamName]+#10#13;
}
n = 0;
} else if (sObjName=='ConditionBlocks') {
bFound = false;
for (n=0; n<WONKYOBJECT.Count; n++) {
SUBOBJECT = WONKYOBJECT.Objects[n]; if (SUBOBJECT==0) continue;
if (!GetWonkyObject(SUBOBJECT, 'Condition', SUBOBJECT, ParentItem)) continue;
WONKYOBJECT = SUBOBJECT; bFound = true; break;
}
return bFound;
} else if (LeftCopy(sObjName, 6)=='Format' ) {
for (n=0; n<WONKYOBJECT.Count; n++) {
sField = WONKYOBJECT.Names[n]; if (sField =='') continue;
nParamId = GetIdByParamName(sField); if (nParamId==0) continue;
sValue = WONKYOBJECT.Values[sField];
if (HmsRegExMatch2('[\'](.*?)[\'].*\\[(.*?)\\]', sValue, sFCond, sValue, PCRE_SINGLELINE)) {
sValue = GetValueFromIdsWithFormats(ParentItem, sValue, sFCond);
}
if (sValue!='') {
if (ParentItem.ClassName == 'TStringList') ParentItem.Values[sField] = sValue;
else ParentItem[nParamId] = sValue;
}
}
return true;
} else if (LeftCopy(sObjName, 8)=='AddParam' ) {
for (n=0; n<WONKYOBJECT.Count; n++) {
sField = WONKYOBJECT.Names[n]; if (sField =='') continue;
nParamId = GetIdByParamName(sField); if (nParamId==0) continue;
sValue = WONKYOBJECT.Values[sField];
if (HmsRegExMatch2('Format\\([\'](.*?)[\'].*?\\[(.*?)\\]', sValue, sFCond, sValue, PCRE_SINGLELINE)) {
sValue = GetValueFromIdsWithFormats(ParentItem, sValue, sFCond);
}
if (ParentItem.ClassName == 'TStringList') {
ParentItem.Values[sField] += ' ' + sValue;
} else {
ParentItem[nParamId] += ' ' + sValue;
}
}
return true;
} else if (sObjName=='ConditionBlocks') {
bFound = false;
for (n=0; n<WONKYOBJECT.Count; n++) {
SUBOBJECT = WONKYOBJECT.Objects[n]; if (SUBOBJECT==0) continue;
if (!GetWonkyObject(SUBOBJECT, 'Condition', SUBOBJECT, ParentItem)) continue;
WONKYOBJECT = SUBOBJECT; bFound = true; break;
}
return bFound;
} else if (sObjName=='GetVars') {
// Блок получения значения переменных по заданным правилам
for (n=0; n<WONKYOBJECT.Count; n++) {
SUBOBJECT = WONKYOBJECT.Objects[n]; if (SUBOBJECT==0) continue;
sVarName = SUBOBJECT.Values('VarName');
sWhere = SUBOBJECT.Values('Where');
sRESearch = SUBOBJECT.Values('RESearch');
if (HmsRegExMatch('^<\\w+>$', sWhere, sValue)) sWhereText=VARS.Values[sWhere];
else {
nParamId = GetIdByParamName(sWhere); if (nParamId==0) continue;
if (ParentItem.ClassName == 'TStringList') {
sWhereText = ParentItem.Values[sField];
} else {
sWhereText = ParentItem[nParamId];
}
}
sValue = '';
HmsRegExMatch(sRESearch, sWhereText, sValue, 1, PCRE_SINGLELINE);
VARS.Values[sVarName] = sValue;
LogMe('GetVars: '+sVarName+'='+sValue);
}
}
return true;
}
// ---------------------------------------------------------------------------------------
// Получить из строкового в числовое значение параметра медиаресурса
int GetIdByParamName(char sParamName) {
char sValue;
if (HmsRegExMatch('^id(\\d+)', sParamName, sValue)) return StrToInt(sValue);
return StrToIntDef(Evaluate(sParamName), 0);
}
// ---------------------------------------------------------------------------------------
// Yaml parser. Загружает конфиг в TStrings. 80 строк непонятного кода, дающие удобство.
Variant whYamlParser(char sFunc, TStrings &oRESULT, Variant Param = '') {
int i, n, nRows, nRows2, nIdent, nIndxObj; char sLine, sValue; Variant oPath, CurObject = oRESULT;
char sNextLine, sChar, sKey; bool bExistChild, bContinue;
// Проверка имени вызываемой функции нашего "какбуд-то класса"
if (sFunc=='LoadFromString') {
nIndxObj = oRESULT.AddObject('_YAMLPath', TStringList.Create());
oPath = oRESULT.Objects(nIndxObj);
nRows = WordCount(Param, '\n');
for (i=1; i<=nRows; i++) {
sLine = ExtractWord(i, Param, '\n');
nIdent = Length(sLine) - Length(TrimLeft(sLine));
sLine = TrimLeft(sLine);
if (whYamlParser('_IsComment', CurObject, sLine)) continue;
CurObject = whYamlParser('_GetParentByIdent', oRESULT, nIdent);
bExistChild=false; // Проверим, есть ли дочерние элементы (смещение следущей строки больше чем наше)
for (n=i+1; n<=nRows; n++) {
sNextLine = ExtractWord(n, Param, '\n');
if (whYamlParser('_IsComment', CurObject, Trim(sNextLine))) continue;
bExistChild=(Length(sNextLine)-Length(TrimLeft(sNextLine))>nIdent); break;
}
HmsRegExMatch('^-\\s*?(.*)', sLine, sLine);
sKey = ''; // Пробуем получить ключ, если получилось, то потом получаем и значение (иначе всё значение)
if (HmsRegExMatch('^([\\w-]+)\\s*?:', sLine, sKey)) HmsRegExMatch('^[\\w-]+\\s*?:\\s*?(.*)', sLine, sLine);
else sKey = IntToStr(CurObject.Count);
if (bExistChild) {
nIndxObj = CurObject.AddObject(sKey, TStringList.Create());
CurObject = CurObject.Objects(nIndxObj);
oPath.AddObject(IntToStr(nIdent), CurObject);
if (Trim(sLine)=='') continue;
}
if (HmsRegExMatch('^{(.*)}', sLine, sNextLine)) { // Проверяем, если это Map блок {}
nIndxObj = CurObject.AddObject(sKey, TStringList.Create());
CurObject = CurObject.Objects(nIndxObj);
nRows2 = WordCount(sNextLine, ','); bContinue = false;
for (n=1; n<=nRows2; n++) {
if (bContinue) sValue = sLine+','; else sValue = '';
sLine = sValue + ExtractWord(n, sNextLine, ',');
if (!bContinue) {
if (HmsRegExMatch('^\\s*?([\\w-]+)\\s*?:', sLine, sKey)) {
HmsRegExMatch('^\\s*?[\\w-]+\\s*?:\\s*?(.*/)', sLine+'/', sLine);
sLine = LeftCopy(sLine, Length(sLine)-1);
} else sKey = IntToStr(CurObject.Count);
}
if (HmsRegExMatch2('^([\'"]).*([^\\s])\\s*?$', sLine, sChar, sValue)) if ((sChar!=sValue)&&(n!=nRows2)) {bContinue=true; continue;}
HmsRegExMatch('^[\'"](.*)[\'"]', sLine, sLine); // --11--
CurObject.Values[sKey] = sLine;
bContinue=false;
}
continue;
}
if (HmsRegExMatch('^([\'"])', sLine, sChar)) HmsRegExMatch('^'+sChar+'(.*)'+sChar, sLine, sLine);
else HmsRegExMatch('^(.*)#', sLine, sLine); // Отсекаем комментарий
CurObject.Values[sKey] = sLine;
}
oRESULT.Delete(oRESULT.IndexOfObject(oPath));
oPath.Free();
} else if (sFunc=='SaveToString') {
sValue = '';
for (i=0; i<oRESULT.Count; i++) {
sValue = sValue + Param + oRESULT.Strings(i) + '\n';
CurObject = oRESULT.Objects(i);
if (CurObject!=0) sValue = sValue + whYamlParser('SaveToString', CurObject, Param+' ');
}
return sValue;
} else if (sFunc=='_IsComment') {
if ((Trim(Param)=='') || (LeftCopy(Param, 1)=='#') || (Trim(Param)=='---')) return true;
return false;
} else if (sFunc=='_GetParentByIdent') {
nIndxObj = oRESULT.IndexOf('_YAMLPath'); if (nIndxObj <0) return oRESULT;
oPath = oRESULT.Objects(nIndxObj); if (oPath.Count<1) return oRESULT;
for (i=oPath.Count-1; i>=0; i--) {
nIdent = StrToIntDef(oPath.Strings(i), 0);
if (Param>nIdent) {CurObject = oPath.Objects(i); break;}
else oPath.Delete(i);
}
return CurObject;
}
}
// ---------------------------------------------------------------------------------------
// Возвращает http кодированное название
char GetTitle4Search(THmsScriptMediaItem Item) {
char sTitle = Trim(Item[mpiTitle]);
sTitle = ReplaceStr(sTitle, '"', '' ); // Убираем кавычки - мешают при поиске
if (WONKY307.Values['NoUtfTitle4Search']=='') {
if (Pos('(site:', sTitle)<1) sTitle = HmsHttpEncode(HmsUtf8Encode(sTitle));
} else {
if (Pos('(site:', sTitle)<1) sTitle = HmsHttpEncode(sTitle);
}
// Символ '+' в ссылке папки подкаста - это значит добавить имя папки к поиску имени подкаста
// Если не указан запрещающие параметр --minusfolder в подкасте
if (LeftCopy(Item.ItemParent[mpiFilePath], 4)!='http')
if ((Pos('+', Item.ItemParent[mpiFilePath])==1)&&(Pos('--minusfolder', Item[mpiPodcastParameters])<1))
sTitle=Trim(Item.ItemParent[mpiTitle])+'+'+Trim(sTitle);
if (LeftCopy(Item.ItemParent.ItemParent[mpiFilePath], 4)!='http')
if ((Pos('+', Item.ItemParent.ItemParent[mpiFilePath])==1)&&(Pos('--minusfolder', Item[mpiPodcastParameters])<1))
sTitle=Trim(Item.ItemParent.ItemParent[mpiTitle])+'+'+Trim(sTitle);
sTitle = ReplaceStr(sTitle, ' ', '+');
return sTitle;
}
// ---------------------------------------------------------------------------------------
// Загрузка Страниц (1-я из 4-х главных функций)
void LoadPages(TStrings WONKYBLK, THmsScriptMediaItem ParentItem) {
int n, nIndxBlk, nBlocks, nBlk, nParamId, nField; char sLink, sValue, sPage, sHtml, sParamName, sPgs='';
Variant WONKYOBJECT, SUBBLOCK; TStrings ItemInfo; char sCondField, sCond; bool bFirstPage=true;
char sQBase='', sQLink='', sQMeth='GET', sQData='';
// nPages - Количество страниц
// nFirstPage - С какого номера начинать
// nPageMul - Множитель номера страницы
// sPageParam - Шаблон строки части адреса, где вместо <PN> будет
// подставляться номер страницы (например '?page=<PN>', '' - выключено)
int nPages = 1;
int nFirstPage = 0;
int nPageMul = 1;
string sPageParam = '';
// Видвижение блока с информацией о том сколько и как загружать страницы
if (GetWonkyObject(WONKYBLK, 'PagesInfo', WONKYOBJECT, ParentItem)) {
nPages = StrToIntDef(WONKYOBJECT.Values['Pages' ], nPages );
nFirstPage = StrToIntDef(WONKYOBJECT.Values['StartPage'], nFirstPage);
nPageMul = StrToIntDef(WONKYOBJECT.Values['PageMul' ], nPageMul );
sPageParam = WONKYOBJECT.Values['PageParam'];
sValue = WONKYOBJECT.Values['Method']; if (sValue!='') {sQMeth = ReplaceWonkyVars(sValue); VARS.Values['<METHOD>']=sQMeth;}
}
sValue = WONKYBLK.Values['UrlBase']; if (sValue!='') gsUrlBase = ReplaceWonkyVars(sValue);
// Если есть блок с параметрами для глобальной gsHeaders - заменяем на переданные значения
GetWonkyObject(WONKYBLK, 'Headers', WONKYOBJECT, ParentItem);
sValue = WONKYBLK.Values['FilePath']; if (sValue!='') {ParentItem[mpiFilePath] = ReplaceWonkyVars(sValue); VARS.Values['<FILEPATH>']=ParentItem[mpiFilePath];}
GetWonkyObject(WONKYBLK, 'GetVars', WONKYOBJECT, ParentItem);
if (CheckWonkyParam(WONKYBLK, 'LoadFromLinks')) LOADFROMLINKS = 1;
if (CheckWonkyParam(WONKYBLK, 'StoreCookie' )) gbStoreCookie = true;
if (GetWonkyObject (WONKYBLK, 'ChangeValues', WONKYOBJECT, ParentItem)) WonkyChangeValues(WONKYOBJECT, ParentItem);
if (GetWonkyObject (WONKYBLK, 'LoginRequest', WONKYOBJECT, ParentItem)) LoginRequest(WONKYOBJECT, ParentItem);
if (GetWonkyObject (WONKYBLK, 'CreateItems', WONKYOBJECT, ParentItem)) CreateItems (WONKYOBJECT, ParentItem);
// Проверяем "одноразовые" переменные после ChangeValues.
if (VARS.Values['<PAGES>'] !='') nPages = StrToIntDef(VARS.Values['<PAGES>'], nPages );
if (VARS.Values['<FIRSTPAGE>']!='') nFirstPage = StrToIntDef(VARS.Values['<FIRSTPAGE>'], nFirstPage);
if (VARS.Values['<PAGEMUL>'] !='') nPageMul = StrToIntDef(VARS.Values['<PAGEMUL>'], nPageMul );
if (VARS.Values['<PAGEPARAM>']!='') sPageParam = VARS.Values['<PAGEPARAM>'];
if (VARS.Values['<METHOD>'] !='') sQMeth = VARS.Values['<METHOD>']; // Только метод - неодноразовый
sHtml=''; if (nPages>1) sPgs = ' из '+IntToStr(nPages);
if (WONKYBLK.Values['NotLoad']=='') {
// Загружаем все страницы
if ((sPageParam!='') && (Pos('?', ParentItem[mpiFilePath])<1)) sPageParam[1]='?';
for (n=nFirstPage; n<nPages+nFirstPage; n++) {
if (HmsCancelPressed()) break;
if (bWasShownProgress) {
if (nPages>1) sValue = ': Загрузка страницы - '+IntToStr(n)+sPgs; else sValue = '';
if (SHOWPROGRESS==1) HmsShowProgress(ParentItem[mpiTitle]+sValue);
}
sPage = '';
if (Trim(sPageParam)!='') {
if ((Pos('?', ParentItem[mpiFilePath])<1) && (LeftCopy(sPageParam, 1)=='&')) sPageParam = '?'+Copy(sPageParam, 2, 9999);
else if (Pos('?', ParentItem[mpiFilePath])>0) sPageParam = ReplaceStr(sPageParam, '?', '&');
sPage=ReplaceStr(sPageParam, '<PN>', IntToStr(Trunc(n*nPageMul)));
// Если в ссылке уже заложен номер страницы - вырезаем его оттуда, ибо будем вставлять сами
if (Pos(sPage, ParentItem[mpiFilePath])>0) ParentItem[mpiFilePath]=ReplaceStr(ParentItem[mpiFilePath], sPage, '<PAGEPARAM>');
}
sLink = ParentItem[mpiFilePath];
// Если в ссылке есть ключ <PAGEPARAM>, то вставляем вместо него шаблон с номером страницы
if (Pos('<PAGEPARAM>', sLink)>0) sLink = ReplaceStr(sLink, '<PAGEPARAM>', sPage);
else sLink += sPage; // Иначе просто шаблон с номером страницы добавляем в конец ссылки
sLink = ReplaceStr(sLink, '<RND>', ReplaceStr(FloatToStr(Random), ',', '.'));
if (VARS.Values['<LASTLOADLINK>'] != sLink) {
LogMe('Загрузка страницы: '+sLink);
sPage = LoadUrl(sLink, sQMeth);
if (CheckWonkyParam(WONKYBLK, 'DecrunchJSON')) sPage=HmsJsonDecode(sPage);
VARS.Values['<TEXT>'] = sPage;
VARS.Values['<LASTLOADLINK>'] = sLink;
sValue = WONKYBLK.Values['CutBlock']; if (sValue!='') HmsRegExMatch(sValue, sPage, sPage, 1, PCRE_SINGLELINE);
// Если были указаны параметры PreSearchBlock, то каждую страницу обрабатываем - выделяем блоки
sHtml = sHtml + sPage;
} else {
sPage = VARS.Values['<TEXT>'];
sValue = WONKYBLK.Values['CutBlock']; if (sValue!='') HmsRegExMatch(sValue, sPage, sPage, 1, PCRE_SINGLELINE);
if (sHtml=='') sHtml = sPage;
}
LogMe('Loaded page: '+sPage);
if (GetWonkyObject(WONKYBLK, 'StopLoad', WONKYOBJECT, ParentItem)) break;
if (bFirstPage) {
if (GetWonkyObject(WONKYBLK, 'GetPagesFromPageNavi', WONKYOBJECT, ParentItem)) {
if (HmsRegExMatch(WONKYOBJECT.Values['Pages' ], sPage, sValue, 1, PCRE_SINGLELINE)
||HmsRegExMatch(WONKYOBJECT.Values['Pages2'], sPage, sValue, 1, PCRE_SINGLELINE)) {
nPages = StrToIntDef(sValue, nPages);
nFirstPage = StrToIntDef(WONKYOBJECT.Values['StartPage'], nFirstPage);
nPageMul = StrToIntDef(WONKYOBJECT.Values['PageMul' ], nPageMul );
sPageParam = WONKYOBJECT.Values['PageParam'];
if (VARS.Values['<PAGEPARAM>']!='') sPageParam = VARS.Values['<PAGEPARAM>'];
}
}
if (HmsRegExMatch('--pages=([\\d]+)', mpPodcastParameters, sValue, 1, PCRE_SINGLELINE)) {
nBlk = StrToIntDef(sValue, nPages);
if (nBlk < nPages) nPages = nBlk;
}
n = nFirstPage;
if (nPages>1) sPgs = ' из '+IntToStr(nPages);
}
if (GetWonkyObject(WONKYBLK, 'AfterLoadEveryPage', WONKYOBJECT, ParentItem)) AfterLoadPageBlock(sPage, WONKYOBJECT, ParentItem);
if (SHOWPROGRESS==1) HmsSetProgress(Trunc(n*100/nPages));
bFirstPage = false;
}
}
VARS.Values['<PAGES>'] = '';
VARS.Values['<FIRSTPAGE>'] = '';
VARS.Values['<PAGEMUL>'] = '';
VARS.Values['<PAGEPARAM>'] = '';
VARS.Values['<TEXT>'] = sHtml;
// Пытаемся найти и заполнить информацию для родительского подкаста (если там указано)
ItemInfo = FindAndFillInfo(sHtml, WONKYBLK, ParentItem, true);
StoreInfoToPodcast(ItemInfo, ParentItem);
// Если есть команды, которые нужно выполнить после загрузки страницы
if (GetWonkyObject(WONKYBLK, 'AfterLoad', WONKYOBJECT, ParentItem)) AfterLoadPageBlock(sHtml, WONKYOBJECT, ParentItem);
// Проверяем, установлен ли блок поиска подчинённых элементов
if (GetWonkyObject(WONKYBLK, 'SearchItems', WONKYOBJECT, ParentItem)) {
// Запускаем обработку поиска блоков с информацией о видео
if (SHOWPROGRESS==1) HmsShowProgress(mpTitle+': обработка ссылок');
ProcessFindItems(sHtml, WONKYOBJECT, ParentItem);
}
// Проверяем, установлен ли блок загрузки страницы
if (GetWonkyObject(WONKYBLK, 'LoadLink', WONKYOBJECT, ParentItem)) LoadPages(WONKYOBJECT, ParentItem);
if (GetWonkyObject(WONKYBLK, 'ConditionBlocks', WONKYOBJECT, ParentItem)) LoadPages(WONKYOBJECT, ParentItem);
}
// -------------------------------------------- Установка значений cookies ----
void SetCookies(char sHeaders='') {
char sCookies='', sName, sVal; TRegExpr re;
re = TRegExpr.Create('(?:Set-cookie|Cookie):(.*?)=(.*?)(?:;|\n|$)', PCRE_SINGLELINE);
if (re.Search(sHeaders)) do {
sName = Trim(re.Match(1));
sVal = Trim(re.Match(2));
if ((sVal=='') || (sName=='')) continue;
COOKIES.Values[sName] = sVal;
} while (re.SearchAgain());
re.Free();
VARS.Values['<COOKIES>'] = GetCookies();
if (gbStoreCookie) FolderItem[39000] = VARS.Values['<COOKIES>'];
}
// -------------------------------------------- Получение значений cookies ----
char GetCookies() {
int i; char sNam, sVal, sCookies='';
for (i=0; i<COOKIES.Count; i++) {
sNam = COOKIES.Names(i); if (Trim(sNam)=='') continue;
sVal = COOKIES.Values[sNam]; if (Trim(sVal)=='') continue;
sCookies += Format('%s=%s; ', [sNam, sVal]);
}
sCookies = 'Cookie: '+Trim(sCookies)+'\r\n';
return sCookies;
}
// ------------------------------------------- Загрузка страницы по ссылке ----
string LoadUrl(char sLink, char sMethod='GET', char sHeaders='', bool NoCache=false, bool NoRdrct=false) {
string sHtml, sUrlServer, sRequestPage='/', sPostData='', sAnsw=''; int iFlags = 0, nPort=80;
if (LeftCopy(sLink, 2)=='//') sLink = 'http:' + Trim(sLink);
if (LeftCopy(sLink, 1)=='/' ) sLink = gsUrlBase + Trim(sLink);
if (LeftCopy(sLink, 5)=='https') nPort = 443;
if (!HmsRegExMatch('//(.*)', sLink, sUrlServer)) return '';
HmsRegExMatch2('^(.*?)(/.*)', sUrlServer, sUrlServer, sRequestPage);
if (sMethod=='POST') {
HmsRegExMatch('^.*?\\?(.*)', sRequestPage, sPostData );
HmsRegExMatch('^(.*?)\\?' , sRequestPage, sRequestPage);
}
if (HmsRegExMatch('--nocache', mpPodcastParameters, '')) NoCache = true;
if (sHeaders=='') sHeaders = gsHeaders; if (NoCache) iFlags = StrToInt('$80000000');
sHeaders += GetCookies(); iFlags = (iFlags || INTERNET_FLAG_NO_AUTO_REDIRECT);
sHtml = HmsSendRequestEx(sUrlServer, sRequestPage, sMethod, 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, sPostData, nPort, iFlags, sAnsw, true);
if (IsWine || gbIE6Fix) sHtml = HmsDecompressString(sHtml); // Для Linux Wine и ie6
SetCookies(sAnsw);
if (!NoRdrct && HmsRegExMatch('Location: (.*?)[\r\n]', sAnsw, sLink)) {
sHtml = LoadUrl(sLink);
}
sHtml = HmsUtf8Decode(sHtml);
return sHtml;
}
// ------------------------- Запрос на вход, получение куки их запоминание ----
void LoginRequest(TStrings WONKYBLK, THmsScriptMediaItem ParentItem) {
char sLogin, sPassw, sReq, sMethod, sValue; Variant WONKYOBJECT;
sLogin = WONKYBLK.Values['Login']; if (Trim(sLogin)=='') sLogin = mpPodcastAuthorizationUserName;
sPassw = WONKYBLK.Values['Passw']; if (Trim(sPassw)=='') sPassw = mpPodcastAuthorizationPassword;
sValue = WONKYBLK.Values['Cookie']; if (Trim(sValue)!='') SetCookies(sValue);
sMethod = WONKYBLK.Values['Method'];
sLogin = HmsPercentEncode(sLogin);
sPassw = HmsPercentEncode(sPassw);
GetWonkyObject(WONKYBLK, 'Headers', WONKYOBJECT, ParentItem);
sReq = ReplaceStr(ReplaceStr(WONKYBLK.Values['Request'], '<LOGIN>', sLogin), '<PASSW>', sPassw);
LoadUrl(sReq, sMethod, '', WONKYBLK.Values['NoCache']!='', WONKYBLK.Values['NoRedirect']!='');
}
// ---------------------------------------------------------------------------------------
// Создание каталогов, подкастов и ссылок по данным в WONKYBLK
void CreateItems(TStrings WONKYBLK, THmsScriptMediaItem ParentItem) {
int n, i, nParamId; THmsScriptMediaItem Item;
Variant WONKYOBJECT, SUBBLOCK; bool bForceFolder, bIsPodcast;
char sTitle, sLink, sName, sValue, sType;
for (n=0; n<WONKYBLK.Count; n++) {
SUBBLOCK = WONKYBLK.Objects(n); if (SUBBLOCK==0) continue;
sTitle = SUBBLOCK.Values['mpiTitle']; if (sTitle=='') continue;
sLink = SUBBLOCK.Values['mpiFilePath']; if (sLink=='') sLink=sTitle;
sType = SUBBLOCK.Values['Type'];
if (TITLECASE==1) sTitle = Uppercase(sTitle);
if (sType=='Search') {
Item = ParentItem.AddFolder('-SearchFolder', true);
Item[mpiTitle] = sTitle;
Item[mpiFolderSortOrder ] = "mpTitle";
Item[mpiPodcastParameters] = SUBBLOCK.Values['mpiPodcastParameters']+' --group=none';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
sTitle = SUBBLOCK.Values['CmdTitle'];
if (TITLECASE==1) sTitle = Uppercase(sTitle);
CreateDynamicGroup(SUBBLOCK, Item, sTitle, '-SearchCommands', '/\\*BeginSearchScript(.*?)EndSearchScript\\*/');
continue;
} else if ((sType=='Folder') || (sType=='Podcast') || (sType=='Dynamic')) {
if (sType=='Dynamic') i = 32;
else i = StrToIntDef(SUBBLOCK.Values['FolderClassID'], -1);
Item = ParentItem.AddFolder(sLink, (sType=='Folder'), i);
if (i==32) {
Item[200] = ParentItem[200]; // mpiFolderType
Item[500] = ParentItem[500]; // mpiDynamicScript
Item[501] = ParentItem[501]; // mpiDynamicSyntaxType
}
} else if (sType=='SettingsFolder') {
if (Pos('--altsetfldr', mpPodcastParameters)>0) {
CreateSettingsFolder(SUBBLOCK, ParentItem, sTitle, '-SettingsCommands');
} else {
CreateDynamicGroup(SUBBLOCK, ParentItem, sTitle, '-SettingsCommands', '/\\*BeginSettingsScript(.*?)EndSettingsScript\\*/');
}
continue;
} else {
Item = HmsCreateMediaItem(sLink, ParentItem.ItemID);
}
for (i=0; i<SUBBLOCK.Count; i++) {
sName = SUBBLOCK.Names(i); if (sName=='') continue;
nParamId = GetIdByParamName(sName); if ((nParamId==0)||(nParamId==mpiTitle)) continue;
Item[nParamId] = SUBBLOCK.Values[sName];
}
Item[mpiTitle] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
sLink = Item[mpiFilePath]; if (LeftCopy(sLink, 1)=='/') Item[mpiFilePath] = HmsExpandLink(sLink, gsUrlBase);
if (Trim(Item[mpiFolderSortOrder])=='') Item[mpiFolderSortOrder] = -mpiCreateDate;
if (GetWonkyObject(SUBBLOCK, 'CreateItems', WONKYOBJECT, Item)) CreateItems(WONKYOBJECT, Item);
if (GetWonkyObject(SUBBLOCK, 'LoadLink', WONKYOBJECT, Item)) LoadPages (WONKYOBJECT, Item);
if (GetWonkyObject(SUBBLOCK, 'SearchItems', WONKYOBJECT, Item)) ProcessFindItems(VARS.Values['<TEXT>'], WONKYOBJECT, Item);
}
}
// ---------------------------------------------------------------------------------------
// Проверка переданных параметров в поле "Комментарий" подкаста
void CheckParameters() {
string sVal;
gbIE6Fix = (Pos('--winxpfix', mpPodcastParameters)>0);
if (HmsRegExMatch('(--(?:no|)log)', mpPodcastParameters, sVal)) {
if (sVal=='--nolog') LOG = 0;
if (sVal=='--log' ) LOG = 1;
}
if (HmsRegExMatch('(--(?:no|)progress)', mpPodcastParameters, sVal)) {
if (sVal=='--noprogress') SHOWPROGRESS = 0;
if (sVal=='--progress' ) SHOWPROGRESS = 1;
}
if (HmsRegExMatch('(--(?:no|)delitems)', mpPodcastParameters, sVal)) {
if (sVal=='--delitems') NODELITEMS = 0;
if (sVal=='--nodelitems') NODELITEMS = 1;
}
if (HmsRegExMatch('(--(?:no|)yearintitle)', mpPodcastParameters, sVal)) {
if (sVal=='--yearintitle') YEARINTITLE = 1;
if (sVal=='--noyearintitle') YEARINTITLE = 0;
}
if (HmsRegExMatch('(--(?:no|)numbering)', mpPodcastParameters, sVal)) {
if (sVal=='--numbering') NUMBERING = 1;
if (sVal=='--nonumbering') NUMBERING = 0;
}
if (HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, sVal)) {
if (sVal == 'alph' ) GROUPMODE = 1;
else if (sVal == 'alph2') GROUPMODE = 2;
else if (sVal == 'year' ) GROUPMODE = 3;
else if (sVal == 'none' ) GROUPMODE = 0;
}
if (HmsRegExMatch('--titlecase=(\\w+)', mpPodcastParameters, sVal)) {
if (sVal == 'upper') TITLECASE = 1;
else if (sVal == 'first') TITLECASE = 2;
else if (sVal == 'name' ) TITLECASE = 3;
else if (sVal == 'none' ) TITLECASE = 0;
}
if (HmsRegExMatch('(--(?:no|)collect)', mpPodcastParameters, sVal)) {
if (sVal=='--collect') COLLECTING = 1;
else if (sVal=='--nocollect') COLLECTING = 0;
}
if (HmsRegExMatch('--itemasfolder=(\\w+)', mpPodcastParameters, sVal)) {
if (sVal == 'on' ) ITEMASFOLDER = 1;
else if (sVal == 'off') ITEMASFOLDER = 0;
}
if (Pos('--loadfromlinks', mpPodcastParameters)>0) LOADFROMLINKS= 1;
if (Pos('--collectasitems',mpPodcastParameters)>0) COLLECTASITEM= 1;
if (HmsRegExMatch('--maxingroup=([\\d]+)', mpPodcastParameters, sVal)) MAXINGROUP = StrToIntDef(sVal, MAXINGROUP);
if (HmsRegExMatch('--dbgfile="(.*?)"', mpPodcastParameters, sVal)) DBGFILE = sVal;
if (HmsRegExMatch('--formatseries="(.*?)"', mpPodcastParameters, sVal)) gsFrmtSeries = sVal;
if (HmsRegExMatch('--groupbysort=(\\w+)', mpPodcastParameters, sVal)) {
if ((sVal == 'on' ) || (sVal == '1')) GROUPBYSORT = 1;
else if ((sVal == 'off') || (sVal == '0')) GROUPBYSORT = 0;
} else if (HmsRegExMatch('--groupbysort', mpPodcastParameters, '')) {
GROUPBYSORT = 1;
}
if (GROUPBYSORT==1) {
sVal = FolderItem[mpiFolderSortOrder];
if ((sVal=='-7' ) || (sVal=='-mpAlbum')) {
GROUPMODE = 1;
if (HmsRegExMatch('(--group=\\w+)', FolderItem[mpiPodcastParameters], sVal))
FolderItem[mpiPodcastParameters]=ReplaceStr(FolderItem[mpiPodcastParameters], sVal, '--group=alph');
else
FolderItem[mpiPodcastParameters] += ' --group=alph';
FolderItem[mpiFolderSortOrder] = mpiTitle;
} else if ((sVal=='-8' ) || (sVal=='-mpYear' )) {
GROUPMODE = 3;
if (HmsRegExMatch('(--group=\\w+)', FolderItem[mpiPodcastParameters], sVal))
FolderItem[mpiPodcastParameters]=ReplaceStr(FolderItem[mpiPodcastParameters], sVal, '--group=year');
else
FolderItem[mpiPodcastParameters] += ' --group=year';
FolderItem[mpiFolderSortOrder] = -mpiTitle;
} else if ((sVal=='7') || (sVal=='mpAlbum' )) {
GROUPMODE = 0;
if (HmsRegExMatch('(--group=\\w+)', FolderItem[mpiPodcastParameters], sVal))
FolderItem[mpiPodcastParameters]=ReplaceStr(FolderItem[mpiPodcastParameters], sVal, '--group=none');
else
FolderItem[mpiPodcastParameters] += ' --group=none';
FolderItem[mpiFolderSortOrder] = -mpiCreateDate;
}
}
}
// ---------------------------------------------------------------------------------------
// Проверка минимальной требуемой версии HomeMediaServer. Если не указано, то 1.30
void CheckMinVersionHMS(char sMinRequiredVer='') {
int i, n1, n2, nCount; char sProgramVersion = ProgramVersion();
if (sMinRequiredVer=='') sMinRequiredVer = '1.30';
nCount = WordCount(sProgramVersion, '.');
i = WordCount(sMinRequiredVer, '.');
if (nCount>i) nCount = i;
for (i=1; i<nCount; i++) {
n1 = StrToIntDef(ExtractWord(i, sMinRequiredVer, '.'), 0);
n2 = StrToIntDef(ExtractWord(i, sProgramVersion, '.'), 0);
if (n1<n2) break;
if (n1>n2) RaiseException(Format('Работа подкаста %s невозможна. Минимальная требуемая версия HMS: %s', [mpTitle, sMinRequiredVer]));
}
}
// ---------------------------------------------------------------------------------------
// Попытка сделать более быстрой загрузку большого YAML конфига - ищем подходящий блок
char QuickYamlLoad(char sText) {
char sField, sFCond, sObject='', sValue; int nIndxObj;
TStrings WONKYBLK = TStringList.Create(); Variant WONKYOBJECT, CONDOBJECT;
nIndxObj = WONKYBLK.AddObject('Condition', TStringList.Create());
CONDOBJECT = WONKYBLK.Objects(nIndxObj);
TRegExpr reSearch = TRegExpr.Create('(- Podcast.*?)(?=- Podcast|$)', PCRE_SINGLELINE);
if (reSearch.Search(sText)) do {
if (!HmsRegExMatch2('ConditionField\\s*:\\s*(.*?),.*?ConditionExp\\s*:\\s*(.*?)}', reSearch.Match, sField, sFCond, PCRE_SINGLELINE)) continue;
sField = Trim(sField);
sFCond = Trim(sFCond);
HmsRegExMatch('^\'(.*?)\'$', sField, sField, 1, PCRE_SINGLELINE);
HmsRegExMatch('^\'(.*?)\'$', sFCond, sFCond, 1, PCRE_SINGLELINE);
CONDOBJECT.Values['ConditionField'] = sField;
CONDOBJECT.Values['ConditionExp' ] = sFCond;
if (!GetWonkyObject(WONKYBLK, 'Condition', WONKYOBJECT, FolderItem)) continue;
sObject = reSearch.Match;
break;
} while (reSearch.SearchAgain());
reSearch.Free();
WONKYBLK.Free();
return sObject;
}
// ---------------------------------------------------------------------------------------
// Поиск родителького подкаста (папки) и получение конфига.
char GetCFG() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) {
sCFG = ROOTPODCAST[510]; // Берём конфиг из скрипта чтения дополнительных свойств RSS
HmsRegExMatch('Wonky Config.*?\\[(.*?)\\]', sCFG, gsCfgDate, 1, PCRE_SINGLELINE);
HmsRegExMatch('Author:\\s+"(.*?)"', sCFG, gsCfgAuthor, 1, PCRE_SINGLELINE);
HmsRegExMatch('About:\\s+"(.*?)"', sCFG, gsAbout, 1, PCRE_SINGLELINE);
break;
}
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
return sCFG;
}
// ---------------------------------------------------------------------------------------
// Создание робота Wonky307.
bool BuildWonkyRobot() {
int i; char sCFG = '', sValue, sCfgBlockName, sLink; bool bExternalCfg = false; Variant WONKYOBJECT;
sCFG = GetCFG()+'\n';
if (Trim(sCFG)=='') {
HmsLogMessage(1, mpTitle+': Не найдена конфигурация Wonky 307.');
return false;
}
VARS.Values['<COOKIES>'] = FolderItem[39000];
SetCookies(VARS.Values['<COOKIES>']);
whYamlParser('LoadFromString', WONKY307, sCFG);
CheckMinVersionHMS(WONKY307.Values['MinVerHMS']);
if (WONKY307.Values['UrlBase']) gsUrlBase = WONKY307.Values['UrlBase'];
if (WONKY307.Values['dbgFile']) DBGFILE = WONKY307.Values['dbgFile'];
sValue = WONKY307.Values['mpiPodcastOptions'];
if (sValue!='') ROOTPODCAST[529] = StrToIntDef(sValue, ROOTPODCAST[529]);
if (W_MODE==1) sCfgBlockName = 'CreatePodcast'; else sCfgBlockName = 'GetList';
if (HmsRegExMatch('-WonkyBlock:([A-Z0-9_]+)', mpPodcastParameters, sValue, 1, PCRE_SINGLELINE)) sCfgBlockName = sValue;
sCFG = '';
if (GetWonkyObject(WONKY307, sCfgBlockName, WONKYOBJECT, FolderItem)) sCFG = whYamlParser('SaveToString', WONKYOBJECT)+'\n\n';
sLink = WONKY307.Values[sCfgBlockName+'Local'];
if (FileExists(sLink)) {
sCFG += HmsStringFromFile(sLink)+'\n\n';
bExternalCfg = true;
} else if (FileExists(HmsTempDirectory()+'\\'+sCfgBlockName+'.yml')) {
sCFG += HmsStringFromFile(HmsTempDirectory()+'\\'+sCfgBlockName+'.yml')+'\n\n';
if (DBGFILE!='') LogMe("CFGBLOCK "+sCfgBlockName+":\n"+whYamlParser('SaveToString', WONKY307));
bExternalCfg = true;
} else {
sLink = WONKY307.Values[sCfgBlockName+'Remote'];
if (sLink!='') {
sValue = LoadURL(sLink);
bExternalCfg = (sValue!='');
if (LeftCopy(sValue, 2)== #120#218) sValue=HmsUtf8Decode(HmsDecompressString(sValue));
if (sValue!='') HmsStringToFile(sValue, HmsTempDirectory()+'\\'+sCfgBlockName+'.yml');
sCFG += sValue+'\n\n';
}
}
if (bExternalCfg) {
LogMe('Загружен кофиг '+sLink);
sCFG = QuickYamlLoad(sCFG);
whYamlParser('LoadFromString', WONKY307, sCFG);
i = WONKY307.IndexOf('Podcast');
if (i>=0) {
WONKYOBJECT = WONKY307.Objects[i];
WONKY307 = WONKYOBJECT;
}
gsUrlBase = WONKY307.Values['UrlBase'];
sValue = WONKY307.Values['mpiPodcastOptions'];
if (sValue!='') ROOTPODCAST[529] = StrToIntDef(sValue, ROOTPODCAST[529]);
} else {
if ((W_MODE==0) && (COLLECTING==1)) if (GetWonkyObject(WONKY307, 'CollectionRules', WCOLLECT, FolderItem)) {
COLLECTOR = ROOTPODCAST.AddFolder(WCOLLECT.Values['Title'], true);
COLLECTOR[mpiCreateDate] = '31.12.1013 23:59';
COLLECTOR[532] = 0; // Отключаем скрипт обновления
if (!GetWonkyObject(WCOLLECT, 'CollectorFolders', WCOLLECT, FolderItem)) COLLECTOR = 0;
}
if (!GetWonkyObject(WONKY307, sCfgBlockName, WONKY307, FolderItem)) {
HmsLogMessage(2, mpTitle+': Не найден блок конфигурации '+sCfgBlockName);
} else {
sCFG = '-';
}
}
if (gsUrlBase!='') gsHeaders = ReplaceStr(gsHeaders, 'http://www.google.com/\r\n', gsUrlBase+'\r\n');
if (DBGFILE!='') LogMe("CFGBLOCK "+sCfgBlockName+":\n"+whYamlParser('SaveToString', WONKY307));
return (sCFG!='');
}
// ---------------------------------------------------------------------------------------
// Инициализация глобальных переменных и прочие подготовительные действия
void WonkyInit() {
if (LOG==1) HmsLogMessage(1, mpTitle);
// Присваиваем переменным текущие значения для возможного использования в шаблонах
VARS.Values['<FILEPATH>'] = FolderItem[mpiFilePath];
VARS.Values['<TITLE>'] = FolderItem[mpiTitle];
VARS.Values['<TITLE4SEARCH>'] = GetTitle4Search(FolderItem);
VARS.Values['<PARAMS>'] = mpPodcastParameters;
}
// ---------------------------------------------------------------------------------------
// Main program Wonky307
void WONKY307Start() {
char sHtml, sValue, sCfgBlock; TStrings WONKYOBJECT; int nAnsw;
if (mpFilePath=='-SearchCommands') return;
CheckParameters(); // Проверка переданных параметров в поле "Комментарий"
if (W_MODE==1) {
if (FolderItem.HasChildItems) {
nAnsw = MessageDlg('Пересоздание структуры подкаста.\nУдалить существующую структуру - очистить ссылки???', 0, 3+8, 0);
if (nAnsw == mrCancel) return;
if (nAnsw == mrYes ) FolderItem.DeleteChildItems();
}
}
try {
ExceptionMessage='';
// Создаём робота WONKY307.
if (!BuildWonkyRobot()) RaiseException('Невозможно создать WONKY 307 из конфигурационного файла!');
//ShowMessage(whYamlParser('SaveToString', WONKY307));
WonkyInit();
LogMe('---- Обновление подкаста '+mpTitle+' ----');
bWasShownProgress = (SHOWPROGRESS==1);
if (NODELITEMS!=1) FolderItem.DeleteChildItems(); // Удаляем старый список подкастов
LoadPages(WONKY307, FolderItem); // Запуск загрузки и всего-такого
} finally {
HmsHideProgress();
if (ExceptionMessage!='') HmsLogMessage(1, ExceptionMessage);
LogMe('---- Конец обновления подкаста '+mpTitle+' ----\n');
WONKY307.Free(); PARAM.Free(); VARS.Free(); COOKIES.Free();
if (WCOLLECT!=nil) WCOLLECT.Free();
FolderItem[mpiTitle] = mpTitle; // Восстанавливаем параметры
FolderItem[mpiFilePath] = mpFilePath;
FolderItem[mpiCreateDate] = mpCreateDate;
HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, sValue);
if (sValue=='alph') FolderItem.Sort('mpTitle');
if (sValue=='year') FolderItem.Sort('-mpTitle');
}
if (LOG==1) HmsLogMessage(1, mpTitle+' готов! Найдено элементов: '+IntToStr(gnTotalItems));
}
///////////////////////////////////////////////////////////////////////////////
// Проверка актуальности версии функции 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();
}
// ---------------------------------------------------------------------------------------
// Main program
{
if (Pos('--noupdatemoonwalk', mpPodcastParameters)<1) CheckMoonwalkFunction();
// if (Pos('Wonky Config', FolderItem[510])>0) {GetCFG(); ShowParametersForm();} else WONKY307Start();
WONKY307Start();
}
531
C++Script
571
string DBGFILE='';
int INTERNET_FLAG_NO_AUTO_REDIRECT = 0x00200000,
mpiPreviousItemID = 200107,
mpiPreviousPrntID = 200108;
int LOG = 1, // Wonky 307.48
SHOWPROGRESS = 1,
MAXINGROUP = 100,
NODELITEMS = 0,
TITLECASE = 0,
LOADFROMLINKS= 0,
YEARINTITLE = 0,
GROUPMODE = 0,
REMSERIEWORD = 0,
NUMBERING = 0,
COLLECTING = 0,
ITEMASFOLDER = 2,
COLLECTASITEM= 0,
GROUPBYSORT = 0,
;
TStrings WONKY307=TStringList.Create(), PARAM=TStringList.Create(), VARS=TStringList.Create(), WCOLLECT=nil, COOKIES=TStringList.Create();
int gnTotalItems=0, W_MODE=1; char gsUrlBase='', gsCfgDate='', gsCfgAuthor='', gsAbout='';
Variant gaProps4Copy=[36,7,5,41,35,32,28,31,215,9,29,55,4,8,50,39000]; THmsScriptMediaItem ROOTPODCAST, COLLECTOR;
bool bWasShownProgress=false, gbStoreCookie=false, gbIE6Fix=false; char gsFrmtSeries = '%.2d'; TDateTime gTimeStart = Now;
string gsHeaders =
'http://www.google.com/\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'+
'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8\r\n';
// ============================================================================
// Форма настроек | НАЧАЛО НАБОРА ВИЗУАЛЬНЫХ ФУНКИЙ И ПРОЦЕДУР
// ============================================================================
TTimer Timer; TStrings FORMOBJECTS, PARAMS; int nIdStoreParams = mpiPodcastParameters; // Глобальные, для доступа из любых функций IncTime(dTime: TDateTime; nHours, nMinutes, nSeconds, nMSecs :Integer): TDateTime
// ----------------------------------------------------------------------------
void ShowParametersForm() {
int i; Variant Control, frmMain, PodcastTree, PageCntrl, Page, Panel;
int nFormWidth = 700;
int nFormHeight = 515;
frmMain = TForm.Create(Application);
Timer = TTimer.Create(frmMain);
PARAMS = TStringList.Create();
FORMOBJECTS = TStringList.Create();
FORMOBJECTS.AddObject('frmMain', frmMain);
CreateParameters();
try {
frmMain.Color = 0xF0F0F0;
frmMain.Width = nFormWidth;
frmMain.Height = nFormHeight;
frmMain.Caption = 'Параметры подкаста '+mpTitle;
frmMain.Position = poScreenCenter;
frmMain.Font.Size = 10;
frmMain.OnResize = 'evntFormOnResize';
frmMain.OnCanResize = 'evntFormOnCanResize';
CreateControl(frmMain, frmMain, TButton, 'btnOK', 'OK', '', mrOK);
CreateControl(frmMain, frmMain, TButton, 'btnCancel', 'Отмена', '', mrCancel);
PageCntrl = CreateControl(frmMain, frmMain, TPageControl, 'PageCntrl');
PageCntrl.SetBounds(0, 0, nFormWidth, nFormHeight - 40);
// Страница "Параметры"
Page = CreateControl(PageCntrl, PageCntrl, TTabSheet, 'Page1', 'Параметры');
Page.SetBounds(0, 0, nFormWidth, nFormHeight);
Page.PageControl = PageCntrl;
Page.Visible = true;
Page.Tag = 12;
Page.OnEnter = 'evntPageOnEnter';
AddCaptionToPage(frmMain, Page, 'Установка параметров');
PodcastTree = CreateControl(frmMain, Page, TTreeView, 'PdcstTree');
PodcastTree.HideSelection = false;
PodcastTree.RowSelect = true;
PodcastTree.ReadOnly = true;
PodcastTree.OnClick = 'evntTreeOnClick';
PodcastTree.Align = alLeft;
PodcastTree.Width = 248;
PodcastTree.Hint = 'Структура подкаста. (Помните: вложенные папки наследуют параметры!)';
PodcastTree.ShowHint = true;
BuildPodcastTree(PodcastTree.Items, FolderItem, nil);
Control = CreateControl(frmMain, Page, TSplitter, 'splitter');
Control.SetBounds(50, 10, 4, nFormHeight-44);
Control.Align = alLeft;
Control = CreateControl(frmMain, Page, TScrollBox, 'prmPanel');
Control.Align = alClient;
ShowParameters();
// Страница "Сервис"
Page = CreateControl(PageCntrl, PageCntrl, TTabSheet, 'Page2', 'Сервис');
Page.SetBounds(0, 0, nFormWidth, nFormHeight);
Page.Visible = true;
Page.PageControl = PageCntrl;
Page.Tag = 12;
Page.OnEnter = 'evntPageOnEnter';
AddCaptionToPage(frmMain, Page, 'Сервисные функции');
Panel = CreateControl(frmMain, Page, TGroupBox, 'G1', 'Инициализация:');
Panel.Color = 0xF0F0F0;
Panel.SetBounds(10, 50, 300, 140);
Panel.Align = alLeft;
AddText2Panel(frmMain, Panel, 'Пересоздание структуры подкаста.', 0, 11, false, 'Tahoma');
AddText2Panel(frmMain, Panel, 'Внимание! Все добавленные ссылки будут удалены и настройки установлены по-умолчанию.', 0x333390, 9, true);
AddText2Panel(frmMain, Panel, 'Структура и список категорий будут созданы заного, как они есть на сайте ресурса.', 0, 9);
AddText2Panel(frmMain, Panel, '', 0, 4);
Control = CreateControl(frmMain, Panel, TButton, 'BC1', 'Создать структуру');
Control.Align = alTop;
Control.ModalResult = mrCancel;
Control.OnClick = 'WONKY307Start';
CreateSearchControls(frmMain, Page);
// Страница "О подкасте"
Page = CreateControl(PageCntrl, PageCntrl, TTabSheet, 'Page3', 'О подкасте');
Page.SetBounds(0, 0, nFormWidth, nFormHeight);
Page.Visible = true;
Page.PageControl = PageCntrl;
Page.Tag = 33;
Page.OnEnter = 'evntPageOnEnter';
TStrings T = TStringList.Create();
T.Values['Wrds'] = gsAbout;
FORMOBJECTS.AddObject('afx4Fun', T);
PrepareAboutText(frmMain, Page, T);
PageCntrl.ActivePage = PageCntrl.Pages[1];
PageCntrl.ActivePage = PageCntrl.Pages[0];
frmMain.ActiveControl = PodcastTree;
if (PodcastTree.Items.Count>1) PodcastTree.Selected = PodcastTree.Items[1];
PodcastTree.Selected = PodcastTree.Items[0];
evntTreeOnClick(PodcastTree);
if (frmMain.ShowModal() == mrOK) {
StoreParamsToPodcast(PodcastTree, PodcastTree.Items[0]);
}
} finally {
Timer.Free();
FORMOBJECTS.Free();
PodcastTree.Free();
frmMain.Free();
PARAMS.Free();
}
}
// ----------------------------------------------------------------------------
void AddText2Panel(Variant frmMain, Variant Panel, char sText, int nColor=nil, int nFontSize=nil, bool bBold=false, char sFont='') {
Variant Label;
Label = CreateControl(frmMain, Panel, TLabel);
Label.Transparent = true;
Label.WordWrap = true;
Label.Caption = sText;
Label.Width = Panel.Width;
Label.Alignment = 2;
if (bBold) Label.Font.Style = fsBold;
if (nColor!=nil) Label.Font.Color = nColor;
if (nFontSize!=nil) Label.Font.Size = nFontSize;
if (sFont!='') Label.Font.Name = sFont;
Label.Align = alTop;
}
// ----------------------------------------------------------------------------
void StoreParamsToPodcast(TTreeView PodcastTree, TTreeNode Node) {
Variant NodeData, PodcastItem; char sParams; int i, n;
for (i=0; i<PodcastTree.Items.Count; i++) {
NodeData = PodcastTree.Items[i].Data;
sParams = Trim(NodeData.Values['Params']);
n = NodeData.IndexOf('Item'); if (n<0) continue;
PodcastItem = NodeData.Objects[n];
PodcastItem[nIdStoreParams] = sParams;
}
}
// ----------------------------------------------------------------------------
void AddParametersFromConfig() {
int n, i; char sName; Variant OBJECT; TStrings P;
whYamlParser('LoadFromString', WONKY307, FolderItem[510]);
GetWonkyObject(WONKY307, 'CollectionRules', WCOLLECT, FolderItem);
if (!GetWonkyObject(WONKY307, 'AddVisualParameters', WONKY307, FolderItem)) return;
for (n=0; n<WONKY307.Count; n++) {
OBJECT = WONKY307.Objects(n); if (OBJECT==0) continue;
P = CreateNewParam(PARAMS);
for (i=0; i<OBJECT.Count; i++) {
sName = OBJECT.Names(i); if (sName=='') continue;
P.Values[sName] = OBJECT.Values[sName];
}
}
}
// ----------------------------------------------------------------------------
void CreateParameters() {
TStrings P;
AddParametersFromConfig();
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'ComboBox';
P.Values['Caption'] = 'Лог событий';
P.Values['caWidth'] = '114';
P.Values['Hint' ] = 'Вывод текста о событиях в журнал сообщений';
P.Values['coWidth'] = '270';
P.Values['Param0' ] = 'Включить вывод сообщений |--log';
P.Values['Param1' ] = 'Отключить вывод сообщений|--nolog';
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'ComboBox';
P.Values['Caption'] = 'Прогресс обновления';
P.Values['caWidth'] = '174';
P.Values['Hint' ] = 'Показ окна прогресса загрузки и обновлений на компьютере';
P.Values['coWidth'] = '210';
P.Values['Param0' ] = 'Показать прогресс обновления|--progress';
P.Values['Param1' ] = 'Отключить показ прогресса |--noprogress';
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'ComboBox';
P.Values['Caption'] = 'Группировка';
P.Values['caWidth'] = '114';
P.Values['Hint' ] = 'Включение особого способа руппировки';
P.Values['coWidth'] = '270';
P.Values['Param0' ] = 'По первым буквам названия ("А", "Б", ...)|--group=alph';
P.Values['Param1' ] = 'По группам букв ("А..Г", "Д..З", ...) |--group=alph2';
P.Values['Param2' ] = 'По годам |--group=year';
P.Values['Param3' ] = 'Отключить группировку |--group=none';
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'ComboBox';
P.Values['Caption'] = 'Верхний регистр названий';
P.Values['caWidth'] = '194';
P.Values['Hint' ] = 'Включение приведения к верхнему регистру наименования (К ВОТ ТАКИМ БУКВАМ)';
P.Values['coWidth'] = '190';
P.Values['Param0' ] = 'Всё большими буквами |--titlecase=upper';
P.Values['Param1' ] = 'К верхнему первый символ |--titlecase=first';
P.Values['Param2' ] = 'Первый символ каждого слова|--titlecase=name';
P.Values['Param3' ] = 'Отключить изменение |--titlecase=none';
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'Edit';
P.Values['Caption'] = 'Количество элементов в группе';
P.Values['Hint' ] = 'Максимальное количество элементов в группе при обычной группировке по количнеству';
P.Values['caWidth'] = '270';
P.Values['edWidth'] = '50';
P.Values['Default'] = '100';
P.Values['OnlyNum'] = 'Yes';
P.Values['Param'] = '--maxingroup=<N>';
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'Edit';
P.Values['Caption'] = 'Макс. кол-во загружаемых страниц';
P.Values['Hint' ] = 'Максимальное количество загружаемых страниц (глубина просмотра). 0 - не ограничивать';
P.Values['caWidth'] = '270';
P.Values['edWidth'] = '50';
P.Values['OnlyNum'] = 'Yes';
P.Values['Default'] = '0';
P.Values['Param'] = '--pages=<N>';
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'ComboBox';
P.Values['Caption'] = 'Добавить год в название';
P.Values['caWidth'] = '194';
P.Values['Hint' ] = 'Добавление года в название видео, если его нет в названии и он установлен';
P.Values['coWidth'] = '190';
P.Values['Param0' ] = 'Добавлять год |--yearintitle';
P.Values['Param1' ] = 'Отключить добавление|--noyearintitle';
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'ComboBox';
P.Values['Caption'] = 'Удаление старых ссылок';
P.Values['caWidth'] = '194';
P.Values['Hint' ] = 'Очистка списка уже добавленных ссылок при обновлении';
P.Values['coWidth'] = '190';
P.Values['Param0' ] = 'Не удалять старые ссылки |--nodelitems';
P.Values['Param1' ] = 'Включить удаление ссылок |--delitems';
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'ComboBox';
P.Values['Caption'] = 'Нумерация добавляемых видео';
P.Values['caWidth'] = '240';
P.Values['Hint' ] = 'Добавление в начало названия порядкового номера в группе';
P.Values['coWidth'] = '144';
P.Values['Param0' ] = 'Нумеровать |--numbering';
P.Values['Param1' ] = 'Отключить нумерацию |--nonumbering';
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'ComboBox';
P.Values['Caption'] = 'Режим добавления видео';
P.Values['caWidth'] = '220';
P.Values['Hint' ] = 'Добавлять видео как ссылку на видео или как папку с видео';
P.Values['coWidth'] = '164';
P.Values['Param0' ] = 'Добавлять как папки |--itemasfolder=on';
P.Values['Param1' ] = 'Добавлять как ссылки |--itemasfolder=off';
if (WCOLLECT!=nil) {
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'ComboBox';
P.Values['Caption'] = 'Коллектор по годам и алфавиту';
P.Values['caWidth'] = '240';
P.Values['Hint' ] = 'Дополнительно коллекционировать ссылки на видео в папку коллектора по годам и алфавиту одновременно';
P.Values['coWidth'] = '144';
P.Values['Param0' ] = 'Включить коллектор |--collect';
P.Values['Param1' ] = 'Отключить коллектор |--nocollect';
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'CheckBox';
P.Values['Caption'] = 'Режим коллектора "Без папок"';
P.Values['Hint' ] = 'Добавлять видео в коллектор как ссылку на видео, а не как папку с видео';
P.Values['Param' ] = '--collectasitems';
}
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'CheckBox';
P.Values['Caption'] = 'Запросы загрузки без использования кеша';
P.Values['Hint' ] = 'При загрузке страниц с ресурса не использовать кеш';
P.Values['Param' ] = '--nocache';
P = CreateNewParam(PARAMS);
P.Values['Class' ] = 'CheckBox';
P.Values['Caption'] = 'Альтернативная папка "Настройки" (если есть)';
P.Values['Hint' ] = 'Создание альтернативной (без использования динамических папок) папки настроек при создании структуры подкаста';
P.Values['Param' ] = '--altsetfldr';
}
// ----------------------------------------------------------------------------
Variant GetSearchFolder() {
Variant Item = HmsFindMediaFolder(ROOTPODCAST.ItemID, '-SearchFolder');
return Item;
}
// ----------------------------------------------------------------------------
void AddSearch() {
char sText; Variant cntrlEdit;
sText = HmsGetUserSearchText();
DoSearch(0);
ShowMessage(Format('«%s» добавлен как подкаст в папку Поиск.', [sText]));
cntrlEdit = GetFormObject('SearchEdit' ); if (cntrlEdit ==nil) return;
cntrlEdit.Text = '';
HmsSetUserSearchText('');
}
// ----------------------------------------------------------------------------
void DoSearch(Variant Btn) {
int i; Variant cntrlEdit, cntrlList, SearchFolder, NewPodcast, Item, OLD;
cntrlEdit = GetFormObject('SearchEdit' ); if (cntrlEdit ==nil) return;
cntrlList = GetFormObject('SearchList' ); if (cntrlList ==nil) return;
SearchFolder = GetSearchFolder();
NewPodcast = SearchFolder.AddFolder(cntrlEdit.Text, false);
NewPodcast[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
HmsSetUserSearchText(cntrlEdit.Text);
W_MODE = 0; OLD = FolderItem;
FolderItem = NewPodcast;
mpTitle = NewPodcast[mpiTitle];
mpFilePath = NewPodcast[mpiFilePath];
mpCreateDate = NewPodcast[mpiCreateDate];
mpPodcastParameters = NewPodcast[mpiPodcastParameters]+' '+NewPodcast.ItemParent[mpiPodcastParameters];
WONKY307Start();
WONKY307=TStringList.Create(); PARAM=TStringList.Create(); VARS=TStringList.Create();
FolderItem = OLD;
gnTotalItems = 0;
W_MODE = 1;
cntrlList.Items.Clear();
BuildPodcastTree(cntrlList.Items, NewPodcast, nil, 0, true);
if (Btn!=0) NewPodcast.Delete();
cntrlList.FullExpand();
cntrlList.Selected = cntrlList.Items[0];
}
// ----------------------------------------------------------------------------
void evntFormOnResize(Variant frm) {
Variant Control;
int nW = frm.ClientWidth;
int nH = frm.ClientHeight;
BoundControl('PageCntrl', 0, 0, nW, nH - 44);
BoundControl('btnOK', nW - 85, nH - 35, 75, 25);
BoundControl('btnCancel', nW - 170, nH - 35, 75, 25);
Control = GetFormObject('LineAbout');
if (Control!=nil) Control.Left = Round(nW/2 - Control.Width/2)-4;
Control = GetFormObject('SearchList' ); if (Control!=nil) Control.Height = nH - 170;
}
// ----------------------------------------------------------------------------
void CreateSearchControls(Variant frmMain, Variant Page) {
int i; Variant Control, PageCntrl, Panel, Item;
Item = GetSearchFolder(); if (Item==nil) return;
Control = CreateControl(frmMain, Page, TSplitter, 'splitter2');
Control.SetBounds(320, 25, 4, frmMain.Height-44);
Control.Align = alLeft;
Panel = CreateControl(frmMain, Page, TGroupBox, 'GS', 'Поиск:');
Panel.Color = 0xF0F0F0;
Panel.Align = alClient;
Control = CreateControl(frmMain, Panel, TEdit, 'SearchEdit');
Control.SetBounds( 5, 25, 210, 24);
Control.Text = HmsGetUserSearchText();
Control = CreateControl(frmMain, Panel, TButton, 'btnSearch', 'Найти', 'Поиск набранного текста');
Control.SetBounds(218, 25, 75, 24);
Control.OnClick = 'DoSearch';
Control = CreateControl(frmMain, Panel, TButton, 'btnSearchAdd', 'Добавить', 'Добавить в папку поиска подкаста');
Control.SetBounds(295, 25, 75, 24);
Control.OnClick = 'AddSearch';
Control = CreateControl(frmMain, Panel, TTreeView, 'SearchList', '', 'Результаты поиска');
Control.SetBounds( 10, 60, 220, 303);
Control.HideSelection = false;
Control.RowSelect = true;
Control.ReadOnly = true;
Control.Align = alBottom;
}
// ----------------------------------------------------------------------------
void AddCaptionToPage(Variant frmMain, Variant Page, char sCapt='', int Color=0x866649, int nHeight=36, int nSize=18) {
Variant TopPanel, Label, Line, aClrs1, aClrs2; int iClr;
// Не мог определиться с палитрой...
aClrs1 = [0x866649, 0x555555, 0xFB8936, 0x247FFF, 0x2A7CCA, 0x666666];
aClrs2 = [0xB8997C, 0x808077, 0x247FFF, 0xFB8936, 0xAA8926, 0x6C60EC];
if (frmMain.Tag==0) frmMain.Tag = Round(Random()*(Length(aClrs1)-1))+1;
TopPanel = CreateControl(frmMain, Page, TPanel);
TopPanel.Color = 0xF0F0F0;
TopPanel.Height = nHeight;
TopPanel.Align = alTop;
Line = CreateControl(frmMain, TopPanel, TShape, Page.Name+'Line', sCapt);
Line.Brush.Color = aClrs2[frmMain.Tag-1];
Line.Pen.Style = psClear;
Line.SetBounds(10, 24, 0, 3);
Label = CreateControl(frmMain, TopPanel, TLabel, Page.Name+'Capt', sCapt);
Label.Font.Size = nSize;
Label.Font.Style = fsBold;
Label.Font.Color = aClrs1[frmMain.Tag-1];
Label.Font.Name = 'Trebuchet MS';
Label.Transparent= true;
Label.AutoSize = true;
Label.Left = 10;
Label.Top = -84;
}
// ----------------------------------------------------------------------------
void evntPageOnEnter(Variant Page) {
Variant Label, Line;
if (Page.Tag==33) {
Timer.Interval= 33;
Timer.OnTimer = 'evntAboutFXOnTimer';
Timer.Enabled = true;
}
if (Page.Tag==12) {
Label = GetFormObject(Page.Name+'Capt'); if (Label == nil) return;
if (Label.Top >0) return;
Label.Top = -84;
Line = GetFormObject(Page.Name+'Line'); if (Line == nil) return;
Line.Width = 0;
Timer.Interval= 20;
Timer.Tag = StrToInt(Copy(Page.Name, 5, 2));
Timer.OnTimer = 'evntPageCaptFXOnTimer';
Timer.Enabled = true;
}
}
// ----------------------------------------------------------------------------
TStrings CreateNewParam(TStrings Params=nil, char sText='', char sParam='') {
if (Params==nil) Params = PARAMS;
Result = TStringList.Create();
if (sText != '') Result.Values['Text' ] = sText;
if (sParam != '') Result.Values['Param'] = sParam;
Params.AddObject(IntToStr(Params.Count), Result);
return Result;
}
// ----------------------------------------------------------------------------
Variant CreateControl(TWinControl aForm, TWinControl aParent, Variant CLASS, char CntrlName='', char sCaption='', char sHint='', int nModalResult=nil) {
Result = CLASS.Create(aForm);
Result.Parent = aParent;
if (sCaption != '') Result.Caption = sCaption;
if (nModalResult !=nil) Result.ModalResult = nModalResult;
if (CntrlName != '') {Result.Name = CntrlName; FORMOBJECTS.AddObject(CntrlName, Result);}
if (sHint != '') {Result.Hint = sHint; Result.ShowHint = true;}
return Result;
}
// ----------------------------------------------------------------------------
Variant GetFormObject(char CntrlName) {
int i = FORMOBJECTS.IndexOf(CntrlName);
if (i<0) return nil;
else return FORMOBJECTS.Objects[i];
}
// ----------------------------------------------------------------------------
void BuildPodcastTree(TTreeNodes TreeItems, THmsScriptMediaItem ParentItem, TTreeNode Root, int nLevel=0, bool bF=false) {
int i; Variant Item, NodeData; // Фильтруем: только папки лент подкастов и подкасты
if (!bF) if ((ParentItem.ItemClassID!=51)&&(ParentItem.ItemClassID!=53)) return;
NodeData = TStringList.Create();
NodeData.Values['Params'] = ParentItem[nIdStoreParams];
NodeData.AddObject('Item', ParentItem);
Item = TreeItems.AddChild(Root, GetTreeNodeName(NodeData));
Item.Data = NodeData;
if (ParentItem.HasChildItems && (nLevel<3)) {
for (i=0; i<ParentItem.ChildCount; i++) {
BuildPodcastTree(TreeItems, ParentItem.ChildItems[i], Item, nLevel+1, bF);
}
}
}
// ----------------------------------------------------------------------------
void UpdateParameters(char ParamsData='') {
int i, n, nMaxLen=0; Variant P, Control, Control2; char sParam, sValue, sPId;
for (i=0; i<PARAMS.Count; i++) {
P = PARAMS.Objects[i]; sPId = IntToStr(i);
if (P.Values['Class'] == 'CheckBox') {
Control = GetFormObject('PCheckBox'+sPId);
sParam = P.Values['Param'];
Control.OnClick = nil;
Control.Checked = (Pos(sParam, ParamsData)>0);
Control.OnClick = 'evntParamChanged';
if (Control.Checked) Control.Font.Style = 1; else Control.Font.Style = 0;
} else if (P.Values['Class'] == 'ComboBox') {
nMaxLen = 0;
Control = GetFormObject('PCheckBox'+sPId);
Control.OnClick = nil;
Control.Checked = false;
Control2 = GetFormObject('PComboBox'+sPId);
Control2.OnClick = nil;
Control2.ItemIndex = 0;
sValue = Trim(P.Values['Param0']);
n=0; while (sValue!='') {
HmsRegExMatch('\\|(.*?)$', sValue, sValue, 1, PCRE_SINGLELINE);
if ((Pos(sValue, ParamsData)>0) && (Length(sValue)>nMaxLen)) {
Control2.ItemIndex = n;
Control.Checked = true;
nMaxLen=Length(sValue);
}
n++; sValue = Trim(P.Values['Param'+IntToStr(n)]);
};
Control2.Enabled = Control.Checked;
Control.OnClick = 'evntParamChanged';
Control2.OnClick = 'evntParamChanged';
if (Control.Checked) Control.Font.Style = 1; else Control.Font.Style = 0;
} else if (P.Values['Class'] == 'Edit') {
Control = GetFormObject('PCheckBox'+sPId);
Control2 = GetFormObject('PEdit'+sPId);
if ((Control==nil) || (Control2==nil)) return;
Control.OnClick = nil;
Control2.OnExit = nil;
Control.Checked = false;
sParam = P.Values['Param'];
sParam = ReplaceStr(sParam, '<N>', '(\\d+)' );
sParam = ReplaceStr(sParam, '<S>', '"(.*?)"');
sValue = P.Values['Default'];
Control.Checked = HmsRegExMatch(sParam, ParamsData, sValue, 1, PCRE_SINGLELINE);
Control2.Text = sValue;
Control2.Enabled = Control.Checked;
Control.OnClick = 'evntParamChanged';
Control2.OnExit = 'evntParamChanged';
if (Control.Checked) Control.Font.Style = 1; else Control.Font.Style = 0;
} else if (P.Values['Class'] == 'RadioButton') {
}
}
}
// ----------------------------------------------------------------------------
char GetTreeNodeName(TStrings NodeData) {
Variant sParamsData, PodcastItem;
int i = NodeData.IndexOf('Item'); if (i<0) return '';
PodcastItem = NodeData.Objects[i];
sParamsData = Trim(NodeData.Values['Params']);
Result = PodcastItem[mpiTitle];
if (Pos('--', sParamsData)>0) {
Result = '('+IntToStr(WordCount(ReplaceStr(sParamsData, '--', '\n'), '\n'))+') '+Trim(Result);
}
return Result;
}
// ----------------------------------------------------------------------------
bool IsSetP(Variant P, char sName) {
Result = (UpperCase(LeftCopy(P.Values[sName], 1))=='Y');
return Result;
}
// ----------------------------------------------------------------------------
void ShowParameters() {
Variant P, Line, Control, ParamZone; char sValue, sParam;
int nLeft = 10, nTop = 10, nHeight = 36, nWidth, i, n, nLabelWidth, nCntrlWidth;
Variant frmMain = GetFormObject('frmMain' ); if (frmMain ==nil) return;
Variant prmPanel = GetFormObject('prmPanel'); if (prmPanel==nil) return;
nWidth = prmPanel.Width - (nLeft*2) - 16;
for (i=0; i<PARAMS.Count; i++) {
P = PARAMS.Objects[i];
if (P.Values['Class'] == 'CheckBox') {
Control = CreateControl(frmMain, prmPanel, TCheckBox, 'PCheckBox'+IntToStr(i), P.Values['Caption'], P.Values['Hint']);
Control.SetBounds(nLeft, nTop+3, nWidth, 16);
Control.Tag = i;
Control.OnClick = 'evntParamChanged';
} else if (P.Values['Class'] == 'ComboBox') {
nLabelWidth = StrToIntDef(P.Values['caWidth'], 80);
nCntrlWidth = StrToIntDef(P.Values['coWidth'], 160);
Control = CreateControl(frmMain, prmPanel, TCheckBox, 'PCheckBox'+IntToStr(i), P.Values['Caption']+':', P.Values['Hint']);
Control.SetBounds(nLeft, nTop+3, nLabelWidth, 18);
Control.Tag = i;
Control.OnClick = 'evntParamChanged';
Control = CreateControl(frmMain, prmPanel, TComboBox, 'PComboBox'+IntToStr(i), P.Values['Caption'], P.Values['Hint']);
Control.SetBounds(nLeft+nLabelWidth+4, nTop, nCntrlWidth, 16);
Control.Enabled = false;
Control.Style = csDropDownList;
Control.Tag = i;
sValue = P.Values['Param0'];
n=0; while (sValue!='') {
HmsRegExMatch2('^(.*?)\\|(.*?)$', sValue, sValue, sParam, PCRE_SINGLELINE);
Control.Items.Add(sValue);
n++;
sValue = P.Values['Param'+IntToStr(n)];
};
Control.ItemIndex = 0;
Control.OnClick = 'evntParamChanged';
} else if (P.Values['Class'] == 'Edit') {
nLabelWidth = StrToIntDef(P.Values['caWidth'], 80);
nCntrlWidth = StrToIntDef(P.Values['coWidth'], 50);
Control = CreateControl(frmMain, prmPanel, TCheckBox, 'PCheckBox'+IntToStr(i), P.Values['Caption']+':', P.Values['Hint']);
Control.SetBounds(nLeft, nTop+3, nLabelWidth, 18);
Control.Tag = i;
Control.OnClick = 'evntParamChanged';
Control = CreateControl(frmMain, prmPanel, TEdit, 'PEdit'+IntToStr(i), P.Values['Caption'], P.Values['Hint']);
Control.SetBounds(nLeft+nLabelWidth+4, nTop, nCntrlWidth, 16);
Control.Enabled = false;
Control.Text = P.Values['Default'];
Control.Tag = i;
Control.OnExit = 'evntParamChanged';
if (IsSetP(P, 'OnlyNum')) Control.OnKeyDown = 'evntOnKeyDownOnlyNum';
} else if (P.Values['Class'] == 'RadioButton') {
sValue = P.Values['Param0'];
n=0; while (sValue!='') {
HmsRegExMatch2('^(.*?)\\|(.*?)$', sValue, sValue, sParam, PCRE_SINGLELINE);
Control = CreateControl(frmMain, prmPanel, TRadioButton, 'PRB'+IntToStr(i), sValue, P.Values['Hint']);
n++; sValue = P.Values['Param'+IntToStr(n)];
Control.SetBounds(nLeft, nTop, nWidth, 16);
Control.Tag = i;
Control.OnClick = 'evntParamChanged';
nTop += 20;
};
}
Control = TGroupBox.Create(frmMain);
Control.Parent = prmPanel;
Control.SetBounds(nLeft, nTop+nHeight-8, nWidth, 3);
nTop += nHeight;
}
}
// ----------------------------------------------------------------------------
void BoundControl(char CntrlName, int nLeft, int nTop, int nWidth, int nHeight) {
Variant obj = GetFormObject(CntrlName);
if (obj!=nil) obj.SetBounds(nLeft, nTop, nWidth, nHeight);
}
// ----------------------------------------------------------------------------
void evntOnKeyDownOnlyNum(Variant obj, int nKey, TShiftState ShiftState) {
obj.ReadOnly = ((nKey > 30) && !HmsRegExMatch('[\\d]', Chr(nKey), '', 1, PCRE_SINGLELINE));
}
// ----------------------------------------------------------------------------
TStrings SortStr4Length(TStrings S) {
int i, j; char x;
for (i=1; i<S.Count; i++) {
if (Length(S[i]) < Length(S[i-1])) {
x = S[i]; j = i;
do {S[j] = S[j-1]; j--;} while ((j>1) && (Length(x)<=Length(S[j-1])));
S[j] = x;
}
}
return S;
}
// ----------------------------------------------------------------------------
void SetUnsetParameter(char sValue, TStrings AvaliableParams) {
char sParam, sParams, s; int i;
i = FORMOBJECTS.IndexOf('CurrentNode'); if (i<0) return;
Variant Node = FORMOBJECTS.Objects[i]; if (Node == nil) return;
sParams = Node.Data.Values['Params'];
AvaliableParams.Text = ReplaceStr(AvaliableParams.Text, '<N>', '\\d+' );
AvaliableParams.Text = ReplaceStr(AvaliableParams.Text, '<S>', '".*?"');
AvaliableParams = SortStr4Length(AvaliableParams);
for (i=AvaliableParams.Count-1; i>=0; i--) {
sParam = AvaliableParams[i];
if (sParam=='') continue;
if (HmsRegExMatch('('+sParam+')', sParams, s, 1, PCRE_SINGLELINE)) {
sParams = ReplaceStr(sParams, ' '+s, '');
sParams = ReplaceStr(sParams, s, '');
}
}
sParams = Trim(sParams)+' '+sValue;
Node.Data.Values['Params'] = sParams;
Node.Text = GetTreeNodeName(Node.Data);
}
// ----------------------------------------------------------------------------
void evntParamChanged(Variant obj) {
char sParam='', sValue, sPId=IntToStr(obj.Tag); int n;
Variant P, Control, Control2; TStrings AvalParams;
AvalParams = TStringList.Create();
P = PARAMS.Objects[obj.Tag];
if (P.Values['Class'] == 'CheckBox') {
Control = GetFormObject('PCheckBox'+sPId);
AvalParams.Add(P.Values['Param']);
if (Control.Checked) {
sParam = P.Values['Param'];
Control.Font.Style = 1;
} else {
Control.Font.Style = 0;
}
} else if (P.Values['Class'] == 'ComboBox') {
Control = GetFormObject('PCheckBox'+sPId);
if (Control.Checked) Control.Font.Style = 1; else Control.Font.Style = 0;
Control2 = GetFormObject('PComboBox'+sPId);
if ((Control==nil) || (Control2==nil)) return;
Control2.Enabled = Control.Checked;
sValue = Trim(P.Values['Param0']);
n=0; while (sValue!='') {
HmsRegExMatch('\\|(.*?)$', sValue, sValue, 1, PCRE_SINGLELINE);
AvalParams.Add(sValue);
if (Control2.ItemIndex == n) sParam = sValue;
n++; sValue = Trim(P.Values['Param'+IntToStr(n)]);
};
if (!Control.Checked) sParam = '';
} else if (P.Values['Class'] == 'Edit') {
Control = GetFormObject('PCheckBox'+sPId);
if (Control.Checked) Control.Font.Style = 1; else Control.Font.Style = 0;
Control2 = GetFormObject('PEdit'+sPId);
if ((Control==nil) || (Control2==nil)) return;
Control2.Enabled = Control.Checked;
AvalParams.Add(P.Values['Param']);
if (Control.Checked) {
sParam = P.Values['Param'];
sParam = ReplaceStr(sParam, '<N>', Trim(Control2.Text));
sParam = ReplaceStr(sParam, '<S>', '"'+Trim(Control2.Text)+'"');
}
} else if (P.Values['Class'] == 'RadioButton') {
}
SetUnsetParameter(sParam, AvalParams);
}
// ----------------------------------------------------------------------------
void evntTreeOnClick(Variant obj) {
Variant Node = obj.Selected; if (Node == nil) return;
int i = FORMOBJECTS.IndexOf('CurrentNode');
if (i<0) FORMOBJECTS.AddObject('CurrentNode', Node);
else FORMOBJECTS.Objects[i] = Node;
if (Node.Data != nil) UpdateParameters(Node.Data.Values['Params']);
}
// ----------------------------------------------------------------------------
void evntFormOnCanResize(Variant frm, int nNewWidth, int nNewHeight, bool bResize) {
int nMinWidth = 344, nMinHeight = 280;
if (nNewWidth < nMinWidth ) nNewWidth = nMinWidth;
if (nNewHeight < nMinHeight) nNewHeight = nMinHeight;
}
// ----------------------------------------------------------------------------
void evntPageCaptFXOnTimer(Variant obj) {
int nSpeed, nTop, nLeftTo = 10, nTopTo = 0; Variant Label, Line;
Label = GetFormObject('Page'+IntToStr(obj.Tag)+'Capt'); if (Label==nil) return;
Label.Top += Round((nTopTo - Label.Top) / 4) + 1;
if (Label.Top>=nTopTo) Label.Top = nTopTo;
Line = GetFormObject('Page'+IntToStr(obj.Tag)+'Line'); if (Line==nil) return;
Line.Width += Round((Label.Width - Line.Width) / 4) + 1;
if (Line.Width>=Label.Width) Line.Width = Label.Width;
if ((Label.Top==nTopTo) && (Line.Width==Label.Width)) obj.Enabled = false;
}
// ----------------------------------------------------------------------------
int ColorMotion(int ColorFrom, int ColorTo, int nSpeed = 3, bool bLiner=false) {
int R1, G1, B1, R2, G2, B2;
R1 = (ColorFrom && 0x0000FF);
G1 = (ColorFrom && 0x00FF00) >> 8;
B1 = (ColorFrom && 0xFF0000) >> 16;
R2 = (ColorTo && 0x0000FF);
G2 = (ColorTo && 0x00FF00) >> 8;
B2 = (ColorTo && 0xFF0000) >> 16;
if (bLiner) {
R1-=nSpeed; G1-=nSpeed; B1-=nSpeed;
} else {
R1-= Round((R1-R2) / nSpeed)+1;
G1-= Round((G1-G2) / nSpeed)+1;
B1-= Round((B1-B2) / nSpeed)+1;
}
if (R1<R2) R1=R2;
if (G1<G2) G1=G2;
if (B1<B2) B1=B2;
return B1*256*256+G1*256+R1;
}
// ----------------------------------------------------------------------------
void evntAboutFXOnTimer(Variant Timer) {
Variant afx4Fun, Label, Page; int i, fxNo, nCnt, nWrd, nFontSize, nFontColor; char sWrd;
afx4Fun = GetFormObject('afx4Fun'); if (afx4Fun == nil) {Timer.Enabled = false; return;}
fxNo = StrToIntDef(afx4Fun.Values['fxNo'], 0);
if (fxNo>5) {Timer.Enabled = false; return;}
if (fxNo==0) {
Label = GetFormObject('lblAboutL1'); if (Label == nil) {fxNo++; return;}
nFontSize = 12;
nFontColor = 0xAA8926;
Label.Font.Color = ColorMotion(Label.Font.Color, nFontColor, 2);
Label.Font.Size -= Round((Label.Font.Size-nFontSize) / 2)+1;
if (Label.Font.Size < nFontSize) Label.Font.Size = nFontSize;
if ((Label.Font.Size==nFontSize) && (Label.Font.Color<=nFontColor)) fxNo++;
} else if (fxNo==1) {
nCnt = StrToIntDef(afx4Fun.Values['wCnt'], 0);
for (i=1; i<=nCnt; i++) {Label=GetFormObject('lblAbout'+IntToStr(i)); Label.Font.Size=138;}
afx4Fun.Values['nWrd'] = '1';
fxNo++;
} else if (fxNo==2) {
sWrd = afx4Fun.Values['nWrd'];
Label = GetFormObject('lblAbout'+sWrd); if (Label == nil) {fxNo++; return;}
nFontSize = 15;
nFontColor = 0xAA8926;
Label.Font.Color = ColorMotion(Label.Font.Color, nFontColor, 2);
Label.Font.Size -= Round((Label.Font.Size-nFontSize) / 2)+1;
if (Label.Font.Size < nFontSize) Label.Font.Size = nFontSize;
if ((Label.Font.Size==nFontSize) && (Label.Font.Color<=nFontColor)) {
nWrd = StrToIntDef(sWrd, 0) + 1;
afx4Fun.Values['nWrd'] = IntToStr(nWrd);
if (nWrd>WordCount(afx4Fun.Values['Wrds'], '|')) {
fxNo++;
Label = GetFormObject('lblAboutSkip1'); if (Label!=nil) Label.Font.Color = nFontColor;
}
}
} else if (fxNo==3) {
Page = GetFormObject('Page3'); if (Page == nil) {fxNo++; return;}
Label = GetFormObject('LineAbout'); if (Label == nil) {fxNo++; return;}
nFontSize = 320;
nFontColor = 0x6C60EC;
Label.Width += Round((nFontSize-Label.Width) / 4)+1;
Label.Brush.Color = ColorMotion(Label.Brush.Color, nFontColor, 3);
if (Label.Width > nFontSize) Label.Width = nFontSize;
Label.Left = Round(Page.Width/2-Label.Width/2);
if ((Label.Width==nFontSize) && (Label.Brush.Color<=nFontColor)) {
Label = GetFormObject('lblAboutSkip2'); if (Label!=nil) Label.Font.Color = 0xAA8926;
fxNo++;
}
} else if (fxNo==4) {
Label = GetFormObject('lblAboutDate'); if (Label == nil) {fxNo++; return;}
Label.Font.Color = 0x555555;
fxNo++;
} else if (fxNo==5) {
Label = GetFormObject('lblAboutAuthor'); if (Label == nil) {fxNo++; return;}
nFontColor = 0x666666;
Label.Font.Color = ColorMotion(Label.Font.Color, nFontColor, 155);
if (Label.Font.Color==nFontColor) fxNo++;
}
afx4Fun.Values['fxNo'] = IntToStr(fxNo);
}
// ----------------------------------------------------------------------------
int AddAboutLabel(int nTop, Variant frmMain, Variant Page, char sName, char sText, int nSize, char sFont='Tahoma', bool bBold=false) {
Variant Label;
Label = CreateControl(frmMain, Page, TLabel, sName, sText);
Label.Align = alTop;
Label.Transparent= true;
Label.Alignment = 2;
Label.Font.Size = nSize;
Label.Font.Color = 0xF0F0F0;
Label.Font.Name = sFont;
if (bBold) Label.Font.Style = fsBold;
return Label.Height;
}
// ----------------------------------------------------------------------------
void PrepareAboutText(Variant frmMain, Variant Page, Variant aFx4Fun) {
Variant Line; int i, nTop=0, nCnt;
nTop = AddAboutLabel(0, frmMain, Page, 'lblAboutL1', 'О ПОДКАСТЕ:', 12, 'Georgia', true);
nCnt = WordCount(afx4Fun.Values['Wrds'], '|');
afx4Fun.Values['wCnt'] = IntToStr(nCnt);
nTop+= AddAboutLabel(0, frmMain, Page, 'lblAboutSkip0', ' ', 15);
for (i=1; i<=nCnt; i++) {
nTop+= AddAboutLabel(nTop, frmMain, Page, 'lblAbout'+IntToStr(i), ExtractWord(i, afx4Fun.Values['Wrds'], '|'), 15, '');
}
nTop+= AddAboutLabel(0, frmMain, Page, 'lblAboutSkip1', ' ', 4);
Line = CreateControl(frmMain, Page, TShape, 'LineAbout');
Line.Brush.Color = 0xF0F0F0;
Line.Pen.Style = psClear;
Line.Width = 0;
Line.SetBounds(Round(Page.Width/2-Line.Width/2), nTop, Line.Width, 3);
AddAboutLabel(0, frmMain, Page, 'lblAboutSkip2', '~', 13);
//AddAboutLabel(0, frmMain, Page, 'lblAboutSkip2', ' ', 6);
AddAboutLabel(0, frmMain, Page, 'lblAboutDate', gsCfgDate, 10);
AddAboutLabel(0, frmMain, Page, 'lblAboutSkip3', ' ', 6);
AddAboutLabel(0, frmMain, Page, 'lblAboutAuthor', gsCfgAuthor, 12, 'Georgia', true);
}
// ----------------------------------------------------------------------------
// Обновление списка сериалов
void UpdateSerials() {
}
// КОНЕЦ НАБОРА ВИЗУАЛЬНЫХ ФУНКЦИЙ И ПРОЦЕДУР
// ============================================================================
// =======================================================================================
// НАБОР ПРОЦЕДУР И ФУНКЦИЙ -= WONKY307 =- ver 307.48
// ---------------------------------------------------------------------------------------
// Добавление в коллектор
void CollectTheItem(Variant OrigItem, bool bGroupMode, int nCountInGRP, int nGroup, char sGroupName) {
int i, OldGROUPMODE = GROUPMODE; char sTitle, sOldGroup = sGroupName;
THmsScriptMediaItem GroupItem, Folder, Item; Variant WOBJECT;
if ((W_MODE==1) || (WCOLLECT==nil)) return;
for (i=0; i<WCOLLECT.Count; i++) {
WOBJECT = WCOLLECT.Objects[i]; if (WOBJECT==nil) continue;
if (!CheckObjectCondition(WOBJECT, OrigItem)) continue;
sTitle = WOBJECT.Values['Title'];
GROUPMODE = 1;
Folder = COLLECTOR.AddFolder(sTitle + ' - По алфавиту', true);
Folder[mpiFolderSortOrder] = "mpTitle";
ControlGrouping(OrigItem[mpiTitle], OrigItem[mpiYear], bGroupMode, nCountInGRP, nGroup, sGroupName, 2);
if (sGroupName!='') {
if (Length(sGroupName)==2) {
GroupItem = Folder.AddFolder(LeftCopy(sGroupName, 1), true);
if (Trim(GroupItem[mpiFolderSortOrder])=='') Folder[mpiFolderSortOrder] = mpiTitle;
GroupItem = GroupItem.AddFolder(sGroupName, false);
} else {
GroupItem = Folder.AddFolder(sGroupName, false);
}
}
else GroupItem = Folder; GroupItem[532] = 0; // Отключаем скрипт обновления
if (Trim(GroupItem[mpiFolderSortOrder])=='') GroupItem[mpiFolderSortOrder] = mpiTitle;
if (COLLECTASITEM==1) {
Item = HmsCreateMediaItem(OrigItem[mpiFilePath], GroupItem.ItemID);
} else {
Item = GroupItem.AddFolder(OrigItem[mpiFilePath], true);
}
Item[mpiTitle] = OrigItem[mpiTitle]; // Название
Item[mpiThumbnail] = OrigItem[mpiThumbnail]; // Картинка
Item[mpiComment] = OrigItem[mpiComment]; // Комментарий
Item[mpiYear] = OrigItem[mpiYear]; // Год
Item[mpiDirector] = OrigItem[mpiDirector]; // Режиссер
Item[mpiTimeLength] = OrigItem[mpiTimeLength]; // Длительность
Item[mpiActor] = OrigItem[mpiActor]; // В ролях
Item[mpiGenre] = OrigItem[mpiGenre]; // Жанр
Item[mpiCreateDate] = OrigItem[mpiCreateDate]; // Дата создания
Item[mpiPodcastParameters] = OrigItem[mpiPodcastParameters]; // Параметры
Item[mpiFolderSortOrder] = -mpiCreateDate; // Сортировка: Дата создания по убыванию
GROUPMODE = 3;
Folder = COLLECTOR.AddFolder(sTitle + ' - По годам', true);
Folder[mpiFolderSortOrder] = -mpiTitle;
ControlGrouping(OrigItem[mpiTitle], OrigItem[mpiYear], bGroupMode, nCountInGRP, nGroup, sGroupName);
if (sGroupName!='') GroupItem = Folder.AddFolder(sGroupName, false);
else GroupItem = Folder; GroupItem[532] = 0; // Отключаем скрипт обновления
if (Trim(GroupItem[mpiFolderSortOrder])=='') GroupItem[mpiFolderSortOrder] = -mpiCreateDate;
if (COLLECTASITEM==1) {
Item = HmsCreateMediaItem(OrigItem[mpiFilePath], GroupItem.ItemID);
} else {
Item = GroupItem.AddFolder(OrigItem[mpiFilePath], true);
}
Item[mpiTitle] = OrigItem[mpiTitle]; // Название
Item[mpiThumbnail] = OrigItem[mpiThumbnail]; // Картинка
Item[mpiComment] = OrigItem[mpiComment]; // Комментарий
Item[mpiYear] = OrigItem[mpiYear]; // Год
Item[mpiDirector] = OrigItem[mpiDirector]; // Режиссер
Item[mpiTimeLength] = OrigItem[mpiTimeLength]; // Длительность
Item[mpiActor] = OrigItem[mpiActor]; // В ролях
Item[mpiGenre] = OrigItem[mpiGenre]; // Жанр
Item[mpiCreateDate] = OrigItem[mpiCreateDate];
Item[mpiPodcastParameters] = OrigItem[mpiPodcastParameters]; // Параметры
Item[mpiFolderSortOrder] = -mpiCreateDate;
sGroupName = sOldGroup; GROUPMODE = OldGROUPMODE;
break;
}
}
// ---------------------------------------------------------------------------------------
// Рекурсивная функция создания динамических подпапок
void CreateDynamicItems(TStrings WONKYBLK, Variant ParentItem, char &sScript='') {
int n, i, nParamId; char sTitle, sLink, sName, s;
Variant WONKYOBJECT, SUBBLOCK, Folder, Item;
for (n=0; n<WONKYBLK.Count; n++) {
SUBBLOCK = WONKYBLK.Objects(n); if (SUBBLOCK==0) continue;
sTitle = SUBBLOCK.Values['mpiTitle']; if (sTitle=='') continue;
sLink = SUBBLOCK.Values['mpiFilePath']; if (sLink =='') sLink=sTitle;
Folder = ParentItem.AddFolder(sLink, false, 32);
Folder[mpiTitle] = sTitle;
Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Folder[200] = 5; // mpiFolderType
Folder[500] = sScript; // mpiDynamicScript
Folder[501] = 'C++Script'; // mpiDynamicSyntaxType
Folder[mpiFolderSortOrder] = -mpiCreateDate;
for (i=0; i<SUBBLOCK.Count; i++) {
sName = SUBBLOCK.Names(i); if (sName=='') continue;
nParamId = GetIdByParamName(sName);
if ((nParamId==0)||(nParamId==mpiTitle)||(nParamId==mpiFilePath)) continue;
Folder[nParamId] = SUBBLOCK.Values[sName];
}
if (GetWonkyObject(SUBBLOCK, 'CreateItems', WONKYOBJECT, ParentItem)) CreateDynamicItems(WONKYOBJECT, Folder, sScript);
if (Folder.HasChildItems) {
s = '';
for (i=0; i<Folder.ChildCount; i++) {
Item = Folder.ChildItems[i];
s += Format("['%s','%s','%s'],\n", [Item[mpiTitle], Item[mpiFilePath], Trim(Item[mpiThumbnail])]);
}
s = 'Variant aSubs = [\n'+Trim(s)+'\n];';
Folder[500] = ReplaceStr(sScript, 'Variant aSubs = "";', s);
}
}
}
// ---------------------------------------------------------------------------------------
// Создание папки настроек (альтернативный вариант)
void CreateSettingsFolder(TStrings WONKYBLK, Variant ParentItem, char sFolderName='', char sFolderLink='') {
int i, n, n2, nParamId; char sTitle, sLink, sName;
Variant WONKYOBJECT, WONKYOBJECT2, SUBBLOCK, SUBBLOCK2; THmsScriptMediaItem SetFolder, Folder, Folder2, Item;
if (sFolderLink=='') sFolderLink = sFolderName;
SetFolder = ParentItem.AddFolder(sFolderLink, true);
SetFolder[mpiCreateDate] = '31.12.5013 23:59';
SetFolder[mpiTitle] = sFolderName;
SetFolder[mpiFolderSortOrder] = -mpiCreateDate;
if (!GetWonkyObject(WONKYBLK, 'CreateItems', WONKYOBJECT, ParentItem)) return;
for (n=0; n<WONKYOBJECT.Count; n++) {
SUBBLOCK = WONKYOBJECT.Objects(n); if (SUBBLOCK==0) continue;
sTitle = SUBBLOCK.Values['mpiTitle']; if (sTitle=='') continue;
sLink = SUBBLOCK.Values['mpiFilePath']; if (sLink =='') sLink=sTitle;
Folder = SetFolder.AddFolder(sLink, true);
Folder[mpiTitle] = sTitle;
Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Folder[mpiFolderSortOrder] = -mpiCreateDate;
for (i=0; i<SUBBLOCK.Count; i++) {
sName = SUBBLOCK.Names(i); if (sName=='') continue;
nParamId = GetIdByParamName(sName);
if ((nParamId==0)||(nParamId==mpiTitle)||(nParamId==mpiFilePath)) continue;
Folder[nParamId] = SUBBLOCK.Values[sName];
}
if (GetWonkyObject(SUBBLOCK, 'CreateItems', WONKYOBJECT2, ParentItem)) {
for (n2=0; n2<WONKYOBJECT2.Count; n2++) {
SUBBLOCK2 = WONKYOBJECT2.Objects(n2); if (SUBBLOCK2==0) continue;
sTitle = SUBBLOCK2.Values['mpiTitle']; if (sTitle=='') continue;
sLink = SUBBLOCK2.Values['mpiFilePath']; if (sLink =='') sLink=sTitle;
Folder2 = Folder.AddFolder(sLink, true);
Folder2[mpiTitle] = sTitle;
Folder2[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Folder2[mpiFolderSortOrder] = -mpiCreateDate;
Item = HmsCreateMediaItem(sLink+' '+Folder[mpiFilePath]+' ROOTITEM="'+ROOTPODCAST.ItemID+'"', Folder2.ItemID);
Item[mpiTitle] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[mpiFolderSortOrder] = -mpiCreateDate;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
for (i=0; i<SUBBLOCK2.Count; i++) {
sName = SUBBLOCK2.Names(i); if (sName=='') continue;
nParamId = GetIdByParamName(sName);
if ((nParamId==0)||(nParamId==mpiTitle)||(nParamId==mpiFilePath)) continue;
Item[nParamId] = SUBBLOCK2.Values[sName];
}
}
}
}
}
// ---------------------------------------------------------------------------------------
// Создание динамических каталогов (поиска или настроек)
void CreateDynamicGroup(TStrings WONKYBLK, Variant ParentItem, char sFolderName='', char sFolderLink='', char sScriptExp='') {
int n; char sScript='', s1, s2, sVarName, sVarValue;
Variant WONKYOBJECT; THmsScriptMediaItem Folder;
if (sFolderLink=='') sFolderLink = sFolderName;
Folder = ParentItem.AddFolder(sFolderLink, false, 32);
Folder[mpiCreateDate] = '31.12.5013 23:59';
Folder[mpiTitle] = sFolderName;
Folder[mpiFolderSortOrder] = -mpiCreateDate;
// Получаем текст скрипта для динамических папок (из скрипта создания подкаст лент)
if (sScriptExp!='') HmsRegExMatch(sScriptExp, FolderItem[571], sScript, 1, PCRE_SINGLELINE);
sScript = ReplaceStr(sScript, '*//*', '*/*');
// Заменяем в скрипте глобальные текстовые переменные из конфига (если таковые там встречаются)
for (n=0; n<WONKYBLK.Count; n++) {
sVarName = WONKYBLK.Names[n]; s1 = LeftCopy(sVarName, 2); if ((s1!='gs')&&(s1!='gn')) continue;
sVarValue = WONKYBLK.Values[sVarName];
if (s1=='gn') {
if(HmsRegExMatch2("(("+sVarName+"\\s*?=).*?;)", sScript, s1, s2, PCRE_SINGLELINE)) sScript = ReplaceStr(sScript, s1, s2+" "+sVarValue+";");
} else {
if(HmsRegExMatch2("(("+sVarName+"\\s*?=).*?;)", sScript, s1, s2, PCRE_SINGLELINE)) sScript = ReplaceStr(sScript, s1, s2+" '"+sVarValue+"';");
}
}
if ((Trim(sScript)!='') && (sFolderLink!='-SettingsCommands')) {
Folder[200] = 5; // mpiFolderType
Folder[500] = sScript; // mpiDynamicScript
Folder[501] = 'C++Script'; // mpiDynamicSyntaxType
}
if (!GetWonkyObject(WONKYBLK, 'CreateItems', WONKYOBJECT, ParentItem)) return;
CreateDynamicItems(WONKYOBJECT, Folder, sScript);
}
/*BeginSettingsScript
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = "";
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
EndSettingsScript*/
/*BeginSearchScript
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://www.google.ru/complete/search?sclient=psy-ab&q=';
char gsSuggestResultCut= '';
char gsSuggestRegExpr = '\\["(.*?)",';
char gsSuggestMethod = 'GET';
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.IsFolder || (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.IsFolder || (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;
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, '\\', '');
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(); // Говорим устройству об обновлении содержания
}
EndSearchScript*/
// ---------------------------------------------------------------------------------------
// Обработка названия
char NormalizeTitle(char sTitle, char sYear='', char sParentTitle='', char sParentParentTitle='') {
char sValue1, sValue2, sValue3=''; bool bDontAddYear=false, bDontShort=false; int i, n;
sTitle = ReplaceStr(ReplaceStr(sTitle, ' />', '>'), '/>', '>');
sTitle = HmsHtmlToText(sTitle);
if (HmsRegExMatch('(?:[Сс]ерия|[Сс]езон|[Вв]ыпуск)', sTitle, sValue1)) {
bDontAddYear = true;
// bDontShort = true;
HmsRegExMatch('^(.*?)[-/|\\(]', sTitle, sValue1);
if (Pos(sValue1, sParentTitle+sParentParentTitle)>0) {
HmsRegExMatch('([Сс]ерия\\s+\\d+)', sTitle, sTitle);
HmsRegExMatch('(\\s+\\d+[Сс]ерия)', sTitle, sTitle);
HmsRegExMatch('([Вв]ыпуск\\s+\\d+)', sTitle, sTitle);
HmsRegExMatch('(\\s+\\d+[Вв]ыпуск)', sTitle, sTitle);
HmsRegExMatch('(\\d+\\s+[Сс]езон)', sTitle, sTitle);
HmsRegExMatch('([Сс]езон\\d+\\s+)', sTitle, sTitle);
}
}
if (HmsRegExMatch('\\|(.*)', sTitle, sValue2)) {
HmsRegExMatch('^(.*?)[-|\\(]', sTitle, sValue1);
sTitle = sValue1 + ' - ' + sValue2;
}
sValue1 = WONKY307.Values['RemoveFromTitle'];
if (sValue1!='') {
n = WordCount(sValue1, '|');
for (i=1; i<=n; i++) {
sValue2 = ExtractWord(i, sValue1, '|');
sTitle = ReplaceStr(sTitle, sValue2, '');
}
}
if (REMSERIEWORD==1) if (HmsRegExMatch ('([Сс]ерия\\s)', sTitle, sValue1)) sTitle = ReplaceStr(sTitle, sValue1+' ', '');
if (HmsRegExMatch2('^(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format(gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
else if (HmsRegExMatch2('^[Сс]ерия\\s+(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format('Серия '+gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
else if (HmsRegExMatch2('^[Сс]езон\\s+(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format('Сезон '+gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
else if (HmsRegExMatch2('^[Вв]ыпуск\\s+(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format('Выпуск '+gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
if (TITLECASE==0) sTitle = sTitle; // Чтобы много раз потом непроверять, когда там 0
else if (TITLECASE==1) sTitle = Uppercase(sTitle);
else if (TITLECASE==2) sTitle = Uppercase(Copy(sTitle, 1, 1))+Lowercase(Copy(sTitle, 2, 999));
else if (TITLECASE==3) sTitle = NameCase (sTitle);
// Если есть указание добавлять год к названию фильма, то проверяем есть этот год и не есть ли он уже там
if ((YEARINTITLE==1) && !bDontAddYear) if ((Trim(sYear)!='') && (Pos(sYear, sTitle)<1)) sTitle += ' ('+sYear+')';
sTitle = ReplaceStr(sTitle, '/', '-');
return sTitle;
}
// ---------------------------------------------------------------------------------------
// Контроль группировки и подготовка имени группы.
void ControlGrouping(char sTitle, char sYear, bool &bGroupMode, int &nCountInGRP, int &nGroup, char &sGroupName, int iChars=1) {
char sName;
nCountInGRP++;
if ((GROUPMODE==0) && bGroupMode) {
// Группировка обычная, по максимальному количеству элементов в группе
if (sGroupName == '') sGroupName = Format('%.2d', [nGroup]);
if (nCountInGRP>MAXINGROUP) {nGroup++; nCountInGRP=1; sGroupName=Format('%.2d', [nGroup]);}
} else if (GROUPMODE==1) {
// Группировка по алфавиту - первым буквам названия
sName = Uppercase(sTitle);
// Пропускаем первые не алфавитные символы и не цифры
if (!HmsRegExMatch('([0-9A-ZА-Я].*)', sName, sName)) sGroupName = '#'; // Если название вообще из не алфавитных
else sGroupName = LeftCopy(sName, iChars);
if (HmsRegExMatch('\\d', sGroupName, sGroupName)) sGroupName = '#';
if (HmsRegExMatch('[A-Z]', sGroupName, sGroupName)) sGroupName = 'A..Z';
bGroupMode = true;
} else if (GROUPMODE==2) {
// Группировка по алфавиту - первые буквы названия входят в группы А-Г, ...
sName = Uppercase(sTitle);
// Пропускаем первые не алфавитные символы и не цифры
if (!HmsRegExMatch('([0-9A-ZА-Я].*)', sName, sName)) sGroupName = '#'; // Если название вообще из не алфавитных
else sGroupName = LeftCopy(sName, 1);
if (HmsRegExMatch('\\d', sGroupName, sGroupName)) sGroupName = '#';
else if (HmsRegExMatch('[A-Z]', sGroupName, sGroupName)) sGroupName = 'A..Z';
else if (HmsRegExMatch('[А-Г]', sGroupName, sGroupName)) sGroupName = 'А..Г';
else if (HmsRegExMatch('[Д-З]', sGroupName, sGroupName)) sGroupName = 'Д..З';
else if (HmsRegExMatch('[И-Н]', sGroupName, sGroupName)) sGroupName = 'И..Н';
else if (HmsRegExMatch('[О-С]', sGroupName, sGroupName)) sGroupName = 'О..С';
else if (HmsRegExMatch('[Т-Х]', sGroupName, sGroupName)) sGroupName = 'Т..Х';
else if (HmsRegExMatch('[Ц-Я]', sGroupName, sGroupName)) sGroupName = 'Ц..Я';
bGroupMode = true;
} else if (GROUPMODE==3) {
// Группировка по годам (если указан)
sGroupName = sYear;
if (Trim(sGroupName)=='') sGroupName = 'Год неуказан';
bGroupMode = true;
}
}
// ---------------------------------------------------------------------------------------
void LogMe(char sMsg) {
char sText='';
if (DBGFILE=='') return;
if (FileExists(DBGFILE)) sText = HmsStringFromFile(DBGFILE);
HmsStringToFile(sText+Format('%s %s\n', [VarToStr(Now), sMsg]), DBGFILE);
}
// ---------------------------------------------------------------------------------------
// Получить дату в формате HMS.
char Date2HMSFormat(char sDateStr) {
char s='', sYear, sMonth, sDay, sTime;
char sStrMonth ='Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec';
char sStrMonthRus='янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек';
int n;
if (HmsRegExMatch3('(\\d{4}).(\\d{2}).(\\d{2})', sDateStr, sYear, sMonth, sDay, PCRE_SINGLELINE)) {
//'2012-06-12T12:32:16.000Z';
s = sDay+'.'+sMonth+'.'+sYear+' '+Copy(sDateStr,12, 5);
} else if (HmsRegExMatch3('(\\d{2}).(\\w{3}).(\\d{4}).\\d{2}:\\d{2}', sDateStr, sDay, sMonth, sYear, PCRE_SINGLELINE)) {
// 'Wed, 29 Oct 2008 14:14:48 +0000'
for (n=1; n<=12; n++) {if ((ExtractWord(n, sStrMonth, ',')==sMonth)||(ExtractWord(n, sStrMonthRus, ',')==sMonth)) break;}
sMonth = Format("%.2d", [n]);
s = sDay+'.'+sMonth+'.'+sYear+' '+Copy(sDateStr,12, 5);
} else if (HmsRegExMatch3('(\\d{2}).(\\w{3}).(\\d{4})', sDateStr, sDay, sMonth, sYear, PCRE_SINGLELINE)) {
// '23 янв 2008'
for (n=1; n<=12; n++) {if ((ExtractWord(n, sStrMonth, ',')==sMonth)||(ExtractWord(n, sStrMonthRus, ',')==sMonth)) break;}
sMonth = Format("%.2d", [n]);
s = sDay+'.'+sMonth+'.'+sYear+' '+Copy(sDateStr,12, 5);
}
return s;
}
// ---------------------------------------------------------------------------------------
// Получить длительность в формате HMS.
char GetTimeLength(char sDura) {
int nH, nM, nS, nSecs, nMins; char sH, sM, sS;
if (Pos(':', sDura)>0) {
// Если там есть двоеточие, то думаем что там минуты:секунды или даже ещё и часы
sDura=HmsHtmlToText(sDura);
if (WordCount(sDura, ':')==3) {
HmsRegExMatch('(\\d*:\\d*:\\d\\d?)', sDura, sDura, 1, PCRE_SINGLELINE); // Убираем левые символы (не цифры). Бывает такое.
nH = StrToIntDef(ExtractWord(1, sDura, ':'), 0);
nM = StrToIntDef(ExtractWord(2, sDura, ':'), 0);
nS = StrToIntDef(ExtractWord(3, sDura, ':'), 0);
} else if (WordCount(sDura, ':')==2) {
HmsRegExMatch('(\\d*:\\d\\d?)', sDura, sDura, 1, PCRE_SINGLELINE);
nM = StrToIntDef(ExtractWord(1, sDura, ':'), 0);
nS = StrToIntDef(ExtractWord(2, sDura, ':'), 0);
nH = Trunc(nM/60);
nM = nM-(nH*60);
} else return sDura;
} else if ((Pos('мин', sDura)>0)||(Pos('min', sDura)>0)) {
HmsRegExMatch('([\\d]+)', sDura, sDura);
nMins = StrToIntDef(sDura, 0);
nH = Trunc(nMins/60);
nM = nMins-(nH*60);
nS = 0;
} else if (HmsRegExMatch2('(\\d+)m(\\d+)s', sDura, sM, sS)) {
nM = StrToIntDef(sM, 0);
nS = StrToIntDef(sS, 0);
nH = Trunc(nM/60);
nM = nM-(nH*60);
} else {
// Иначе будем думать, что в переданном параметре - количество секунд.
HmsRegExMatch('([\\d]+)', sDura, sDura); // Убираем левые символы (не цифры)
nSecs = StrToIntDef(sDura, 0);
nH = Trunc(nSecs/60/60);
nM = Trunc(nSecs/60)-(nH*60);
nS = nSecs-(nM*60)-(nH*60*60);
}
return format("%.2d:%.2d:%.2d.000", [nH, nM, nS]);
}
// ---------------------------------------------------------------------------------------
// Найти в тексте информацию медиаресурса (название, ссылка, эскиз и т.д.) и запомнить в объекте TStrings ItemInfo
// (3-я из 4-х главных функций)
TStrings FindAndFillInfo(char sText, TStrings WONKYBLK, Variant prntItem, bool bAdd=false) {
char sValue, sParamName, sRegExpr, sY, sM, sD, s; int i, nParamId, n, nExcludes;
TStrings WONKYOBJECT, ItemInfo = TStringList.Create();
for (i=0; i<WONKYBLK.Count; i++) {
sParamName = WONKYBLK.Names[i]; sValue = '';
if (sParamName=='') {
sParamName = WONKYBLK.Strings(i);
if (GetWonkyObject(WONKYBLK, sParamName, WONKYOBJECT, ItemInfo)) {
if (LeftCopy(sParamName, 7)=='Exclude') {ItemInfo.Clear(); return ItemInfo;}
}
continue;
} else {
sRegExpr = WONKYBLK.Values[sParamName];
}
if (sRegExpr=='') continue;
s = LeftCopy(sParamName, 7);
if (s=='Exclude') {
if (HmsRegExMatch(sRegExpr, sText, sValue, 1, PCRE_SINGLELINE)) {ItemInfo.Clear(); return ItemInfo;}
} else if (s=='TitlCut') {
if (HmsRegExMatch(sRegExpr, ItemInfo.Values['mpiTitle'], sValue, 1, PCRE_SINGLELINE)) {
ItemInfo.Values['mpiTitle'] = ReplaceStr(ItemInfo.Values['mpiTitle'], sValue, '');
}
}
nParamId = GetIdByParamName(sParamName); if (nParamId==0 ) continue;
if (sRegExpr == 'inherit') sValue = prntItem[nParamId];
else if (Pos('(', sRegExpr)<=0) sValue = sRegExpr;
else if (!HmsRegExMatch(sRegExpr, sText, sValue, 1, PCRE_SINGLELINE)) {
n=2; sRegExpr = WONKYBLK.Values[sParamName+IntToStr(n)];
while (sRegExpr!='') {
if (sRegExpr == 'inherit') {sValue = prntItem[nParamId]; break;}
else if (Pos('(', sRegExpr)<=0) {sValue = sRegExpr; break;}
else if (!HmsRegExMatch(sRegExpr, sText, sValue, 1, PCRE_SINGLELINE)) {
n++; sRegExpr = WONKYBLK.Values[sParamName+IntToStr(n)];
} else sRegExpr = '';
}
}
if (sValue == '') continue;
if ((nParamId==mpiThumbnail)||(nParamId==mpiFilePath)) { // Если это ссылки
// Если это ссылки, то проверяем некоторые случаи (добавляем к неполным ссылкам UrlBase)
HmsRegExMatch('src=["\'](.*?)["\']', sValue, sValue, 1, PCRE_SINGLELINE);
HmsRegExMatch('href=["\'](.*?)["\']', sValue, sValue, 1, PCRE_SINGLELINE);
sValue = CompleteLink(sValue);
// Если в ссылках встречаются русские символы - делаем их безопасными
if (HmsRegExMatch('^.*?([а-яА-Я].*)', sValue, s, 1, PCRE_SINGLELINE)) sValue = ReplaceStr(sValue, s, HmsHttpEncode(HmsUtf8Encode(s)));
}
sValue = Trim(ReplaceStr(HmsHtmlToText(sValue), #160, ' ')); // Заменяем пробел на обычный
if (Pos('</', sValue)>0) sValue=HmsHtmlToText(sValue);
sValue = ReplaceStr(sValue, '\r\n', '. ');
if (CheckWonkyParam(WONKYBLK, 'ToUTF8')) sValue=HmsHtmlToText(sValue, 65001);
if ( nParamId==mpiCreateDate) sValue=Date2HMSFormat(sValue);
else if ( nParamId==mpiTimeLength) sValue=GetTimeLength (sValue);
else if ( nParamId==mpiYear ) HmsRegExMatch('([\\d]{4})', sValue, sValue, 1, PCRE_SINGLELINE); // Только цифры, ничего лишнего
ItemInfo.Values[sParamName] = sValue;
}
if (ItemInfo.Values['mpiCreateDate']=='') ItemInfo.Values['mpiCreateDate'] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0));
if (WONKYBLK.IndexOfName('SetParams')>=0) ItemInfo.Values['mpiPodcastParameters']+= WONKYBLK.Values['SetParams'];
if (ItemInfo.Values['mpiTimeLength']=='') ItemInfo.Values['mpiTimeLength'] = '01:40:00.000';
if (ItemInfo.Values['mpiTitle']!='') ItemInfo.Values['mpiTitle'] = NormalizeTitle(ItemInfo.Values['mpiTitle'], ItemInfo.Values['mpiYear']);
if (ItemInfo.Values['mpiFilePath'] =='') ItemInfo.Values['mpiFilePath'] = ItemInfo.Values['mpiTitle'];
if (Trim(prntItem[500])!='') {
ItemInfo.Values['id200'] = prntItem[200]; // mpiFolderType
ItemInfo.Values['id500'] = prntItem[500]; // mpiDynamicScript
ItemInfo.Values['id501'] = prntItem[501]; // mpiDynamicSyntaxType
ItemInfo.Values['id39000'] = prntItem[39000]; // Cookies
}
if (!bAdd && (ItemInfo.Values['mpiTitle']=='')) ItemInfo.Clear();
return ItemInfo;
}
// -------------- Проверка и приведение, если нужно, ссылки к полному виду ----
char CompleteLink(char sLink) {
if (LeftCopy(sLink, 4)!='http') {
if (LeftCopy(sLink, 2)=='//') sLink = 'http:' + Trim(sLink);
else if (LeftCopy(sLink, 1)!='/' ) sLink = gsUrlBase + '/' + Trim(sLink);
else sLink = gsUrlBase + Trim(sLink);
}
return sLink;
}
// ---------------------------------------------------------------------------------------
// Перекидывание информации из блока-хранилища TStrings в элемент подкаста
void StoreInfoToPodcast(TStrings ItemInfo, THmsScriptMediaItem Item) {
int i, nPropId; char sPropName;
if (ItemInfo.Count<1) return;
for (i=0; i<ItemInfo.Count; i++) {
sPropName = ItemInfo.Names[i];
nPropId = GetIdByParamName(sPropName);
if ((FolderItem==Item) && (nPropId==mpiCreateDate)) continue;
Item[nPropId] = ItemInfo.Values[sPropName];
}
}
// ---------------------------------------------------------------------------------------
THmsScriptMediaItem CreateInFolder(TStrings WONKYBLK, THmsScriptMediaItem PrntFolder, TStrings ItemInfo) {
THmsScriptMediaItem NewFolder = PrntFolder; int i; Variant WONKYOBJECT, WOBJECT; string sName;
if (GetWonkyObject(WONKYBLK, 'Folders', WONKYOBJECT, PrntFolder)) {
for (i=0; i<WONKYOBJECT.Count; i++) {
WOBJECT = WONKYOBJECT.Objects[i]; if (WOBJECT==nil) continue;
if (!CheckObjectCondition(WOBJECT, ItemInfo)) continue;
sName = WOBJECT.Values['mpiTitle'];
NewFolder = PrntFolder.AddFolder(sName);
break;
}
}
return NewFolder;
}
// ---------------------------------------------------------------------------------------
// Поиск в тексте блоков с информацией о видео (2-я из 4-х главных функций)
void ProcessFindItems(char sText, TStrings WONKYBLK_IN, THmsScriptMediaItem ParentItem) {
int n, i, nIndxBlk, nItems, nItemsTotal, nGroup=0, nCountInGRP=0, nParamId, nOldSHOWPRGRS, nItemsAdded=0, nVal;
bool bGroupMode=false, bForceFolder; char sGroupName='', sHtmlBlock, sValue;
int GROUPMODE_OLD; TStrings ItemInfo; Variant WONKYOBJECT, WONKYBLK = WONKYBLK_IN;
THmsScriptMediaItem Item, ItemCh, ItemFolder, ItemOrigFolder;
// Если информации для поиска нет вообще или неустановлен параметр SearchBlock - то нам тут и работы нет
if ((WONKYBLK.Count<1)||(WONKYBLK.Values['SearchBlock']=='')) return;
sValue = WONKYBLK.Values['UrlBase' ]; if (sValue!='') gsUrlBase = ReplaceWonkyVars(sValue);
sValue = WONKYBLK.Values['CutBlock' ]; if (sValue!='') HmsRegExMatch(sValue, sText, sText, 1, PCRE_SINGLELINE);
sValue = WONKYBLK.Values['TitleCase']; if (sValue!='') {
if (sValue == 'upper') TITLECASE = 1;
if (sValue == 'first') TITLECASE = 2;
if (sValue == 'name' ) TITLECASE = 3;
if (sValue == 'none' ) TITLECASE = 0;
}
// Определяем количество элементов
nItemsTotal = GetCountOf(sText, WONKYBLK.Values['SearchBlock']);
LogMe('ProcessFindItems: nItemsTotal='+IntToStr(nItemsTotal)+'; SearchBlock='+WONKYBLK.Values['SearchBlock']);
if (nItemsTotal<1) return;
// Если родительский элемент не является папкой - делаем из неё таковую
if (!ParentItem.IsFolder) {
if (WONKYBLK.IndexOfName('ForceFolder')>=0) bForceFolder=CheckWonkyParam(WONKYBLK, 'ForceFolder');
else bForceFolder = (ParentItem[mpiFilePath]==ParentItem[mpiTitle]);
ItemFolder = ParentItem.ItemParent.AddFolder(ParentItem[mpiFilePath]+'_f', bForceFolder);
for (i=0; i<Length(gaProps4Copy); i++) {n = gaProps4Copy[i]; ItemFolder[n] = ParentItem[n];}
ParentItem.Delete();
} else ItemFolder = ParentItem;
// Если элементов больше MAXINGROUP, включаем группировку
MAXINGROUP = StrToIntDef(WONKYBLK.Values['MaxInGroup'], MAXINGROUP);
bGroupMode = (nItemsTotal>MAXINGROUP);
ItemOrigFolder = ItemFolder;
// Подготовка к запуску поискового модуля TRegExpr - вставляем запрограммированный поисковой блок
TRegExpr reSearch = TRegExpr.Create(WONKYBLK.Values['SearchBlock'], PCRE_SINGLELINE);
if (reSearch.Search(sText)) do {
// Нашли в тексте блок с информацией о видео
sValue = WONKYBLK.Values['SkipIf'];
if (sValue!='') if (HmsRegExMatch(sValue, reSearch.Match, sValue, 1, PCRE_SINGLELINE)) continue;
sValue = WONKYBLK.Values['SkipNotIf'];
if (sValue!='') if (!HmsRegExMatch(sValue, reSearch.Match, sValue, 1, PCRE_SINGLELINE)) continue;
nItems++; gnTotalItems++;
ItemFolder = ItemOrigFolder;
WONKYBLK = WONKYBLK_IN;
if (HmsCancelPressed()) RaiseException('Прервано.');
if (SHOWPROGRESS==1) HmsSetProgress(Trunc(nItems*100/nItemsTotal));
VARS.Values['<TEXTITEM>'] = reSearch.Match;
// Поиск информации о найденном видео
if (GetWonkyObject(WONKYBLK, 'ConditionBlocks', WONKYOBJECT, ItemFolder)) WONKYBLK = WONKYOBJECT;
ItemInfo = FindAndFillInfo(reSearch.Match, WONKYBLK, ItemFolder);
if (ItemInfo.Count==0) continue;
ControlGrouping(ItemInfo.Values['mpiTitle'], ItemInfo.Values['mpiYear'], bGroupMode, nCountInGRP, nGroup, sGroupName);
if (NUMBERING==1) {
if (nItemsTotal>99) ItemInfo.Values['mpiTitle'] = Format('%.3d. %s', [nCountInGRP, ItemInfo.Values['mpiTitle']]);
else ItemInfo.Values['mpiTitle'] = Format('%.2d. %s', [nCountInGRP, ItemInfo.Values['mpiTitle']]);
}
// add in 307.40
if (GetWonkyObject(WONKYBLK, 'CreateInFolders', WONKYOBJECT, ItemInfo)) ItemFolder = CreateInFolder(WONKYOBJECT, ItemFolder, ItemInfo);
if (W_MODE==1) {
if (GetWonkyObject(WONKYBLK, 'ForceFolder', WONKYOBJECT, ItemFolder)) bForceFolder = true;
else bForceFolder = (ItemInfo.Values['mpiFilePath']==ItemInfo.Values['mpiTitle']);
if (CheckWonkyParam(WONKYBLK, 'ForcePodcast')) bForceFolder=false;
Item = ItemFolder.AddFolder(ItemInfo.Values['mpiFilePath'], bForceFolder);
sValue = WONKYBLK.Values['NumPages']; if (sValue!='') {
sHtmlBlock = LoadURL(ItemInfo.Values['mpiFilePath']);
if (HmsRegExMatch(sValue, sHtmlBlock, sValue, 1, PCRE_SINGLELINE)) ItemInfo.Values['mpiPodcastParameters']+= ' --pages='+Trim(sValue);
}
} else {
if ((ITEMASFOLDER>0) && ((ITEMASFOLDER==1) || GetWonkyObject(WONKYBLK, 'ForceFolder', WONKYOBJECT, ItemFolder) || CheckWonkyParam(WONKYBLK, 'ForceFolder'))) {
if (Trim(ItemFolder[500])!='') i = 32; else i = -1;
if (sGroupName != '') Item = ItemFolder.AddFolder(sGroupName+'\\'+ItemInfo.Values['mpiFilePath'], true, i);
else Item = ItemFolder.AddFolder(ItemInfo.Values['mpiFilePath'], true, i);
} else {
if (sGroupName != '') {
Item = ItemFolder.AddFolder(sGroupName, false);
if (Trim(Item[mpiCreateDate])=='') Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0));
Item = HmsCreateMediaItem(ItemInfo.Values['mpiFilePath'], Item.ItemID);
} else {
Item = HmsCreateMediaItem(ItemInfo.Values['mpiFilePath'], ItemFolder.ItemID);
}
}
}
StoreInfoToPodcast(ItemInfo, Item); // И заполняем найденной информацией
if (COLLECTING==1) CollectTheItem(Item, bGroupMode, nCountInGRP, nGroup, sGroupName);
//if (GROUPMODE==0) Item.ItemParent[mpiFolderSortOrder] = -mpiCreateDate;
if ( (GROUPMODE==1) || (GROUPMODE==2) ) {
Item.ItemParent.ItemParent[mpiFolderSortOrder] = mpiTitle;
Item.ItemParent[mpiFolderSortOrder] = mpiTitle;
} else if (GROUPMODE==3) {
Item.ItemParent.ItemParent[mpiFolderSortOrder] = -mpiTitle;
Item.ItemParent[mpiFolderSortOrder] = mpiTitle;
}
VARS.Values['<FILEPATH>'] = Item[mpiFilePath];
VARS.Values['<TITLE>'] = Item[mpiTitle];
VARS.Values['<TITLE4SEARCH>'] = GetTitle4Search(Item);
if (Trim(Item[mpiThumbnail])=='') Item[mpiThumbnail] = Item.ItemParent[mpiThumbnail];
nItemsAdded++;
sValue = WONKYBLK.Values['TitleFormat']; if (sValue != '') Item[mpiTitle] = Format(sValue, [nItemsAdded, Item[mpiTitle]]);
nVal = StrToIntDef(WONKYBLK.Values['LimitItems'], 0);
if ((nVal>0) && (nItemsAdded>=nVal)) break;
GetWonkyObject(WONKYBLK, 'GetVars', WONKYOBJECT, Item);
if (GetWonkyObject(WONKYBLK, 'ChangeValues', WONKYOBJECT, Item)) WonkyChangeValues(WONKYOBJECT, Item);
nOldSHOWPRGRS = SHOWPROGRESS; SHOWPROGRESS = 0; // Запоминаем флаг и в более глубоких циклах не показываем
// Если есть ссылка и команда на разрешение заглядывать внутрь по ссылке - загружаем
if ((LOADFROMLINKS==1)&&(GetWonkyObject(WONKYBLK, 'LoadLink', WONKYOBJECT, ParentItem))) {
GROUPMODE_OLD = GROUPMODE; GROUPMODE = 0;
if ((WONKYOBJECT!=0) && (LeftCopy(Item[mpiFilePath], 4)=='http')) LoadPages(WONKYOBJECT, Item); // Если есть инструкции загружать - загружаем
GROUPMODE = GROUPMODE_OLD;
}
// Проверяем, установлен ли блок поиска подчинённых элементов
if (GetWonkyObject(WONKYBLK, 'SearchItems', WONKYOBJECT, ParentItem)) {
GROUPMODE_OLD = GROUPMODE; GROUPMODE = 0;
ProcessFindItems(reSearch.Match, WONKYOBJECT, Item);
GROUPMODE = GROUPMODE_OLD;
}
SHOWPROGRESS = nOldSHOWPRGRS; // Воссстанавливаем значение флага показа прогресса выполнения
if (WONKYBLK.IndexOfName('DeleteIfEmpty')>=0) if (!Item.HasChildItems()) Item.Delete();
} while (reSearch.SearchAgain());
reSearch.Free();
return;
}
// ---------------------------------------------------------------------------------------
// Присвоение нового значения полю (если указано условие, то с его проверкой)
void WonkyChangeValues(TStrings WONKYOBJECT, THmsScriptMediaItem ParentItem) {
int n, i, nParamId; char sOldName, sValue, sField; Variant SUBBLOCK;
VARS.Values['<FILEPATH>'] = ParentItem[mpiFilePath];
VARS.Values['<TITLE>'] = ParentItem[mpiTitle];
for (n=0; n<WONKYOBJECT.Count; n++) {
SUBBLOCK = WONKYOBJECT.Objects(n); if (SUBBLOCK==0) continue;
if (!CheckObjectCondition(SUBBLOCK, ParentItem)) continue;
for (i=0; i<SUBBLOCK.Count; i++) {
sField = SUBBLOCK.Names[i]; if (sField=='') continue;
sValue = SUBBLOCK.Values[sField];
if (Pos('<', sValue)>0) sValue = ReplaceWonkyVars(sValue);
if (HmsRegExMatch('^[A-Z]+$', sField, sField, 0, 2)) {VARS.Values['<'+sField+'>']=sValue; continue;}
nParamId = GetIdByParamName(sField); if (nParamId==0) continue;
if (nParamId==mpiFilePath) sOldName = ParentItem[mpiTitle]; // Смена ссылки может изменить имя
ParentItem[nParamId] = sValue;
if (nParamId==mpiFilePath) ParentItem[mpiTitle] = sOldName; // Приходиться восстанавливать его
}
LogMe('Сработало ChangeValues: '+sField+'='+sValue);
}
}
// ---------------------------------------------------------------------------------------
// Обработка блока AfterLoad после загрузки страницы
void AfterLoadPageBlock(char sText, TStrings WONKYBLK, THmsScriptMediaItem ParentItem) {
Variant WONKYOBJECT, SUBBLOCK;
GetWonkyObject(WONKYBLK, 'GetVars', WONKYOBJECT, ParentItem);
if (GetWonkyObject(WONKYBLK, 'ChangeValues', WONKYOBJECT, ParentItem)) WonkyChangeValues(WONKYOBJECT, ParentItem);
if (GetWonkyObject(WONKYBLK, 'LoginRequest', WONKYOBJECT, ParentItem)) LoginRequest(WONKYOBJECT, ParentItem);
if (GetWonkyObject(WONKYBLK, 'CreateItems', WONKYOBJECT, ParentItem)) CreateItems(WONKYOBJECT, ParentItem);
}
// ---------------------------------------------------------------------------------------
// Подсчёт количества блоков в тексте
int GetCountOf(char sText, char substring) {
int n=0; TRegExpr re = TRegExpr.Create(substring, PCRE_SINGLELINE);
if ((trim(sText)=='')||(trim(substring)=='')||(trim(substring)=='(.*?)')) return 0;
if (re.Search(sText)) do n++; while (re.SearchAgain);
re.Free; return n;
}
// ---------------------------------------------------------------------------------------
// Проверка логического параметра робота
bool CheckWonkyParam(TStrings WONKYOBJECT, char sParamName) {
char s = Uppercase(LeftCopy(Trim(WONKYOBJECT.Values[sParamName]), 1));
return ((s=='Y')||(s=='1'));
}
// ---------------------------------------------------------------------------------------
// Заменяет шаблоны переменных типа <TITLE>, <FILEPATH> и всех других на их значения
char ReplaceWonkyVars(char sData) {
char sVarName, sVarValue;
for (int i=0; i<VARS.Count; i++) {
sVarName = VARS.Names[i];
sVarValue = VARS.Values[sVarName];
if (Pos(sVarName, sData)>0) sData = ReplaceStr(sData, sVarName, sVarValue);
}
return sData;
}
// ---------------------------------------------------------------------------------------
// Получить строку
char GetValueFromIdsWithFormats(Variant ParentItem, char Ids, char sFormat='') {
Variant aVals = ['','','','','','','','','','']; int i, n, nParamId; char sField, sValue='';
n = WordCount(Ids, ',');
if (n > Length(aVals)) n = Length(aVals);
if (sFormat=='') n = 1;
for (i=0; i<n; i++) {
sValue = Trim(ExtractWord(i+1, Ids, ','));
nParamId = GetIdByParamName(sValue); if (nParamId!=0) sValue = ParentItem.Values[sValue];
aVals[i] = sValue;
}
if (sFormat!='') if ((aVals[0]+aVals[1])=='') sValue=''; else sValue=Format(sFormat, aVals);
return sValue;
}
// ---------------------------------------------------------------------------------------
// Проверить наличие условий и выполняются ли они
bool CheckObjectCondition(Variant WONKYOBJECT, Variant ParentItem) {
char sField, sFCond, sValue='', sText; int nParamId; bool bNegative, bFound;
sFCond = WONKYOBJECT.Values['IfKey'];
if (sFCond!='') if (Pos(sFCond, mpPodcastParameters)<1) return false;
sField = WONKYOBJECT.Values['ConditionField'];
sFCond = WONKYOBJECT.Values['ConditionExp' ];
if ((sField=='')||(sFCond=='')) return true;
bNegative = CheckWonkyParam(WONKYOBJECT, 'Negative');
if (HmsRegExMatch('^<\\w+>$', sField, '')) {
sText = VARS.Values[sField];
} else if (ParentItem.ClassName == 'TStringList') {
sText = ParentItem.Values[sField];
} else {
nParamId = GetIdByParamName(sField); if (nParamId==0) return true;
sText = ParentItem[nParamId];
}
bFound = HmsRegExMatch(sFCond, sText, sValue, 1, PCRE_SINGLELINE) ^ bNegative;
if (bFound) {
if (sValue == '') sValue = sFCond;
if (DBGFILE!= '') LogMe('CONDITION: '+sField+' : '+sFCond+'\n<CONDVAL>='+LeftCopy(sValue, 100));
VARS.Values['<CONDVAL>'] = sValue;
}
return bFound;
}
// ---------------------------------------------------------------------------------------
// Проверить на наличие объекта с именем sObjName. Если есть, то WONKYOBJECT будет содержать ссылку на него.
// (4-я из 4-х главных функций)
bool GetWonkyObject(TStrings WONKYBLK, char sObjName, Variant &WONKYOBJECT, Variant ParentItem) {
Variant SUBOBJECT; int n, nParamId; bool bFound=false, bNeg=false;
char sParamName, sValue, sField, sFCond, sVarName, sWhere, sRESearch, sWhereText;
if (sObjName=='Condition') bFound=true;
int nIndxBlk = WONKYBLK.IndexOf(sObjName); if (nIndxBlk<0) return bFound;
WONKYOBJECT = WONKYBLK.Objects[nIndxBlk]; if (WONKYOBJECT==0) return bFound;
if (!CheckObjectCondition(WONKYOBJECT, ParentItem)) return false;
if (!GetWonkyObject(WONKYOBJECT, 'Condition', SUBOBJECT, ParentItem)) return false;
// Проверим на некоторые объекты для дополнительных действий
if (sObjName=='Headers') {
for (n=0; n<WONKYOBJECT.Count; n++) {
sParamName = WONKYOBJECT.Names[n]; // sParamName может быть User-Agent, Accept-Charset, Referer...
if (HmsRegExMatch(sParamName+': (.*?)\n', gsHeaders, sValue, 1, 4))
gsHeaders = ReplaceStr(gsHeaders, sValue, WONKYOBJECT.Values[sParamName]);
else
gsHeaders+= sParamName+': '+WONKYOBJECT.Values[sParamName]+#10#13;
}
n = 0;
} else if (sObjName=='ConditionBlocks') {
bFound = false;
for (n=0; n<WONKYOBJECT.Count; n++) {
SUBOBJECT = WONKYOBJECT.Objects[n]; if (SUBOBJECT==0) continue;
if (!GetWonkyObject(SUBOBJECT, 'Condition', SUBOBJECT, ParentItem)) continue;
WONKYOBJECT = SUBOBJECT; bFound = true; break;
}
return bFound;
} else if (LeftCopy(sObjName, 6)=='Format' ) {
for (n=0; n<WONKYOBJECT.Count; n++) {
sField = WONKYOBJECT.Names[n]; if (sField =='') continue;
nParamId = GetIdByParamName(sField); if (nParamId==0) continue;
sValue = WONKYOBJECT.Values[sField];
if (HmsRegExMatch2('[\'](.*?)[\'].*\\[(.*?)\\]', sValue, sFCond, sValue, PCRE_SINGLELINE)) {
sValue = GetValueFromIdsWithFormats(ParentItem, sValue, sFCond);
}
if (sValue!='') {
if (ParentItem.ClassName == 'TStringList') ParentItem.Values[sField] = sValue;
else ParentItem[nParamId] = sValue;
}
}
return true;
} else if (LeftCopy(sObjName, 8)=='AddParam' ) {
for (n=0; n<WONKYOBJECT.Count; n++) {
sField = WONKYOBJECT.Names[n]; if (sField =='') continue;
nParamId = GetIdByParamName(sField); if (nParamId==0) continue;
sValue = WONKYOBJECT.Values[sField];
if (HmsRegExMatch2('Format\\([\'](.*?)[\'].*?\\[(.*?)\\]', sValue, sFCond, sValue, PCRE_SINGLELINE)) {
sValue = GetValueFromIdsWithFormats(ParentItem, sValue, sFCond);
}
if (ParentItem.ClassName == 'TStringList') {
ParentItem.Values[sField] += ' ' + sValue;
} else {
ParentItem[nParamId] += ' ' + sValue;
}
}
return true;
} else if (sObjName=='ConditionBlocks') {
bFound = false;
for (n=0; n<WONKYOBJECT.Count; n++) {
SUBOBJECT = WONKYOBJECT.Objects[n]; if (SUBOBJECT==0) continue;
if (!GetWonkyObject(SUBOBJECT, 'Condition', SUBOBJECT, ParentItem)) continue;
WONKYOBJECT = SUBOBJECT; bFound = true; break;
}
return bFound;
} else if (sObjName=='GetVars') {
// Блок получения значения переменных по заданным правилам
for (n=0; n<WONKYOBJECT.Count; n++) {
SUBOBJECT = WONKYOBJECT.Objects[n]; if (SUBOBJECT==0) continue;
sVarName = SUBOBJECT.Values('VarName');
sWhere = SUBOBJECT.Values('Where');
sRESearch = SUBOBJECT.Values('RESearch');
if (HmsRegExMatch('^<\\w+>$', sWhere, sValue)) sWhereText=VARS.Values[sWhere];
else {
nParamId = GetIdByParamName(sWhere); if (nParamId==0) continue;
if (ParentItem.ClassName == 'TStringList') {
sWhereText = ParentItem.Values[sField];
} else {
sWhereText = ParentItem[nParamId];
}
}
sValue = '';
HmsRegExMatch(sRESearch, sWhereText, sValue, 1, PCRE_SINGLELINE);
VARS.Values[sVarName] = sValue;
LogMe('GetVars: '+sVarName+'='+sValue);
}
}
return true;
}
// ---------------------------------------------------------------------------------------
// Получить из строкового в числовое значение параметра медиаресурса
int GetIdByParamName(char sParamName) {
char sValue;
if (HmsRegExMatch('^id(\\d+)', sParamName, sValue)) return StrToInt(sValue);
return StrToIntDef(Evaluate(sParamName), 0);
}
// ---------------------------------------------------------------------------------------
// Yaml parser. Загружает конфиг в TStrings. 80 строк непонятного кода, дающие удобство.
Variant whYamlParser(char sFunc, TStrings &oRESULT, Variant Param = '') {
int i, n, nRows, nRows2, nIdent, nIndxObj; char sLine, sValue; Variant oPath, CurObject = oRESULT;
char sNextLine, sChar, sKey; bool bExistChild, bContinue;
// Проверка имени вызываемой функции нашего "какбуд-то класса"
if (sFunc=='LoadFromString') {
nIndxObj = oRESULT.AddObject('_YAMLPath', TStringList.Create());
oPath = oRESULT.Objects(nIndxObj);
nRows = WordCount(Param, '\n');
for (i=1; i<=nRows; i++) {
sLine = ExtractWord(i, Param, '\n');
nIdent = Length(sLine) - Length(TrimLeft(sLine));
sLine = TrimLeft(sLine);
if (whYamlParser('_IsComment', CurObject, sLine)) continue;
CurObject = whYamlParser('_GetParentByIdent', oRESULT, nIdent);
bExistChild=false; // Проверим, есть ли дочерние элементы (смещение следущей строки больше чем наше)
for (n=i+1; n<=nRows; n++) {
sNextLine = ExtractWord(n, Param, '\n');
if (whYamlParser('_IsComment', CurObject, Trim(sNextLine))) continue;
bExistChild=(Length(sNextLine)-Length(TrimLeft(sNextLine))>nIdent); break;
}
HmsRegExMatch('^-\\s*?(.*)', sLine, sLine);
sKey = ''; // Пробуем получить ключ, если получилось, то потом получаем и значение (иначе всё значение)
if (HmsRegExMatch('^([\\w-]+)\\s*?:', sLine, sKey)) HmsRegExMatch('^[\\w-]+\\s*?:\\s*?(.*)', sLine, sLine);
else sKey = IntToStr(CurObject.Count);
if (bExistChild) {
nIndxObj = CurObject.AddObject(sKey, TStringList.Create());
CurObject = CurObject.Objects(nIndxObj);
oPath.AddObject(IntToStr(nIdent), CurObject);
if (Trim(sLine)=='') continue;
}
if (HmsRegExMatch('^{(.*)}', sLine, sNextLine)) { // Проверяем, если это Map блок {}
nIndxObj = CurObject.AddObject(sKey, TStringList.Create());
CurObject = CurObject.Objects(nIndxObj);
nRows2 = WordCount(sNextLine, ','); bContinue = false;
for (n=1; n<=nRows2; n++) {
if (bContinue) sValue = sLine+','; else sValue = '';
sLine = sValue + ExtractWord(n, sNextLine, ',');
if (!bContinue) {
if (HmsRegExMatch('^\\s*?([\\w-]+)\\s*?:', sLine, sKey)) {
HmsRegExMatch('^\\s*?[\\w-]+\\s*?:\\s*?(.*/)', sLine+'/', sLine);
sLine = LeftCopy(sLine, Length(sLine)-1);
} else sKey = IntToStr(CurObject.Count);
}
if (HmsRegExMatch2('^([\'"]).*([^\\s])\\s*?$', sLine, sChar, sValue)) if ((sChar!=sValue)&&(n!=nRows2)) {bContinue=true; continue;}
HmsRegExMatch('^[\'"](.*)[\'"]', sLine, sLine); // --11--
CurObject.Values[sKey] = sLine;
bContinue=false;
}
continue;
}
if (HmsRegExMatch('^([\'"])', sLine, sChar)) HmsRegExMatch('^'+sChar+'(.*)'+sChar, sLine, sLine);
else HmsRegExMatch('^(.*)#', sLine, sLine); // Отсекаем комментарий
CurObject.Values[sKey] = sLine;
}
oRESULT.Delete(oRESULT.IndexOfObject(oPath));
oPath.Free();
} else if (sFunc=='SaveToString') {
sValue = '';
for (i=0; i<oRESULT.Count; i++) {
sValue = sValue + Param + oRESULT.Strings(i) + '\n';
CurObject = oRESULT.Objects(i);
if (CurObject!=0) sValue = sValue + whYamlParser('SaveToString', CurObject, Param+' ');
}
return sValue;
} else if (sFunc=='_IsComment') {
if ((Trim(Param)=='') || (LeftCopy(Param, 1)=='#') || (Trim(Param)=='---')) return true;
return false;
} else if (sFunc=='_GetParentByIdent') {
nIndxObj = oRESULT.IndexOf('_YAMLPath'); if (nIndxObj <0) return oRESULT;
oPath = oRESULT.Objects(nIndxObj); if (oPath.Count<1) return oRESULT;
for (i=oPath.Count-1; i>=0; i--) {
nIdent = StrToIntDef(oPath.Strings(i), 0);
if (Param>nIdent) {CurObject = oPath.Objects(i); break;}
else oPath.Delete(i);
}
return CurObject;
}
}
// ---------------------------------------------------------------------------------------
// Возвращает http кодированное название
char GetTitle4Search(THmsScriptMediaItem Item) {
char sTitle = Trim(Item[mpiTitle]);
sTitle = ReplaceStr(sTitle, '"', '' ); // Убираем кавычки - мешают при поиске
if (WONKY307.Values['NoUtfTitle4Search']=='') {
if (Pos('(site:', sTitle)<1) sTitle = HmsHttpEncode(HmsUtf8Encode(sTitle));
} else {
if (Pos('(site:', sTitle)<1) sTitle = HmsHttpEncode(sTitle);
}
// Символ '+' в ссылке папки подкаста - это значит добавить имя папки к поиску имени подкаста
// Если не указан запрещающие параметр --minusfolder в подкасте
if (LeftCopy(Item.ItemParent[mpiFilePath], 4)!='http')
if ((Pos('+', Item.ItemParent[mpiFilePath])==1)&&(Pos('--minusfolder', Item[mpiPodcastParameters])<1))
sTitle=Trim(Item.ItemParent[mpiTitle])+'+'+Trim(sTitle);
if (LeftCopy(Item.ItemParent.ItemParent[mpiFilePath], 4)!='http')
if ((Pos('+', Item.ItemParent.ItemParent[mpiFilePath])==1)&&(Pos('--minusfolder', Item[mpiPodcastParameters])<1))
sTitle=Trim(Item.ItemParent.ItemParent[mpiTitle])+'+'+Trim(sTitle);
sTitle = ReplaceStr(sTitle, ' ', '+');
return sTitle;
}
// ---------------------------------------------------------------------------------------
// Загрузка Страниц (1-я из 4-х главных функций)
void LoadPages(TStrings WONKYBLK, THmsScriptMediaItem ParentItem) {
int n, nIndxBlk, nBlocks, nBlk, nParamId, nField; char sLink, sValue, sPage, sHtml, sParamName, sPgs='';
Variant WONKYOBJECT, SUBBLOCK; TStrings ItemInfo; char sCondField, sCond; bool bFirstPage=true;
char sQBase='', sQLink='', sQMeth='GET', sQData='';
// nPages - Количество страниц
// nFirstPage - С какого номера начинать
// nPageMul - Множитель номера страницы
// sPageParam - Шаблон строки части адреса, где вместо <PN> будет
// подставляться номер страницы (например '?page=<PN>', '' - выключено)
int nPages = 1;
int nFirstPage = 0;
int nPageMul = 1;
string sPageParam = '';
// Видвижение блока с информацией о том сколько и как загружать страницы
if (GetWonkyObject(WONKYBLK, 'PagesInfo', WONKYOBJECT, ParentItem)) {
nPages = StrToIntDef(WONKYOBJECT.Values['Pages' ], nPages );
nFirstPage = StrToIntDef(WONKYOBJECT.Values['StartPage'], nFirstPage);
nPageMul = StrToIntDef(WONKYOBJECT.Values['PageMul' ], nPageMul );
sPageParam = WONKYOBJECT.Values['PageParam'];
sValue = WONKYOBJECT.Values['Method']; if (sValue!='') {sQMeth = ReplaceWonkyVars(sValue); VARS.Values['<METHOD>']=sQMeth;}
}
sValue = WONKYBLK.Values['UrlBase']; if (sValue!='') gsUrlBase = ReplaceWonkyVars(sValue);
// Если есть блок с параметрами для глобальной gsHeaders - заменяем на переданные значения
GetWonkyObject(WONKYBLK, 'Headers', WONKYOBJECT, ParentItem);
sValue = WONKYBLK.Values['FilePath']; if (sValue!='') {ParentItem[mpiFilePath] = ReplaceWonkyVars(sValue); VARS.Values['<FILEPATH>']=ParentItem[mpiFilePath];}
GetWonkyObject(WONKYBLK, 'GetVars', WONKYOBJECT, ParentItem);
if (CheckWonkyParam(WONKYBLK, 'LoadFromLinks')) LOADFROMLINKS = 1;
if (CheckWonkyParam(WONKYBLK, 'StoreCookie' )) gbStoreCookie = true;
if (GetWonkyObject (WONKYBLK, 'ChangeValues', WONKYOBJECT, ParentItem)) WonkyChangeValues(WONKYOBJECT, ParentItem);
if (GetWonkyObject (WONKYBLK, 'LoginRequest', WONKYOBJECT, ParentItem)) LoginRequest(WONKYOBJECT, ParentItem);
if (GetWonkyObject (WONKYBLK, 'CreateItems', WONKYOBJECT, ParentItem)) CreateItems (WONKYOBJECT, ParentItem);
// Проверяем "одноразовые" переменные после ChangeValues.
if (VARS.Values['<PAGES>'] !='') nPages = StrToIntDef(VARS.Values['<PAGES>'], nPages );
if (VARS.Values['<FIRSTPAGE>']!='') nFirstPage = StrToIntDef(VARS.Values['<FIRSTPAGE>'], nFirstPage);
if (VARS.Values['<PAGEMUL>'] !='') nPageMul = StrToIntDef(VARS.Values['<PAGEMUL>'], nPageMul );
if (VARS.Values['<PAGEPARAM>']!='') sPageParam = VARS.Values['<PAGEPARAM>'];
if (VARS.Values['<METHOD>'] !='') sQMeth = VARS.Values['<METHOD>']; // Только метод - неодноразовый
sHtml=''; if (nPages>1) sPgs = ' из '+IntToStr(nPages);
if (WONKYBLK.Values['NotLoad']=='') {
// Загружаем все страницы
if ((sPageParam!='') && (Pos('?', ParentItem[mpiFilePath])<1)) sPageParam[1]='?';
for (n=nFirstPage; n<nPages+nFirstPage; n++) {
if (HmsCancelPressed()) break;
if (bWasShownProgress) {
if (nPages>1) sValue = ': Загрузка страницы - '+IntToStr(n)+sPgs; else sValue = '';
if (SHOWPROGRESS==1) HmsShowProgress(ParentItem[mpiTitle]+sValue);
}
sPage = '';
if (Trim(sPageParam)!='') {
if ((Pos('?', ParentItem[mpiFilePath])<1) && (LeftCopy(sPageParam, 1)=='&')) sPageParam = '?'+Copy(sPageParam, 2, 9999);
else if (Pos('?', ParentItem[mpiFilePath])>0) sPageParam = ReplaceStr(sPageParam, '?', '&');
sPage=ReplaceStr(sPageParam, '<PN>', IntToStr(Trunc(n*nPageMul)));
// Если в ссылке уже заложен номер страницы - вырезаем его оттуда, ибо будем вставлять сами
if (Pos(sPage, ParentItem[mpiFilePath])>0) ParentItem[mpiFilePath]=ReplaceStr(ParentItem[mpiFilePath], sPage, '<PAGEPARAM>');
}
sLink = ParentItem[mpiFilePath];
// Если в ссылке есть ключ <PAGEPARAM>, то вставляем вместо него шаблон с номером страницы
if (Pos('<PAGEPARAM>', sLink)>0) sLink = ReplaceStr(sLink, '<PAGEPARAM>', sPage);
else sLink += sPage; // Иначе просто шаблон с номером страницы добавляем в конец ссылки
sLink = ReplaceStr(sLink, '<RND>', ReplaceStr(FloatToStr(Random), ',', '.'));
if (VARS.Values['<LASTLOADLINK>'] != sLink) {
LogMe('Загрузка страницы: '+sLink);
sPage = LoadUrl(sLink, sQMeth);
if (CheckWonkyParam(WONKYBLK, 'DecrunchJSON')) sPage=HmsJsonDecode(sPage);
VARS.Values['<TEXT>'] = sPage;
VARS.Values['<LASTLOADLINK>'] = sLink;
sValue = WONKYBLK.Values['CutBlock']; if (sValue!='') HmsRegExMatch(sValue, sPage, sPage, 1, PCRE_SINGLELINE);
// Если были указаны параметры PreSearchBlock, то каждую страницу обрабатываем - выделяем блоки
sHtml = sHtml + sPage;
} else {
sPage = VARS.Values['<TEXT>'];
sValue = WONKYBLK.Values['CutBlock']; if (sValue!='') HmsRegExMatch(sValue, sPage, sPage, 1, PCRE_SINGLELINE);
if (sHtml=='') sHtml = sPage;
}
LogMe('Loaded page: '+sPage);
if (GetWonkyObject(WONKYBLK, 'StopLoad', WONKYOBJECT, ParentItem)) break;
if (bFirstPage) {
if (GetWonkyObject(WONKYBLK, 'GetPagesFromPageNavi', WONKYOBJECT, ParentItem)) {
if (HmsRegExMatch(WONKYOBJECT.Values['Pages' ], sPage, sValue, 1, PCRE_SINGLELINE)
||HmsRegExMatch(WONKYOBJECT.Values['Pages2'], sPage, sValue, 1, PCRE_SINGLELINE)) {
nPages = StrToIntDef(sValue, nPages);
nFirstPage = StrToIntDef(WONKYOBJECT.Values['StartPage'], nFirstPage);
nPageMul = StrToIntDef(WONKYOBJECT.Values['PageMul' ], nPageMul );
sPageParam = WONKYOBJECT.Values['PageParam'];
if (VARS.Values['<PAGEPARAM>']!='') sPageParam = VARS.Values['<PAGEPARAM>'];
}
}
if (HmsRegExMatch('--pages=([\\d]+)', mpPodcastParameters, sValue, 1, PCRE_SINGLELINE)) {
nBlk = StrToIntDef(sValue, nPages);
if (nBlk < nPages) nPages = nBlk;
}
n = nFirstPage;
if (nPages>1) sPgs = ' из '+IntToStr(nPages);
}
if (GetWonkyObject(WONKYBLK, 'AfterLoadEveryPage', WONKYOBJECT, ParentItem)) AfterLoadPageBlock(sPage, WONKYOBJECT, ParentItem);
if (SHOWPROGRESS==1) HmsSetProgress(Trunc(n*100/nPages));
bFirstPage = false;
}
}
VARS.Values['<PAGES>'] = '';
VARS.Values['<FIRSTPAGE>'] = '';
VARS.Values['<PAGEMUL>'] = '';
VARS.Values['<PAGEPARAM>'] = '';
VARS.Values['<TEXT>'] = sHtml;
// Пытаемся найти и заполнить информацию для родительского подкаста (если там указано)
ItemInfo = FindAndFillInfo(sHtml, WONKYBLK, ParentItem, true);
StoreInfoToPodcast(ItemInfo, ParentItem);
// Если есть команды, которые нужно выполнить после загрузки страницы
if (GetWonkyObject(WONKYBLK, 'AfterLoad', WONKYOBJECT, ParentItem)) AfterLoadPageBlock(sHtml, WONKYOBJECT, ParentItem);
// Проверяем, установлен ли блок поиска подчинённых элементов
if (GetWonkyObject(WONKYBLK, 'SearchItems', WONKYOBJECT, ParentItem)) {
// Запускаем обработку поиска блоков с информацией о видео
if (SHOWPROGRESS==1) HmsShowProgress(mpTitle+': обработка ссылок');
ProcessFindItems(sHtml, WONKYOBJECT, ParentItem);
}
// Проверяем, установлен ли блок загрузки страницы
if (GetWonkyObject(WONKYBLK, 'LoadLink', WONKYOBJECT, ParentItem)) LoadPages(WONKYOBJECT, ParentItem);
if (GetWonkyObject(WONKYBLK, 'ConditionBlocks', WONKYOBJECT, ParentItem)) LoadPages(WONKYOBJECT, ParentItem);
}
// -------------------------------------------- Установка значений cookies ----
void SetCookies(char sHeaders='') {
char sCookies='', sName, sVal; TRegExpr re;
re = TRegExpr.Create('(?:Set-cookie|Cookie):(.*?)=(.*?)(?:;|\n|$)', PCRE_SINGLELINE);
if (re.Search(sHeaders)) do {
sName = Trim(re.Match(1));
sVal = Trim(re.Match(2));
if ((sVal=='') || (sName=='')) continue;
COOKIES.Values[sName] = sVal;
} while (re.SearchAgain());
re.Free();
VARS.Values['<COOKIES>'] = GetCookies();
if (gbStoreCookie) FolderItem[39000] = VARS.Values['<COOKIES>'];
}
// -------------------------------------------- Получение значений cookies ----
char GetCookies() {
int i; char sNam, sVal, sCookies='';
for (i=0; i<COOKIES.Count; i++) {
sNam = COOKIES.Names(i); if (Trim(sNam)=='') continue;
sVal = COOKIES.Values[sNam]; if (Trim(sVal)=='') continue;
sCookies += Format('%s=%s; ', [sNam, sVal]);
}
sCookies = 'Cookie: '+Trim(sCookies)+'\r\n';
return sCookies;
}
// ------------------------------------------- Загрузка страницы по ссылке ----
string LoadUrl(char sLink, char sMethod='GET', char sHeaders='', bool NoCache=false, bool NoRdrct=false) {
string sHtml, sUrlServer, sRequestPage='/', sPostData='', sAnsw=''; int iFlags = 0, nPort=80;
if (LeftCopy(sLink, 2)=='//') sLink = 'http:' + Trim(sLink);
if (LeftCopy(sLink, 1)=='/' ) sLink = gsUrlBase + Trim(sLink);
if (LeftCopy(sLink, 5)=='https') nPort = 443;
if (!HmsRegExMatch('//(.*)', sLink, sUrlServer)) return '';
HmsRegExMatch2('^(.*?)(/.*)', sUrlServer, sUrlServer, sRequestPage);
if (sMethod=='POST') {
HmsRegExMatch('^.*?\\?(.*)', sRequestPage, sPostData );
HmsRegExMatch('^(.*?)\\?' , sRequestPage, sRequestPage);
}
if (HmsRegExMatch('--nocache', mpPodcastParameters, '')) NoCache = true;
if (sHeaders=='') sHeaders = gsHeaders; if (NoCache) iFlags = StrToInt('$80000000');
sHeaders += GetCookies(); iFlags = (iFlags || INTERNET_FLAG_NO_AUTO_REDIRECT);
sHtml = HmsSendRequestEx(sUrlServer, sRequestPage, sMethod, 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, sPostData, nPort, iFlags, sAnsw, true);
if (IsWine || gbIE6Fix) sHtml = HmsDecompressString(sHtml); // Для Linux Wine и ie6
SetCookies(sAnsw);
if (!NoRdrct && HmsRegExMatch('Location: (.*?)[\r\n]', sAnsw, sLink)) {
sHtml = LoadUrl(sLink);
}
sHtml = HmsUtf8Decode(sHtml);
return sHtml;
}
// ------------------------- Запрос на вход, получение куки их запоминание ----
void LoginRequest(TStrings WONKYBLK, THmsScriptMediaItem ParentItem) {
char sLogin, sPassw, sReq, sMethod, sValue; Variant WONKYOBJECT;
sLogin = WONKYBLK.Values['Login']; if (Trim(sLogin)=='') sLogin = mpPodcastAuthorizationUserName;
sPassw = WONKYBLK.Values['Passw']; if (Trim(sPassw)=='') sPassw = mpPodcastAuthorizationPassword;
sValue = WONKYBLK.Values['Cookie']; if (Trim(sValue)!='') SetCookies(sValue);
sMethod = WONKYBLK.Values['Method'];
sLogin = HmsPercentEncode(sLogin);
sPassw = HmsPercentEncode(sPassw);
GetWonkyObject(WONKYBLK, 'Headers', WONKYOBJECT, ParentItem);
sReq = ReplaceStr(ReplaceStr(WONKYBLK.Values['Request'], '<LOGIN>', sLogin), '<PASSW>', sPassw);
LoadUrl(sReq, sMethod, '', WONKYBLK.Values['NoCache']!='', WONKYBLK.Values['NoRedirect']!='');
}
// ---------------------------------------------------------------------------------------
// Создание каталогов, подкастов и ссылок по данным в WONKYBLK
void CreateItems(TStrings WONKYBLK, THmsScriptMediaItem ParentItem) {
int n, i, nParamId; THmsScriptMediaItem Item;
Variant WONKYOBJECT, SUBBLOCK; bool bForceFolder, bIsPodcast;
char sTitle, sLink, sName, sValue, sType;
for (n=0; n<WONKYBLK.Count; n++) {
SUBBLOCK = WONKYBLK.Objects(n); if (SUBBLOCK==0) continue;
sTitle = SUBBLOCK.Values['mpiTitle']; if (sTitle=='') continue;
sLink = SUBBLOCK.Values['mpiFilePath']; if (sLink=='') sLink=sTitle;
sType = SUBBLOCK.Values['Type'];
if (TITLECASE==1) sTitle = Uppercase(sTitle);
if (sType=='Search') {
Item = ParentItem.AddFolder('-SearchFolder', true);
Item[mpiTitle] = sTitle;
Item[mpiFolderSortOrder ] = "mpTitle";
Item[mpiPodcastParameters] = SUBBLOCK.Values['mpiPodcastParameters']+' --group=none';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
sTitle = SUBBLOCK.Values['CmdTitle'];
if (TITLECASE==1) sTitle = Uppercase(sTitle);
CreateDynamicGroup(SUBBLOCK, Item, sTitle, '-SearchCommands', '/\\*BeginSearchScript(.*?)EndSearchScript\\*/');
continue;
} else if ((sType=='Folder') || (sType=='Podcast') || (sType=='Dynamic')) {
if (sType=='Dynamic') i = 32;
else i = StrToIntDef(SUBBLOCK.Values['FolderClassID'], -1);
Item = ParentItem.AddFolder(sLink, (sType=='Folder'), i);
if (i==32) {
Item[200] = ParentItem[200]; // mpiFolderType
Item[500] = ParentItem[500]; // mpiDynamicScript
Item[501] = ParentItem[501]; // mpiDynamicSyntaxType
}
} else if (sType=='SettingsFolder') {
if (Pos('--altsetfldr', mpPodcastParameters)>0) {
CreateSettingsFolder(SUBBLOCK, ParentItem, sTitle, '-SettingsCommands');
} else {
CreateDynamicGroup(SUBBLOCK, ParentItem, sTitle, '-SettingsCommands', '/\\*BeginSettingsScript(.*?)EndSettingsScript\\*/');
}
continue;
} else {
Item = HmsCreateMediaItem(sLink, ParentItem.ItemID);
}
for (i=0; i<SUBBLOCK.Count; i++) {
sName = SUBBLOCK.Names(i); if (sName=='') continue;
nParamId = GetIdByParamName(sName); if ((nParamId==0)||(nParamId==mpiTitle)) continue;
Item[nParamId] = SUBBLOCK.Values[sName];
}
Item[mpiTitle] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
sLink = Item[mpiFilePath]; if (LeftCopy(sLink, 1)=='/') Item[mpiFilePath] = HmsExpandLink(sLink, gsUrlBase);
if (Trim(Item[mpiFolderSortOrder])=='') Item[mpiFolderSortOrder] = -mpiCreateDate;
if (GetWonkyObject(SUBBLOCK, 'CreateItems', WONKYOBJECT, Item)) CreateItems(WONKYOBJECT, Item);
if (GetWonkyObject(SUBBLOCK, 'LoadLink', WONKYOBJECT, Item)) LoadPages (WONKYOBJECT, Item);
if (GetWonkyObject(SUBBLOCK, 'SearchItems', WONKYOBJECT, Item)) ProcessFindItems(VARS.Values['<TEXT>'], WONKYOBJECT, Item);
}
}
// ---------------------------------------------------------------------------------------
// Проверка переданных параметров в поле "Комментарий" подкаста
void CheckParameters() {
char sVal;
gbIE6Fix = (Pos('--winxpfix', mpPodcastParameters)>0);
if (HmsRegExMatch('(--(?:no|)log)', mpPodcastParameters, sVal)) {
if (sVal=='--nolog') LOG = 0;
if (sVal=='--log' ) LOG = 1;
}
if (HmsRegExMatch('(--(?:no|)progress)', mpPodcastParameters, sVal)) {
if (sVal=='--noprogress') SHOWPROGRESS = 0;
if (sVal=='--progress' ) SHOWPROGRESS = 1;
}
if (HmsRegExMatch('(--(?:no|)delitems)', mpPodcastParameters, sVal)) {
if (sVal=='--delitems') NODELITEMS = 0;
if (sVal=='--nodelitems') NODELITEMS = 1;
}
if (HmsRegExMatch('(--(?:no|)yearintitle)', mpPodcastParameters, sVal)) {
if (sVal=='--yearintitle') YEARINTITLE = 1;
if (sVal=='--noyearintitle') YEARINTITLE = 0;
}
if (HmsRegExMatch('(--(?:no|)numbering)', mpPodcastParameters, sVal)) {
if (sVal=='--numbering') NUMBERING = 1;
if (sVal=='--nonumbering') NUMBERING = 0;
}
if (HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, sVal)) {
if (sVal == 'alph' ) GROUPMODE = 1;
else if (sVal == 'alph2') GROUPMODE = 2;
else if (sVal == 'year' ) GROUPMODE = 3;
else if (sVal == 'none' ) GROUPMODE = 0;
}
if (HmsRegExMatch('--titlecase=(\\w+)', mpPodcastParameters, sVal)) {
if (sVal == 'upper') TITLECASE = 1;
else if (sVal == 'first') TITLECASE = 2;
else if (sVal == 'name' ) TITLECASE = 3;
else if (sVal == 'none' ) TITLECASE = 0;
}
if (HmsRegExMatch('(--(?:no|)collect)', mpPodcastParameters, sVal)) {
if (sVal=='--collect') COLLECTING = 1;
else if (sVal=='--nocollect') COLLECTING = 0;
}
if (HmsRegExMatch('--itemasfolder=(\\w+)', mpPodcastParameters, sVal)) {
if (sVal == 'on' ) ITEMASFOLDER = 1;
else if (sVal == 'off') ITEMASFOLDER = 0;
}
if (Pos('--loadfromlinks', mpPodcastParameters)>0) LOADFROMLINKS= 1;
if (Pos('--collectasitems',mpPodcastParameters)>0) COLLECTASITEM= 1;
if (HmsRegExMatch('--maxingroup=([\\d]+)', mpPodcastParameters, sVal)) MAXINGROUP = StrToIntDef(sVal, MAXINGROUP);
if (HmsRegExMatch('--dbgfile="(.*?)"', mpPodcastParameters, sVal)) DBGFILE = sVal;
if (HmsRegExMatch('--formatseries="(.*?)"', mpPodcastParameters, sVal)) gsFrmtSeries = sVal;
if (HmsRegExMatch('--groupbysort=(\\w+)', mpPodcastParameters, sVal)) {
if ((sVal == 'on' ) || (sVal == '1')) GROUPBYSORT = 1;
else if ((sVal == 'off') || (sVal == '0')) GROUPBYSORT = 0;
} else if (HmsRegExMatch('--groupbysort', mpPodcastParameters, '')) {
GROUPBYSORT = 1;
}
if (GROUPBYSORT==1) {
sVal = FolderItem[mpiFolderSortOrder];
if ((sVal=='-7' ) || (sVal=='-mpAlbum')) {
GROUPMODE = 1;
if (HmsRegExMatch('(--group=\\w+)', FolderItem[mpiPodcastParameters], sVal))
FolderItem[mpiPodcastParameters]=ReplaceStr(FolderItem[mpiPodcastParameters], sVal, '--group=alph');
else
FolderItem[mpiPodcastParameters] += ' --group=alph';
FolderItem[mpiFolderSortOrder] = mpiTitle;
} else if ((sVal=='-8' ) || (sVal=='-mpYear' )) {
GROUPMODE = 3;
if (HmsRegExMatch('(--group=\\w+)', FolderItem[mpiPodcastParameters], sVal))
FolderItem[mpiPodcastParameters]=ReplaceStr(FolderItem[mpiPodcastParameters], sVal, '--group=year');
else
FolderItem[mpiPodcastParameters] += ' --group=year';
FolderItem[mpiFolderSortOrder] = -mpiTitle;
} else if ((sVal=='7') || (sVal=='mpAlbum' )) {
GROUPMODE = 0;
if (HmsRegExMatch('(--group=\\w+)', FolderItem[mpiPodcastParameters], sVal))
FolderItem[mpiPodcastParameters]=ReplaceStr(FolderItem[mpiPodcastParameters], sVal, '--group=none');
else
FolderItem[mpiPodcastParameters] += ' --group=none';
FolderItem[mpiFolderSortOrder] = -mpiCreateDate;
}
}
}
// ---------------------------------------------------------------------------------------
// Проверка минимальной требуемой версии HomeMediaServer. Если не указано, то 1.30
void CheckMinVersionHMS(char sMinRequiredVer='') {
int i, n1, n2, nCount; char sProgramVersion = ProgramVersion();
if (sMinRequiredVer=='') sMinRequiredVer = '1.30';
nCount = WordCount(sProgramVersion, '.');
i = WordCount(sMinRequiredVer, '.');
if (nCount>i) nCount = i;
for (i=1; i<nCount; i++) {
n1 = StrToIntDef(ExtractWord(i, sMinRequiredVer, '.'), 0);
n2 = StrToIntDef(ExtractWord(i, sProgramVersion, '.'), 0);
if (n1<n2) break;
if (n1>n2) RaiseException(Format('Работа подкаста %s невозможна. Минимальная требуемая версия HMS: %s', [mpTitle, sMinRequiredVer]));
}
}
// ---------------------------------------------------------------------------------------
// Попытка сделать более быстрой загрузку большого YAML конфига - ищем подходящий блок
char QuickYamlLoad(char sText) {
char sField, sFCond, sObject='', sValue; int nIndxObj;
TStrings WONKYBLK = TStringList.Create(); Variant WONKYOBJECT, CONDOBJECT;
nIndxObj = WONKYBLK.AddObject('Condition', TStringList.Create());
CONDOBJECT = WONKYBLK.Objects(nIndxObj);
TRegExpr reSearch = TRegExpr.Create('(- Podcast.*?)(?=- Podcast|$)', PCRE_SINGLELINE);
if (reSearch.Search(sText)) do {
if (!HmsRegExMatch2('ConditionField\\s*:\\s*(.*?),.*?ConditionExp\\s*:\\s*(.*?)}', reSearch.Match, sField, sFCond, PCRE_SINGLELINE)) continue;
sField = Trim(sField);
sFCond = Trim(sFCond);
HmsRegExMatch('^\'(.*?)\'$', sField, sField, 1, PCRE_SINGLELINE);
HmsRegExMatch('^\'(.*?)\'$', sFCond, sFCond, 1, PCRE_SINGLELINE);
CONDOBJECT.Values['ConditionField'] = sField;
CONDOBJECT.Values['ConditionExp' ] = sFCond;
if (!GetWonkyObject(WONKYBLK, 'Condition', WONKYOBJECT, FolderItem)) continue;
sObject = reSearch.Match;
break;
} while (reSearch.SearchAgain());
reSearch.Free();
WONKYBLK.Free();
return sObject;
}
// ---------------------------------------------------------------------------------------
// Поиск родителького подкаста (папки) и получение конфига.
char GetCFG() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) {
sCFG = ROOTPODCAST[510]; // Берём конфиг из скрипта чтения дополнительных свойств RSS
HmsRegExMatch('Wonky Config.*?\\[(.*?)\\]', sCFG, gsCfgDate, 1, PCRE_SINGLELINE);
HmsRegExMatch('Author:\\s+"(.*?)"', sCFG, gsCfgAuthor, 1, PCRE_SINGLELINE);
HmsRegExMatch('About:\\s+"(.*?)"', sCFG, gsAbout, 1, PCRE_SINGLELINE);
break;
}
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
return sCFG;
}
// ---------------------------------------------------------------------------------------
// Создание робота Wonky307.
bool BuildWonkyRobot() {
int i; char sCFG = '', sValue, sCfgBlockName, sLink; bool bExternalCfg = false; Variant WONKYOBJECT;
sCFG = GetCFG()+'\n';
if (Trim(sCFG)=='') {
HmsLogMessage(1, mpTitle+': Не найдена конфигурация Wonky 307.');
return false;
}
VARS.Values['<COOKIES>'] = FolderItem[39000];
SetCookies(VARS.Values['<COOKIES>']);
whYamlParser('LoadFromString', WONKY307, sCFG);
CheckMinVersionHMS(WONKY307.Values['MinVerHMS']);
if (WONKY307.Values['UrlBase']) gsUrlBase = WONKY307.Values['UrlBase'];
if (WONKY307.Values['dbgFile']) DBGFILE = WONKY307.Values['dbgFile'];
sValue = WONKY307.Values['mpiPodcastOptions'];
if (sValue!='') ROOTPODCAST[529] = StrToIntDef(sValue, ROOTPODCAST[529]);
if (W_MODE==1) sCfgBlockName = 'CreatePodcast'; else sCfgBlockName = 'GetList';
if (HmsRegExMatch('-WonkyBlock:([A-Z0-9_]+)', mpPodcastParameters, sValue, 1, PCRE_SINGLELINE)) sCfgBlockName = sValue;
sCFG = '';
if (GetWonkyObject(WONKY307, sCfgBlockName, WONKYOBJECT, FolderItem)) sCFG = whYamlParser('SaveToString', WONKYOBJECT)+'\n\n';
sLink = WONKY307.Values[sCfgBlockName+'Local'];
if (FileExists(sLink)) {
sCFG += HmsStringFromFile(sLink)+'\n\n';
bExternalCfg = true;
} else if (FileExists(HmsTempDirectory()+'\\'+sCfgBlockName+'.yml')) {
sCFG += HmsStringFromFile(HmsTempDirectory()+'\\'+sCfgBlockName+'.yml')+'\n\n';
if (DBGFILE!='') LogMe("CFGBLOCK "+sCfgBlockName+":\n"+whYamlParser('SaveToString', WONKY307));
bExternalCfg = true;
} else {
sLink = WONKY307.Values[sCfgBlockName+'Remote'];
if (sLink!='') {
sValue = LoadURL(sLink);
bExternalCfg = (sValue!='');
if (LeftCopy(sValue, 2)== #120#218) sValue=HmsUtf8Decode(HmsDecompressString(sValue));
if (sValue!='') HmsStringToFile(sValue, HmsTempDirectory()+'\\'+sCfgBlockName+'.yml');
sCFG += sValue+'\n\n';
}
}
if (bExternalCfg) {
LogMe('Загружен кофиг '+sLink);
sCFG = QuickYamlLoad(sCFG);
whYamlParser('LoadFromString', WONKY307, sCFG);
i = WONKY307.IndexOf('Podcast');
if (i>=0) {
WONKYOBJECT = WONKY307.Objects[i];
WONKY307 = WONKYOBJECT;
}
gsUrlBase = WONKY307.Values['UrlBase'];
sValue = WONKY307.Values['mpiPodcastOptions'];
if (sValue!='') ROOTPODCAST[529] = StrToIntDef(sValue, ROOTPODCAST[529]);
} else {
if ((W_MODE==0) && (COLLECTING==1)) if (GetWonkyObject(WONKY307, 'CollectionRules', WCOLLECT, FolderItem)) {
COLLECTOR = ROOTPODCAST.AddFolder(WCOLLECT.Values['Title'], true);
COLLECTOR[mpiCreateDate] = '31.12.1013 23:59';
COLLECTOR[532] = 0; // Отключаем скрипт обновления
if (!GetWonkyObject(WCOLLECT, 'CollectorFolders', WCOLLECT, FolderItem)) COLLECTOR = 0;
}
if (!GetWonkyObject(WONKY307, sCfgBlockName, WONKY307, FolderItem)) {
HmsLogMessage(2, mpTitle+': Не найден блок конфигурации '+sCfgBlockName);
} else {
sCFG = '-';
}
}
if (gsUrlBase!='') gsHeaders = ReplaceStr(gsHeaders, 'http://www.google.com/\r\n', gsUrlBase+'\r\n');
if (DBGFILE!='') LogMe("CFGBLOCK "+sCfgBlockName+":\n"+whYamlParser('SaveToString', WONKY307));
return (sCFG!='');
}
// ---------------------------------------------------------------------------------------
// Инициализация глобальных переменных и прочие подготовительные действия
void WonkyInit() {
if (LOG==1) HmsLogMessage(1, mpTitle);
// Присваиваем переменным текущие значения для возможного использования в шаблонах
VARS.Values['<FILEPATH>'] = FolderItem[mpiFilePath];
VARS.Values['<TITLE>'] = FolderItem[mpiTitle];
VARS.Values['<TITLE4SEARCH>'] = GetTitle4Search(FolderItem);
VARS.Values['<PARAMS>'] = mpPodcastParameters;
}
// ---------------------------------------------------------------------------------------
// Main program Wonky307
void WONKY307Start() {
char sHtml, sValue, sCfgBlock; TStrings WONKYOBJECT; int nAnsw;
if (mpFilePath=='-SearchCommands') return;
CheckParameters(); // Проверка переданных параметров в поле "Комментарий"
if (W_MODE==1) {
if (FolderItem.HasChildItems) {
nAnsw = MessageDlg('Пересоздание структуры подкаста.\nУдалить существующую структуру - очистить ссылки???', 0, 3+8, 0);
if (nAnsw == mrCancel) return;
if (nAnsw == mrYes ) FolderItem.DeleteChildItems();
}
}
try {
ExceptionMessage='';
// Создаём робота WONKY307.
if (!BuildWonkyRobot()) RaiseException('Невозможно создать WONKY 307 из конфигурационного файла!');
//ShowMessage(whYamlParser('SaveToString', WONKY307));
WonkyInit();
LogMe('---- Обновление подкаста '+mpTitle+' ----');
bWasShownProgress = (SHOWPROGRESS==1);
if (NODELITEMS!=1) FolderItem.DeleteChildItems(); // Удаляем старый список подкастов
LoadPages(WONKY307, FolderItem); // Запуск загрузки и всего-такого
} finally {
HmsHideProgress();
if (ExceptionMessage!='') HmsLogMessage(1, ExceptionMessage);
LogMe('---- Конец обновления подкаста '+mpTitle+' ----\n');
WONKY307.Free(); PARAM.Free(); VARS.Free(); COOKIES.Free();
if (WCOLLECT!=nil) WCOLLECT.Free();
FolderItem[mpiTitle] = mpTitle; // Восстанавливаем параметры
FolderItem[mpiFilePath] = mpFilePath;
FolderItem[mpiCreateDate] = mpCreateDate;
HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, sValue);
if (sValue=='alph') FolderItem.Sort('mpTitle');
if (sValue=='year') FolderItem.Sort('-mpTitle');
}
if (LOG==1) HmsLogMessage(1, mpTitle+' готов! Найдено элементов: '+IntToStr(gnTotalItems));
}
///////////////////////////////////////////////////////////////////////////////
// Проверка актуальности версии функции 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();
}
// ---------------------------------------------------------------------------------------
// Main program
{
// if (Pos('--noupdatemoonwalk', mpPodcastParameters)<1) CheckMoonwalkFunction();
if (Pos('Wonky Config', FolderItem[510])>0) {GetCFG(); ShowParametersForm();} else WONKY307Start();
// WONKY307Start();
}
572
C++Script
510
# http://www.hdkinoteatr.ru/engine/ajax/celebs.php?q=%C4
# Wonky Config 307.46 [13.12.2015]
# Author: "WendyH"
# About: "Hello flys 2:|isko|tarzann5|slawa321|linkey|mch|Leshiy71|Eugene|...|&& all who created"
MinVerHMS: 1.99
UrlBase: http://www.hdkinoteatr.com
mpiPodcastOptions: 1 # Включить "Скрипт формирует несколько ссылок"
# Объект обработки функции "Создать ленты подкастов" или "Пересоздания структуры подкста" в визуальной форме
CreatePodcast:
# Запрос категорий с сайта и создание структуры "как там"
CutBlock: (<div[^>]+class="sidetitle".*?</ul>)
SearchItems:
SearchBlock: <li.*?>(.*?)</li>
mpiFilePath: <a[^>]+href="(.*?)"
mpiTitle : <a.*?>(.*?)</a>
AddParam1 : {ConditionField: mpiFilePath, ConditionExp: /tv/, mpiPodcastParameters: --group=none, mpiFolderSortOrder: -35}
AddParam2 : {ConditionField: mpiFilePath, ConditionExp: /year/2017, mpiPodcastParameters: --group=none, mpiFolderSortOrder: -35}
AddParam2 : {ConditionField: mpiFilePath, ConditionExp: /year/2016, mpiPodcastParameters: --group=none, mpiFolderSortOrder: -35}
AddParam3 : {ConditionField: mpiFilePath, ConditionExp: /year/2015, mpiPodcastParameters: --group=none, mpiFolderSortOrder: -35}
AddParam4 : {ConditionField: mpiFilePath, ConditionExp: /year/2014, mpiPodcastParameters: --group=none, mpiFolderSortOrder: -35}
AddParam5 : {ConditionField: mpiFilePath, ConditionExp: /year/2013, mpiPodcastParameters: --group=alph}
AddParam6 : {ConditionField: mpiFilePath, ConditionExp: /year/2012, mpiPodcastParameters: --group=alph}
AddParam7 : {ConditionField: mpiFilePath, ConditionExp: /year/2011, mpiPodcastParameters: --group=alph}
AddParam8 : {ConditionField: mpiFilePath, ConditionExp: /series/, mpiPodcastParameters: --group=alph, mpiFolderSortOrder: 4}
CreateItems:
# Создание каталога настроек для навигации с медиа плеера
- Type: SettingsFolder
mpiTitle : '00. Настройки подкаста'
CreateItems:
- mpiTitle : Выбор качества
mpiFilePath: SettingName="--quality"
CreateItems:
- {mpiTitle: 'Качество - 720', mpiFilePath: -SetParam=720}
- {mpiTitle: 'Качество - 640', mpiFilePath: -SetParam=640}
- {mpiTitle: 'Качество - 480', mpiFilePath: -SetParam=480}
- {mpiTitle: 'Качество - 360', mpiFilePath: -SetParam=360}
- {mpiTitle: 'Использовать настройки мадиа-сервера', mpiFilePath: -OffParam}
- mpiTitle : Лимит загрузки страниц для обновления
mpiFilePath: SettingName="--pages"
CreateItems:
- {mpiTitle: 'Максимум 5 страниц для загрузки', mpiFilePath: -SetParam=5 }
- {mpiTitle: 'Максимум 10 страниц для загрузки', mpiFilePath: -SetParam=10}
- {mpiTitle: 'Максимум 20 страниц для загрузки', mpiFilePath: -SetParam=20}
- {mpiTitle: 'Максимум 50 страниц для загрузки', mpiFilePath: -SetParam=50}
- {mpiTitle: 'Не ограничивать количество загружаемых страниц', mpiFilePath: -OffParam}
- mpiTitle : Год в названии
mpiFilePath: SettingName="--yearintitle"
CreateItems:
- {mpiTitle: 'Добавлять год к названию', mpiFilePath: -SetParam}
- {mpiTitle: 'Не добавлять год к назвнию', mpiFilePath: -OffParam}
- mpiTitle : Заглавые буквы названий
mpiFilePath: SettingName="--titlecase"
CreateItems:
- {mpiTitle: 'Все названия заглавными буквами', mpiFilePath: -SetParam=upper}
- {mpiTitle: 'Не делать названия заглавными буквами', mpiFilePath: -OffParam}
- mpiTitle : Рейтинг IMDb в названии
mpiFilePath: SettingName="--ratingimdb"
CreateItems:
- {mpiTitle: 'Включить рейтинг IMDb', mpiFilePath: -SetParam=1}
- {mpiTitle: 'Включить рейтинг IMDb (полный)', mpiFilePath: -SetParam=2}
- {mpiTitle: 'Выключить рейтинг IMDb', mpiFilePath: -OffParam}
- mpiTitle : Рейтинг КиноПоиск в названии
mpiFilePath: SettingName="--ratingkp"
CreateItems:
- {mpiTitle: 'Включить рейтинг КиноПоиск', mpiFilePath: -SetParam=1}
- {mpiTitle: 'Включить рейтинг КиноПоиск (полный)', mpiFilePath: -SetParam=2}
- {mpiTitle: 'Выключить рейтинг КиноПоиск', mpiFilePath: -OffParam}
- mpiTitle : Удаление ссылок при обновлении
mpiFilePath: SettingName="--nodelitems"
CreateItems:
- {mpiTitle: 'Не удалять старые ссылки при обновлении', mpiFilePath: -SetParam}
- {mpiTitle: 'Удалять старые ссылки при обновлении', mpiFilePath: -OffParam}
- mpiTitle : Показ прогресса обновления на компьютере
mpiFilePath: SettingName="--noprogress"
CreateItems:
- {mpiTitle: 'Не показывать прогресс обновления на компьютере', mpiFilePath: -SetParam}
- {mpiTitle: 'Показывать прогресс обновления на компьютере', mpiFilePath: -OffParam}
- mpiTitle : Cсылка на просмотр информации о видео
mpiFilePath: SettingName="--vinfo"
CreateItems:
- {mpiTitle: 'Размер шрифта информации - мелкий', mpiFilePath: -SetParam=0}
- {mpiTitle: 'Размер шрифта информации - средний', mpiFilePath: -SetParam=1}
- {mpiTitle: 'Размер шрифта информации - крупный', mpiFilePath: -SetParam=2}
- {mpiTitle: 'Не добавлять ссылки "Информация о видео"', mpiFilePath: -OffParam}
- mpiTitle : Добавлять элементы с информацией о видео
mpiFilePath: SettingName="--videoinfoitems"
CreateItems:
- {mpiTitle: 'Добавлять элементы с информацией о видео', mpiFilePath: -SetParam}
- {mpiTitle: 'Не добавлять элементы с информацией о видео', mpiFilePath: -OffParam}
- mpiTitle : Режим HDS
mpiFilePath: SettingName="--hdsdump"
CreateItems:
- {mpiTitle: 'Режим HDS включен', mpiFilePath: -SetParam}
- {mpiTitle: 'Режим HDS выключен',mpiFilePath: -OffParam}
- mpiTitle : Считывать свойства файла перед включением
mpiFilePath: SettingName="--retrieve"
CreateItems:
- {mpiTitle: 'Считывать свойства перед включением, mpiFilePath: -SetParam}
- {mpiTitle: 'Не считывать свойства перед включением',mpiFilePath: -OffParam}
# Добавление папки поиска
- Type: Search
mpiTitle: '01. Поиск'
CmdTitle: '"Набрать текст"'
gsSuggestQuery : 'http://www.hdkinoteatr.com/index.php?do=search&subaction=search&full_search=1&titleonly=3&story='
gsSuggestResultCut: ''
gsSuggestRegExpr : '(<h3.*?</h3>)'
gsSuggestMethod : 'POST'
# Создание дополнительных подкастов (вне категорий)
- Type: Folder
mpiTitle : 02. Топ 250
mpiPodcastParameters: --group=none --maxingroup=300 --numbering
CreateItems:
- {Type: Podcast, mpiTitle: 'По рейтингу КиноПоиска', mpiFilePath: /top/?dlenewssortby=kp_rating&dledirection=desc&set_new_sort=dle_sort_top&set_direction_sort=dle_direction_top, mpiPodcastParameters: -WonkyBlock:TOP250}
- {Type: Podcast, mpiTitle: 'По рейтингу IMDB', mpiFilePath: /top/?dlenewssortby=imdb_rating&dledirection=desc&set_new_sort=dle_sort_top&set_direction_sort=dle_direction_top, mpiPodcastParameters: -WonkyBlock:TOP250}
- {Type: Podcast, mpiTitle: 'По посещаемости', mpiFilePath: /top/?dlenewssortby=news_read&dledirection=desc&set_new_sort=dle_sort_top&set_direction_sort=dle_direction_top, mpiPodcastParameters: -WonkyBlock:TOP250}
- {Type: Podcast, mpiTitle: 'По комментариям', mpiFilePath: /top/?dlenewssortby=comm_num&dledirection=desc&set_new_sort=dle_sort_top&set_direction_sort=dle_direction_top, mpiPodcastParameters: -WonkyBlock:TOP250}
- {Type: Podcast, mpiTitle: '03. Последние поступления', mpiFilePath: /<PAGEPARAM>?rnd=<RND>, mpiPodcastParameters: --pages=10 --group=none --delitems}
# Дополнительный объект для обработки ТОП 250 (указан в комментариях подкастов как -WonkyBlock:<ИМЯ>, где <ИМЯ> - наименование дополнительного блока)
TOP250:
PagesInfo: {Pages: 1, Method: POST}
CutBlock: dle-content(.*?)</table>
SearchItems:
SearchBlock : <tr>(.*?)</tr>
mpiFilePath : <a[^>]+href=["'](.*?)["']
mpiTitle : (<a.*</a>)
mpiYear : <a.*?>.*?(\d{4})
ForceFolder : 1
# Объект поиска и обработки ссылок на видео
GetList:
ChangeValues:
- {ConditionField: mpiFilePath, ConditionExp: ^(?!http:/), mpiFilePath: '/index.php?do=search&subaction=search&full_search=0&result_from=1&result_from=1&titleonly=3&story=<TITLE4SEARCH>', PAGEPARAM: &search_start=<PN>, METHOD: POST}
GetPagesFromPageNavi: {Pages: <div[^>]+class="navigation">.*/page/\d+/">(\d+)</a>, StartPage: 1, PageMul: 1, PageParam: /page/<PN>/, Pages2: <div[^>]+class="navigation">.*href=#>(\d+)</a>}
SearchItems:
SearchBlock : class="base shortstory">(.*?argcat".*?)</div>\s*?</div>\s*?</div>
mpiFilePath : <h\d.*?<a href="(.*?)"
mpiTitle : alt="(.*?)"
mpiThumbnail : <img[^>]+src=["'](.*?)["']
mpiGenre : <p[^>]+class="argcat">.*?(<a.*?)</p>
mpiYear : <h\d.*?<a.*?>.*?\((\d{4}).*?</h\d>
Exclude1 : {IfKey: --skipserials, ConditionField: <TEXTITEM>, ConditionExp: 'argcat">.*?<a[^>]+/series/'}
id3070 : class="imdb">IMDb</span>(.*?)<
id3071 : class="imdb">.*?class="rating-num".*?([\s\d]+)
id3072 : class="kp">.*?</span>(.*?)<
id3073 : class="kp">.*?class="rating-num".*?([\s\d]+)
AddParam1: {ConditionField: <PARAMS>, ConditionExp: --ratingimdb=1, mpiTitle: "Format('IMDb %s', [id3070]) "}
AddParam2: {ConditionField: <PARAMS>, ConditionExp: --ratingimdb=2, mpiTitle: "Format('IMDb %s [%s]', [id3070,id3071])"}
AddParam3: {ConditionField: <PARAMS>, ConditionExp: --ratingkp=1, mpiTitle: "Format('КП %s', [id3072]) "}
AddParam4: {ConditionField: <PARAMS>, ConditionExp: --ratingkp=2, mpiTitle: "Format('КП %s [%s]', [id3072,id3073])"}
ForceFolder : 1
# Правила для коллектора
CollectionRules:
Title: Коллектор
CollectorFolders:
- {ConditionField: <TEXTITEM>, ConditionExp: argcat.*?/animation/, Title: 'Мультфильмы'}
- {ConditionField: <TEXTITEM>, ConditionExp: argcat.*?/series/, Title: 'Фильмы', Negative: 1}
# Объект добавления выбора настроек в визуальную форму к встренным стандартным
AddVisualParameters:
- Class: ComboBox
Caption: Выбор качества (высота кадра)
caWidth: 250
Hint : Установка принудительного выбора качества видео (если таковое есть по ссылке)
coWidth: 135
Param0 : Качество - 720|--quality=720
Param1 : Качество - 640|--quality=640
Param2 : Качество - 480|--quality=480
Param3 : Качество - 360|--quality=360
- Class: CheckBox
Caption: Режим HDS
Hint : Режим испольования транскодера hdsdump.exe
Param : --hdsdump
- Class: CheckBox
Caption: Считывать свойства файла перед включением
Hint : Перед включением видео на просмотр, если ещё не прочитаны свойства - прочитать.
Param : --retrieve
- Class: ComboBox
Caption: Рейтинг IMDb
caWidth: 150
Hint : Добавлять к названию информацию о рейтинге IMDb
coWidth: 235
Param0 : Показывать только рейтинг |--ratingimdb=1
Param1 : Подробно (количество голосов)|--ratingimdb=2
- Class: ComboBox
Caption: Рейтинг КиноПоиск
caWidth: 150
Hint : Добавлять к названию информацию о рейтинге КиноПоиск
coWidth: 235
Param0 : Показывать только рейтинг |--ratingkp=1
Param1 : Подробно (количество голосов)|--ratingkp=2
- Class: CheckBox
Caption: Windows XP ie6 fix
Hint : Решение проблемы не обновляемых подкастов c установленным ie6 (нет распаковки ответа при gzip,deflate)
Param : --winxpfix
- Class: CheckBox
Caption: Лог выбора качества видео
Hint : Показывать информацию о доступном и выбранном качестве видео при получении ссылки
Param : --qualitylog
- Class: CheckBox
Caption: Пропускать сериалы
Hint : Пропускать фильмы категории "Cериалы"
Param : --skipserials
- Class: ComboBox
Caption: Ссылка на информацию о видео
caWidth: 255
Hint : Добавляет ссылку на информацию о видео (мельче шрифт - больше текста)
coWidth: 130
Param0 : Мелкий шрифт |--vinfo=0
Param1 : Средний шрифт|--vinfo=1
Param2 : Крупный шрифт|--vinfo=2
511
Нет скрипта
550
int DEBUG = 0;
int LOG = 0;
int UPPER = 0;
int YEARINTITLE = 0;
int REMSERIEWORD = 0;
bool gbDebug = false;
bool gbQualityLog = false, gbQual, gbIE6Fix=false;
int gnTotalItems = 0; string gsFrmtSeries = '%.2d';
TDateTime gStart = Now; TStrings COOKIES = TStringList.Create();
string
gsUrlBase = 'http://www.hdkinoteatr.com',
gsCacheDir = IncludeTrailingBackslash(HmsTempDirectory)+'hdkinoteatr.com/',
gsPreviewPrefix = "hdkinoteatr",
gsPodcastName = "HDKinoTeatr",
gsHeaders = 'http://www.hdkinoteatr.com/\r\n'+
'Accept-Encoding: identity\r\n'+
'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0\r\n'+
'Origin: http://moonwalk.cc\r\n'+
'X-Requested-With: XMLHttpRequest\r\n'+
'X-Data-Pool: Stream\r\n'+
'Accept: */*\r\n'+
'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8\r\n'+
'Cookie: clcktest=1;\r\n';
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки на видео
THmsScriptMediaItem CreateMediaItem(THmsScriptMediaItem Folder, string sTitle, string sLink, string sImg='', string sTime='') {
if (sTime=='') sTime = '01:40:00.000';
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;
}
// ----------------------------------------------- Получение свойств видео ----
void RetrieveVideoProperties() {
if ((Trim(PodcastItem[4444])=='') && (Trim(PodcastItem[mpiAudioStreamList])=='')) {
PodcastItem[4444] = '-';
PodcastItem.RetrieveProperties();
}
}
///////////////////////////////////////////////////////////////////////////////
// Формирование ссылки для воспроизведения через 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>" --threads 2', [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, sPage, sPost, sManifest, sVer, sSec, sQual, sVal, sServ, sRet, sCookie, sVar;
int i; float f; TRegExpr RE; bool bHdsDump, bQualLog;
string sHeaders = sLink+'\r\n'+
'Accept-Encoding: identity\r\n'+
'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0\r\n';
// Проверка установленных дополнительных параметров
HmsRegExMatch('--quality=(\\w+)', mpPodcastParameters, sQual);
bHdsDump = Pos('--hdsdump' , mpPodcastParameters) > 0;
bQualLog = Pos('--qualitylog' , mpPodcastParameters) > 0;
sLink = ReplaceStr(sLink, 'moonwalk.co', 'moonwalk.cc');
sLink = ReplaceStr(sLink, 'moonwalk.pw', 'moonwalk.cc');
HmsRegExMatch2('//(.*?)(/.*)', sLink, sServ, sPage);
sHtml = HmsSendRequestEx(sServ, sPage, 'GET', 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, '', 80, 0, sRet, true);
if (HmsRegExMatch('<iframe[^>]+src="(http.*?)"', sHtml, sLink)) {
sLink = ReplaceStr(sLink, 'moonwalk.co', 'moonwalk.cc');
sLink = ReplaceStr(sLink, 'moonwalk.pw', 'moonwalk.cc');
HmsRegExMatch2('//(.*?)(/.*)', sLink, sServ, sPage);
sHtml = HmsSendRequestEx(sServ, sPage, 'GET', 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, '', 80, 0, sRet, true);
}
if (HmsRegExMatch('"csrf-token"\\s+content="(.*?)"', sHtml, sVal)) sHeaders += 'X-CSRF-Token:'+sVal+'\r\n';
sCookie = "";
if (HmsRegExMatch('Set-Cookie:', sRet, '')) {
while(HmsRegExMatch2('Set-Cookie:\\s*([^;]+)(.*)', sRet, sVal, sRet, PCRE_SINGLELINE)) sCookie += " "+sVal+";";
}
if (!HmsRegExMatch('(https?://.*?)/', sLink, sVal)) sVal = 'http://moonwalk.cc';
sHeaders += 'Cookie:'+sCookie+'\r\n'+
'Origin: '+sVal+'\r\n'+
'X-Requested-With: XMLHttpRequest\r\n';
// Поиск дополнительных HTTP заголовков, которые нужно установить
if (HmsRegExMatch('ajaxSetup\\([^)]+headers:(.*?)}', sHtml, sPage)) {
while(HmsRegExMatch3('["\']([\\w-_]+)["\']\\s*?:\\s*?["\'](\\w+)["\'](.*)', sPage, sVal, sVer, sPage, PCRE_SINGLELINE)) sHeaders += sVal+': '+sVer+'\r\n';
}
if (!HmsRegExMatch2('/new_session.*?(\\w+)\\s*?=\\s*?\\{(.*?)\\}', sHtml, sVal, sPost)) {
HmsLogMessage(2, mpTitle+': Не найдены параметры new_session на странице.');
}
sPost = ReplaceStr(sPost, ':', '=');
sPost = ReplaceStr(sPost, ' ', '' );
sPost = ReplaceStr(sPost, "'", '' );
sPost = ReplaceStr(sPost, ',', '&');
sPost = ReplaceStr(sPost, 'condition_detected?1=', '');
sPost = HmsRemoveLineBreaks(sPost);
// Замена имён переменных их значениями в параметрах запроса
sData = sPost;
while(HmsRegExMatch2('.(=(\\w+).*)', sData, sData, sVar)) {
if (HmsRegExMatch('var\\s'+sVar+'\\s*=\\s*[\'"](.*?)[\'"]', sHtml, sVal))
sPost = ReplaceStr(sPost, '='+sVar, '='+sVal);
}
// Замена имён переменных их значениями в параметрах запроса, установленных после
sData = sHtml;
while(HmsRegExMatch3('.(post_method\\.(\\w+)\\s*=\\s*(\\w+).*)', sData, sData, sVar, sVal)) {
if (HmsRegExMatch('var\\s'+sVal+'\\s*=\\s*[\'"](.*?)[\'"]', sHtml, sVal))
sPost += '&'+sVar+'='+sVal;
}
HmsRegExMatch('//(.*?)/', sLink, sServ);
sData = HmsSendRequest(sServ, '/sessions/new_session', 'POST', 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, sPost, 80, true);
sData = HmsJsonDecode(sData);
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[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);
if (RE.Search(sHtml)) do f += StrToFloatDef(RE.Match(1), 0); while (RE.SearchAgain());
RE.Free;
PodcastItem.Properties[mpiTimeLength] = Round(f);
}
}
// ------------------------------------------------------------------------
// Если установлен ключ --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];
}
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);
// Поддержка установленных приоритетов качества в настройках подкаста
TJsonObject 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 CreateSeriesFromPlaylist(THmsScriptMediaItem Folder, string sLink, string sName='') {
string sData, s1, s2, s3; int i; TJsonObject JSON, PLITEM; TJsonArray PLAYLIST; // Объявляем переменные
// Если передано имя плейлиста, то создаём папку, в которой будем создавать элементы
if (Trim(sName)!='') Folder = Folder.AddFolder(sName);
// Если в переменной sLink сожержится знак '{', то там не ссылка, а сами данные Json
if (Pos('{', sLink)>0) {
sData = sLink;
} else {
sData = HmsDownloadURL(sLink, "Referer: "+mpFilePath, true); // Загружаем плейлист
sData = HmsUtf8Decode(sData);
//sData = DecodeUppodTextHash(sData); // Дешифруем
}
JSON = TJsonObject.Create(); // Создаём объект для работы с Json
try {
JSON.LoadFromString(sData); // Загружаем json данные в объект
PLAYLIST = JSON.A['playlist']; // Пытаемся получить array с именем 'playlist'
if (PLAYLIST==nil) PLAYLIST = JSON.AsArray; // Если массив 'playlist' получить не получилось, то представляем все наши данные как массив
if (PLAYLIST!=nil) { // Если получили массив, то запускаем обход всех элементов в цикле
for (i=0; i<PLAYLIST.Length; i++) {
PLITEM = PLAYLIST[i]; // Получаем текущий элемент массива
sName = PLITEM.S['comment']; // Название - значение поля comment
sLink = PLITEM.S['file' ]; // Получаем значение ссылки на файл
sName = ReplaceStr(ReplaceStr(HmsHtmlToText(sName, 65001), "\n", ' '), "\r", '');
// Форматируем числовое представление серий в названии
// Если в названии есть число, то будет в s1 - то, что стояло перед ним, s2 - само число, s3 - то, что было после числа
if (HmsRegExMatch3('^(.*?)(\\d+)(.*)$', sName, s1, s2, s3))
sName = Trim(Format('%s %.2d %s', [s1, StrToInt(s2), s3])); // Форматируем имя - делаем число двухцифровое (01, 02...)
if (LeftCopy(sLink, 4)=='oid=') sLink = 'http://vk.com/video_ext.php?'+Trim(sLink);
// Проверяем, если это вложенный плейлист - запускаем создание элементов из этого плейлиста рекурсивно
if (PLITEM.B['playlist'])
CreateSeriesFromPlaylist(Folder, PLITEM.S['playlist'], sName);
else
CreateMediaItem(Folder, sName, sLink); // Иначе просто создаём ссылки на видео
}
} // end if (PLAYLIST!=nil)
} finally { JSON.Free; } // Какие бы ошибки не случились, освобождаем объект из памяти
}
// ----------------------------------------------------------------------------
void CreateVideoInfoItem(char sName, TStrings ADDINFO) {
THmsScriptMediaItem Item;
Item = HmsCreateMediaItem('-VideoPreview'+IntToStr(gnTotalItems), PodcastItem.ItemID);
Item[mpiTitle ] = HmsHtmlToText(sName);
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg';
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[mpiTimeLength] = '00:00:20.000';
string sInfo = '';
if (ADDINFO.Values['Year' ]) sInfo += "<c:#FFC3BD>Год: </c>" +ADDINFO.Values["Year" ]+" ";
if (ADDINFO.Values['Country' ]) sInfo += "<c:#FFC3BD>Страна: </c>" +ADDINFO.Values["Country" ] + "|";
if (ADDINFO.Values['Director']) sInfo += "<c:#FFC3BD>Режиссёр: </c>"+ADDINFO.Values["Director"] + "|";
if (ADDINFO.Values['Producer']) sInfo += "<c:#FFC3BD>Продюсер: </c>"+ADDINFO.Values["Producer"] + "|";
if (ADDINFO.Values['Author' ]) sInfo += "<c:#FFC3BD>Сценарий: </c>"+ADDINFO.Values["Author" ] + "|";
if (ADDINFO.Values['Composer']) sInfo += "<c:#FFC3BD>Композитор: </c>"+ADDINFO.Values["Composer"]+"|";
if (ADDINFO.Values['Time' ]) sInfo += "<c:#FFC3BD>Длительность: </c>"+ADDINFO.Values["Time"] + "|";
if (ADDINFO.Values['Actors' ]) sInfo += "<c:#FFC3BD>В ролях: </c>" +ADDINFO.Values["Actors" ] + "|";
if (ADDINFO.Values['Translate'])sInfo += "<c:#FFC3BD>Перевод: </c>" +ADDINFO.Values["Translate"]+ "|";
if (ADDINFO.Values['Rating' ]) sInfo += "<c:#FFC3BD>Рейтинг: </c>" +ADDINFO.Values["Rating" ] + "|";
sInfo = Copy(sInfo, 1, Length(sInfo)-1);
TStrings INFO = TStringList.Create();
INFO.Values['Poster'] = ADDINFO.Values['Poster'];
INFO.Values['Title' ] = ADDINFO.Values['Title' ];
INFO.Values['Info' ] = Trim(sInfo);
INFO.Values['Categ' ] = ADDINFO.Values['Genre' ];
INFO.Values['Descr' ] = ADDINFO.Values['Descr' ];
Item[1001001] = INFO.Text;
INFO.Free();
}
// ----------------------------------------------------------------------------
void AddVideoInfoItems(TStrings ADDINFO) {
if (ADDINFO.Values['Director']) CreateVideoInfoItem('Режиссёр: '+ADDINFO.Values['Director'], ADDINFO);
if (ADDINFO.Values['Country' ]) CreateVideoInfoItem('Страна: ' +ADDINFO.Values['Country' ], ADDINFO);
if (ADDINFO.Values['Budget' ]) CreateVideoInfoItem('Бюджет: ' +ADDINFO.Values['Budget' ], ADDINFO);
if (ADDINFO.Values['Genre' ]) CreateVideoInfoItem('Жанр: ' +ADDINFO.Values['Genre' ], ADDINFO);
string sRating = ADDINFO.Values['Rating'];
HmsRegExMatch('(КП.*)', sRating, sRating);
if (sRating) CreateVideoInfoItem('Рейтинг: ' +sRating, ADDINFO);
}
// -------------------------------------------- Получение ссылки на vk.com ----
bool GetLink_VK2(char sLink) {
char sHtml, sVal, host, uid, vkid, vtag, max_hd, no_flv, res;
char ResolutionList='0:240, 1:360, 2:480, 3:720', sQAval, sQSel;
int i, iPriority=0, iMinPriority=99; int nFlag=0;
string sRet='', sPost='', sOid, sID, sLnk2='';
sHtml = HmsDownloadUrl(sLink, 'Referer: '+gsHeaders, true);
sHtml = ReplaceStr(sHtml, '\\', '');
host = ''; max_hd = '2';
if (!HmsRegExMatch('vtag["\':=\\s]+([0-9a-z]+)', sHtml, vtag)) {
if (HmsRegExMatch('<div style="position:absolute; top:50%; text-align:center; right:0pt; left:0pt;.*?>(.*?)</div>', sHtml, sLink)) {
HmsLogMessage(2, PodcastItem.ItemOrigin.ItemParent[mpiTitle]+': vk.com сообщает - '+HmsHtmlToText(sLink));
if (random > 0.5) MediaResourceLink = 'http://wonky.lostcut.net/vids/enotallow.avi';
else VideoMessage('', 'VK.COM СООБЩАЕТ:\n\n'+HmsHtmlToText(sLink));
} else {
HmsLogMessage(2, mpTitle+': не удалось обработать ссылку на vk.com');
MediaResourceLink = 'http://wonky.lostcut.net/vids/error_getlink.avi';
}
return true;
}
HmsRegExMatch('[^a-z]host[=:"\'\\s]+(.*?)["\'&;,]', sHtml, host );
HmsRegExMatch('[^a-z]uid[=:"\'\\s]+([0-9]+)', sHtml, uid );
HmsRegExMatch('no_flv.*?(\\d)' , sHtml, no_flv);
HmsRegExMatch('(?>hd":"|hd=|video_max_hd.*?)(\\d)', sHtml, max_hd);
HmsRegExMatch('[^a-z]vkid[=:"\'\\s]+([0-9]+)', sHtml, vkid );
HmsRegExMatch(max_hd+':(\\d+)', ResolutionList, res );
sQAval = 'Доступное качество: '; sQSel = '';
HmsRegExMatch('--quality=(\\d+)', mpPodcastParameters, sQSel);
// Если включен приоритет форматов, то ищем ссылку на более приоритетное качество
if (gbQualityLog || (mpPodcastMediaFormats!='')) for (i=StrToIntDef(max_hd, 3); i>=0; i--) {
HmsRegExMatch(IntToStr(i)+':(\\d+)', ResolutionList, sVal);
sQAval += sVal + ' ';
if (sQSel != '') {
if (StrToIntDef(res, 0)>StrToIntDef(sQSel, 0)) res = sVal;
} else if (mpPodcastMediaFormats != '') {
iPriority = HmsMediaFormatPriority(StrToIntDef(sVal, 0), mpPodcastMediaFormats);
if ((iPriority>=0)&&(iPriority<iMinPriority)) {iMinPriority = iPriority; res=sVal;}
}
}
if (gbQualityLog) HmsLogMessage(1, mpTitle+': '+sQAval+'Выбрано: '+res);
if (LeftCopy(uid, 1)!='u') uid = 'u' + Trim(uid);
if (Trim(host)=='') HmsRegExMatch('ajax.preload.*?<img[^>]+src="(http://.*?/)', sHtml, host);
if (uid=='0') MediaResourceLink = host+'assets/videos/'+vtag+''+vkid+'.vk.flv';
else MediaResourceLink = host + uid+'/videos/'+vtag+'.'+res+'.mp4';
HmsRegExMatch(";url"+res+"=(.*?)&", sHtml, MediaResourceLink);
return true;
}
// --------------------------------------------------- Вход на сайт vk.com ----
bool LogInSiteVK() {
string sHtml, sData, sName, sVal, sPost, sServ, sRet; int nFlag;
bool success = true;
TRegExpr RE = TRegExpr.Create('<input[^>]+name="(.*?)"[^>]+value="(.*?)"', PCRE_SINGLELINE);
sHtml = HmsDownloadURL("https://vk.com", "Referer: "+gsHeaders, true);
sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml));
sPost = "";
if (HmsRegExMatch('<form[^>]+quick_login(.*?)</form>', sHtml, sData)) {
if (RE.Search(sData)) do {
sName = RE.Match(1);
sVal = RE.Match(2);
if ((sName=="email") || (sName=="pass")) continue;
sPost += Format("%s=%s&", [sName, sVal]);
} while (RE.SearchAgain());
sPost += Format("email=%s&pass=%s", [HmsHttpEncode(mpPodcastProxyUserName), HmsHttpEncode(mpPodcastProxyPassword)]);
nFlag = StrToInt('$80000000'); // INTERNET_FLAG_RELOAD;
sHtml = HmsSendRequestEx('login.vk.com', '/?act=login', 'POST', 'application/x-www-form-urlencoded; Charset=UTF-8', gsHeaders, sPost, 443, nFlag, sRet, true);
sHtml = sRet + Trim(sHtml);
success = HmsRegExMatch("onLoginDone", sHtml, '');
}
RE.Free();
if (!success) {
HmsLogMessage(2, "Неверно введён логин или пароль от vk.com в поля Использования прокси-сервера подкаста.");
}
return success;
}
// -------------------------------------------- Получение ссылки на vk.com ----
bool GetLink_VK(string sLink) {
string sHtml, sVal, host, uid, vkid, vtag, max_hd, no_flv, res, extra, cat;
string ResolutionList='0:240, 1:360, 2:480, 3:720', sQAval, sQSel, sID;
int i, iPriority=0, iMinPriority=99; int nFlag=0;
sHtml = HmsDownloadURL(sLink, 'Referer: '+sLink, true);
if ((sHtml=="") || !HmsRegExMatch('vtag["\':=\\s]+([0-9a-z]+)', sHtml, vtag)) {
LogInSiteVK();
if (HmsRegExMatch2("oid=(.*?)&.*?id=(.*?)&", sLink, sVal, sID))
sLink = "https://vk.com/video"+sVal+"_"+sID;
sHtml = HmsDownloadUrl(sLink, 'Referer: '+gsHeaders, true);
}
sHtml = ReplaceStr(sHtml, '\\', '');
host = ''; max_hd = '2';
sLink = '';
HmsRegExMatch('--quality=(\\d+)', mpPodcastParameters, sQSel);
if (sQSel!='') HmsRegExMatch('"url'+sQSel+'":"(.*?)"', sHtml, sLink);
if (sLink=='') HmsRegExMatch('"url720":"(.*?)"', sHtml, sLink);
if (sLink=='') HmsRegExMatch('"url480":"(.*?)"', sHtml, sLink);
if (sLink=='') HmsRegExMatch('"url360":"(.*?)"', sHtml, sLink);
if (sLink=='') HmsRegExMatch('"url240":"(.*?)"', sHtml, sLink);
if (sLink!='') {
MediaResourceLink = HmsJsonDecode(sLink);
return;
}
if (!HmsRegExMatch('vtag["\':=\\s]+([0-9a-z]+)', sHtml, vtag)) {
if (HmsRegExMatch('(<div[^>]+video_ext_msg.*?</div>)', sHtml, sLink) ||
HmsRegExMatch('<div style="position:absolute; top:50%; text-align:center; right:0pt; left:0pt;.*?>(.*?)</div>', sHtml, sLink)) {
HmsLogMessage(2, PodcastItem.ItemOrigin.ItemParent[mpiTitle]+': vk.com сообщает - '+HmsHtmlToText(sLink));
if (random > 0.5) MediaResourceLink = 'http://wonky.lostcut.net/vids/enotallow.avi';
else VideoMessage('', 'VK.COM СООБЩАЕТ:\n\n'+HmsHtmlToText(sLink));
} else {
HmsLogMessage(2, mpTitle+': не удалось обработать ссылку на vk.com');
MediaResourceLink = 'http://wonky.lostcut.net/vids/error_getlink.avi';
}
return true;
}
HmsRegExMatch('[^a-z]host[=:"\'\\s]+(.*?)["\'&;,]', sHtml, host );
HmsRegExMatch('[^a-z]uid[=:"\'\\s]+([0-9]+)' , sHtml, uid );
HmsRegExMatch('no_flv.*?(\\d)' , sHtml, no_flv);
HmsRegExMatch('(?>hd":"|hd=|video_max_hd.*?)(\\d)', sHtml, max_hd);
HmsRegExMatch('[^a-z]vkid[=:"\'\\s]+([0-9]+)' , sHtml, vkid );
HmsRegExMatch('extra=([\\w-]+)' , sHtml, extra );
HmsRegExMatch('/(\\d+)/u\\d+/' , sHtml, cat );
HmsRegExMatch(max_hd+':(\\d+)', ResolutionList, res );
sQAval = 'Доступное качество: '; sQSel = '';
// Если включен приоритет форматов, то ищем ссылку на более приоритетное качество
if (gbQualityLog || (mpPodcastMediaFormats!='')) for (i=StrToIntDef(max_hd, 3); i>=0; i--) {
HmsRegExMatch(IntToStr(i)+':(\\d+)', ResolutionList, sVal);
sQAval += sVal + ' ';
if (sQSel != '') {
if (StrToIntDef(res, 0)>StrToIntDef(sQSel, 0)) res = sVal;
} else if (mpPodcastMediaFormats != '') {
iPriority = HmsMediaFormatPriority(StrToIntDef(sVal, 0), mpPodcastMediaFormats);
if ((iPriority>=0)&&(iPriority<iMinPriority)) {iMinPriority = iPriority; res=sVal;}
}
}
if (gbQualityLog) HmsLogMessage(1, mpTitle+': '+sQAval+'Выбрано: '+res);
if (LeftCopy(uid, 1)!='u') uid = 'u' + Trim(uid);
if (Trim(host)=='') HmsRegExMatch('ajax.preload.*?<img[^>]+src="(http://.*?/)', sHtml, host);
if (uid=='0') MediaResourceLink = host+'assets/videos/'+vtag+''+vkid+'.vk.flv';
else MediaResourceLink = host + uid+'/videos/'+vtag+'.'+res+'.mp4';
if (Trim(extra)!='') MediaResourceLink += '?extra='+extra;
if (Trim(cat )!='') MediaResourceLink = ReplaceStr(MediaResourceLink, '/'+uid, '/'+cat+'/'+uid);
HmsRegExMatch(";url"+res+"=(.*?)&", sHtml, MediaResourceLink);
return true;
}
// ----------------------------------------- Получение ссылки на kodik.biz ----
bool GetLink_KodikBiz(char sLink) {
char sHtml, sVal, sOID, sVideoID, sHash, sQSel = '720'; Variant objScript;
sHtml = HmsRemoveLineBreaks(HmsDownloadUrl(sLink, 'Referer: '+mpFilePath, true));
if (!HmsRegExMatch('eval(\\(function\\(p,a,c,k,e,d\\).*?\\)\\))<', sHtml, sVal)) return false;
try {objScript = CreateOleObject('MSScriptControl.ScriptControl');} except {};
if (VarType(objScript) != varDispatch) return true;
objScript.Language = 'JavaScript';
sVal = objScript.Eval(sVal);
HmsRegExMatch('s1="(.*?)"', sVal, sOID );
HmsRegExMatch('s2="(.*?)"', sVal, sVideoID);
HmsRegExMatch('s3="(.*?)"', sVal, sHash );
sHtml = HmsDownloadUrl('http://api.vk.com/method/video.getEmbed?oid='+sOID+'&video_id='+sVideoID+'&embed_hash='+sHash+'&callback=responseWork', 'Referer: '+sLink, true);
sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(HmsJsonDecode(sHtml)));
HmsRegExMatch('--quality=(\\d+)', mpPodcastParameters, sQSel);
if (!HmsRegExMatch('url'+sQSel+'":"(.*?)"', sHtml, MediaResourceLink))
HmsRegExMatch('.*url\\d+":"(.*?)"' , sHtml, MediaResourceLink);
return true;
}
// ------------------------------------------- Получение ссылки на Youtube ----
bool GetLink_Youtube3(string sLink) {
string
sData, sVideoID='', sMaxHeight='', sAudio='',
sSubtitlesLanguage='ru', sSubtitlesUrl, sFile, sVal, sMsg;
TJsonObject JSON;
HmsRegExMatch('--maxheight=(\\d+)' , mpPodcastParameters, sMaxHeight);
HmsRegExMatch('--sublanguage=(\\w{2})', mpPodcastParameters, sSubtitlesLanguage);
bool bSubtitles = (Pos('--subtitles' , mpPodcastParameters)>0);
bool bAdaptive = (Pos('--adaptive' , mpPodcastParameters)>0);
bool bNotDE = (Pos('notde=1' , sLink)>0);
if (!HmsRegExMatch('[\\?&]v=([^&]+)' , sLink, sVideoID))
HmsRegExMatch('/(?:embed|v)/([^\\?]+)', sLink, sVideoID);
if (sVideoID=='') { VideoMessage('[Подкаст hdkinoteatr.ru]', 'Невозможно получить Video ID в ссылке Youtube'); return true; }
sLink = 'http://hms.lostcut.net/youtube/g.php?v='+sVideoID;
if (sMaxHeight!='' ) sLink += '&max_height='+sMaxHeight;
if (Trim(mpPodcastMediaFormats )!='') sLink += '&media_formats='+mpPodcastMediaFormats;
//if (Trim(goRoot[mpiAccessToken])!='') sLink += '&auth='+goRoot[mpiAccessToken];
if (bAdaptive ) sLink += '&adaptive=1';
if (bNotDE ) sLink += '¬de=1';
sData = HmsUtf8Decode(HmsDownloadUrl(sLink));
// if error - exists reason
if (HmsRegExMatch('"reason":"(.*?)"' , sData, sMsg)) { VideoMessage('[Подкаст hdkinoteatr.ru]', sMsg); return true; }
JSON = TJsonObject.Create();
try {
JSON.LoadFromString(sData);
MediaResourceLink = JSON.S['url' ];
sSubtitlesUrl = JSON.S['ttsUrl'];
sAudio = JSON.S['audio' ];
if (sAudio!='') MediaResourceLink = Format('-i "%s" -i "%s"', [MediaResourceLink, sAudio]);
} finally { JSON.Free(); }
if (Pos('m3u8', MediaResourceLink)>0) MediaResourceLink = ' '+Trim(MediaResourceLink);
// Если есть субтитры и в дополнительных параметрах еуказано их показывать - загружаем
if (bSubtitles && (sSubtitlesUrl!='')) {
sFile = HmsSubtitlesDirectory+'\\Youtube\\'+PodcastItem.ItemID+'.'+sSubtitlesLanguage+'.srt';
sLink = sSubtitlesUrl+'&format=srt&lang=';
if (!HmsDownloadURLToFile(sLink+sSubtitlesLanguage, sFile, 'Accept-Encoding: gzip, deflate')) {
HmsDownloadURLToFile(sLink+'en' , sFile, 'Accept-Encoding: gzip, deflate');
}
PodcastItem[mpiSubtitleLanguage] = sFile;
}
}
// ----------------------------------------------------------------------------
// Расшифровка данных myhit.ge (allinspace.com)
char DecrunchMyHitGeCode(char sData) {
int i, nIndx, nCharCode, n=1;
char sCh1, sCh2, sPart1, sPart2, sChars="", sArrayPositions = "", sResult = "";
char sKey1 = "76P5NC75";
char sKey2 = "hdF6icSAV1gK5QPNuqLwIko9ftXlGzDjsa2EYvn0W4bZry7RT3pO8eHxmJUBCM";
sPart1 = LeftCopy(sData, Length(sKey1));
sPart2 = Copy(sData, Length(sKey1)+1, Length(sData));
for (i=1; i<256; i++) sChars+=Chr(i);
for (i=1; i<=Length(sPart1); i++) sArrayPositions += IntToStr(Pos(Copy(sPart1, i, 1), sKey2))+"|";
for (i=1; i<=Length(sPart2); i+=2) {
sCh1 = Copy(sPart2, i, 1);
sCh2 = Copy(sPart2, i+1, 1);
nCharCode = (Pos(sCh1, sKey2)-1) * Length(sKey2) + (Pos(sCh2, sKey2)-1);
nIndx = StrToInt(ExtractWord(n, sArrayPositions, "|"));
nCharCode -= Pos(Copy(sKey1, nIndx, 1), sChars);
n++; if (n>Length(sKey1)) n=1;
sResult += Chr(nCharCode);
}
return sResult;
}
// ----------------------------------------------------------------------------
// Получение ссылки на видео с myhit.ge (allinspace.com)
char GetLink_MyHitGe(char sLink) {
char sHtml, sVideoId, sHeaders;
sHeaders = 'http://myhit.ge/\r\n';
sHeaders+= 'Accept-Encoding: gzip, deflate\r\n';
sHeaders+= 'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0\r\n';
sHeaders+= 'Connection: Keep-Alive\r\n';
sHeaders+= 'Accept: application/json, text/javascript, */*; q=0.01\r\n';
sHeaders+= 'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8\r\n';
sHtml = LoadUrl(sLink, 'GET', sHeaders);
if (HmsRegExMatch('flashvars="(vid=\\d+.*?)"', sHtml, sVideoId)) {
sLink = sVideoId+'&rnd='+FloatToStr(Random);
} else if (HmsRegExMatch('GetPlayer\\((\\d+)', sHtml, sVideoId)) {
sLink = 'vid='+sVideoId+'&vid_quality=1&run_domain=&rnd='+FloatToStr(Random);
} else if (HmsRegExMatch('StartSeries\\((\\d+)', sHtml, sVideoId)) {
sLink = 'vid='+sVideoId+'&vid_quality=1&run_domain=&jsf_name=StartSeries&rnd='+FloatToStr(Random);
} else {
MediaResourceLink = 'http://wonky.lostcut.net/vids/podcasterror_hd.mp4';
HmsLogMessage(2, mpTitle+': Неудалось найти код видео по ссылке.');
return;
}
sHtml = LoadUrl('http://myhit.ge/get_movie_params1.php?'+sLink, 'GET', sHeaders);
if (!HmsRegExMatch('<path>(.*?)</path>', sHtml, sLink)) {
MediaResourceLink = '';
HmsLogMessage(2, mpTitle+': Неудалось найти ссылку на видео в ответе сервера.');
MediaResourceLink = 'http://wonky.lostcut.net/vids/podcasterror_hd.mp4';
return;
}
MediaResourceLink = DecrunchMyHitGeCode(sLink);
if (!HmsRegExMatch('http://', MediaResourceLink, '')) {
HmsLogMessage(2, mpTitle+': невозможно расшифровать ссылку на видео. :/');
MediaResourceLink = 'http://wonky.lostcut.net/vids/error.avi';
return;
}
}
// ----------------------------------------------------------------------------
// String.fromCharCode
char fromCharCode(char sData) {
char sVal, s = ''; int i, iCount;
iCount = WordCount(sData, ',');
for (i=1; i<=iCount; i++) s += '\\u'+RightCopy(Format('0000%x', [StrToIntDef(ExtractWord(i, sData, ','), 32)]), 4);
sVal = HmsJsonDecode(s);
return sVal;
}
// ----------------------------------------------------------------------------
THmsScriptMediaItem ErrorItem(string sMsg) {
TStrings INFO = TStringList.Create(); // Создаём объект TStrings для информации
INFO.Values['Poster'] = 'http://news.bbcimg.co.uk/media/images/77808000/jpg/_77808957_81l12shy.jpg';
INFO.Values['Title' ] = '<c:#d33>ОШИБКА! <c:#e22>ОШИБКА! <c:#f11>ОШИБКА!';
INFO.Values['Info' ] = '';
INFO.Values['Descr' ] = '<s:'+IntToStr(Round(cfgTranscodingScreenHeight/13))+'>'+sMsg;
THmsScriptMediaItem Item = HmsCreateMediaItem('InfoError'+IntToStr(gnTotalItems), PodcastItem.ItemID);
Item[mpiTitle ] = sMsg;
Item[1001001 ] = INFO.Text;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/symbol-error.png';
Item[mpiTimeLength] = '00:00:10.000';
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
gnTotalItems++;
INFO.Free();
return Item;
}
// ------------------------------------------ Формирование видео сообщения ----
void ShowVideoMessage(string sMsg, string sTitle='', int nErr=0, string sDescr='') {
if (nErr==1) sMsg = '<c:#e22>'+Trim(sMsg);
TStrings INFO = TStringList.Create();
INFO.Values['Title' ] = sTitle;
INFO.Values['Info' ] = sMsg;
INFO.Values['Descr' ] = sDescr;
PodcastItem[1001001] = INFO.Text;
INFO.Free();
VideoPreview();
}
///////////////////////////////////////////////////////////////////////////////
// Формирование видео с картинкой с информацией о фильме
bool VideoPreview() {
string sVal, sFileImage, sPoster, sTitle, sDescr, sCateg, sInfo, sLink, sData;
int xMargin=7, yMargin=10, nSeconds=10, n;
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']);
}
///////////////////////////////////////////////////////////////////////////////
// Вывод вместо видео заданного сообщения
bool VideoMessage(char sCaption, char sMessage, int nTime=30) {
char sFileImage = HmsTempDirectory+'\\videomessage.jpg'; char sCmd;
sCaption = HmsHttpEncode(ReplaceStr(sCaption, '\n', '|'));
sMessage = HmsHttpEncode(ReplaceStr(sMessage, '\n', '|'));
HmsDownloadURLToFile('http://wonky.lostcut.net/videomessage.php?testpic=1&caption='+sCaption+'&msg='+sMessage, sFileImage);
char sFileMP3 = HmsTempDirectory+'\\silent.mp3';
try {
if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3);
sFileMP3 = '-i "'+sFileMP3+'"';
} except {
sFileMP3 = '';
}
sCmd = Format('%s -loop 1 -f image2 -i "%s" -t %d -r 25 ', [ExtractShortPathName(sFileMP3), ExtractShortPathName(sFileImage), 7]);
MediaResourceLink = sCmd;
}
///////////////////////////////////////////////////////////////////////////////
void SetCookies(char sHeaders='') {
char sCookies='', sName, sVal; TRegExpr re;
re = TRegExpr.Create('(?:Set-cookie|Cookie):(.*?)=(.*?)(?:;|\n|$)', PCRE_SINGLELINE);
if (re.Search(sHeaders)) do {
sName = Trim(re.Match(1));
sVal = Trim(re.Match(2));
if ((sVal=='') || (sName=='')) continue;
COOKIES.Values[sName] = sVal;
} while (re.SearchAgain());
re.Free();
}
///////////////////////////////////////////////////////////////////////////////
char GetCookies() {
int i; char sNam, sVal, sCookies='';
for (i=0; i<COOKIES.Count; i++) {
sNam = COOKIES.Names(i); if (Trim(sNam)=='') continue;
sVal = COOKIES.Values[sNam]; if (Trim(sVal)=='') continue;
sCookies += Format('%s=%s; ', [sNam, sVal]);
}
sCookies = 'Cookie: '+Trim(sCookies)+'\r\n';
return sCookies;
}
///////////////////////////////////////////////////////////////////////////////
string LoadUrl(char sLink, char sMethod='GET', char sHeaders='', bool NoCache=false, bool NoRdrct=false) {
int INTERNET_FLAG_NO_AUTO_REDIRECT = 0x00200000;
string sHtml, sUrlServer, sRequestPage='/', sPostData='', sAnsw=''; int iFlags = 0, nPort=80;
if (LeftCopy(sLink, 5)=='https') nPort = 443;
if (!HmsRegExMatch('//(.*)', sLink, sUrlServer)) return '';
HmsRegExMatch2('^(.*?)(/.*)', sUrlServer, sUrlServer, sRequestPage);
if (sMethod=='POST') {
HmsRegExMatch('^.*?\\?(.*)', sRequestPage, sPostData );
HmsRegExMatch('^(.*?)\\?' , sRequestPage, sRequestPage);
}
if (HmsRegExMatch('--nocache', mpPodcastParameters, '')) NoCache = true;
if (sHeaders=='') sHeaders = gsHeaders; if (NoCache) iFlags = StrToInt('$80000000');
sHeaders += GetCookies(); iFlags = (iFlags || INTERNET_FLAG_NO_AUTO_REDIRECT);
sHtml = HmsSendRequestEx(sUrlServer, sRequestPage, sMethod, 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, sPostData, nPort, iFlags, sAnsw, true);
if (IsWine || gbIE6Fix) sHtml = HmsDecompressString(sHtml); // Для Linux Wine и ie6
SetCookies(sAnsw);
if (!NoRdrct && HmsRegExMatch('Location: (.*?)[\r\n]', sAnsw, sLink)) {
if (LeftCopy(sLink, 2)=='//') sLink = 'http:' + Trim(sLink);
if (LeftCopy(sLink, 1)=='/' ) sLink = 'http://' + sUrlServer + Trim(sLink);
sHtml = LoadUrl(sLink);
}
sHtml = HmsUtf8Decode(sHtml);
return sHtml;
}
///////////////////////////////////////////////////////////////////////////////
// Получить длительность в формате HMS.
char GetTimeLength(char sDura) {
int nH, nM, nS, nSecs, nMins; char sH, sM, sS;
if (Pos(':', sDura)>0) {
// Если там есть двоеточие, то думаем что там минуты:секунды или даже ещё и часы
sDura=HmsHtmlToText(sDura);
if (WordCount(sDura, ':')==3) {
HmsRegExMatch('(\\d*:\\d*:\\d\\d?)', sDura, sDura); // Убираем левые символы (не цифры). Бывает такое.
nH = StrToIntDef(ExtractWord(1, sDura, ':'), 0);
nM = StrToIntDef(ExtractWord(2, sDura, ':'), 0);
nS = StrToIntDef(ExtractWord(3, sDura, ':'), 0);
} else if (WordCount(sDura, ':')==2) {
HmsRegExMatch('(\\d*:\\d\\d?)', sDura, sDura);
nM = StrToIntDef(ExtractWord(1, sDura, ':'), 0);
nS = StrToIntDef(ExtractWord(2, sDura, ':'), 0);
nH = Trunc(nM/60);
nM = nM-(nH*60);
} else return sDura;
} else if ((Pos('мин', sDura)>0)||(Pos('min', sDura)>0)) {
HmsRegExMatch('([\\d]+)', sDura, sDura);
nMins = StrToIntDef(sDura, 0);
nH = Trunc(nMins/60);
nM = nMins-(nH*60);
nS = 0;
} else if (HmsRegExMatch2('(\\d+)m(\\d+)s', sDura, sM, sS)) {
nM = StrToIntDef(sM, 0);
nS = StrToIntDef(sS, 0);
nH = Trunc(nM/60);
nM = nM-(nH*60);
} else {
// Иначе будем думать, что в переданном параметре - количество секунд.
HmsRegExMatch('([\\d]+)', sDura, sDura); // Убираем левые символы (не цифры)
nSecs = StrToIntDef(sDura, 0);
nH = Trunc(nSecs/60/60);
nM = Trunc(nSecs/60)-(nH*60);
nS = nSecs-(nM*60)-(nH*60*60);
}
return format("%.2d:%.2d:%.2d.000", [nH, nM, nS]);
}
///////////////////////////////////////////////////////////////////////////////
// Расстановка правильно цифр в ссылке hdkinoteatr
char DecrunchHDserialsLink(char sHtml, char sLink) {
char sValue, s1, s2, sRe1='', sRe2=''; TRegExpr RE; int i, n;
HmsRegExMatch2('code.search\\(/\\^oid=.*?code.replace\\(/(.*?)/g,\'(.*?)\'', sHtml, sRe1, s1);
HmsRegExMatch2( 'code.search\\(/\\^oid=.*?\\).replace\\(/(.*?)/g,\'(.*?)\'', sHtml, sRe2, s2);
if (sRe1!='') {
RE = TRegExpr.Create('^(.*?)'+sRe1+'(.*)$', PCRE_SINGLELINE);
n = Int((Length(s1)/2))+2; s1 = '$0'+s1+'$'+IntToStr(n-1);
sValue = '';
if (RE.Search(sLink)) for (i=1; i<=n; i++) {
sValue += RE.Match(StrToIntDef(Copy(s1, i*2, 1), 0)+1);
}
sLink = sValue;
}
if (sRe2!='') {
RE = TRegExpr.Create('^(.*?)'+sRe2+'(.*)$', PCRE_SINGLELINE);
n = Int((Length(s2)/2))+2; s2 = '$0'+s2+'$'+IntToStr(n-1);
sValue = '';
if (RE.Search(sLink)) for (i=1; i<=n; i++) {
sValue += RE.Match(StrToIntDef(Copy(s2, i*2, 1), 0)+1);
}
sLink = sValue;
}
return 'http://vk.com/video_ext.php?'+sLink+'&rnd=1';
}
///////////////////////////////////////////////////////////////////////////////
// Проверка переданных параметров в поле "Комментарий" подкаста
void CheckParameters() {
char sValue;
gbIE6Fix = (Pos('--winxpfix', mpPodcastParameters)>0);
if (Pos('--log', mpPodcastParameters)>0) LOG = 1;
if (Pos('--qualitylog', mpPodcastParameters)>0) gbQualityLog = true;
}
///////////////////////////////////////////////////////////////////////////////
// Парсер JSON строки в дерево объектов и значений TStrings. Proudly presents by WendyH.
TStrings JSON2Tree(char sJSON) {
Variant CUROBJ; int i, n; char s, sKey, sValue; bool bIsPair = false, bSt=true;
TStrings TREE = TStringList.Create(), ObjList = TStringList.Create();
CUROBJ = TREE;
for (n=1; n<Length(sJSON); n++) {
s = Copy(sJSON, n, 1);
if (!bIsPair) sKey = IntToStr(CUROBJ.Count);
if (s == ' ') { continue;
} else if ((s == ']') || (s == '}')) { // return to parent object
i = ObjList.Count-1; if (i<0) continue;
CUROBJ = ObjList.Objects(i);
ObjList.Delete(i);
} else if ((s == '[') || (s == '{')) { // Object (Array)
ObjList.AddObject(IntToStr(ObjList.Count), CUROBJ);
if (bSt) {bSt=false; continue;}
i = CUROBJ.AddObject(sKey, TStringList.Create());
CUROBJ = CUROBJ.Objects[i];
} else if (s == '"') { // String
bIsPair = HmsRegExMatch2('^("([^"]*?)"\\s*?:)', Copy(sJSON, n, 10000), sValue, sKey, PCRE_DOTALL);
if (bIsPair) { n += Length(sValue)-1; continue; }
if (HmsRegExMatch('^"(.*?)"', Copy(sJSON, n, 10000), sValue, 1, PCRE_DOTALL)) {
CUROBJ.Values[sKey] = sValue;
n += Length(sValue) + 1;
}
} else if ((s == '-') || ((s >= '0') && (s <= '9'))) { // Number
if (HmsRegExMatch('^([-\\d\\.e]+)', Copy(sJSON, n, 10000), sValue)) {
CUROBJ.Values[sKey] = sValue; n += Length(sValue);
}
} else if (s == '/') { // Comment?
if (HmsRegExMatch('^(/\\*.*?\\*/)', Copy(sJSON, n, 10000), sValue, 1, PCRE_DOTALL)) n += Length(sValue);
} else if (HmsRegExMatch('^((?:true|false|null))', Copy(sJSON, n, 5), sValue, 1, PCRE_DOTALL)) {
CUROBJ.Values[sKey] = sValue; n += Length(sValue);
} else continue;
bIsPair = false;
}
ObjList.Free();
return TREE;
}
///////////////////////////////////////////////////////////////////////////////
// Обработка названия
char NormalizeTitle(char sTitle, char sYear='', char sParentTitle='', char sParentParentTitle='') {
char sValue1, sValue2, sValue3=''; bool bDontAddYear=false, bDontShort=false;
sTitle = HmsHtmlToText(sTitle);
if (HmsRegExMatch('(?:[Сс]ерия|[Сс]езон|[Вв]ыпуск)', sTitle, sValue1)) {
bDontAddYear = true;
// bDontShort = true;
HmsRegExMatch('^(.*?)[-/|\\(]', sTitle, sValue1);
if (Pos(sValue1, sParentTitle+sParentParentTitle)>0) {
HmsRegExMatch('([Сс]ерия\\s+\\d+)', sTitle, sTitle);
HmsRegExMatch('(\\s+\\d+[Сс]ерия)', sTitle, sTitle);
HmsRegExMatch('([Вв]ыпуск\\s+\\d+)', sTitle, sTitle);
HmsRegExMatch('(\\s+\\d+[Вв]ыпуск)', sTitle, sTitle);
HmsRegExMatch('(\\d+\\s+[Сс]езон)', sTitle, sTitle);
HmsRegExMatch('([Сс]езон\\d+\\s+)', sTitle, sTitle);
}
}
if (HmsRegExMatch('\\|(.*)', sTitle, sValue2)) {
HmsRegExMatch('^(.*?)[-|\\(]', sTitle, sValue1);
sTitle = sValue1 + ' ' + sValue2;
}
if (REMSERIEWORD==1) if (HmsRegExMatch ('([Сс]ерия\\s)', sTitle, sValue1)) sTitle = ReplaceStr(sTitle, sValue1+' ', '');
if (HmsRegExMatch2('^(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format(gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
else if (HmsRegExMatch2('^[Сс]ерия\\s+(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format('Серия '+gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
else if (HmsRegExMatch2('^[Сс]ерия\\s+(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format('Серия '+gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
else if (HmsRegExMatch2('^[Сс]езон\\s+(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format('Сезон '+gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
else if (HmsRegExMatch2('^[Вв]ыпуск\\s+(\\d+)(.*)', sTitle, sValue1, sValue2)) sTitle = Format('Выпуск '+gsFrmtSeries+' %s', [StrToInt(sValue1), sValue2]);
if (UPPER==1) sTitle = Uppercase(sTitle);
// Если есть указание добавлять год к названию фильма, то проверяем есть этот год и не есть ли он уже там
if ((YEARINTITLE==1) && !bDontAddYear) if ((sYear!='') && (Pos(sYear, sTitle)<1)) sTitle += ' ('+sYear+')';
sTitle = ReplaceStr(sTitle, '/', '-');
return sTitle;
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок рекурсивно из дерева TStrings
void RecursiveCreateLinks(char &sHtml, Variant Node, Variant ItemPrnt, Variant ADDINFO=null) {
int n, nParamId; Variant Object; THmsScriptMediaItem Item = ItemPrnt; char sLink, sTitle, sTime, sParam, sValue;
bool bHaveChilds = false; char sSeasonNum, sSerNum;
sTitle = Node.Values["comment"];
sLink = Node.Values["file"];
sTime = Node.Values["time"];
if (sTime=='') sTime = ADDINFO.Values['Time'];
if (sTime=='') sTime = '6000';
sTitle = NormalizeTitle(sTitle);
for (n=0; n<Node.Count; n++) if (Node.Objects(n)!=nil) bHaveChilds=true;
if ((sTitle!='') && (sLink!='') || (bHaveChilds && (sTitle!=''))) {
if (LeftCopy(sLink, 4)=='oid=') sLink = DecrunchHDserialsLink(sHtml, sLink);
// Создаём элемент подкаста - ссылку и устанавливаем ему значения
if (bHaveChilds || HmsRegExMatch('/serial/.*?/iframe', sLink, '')) {
Item = ItemPrnt.AddFolder(sLink);
} else {
Item = HmsCreateMediaItem(sLink, ItemPrnt.ItemID);
if (!HmsRegExMatch('[Сс]езон\\s*?(\\d+)', ItemPrnt[mpiTitle], sSeasonNum))
HmsRegExMatch('(\\d+)\\s*?[Сс]езон', ItemPrnt[mpiTitle], sSeasonNum);
if (!HmsRegExMatch('^(\\d+)', sTitle, sSerNum)) sSerNum = '';
Item[mpiSeriesEpisodeNo] = sSerNum;
Item[mpiSeriesSeasonNo] = sSeasonNum;
Item[mpiSeriesEpisodeTitle] = sTitle;
if (Trim(sSeasonNum)!='') Item[mpiSeriesTitle] = mpTitle;
}
Item[mpiTitle] = sTitle; // Название
Item[mpiTimeLength] = sTime; // Длительность
Item[mpiThumbnail] = ItemPrnt[mpiThumbnail]; // Картинка
Item[mpiYear] = ItemPrnt[mpiYear]; // Год
Item[mpiGenre] = ItemPrnt[mpiGenre]; // Жанр
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); gnTotalItems++;
Item[mpiFolderSortOrder] = -mpiCreateDate;
}
if (bHaveChilds) for (n=0; n<Node.Count; n++) {
Object = Node.Objects(n);
if (Object != nil) RecursiveCreateLinks(sHtml, Object, Item, ADDINFO);
}
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок на сезоны/серии/фильм
void CreateLinks() {
char sHtml, sVal, sVal2, sItemBlock, sLink, sTitle, sTime, sDescr, sAuth, sImg, sGenre, sYear, sData, sID;
THmsScriptMediaItem Item; int i, n; Variant Object; TStrings LINK, ADDINFO;
if (LeftCopy(mpFilePath, 5)!='http:') return;
PodcastItem.DeleteChildItems(); // Удаляем старый список ссылок
sHtml = HmsRemoveLinebreaks(LoadUrl(mpFilePath));
if (sHtml=='') {
ErrorItem('Невозможно получить страницу фильма. (Сайт доступен?)');
return;
}
// Если не установлена картинка, пытаемся получить её
if (mpThumbnail=='') {
if (HmsRegExMatch('<div[^>]+maincont.*?<img[^>]+src="(.*?)"', sHtml, mpThumbnail)) {
mpThumbnail = HmsExpandLink(mpThumbnail, gsUrlBase);
PodcastItem[mpiThumbnail] = mpThumbnail;
}
}
ADDINFO = TstringList.Create();
if (HmsRegExMatch('id="video_length">(.*?)</div>', sHtml, sVal)) ADDINFO.Values['Time' ] = GetTimeLength(sVal);
if (HmsRegExMatch('class="lbl">Год.*?(\\d{4})' , sHtml, sVal)) ADDINFO.Values['Year' ] = HmsHtmlToText(sVal);
if (HmsRegExMatch('class="lbl">Режиссёр.*?(<a.*?)</div>', sHtml, sVal)) ADDINFO.Values['Director'] = HmsHtmlToText(sVal);
if (HmsRegExMatch('class="lbl">В ролях.*?(<a.*?)</div>', sHtml, sVal)) ADDINFO.Values['Actors' ] = HmsHtmlToText(sVal);
if (HmsRegExMatch('class="lbl">Продюсер.*?(<a.*?)</div>', sHtml, sVal)) ADDINFO.Values['Producer'] = HmsHtmlToText(sVal);
if (HmsRegExMatch('class="lbl">Композитор.*?(<a.*?)</div>', sHtml, sVal)) ADDINFO.Values['Composer'] = HmsHtmlToText(sVal);
if (HmsRegExMatch('class="lbl">Страна.*?(<a.*?)</div>' , sHtml, sVal)) ADDINFO.Values['Country' ] = HmsHtmlToText(sVal);
if (HmsRegExMatch('class="lbl">Рейтинг.*?>(.*?)</div>' , sHtml, sVal)) ADDINFO.Values['Rating' ] = ReplaceStr(ReplaceStr(ReplaceStr(HmsHtmlToText(sVal), chr(160), ''), 'votes:', ''), ' ', ' '); if (HmsRegExMatch('class="lbl">Перевод.*?>(.*?)</div>' , sHtml, sVal)) ADDINFO.Values['Translate']= HmsHtmlToText(sVal);
if (HmsRegExMatch('class="lbl">Сценарий.*?(<a.*?)</div>' , sHtml, sVal)) ADDINFO.Values['Author' ] = HmsHtmlToText(sVal);
if (HmsRegExMatch('>Категория:.*?(<a.*?)(</div>|</p>)' , sHtml, sVal)) ADDINFO.Values['Genre' ] = HmsHtmlToText(sVal);
if (HmsRegExMatch('class="maincont".*?<img[^>]+src=[\'"](.*?)[\'"]', sHtml, sVal)) ADDINFO.Values['Poster'] = 'http://www.hdkinoteatr.ru'+sVal;
if (HmsRegExMatch('class="descr">(.*?)</div>', sHtml, sVal)) ADDINFO.Values['Descr'] = HmsHtmlToText(sVal);
if (ADDINFO.Values['Poster']=='') ADDINFO.Values['Poster'] = mpThumbnail;
if (ADDINFO.Values['Title' ]=='') ADDINFO.Values['Title' ] = mpTitle;
if (HmsRegExMatch('/series/', mpFilePath, '') && HmsRegExMatch2('/getMoonList.php.*?id:(\\d+),id2:(\\d+)', sHtml, sVal, sVal2)) {
sData = HmsDownloadURL(gsUrlBase+'/getMoonList.php?id='+sVal+'&id2='+sVal2, 'Referer: '+gsHeaders, true);
}
if (Trim(sData)!='') {
HmsRegExMatch('{"videos":(.*)}', sData, sData);
CreateSeriesFromPlaylist(PodcastItem, sData);
} else {
if (HmsRegExMatch('vkArr\\s*?=\\s*?(\\[.*?\\])\\s*?;', sHtml, sVal, 1, PCRE_DOTALL)) {
TStrings Playlists = JSON2Tree(sVal);
RecursiveCreateLinks(sHtml, Playlists, PodcastItem, ADDINFO);
//HmsLogMessage(2, mpTitle+Format(': Найдено %d видео.', [gnItemsAdded]));
} else if (HmsRegExMatch("vkArr\\s*?=\\s*?'(.*?)'", sHtml, sLink, 1, PCRE_DOTALL)) {
if (HmsRegExMatch('/serial/.*?/iframe', sLink, '')) {
HmsRegExMatch('AddComplaint.*?(\\d+)', sHtml, sID);
HmsRegExMatch('news-id-(\\d+)' , sHtml, sID);
mpFilePath = sLink;
GetMoonSeason(sID);
} else {
LINK = TStringList.Create();
LINK.Values["file" ] = sLink;
LINK.Values["comment"] = mpTitle;
LINK.Values["time" ] = ADDINFO.Values['Time'];
if (HmsRegExMatch('class="trailer"', sHtml, sVal)) LINK.Values["comment"] = '(Трейлер) '+Trim(LINK.Values["comment"]);
RecursiveCreateLinks(sHtml, LINK, PodcastItem, ADDINFO);
}
} else if (HmsRegExMatch('makePlayer\\(["\'](.*?)["\']\\)', sHtml, sLink)) {
LINK = TStringList.Create();
LINK.Values["file" ] = sLink;
LINK.Values["comment"] = mpTitle;
LINK.Values["time" ] = ADDINFO.Values['Time'];
if (HmsRegExMatch('class="trailer"', sHtml, sVal)) LINK.Values["comment"] = '(Трейлер) '+Trim(LINK.Values["comment"]);
RecursiveCreateLinks(sHtml, LINK, PodcastItem, ADDINFO);
} else {
HmsLogMessage(2, mpTitle+': Не могу найти makePlayer на странице по сслыке.');
MediaResourceLink = 'http://wonky.lostcut.net/vids/podcasterror_hd.mp4';
}
}
if (Trim(PodcastItem[mpiFolderSortOrder])=='') PodcastItem[mpiFolderSortOrder] = -mpiCreateDate;
if (HmsRegExMatch('--vinfo', mpPodcastParameters, sVal)) {
if (Pos('--videoinfoitems', mpPodcastParameters)>0) AddVideoInfoItems(ADDINFO);
else CreateVideoInfoItem('Информация о видео', ADDINFO);
}
ADDINFO.Free(); LINK.Free();
}
///////////////////////////////////////////////////////////////////////////////
// Выполнение команд настроек
void SettingOFF(char &gsParams, char gsSetName) {
char s;
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s' , gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
///////////////////////////////////////////////////////////////////////////////
// Выполнение команд настроек
bool SettingsCmd(char sLink) {
char s='', gsSetName='', sValue, gsParams; int i;
Variant ROOTPODCAST, Folder = PodcastItem.ItemOrigin, Item, aItemInfo;
if (!HmsRegExMatch('ROOTITEM="(.*?)"', mpFilePath, sValue)) return;
ROOTPODCAST = HmsFindMediaFolder(sValue);
gsParams = ROOTPODCAST[mpiPodcastParameters];
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', Folder[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=([^\\s]+)', Folder[mpiFilePath], sValue)) {
SettingOFF(gsParams, gsSetName);
gsParams += ' '+gsSetName+"="+sValue;
MediaResourceLink = 'http://wonky.lostcut.net/vids/isset_hd.avi';
} else if (HmsRegExMatch('-SetParam', Folder[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
MediaResourceLink = 'http://wonky.lostcut.net/vids/isset_hd.avi';
} else if (HmsRegExMatch('-OffParam', Folder[mpiFilePath], sValue)) {
SettingOFF(gsParams, gsSetName);
MediaResourceLink = 'http://wonky.lostcut.net/vids/isoff_hd.avi';
}
ROOTPODCAST[mpiPodcastParameters] = gsParams;
}
///////////////////////////////////////////////////////////////////////////////
// Проверка ссылки на известные нам команды (установка параметров)
bool CheckLink4Cmd(char sLink) {
if (LeftCopy(sLink, 13)=='-VideoPreview') {
VideoPreview();
} else if (HmsRegExMatch('-(?:Set|Off)Param', sLink, '')) {
SettingsCmd(sLink);
} else if (LeftCopy(sLink, 1)=='-') {
// Хоть и неизвестная, но команда
MediaResourceLink = ProgramPath()+'\\Presentation\\Images\\videook.mp4';
} else return false;
return true;
}
///////////////////////////////////////////////////////////////////////////////
// Получение ссылки на медиа-поток для конкретного эпизода
bool GetLink_MoonSerie() {
string sLink = HmsExpandLink(mpFilePath, gsUrlBase);
string sData = HmsDownloadURL(sLink, 'Referer: '+gsHeaders, true);
GetLink_Moonwalk(sData);
}
///////////////////////////////////////////////////////////////////////////////
// Проверка ссылки на известные нам ресурсы видео
bool CheckKnownLinks(char sLink) {
string sVal;
if (Pos('vk.com', sLink)>0) {
return GetLink_VK(sLink);
} else if (HmsRegExMatch('getMoonSerie.php', sLink, '')) {
return GetLink_MoonSerie();
} else if (HmsFileMediaType(sLink)==mtVideo) {
MediaResourceLink = sLink;
return true;
} else if (HmsRegExMatch('kodik.biz/video', sLink, sVal)) {
return GetLink_KodikBiz(sLink);
} else if (HmsRegExMatch('(?=myhit.ge|allinspace.com)', sLink, sVal)) {
GetLink_MyHitGe(sLink);
} else if (HmsRegExMatch('/(serial|video)/(.*?)/iframe', sLink, sVal)) {
GetLink_Moonwalk(sLink);
if (Pos('--replacemoon', mpPodcastParameters)>0)
MediaResourceLink = ReplaceStr(MediaResourceLink, 'moon.hdkinoteatr.com', 'moonwalk.cc');
return true;
} else if (HmsRegExMatch('video\.rutube\.ru', sLink, sVal)) {
// HmsRegExMatch('^.*?(http:[^"]+).*?$', sLink, sLink);
// return GetLink_RuTube(sLink);
HmsLogMessage(2, mpTitle+': Всё-таки она существует, ссылка на RUTUBE видео!! Обратитесь к разработчику подкаста.');
MediaResourceLink = 'http://wonky.lostcut.net/vids/error.avi';
return true;
} else if (HmsRegExMatch('youtube\.com/', sLink, sVal)) {
return GetLink_YouTube3(sLink);
}
return false;
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок на серии
void GetMoonSeason(string sID='') {
string sData;
if (Trim(sID)=='') {
sData = HmsDownloadURL(mpFilePath, 'Referer: '+gsHeaders);
HmsRegExMatch('AddComplaint.*?(\\d+)', sData, sID);
HmsRegExMatch('news-id-(\\d+)' , sData, sID);
}
sData = HmsDownloadURL(gsUrlBase+'/getMoonSeason.php?id='+sID+'&url='+HmsHttpEncode(mpFilePath)+'&btn=&lvl=0', 'Referer: '+gsHeaders);
HmsRegExMatch('{"videos":(.*)}', sData, sData);
CreateSeriesFromPlaylist(PodcastItem, sData);
}
///////////////////////////////////////////////////////////////////////////////
// Main program //
// ----------------------------------------------------------------------------
{
CheckParameters(); // Проверка доп. параметров и установка согласно им глобальных переменных
if (CheckLink4Cmd (mpFilePath)) return;
if (PodcastItem.IsFolder) {
if (HmsRegExMatch('/serial/.*?/iframe', mpFilePath, ''))
GetMoonSeason();
else
CreateLinks();
return;
}
if (CheckKnownLinks(mpFilePath)) return;
if (MediaResourceLink == '') {
HmsLogMessage(2, mpTitle+': Не удалось получить ссылку на видео.');
MediaResourceLink = 'http://wonky.lostcut.net/vids/error_getlink.avi';
}
}
551
C++Script
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
215
4
-1
-1
-1
-1
-1
-1
35
41297,9416666667
3
01:40:00.000
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
245
6cd3a1881211e40da08349eda280a03b
527
--qualitylog --group=year --vinfo=0 --videoinfoitems --collect --yearintitle --pages=20
100602
1490788538
100601
2488824e605e3ce420996926ef23ecf2
-
53
4f1d5e298cbff80eaa173546708f9dea
http://www.hdkinoteatr.com/fantasy/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Фэнтези
35
42432,8743518519
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
215
-4
525
42823,6220901273
-
53
e85251ea00e77786647a0577c9cbd089
http://www.hdkinoteatr.com/sci-fi/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Фантастика
35
42432,8750462963
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
215
-4
525
42784,6765113426
-
53
44f96552974503e5d22a987a622d8c35
http://www.hdkinoteatr.com/horror/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Ужасы
35
42432,8757407407
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
8ee2043d0e1aea3b8b6e5eb006ab7628
http://www.hdkinoteatr.com/thriller/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Триллеры
35
42432,8764351852
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
25afabd92d6b88dcb37c627fa1f55292
http://www.hdkinoteatr.com/tv/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
ТВ-Передачи
527
--group=none
215
-35
35
42432,8771296296
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
6670220cf37c6a70def985b91fad12db
http://www.hdkinoteatr.com/sport/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Спорт
35
42432,8778240741
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
215
-4
525
42800,9267860417
-
53
a98aa143364fba1caa76921142c39186
http://www.hdkinoteatr.com/series/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Сериалы
527
--group=alph
215
4
35
42432,8785185185
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
525
42809,8835620602
-
53
8369b71744e902e4726153586da78dda
http://www.hdkinoteatr.com/family/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Семейные
35
42432,879212963
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
215
-4
525
42571,8359360417
-
53
7e53bfa4abf08c9aafe11c8b5d9f497c
http://www.hdkinoteatr.com/adventure/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Приключения
35
42432,8799074074
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
14e0770edbd2787bcd98150fcef7f3aa
http://www.hdkinoteatr.com/russian/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Отечественные
35
42432,8806018519
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
e7d0adf2dfdc57c8fa2f8cf3ff01a8ed
http://www.hdkinoteatr.com/musical/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Мюзиклы
35
42432,8812962963
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
8e24647d491635c43ef0b11f1a85d8b3
http://www.hdkinoteatr.com/animation/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Мультфильмы
35
42432,8819907407
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
215
-4
525
42750,679707581
-
53
5de9d39b49f3bba4a13c0ac1ddaf05f2
http://www.hdkinoteatr.com/music/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Музыкальные
35
42432,8826851852
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
1f7e1ca0aa57dcaf4bb8a3a1b92e5f6a
http://www.hdkinoteatr.com/mystery/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Мистика
35
42432,8833796296
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
b4bfdea67121e5cb88b30d8995deb6ef
http://www.hdkinoteatr.com/romance/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Мелодрамы
35
42432,8840740741
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
e924e4669ad39bbf7de8ce8685c1dee3
http://www.hdkinoteatr.com/crime/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Криминалы
35
42432,8847685185
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
ed5fc0eddc7a3cbb56fea8583a2cf117
http://www.hdkinoteatr.com/short/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Короткометражные
35
42432,885462963
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
ef9ccd25ec0f1ee79803ea694f5b8480
http://www.hdkinoteatr.com/concert/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Концерты
35
42432,8861574074
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
0077505b135beeb8eca9bc0e2c68c3e5
http://www.hdkinoteatr.com/comedy/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Комедии
35
42432,8868518519
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
215
-4
525
42756,9848634375
-
53
63198b81d0c7f54de0af128b6979544b
http://www.hdkinoteatr.com/history/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Исторические
35
42432,8875462963
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
0fcc56f58d7d50d94c85593192cafaf2
http://www.hdkinoteatr.com/drama/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Драмы
35
42432,8882407407
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
780572e9fa7e5b83f856c3c84a42a8a0
http://www.hdkinoteatr.com/documentary/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Документальные
35
42432,8889351852
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
ac9ea15ad1ec46ebeaa8f37c0c4ad7d2
http://www.hdkinoteatr.com/childrens/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Детские
35
42432,8896296296
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
5c625d2a370e1ae4a9f015f45459d841
http://www.hdkinoteatr.com/detective/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Детективы
35
42432,8903240741
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
215
-4
525
42761,0066942824
-
53
dbc156b87ff6b3a350206e15f77881e1
http://www.hdkinoteatr.com/war/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Военные
35
42432,8910185185
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
edc617e217d3dac50a866aeeb39ad82b
http://www.hdkinoteatr.com/western/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Вестерны
35
42432,891712963
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
7ecfd8091fc99e6899f3b94dbe80e9fb
http://www.hdkinoteatr.com/action/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Боевики
35
42432,8924074074
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
6126195335ab50ed6957d69e1662583b
http://www.hdkinoteatr.com/biography/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Биография
35
42432,8931018518
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
0bf19872a118cc87f5d1c0479a6fd324
http://www.hdkinoteatr.com/anime/
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
Аниме
35
42432,8937962963
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
215
-4
525
42568,6472169907
-
53
d98eb9a3-8186-44bd-aa4c-97789ff404a1
http://www.hdkinoteatr.com/year/2017
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
2017
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
d98eb9a3-8186-44bd-aa4c-97789ff404a1
93
42745,7701516782
215
-4
3
01:40:00.000
35
42752,9878096991
525
42814,9516391319
527
--group=none
-
53
21dcc3b0790c592a8dd9f8a3bc7bb283
http://www.hdkinoteatr.com/year/2016
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
2016
527
--group=none
215
-35
35
42432,8958796296
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
525
42612,7102058218
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
21dcc3b0790c592a8dd9f8a3bc7bb283
-
53
b28d6bf2c6adeca2c40a8bb53fe1e7fd
http://www.hdkinoteatr.com/year/2015
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
2015
527
--group=none
215
-35
35
42432,8951851852
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
525
42654,6251134954
-
53
df8872ddea6075745094bcf7e34ef672
http://www.hdkinoteatr.com/year/2014
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
2014
527
--group=none
215
-35
35
42432,8944907407
3
01:40:00.000
55
http://www.hdkinoteatr.ru/templates/HD-kino-dark/img/hd-kinoteatr-logo.png
93
42432,9334541319
-
53
72e1d405ba3a00035503bd422eac9d12
http://www.hdkinoteatr.com/<PAGEPARAM>?rnd=<RND>
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
527
--pages=10 --group=none --delitems
4
03. Последние поступления
35
42432,8972685185
215
-35
93
42432,9334541319
3
01:40:00.000
525
42784,6226168056
-
51
9986164a5e4772f4d95d9f10ae2effac
02. Топ 250
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
527
--group=none --maxingroup=300 --numbering
35
42432,9007407407
215
-35
93
42432,9334541319
-
53
68b7a7dbb6f4b01f3792f195491bbfa6
http://www.hdkinoteatr.com/top/?dlenewssortby=kp_rating&dledirection=desc&set_new_sort=dle_sort_top&set_direction_sort=dle_direction_top
9986164a5e4772f4d95d9f10ae2effac
515
2
512
2
532
2
700
2
553
2
42
3
527
-WonkyBlock:TOP250
4
По рейтингу КиноПоиска
35
42432,9000462963
215
-35
93
42432,9334541319
3
01:40:00.000
525
42672,0339284838
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
68b7a7dbb6f4b01f3792f195491bbfa6
-
53
5e85cd4ce67ae5a33bbbb73a29a0bc78
http://www.hdkinoteatr.com/top/?dlenewssortby=imdb_rating&dledirection=desc&set_new_sort=dle_sort_top&set_direction_sort=dle_direction_top
9986164a5e4772f4d95d9f10ae2effac
515
2
512
2
532
2
700
2
553
2
42
3
527
-WonkyBlock:TOP250
4
По рейтингу IMDB
35
42432,8993518519
215
-35
93
42432,9334541319
3
01:40:00.000
525
42777,995814294
-
53
8b2a796adb1989dab1b2a8c2fdce10ca
http://www.hdkinoteatr.com/top/?dlenewssortby=news_read&dledirection=desc&set_new_sort=dle_sort_top&set_direction_sort=dle_direction_top
9986164a5e4772f4d95d9f10ae2effac
515
2
512
2
532
2
700
2
553
2
42
3
527
-WonkyBlock:TOP250
4
По посещаемости
35
42432,8986574074
215
-35
93
42432,9334541319
-
53
aff1e8d01ff0ec0aafd0546cfc4096a6
http://www.hdkinoteatr.com/top/?dlenewssortby=comm_num&dledirection=desc&set_new_sort=dle_sort_top&set_direction_sort=dle_direction_top
9986164a5e4772f4d95d9f10ae2effac
515
2
512
2
532
2
700
2
553
2
42
3
527
-WonkyBlock:TOP250
4
По комментариям
35
42432,897962963
215
-35
93
42432,9334541319
-
51
b84fdc7daa7b5864c4bc4a7f5d7a609a
-SearchFolder
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
4
01. Поиск
215
mpTitle
527
--group=none
35
42432,9014351852
93
42432,9334541319
200104
c7ecc0ed3702fab56206c4528d012684
-
32
c7ecc0ed3702fab56206c4528d012684
-SearchCommands
b84fdc7daa7b5864c4bc4a7f5d7a609a
515
2
512
2
532
2
700
2
553
2
42
3
35
1137366,99930556
4
"Набрать текст"
215
-35
200
5
500
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://www.hdkinoteatr.com/index.php?do=search&subaction=search&full_search=1&titleonly=3&story=';
char gsSuggestResultCut= '';
char gsSuggestRegExpr = '(<h3.*?</h3>)';
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.IsFolder || (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.IsFolder || (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;
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, '\\', '');
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
42432,9334541319
-
32
17639fc8062a6b654a87a617e37a5b64
-SettingsCommands
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
2
700
2
553
2
42
3
35
1137366,99930556
4
00. Настройки подкаста
215
-35
93
42432,9334541319
-
32
f49368b89df807518548943779057f5c
SettingName="--quality"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Выбор качества
35
42432,9333796296
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
['Качество - 720','-SetParam=720',''],
['Качество - 640','-SetParam=640',''],
['Качество - 480','-SetParam=480',''],
['Качество - 360','-SetParam=360',''],
['Использовать настройки мадиа-сервера','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
32
8230410b2c623d0f8ea851d2a1b8d95a
SettingName="--pages"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Лимит загрузки страниц для обновления
35
42432,929212963
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
['Максимум 5 страниц для загрузки','-SetParam=5',''],
['Максимум 10 страниц для загрузки','-SetParam=10',''],
['Максимум 20 страниц для загрузки','-SetParam=20',''],
['Максимум 50 страниц для загрузки','-SetParam=50',''],
['Не ограничивать количество загружаемых страниц','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
32
633baab61f68ee2f67cd0a4149ac6134
SettingName="--yearintitle"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Год в названии
35
42432,9250462963
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
['Добавлять год к названию','-SetParam',''],
['Не добавлять год к назвнию','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
32
977777a83fc99800c12ca1cafaecc701
SettingName="--titlecase"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Заглавые буквы названий
35
42432,922962963
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
['Все названия заглавными буквами','-SetParam=upper',''],
['Не делать названия заглавными буквами','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
32
cc8c629a1dcae48eb95b764f8e5fc507
SettingName="--ratingimdb"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Рейтинг IMDb в названии
35
42432,9208796296
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
['Включить рейтинг IMDb','-SetParam=1',''],
['Включить рейтинг IMDb (полный)','-SetParam=2',''],
['Выключить рейтинг IMDb','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
32
af80d99da6dd4f04d412a8607c8ab263
SettingName="--ratingkp"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Рейтинг КиноПоиск в названии
35
42432,9181018519
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
['Включить рейтинг КиноПоиск','-SetParam=1',''],
['Включить рейтинг КиноПоиск (полный)','-SetParam=2',''],
['Выключить рейтинг КиноПоиск','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
32
f8e7090b8ededac041cb25a951194c49
SettingName="--nodelitems"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Удаление ссылок при обновлении
35
42432,9153240741
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
['Не удалять старые ссылки при обновлении','-SetParam',''],
['Удалять старые ссылки при обновлении','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
32
f083bad5faacdccca9eddb49a343042f
SettingName="--noprogress"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Показ прогресса обновления на компьютере
35
42432,9132407407
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
['Не показывать прогресс обновления на компьютере','-SetParam',''],
['Показывать прогресс обновления на компьютере','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
32
4bd467c29f20f002c3ce127a828be267
SettingName="--vinfo"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Cсылка на просмотр информации о видео
35
42432,9111574074
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
['Размер шрифта информации - мелкий','-SetParam=0',''],
['Размер шрифта информации - средний','-SetParam=1',''],
['Размер шрифта информации - крупный','-SetParam=2',''],
['Не добавлять ссылки "Информация о видео"','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
32
d3a62aef147818e6d927031289112ef7
SettingName="--videoinfoitems"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Добавлять элементы с информацией о видео
35
42432,9076851852
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
['Добавлять элементы с информацией о видео','-SetParam',''],
['Не добавлять элементы с информацией о видео','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
32
57a446949f06a7954f10f2cb362178c8
SettingName="--hdsdump"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Режим HDS
35
42432,9056018519
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
['Режим HDS включен','-SetParam',''],
['Режим HDS выключен','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
32
5e262c01d4c9414cbd511fcdf55ec9a4
SettingName="--retrieve"
17639fc8062a6b654a87a617e37a5b64
515
2
512
2
532
2
700
2
553
2
42
3
4
Считывать свойства файла перед включением
35
42432,9035185185
200
5
500
char gsSelected = 'Выбрано:'; char gsSetName='', gsParams;
int gnTotalItems=0; TDateTime gTimeStart = Now;
Variant ROOTPODCAST;
Variant aSubs = [
[''Считывать свойства перед включением, mpiFilePath: -SetParam',''Считывать свойства перед включением, mpiFilePath: -SetParam',''],
['Не считывать свойства перед включением','-OffParam',''],
];
// ----------------------------------- Поиск родителького подкаста (папки) ----
void GetRoot() {
char sCFG=''; ROOTPODCAST = FolderItem;
while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) &&
(ROOTPODCAST.ItemParent != nil)) {
if (Pos('Wonky Config', ROOTPODCAST[510])>0) break;
ROOTPODCAST = ROOTPODCAST.ItemParent;
}
}
// ------------------------------------- Проверка на присутствие параметра ----
bool CheckParam(char sParam) {
char sValue;
if (HmsRegExMatch('-SetParam=(.*)', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'='+sValue+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-SetParam', sParam, sValue)) {
return HmsRegExMatch(gsSetName+'(?=\\s|$)', gsParams, sValue);
}
if (HmsRegExMatch('-OffParam', sParam, sValue)) {
return !HmsRegExMatch(gsSetName+'(?=\\s|=|$)', gsParams, sValue);
}
return false;
}
// -------------------------------------- Выключение параметра из настроек ----
void SettingOFF() {
char s='';
if (!HmsRegExMatch('('+gsSetName+'=".*?")', gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"='.*?')", gsParams, s))
if (!HmsRegExMatch('('+gsSetName+"=[^\\s]+)", gsParams, s))
HmsRegExMatch('('+gsSetName+')\\s', gsParams+' ', s);
if (s != '') {
gsParams = ReplaceStr(gsParams, ' '+s, '');
gsParams = Trim(ReplaceStr(gsParams, s+' ', ''));
}
}
// ----------------------------------------------------------------------------
{
int i; Variant Item, aItemInfo; char sValue, s;
GetRoot(); gsParams = ROOTPODCAST[mpiPodcastParameters];
HmsRegExMatch('\\[.\\](.*)', mpTitle, mpTitle);
if (LeftCopy(mpFilePath, 1) == '-') {;
Item = HmsCreateMediaItem(ProgramPath()+'\\Presentation\\Images\\videook.mp4', FolderItem.ItemID);
Item[mpiTitle] = gsSelected+' '+mpTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
// Выполнение команды
if (!HmsRegExMatch('SettingName="(.*?)"', FolderItem.ItemParent[mpiFilePath], gsSetName)) return;
if (HmsRegExMatch('-SetParam=(.*)', FolderItem[mpiFilePath], sValue)) {
SettingOFF();
gsParams += ' '+gsSetName+"="+sValue;
} else if (HmsRegExMatch('-SetParam', FolderItem[mpiFilePath], sValue)) {
if (Pos(gsSetName, gsParams)<1) gsParams += ' '+gsSetName;
} else if (HmsRegExMatch('-OffParam', FolderItem[mpiFilePath], sValue)) SettingOFF();
ROOTPODCAST[mpiPodcastParameters] = gsParams;
} else if (Length(aSubs)>0) {
// Создание подкаталогов
HmsRegExMatch('SettingName="(.*?)"', mpFilePath, gsSetName);
for (i=0; i<Length(aSubs); i++) {
aItemInfo = aSubs[i];
if (CheckParam(aItemInfo[1])) s = '[v] '; else s = '[ ] ';
Item = FolderItem.AddFolder(aItemInfo[1], false, 32);
Item[mpiTitle] = s+aItemInfo[0];
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[200] = 5; // mpiFolderType
Item[500] = FolderItem[500]; // mpiDynamicScript
Item[501] = 'C++Script'; // mpiDynamicSyntaxType
Item[mpiFolderSortOrder] = -mpiCreateDate;
if (aItemInfo[2]) Item[mpiThumbnail] = aItemInfo[2];
}
}
}
501
C++Script
215
-35
93
42432,9334541319
-
5
6b58530fc370840650339ddef25c4a42
-VideoPreview0
9bcd70df-0140-4c4e-82be-f7554b3a797e
4
Жанр: Фантастика, Триллер, Драма
55
http://wonky.lostcut.net/vids/info.jpg
35
42771,956412037
3
00:00:20.000
1001001
Poster=http://www.hdkinoteatr.ru/uploads/posts/2017-02/thumbs/im589708974ac70.jpg
Title=HDKinoTeatr.com [WH]
Categ=Фантастика, Триллер, Драма
Descr=Неожиданное появление неопознанных летающих объектов в разных точках планеты повергает мир в трепет. Намерения пришельцев не ясны — вооруженные силы всего мира приведены в полную боевую готовность, а лучшие умы человечества пытаются понять, как разговаривать с непрошенными гостями. Правительство обращается за помощью к лингвисту Луизе Бэнкс и физику Яну Доннели, чтобы предотвратить глобальную катастрофу и найти общий язык с пришельцами. Отныне судьба человечества находится в их руках.
93
42771,9565131944
-
51
ab10a7f95ff8c1a6029a60d9e3f355b8
Коллектор
9bcd70df-0140-4c4e-82be-f7554b3a797e
515
2
512
2
532
0
700
2
553
2
42
3
35
-323604,999305556
93
42800,9267987037
-
51
03cec620ae92408ab2cb07f6c9112984
Фильмы - По алфавиту
ab10a7f95ff8c1a6029a60d9e3f355b8
515
2
512
2
532
2
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
e113b918234f644dfad72f150d6dcfca
Б
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
cd6ce0b671cadc2acf19da72add2ce4f
БЫ
e113b918234f644dfad72f150d6dcfca
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
4903f7311b3194befea6e6e49e7ba171
БО
e113b918234f644dfad72f150d6dcfca
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
9e1c4831613f0f4eef643ffa7fe168d5
БА
e113b918234f644dfad72f150d6dcfca
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
83939dd27f933a76f8831f78f8f096de
БР
e113b918234f644dfad72f150d6dcfca
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
fa866d62f135cc6e44932d0212e2aa07
БЕ
e113b918234f644dfad72f150d6dcfca
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
05f2a1885120259cd807409418d869b6
БИ
e113b918234f644dfad72f150d6dcfca
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
ffa978db032c8f9395b943b5e78e649d
БЭ
e113b918234f644dfad72f150d6dcfca
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
630cf91ce47df6e50b280ea427b15d0b
БЛ
e113b918234f644dfad72f150d6dcfca
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
7b7a687bed2752e7b61e622d2d04383b
С
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
a038faa4a2801edd06491c5a7fd5722d
СА
7b7a687bed2752e7b61e622d2d04383b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
c32a279dbbc0d42ea22e9892b4a432e7
СП
7b7a687bed2752e7b61e622d2d04383b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
375799cfe3bb91de25ab6763d8ba6abe
СР
7b7a687bed2752e7b61e622d2d04383b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
af214c744715a6f6409394aded4e8784
СУ
7b7a687bed2752e7b61e622d2d04383b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
9ae61452d1d56019b9df687ba044e507
СИ
7b7a687bed2752e7b61e622d2d04383b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
415b4d4dcc05dc3048e1b1a4acd9f06a
СЕ
7b7a687bed2752e7b61e622d2d04383b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
1e9967ac3a54207fdbb0a844fdb4fadd
СМ
7b7a687bed2752e7b61e622d2d04383b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
77f22e2a0f7d97ac487124e482deb14c
СТ
7b7a687bed2752e7b61e622d2d04383b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
8e8e9f5f13b3cec3da043ee105407fcc
СО
7b7a687bed2752e7b61e622d2d04383b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
16f902443d096d301632a21553618e90
СК
7b7a687bed2752e7b61e622d2d04383b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
e83b13d2e84bec14e2043c95e1ca465c
Г
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
144b56385947cf555b285c9d67ab3bc7
ГР
e83b13d2e84bec14e2043c95e1ca465c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
0d5ac2cbb7bb0338a8267b71af8b8cfb
ГО
e83b13d2e84bec14e2043c95e1ca465c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
3d03fc0cb7bed1b7be72ce8cc1fd2fc1
ГА
e83b13d2e84bec14e2043c95e1ca465c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
943f0889f043a152c80bc2ab2700ac4a
ГЕ
e83b13d2e84bec14e2043c95e1ca465c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
8cf99651f71d3e365f4989d2f9118051
О
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
a484775281a290ead908e0e6545f137b
ОХ
8cf99651f71d3e365f4989d2f9118051
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
9a6447168d9abd0a7553a028a7319b00
ОС
8cf99651f71d3e365f4989d2f9118051
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
fbcfcc8803be09506d4401ddda4fd0d6
ОЛ
8cf99651f71d3e365f4989d2f9118051
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
d07edb783437f80b645080fe0b312a0f
ОД
8cf99651f71d3e365f4989d2f9118051
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
8438a966607bd344d38ecad329a9612b
ОГ
8cf99651f71d3e365f4989d2f9118051
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
a74892d1d2c98422cdf4eb5fd147bb8e
ОЗ
8cf99651f71d3e365f4989d2f9118051
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
f672382a15f9f47480ba8a3924ee23be
ОТ
8cf99651f71d3e365f4989d2f9118051
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
71511265de54498ebf5842d20338fbda
Ф
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
b5bf7c2fcfad711c6aa9808aadb67b8c
ФЕ
71511265de54498ebf5842d20338fbda
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
ffe52f7e80113e3475d3c539fe29f6aa
ФУ
71511265de54498ebf5842d20338fbda
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
91977bef02175ae2824adc23bf916ea6
ФИ
71511265de54498ebf5842d20338fbda
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
f57a15950f8723fd22833bb3c3553d00
ФА
71511265de54498ebf5842d20338fbda
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
83611788b384ad9be1635a23cc7f7430
А
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
b02b1f99d908974f21d0d1eba6bab94e
АН
83611788b384ad9be1635a23cc7f7430
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
9837d8389774058c8c35bfc5b5468679
АД
83611788b384ad9be1635a23cc7f7430
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
b51ad08ddc116335387ca96971f3092c
АМ
83611788b384ad9be1635a23cc7f7430
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
4766c80431b93ed0232c9c099419217f
АР
83611788b384ad9be1635a23cc7f7430
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
9f5a035f4d16b448aacf31880fd38047
АЛ
83611788b384ad9be1635a23cc7f7430
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
bd51da67bfc15da4a95fb9e57a79f4f2
К
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
093ea7fd4c344fa31f7fed1d574d5028
КО
bd51da67bfc15da4a95fb9e57a79f4f2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
6fafc6febfb299ccb36b2061cdf4c633
КА
bd51da67bfc15da4a95fb9e57a79f4f2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
5be01fd262078f7e5f47351fda1e3b72
КР
bd51da67bfc15da4a95fb9e57a79f4f2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
553229341a6216d08740b424282b3374
КУ
bd51da67bfc15da4a95fb9e57a79f4f2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
ebcc37a2e315dcbc5863fd55c5f1dab1
КЕ
bd51da67bfc15da4a95fb9e57a79f4f2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
c9e2ec98d8e6bb9aec1d0f78f458842d
КЛ
bd51da67bfc15da4a95fb9e57a79f4f2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
799a53ff16ffb9a63cc0e5724dec368c
КИ
bd51da67bfc15da4a95fb9e57a79f4f2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
598b7628394cb9ba1bc2cea51f2df025
КН
bd51da67bfc15da4a95fb9e57a79f4f2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
20f883e116c38c45cb0531c19fc3cafa
КВ
bd51da67bfc15da4a95fb9e57a79f4f2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
901108c340aea63f7294c208ee7fe655
З
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
43e631206a0bcae2555d604dd1194d92
ЗА
901108c340aea63f7294c208ee7fe655
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
b8e5eddcbc5260a9438a76e4966bbb66
ЗЛ
901108c340aea63f7294c208ee7fe655
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
a8c3d9bfb15d504fe700e03ed990805c
ЗМ
901108c340aea63f7294c208ee7fe655
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
c962877e2bb2ccab43117dce857961eb
ЗО
901108c340aea63f7294c208ee7fe655
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
51
de4644d9b10302444fbb565170aeccb2
П
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
e122db94617d151e3de7243466157504
ПО
de4644d9b10302444fbb565170aeccb2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
fed6265f7dc20e84fd50bf075527c07d
ПЕ
de4644d9b10302444fbb565170aeccb2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
b3361f52d186d5dc6dd9de74ccb9c6af
ПР
de4644d9b10302444fbb565170aeccb2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
fb5fcbcbf63efde3ba525a4f2a12b8e0
ПЭ
de4644d9b10302444fbb565170aeccb2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
9fd887b9262be06e8ad06fdeaf992484
ПЛ
de4644d9b10302444fbb565170aeccb2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
e95024c1db95f912de7025d6f7dcf7e5
ПА
de4644d9b10302444fbb565170aeccb2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
e43de0bb4d9ee31bf7eb1930afed9547
ПИ
de4644d9b10302444fbb565170aeccb2
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
237f16d9d4a2a6dfd4e01c36f00864a8
В
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
854c67b355238a75537f662b9d3dbca6
ВО
237f16d9d4a2a6dfd4e01c36f00864a8
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
a46586cdc434f993b6b64afa7f142a87
ВС
237f16d9d4a2a6dfd4e01c36f00864a8
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
ba588000a69d7ff9d05cc54248a9a283
В
237f16d9d4a2a6dfd4e01c36f00864a8
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
3656916017b907635bc6187a586435d7
ВУ
237f16d9d4a2a6dfd4e01c36f00864a8
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
e17cedc79651bbb78cf8b329bdd6dcb8
ВЫ
237f16d9d4a2a6dfd4e01c36f00864a8
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
f5aa5a74b85367a6b1cb604e994b10fd
ВЗ
237f16d9d4a2a6dfd4e01c36f00864a8
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
9d9f71e0abe1ad6ed77cf18585f33f4a
ВН
237f16d9d4a2a6dfd4e01c36f00864a8
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
1da4e4cec537006ef969b119e932cf88
ВЕ
237f16d9d4a2a6dfd4e01c36f00864a8
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
3945563621cd6a2fd5d76120853f6a35
ВА
237f16d9d4a2a6dfd4e01c36f00864a8
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
b65219d3bebb36fae96453d46705c8e7
Т
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
bf178c21fb8711dfbec11dfadbade154
ТР
b65219d3bebb36fae96453d46705c8e7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
bbb8eb172b92982a35d398c449481052
ТО
b65219d3bebb36fae96453d46705c8e7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
84a8f274430a605dbe10026ae05afd3b
ТУ
b65219d3bebb36fae96453d46705c8e7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
3b53c98c77c7de51cdb6f72c8cabe1cd
ТА
b65219d3bebb36fae96453d46705c8e7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
6da6421739e4d4c8b33d993fa00be9e5
Э
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
b97717be22b76ef255e11119d7ff6627
ЭЛ
6da6421739e4d4c8b33d993fa00be9e5
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
0b93b1a8d52da7c22c98103fdf4b96bc
ЭД
6da6421739e4d4c8b33d993fa00be9e5
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
7683f80b7112ad9620c4777c1e2db47c
Д
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
55488041bccf8b8aee46d5db7b6a9507
ДЯ
7683f80b7112ad9620c4777c1e2db47c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
05b9e6f4f85d26e59a6021aba3dbb6bc
ДЫ
7683f80b7112ad9620c4777c1e2db47c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
c9975d651825db6e80a06fff56f67286
ДО
7683f80b7112ad9620c4777c1e2db47c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
63af66249e4dc8e862716d975f753b50
ДР
7683f80b7112ad9620c4777c1e2db47c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
96acb7ed28d3678da519bf23077add17
ДА
7683f80b7112ad9620c4777c1e2db47c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
6c04831d1a00eeab4a4633da44c52448
ДЕ
7683f80b7112ad9620c4777c1e2db47c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
1e7795e3ab7f18b360351744b5fd0f00
ДЭ
7683f80b7112ad9620c4777c1e2db47c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
972e92493693f0b6cf461699f8867b38
ДЬ
7683f80b7112ad9620c4777c1e2db47c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
51
4ac71da4754226ad83aa3ad8fc9d38be
Я
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
fc5547eff24a6dcc7f155a9d16ff2944
Я
4ac71da4754226ad83aa3ad8fc9d38be
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
13cf191477e205b000576f9bf8ab4a40
М
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
a3cd70e31ead2062bc48309002e6148e
МА
13cf191477e205b000576f9bf8ab4a40
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
04eb2e3a0bd3226fe4c44fd56a4490b4
МЕ
13cf191477e205b000576f9bf8ab4a40
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
3e602153323011c4e5795420cc4638ed
МЭ
13cf191477e205b000576f9bf8ab4a40
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
37dad33f509cd594413b60bbf840c993
МИ
13cf191477e205b000576f9bf8ab4a40
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
314b84d7dbd92c9a302e53affda592f6
МО
13cf191477e205b000576f9bf8ab4a40
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
79878345df7caf09db3eb061e0c3f9f3
Н
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
22cf9abcc91615415b6b5efea0738372
НЕ
79878345df7caf09db3eb061e0c3f9f3
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
a67999aa1569f663119e28222f72c71f
НА
79878345df7caf09db3eb061e0c3f9f3
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
c7d3a94269a1f71e44853a83fcbadf9c
НО
79878345df7caf09db3eb061e0c3f9f3
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
54ec71b8a766cc9ce72c23a531b98bcc
Ч
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
e247276c328368ff57dee58905a22d4d
ЧЕ
54ec71b8a766cc9ce72c23a531b98bcc
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
9e0d6fdac9b7b3b725d8f9b1b2c02f93
ЧУ
54ec71b8a766cc9ce72c23a531b98bcc
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
0e77073e07ce2ab90d8519ff4f8df359
Ш
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
8511a974f1c98405613a7e4c5f2add7e
ША
0e77073e07ce2ab90d8519ff4f8df359
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
9eed77252347ce15c8ae5ecfd49ca6f4
ШТ
0e77073e07ce2ab90d8519ff4f8df359
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
e73671ed98fe64a96697ade019a0fb1f
ШО
0e77073e07ce2ab90d8519ff4f8df359
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
f8ede0f1e12ee3379411e83fe1bf1a2e
ШК
0e77073e07ce2ab90d8519ff4f8df359
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
64b8f924c2e3dc653de0f3208ccbe935
У
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
e38e46bcfe8ecb51477612dd139dd1a8
УХ
64b8f924c2e3dc653de0f3208ccbe935
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
45bb633a38d5b5ee92b98b660483ebab
УД
64b8f924c2e3dc653de0f3208ccbe935
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
14b8ea3ea98e09408d47557308b94ed9
УЛ
64b8f924c2e3dc653de0f3208ccbe935
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
b81a595aaa151da1613b226cb586f1ec
УП
64b8f924c2e3dc653de0f3208ccbe935
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
f905171410dfe28dbb5d8b56bdfc7307
УК
64b8f924c2e3dc653de0f3208ccbe935
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
1fd64cc6300e4860f2f49b783ff5473e
УИ
64b8f924c2e3dc653de0f3208ccbe935
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
51
42a6c04f26056912652672a4cdee94d7
Л
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
5faa1ea5a342034d8d4c5daa5e1bf874
ЛИ
42a6c04f26056912652672a4cdee94d7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
1387645f031e9181227034d2d3cd581d
ЛУ
42a6c04f26056912652672a4cdee94d7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
233456c3fc5b368345e39940da0d8ec1
ЛЕ
42a6c04f26056912652672a4cdee94d7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
0b6d4660c2654ba562e5b359ceba23df
ЛО
42a6c04f26056912652672a4cdee94d7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
17bf06636aebbe49b31d743fd444ac5c
ЛЮ
42a6c04f26056912652672a4cdee94d7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
ea944d024cea3f271b5d60c17d6c08a7
Р
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
f518abfd2f5f968dc65a2918beff6ef4
РА
ea944d024cea3f271b5d60c17d6c08a7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
b4425097b007523b0683470f85af0134
РО
ea944d024cea3f271b5d60c17d6c08a7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
ad4966bc25c11122c4ac45c468f6b60b
РУ
ea944d024cea3f271b5d60c17d6c08a7
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
27b45a844e77474c86b43b877176652c
Ю
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
94718f098cea871c357e1922ba47e1fd
ЮН
27b45a844e77474c86b43b877176652c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
47d6f54301eb60858de3df87e198f18c
#
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
f19d3eec3798d71c45ad221f119cea23
И
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
a944a955ce7be363bfb7d62c43637823
ИД
f19d3eec3798d71c45ad221f119cea23
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
d65b59533f0b37686eae3a3254fdbddc
ИГ
f19d3eec3798d71c45ad221f119cea23
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
99476847ed0d6fb6925e325d2ec6e077
ИН
f19d3eec3798d71c45ad221f119cea23
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
a7b5949d0bec83879c23d9bc275c9356
ИС
f19d3eec3798d71c45ad221f119cea23
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
fc29dddab003f4cfe3809d4d45395069
A..Z
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
3065bd4238effa8e4f654659a13304a1
Х
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
79f93982f38d1d0ced8423082809a6bb
ХО
3065bd4238effa8e4f654659a13304a1
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
b5d43ead77fb2fa80dc04d2188df03bf
ХЭ
3065bd4238effa8e4f654659a13304a1
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
50ae0520f9b808df52cdd8ecad8aaf28
Ж
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
033b17ebb4b889250cc7f2a4bc24f994
ЖЕ
50ae0520f9b808df52cdd8ecad8aaf28
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
d6e35a5d0f3b636c5ded01365396b18e
ЖА
50ae0520f9b808df52cdd8ecad8aaf28
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
62bdd21cb150a8b2ba863d21a77015a5
ЖУ
50ae0520f9b808df52cdd8ecad8aaf28
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
51
909adf5d894746ff12e3ce8b57d0a399
Е
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
fded570aa6767dbe73aa8684ae6705b4
ЕГ
909adf5d894746ff12e3ce8b57d0a399
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
b3f9185513e2c78a3aab816bc8146e1f
ЕВ
909adf5d894746ff12e3ce8b57d0a399
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
f68e6ed5a0252fea55fb068922244e2e
ЕС
909adf5d894746ff12e3ce8b57d0a399
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
0a55c81e3c0f03a2c12b9b1e4177eaa4
Ц
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42814,9516539583
-
53
b7a35cd71f0f429f138d1d3db1d5a932
ЦЕ
0a55c81e3c0f03a2c12b9b1e4177eaa4
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
51
3fdf6ad1979e07b33be8336b1430710d
Й
03cec620ae92408ab2cb07f6c9112984
515
2
512
2
532
2
700
2
553
2
42
3
93
42823,6221015278
-
53
4f38bba3ee94f458fb78fbdcad8eeb2f
ЙО
3fdf6ad1979e07b33be8336b1430710d
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
f723e09058755da08c65662909b45270
Фильмы - По годам
ab10a7f95ff8c1a6029a60d9e3f355b8
515
2
512
2
532
2
700
2
553
2
42
3
215
-4
93
42800,9267987037
-
53
dc47169869295c98cdfaebd719748341
2016
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
1adfb89cf81a7bb373f784920a1fd229
2015
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
ea78aab8f19c72684f6ae93fe6379c6d
1981
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
6fa9699dbef3e0fd805bd8784f492143
2003
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
2e8f04f91d90c016dec4e11f7a4f8397
1994
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
f71755fd760fe3e7d73857d5068356c3
2013
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
abec8147bb5e2934a4f4ae2182ac4b26
1983
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
0cb411384acbda4ceead0da3ce862a71
2014
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
2c436c90300216f3cf89bd76619960c8
1979
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
fe4379b2465d7136d6520a9fdecedc54
2008
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
f69f1b808a8373b83d8e1a2abd31baee
1949
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
0b73fdef40abfe0361e40d3eca03541d
1968
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
e8f6de04a337e8e8547b508776f460d6
2011
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
dd94af04b6e43933c0abdd58255b6c2a
1995
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
8337cfb961004d88b339c96bbc8ff65f
2009
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
c49dddc2931db759dd2f063536330339
2007
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
21c8d9074c65ad38b12afeda25420c53
1993
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
fae24087a11666c5ea03cb221e591007
2012
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
33bbc88b4d6840be9b036d1dc25e7e77
2005
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
d5e26c98799bf43b51761ce98b5c5c9f
1992
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
2d77c91027bb6304b97b896ea337fb22
2004
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
4841521ee98c8c00b36cf8ce46d82492
1938
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
9e11a656d673502ed821a12e910ee4fc
2006
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
66f62828179326a1e7fd7d1e81c54281
1942
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
034d830e4ae19fe4f56db0ec189b2f83
1970
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
0cbd0fb31c73174d056271c70001142b
1985
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
9024dba91ef6a2d1722f77759a7631ca
1997
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
37b0a8d33c0f137a767fda076b82de6a
1998
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
5cbdda6b200e15a172f7ccbdd26fefe8
1960
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
078110d1688e2d226b4fa4f0ad26dfb3
1996
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
a91c78f72a43476becfbd261b0ced507
2001
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
0e6c20f80c7ee3ed5bccff0253e8f257
2000
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
1a86b8943e463eb7e413ad1b891944c9
1962
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
a8e6184933c0a10a3ac9cc3cefae0922
1988
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
d79da31a4d0ca76db7f69e08401ebdd2
1991
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
14f656e6b01467ddb5df27a113f5b145
1978
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
87c480e523ea37848afafe3444e9dc9b
2010
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
4357c4eecb76747b7a8477f27ea3295f
1999
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
2968f80de445325f7c1e79f776d9dfc1
1946
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
eb03e1e876c44f341c43af626ac4bd78
1952
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
6ee39aef102968dd6b4824d112d9f56e
1987
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
0ab99074fda794a074e266f2b2e0b2ca
1972
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
cd80ce64e18b49653ed14b1f92911481
2017
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42814,9516539583
-
53
5a6229b561a5c0007ec0832556b4566b
1989
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
5442074b01ee235c972fb2c511069683
1986
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
5947d96ca6d0590aeaa3f534f0d37aa4
1980
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
8063bee9ac521250d399e1be275e1015
1969
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
ffe10ef84d2653ba6462a6b5b72904e5
1943
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
53d2518b182164aef33700aba74122a2
2002
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
f36ec979035977a259a7eb011aec5cf4
1974
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
0f423c7c54848e7dd7d557a75a049597
1964
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
551bc47ccdf976f1c6678c4c3688fc8b
1961
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
1814bc9ac1355e0a2b7c8bf3d368db4c
1965
f723e09058755da08c65662909b45270
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
51
7a7707d56af5320c943df75e2fa6080c
Мультфильмы - По алфавиту
ab10a7f95ff8c1a6029a60d9e3f355b8
515
2
512
2
532
2
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
0dce1a25863cdea5339aedb232561a9e
П
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
5438fb7729fe5c89e392d00bf2f5d23b
ПР
0dce1a25863cdea5339aedb232561a9e
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
5114beee17a373fdb03f1999c4e3a6df
ПЕ
0dce1a25863cdea5339aedb232561a9e
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
e706c6cc984cdc62216f43a3b3d7972d
ПА
0dce1a25863cdea5339aedb232561a9e
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
bb18ef8ad260dbfc2e2d5cc0ec618239
ПО
0dce1a25863cdea5339aedb232561a9e
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
4173ad8fe1a21ee5b27c39aa677d439d
Л
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
7c44681cb16dd4b36c565a1e246bb586
ЛО
4173ad8fe1a21ee5b27c39aa677d439d
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
12f97c4638fe48552af699639ef2e884
ЛИ
4173ad8fe1a21ee5b27c39aa677d439d
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
53
8f87c5e8fb2243322b9dee45e36589cd
ЛЕ
4173ad8fe1a21ee5b27c39aa677d439d
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
bb5ecd41fb84d6e510eb3e863de0329b
Б
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
3eec1569b7e93f96b2bf9e6331d83309
БА
bb5ecd41fb84d6e510eb3e863de0329b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
8bd81e4e5c8ced5936599a6e18b064ba
БО
bb5ecd41fb84d6e510eb3e863de0329b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
4bebdbdbd1ba1fbf0579e0705a7d9659
В
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
d0ff1690d634b42b2b8ae4701b514a45
ВП
4bebdbdbd1ba1fbf0579e0705a7d9659
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
7b8f8977fd11e3ef9a63af5a2bb44a3c
ВЕ
4bebdbdbd1ba1fbf0579e0705a7d9659
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
69724523d1e8fe1b8474a5714e9c2a5b
ВО
4bebdbdbd1ba1fbf0579e0705a7d9659
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
cce8cdccd3411eb7fb87eb339dbeb4bd
В
4bebdbdbd1ba1fbf0579e0705a7d9659
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
53
e54eb1c5612362d4ba7787e2b9e05bb3
ВА
4bebdbdbd1ba1fbf0579e0705a7d9659
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
51
f022000246ad7cd154d3f00742719c7b
Г
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
ff1454d9511e1275425e7f8390cb91e2
ГО
f022000246ad7cd154d3f00742719c7b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
f429c80e472fdfae2650b0cb122bd612
ГР
f022000246ad7cd154d3f00742719c7b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
53
fb2bb74b1e65211ac693ea7109a510a5
ГА
f022000246ad7cd154d3f00742719c7b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
2a6bad8fb21fa82aeb060b58f62df1e0
З
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
1447e091baee1a14eab1e8c8d44c7333
ЗВ
2a6bad8fb21fa82aeb060b58f62df1e0
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
3d66322d40755a5a9d43d4ee24693624
ЗА
2a6bad8fb21fa82aeb060b58f62df1e0
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
51
0cdae2e12d2ebb9bf0eb9e2de22426fb
Я
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
4bb5a431d3ce2b32592524fbc8feaddc
ЯР
0cdae2e12d2ebb9bf0eb9e2de22426fb
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
51
8e290d49acd1860a84807a5c21abad61
О
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
6547e3be7938e19e54b01ed29a072773
ОД
8e290d49acd1860a84807a5c21abad61
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
056ed4cee707d3a52134f3b40e5d8cec
ОХ
8e290d49acd1860a84807a5c21abad61
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
51
40d2c766e882efc2ef0b6b4f68c4aa58
С
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
6e00d8453af6a4320d47919c329c4b7a
СО
40d2c766e882efc2ef0b6b4f68c4aa58
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
af9d2c8864b3ac8d95421b4d6d05563b
СУ
40d2c766e882efc2ef0b6b4f68c4aa58
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
1be646934d1217727c49d3559fad2b33
СВ
40d2c766e882efc2ef0b6b4f68c4aa58
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
065e64e1aeab8229152e9991f003baec
СИ
40d2c766e882efc2ef0b6b4f68c4aa58
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
53
d348edb045a6e57ec9bdd124b617ccea
СТ
40d2c766e882efc2ef0b6b4f68c4aa58
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
53
8835b4f2cb8ce965f8007e6e63d7d9e9
СК
40d2c766e882efc2ef0b6b4f68c4aa58
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
51
5dfb9bf38dbf56e80d751264e9ea1528
Э
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
5724aaa0dbf375617f2dedc24c9e692a
ЭК
5dfb9bf38dbf56e80d751264e9ea1528
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
2da201cf84b41a419bb08f2ed5fc08c7
ЭЛ
5dfb9bf38dbf56e80d751264e9ea1528
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
9e5ea9e748b4d7825d21f82ab1bccc86
Т
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42800,9267987037
-
53
7261425ba9e35b948588afc3cb5b1e76
ТР
9e5ea9e748b4d7825d21f82ab1bccc86
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42800,9267987037
-
53
eba4a7cf54fa6fb8e03841db74a47fb1
ТЕ
9e5ea9e748b4d7825d21f82ab1bccc86
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
bab98ef2cc3730491c6dec4e6466095f
ТВ
9e5ea9e748b4d7825d21f82ab1bccc86
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
bba5329550b928f64f0b2b140d26bc05
Н
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42809,8835526273
-
53
1bb0bf414cd57a03a21a91473014f397
НА
bba5329550b928f64f0b2b140d26bc05
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
51
ba51c39c0436388f0d92d0f104eb1b2f
М
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42809,8835526273
-
53
8e0d07d34a7cc710b37ffdf47e56078e
МА
ba51c39c0436388f0d92d0f104eb1b2f
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
53
59dcbc7238813b3f2f7355efbb0d956d
МИ
ba51c39c0436388f0d92d0f104eb1b2f
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
53
742c205d3d7ae50fb646ade8062f4d6c
МО
ba51c39c0436388f0d92d0f104eb1b2f
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
e0becf08788ad454b312d06c709fd960
А
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42809,8835526273
-
53
b7730428d0238f9382607ea5431070e2
АЙ
e0becf08788ad454b312d06c709fd960
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42809,8835526273
-
53
4ce1715b4b7d317a779f1ac1494ac9ea
АЛ
e0becf08788ad454b312d06c709fd960
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
cb6d64fe17ced76264f80556759cc10a
АР
e0becf08788ad454b312d06c709fd960
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
af58b43693b132e8d6ec3658e6518da6
АИ
e0becf08788ad454b312d06c709fd960
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
18280b10d068bd6a17c74d4f1fb20694
АЯ
e0becf08788ad454b312d06c709fd960
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
7e1bfd4dcf7df47b9196ac3f3e4aab36
Д
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42814,9516539583
-
53
b4b995b266ebd8e8f2b85052d06db0be
ДЖ
7e1bfd4dcf7df47b9196ac3f3e4aab36
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42814,9516539583
-
53
735e1c60cfc7fb34e7c233f752a80bf6
ДЕ
7e1bfd4dcf7df47b9196ac3f3e4aab36
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
87c7eb0af7a3be898c2d4d9468ce2f3f
ДИ
7e1bfd4dcf7df47b9196ac3f3e4aab36
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
033d0afdb6db288435fdb1d3c4c06f7a
ДО
7e1bfd4dcf7df47b9196ac3f3e4aab36
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
0c3ddbccaeac35f037b30315dd02922b
Ш
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42823,6221015278
-
53
c25e3602ffe7a48f20516ac5a454f5b5
ШР
0c3ddbccaeac35f037b30315dd02922b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
2f6dfda2fca7e9b00662e66c2ee6f996
ШК
0c3ddbccaeac35f037b30315dd02922b
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
57cffd34859b82d7ccb2fd0581c89371
К
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
2
700
2
553
2
42
3
93
42823,6221015278
-
53
94c6ef6beac9a7ef0a30b4f50f2849eb
КР
57cffd34859b82d7ccb2fd0581c89371
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
83001d3f7197e337dfafad1fe4f0a4b1
КУ
57cffd34859b82d7ccb2fd0581c89371
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
78185accaae78f041fd009d0f0745ae4
КИ
57cffd34859b82d7ccb2fd0581c89371
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
6a0bfd069943e21c44c92ca1c911da93
КА
57cffd34859b82d7ccb2fd0581c89371
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
53
b40618ebadea050a83a6bf31138b7ef8
#
7a7707d56af5320c943df75e2fa6080c
515
2
512
2
532
0
700
2
553
2
42
3
215
4
93
42823,6221015278
-
51
816f41450dd8be1853daa9bfc99063f4
Мультфильмы - По годам
ab10a7f95ff8c1a6029a60d9e3f355b8
515
2
512
2
532
2
700
2
553
2
42
3
215
-4
93
42800,9267987037
-
53
0a56faf07b91d51f0e987e4e8daa4701
2013
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
e6d2fda9aaf52261678f0e70f093f681
2017
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
33acd57291f885aeac8c4ef52ad49db4
2016
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
c6ddd7cefb5328ef6e23857eb79113f6
2011
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
1c542c85e224206e388f729bbcf46075
2005
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
4f2c0bfe767ce389cb084bcd5467f4dc
2012
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
14bc6044e984767d07363f18e1aa8d65
2001
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
23acf1a03487f5a37288da8888385c2c
2008
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
094efe5c71c9349bc7db4c8934d834ab
2009
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
8fcdbe2f955f80e8bf605a80a60cc2db
1998
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
98ab49d0294e0ab08586c3719fd67706
2010
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
fbb7d3d8d860d983c6d8a3763626329d
2000
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
6c704a3c06118afb522760daf1bcb835
2003
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
50bca4cff49c73e6214bd31858f7126a
2014
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42800,9267987037
-
53
fbbb5b9a6b67798defb0c248e3dff245
1989
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42809,8835526273
-
53
238189c221d2b65c7aab9917c1f49830
1999
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42809,8835526273
-
53
372f79a8526b3927d1cb486bd3a7c7dd
2007
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42809,8835526273
-
53
528664b4a9cbcfe83f948b9c28b05a17
2015
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42809,8835526273
-
53
39b3ba55edc02cdbea87e4791ceba9ea
1993
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
14e17cdf793ee810ec8098adfde41a62
2006
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
3ee2d508385823d002e8de66cdd8d716
1982
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278
-
53
c40eb79a82e270d012ea43516d3d242a
1985
816f41450dd8be1853daa9bfc99063f4
515
2
512
2
532
0
700
2
553
2
42
3
215
-35
93
42823,6221015278