3
51
e2791e31-4e3f-43e3-b2e3-779fabe6cee2
https://hdreactor.club
234DF17B-418C-4FDC-9DFE-CD0C586D2E76
4
hdreactor.club
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
0
532
1
553
1
522
0
570
1
245
e2791e31-4e3f-43e3-b2e3-779fabe6cee2
93
43878,7224061921
571
char gsUrlBase="https://hdreactor.club"; int gnTotalItems=0; TDateTime gTimeStart=Now;
/////////////////////// Создание структуры подкаста /////////////////////////
///////////////////////////////////////////////////////////////////////////////
// Функция создания динамической папки с указанным скриптом
THmsScriptMediaItem CreateDynamicItem(THmsScriptMediaItem prntItem, char sTitle, char sLink, char &sScript='') {
THmsScriptMediaItem Folder = prntItem.AddFolder(sLink, false, 32);
Folder[mpiTitle ] = sTitle;
Folder[mpiCreateDate] = VarToStr(IncTime(Now,0,-prntItem.ChildCount,0,0));
Folder[200] = 5; // mpiFolderType
Folder[500] = sScript; // mpiDynamicScript
Folder[501] = 'C++Script'; // mpiDynamicSyntaxType
Folder[mpiFolderSortOrder] = -mpiCreateDate;
return Folder;
}
///////////////////////////////////////////////////////////////////////////////
// Замена в тексте загруженного скрипта значения текстовой переменной
void ReplaceVarValue(char &sText, char sVarName, char sNewVal) {
char sVal, sVal2;
if (HmsRegExMatch2("("+sVarName+"\\s*?=.*?';)", sText, sVal, sVal2)) {
HmsRegExMatch(sVarName+"\\s*?=\\s*?'(.*)'", sVal, sVal2);
sText = ReplaceStr(sText, sVal, ReplaceStr(sVal , sVal2, sNewVal));
}
}
///////////////////////////////////////////////////////////////////////////////
// Создание папки ПОИСК (с загрузкой скрипта с форума homemediaserver.ru)
void CreateSearchFolder(THmsScriptMediaItem prntItem, char sTitle) {
char sScript='', sLink, sHtml, sRE, sVal; THmsScriptMediaItem Folder;
// Да да, загружаем скрипт с сайта форума HMS
sHtml = HmsUtf8Decode(HmsDownloadURL('http://homemediaserver.ru/forum/viewtopic.php?f=15&t=2793&p=17395#p17395', '', true));
HmsRegExMatch('BeginDynamicSearchScript\\*/(.*?)/\\*EndDynamicSearchScript', sHtml, sScript, 1, PCRE_SINGLELINE);
sScript = HmsHtmlToText(sScript, 1251);
sScript = ReplaceStr(sScript, #160, ' ');
// И меняем значения переменных на свои
ReplaceVarValue(sScript, 'gsSuggestQuery' , gsUrlBase+'');
ReplaceVarValue(sScript, 'gsSuggestRegExpr', '<span class="searchheading">(.*?)</span>');
ReplaceVarValue(sScript, 'gsSuggestMethod' , 'POST');
sScript = ReplaceStr(sScript, 'gnSuggestNoUTFEnc = 0', 'gnSuggestNoUTFEnc = 1');
Folder = prntItem.AddFolder(sTitle, true);
Folder[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0));
Folder[mpiFolderSortOrder] = "-mpCreateDate";
gnTotalItems++;
CreateDynamicItem(Folder, '"Набрать текст"', '-SearchCommands', sScript);
}
///////////////////////////////////////////////////////////////////////////////
// Создание подкаста или папки
THmsScriptMediaItem CreateItem(THmsScriptMediaItem Parent, char sTitle='', char sLink='') {
THmsScriptMediaItem Item; bool bForceFolder = false;
if (sLink=='') { sLink = sTitle; bForceFolder = true; }
else sLink = HmsExpandLink(sLink, gsUrlBase);
Item = Parent.AddFolder(sLink, bForceFolder);
Item[mpiTitle ] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0));
Item[mpiFolderSortOrder] = -mpiCreateDate;
gnTotalItems++;
return Item;
}
///////////////////////////////////////////////////////////////////////////////
// Поиск и создание ссылок категории
void SearchCategories(THmsScriptMediaItem Folder, string sHtml, string sCutPattern) {
string sName, sLink; TRegExpr RegExp;
HmsRegExMatch(sCutPattern, sHtml, sHtml); // Вырезаем нужный блок
// Ищем ссылки на категории и создаём их
RegExp = TRegExpr.Create('(<a.*?</a>)', PCRE_SINGLELINE);
try {
if (RegExp.Search(sHtml)) do {
sName = ""; sLink = "";
HmsRegExMatch('<a href="(.*?)"', RegExp.Match, sLink);
HmsRegExMatch('(<a.*?</a>)' , RegExp.Match, sName);
sLink = HmsExpandLink(sLink, gsUrlBase);
sName = HmsHtmlToText(sName);
CreateItem(Folder, sName, sLink);
} while (RegExp.SearchAgain);
} finally { RegExp.Free; }
}
///////////////////////////////////////////////////////////////////////////////
// --------------------- M A I N P R O C E D U R E -------------------------
{
THmsScriptMediaItem Folder, Item; string sHtml, sName, sLink; TRegExpr RegExp;
FolderItem.DeleteChildItems();
CreateSearchFolder (FolderItem, '00. Поиск');
Folder = CreateItem(FolderItem, '01. Последние поступления', '/');
Folder[mpiPodcastParameters] = '--maxpages=7';
// Загружаем страницу главную страницу
sHtml = HmsDownloadURL(gsUrlBase, '', true);
sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml));
Folder = CreateItem(FolderItem, '02. Категории');
Folder[mpiPodcastParameters] = '--group=alph --maxpages=20';
SearchCategories(Folder, sHtml, 'Главная(.*?)Спорт HD');
// Загружаем страницу главную страницу
sHtml = HmsDownloadURL(gsUrlBase, '', true);
sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml));
Folder = CreateItem(FolderItem, '03. По качеству');
Folder[mpiPodcastParameters] = '--group=alph --maxpages=20';
CreateItem(Folder, 'Blu-Ray' , "https://hdreactor.club/tags/Blu-Ray/");
CreateItem(Folder, 'BDRemux' , "https://hdreactor.club/tags/BDRemux/");
CreateItem(Folder, '1080p' , "https://hdreactor.club/tags/1080p/");
CreateItem(Folder, '720p' , "https://hdreactor.club/tags/720p/");
Folder = CreateItem(FolderItem, '05. По годам');
Folder[mpiPodcastParameters] = '--group=alph --maxpages=20';
CreateItem(Folder, '2020' , "https://hdreactor.club/tags/2020/");
CreateItem(Folder, '2019' , "https://hdreactor.club/tags/2019/");
CreateItem(Folder, '2018' , "https://hdreactor.club/tags/2018/");
CreateItem(Folder, '2017' , "https://hdreactor.club/tags/2017/");
CreateItem(Folder, '2016' , "https://hdreactor.club/tags/2016/");
CreateItem(Folder, '2015' , "https://hdreactor.club/tags/2015/");
CreateItem(Folder, '2014' , "https://hdreactor.club/tags/2014/");
CreateItem(Folder, '2013' , "https://hdreactor.club/tags/2013/");
CreateItem(Folder, '2012' , "https://hdreactor.club/tags/2012/");
CreateItem(Folder, '2011' , "https://hdreactor.club/tags/2011/");
CreateItem(Folder, '2010' , "https://hdreactor.club/tags/2010/");
CreateItem(Folder, '2000' , "https://hdreactor.club/tags/2000/");
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnTotalItems));
}
572
C++Script
530
string gsUrlBase = 'https://hdreactor.club'; // База для относительных ссылок
int gnTotalItems = 0; // Счётчик созданных элементов
TDateTime gStart = Now; // Время начала запуска скрипта
int gnMaxPages=10, gnMaxInGroup=100; bool gbYearInTitle=false; char gsGroupMode='';
// Регулярные выражения для поиска на странице блоков с информацией о видео
string
gsPatternBlock = '"sstory"(.*?)</ul>' , // Искомые блоки
gsCutPage = '<fromCut>(.*?)<toCut>' , // Обрезка загруженной страницы
gsPatternTitle = 'alt="(.*?)"' , // Название
gsPatternLink = '<a href="(.*?)"' , // Ссылка
gsPatternImg = '<img src="(.*?)"' , // Картинка
gsPatternYear = 'shortinfo.*?>(\\d{4})<' , // Год
gsPatternPages = 'pagenavigation.*/[^"]+/page(\\d+)/"</a>', // Регулярное выражение для поиска максимального номера страницы
gsPagesParams = '/page<PN>/' , // Параметр с номером страницы, который добавляется к ссылке
;
///////////////////////////////////////////////////////////////////////////////
// Создание папки или подкаста
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') {
THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой
Item[mpiTitle ] = sName; // Присваиваем наименование
Item[mpiThumbnail ] = sImg; // Картинка
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания
gnTotalItems++; // Увеличиваем счетчик созданных элементов
return Item; // Возвращаем созданный объект
}
///////////////////////////////////////////////////////////////////////////////
// Получение имени группировки по имени видео (первая буква, "A..Z" или "#")
string GetGroupName(string sName) {
string sGrp = '#';
if (HmsRegExMatch('([A-ZА-Я0-9])', sName, sGrp, 1, PCRE_CASELESS)) sGrp = UpperCase(sGrp);
if (HmsRegExMatch('[A-Z]', sGrp, sGrp)) sGrp = 'A..Z';
if (HmsRegExMatch('[0-9]', sGrp, sGrp)) sGrp = '#';
return sGrp;
}
///////////////////////////////////////////////////////////////////////////////
// Загрузка страниц и парсинг
void LoadAndParse() {
string sHtml, sData, sName, sLink, sImg, sYear, sPage, sVal, sPost, sServ; // Объявляем переменные
THmsScriptMediaItem Item, Folder = FolderItem; TRegExpr RegEx;
int i, n, nPages=0, iCnt=0, nGrp=0; char sGrp=""; bool bGroup=false;
if (HmsRegExMatch('--maxingroup=(\\d+)', mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal);
if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal);
HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, gsGroupMode);
gbYearInTitle = (Pos('--yearintitle', mpPodcastParameters)>0);
if (LeftCopy(mpFilePath, 4) != "http") {
// Если нет ссылки - делаем поиск названия
sLink = gsUrlBase+'/search.php?st=0&sk=t&sd=d&sr=topics&torrent=0&tracker_search=torrent&keywords='+HmsPercentEncode(HmsUtf8Encode(mpTitle));
sHtml = HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true);
} else {
// Иначе просто, загружаем страницу по ссылке
sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+gsUrlBase, true);
}
sHtml = HmsUtf8Decode(sHtml); // Декодируем страницу из UTF-8
sHtml = HmsRemoveLineBreaks(sHtml); // Удаляем переносы строк, для облегчения работы с регулярными выражениями
// Если указан шаблон поиска максимального номера страницы - применяем
if ((gsPatternPages!='') && HmsRegExMatch(gsPatternPages, sHtml, sVal)) nPages = StrToIntDef(sVal, 0);
// Вырезаем только нужный участок текста HTML, где будем искать блоки.
// Вместо <fromCut> и <toCut> вставляем начало и конец участка HTML, между которыми
// будем искать блоки текста с сылкой, наименованием и проч.
HmsRegExMatch(gsCutPage, sHtml, sHtml); // ищем в sHtml, результат кладём обратно в sHtml
// =========================================================================
// Дозагрузка страниц
if ((gnMaxPages!=0) && (nPages>gnMaxPages)) nPages = gnMaxPages;
for (i=2; i<=nPages; i++) {
HmsSetProgress(Trunc(i*100/nPages));
HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, nPages]));
sLink = mpFilePath + ReplaceStr(gsPagesParams, '<PN>', IntToStr(i));
sPage = HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true);
sPage = HmsUtf8Decode(sPage);
if (gsCutPage!='') HmsRegExMatch(gsCutPage, sPage, sPage);
sHtml += sPage;
if (HmsCancelPressed) break;
}
HmsHideProgress();
// =========================================================================
// Создаём объект для поиска блоков текста по регулярному выражению,
// в которых есть информация: ссылка, наименование, ссылка на картинку и проч.
// Обычно, определяем начало и конец блока и вставляем их вместо <section> и </section>
RegEx = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE);
try {
// Определяем, если блоков в загруженном более чем gnMaxInGroup, включаем группировку
i=0; if (RegEx.Search(sHtml)) do i++; while (RegEx.SearchAgain());
bGroup = (i > gnMaxInGroup);
// Главный цикл поиска блоков
if (RegEx.Search(sHtml)) do {
sLink=''; sImg=''; sYear=''; sName='';
HmsRegExMatch(gsPatternTitle, RegEx.Match, sName);
HmsRegExMatch(gsPatternLink , RegEx.Match, sLink);
HmsRegExMatch(gsPatternImg , RegEx.Match, sImg );
HmsRegExMatch(gsPatternYear , RegEx.Match, sYear);
if (Trim(sLink)=="") continue;
sName = ReplaceStr(HmsHtmlToText(sName), "/", "-");
sLink = ReplaceStr(sLink, 'amp;', ''); // Удаляем мусор из ссылки
sLink = HmsExpandLink(sLink, gsUrlBase); // Добавим базу
if (sImg!='') sImg = HmsExpandLink(sImg, gsUrlBase);
// Если в ссылках встречаются русские символы - делаем их безопасными
if (HmsRegExMatch('^.*?([а-яА-Я].*)', sImg, sVal)) sImg = ReplaceStr(sImg, sVal, HmsPercentEncode(HmsUtf8Encode(sVal)));
// Если указано добавлять год вназвание и в названии его нет, добавляем
if (gbYearInTitle && (sYear!='') && (Pos(sYear, sName)<1)) sName += ' ('+sYear+')';
// Контроль группировки (создаём папку с именем группы)
if (gsGroupMode=='alph') {
Folder = FolderItem.AddFolder(GetGroupName(sName));
Folder[mpiFolderSortOrder] = "mpTitle";
} else if (gsGroupMode=='year') {
Folder = FolderItem.AddFolder(sYear);
Folder[mpiFolderSortOrder] = "mpTitle";
Folder[mpiYear ] = sYear;
} else if (bGroup) {
iCnt++; if (iCnt>=gnMaxInGroup) { nGrp++; iCnt=0; }
Folder = FolderItem.AddFolder(Format('%.2d', [nGrp]));
}
CreateFolder(Folder, sName, sLink, sImg); // Создание ссылки (папки с фильмом)
} while (RegEx.SearchAgain);
} finally { RegEx.Free(); }
if (gsGroupMode=='alph') FolderItem.Sort('mpTitle');
else if (gsGroupMode=='year') FolderItem.Sort('-mpYear');
HmsLogMessage(1, mpTitle+': создано элементов - '+IntToStr(gnTotalItems));
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
{
FolderItem.DeleteChildItems(); // Удаляем созданные ранее элементы в текущей папке
LoadAndParse(); // Запускаем загрузку страниц и создание папок видео
}
531
C++Script
550
string gsUrlBase = 'https://hdreactor.club/'; // База для относительных ссылок
string gsDownloadsDir = IncludeTrailingBackslash(HmsTranscodingTempDirectory)+'Torrents'; // Дирректория торрент
int gnTotalItems = 0; // Счётчик созданных элементов
TDateTime gStart = Now; // Время начала запуска скрипта
string gsTime = "00:55:00.000"; // Продолжительность видео
int mpiCountry = 10012; // Идентификаторы для хранения дополнительной
int mpiTranslate = 10013; // информации в свойствах подкаста
int mpiQuality = 10014;
///////////////////////////////////////////////////////////////////////////////
//Создание ссылки-ошибки
void ErrorItem(string sMsg) {
THmsScriptMediaItem Item = HmsCreateMediaItem('Err', PodcastItem.ItemID);
Item[mpiTitle ] = sMsg;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/symbol-error.png';
HmsLogMessage(2, sMsg);
}
///////////////////////////////////////////////////////////////////////////////
// Создание информационной ссылки
void CreateInfoItem(string sName, string sVal) {
THmsScriptMediaItem Item; sVal = Trim(sVal);
if (sVal=="") return;
Item = HmsCreateMediaItem('Info'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID);
Item[mpiTitle ] = sName+': '+sVal;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg';
Item[mpiTimeLength] = 7;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
gnTotalItems++;
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки-ошибки
void CreateErrorItem(string sMsg) {
THmsScriptMediaItem Item = HmsCreateMediaItem('Err'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID);
Item[mpiTitle ] = sMsg;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/symbol-error.png';
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки на видео
THmsScriptMediaItem CreateMediaItem(THmsScriptMediaItem Folder, string sTitle, string sLink='', string sGrp='') {
THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID, sGrp);
Item[mpiTitle ] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
Item[mpiTimeLength] = gsTime;
Item.CopyProperties(PodcastItem, [mpiThumbnail,mpiYear,mpiActor,mpiDirector,mpiProducer,mpiGenre]);
gnTotalItems++;
return Item;
}
///////////////////////////////////////////////////////////////////////////////
// Создание папки подкаста
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') {
if (sImg=='') sImg = mpThumbnail;
THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой
Item[mpiTitle ] = sName; // Присваиваем наименование
Item[mpiThumbnail ] = sImg; // Картинка
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания
gnTotalItems++; // Увеличиваем счетчик созданных элементов
return Item; // Возвращаем созданный объект
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок видео из torrent-файла
void CreateFilesFromTorrentFile() {
string sFile, sLink, sName, sHeaders, sVal;
TTorrentFile TORRENT; TTorrentSubFile SUBTORRENT; THmsScriptMediaItem Item;
sHeaders = 'Referer: '+PodcastItem.ItemParent[mpiFilePath]+'\r\n';
if (!FileExists(sFile) || (Length(HmsStringFromFile(sFile))==0))
sFile = HmsTranscodingTempDirectory+'.torrent';
HmsDownloadUrlToFile(mpFilePath, sFile, sHeaders);
TORRENT = TTorrentFile.Create();
try {
TORRENT.LoadFromFile(sFile);
// Проверяем, в этом торренте несколько файлов?
if (TORRENT.MultiFile) {
// Перебираем все файлы
for (int i=0; i < TORRENT.Count; i++) {
SUBTORRENT = TORRENT.Files[i];
// Проверяем тип файла по расширению
if (HmsFileMediaType(SUBTORRENT.Name)==mtVideo) {
sLink = Format('torrent:%s?index=%d&savepath=%s', [sFile, i, gsDownloadsDir]);
if (HmsRegExMatch('--portbegin=(\\d+)', mpPodcastParameters, sVal)) sLink += '&portbegin='+sVal;
if (HmsRegExMatch('--portend=(\\d+)' , mpPodcastParameters, sVal)) sLink += '&portend=' +sVal;
if (HmsRegExMatch('--sslport=(\\d+)' , mpPodcastParameters, sVal)) sLink += '&sslport=' +sVal;
Item = HmsCreateMediaItem(sLink, PodcastItem.ItemID);
Item[mpiTitle ] = SUBTORRENT.Name;
Item[mpiFileSize] = SUBTORRENT.Length;
}
}
} else {
// В торренте раздаётся единственный файл
sLink = Format('torrent:%s?savepath=%s', [sFile, gsDownloadsDir]);
if (HmsRegExMatch('--portbegin=(\\d+)', mpPodcastParameters, sVal)) sLink += '&portbegin='+sVal;
if (HmsRegExMatch('--portend=(\\d+)' , mpPodcastParameters, sVal)) sLink += '&portend=' +sVal;
if (HmsRegExMatch('--sslport=(\\d+)' , mpPodcastParameters, sVal)) sLink += '&sslport=' +sVal;
Item = HmsCreateMediaItem(sLink, PodcastItem.ItemID);
Item[mpiTitle ] = TORRENT.Name;
Item[mpiFileSize] = TORRENT.Length;
}
} finally { TORRENT.Free; }
}
///////////////////////////////////////////////////////////////////////////////
// Поиск торрент-файлов на странице фильма и создание папок для них
void CreateTorrentFolders() {
string sLink, sName, sData; TRegExpr re;
string sHtml = HmsUtf8Decode(HmsDownloadURL(mpFilePath));
// Поиск торрент-файлов на странице фильма / сериала
TRegExpr RegEx = TRegExpr.Create('(<div class="title">(.*?)</div>)', PCRE_SINGLELINE); // Блок содержащий торрент
if (RegEx.Search(sHtml)) do {
HmsRegExMatch('<a href="(.*?)"' , RegEx.Match, sLink); // Ссылки на торрент
HmsRegExMatch('alt="(.*?)"' , RegEx.Match, sName); // Название
sLink = HmsExpandLink(sLink, gsUrlBase); // Добавляем базу(из относительной делаем абсолютную)
sName = HmsHtmlToText(sName); // Избавляемся от тегов в названии
THmsScriptMediaItem Item = PodcastItem.AddFolder(sLink); // Создаем папку
Item[mpiTitle] = sName;
} while (RegEx.SearchAgain());
}
///////////////////////////////////////////////////////////////////////////////
// Javascript Eval (Danger! Может быть исполнен вредоностный код с сайта) -----
char jsEval(char sData) {
Variant objScript, objJS; char sResult = '';
try {objScript = CreateOleObject('MSScriptControl.ScriptControl');} except {};
if (VarType(objScript) != varDispatch) {
HmsLogMessage(2, 'Не могу создать ActiveXObject MSScriptControl.ScriptControl');
return '';
}
objScript.Language = 'JavaScript';
try {sResult = objScript.Eval(sData);} except {};
return sResult;
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок видео
void CreateLinks() {
string sHtml, sData, sLink, sName, sTime, sImg, sVal, sFile;
THmsScriptMediaItem Item; TRegExpr RegEx; TRegExpr re;
sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+mpFilePath, true);
sHtml = HmsUtf8Decode(sHtml);
sHtml = HmsRemoveLineBreaks(sHtml);
// =========================================================================
// Сбор информации о фильме
if (HmsRegExMatch('<b>Год выхода:</b></td>(.+?)</td>', sHtml, sVal)) PodcastItem[mpiYear] = HmsHtmlToText(sVal);
if (HmsRegExMatch('<strong class="bb">Продолжительность:</strong>(.+?)<br />', sHtml, sVal)) PodcastItem[mpiTimeLength ] = HmsHtmlToText(sVal);
if (HmsRegExMatch('<b>Жанр:</b>(.+?)</td>' , sHtml, sVal)) PodcastItem[mpiGenre ] = HmsHtmlToText(sVal);
if (HmsRegExMatch('<b>Раздают:</b>(.+?)</span>' , sHtml, sVal)) PodcastItem[mpiCountry ] = HmsHtmlToText(sVal);
if (HmsRegExMatch('<b>Дата добавления</b></td>(.+?)</td>' , sHtml, sVal)) PodcastItem[mpiTranslate] = HmsHtmlToText(sVal);
if (HmsRegExMatch('<b>Размер:</b>(.+?)</td>' , sHtml, sVal)) PodcastItem[mpiActor ] = HmsHtmlToText(sVal);
// =========================================================================
// Если установлен ключ отображения информационных ссылок - добавляем их
if (Pos('--addinfoitems', mpPodcastParameters)>0) {
if (Trim(PodcastItem[mpiYear ])!='') CreateInfoItem('Год' , PodcastItem[mpiYear ]);
if (Trim(PodcastItem[mpiGenre ])!='') CreateInfoItem('Жанр' , PodcastItem[mpiGenre ]);
if (Trim(PodcastItem[mpiCountry ])!='') CreateInfoItem('Сид' , PodcastItem[mpiCountry ]);
if (Trim(PodcastItem[mpiTranslate])!='') CreateInfoItem('Дата добавления', PodcastItem[mpiTranslate]);
if (Trim(PodcastItem[mpiActor ])!='') CreateInfoItem('Размер' , PodcastItem[mpiActor ]);
if (Trim(PodcastItem[mpiTimeLength ])!='') CreateInfoItem('Продолжительность' , PodcastItem[mpiTimeLength ]);
}
}
///////////////////////////////////////////////////////////////////////////////
// Получение ссылки на медиаресурс в переменную MediaResourceLink
void GetLink() {
if (LeftCopy(mpFilePath, 4)=='Info');
else if (LeftCopy(mpFilePath, 3)=='Err' );
else MediaResourceLink = mpFilePath;
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
{
// Проверяем, при каком событии было вызвано выполнение скрипта (не вход ли в папку это?)
if (PodcastItem.IsFolder) {
PodcastItem.DeleteChildItems(); // Удаляем в теущей папке все элементы
if (Pos('download.php', mpFilePath)>0) // Вписываем значение для загрузки трекера
CreateFilesFromTorrentFile(); // Скачиваем сам torrent файл и создаём ссылки на видео из него
else
CreateTorrentFolders(); // Создаем ссылки из торрента в папке
CreateLinks(); // Получаем ссылку(в нашем случае описание)
} else {
GetLink(); // Это запустили обработку видео-ссылки
// Если в MediaResourceLink пусто, значит получить ссылку не получилось - выводим видео об ошибке
if (MediaResourceLink=='') MediaResourceLink = 'http://wonky.lostcut.net/vids/podcasterror_hd.mp4';
}
}
551
C++Script
527
--addinfoitems --maxpages=20
43
video/mpeg
50
Фильмы (основной)
-
53
b2b3ad74715aa9e6e3dc55990dff062f
https://hdreactor.club/
e2791e31-4e3f-43e3-b2e3-779fabe6cee2
515
2
512
2
532
2
700
2
553
2
42
3
4
01. Последние поступления
35
43879,3608912037
215
-35
527
--maxpages=7
93
43879,3615998495
525
43879,3673062037
-
51
c8d76f458b66c5dc77661645c4751619
02. Категории
e2791e31-4e3f-43e3-b2e3-779fabe6cee2
515
2
512
2
532
2
700
2
553
2
42
3
35
43879,3601967593
215
-35
527
--group=alph --maxpages=20
93
43879,3615998495
-
53
97cac88724d9e34eea06c5c35925af5d
https://hdreactor.club/4k_uhd/
c8d76f458b66c5dc77661645c4751619
515
2
512
2
532
2
700
2
553
2
42
3
4
4K(UHD)
35
43879,3595023148
215
-35
93
43879,3615998495
525
43879,3923176852
-
53
04c6decfdc7b095a17f0df8f21a611c5
https://hdreactor.club/tags/3D/
c8d76f458b66c5dc77661645c4751619
515
2
512
2
532
2
700
2
553
2
42
3
4
3D
35
43879,3588078704
215
-35
93
43879,3615998495
525
43879,3626890046
-
53
c5a5f177b779f39cb0d7fcf9db9d1ab5
https://hdreactor.club/1/
c8d76f458b66c5dc77661645c4751619
515
2
512
2
532
2
700
2
553
2
42
3
4
Кино HD
35
43879,3581134259
215
-35
93
43879,3615998495
525
43879,3952026505
-
53
22eeeb8ba8ba93010463cf174a957f46
https://hdreactor.club/6/
c8d76f458b66c5dc77661645c4751619
515
2
512
2
532
2
700
2
553
2
42
3
4
Сериалы HD
35
43879,3574189815
215
-35
93
43879,3615998495
525
43879,3973909838
-
53
3215e7cb9dd3b17fa57127d73915c760
https://hdreactor.club/7/
c8d76f458b66c5dc77661645c4751619
515
2
512
2
532
2
700
2
553
2
42
3
4
Мульты HD
35
43879,356724537
215
-35
93
43879,3615998495
525
43879,399005162
-
53
1c7762f97f65809d1a01a518ad6cf473
https://hdreactor.club/4/
c8d76f458b66c5dc77661645c4751619
515
2
512
2
532
2
700
2
553
2
42
3
4
Music HD
35
43879,3560300926
215
-35
93
43879,3615998495
-
53
736bf06b162314278adbf96a2c08dbce
https://hdreactor.club/5/
c8d76f458b66c5dc77661645c4751619
515
2
512
2
532
2
700
2
553
2
42
3
4
Игры
35
43879,3553356481
215
-35
93
43879,3615998495
-
53
7457897825d03de96cf9536d2178a9bf
https://hdreactor.club/3/
c8d76f458b66c5dc77661645c4751619
515
2
512
2
532
2
700
2
553
2
42
3
4
18+ HD
35
43879,3546412037
215
-35
93
43879,3615998495
525
43879,3926644097
-
51
12c792e61438c68390fde42845b25ff8
03. По качеству
e2791e31-4e3f-43e3-b2e3-779fabe6cee2
515
2
512
2
532
2
700
2
553
2
42
3
35
43879,3539467593
215
-35
93
43879,3615998495
-
53
020753304eef4eb706a299d7b76dd5a2
https://hdreactor.club/tags/Blu-Ray/
12c792e61438c68390fde42845b25ff8
515
2
512
2
532
2
700
2
553
2
42
3
4
Blu-Ray
35
43879,3532523148
215
-35
93
43879,3615998495
-
53
27b9ab23c1b03a729d5d3060f157b2f6
https://hdreactor.club/tags/BDRemux/
12c792e61438c68390fde42845b25ff8
515
2
512
2
532
2
700
2
553
2
42
3
4
BDRemux
35
43879,3525578704
215
-35
93
43879,3615998495
-
53
f92168642b44228f177482fe7c50a108
https://hdreactor.club/tags/1080p/
12c792e61438c68390fde42845b25ff8
515
2
512
2
532
2
700
2
553
2
42
3
4
1080p
35
43879,3518634259
215
-35
93
43879,3615998495
-
53
154d6f8517456f62d7752fbdc8fbb2ff
https://hdreactor.club/tags/720p/
12c792e61438c68390fde42845b25ff8
515
2
512
2
532
2
700
2
553
2
42
3
4
720p
35
43879,3511689815
215
-35
93
43879,3615998495
525
43879,3619072917
-
51
01d91dae20d49c7f6fad742b734b57a8
04. По годам
e2791e31-4e3f-43e3-b2e3-779fabe6cee2
515
2
512
2
532
2
700
2
553
2
42
3
35
43879,350474537
215
-35
93
43879,3615998495
-
53
304228d90695105db728e01b6688d990
https://hdreactor.club/tags/2020/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2020
35
43879,3497800926
215
-35
93
43879,3615998495
525
43879,3984273611
-
53
234b210d513db7c327532f7f763a744b
https://hdreactor.club/tags/2019/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2019
35
43879,3490856482
215
-35
93
43879,3615998495
525
43879,3641398032
-
53
8f20e4a99a1677cbdec2c2c8066477a1
https://hdreactor.club/tags/2018/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2018
35
43879,3483912037
215
-35
93
43879,3615998495
525
43879,3986722685
-
53
bbb4d4ffcdc75873f32be3fc432fd6d4
https://hdreactor.club/tags/2017/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2017
35
43879,3476967593
215
-35
93
43879,3615998495
525
43879,3997244444
-
53
d2cfc674dc976610c099747a8467000e
https://hdreactor.club/tags/2016/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2016
35
43879,3470023148
215
-35
93
43879,3615998495
525
43879,4014428588
-
53
f3e94c0d3a734c58692c564613bb70e0
https://hdreactor.club/tags/2015/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2015
35
43879,3463078704
215
-35
93
43879,3615998495
525
43879,4037779977
-
53
edadfa89393dfc137b07c1111880280b
https://hdreactor.club/tags/2014/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2014
35
43879,3456134259
215
-35
93
43879,3615998495
525
43879,402713831
-
53
f78e1200099879a826b9c636c6e22d77
https://hdreactor.club/tags/2013/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2013
35
43879,3449189815
215
-35
93
43879,3615998495
-
53
1fa1ede53495a82792d8d62010e2415f
https://hdreactor.club/tags/2012/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2012
35
43879,344224537
215
-35
93
43879,3615998495
-
53
c589bef80eb9a98641a8c6d13ee1449f
https://hdreactor.club/tags/2011/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2011
35
43879,3435300926
215
-35
93
43879,3615998495
-
53
bfa51aa9fe9e5eaa70f4eeeba636d5dc
https://hdreactor.club/tags/2010/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2010
35
43879,3428356481
215
-35
93
43879,3615998495
-
53
9f68e934a353e6e3a566b34ff3d65fe6
https://hdreactor.club/tags/2000/
01d91dae20d49c7f6fad742b734b57a8
515
2
512
2
532
2
700
2
553
2
42
3
4
2000
35
43879,3421412037
215
-35
93
43879,3615998495
525
43879,3653114468
-
51
567370b8b274e289b0727ad9cd0cd5d1
-SearchFolder
e2791e31-4e3f-43e3-b2e3-779fabe6cee2
515
2
512
2
532
2
700
2
553
2
42
3
4
Поиск
35
43879,3675347222
93
43879,3675394676
-
32
5d6ff7b0da0bed85b87f00d8720a5d04
-SearchCommands
567370b8b274e289b0727ad9cd0cd5d1
515
2
512
2
532
2
700
2
553
2
42
3
4
"Набрать текст"
35
43879,3668402778
200
5
500
mpiPreviousItemID = 200104;
mpiDoNothing = 201100;
Root = GetRoot();
gsTextSearch = HmsGetUserSearchText();
gsMsg = '';
gsSuggestUrl = 'http://www.google.ru/complete/search?sclient=psy-ab&q=';
gsSuggestResultCut = '';
gsSuggestRegExp = '\\["(.*?)",';
gsSuggestMethod = 'GET';
gnSuggestNoUTFEnc = 0;
///////////////////////////////////////////////////////////////////////////////
function GetRoot() {
folder = FolderItem;
while ((folder[mpiFilePath]!='-SearchCommands') && (folder.ItemParent!=nil)) folder=folder.ItemParent;
return folder;
}
///////////////////////////////////////////////////////////////////////////////
function CreateLink(folder, title, img) {
Item = HmsCreateMediaItem(folder.ItemID, folder.ItemID);
Item[mpiTitle ] = title;
Item[mpiThumbnail] = img;
}
///////////////////////////////////////////////////////////////////////////////
function CreateFolder(title, link) {
if (Trim(title)=='') title = 'Пробел';
folder = FolderItem.AddFolder(link, true);
folder[mpiTitle] = title;
folder.CopyProperties(FolderItem, [200, 500, 501]); // Копируем тип папки, скрипт, язык срипта
}
///////////////////////////////////////////////////////////////////////////////
function AddPodcastSearch(itemID) {
if (Trim(gsTextSearch)=='') { gsMsg = 'Текст поиска не набран! Добавлять нечего.'; return; }
if (LowerCase(gsTextSearch)==gsTextSearch) gsTextSearch = NameCase(gsTextSearch);
if (Trim(itemID)!='') Folder = Root.ItemParent.FindItemByProperty(mpiItemID, itemID);
else Folder = Root.ItemParent;
Item = Folder.AddFolder(gsTextSearch, false);
Item[mpiFilePath ] = Format('search="%s"', [gsTextSearch]);
Item[mpiTitle ] = gsTextSearch;
HmsDatabaseAutoSave(false);
gsMsg = Format('Подкаст "%s" добавлен в "%s"', [gsTextSearch, Folder[mpiTitle]]);
}
///////////////////////////////////////////////////////////////////////////////
function CreateSearchCommands() {
CreateFolder('#', '-Chars=!:');
CreateFolder('A-Z', '-Chars=AZ');
CreateFolder('А-Я', '-Chars=АЯ');
CreateFolder('Очистить текст поиска', '-Clear');
CreateFolder('Добавить в папку '+Root.ItemParent[mpiTitle], '-Save=');
for(i=0; i<Root.ItemParent.ChildCount; i++) {
Item = Root.ItemParent.ChildItems[i];
if (Item.ItemClassID==51) CreateFolder('Добавить в папку '+Item[mpiTitle], '-Save='+Item[mpiItemID]);
}
CreateFolder('Очистить историю поиска в папке '+Root.ItemParent[mpiTitle], '-ClearHistory=');
for(i=0; i<Root.ItemParent.ChildCount; i++) {
Item = Root.ItemParent.ChildItems[i];
if (Item.ItemClassID==51) CreateFolder('Очистить историю поиска в папке '+Item[mpiTitle], '-ClearHistory='+Item[mpiItemID]);
}
}
///////////////////////////////////////////////////////////////////////////////
function ClearSearchHistory(itemID) {
if (Trim(itemID)!='') Folder = Root.ItemParent.FindItemByProperty(mpiItemID, itemID);
else Folder = Root.ItemParent;
for(i=0; i<Folder.ChildCount; i++) {
Item = Folder.ChildItems[i]; // Ищем все элементы, у которых значение mpiFilePath начиначется с 'search'
if (LeftCopy(Item[mpiFilePath], 6)=='search') { Item.Delete(); i--; }
}
gsMsg = 'История поиска в папке "'+Folder[mpiTitle]+'" очищена';
}
///////////////////////////////////////////////////////////////////////////////
function CreateCharFolders(chars) {
ch1 = Copy(chars, 1, 1); ch2 = Copy(chars, 2, 1);
CreateFolder('Удалить последний символ', '-Char=Delete'); // Вначале - команда удаления символа
CreateFolder(' ', '-Char= '); // Пробел
for (i=ord(ch1); i<=ord(ch2); i++) CreateFolder(Chr(i), '-Char='+Chr(i));
}
///////////////////////////////////////////////////////////////////////////////
function LoadSuggestions() {
// Suggestions ------ Блок работы с подсказками -------
if ((LeftCopy(gsTextSearch, 1)==' ') || (Trim(gsSuggestUrl)=='') || (Length(gsTextSearch)<2)) return;
nPort = 80; if (LeftCopy(gsSuggestUrl, 5)=="https") nPort = 443;
text = gsTextSearch; if (gnSuggestNoUTFEnc==0) text = HmsUtf8Encode(text); // Если не указано не кодировать в UTF - кодируем
text = HmsPercentEncode(text);
// Если есть ключ <TEXT> в запросе - заменяем его на значение набранного текста, иначе просто добавляем в конец
if (Pos('<TEXT>', gsSuggestUrl)>0) gsSuggestUrl = ReplaceStr(gsSuggestUrl, '<TEXT>', text);
else gsSuggestUrl += text;
HmsRegExMatch3('(https?://(.*?))(/.*)', gsSuggestUrl, urlBase, server, page);
if (gsSuggestMethod=='POST') HmsRegExMatch2('^(.*?)\\?(.*)', page, page, post);
headers = urlBase+'/\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'+
'Origin: '+urlBase+'/\r\n'+
'Accept: application/json, text/javascript, */*; q=0.01\r\n'; // Для включения возможности gzip в запросах
text = HmsSendRequestEx(server, page, gsSuggestMethod, 'application/x-www-form-urlencoded; Charset=UTF-8', headers, post, nPort, 0x10, retHeaders, true);
text = HmsUtf8Decode(text);
if (gsSuggestResultCut!='') HmsRegExMatch(gsSuggestResultCut, text, text);// Если есть выражение обрезки - обрезаем
text = HmsJsonDecode(text); TRegExpr t = TRegExpr.Create('(<[^>]+>)'); // Избавляемся от тегов в середине слов подсказки
TRegExpr reSearch = TRegExpr.Create(gsSuggestRegExp, PCRE_SINGLELINE);
if (reSearch.Search(text)) do {
s = reSearch.Match; gnTotalItems=0;
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 (Pos(LowerCase(gsTextSearch), LowerCase(s))<1) continue;
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(ReplaceStr(ReplaceStr(sCh, '\\', ''), ',', ''), ':', '');
CreateFolder('Вариант: '+sCh, '-SetText='+sCh);
}
} gnTotalItems++;
// Создаём папку с предложением варианта (подсказку)
if (LowerCase(s)!=LowerCase(gsTextSearch)) CreateFolder('Вариант: '+s, '-SetText='+s);
if (gnTotalItems>100) break; // Ограничиваем количество создаваемых элементов = 100
} while (reSearch.SearchAgain());
}
///////////////////////////////////////////////////////////////////////////////
{
// Если это повторный вызов, смены папки не произошло - ничего не делаем
if ((FolderItem.ItemID==Root[mpiPreviousItemID]) && !DebugMode && (FolderItem[mpiFilePath]!='-SearchCommands')) return;
FolderItem.DeleteChildItems(); Root[mpiPreviousItemID] = FolderItem.ItemID;
if (Root[mpiDoNothing]=='1') Root[mpiDoNothing] = ''; // Флаг "Ничего не делать" - например, при возврате в команду набирания буквы из подпапки варианта
else if (mpFilePath=='-SearchCommands') CreateSearchCommands();
else if (mpFilePath=='-Clear' ) gsTextSearch = '';
else if (mpFilePath=='-Char=Delete' ) gsTextSearch = LeftCopy(gsTextSearch, Length(gsTextSearch)-1); // Удаление последнего символа
else if (HmsRegExMatch('-Save=(.*)' , mpFilePath, chars)) AddPodcastSearch (chars);
else if (HmsRegExMatch('-ClearHistory=(.*)', mpFilePath, chars)) ClearSearchHistory(chars);
else if (HmsRegExMatch('-Char=(.+)' , mpFilePath, chars)) { if (chars=='') chars =' '; gsTextSearch += chars; }
else if (HmsRegExMatch('-Chars=(.+)' , mpFilePath, chars)) CreateCharFolders(chars);
else if (HmsRegExMatch('-SetText=(.+)', mpFilePath, chars)) { gsTextSearch = chars; Root[mpiDoNothing]='1'; } // включаем флаг не выполнять команду при возврате из этой папки
HmsSetUserSearchText(gsTextSearch);
if (gsMsg!='') CreateLink(FolderItem, gsMsg, 'http://wonky.lostcut.net/icons/ok.png');
else CreateLink(FolderItem, 'Текст поиска: '+gsTextSearch, 'http://wonky.lostcut.net/icons/search-icon1.jpg');
CreateLink(Root, 'Текст поиска: '+gsTextSearch, 'http://wonky.lostcut.net/icons/search-icon1.jpg');
if (HmsRegExMatch('-(Char)=', mpFilePath, '')) LoadSuggestions();
HmsIncSystemUpdateID(); // Говорим устройству об обновлении содержания
}
501
JScript
215
-35
93
43879,3675394676
-
53
a578f8c1-35dd-40e3-a4b2-0bcb53185543
567370b8b274e289b0727ad9cd0cd5d1
515
2
512
2
532
2
700
2
553
2
42
3
4
Шучу
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
a578f8c1-35dd-40e3-a4b2-0bcb53185543
93
43879,368510162
525
43879,3685628472