3 51 6c036f48-610d-4b5e-87ce-8ec034a1d612 -RootTorrentRover 234DF17B-418C-4FDC-9DFE-CD0C586D2E76 4 Torrent Rover 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 570 1 245 6c036f48-610d-4b5e-87ce-8ec034a1d612 93 41944,7456767824 510 # 2017.10.17 MinVerHMS: 1.99 ###### П О И С К ############################################################ Search: - Name : Uniongang Enable: 1 Url : http://uniongang.net/browse.php?search=<TITLE>&incldead=1&cat=0&dsearch= Method: GET Block : <tr>.*?(<a[^>]+href="http://uniongang.net/torrent-.*?</a>) Title : (<a.*</a>) Link : <a[^>]+href="(.*?)" NextPage: .*<a[^>]+href="(browse.php[^"]+page=\d+) NoUtf8Encode: 1 - Name : Rutracker.org Enable: 1 Url : https://rutracker.org/forum/tracker.php?nm=<TITLE> Method: POST Block : (<a[^>]+data-topic_id.*?</a>) Title : (<a.*?)/?</a> Link : <a[^>]+href="(.*?)" NextPage: .*<a[^>]+class="pg"[^>]+href="([^"]+)">След.</a> PHPProxy: http://rutracker2.000webhostapp.com/proxy.php - Name : Rutor.org Enable: 1 Url : http://proxy-rutor.org/search/0/0/000/0/<TITLE> Block : (<tr[^>]+(tum|gai).*?</tr>) Title : (<a[^>]+href="/torrent.*?</a>) Link : <a[^>]+href="(/torrent.*?)" NextPage: <a[^>]+href="([^"]+)"><b>След. - Name : Tfile.co Enable: 0 Url : http://tfile.co/mdb/search-ext/go?text=<TITLE> Block : (<div[^>]+class="line-name".*?</div>) Title : (<a.*?</a>) Link : <a[^>]+href="(.*?)" NoUtf8Encode: 1 - Name : Torrentino.net Enable: 0 Url : http://www.torrentino.net/search?search=<TITLE> Block : (<tr[^>]+class="item.*?</tr>) Title : (<a.*?</a>) Link : <a[^>]+href="(.*?)" PageInfo: {Pages: 2, PagesParam: ?&page=<PN>} NextPage: .*<a[^>]+href="([^"]+page=.*?)">След - Name : NNTT Enable: 1 Headers: X-Requested-With: XMLHttpRequest Url : http://www.nntt.org/find.php?find=<TITLE> Block : (<a[^>]+topictitle.*?</a>) Title : (<a.*?</a>) Link : href="(.*?)" - Name : NNportal.org Enable: 0 Url : http://www.google.com/search?num=100&q=<TITLE>+site%3Annportal.org Block : (<h\d[^>]+class="r".*?</h\d>) Title : (<a.*?</a>) Link : <a[^>]+href="(http://nnportal.org/tracker/.*?)" - Name : Torrents-NN Enable: 0 Url : http://www.google.com/search?num=100&q=<TITLE>+site%3Apeerates.ws Block : (<h\d[^>]+class="r".*?</h\d>) Title : (<a.*?</a>) Link : <a[^>]+href="(http://nnportal.org/tracker/.*?)" - Name : Torrents.omsk.ru Enable: 0 Url : http://torrents.omsk.ru/tracker.php?nm=<TITLE> Method: POST Block : (<a[^>]+viewtopic.php\?t=.*?</a>) Title : (<a.*?</a>) Link : <a[^>]+href="(.*?)" NextPage: .*<a[^>]+href="([^"]+)">След.</a> - Name : kinohd.net Enable: 0 Url : http://kinohd.net/?do=search&subaction=search&story=<TITLE> Method: POST Block : class="films-list"(.*?)current-rating Title : (<h\d.*?</h\d>) Link : .*<a[^>]+href="(.*?)" NoUtf8Encode: 1 NextPage: .*<a[^>]+href="([^"]+)[^>]+>Далее</a> - Name : Riper.am Enable: 0 Url : http://riperam.org/search.php?keywords=<TITLE>&sr=topics&sf=titleonly&fp=1&tracker_search=torrent Block : class[^>]+row(.*?)</li> Title : (<a[^>]+class="(forum|topic)title".*?</a>) Link : <a[^>]+href="([^"]+)"[^>]+class="(forum|topic)title" NextPage: .*<a[^>]+href="([^"]+)"[^>]+>След.</a> - Name : Bigtorrent Enable: 1 Url : http://bigtorrent.org/search/index.php?q=<TITLE> Block : (<li.*?</li>) Cut : search-results(.*?)finished Title : (<a.*?</a>) Link : <a[^>]+href=["']([^"']+) NoUtf8Encode: 1 NextPage: <a[^>]+href="([^"]+)"[^>]+title="next page" - Name : HDPicture.ru Enable: 0 Url : http://hdpicture.ru/?do=search&titleonly=3&subaction=search&story=<TITLE> Method: POST Block : class="news"(.*?)class="br" Title : (<h\d.*?</h\d>) Link : .*<a[^>]+href="(.*?)" NoUtf8Encode: 1 NextPage: .*<a[^>]+href="([^"]+)[^>]+>Далее</a> #### П Р А В И Л А С А Й Т О В ############################################# 7tor_org: Conditions: - ConditionLink: /viewtopic.php\?t=\d+ Rule: Torrent - ConditionText: (feed-icon-forum) Block: (<a[^>]+forumtitle.*?</a>) Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" - ConditionText: (class=[^>]+topics) Cut : (<ul[^>]+class="[^"]*?topics.*?</ul>) Block: <li(.*?)</li> Title: (<a[^>]+viewtopic.php.*?</a>) Link : <a[^>]+href="([^"]*?viewtopic.php.*?)" Torrent: Subs : Субтитры.*?(:.*?)< Url : (/download/file.php\?id=\d+) Method : GET Seeders : class="[^"]*?seed.*?(\d+) Leechers: class="[^"]*?leech.*?(\d+) Date : Зарегистрирован.*?>(.*?)< Size : Размер:.*?<td>(.*?)</td> Image : prettyPhotoPosters.*?<img[^>]+src="(.*?)" Year : Год выпуска.*?(\d{4}) Duration: (?:Время звучания|Продолжительность)(.*?)<br Genre : Жанр.*?:(.*?)< Text : (<div[^>]+content.*?)<div[^>]+sp-wrap ############################################################################### bigtorrent_org: Conditions: - ConditionLink: (\.html)$ Rule: Torrent - ConditionText: class="post" Block: class="post"[^>]+(rel=".*?)post-footer Title: (<a.*?</a>) Link : <a[^>]+href=['"]([^'"]+) NextPage: <a[^>]+href="([^"]+)"[^>]+title="next page" Torrent: Url : (/engine/download.php\?id=\d+) Seeders : class[^>]+seed.*?(\d+) Leechers: class[^>]+leech.*?(\d+) Date : Торрент</td>.*?(<td.*?</td>) Size : Размер.*?>(.*?)< Image : <img[^>]+src=['"](/uploads.*?)['"] Year : Год выпуска.*?(\d{4}) Duration: (?:Время звучания|Продолжительность).*?>(.*?)<br Genre : Категория.*?>(.*?)< Quality : Качество:.*?>(.*?)< Downloads: .torrent скачан.*?(<td.*?</td>) Text : (<div[^>]+post-content.*?)<table ############################################################################### riperam_org: Conditions: - ConditionLink: (page\d+\.html)$ Block: class[^>]+row(.*?)</li> Title: (<a[^>]+class="(forum|topic)title".*?</a>) Link : <a[^>]+href="([^"]+)"[^>]+class="(forum|topic)title" NextPage: .*<a[^>]+href="([^"]+)"[^>]+>След.</a> - ConditionLink: (\.html)$ Rule: Torrent - ConditionText: <ul[^>]+(forums|topics) Block: class[^>]+row(.*?)</li> Title: (<a[^>]+class="(forum|topic)title".*?</a>) Link : <a[^>]+href="([^"]+)"[^>]+class="(forum|topic)title" NextPage: .*<a[^>]+href="([^"]+)"[^>]+>След.</a> Torrent: Url : (/download/file.php\?id=\d+) Seeders : class[^>]+seed.*?(\d+) Leechers: class[^>]+leech.*?(\d+) Date : Торрент</td>.*?(<td.*?</td>) Size : Размер.*?>(.*?)< Image : poster.*?<img[^>]+src=['"](http.*?)['"] Year : Год выпуска.*?(\d{4}) Duration: (?:Время звучания|Продолжительность).*?>(.*?)<br Genre : Жанр.*?>(.*?)< Quality : Качество:.*?>(.*?)< Downloads: .torrent скачан.*?(<td.*?</td>) Text : (<div[^>]+content.*?)</td ############################################################################### uniongang_net: Login: Url : http://uniongang.net/takelogin.php PostData : username=<LOGIN>&password=<PASSW> Method : POST NoRedirect: 1 NoCache : 1 Success : 302 Moved Conditions: - ConditionLink: /torrent-\d+ Rule: Torrent - ConditionText: (/torrent-\d+) Cut : Block: <tr>.*?(<a[^>]+href="http://uniongang.net/torrent-.*?</a>) Title: (<a.*</a>) Link : <a[^>]+href="(.*?)" NextPage: .*<a[^>]+href="(browse.php[^"]+page=\d+) Torrent: Subs : Субтитры.*?(:.*?)< Url : (download.php\?id=\d+) Method : GET Error : (<p[^>]+attach_link.*?</p>) Seeders : (\d+)\s+раздающих Leechers: (\d+)\s+качающих Date : Когда зарегистрирован.*?>(.*?)< Size : >([\d\.]+\s+GB) Image : Описание.*?<img[^>]+src="(http[^"]+(jpg|png))" Year : Год выхода.*?(\d{4}) Duration: (?:Время звучания|Продолжительность)(.*?)<br Genre : <b>Жанр:(.*?)<br Text : О фильме:(.*?<br.*?)<br ############################################################################### rutracker_org: PHPProxy: http://rutracker2.000webhostapp.com/proxy.php Login: Url : https://rutracker.org/forum/login.php?login_username=<LOGIN>&login_password=<PASSW>&login=%C2%F5%EE%E4 Method : POST NoRedirect: 1 NoCache : 1 Success : (302 Moved|302 Found|logout) Conditions: - ConditionLink: viewtopic.php\?t=\d+ Rule: Torrent - ConditionText: (forumlink|<a[^>]+id="tt-) Block: (<h\d[^>]+forumlink.*?</h\d>|<a[^>]+id="tt-.*?</a>) Title: (<a.*</a>) Link : <a[^>]+href="(.*?)" NextPage: .*<a[^>]+class="pg"[^>]+href="([^"]+)">След.</a> Torrent: Subs : Субтитры.*?(:.*?)< Url : (dl.php\?t=\d+) Method : POST PostData: { form_token: form_token\s*?:\s*?["'](.*?)["'] } Error : (<p[^>]+attach_link.*?</p>) Seeders : class="seed">.*?(\d+) Leechers: class="leech">.*?(\d+) Date : Когда зарегистрирован.*?>(.*?)< Size : tor-size-humn.*?>(.*?)< Image : postImgAligned[^>]+title="(http[^"]+(jpg|png))" Year : Год выпуска.*?(\d{4}) Duration: (?:Время звучания|Продолжительность)(.*?)<br Genre : Жанр.*?:(.*?)< Text : (<div[^>]+post_body.*?)<div[^>]+sp-wrap ############################################################################### proxy-rutor_org: Conditions: - ConditionLink: /torrent/\d+ Rule: Torrent - ConditionText: <h2><a href="/\w+" Block: (<h2><a[^>]+href="/\w+".*?</h2>) Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" - ConditionText: <tr[^>]+tum Block: (<tr[^>]+tum.*?</tr>) Title: (<a[^>]+href="/torrent.*?</a>) Link : <a[^>]+href="(/torrent.*?)" NextPage: <a[^>]+href="([^"]+)"><b>След. Torrent: Url: (/download/\d+) Seeders : Раздают</td><td>(.*?)< Leechers: Качают</td><td>(.*?)< Date : Добавлен</td><td>(.*?)< Size : Размер</td><td>(.*?)< Image : bannersout.*?<img[^>]+src=['"](http.*?)['"] Year : Год выпуска.*?(\d{4}) Duration: Продолжительность.*?>(.*?)<br Genre : Жанр:?<[^>]+>:?(.*?)< Text : (<table[^>]+details.*?)(<div[^>]+hidewrap|</table>) ############################################################################### tfile_co: Conditions: - ConditionLink: viewtopic.php\?t=\d+ Rule: Torrent - ConditionLink: /forum/\?c=\d+ Block: (<a[^>]+viewforum.php\?f=\d+.*?</a>) Title: (<a.*?</a>) Link : <a[^>]+href="(/.*?)" - ConditionText: <tr[^>]+id="t\d+" Block: class="t"(.*?)</tr> Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" NextPage: pagination.*?<a[^>]+href="(.[^"]+)" Torrent: Url : ["](download.php\?id=\d+.*?)["] Error : class="copyrasted">(.*?)< Seeders : (<span[^>]+seeders.*?</span>) Leechers: (<span[^>]+leechers.*?</span>) Date : title="Ссылка">(.*?)</a> Size : Размер содержимого.*?(<span.*?</span>) Image : class="pT".*?<img[^>]+src=["'](http.*?)["'] Year : Год выпуска.*?(\d{4}) Duration: Продолжительность.*?>(.*?)< Genre : Жанр:?(.*?)<br Text : (<div[^>]+class="pT".*?)<[^>]+clear="all" ############################################################################### tfile-music_org: Conditions: - ConditionLink: viewtopic.php\?t=\d+ Rule: Torrent - ConditionLink: /forum/\?c=\d+ Block: (<a[^>]+viewforum.php\?f=\d+.*?</a>) Title: (<a.*?</a>) Link : <a[^>]+href="(/.*?)" - ConditionText: <tr[^>]+id="t\d+" Block: class="t"(.*?)</tr> Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" NextPage: pagination.*?<a[^>]+href="(.[^"]+)" Torrent: Url : ["](download.php\?id=\d+.*?)["] Error : class="copyrasted">(.*?)< Seeders : (<span[^>]+seeders.*?</span>) Leechers: (<span[^>]+leechers.*?</span>) Date : title="Ссылка">(.*?)</a> Size : Размер содержимого.*?(<span.*?</span>) Image : class="pT".*?<img[^>]+src=["'](http.*?)["'] Year : Год выпуска.*?(\d{4}) Duration: Продолжительность.*?>(.*?)< Genre : Жанр:?(.*?)<br Text : (<div[^>]+class="pT".*?)<[^>]+clear="all" ############################################################################### www_torrentino_net: Conditions: - ConditionLink: /torrent/ Rule: Torrent - ConditionText: <tr[^>]+class="item Block: (<tr[^>]+class="item.*?</tr>) Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" PageInfo: {Pages: 4, PagesParam: ?&page=<PN>} NextPage: .*<a[^>]+href="([^"]+page=.*?)">След Torrent: Url: "([^"]+/torrent/\d+/download.*?)" Error : class="copyrasted">(.*?)< Seeders : Сиды.*?>(.*?)< Leechers: Личи.*?>(.*?)< Date : (<span[^>]+pdate.*?</span>) Size : <span>Скачать[^<>]+?(\d.*?)< Image : class="info".*?<img[^>]+src=["'](.*?)["'] Year : Год:.*?(\d{4}) Duration: Продолжительность:?(.*?)<br Genre : Жанр:(.*?)<br Text : Название:(.*?)<div[^>]+share Author : Исполнитель:(.*?)<br Album : Название:(.*?)<br ############################################################################### www_nntt_org: Conditions: - ConditionText: /download/file.php\?id=\d+ Rule: Torrent - ConditionText: <a[^>]+cat_title[^>]+href="http Block: (<a[^>]+cat_title[^>]+href="http.*?</a>) Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" - ConditionText: <a[^>]+forumlink Block: (<a[^>]+forumlink.*?</a>) Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" - ConditionText: <a[^>]+topictitle Block: (<a[^>]+topictitle.*?</a>) Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" NextPage: .*<a[^>]+href="([^"]+start=\d+)">След Torrent: Url : (/download/file.php\?id=\d+) Error : <td class="c1 border_lr p6 gen">(.*?)</td> Seeders : Сидеров.*?>(.*?)</span Leechers: Личеров.*?>(.*?)</span Date : Добавлен.*?>(.*?)< Size : Размер:.*?>(.*?)< Image : postbody.*?<img[^>]+src=["'](.*?)["'] Year : Год выпуска:.*?(\d{4}) Duration: Продолжительность:?(<.*?)<br Genre : >Жанр:?(<.*?)<br Text : Описание:.*?<br.*?>(.*?)<br ############################################################################### nnportal_org: Login: Url : http://nnportal.org/portal/ucp.php?mode=login PostData: username=<LOGIN>&password=<PASSW>&login=%D0%92%D1%85%D0%BE%D0%B4 Success : Moved Temporarily NoRedirect: 1 Conditions: - ConditionText: <a[^>]+cat_title[^>]+href="http Block: (<a[^>]+cat_title[^>]+href="http.*?</a>) Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" - ConditionText: <a[^>]+forumlink Block: (<a[^>]+forumlink.*?</a>) Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" - ConditionText: <a[^>]+topictitle Block: (<a[^>]+topictitle.*?</a>) Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" NextPage: .*<a[^>]+href="([^"]+/page.*?)">След - ConditionText: torrent.php\?mode=download Rule: Torrent Torrent: Url : (/torrent.php\?mode=download&.*?)" Error : <td class="c1 border_lr p6 gen">(.*?)</td> Seeders : Раздают.*?>(.*?)</span Leechers: Качают.*?>(.*?)</span Date : Зарегистрирован.*?>(.*?)< Size : Размер:.*?>(.*?)< Image : postbody.*?<img[^>]+src=["'](.*?)["'] Year : Год выпуска:.*?(\d{4}) Duration: Продолжительность:?(<.*?)<br Genre : >Жанр:?(<.*?)<br Text : (<div[^>]+postbody.*?)<div[^>]+(spoiler|clear) ############################################################################### peerates_ws: Login: Url : http://peerates.ws/login.php?do=login PostData: do=login&s=&vb_login_username=<LOGIN>&vb_login_password=<PASSW> Success : Set-Cookie NoRedirect: 1 Conditions: - ConditionLink: showthread.php\?t=\d+ Rule: Torrent - ConditionText: statusicon/(forum|thread) Block: ((statusicon/forum|threadtitle|vbpostrow_).*?<a[^>]+(forumdisplay|showthread.php\?[tp]=).*?</a>) Title: (<a[^>]+(forumdisplay|showthread.php\?[tp]=).*?</a>) Link : <a[^>]+href="((forumdisplay|showthread.php\?[tp]=).*?)" NextPage: <a[^>]+href="([^"]+page=\d+)" title="Следующая Torrent: Url: href="(attachment.php.*?)" Seeders : attachment.php.*?Сиды.*?>(.*?)(,|<) Leechers: attachment.php.*?Личеры.*?>(.*?)(,|<) Size : attachment.php.*?Размер:.*?>(.*?)(,|<) Image : post_message_.*?<img[^>]+src=["'](.*?)["'] Year : Год выпуска.*?(\d{4}) Duration: Продолжительность?(.*?)<br Genre : Жанр.*?:(.*?)<br Text : (<div[^>]+post_message_.*?)(<[^>]+spoiler|</div>) ############################################################################### torrents_omsk_ru: Login: Url : http://torrents.omsk.ru/login.php?login_username=<LOGIN>&login_password=<PASSW>&login=%C2%F5%EE%E4 Method : POST NoRedirect: 1 NoCache : 1 Success : Set-Cookie Conditions: - ConditionLink: viewtopic.php\?t=\d+ Rule: Torrent - ConditionText: (forumlink|<a[^>]+torTopic) Block: (<h\d[^>]+forumlink.*?</h\d>|<a[^>]+torTopic.*?</a>) Title: (<a.*</a>) Link : <a[^>]+href="(.*?)" NextPage: .*<a[^>]+href="([^"]+)">След.</a> Torrent: Url: (download.php\?id=\d+) Error : (<p[^>]+attach_link.*?</p>) Seeders : Seeders:.*?(\d+) Leechers: Качают:.*?(\d+) Date : Зарегистрирован.*?>(.*?)< Size : Размер:.*?>(.*?)< Image : <img[^>]+src="([^"]+)"[^>]+postImgAligned Year : Год выпуска.*?(\d{4}) Duration: Продолжительность.*?>(.*?)<br Genre : Жанр.*?:(.*?)< Subs : Субтитры.*?(:.*?)<br Text : (<div[^>]+post_body.*?)<div[^>]+(spoiler-body|class="clear") ############################################################################### hdpicture_ru: Conditions: - ConditionLink: (\.html)$ Rule: Torrent - ConditionText: class="news" Block: class="news"(.*?)class="n-views" Title: (<a.*?</a>) Link : <a[^>]+href="(.*?)" NextPage: .*<a[^>]+href="([^"]+)[^>]+>Далее</a> Torrent: Url : (/engine/download.php\?id=\d+) Seeders : Leechers : Date : class="n-date">(.*?)< Size : Размер:.*?>(.*?)< Image : sstory.*?<img[^>]+src=['"](http.*?)['"] Year : Год выхода.*?(\d{4}) Duration : (?:Время звучания|Продолжительность).*?>(.*?)<br Genre : Жанр:.*?>(.*?)< Quality : Качество:.*?>(.*?)< Downloads: class="li_download">(.*?)</ Text : (<div[^>]+sstory.*?)<div id=" ############################################################################### kinohd_net: Conditions: - ConditionLink: (\.html)$ Rule: Torrent - ConditionText: class="films-list" Block: class="films-list"(.*?)current-rating Title: (<h\d.*?</h\d>) Link : .*<a[^>]+href="(.*?)" NextPage: .*<a[^>]+href="([^"]+)[^>]+>Далее</a> Torrent: Url : (/engine/torrent.php\?nid=\d+&id=\d+) Seeders : Leechers : Date : Дата публикации:(.*?)< Size : Размер:(.*?)< Image : fullstory.*?<img[^>]+src=['"](.*?)['"] Year : Год выпуска.*?(\d{4}) Duration : (?:Время звучания|Продолжительность):(.*?)<br Genre : Жанр:(.*?)< Quality : Качество:(.*?)< Downloads: скачиваний:(.*?)</span> Text : (<div[^>]+fullstory.*?)</table> ############################################################################### rgfootball_net: Login: Url : http://rgfootball.net/login.php?login_username=<LOGIN>&login_password=<PASSW>&login=%D0%92%D1%85%D0%BE%D0%B4 Method : POST NoRedirect: 1 NoCache : 1 Success : Moved Temporarily Conditions: - ConditionLink: viewtopic.php\?t=\d+ Rule: Torrent - ConditionText: (forumlink|<a[^>]+id="tt-) Block : (<h\d[^>]+forumlink.*?</h\d>|<a[^>]+id="tt-.*?</a>) Title : (<a.*</a>) Link : <a[^>]+href="(.*?)" NextPage: .*<a[^>]+href="([^"]+)">След.</a> Torrent: Subs : Субтитры.*?(:.*?)< Url : (download.php\?id=\d+) Method : POST Error : (<th[^>]+id="opener".*?)<div Seeders : class="seed">.*?(\d+) Leechers: class="leech">.*?(\d+) Date : Зарегистрирован:.*?>(.*?)</ Size : Размер:.*?>(.*?)</ Image : postImgAligned[^>]+title="(http[^"]+(jpg|png))" Year : Год выпуска.*?(\d{4}) Duration: (?:Время звучания|Продолжительность).*?(\d{2}:\d{2}:\d{2}|\d{2}:\d{2}) Genre : Вид спорта.*?:(.*?)</span> Text : (<div[^>]+post_body.*?)<div[^>]+sp-wrap ############################################################################### nnm-club_name: Login: Load : http://nnm-club.name/forum/login.php CODE : name="code"[^>]+value="(.*?)" Url : http://nnm-club.name/forum/login.php?username=<LOGIN>&password=<PASSW>&autologin=on&redirect=index.php&code=<CODE>&login=%C2%F5%EE%E4 Method : POST NoRedirect: 1 NoCache : 1 Success : 302 Moved Conditions: - ConditionLink: \?t=\d+ Rule: Torrent - ConditionLink: nnm-club.name$ Cut : <b>Разделы</b>(.*?)</table> Block: (<a.*?</a>) Title: (<a.*?</a>) Link : <a[^>]+href=['"]([^'"]+) - ConditionLink: \?c=\d+ Block: <h2(.*?)</h2> Title: (<a.*?</a>) Link : <a[^>]+href=['"]([^'"]+) NextPage: .*<a[^>]+href="([^"]+)">След.</a> Torrent: Url : (download.php\?id=\d+) Seeders : class[^>]+seed.*?(\d+) Leechers: class[^>]+leech.*?(\d+) Date : Зарегистрирован:.*?</td>.*?(<td.*?</td>) Size : Размер:.*?</td>.*?(<td.*?</td>) Image : postImg.*?title=['"](http.*?)['"] Year : postbody.*?\((\d{4})\) Duration: (?:Время звучания|Продолжительность).*?>(.*?)<br Genre : Жанр.*?span>(.*?)< Quality : Качество.*?span>(.*?)< Text : (<div[^>]+postbody.*?)</tr> # Все поля содержат регулярные выражения для поиска или соответствия. # Все поля, кроме ссылки и наименования являются необязательными. # Возможные поля: # ConditionText - Условие, если регулярка выполняется в загруженном тексте по ссылке # ConditionLink - Условие, если регулярка выполняется в ссылке # Block - Поиск блоков, в котором будут искаться все последующие значения полей # Обязательные: Title,Link. Необязательные: Cut,Error,Year,Image,Seeders,Leechers,Size,Date,Text. 511 Нет скрипта 530 int gMode=1; //Variant FolderItem=PodcastItem; /////////////////////////////////////////////////////////////////////////////// // Г Л О Б А Л Ь Н Ы Е П Е Р Е М Е Н Н Ы Е // int INTERNET_FLAG_NO_AUTO_REDIRECT = 0x00200000; TStrings COOKIES=TStringList.Create(); int gnUpdateMode = 1, // Режим обновления: 0-Только сообщать о вышедшем обновлении, 1-Включить возможность обновить "с пульта телевизора" gnMaxPages = 10, gnMaxInGroup = 100, gnItemsAdded = 0, gnMaxTitleLength = 127, gnPages = 1, gnFirstPage = 1, gnPageMul = 1; string gsUrlBase = "", gsGroupingKey = "none", gsGroup = ""; string gsForumPost = "f=20&t=4127", // Тема и пост форума homemediaserver.ru, где выложен подкаст (для проверки обновлений) gsVersion = "2018.02.25", // Версия подкаста (то, что должно быть в комментарии к файлу на форуме) gsCacheDir = IncludeTrailingBackslash(HmsTempDirectory)+'TorrentRover\\', gsPreviewPrefix = "TorrentRover", MediaResourceLink = "", gsAudioPrifile = "Музыка (Визуализация)", gsDownloadsDir = IncludeTrailingBackslash(HmsTranscodingTempDirectory)+'Torrents'; string gsPHPProxy = ""; bool gbDebug = true; TDateTime gTimeStart = Now; bool gbYearInTitle; string gsTime="01:40:00.000"; Variant ROOTPODCAST = FolderItem; 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'+ 'Origin: http://www.google.com\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'; // Регулярные выражения для поиска на странице блоков с информацией о видео string gsPatternBlock = '', gsPatternTitle = '', gsPatternLink = '', gsPatternYear = '', gsPatternImg = '', gsPatternSeeders = '', gsPatternLeechers = '', gsPatternSize = '', gsPatternDate = '', gsPatternPages = '', gsPagesParam = '', gsCutBlock = '', gsNextPage = '', gsMethod = 'GET', ; /////////////////////////////////////////////////////////////////////////////// // Ф У Н К Ц И И // // ------------------------------------------ Проверка обновлений подкаста ---- bool CheckUpdates() { string sHtml, sVer, sVal, sText; THmsScriptMediaItem Folder, Item; if ((Pos('--chkupdates', mpPodcastParameters)<1) || (gsForumPost=='')) return; sVal = 'RottentRover'+DateToStr(gTimeStart); // Формируем идентификатор подкаста с датой старта if ((gsUserVariable3==sVal) && !DebugMode) return; // Если уже проверяли сегодяня, выходим gsUserVariable3 = sVal; // Запоминаем эту дату проверки обновления, дабы не проверять каждый раз // Загружаем страницу форума, где выложен данный подкаст sHtml = HmsDownloadUrl('http://homemediaserver.ru/forum/viewtopic.php?'+gsForumPost, '', true); sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml)); // Если указан номер сообщения на форуме - вырезаем из всей страницы только это сообщение if (HmsRegExMatch('(#p\\d+)', gsForumPost, sVal)) HmsRegExMatch(sVal+'(.*?)Скачиваний:', sHtml, sHtml); // Пытаемся получить комментарий к файлу = версию подкаста на форуме if (!HmsRegExMatch('Комментарий к файлу:</b>(.*?)</span>', sHtml, sVer)) return; if (Pos('*', sVer)>0) gnUpdateMode = 0; // Если версия помечена звездочкой, не даём автоматом обновлять if (sVer!=gsVersion) { // Версия не совпадает, формируем из сообщения текст информации о подкасте. HmsRegExMatch('<div[^>]+class="postbody">(.*?)<table', sHtml, sText); sText = HmsHtmlToText(sText); // В данном случае, вырезаем лишнее из текста информации о подкасте if (HmsRegExMatch('^(.*?)ВАЖНО!', sText, sVal, 1, PCRE_SINGLELINE)) sText=ReplaceStr(sText, sVal, ''); if (HmsRegExMatch('^(.*?)UPD', sText, sVal, 1, PCRE_SINGLELINE)) sText=ReplaceStr(sText, sVal, ''); //sText = ReplaceStr(sText, 'UPD', '|UPD'); TStrings INFO = TStringList.Create(); // Создаём объект TStrings для информации //INFO.Values['Poster'] = ''; INFO.Values['Title' ] = 'Обновление подкаста "Torrent Rover"'; INFO.Values['Info' ] = 'Текущая версия подкаста: '+gsVersion+'|Версия подкаста на сайте: '+sVer; INFO.Values['Descr' ] = ReplaceStr(sText, '\r\n', '|'); Folder = CreateFolder(FolderItem, ' Есть обновления подкаста'); if (gnUpdateMode>0) { Item = HmsCreateMediaItem('Обновить подкаст', Folder.ItemID); Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/refresh.png'; Item[mpiTimeLength] = '00:00:30.000'; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; } Item = HmsCreateMediaItem('InfoUpdate', Folder.ItemID); Item[mpiTitle ] = 'Информация'; Item[1001001 ] = INFO.Text; Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg'; Item[mpiTimeLength] = '00:00:30.000'; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; INFO.Free(); } } // --------------------------------------------------- Обновление подкаста ---- void UpdatePodcast() { string sTitle, sData, sVal, sLink, sHtml, sMsg, sFile, sDir, sRootPath, sDescr=''; TXMLDocument xmlDoc; TXMLItem xmlItem; TStrings FILELIST; int i; THmsScriptMediaItem Item, RootPodcast = FolderItem; sTitle = 'Обновление подкаста "Torrent Rover"'; sRootPath = '-RootTorrentRover'; // Поиск корневой папки подкаста while ((RootPodcast[mpiFilePath]!=sRootPath) && (RootPodcast.ItemParent!=nil)) RootPodcast = RootPodcast.ItemParent; if (RootPodcast[mpiFilePath]!=sRootPath) { ShowVideoMessage('Не найдена корневая папка подкаста с путём '+sRootPath, sTitle); return; } // Загружаем страницу форума, где выложен данный подкаст sHtml = HmsDownloadUrl('http://homemediaserver.ru/forum/viewtopic.php?'+gsForumPost, '', true); sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml)); // Если указан номер сообщения на форуме - вырезаем из всей страницы только это сообщение if (HmsRegExMatch('(#p\\d+)', gsForumPost, sVal)) HmsRegExMatch(sVal+'(.*?)Скачиваний:', sHtml, sHtml); // Пытаемся получить комментарий к файлу = версию подкаста на форуме if (!HmsRegExMatch('(/download/file.php\\?id=.*?)"', sHtml, sLink)) { ShowVideoMessage('Невозможно найти ссылку на скачивание файла.', sTitle, 1); return; } sLink = HmsExpandLink(sLink, 'http://homemediaserver.ru/forum'); // Дополняем относительную ссылку до полной sFile = ExtractShortPathName(HmsTempDirectory)+'\\updateTwitchTV.zip'; // Файл, куда скачивается новый подкаст sDir = ExtractShortPathName(HmsTempDirectory)+'\\updateTwitchTV'; // Каталог, куда распаковывается файл sMsg = '<c:#E22>При выполнении обновления возникла ошибка. Обновление не выполнено!'; // Сообщение, если возникнет ошибка FILELIST = TStringList.Create(); xmlDoc = TXMLDocument.Create(); try { while (true) { if (!HmsDownloadURLToFile(sLink, sFile)); {sMsg='Неудаётся скачать файл обновления' ; break;} if (!HmsExtractFiles(sFile, sDir, true)); {sMsg='Неудаётся распаковать файл обновления'; break;} HmsGetFileList(sDir, FILELIST, '*.hdf'); // Получаем список файлов с расширением .hdf в FILELIST if (FILELIST.Count < 1) {sMsg='В скачанном архиве нет нового файла подкаста'; break;} xmlDoc.LoadFromFile(FILELIST[0]); // Загружаем первый файл в списке как TXMLDocument LoadPodcastFromXML(xmlDoc.Root, RootPodcast); // Загружаем новый подкаст (применяем обновлнеие) sMsg = '<s:'+IntToStr(Round(cfgTranscodingScreenHeight/9))+'>Обновление выполнено! </s>'; // Если мы дошли до сюда без Exception, значит всё прошло норм FolderItem[mpiTitle ] = 'Подкаст обновлён'; FolderItem[mpiFilePath ] = 'Info'; FolderItem[mpiThumbnail] = 'http://wonky.lostcut.net/vids/info.jpg'; sDescr = '||Было обновлено (добавлено) '+IntToStr(gnItemsAdded)+' элементов подкаста.'+ '|На некоторых устройствах необходимо выйти из подкаста вообще и обновить текушую ветку подкаста.'+ '|Помните, что выставленные или убранные ключи в поле "Дополнительные параметры" (например, настройки качества видео) были сброшены на "по-умолчанию" (как выставлено в скачанном подкасте).'+ '|'+ '|Если что-то не так при обновлении - сообщайте автору подкаста.'; HmsDatabaseAutoSave(); break; } } finally { FILELIST.Free(); TXMLDocument.Free(); } ShowVideoMessage(sMsg, sTitle, 0, sDescr); // Показываем сообщение HmsIncSystemUpdateID(); // Говорим устройству об обновлении содержания } // ---------------------------------------------- Загрузка подкаста из XML ---- void LoadPodcastFromXML(TXMLItem xmlParentItem, Variant ParentItem, int nNest=0) { int i, n; TXMLItem xmlItem, xmlCollection, xml; string sClassID, sItemPath, sName, sItemID; THmsScriptMediaItem Item; // Получаем коллекцию 'Properties', если не нашли - то это не то, что нужно xmlCollection = xmlParentItem.Find('Properties'); if (xmlCollection==nil) return; for (i=0; i<xmlCollection.Count; i++) { // Делаем обход всех параметров и применяем их к ParentItem xmlItem = xmlCollection.Items[i]; n = StrToIntDef(xmlItem.ChildValues["ID"], 0); if (n==0) continue; if ((n==245) || (n==517)) continue; // Parent ItemID и настройки приоритета качества пропускаем if ((nNest==0) && (n==4)) continue; // Не меняем имя подкаста верхнего уровня ParentItem[n] = xmlItem.ChildValues["Value"]; } xmlCollection = xmlParentItem.Find('ChildItems'); if (xmlCollection==nil) return; for (i=0; i<xmlCollection.Count; i++) { // Делаем обход всех дочерних элементов (подпапок) и добавляем их в ParentItem xmlItem = xmlCollection.Items[i]; sClassID = xmlItem.ChildValues["ClassID" ]; sItemPath = xmlItem.ChildValues["ItemPath"]; sItemID = xmlItem.ChildValues["ItemID" ]; if (sItemPath=='') { // Путь пустой, ну тогда ищем существующий сначала по ItemID и, если не найдём, по имени sName=''; Item=nil; for (n=0; n<ParentItem.ChildCount; n++) if (ParentItem.ChildItems[n].ItemID==sItemID) {Item=ParentItem.ChildItems[n]; break;} if (Item==nil) { xml = xmlParentItem.Find('Properties'); if (xml==nil) continue; for (n=0; n<xml.Count; n++) if (xml.Items[n].ChildValues["ID"]=='4') {sName=xml.Items[n].ChildValues["Value"]; break;} if (sName=='') continue; Item = ParentItem.FindItemByProperty(mpiTitle, sName); } if (Item==nil) Item = ParentItem.AddFolder(sName, false, StrToInt(sClassID)); Item[mpiFilePath] = ''; } else { if (sClassID=='5') Item = HmsCreateMediaItem(sItemPath, ParentItem.ItemID); else Item = ParentItem.AddFolder(sItemPath, false, StrToInt(sClassID)); } if ((Item!=ParentItem) && (Item!=nil)) LoadPodcastFromXML(xmlItem, Item, nNest+1); } gnItemsAdded++; } // ------------------------------------------ Формирование видео сообщения ---- 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; FolderItem[1001001] = INFO.Text; INFO.Free(); VideoPreview(); } // ------------------------------------ Получение название группы из имени ---- string GetGroupName(string sName) { string sGrp = '#'; if (HmsRegExMatch('([A-ZА-Я0-9])', sName, sGrp, 1, PCRE_CASELESS)) sGrp = Uppercase(sGrp); if (HmsRegExMatch('[0-9]', sGrp, sGrp)) sGrp = '#'; if (HmsRegExMatch('[A-Z]', sGrp, sGrp)) sGrp = 'A..Z'; return sGrp; } // ------------------------------------------------------- Создание ссылки ---- THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, char sLink, char sTitle="", char sImg="", char sYear="") { sTitle = ReplaceStr(sTitle, '/', '-'); THmsScriptMediaItem Item = ParentFolder.AddFolder(ReplaceStr(sLink, '\\', '/')); Item[mpiTitle ] = LeftCopy(sTitle, gnMaxTitleLength); Item[mpiFolderSortOrder] = "-mpCreateDate"; Item[mpiYear ] = sYear; // Для сортировки по годам Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; return Item; } // ----------------------------------- Создание ссылки-cообщения об ошибке ---- void CreateErrorItem(string sMsg) { THmsScriptMediaItem Item = HmsCreateMediaItem('Err'+IntToStr(FolderItem.ChildCount), FolderItem.ItemID); Item[mpiTitle ] = LeftCopy(ReplaceStr(sMsg, '_', '.'), gnMaxTitleLength); Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/symbol-error.png'; Item[mpiTimeLength] = '00:01:00.000'; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; } // ---------------------------------------- Создание информационной ссылки ---- void CreateInfoItem(char sTitle, char sVal) { THmsScriptMediaItem Item; sVal = Trim(sVal); if (sVal=="") return; Item = AddMediaItem(FolderItem, sTitle+': '+sVal, 'Info'+IntToStr(FolderItem.ChildCount)); Item[mpiTimeLength] = '00:01:00.000'; Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg'; } // ------------------------------------------------- Создание видео ссылки ---- THmsScriptMediaItem AddMediaItem(THmsScriptMediaItem Folder, char sTitle, char sLink='', char sGrp="") { THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID, sGrp); Item[mpiTitle ] = LeftCopy(ReplaceStr(sTitle, '.', ' '), gnMaxTitleLength); Item[mpiTimeLength] = gsTime; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; return Item; } // ----------------- Формирование видео с картинкой с информацией о фильме ---- bool VideoPreview() { char sVal, sFileImage, sImage, sTitle, sText, sLink, sData, sInfo=''; int xMargin=7, yMargin=10, nSeconds=10, nSecDel, nCnt, n, i; TStrings INFO; float nH=cfgTranscodingScreenHeight, nW=cfgTranscodingScreenWidth; if (HmsRegExMatch('--xmargin=(\\d+)', mpPodcastParameters, sVal)) xMargin=StrToInt(sVal); if (HmsRegExMatch('--ymargin=(\\d+)', mpPodcastParameters, sVal)) yMargin=StrToInt(sVal); sText = FolderItem.ItemOrigin.ItemParent[1001020]; if (sText=='') { INFO = TStringList.Create(); INFO.Text = FolderItem[1001001]; sTitle = INFO.Values['Title' ]; sInfo = INFO.Values['Info' ]; sText = INFO.Values['Descr' ]; INFO.Free(); } sText = ReplaceStr(sText, '\r\n', '|'); sImage = FolderItem.ItemOrigin.ItemParent[mpiThumbnail]; if (sText=="") sText = FolderItem.ItemOrigin.ItemParent[mpiTitle]+"|К сожалению, информация со страницы сайта не получена. :("; if (HmsRegExMatch('[\\w-]+[^\\|]+Описание:', sText, '')) sText = ReplaceStr(sText, 'Описание:', '|Описание:'); if (HmsRegExMatch('[\\w-]+[^\\|]+Страна:', sText, '')) sText = ReplaceStr(sText, 'Страна:', '|Описание:'); if (sInfo=='') sTitle = ExtractStr(sText, '|', 1); sText = ReplaceStr(sText, sTitle+'|', ''); if (RightCopy(sTitle, 3)==' - ') sTitle = LeftCopy(sTitle, Length(sTitle)-3); // HmsRegExMatch('(\\|\\w+:)', sText, sVal) TRegExpr RE = TRegExpr.Create('\\|([А-ЯA-Z\\s]+:)', PCRE_SINGLELINE || PCRE_CASELESS); try { if (RE.Search('|'+sText)) do sText = ReplaceStr(sText, re.Match, '<c:#FEEDD0>'+re.Match+' </c>'); while (RE.SearchAgain()); } finally { RE.Free(); } // FEE2C4 <c:#FFC3BD> sFileImage = ExtractShortPathName(gsCacheDir)+'videopreview_'; sText = Copy(sText, 1, 3000); if (sTitle=='') sTitle = ' '; sVal = FolderItem.ItemOrigin.ItemParent[1001021]; INFO = TStringList.Create(); INFO.Values['prfx'] = gsPreviewPrefix; if (sVal=='kp') { INFO.Values['bg'] = './backgrounds/stage-lights-on-728x455.jpg'; INFO.Values['fx'] = '3'; } else { INFO.Values['bg'] = 'http://payload114.cargocollective.com/1/7/225471/4588633/BG_DarkWood_o.jpg'; INFO.Values['fx'] = '0'; } /* INFO.Values['bg' ] = 'http://wallpaperswa.com/thumbnails/detail/20120713/floor%20patterns%20brown%20empty%20room%20dark%20tranquillity%20backgrounds%20darker%20depth%20of%20field%20photomanipulatio_wallpaperswa.com_70.jpg'; INFO.Values['fx' ] = '1'; INFO.Values['bg' ] = 'http://www.pageresource.com/wallpapers/wallpaper/noir-blue-dark_3512158.jpg'; INFO.Values['fx' ] = '3'; INFO.Values['bg' ] = 'http://simplywallpaper.net/pictures/2014/08/Guardians-of-the-Galaxy-Ronan-Ship-Wallpaper.jpg'; INFO.Values['fx' ] = '1'; */ if (sImage!='') { INFO.Values['wpic' ] = IntToStr(Round(nW/4)); // Ширина постера (1/4 ширины картинки) INFO.Values['xpic' ] = '10'; INFO.Values['ypic' ] = '10'; INFO.Values['urlpic'] = sImage; } INFO.Values['title'] = sTitle; INFO.Values['info' ] = sInfo; INFO.Values['descr'] = sText; INFO.Values['w' ] = IntToStr(Round(nW)); // Ширина картинки INFO.Values['h' ] = IntToStr(Round(nH)); INFO.Values['xm'] = IntToStr(xMargin); // Отступ текста INFO.Values['ym'] = IntToStr(yMargin); if (WordCount(sText, '\n')<18) { INFO.Values['fztitle'] = IntToStr(Round(nH/16)); // Размер шрифта относителен высоте кортинки INFO.Values['fzdescr'] = IntToStr(Round(nH/21)); } else { INFO.Values['fztitle'] = IntToStr(Round(nH/18)); // Размер шрифта относителен высоте кортинки INFO.Values['fzdescr'] = IntToStr(Round(nH/25)); } sData = ''; for (n=0; n<INFO.Count; n++) sData += '&'+Trim(INFO.Names[n])+'='+HmsHttpEncode(INFO.Values[INFO.Names[n]]); INFO.Free(); sLink = HmsSendRequestEx('wonky.lostcut.net', '/videopreview.php', 'POST', 'application/x-www-form-urlencoded', '', sData, 80, 0, '', true); if (LeftCopy(sLink, 4)!='http') {HmsLogMessage(2, 'Ошибка получения файла информации videopreview.'); return;} // Делим количество секунд видео информации на количество картинок (через какой период они будут сменяться) HmsDownloadURLToFile(sLink, sFileImage); for (n=0; n<nSeconds; n++) { nCnt++; if (nCnt>nSeconds) break; CopyFile(sFileImage, sFileImage+Format('%.3d.jpg', [nCnt]), false); } char sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3'; try { if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3); sFileMP3 = '-i "'+sFileMP3+'"'; } except { sFileMP3=''; } MediaResourceLink = Format('%s -f image2 -r 1 -i "%s" -c:v libx264 -pix_fmt yuv420p ', [sFileMP3, sFileImage+'%03d.jpg']); } // ---------------------------- Создание информационных ссылок с КиноПоиск ---- void InfoFromKP(string sKPid) { TStrings Info = GetInfoAboutFilmFromKP(sKPid); string sLink='', sText=''; if ((Trim(sKPID)=="") || (sKPID=="0")) return; CreateTrailersLinks(sKPid); CreateInfoItem('Рейтинг КП' , Info.Values['Kinopoisk']); CreateInfoItem('Рейтинг IMDb', Info.Values['IMDb' ]); CreateInfoItem('Год' , Info.Values['Year' ]); CreateInfoItem('Страна' , Info.Values['Country' ]); CreateInfoItem('Режиссёр' , Info.Values['Director' ]); CreateInfoItem('Жанр' , Info.Values['Genre' ]); CreateInfoItem('Producer' , Info.Values['Producer' ]); CreateInfoItem('Сценарий' , Info.Values['Author' ]); CreateInfoItem('Слоган' , Info.Values['Slogan' ]); CreateInfoItem('Длительность', Info.Values['Duration' ]); CreateInfoItem('Бюджет' , Info.Values['Budget' ]); sText = Info.Values['Title']+'\r\n'; if (Info.Values['Title_eng']!='') sText += 'Оригинальное название: '+Info.Values['Title_eng']+'\r\n'; sText += 'Год: '+Info.Values['Year']+' Страна: '+Info.Values['Country']+'\r\n'; if (Info.Values['Slogan']!='') sText += 'Слоган: '+Info.Values['Slogan']+'\r\n'; sText += 'Жанр: ' +Info.Values['Genre' ]+'\r\n'+ 'Режиссер: ' +Info.Values['Director']+'\r\n'+ 'В ролях: ' +Info.Values['Actors' ]+'\r\n'+ 'Продюсер: ' +Info.Values['Producer']+'\r\n'+ 'Сценарий: ' +Info.Values['Author' ]+'\r\n'+ 'Оператор: ' +Info.Values['Operator']+'\r\n'+ 'Композитор: ' +Info.Values['Composer']+'\r\n'+ 'Длительность: '+Info.Values['Duration']+'\r\n'; if (Info.Values['Budget']!='') sText += 'Бюджет: '+Info.Values['Budget']+'\r\n'; sText += 'Рейтинг КиноПоиск: '+Info.Values['Kinopoisk']+' <c:#FFFDDA>Рейтинг IMDb: '+Info.Values['IMDb']+' </c>'; FolderItem[1001020] = sText; FolderItem[1001021] = 'kp'; // Флаг о том, что это информация от кинопоиска (для другого фона) FolderItem[mpiThumbnail] = Info.Values['Poster']; Info.Free; } // ------------------------ Получение информации о фильме по ID кинопоиска ---- TStrings GetInfoAboutFilmFromKP(string sKPid) { char sData, sVal, sVal2; TStrings Info = TStringList.Create(); TJsonObject JSON = TJsonObject.Create(); HmsRegExMatch('(\\d+)', sKPid, sKPid); sData = HmsDownloadUrl('http://wonky.lostcut.net/kp.php?id='+sKPid, "Referer: Hello! it's HMS!", true); sData = ReplaceStr(sData, '&Nbsp;', ' '); if (Pos('{', sData)<1) return Info; try { JSON.LoadFromString(sData); Info.Values['Title' ] = HmsHtmlToText(JSON.S['Title']); Info.Values['Title_eng'] = HmsHtmlToText(JSON.S['Title_eng']); Info.Values['Year' ] = HmsHtmlToText(JSON.S['Year' ]); Info.Values['Director' ] = HmsHtmlToText(JSON.S['Director']); Info.Values['Country' ] = HmsHtmlToText(JSON.S['Country' ]); Info.Values['Genre' ] = ReplaceStr(JSON.S['Genre'], ', Слова', ''); Info.Values['Producer' ] = HmsHtmlToText(JSON.S['Producer']); Info.Values['Author' ] = HmsHtmlToText(JSON.S['Author' ]); Info.Values['Operator' ] = HmsHtmlToText(JSON.S['Operator']); Info.Values['Composer' ] = HmsHtmlToText(JSON.S['Composer']); Info.Values['Slogan' ] = HmsHtmlToText(JSON.S['Slogan']); Info.Values['Actors' ] = HmsHtmlToText(JSON.S['Actors']); Info.Values['Poster' ] = JSON.S['Poster' ]; Info.Values['Duration' ] = HmsTimeFormat(StrToIntDef(JSON.S['Duration'], 140)); Info.Values['Budget' ] = HmsHtmlToText(JSON.S['Budget']); Info.Values['Trailer' ] = JSON.S['Trailer' ]; if (JSON.S['raiting_kp\\rating_ball']!="") Info.Values['Kinopoisk'] = Format('%s (%s)', [HmsHtmlToText(JSON.S['raiting_kp\\rating_ball']), HmsHtmlToText(JSON.S['raiting_kp\\ratingCount'])]); if (JSON.S['raiting_imdb\\rating_ball']!="") Info.Values['IMDb' ] = Format('%s (%s)', [HmsHtmlToText(JSON.S['raiting_imdb\\rating_ball']), HmsHtmlToText(JSON.S['raiting_imdb\\ratingCount'])]); } finally { JSON.Free(); } return Info; } // ---------------------------------- Получить длительность в формате HMS. ---- char GetTimeLength(char sDura) { int nH, nM, nS, nSecs, nMins; char sH, sM, sS; if (Trim(sDura)=='') return ''; if (Pos(':', sDura)>0) { // Если там есть двоеточие, то думаем что там минуты:секунды или даже ещё и часы sDura=HmsHtmlToText(sDura); if (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 ''; } 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]); } // ------------------------------------- Установка первоначальных значений ---- void Init() { string sVal; ROOTPODCAST = FolderItem; while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) && (ROOTPODCAST.ItemParent != nil)) { if (Trim(ROOTPODCAST[510])!="") break; ROOTPODCAST = ROOTPODCAST.ItemParent; } //ROOTPODCAST[39000 ] = ''; //ROOTPODCAST[1003002] = ''; SetCookies(ROOTPODCAST[39000]); if (mpFilePath!='') { HmsRegExMatch('^(.*?://.*?)/', mpFilePath, gsUrlBase); if (gsUrlBase=='') gsUrlBase = mpFilePath; if (HmsRegExMatch('^(.*?)\\r\\n', gsHeaders, sVal)) gsHeaders = ReplaceStr(gsHeaders, sVal, mpFilePath); if (HmsRegExMatch('(Origin:.*?)\\r\\n', gsHeaders, sVal)) gsHeaders = ReplaceStr(gsHeaders, sVal, 'Origin: '+gsUrlBase); if (gsUrlBase!='') { gsCacheDir = IncludeTrailingBackslash(HmsTempDirectory)+gsUrlBase+'\\'; gsPreviewPrefix = gsUrlBase; } } Variant bDirExists = DirectoryExists(gsDownloadsDir); if (!bDirExists) ForceDirectories(gsDownloadsDir); } // ------------------------------ Yaml parser. Превращает YAML в TStrings. // Не вдумываться, это просто работает ---- 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; } } // ------------------------------------------ Проверка параметров подкаста ---- void CheckParameters () { string sVal; gbYearInTitle = (Pos('--yearintitle', mpPodcastParameters) > 0); HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, gsGroupingKey); HmsRegExMatch('--muzprofile="(.*?)"', mpPodcastParameters, gsAudioPrifile); if (HmsRegExMatch('--maxingroup=(\\d+)' , mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal); if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal); if (HmsRegExMatch('--titlelength=(\\d+)', mpPodcastParameters, sVal)) gnMaxTitleLength = StrToInt(sVal); } // ------------------------------------------- Загрузка страницы по ссылке ---- string LoadUrl(string sLink, string sMethod='', string sHeaders='', bool NoCache=false, bool NoRdrct=false, bool RetHdrs=false, string sPostData='') { string sHtml, sServer, sRequest='/', sAnswHeaders='', sVal; if ((sMethod=='POST') && (sPostData=='')) HmsRegExMatch('^.*?\\?(.*)', sLink, sPostData); if (gsPHPProxy!="") sLink = gsPHPProxy+"?"+Trim(sLink); int nPort=80, nFlags = 0x10; // INTERNET_COOKIE_THIRD_PARTY if (sMethod=='') sMethod='GET'; if (sPostData!='') sMethod='POST'; sLink = RightExpandLink(sLink); if (LeftCopy(sLink, 5)=='https') nPort = 443; if ((sMethod=='GET') && (nPort==80) && !NoCache && !NoRdrct && !RetHdrs) return HmsDownLoadURL(sLink, 'Referer: '+gsHeaders+GetCookies(), true); if (!HmsRegExMatch('^https?://(.*)', sLink, sServer)) return ''; HmsRegExMatch2('^(.*?)(/.*)', sServer, sServer, sRequest); if (HmsRegExMatch2('^(.*?):(\\d+)', sServer, sServer, sVal)) nPort = StrToIntDef(sVal, nPort); if (HmsRegExMatch('--nocache', mpPodcastParameters, '')) NoCache = true; if (sHeaders=='') sHeaders = gsHeaders; if (NoCache) nFlags = StrToInt('$80000000'); if (!NoCache) sHeaders += GetCookies(); if (NoRdrct) nFlags = (nFlags || INTERNET_FLAG_NO_AUTO_REDIRECT); sHtml = HmsSendRequestEx(sServer, sRequest, sMethod, 'application/x-www-form-urlencoded', sHeaders, sPostData, nPort, nFlags, sAnswHeaders, true); if (IsWine ) sHtml = HmsDecompressString(sHtml); // Для Linux if (RetHdrs) sHtml = sAnswHeaders + Trim(sHtml); SetCookies(sAnswHeaders); return sHtml; } // ----------------------------- Установка глобальной переменной gsHeaders ---- void SetHeaders(Variant HEADERS) { int i; char sNam, sVal, sOld; for (i=0; i<HEADERS.Count; i++) { sNam = Trim(HEADERS.Names(i)); if (sNam=='') continue; sVal = Trim(HEADERS.Values[sNam]); if (sVal=='') continue; if (HmsRegExMatch('('+sNam+':.*?)\\r\\n', gsHeaders, sOld)) gsHeaders = ReplaceStr(gsHeaders, sOld, sNam+': '+sVal); else gsHeaders += sNam+': '+sVal+'\r\n'; } } // -------------------------------------------- Установка значений 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(); ROOTPODCAST[39000] = GetCookies(); } // -------------------------------------------- Получение значений cookies ---- string 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]); } if (sCookies!='') sCookies = 'Cookie: '+Trim(sCookies)+'\r\n'; return sCookies; } // ------------------------- Запрос на вход, получение куки их запоминание ---- bool LoginRequest(TStrings WONKYBLK, string sDomen) { string sHtml='', sLink, sLogin, sPassw, sReq, sMethod='GET', sVal, sPostData=''; Variant vOBJECT; sLink = WONKYBLK.Values['Load']; if (Trim(sLink)!='') { sHtml = HmsDownloadURL(sLink, 'Referer: '+gsHeaders, true); } GetAllVars(WONKYBLK, sHtml); sLogin = WONKYBLK.Values['Login']; if (Trim(sLogin)=='') sLogin = mpPodcastAuthorizationUserName; sPassw = WONKYBLK.Values['Passw']; if (Trim(sPassw)=='') sPassw = mpPodcastAuthorizationPassword; if (Trim(sLogin)+Trim(sPassw)=='') { CreateErrorItem('Не указан логин и пароль для '+ReplaceStr(sDomen, '_', '.')); return false; } sVal = WONKYBLK.Values['Preload' ]; if (sVal!='') HmsDownloadURL(sVal, gsHeaders); sVal = WONKYBLK.Values['Method' ]; if (sVal!='') sMethod = sVal; sVal = WONKYBLK.Values['PostData']; if (sVal!='') sPostData = sVal; if (GetWonkyObject(WONKYBLK, 'Headers', vOBJECT)) SetHeaders(vOBJECT); sReq = WONKYBLK.Values['Url']; sHtml = LoadUrl(sReq, sMethod, '', WONKYBLK.Values['NoCache']!='', WONKYBLK.Values['NoRedirect']!='', true, sPostData); sVal = WONKYBLK.Values['Success']; if (sVal!='') return HmsRegExMatch(sVal, sHtml, '', 1, PCRE_SINGLELINE); return true; } // --------------- Проверить и получить ссылку на объект с именем sObjName ---- bool GetWonkyObject(TStrings OBLK, string sObjName, Variant &vOBJECT) { int n = OBLK.IndexOf(sObjName); if (n < 0) return false; vOBJECT = OBLK.Objects[n]; return (vOBJECT!=0); } // ------------------ Присвоение глобальным переменным значений из конфига ---- void ApplyCurrentConfigValues(Variant vOBJECT) { string sVal; Variant vSUBOBJECT; sVal = vOBJECT.Values['PHPProxy' ]; if (sVal!='') gsPHPProxy = sVal; sVal = vOBJECT.Values['Block' ]; if (sVal!='') gsPatternBlock = sVal; sVal = vOBJECT.Values['Title' ]; if (sVal!='') gsPatternTitle = sVal; sVal = vOBJECT.Values['Link' ]; if (sVal!='') gsPatternLink = sVal; sVal = vOBJECT.Values['Year' ]; if (sVal!='') gsPatternYear = sVal; sVal = vOBJECT.Values['Image' ]; if (sVal!='') gsPatternImg = sVal; sVal = vOBJECT.Values['Block' ]; if (sVal!='') gsPatternBlock = sVal; sVal = vOBJECT.Values['Seeders' ]; if (sVal!='') gsPatternSeeders = sVal; sVal = vOBJECT.Values['Leechers' ]; if (sVal!='') gsPatternLeechers = sVal; sVal = vOBJECT.Values['Size' ]; if (sVal!='') gsPatternSize = sVal; sVal = vOBJECT.Values['Date' ]; if (sVal!='') gsPatternDate = sVal; sVal = vOBJECT.Values['PagesParam']; if (sVal!='') gsPagesParam = sVal; sVal = vOBJECT.Values['Method' ]; if (sVal!='') gsMethod = sVal; sVal = vOBJECT.Values['NextPage' ]; if (sVal!='') gsNextPage = sVal; sVal = vOBJECT.Values['Cut' ]; if (sVal!='') gsCutBlock = sVal; sVal = vOBJECT.Values['UrlBase' ]; if (sVal!='') gsUrlBase = sVal; sVal = vOBJECT.Values['Pages' ]; if (StrToIntDef(sVal, 0)!=0) gnPages = StrToIntDef(sVal, gnPages); else if (sVal!='') gsPatternPages = sVal; if (GetWonkyObject(vOBJECT, 'Headers', vSUBOBJECT)) SetHeaders(vSUBOBJECT); if (GetWonkyObject(vOBJECT, 'PageInfo', vSUBOBJECT)) { sVal = vSUBOBJECT.Values['Pages']; if (StrToIntDef(sVal, 0)!=0) gnPages = StrToIntDef(sVal, gnPages); else if (sVal!='') gsPatternPages = sVal; gnFirstPage = StrToIntDef(vSUBOBJECT.Values['StartPage'], gnFirstPage); gnPageMul = StrToIntDef(vSUBOBJECT.Values['PageMul' ], gnPageMul ); sVal = vSUBOBJECT.Values['PagesParam']; if (sVal!='') gsPagesParam = sVal; sVal = vSUBOBJECT.Values['Method' ]; if (sVal!='') gsMethod = sVal; } } // -------------------- Проверка на наличие объекта Login и его выполнение ---- bool CheckLogin(TStrings vMAIN, string sDomen) { int n, i; Variant vSUBOBJECT; // Если есть блок с именем "Login", то выполняем запрос входа на сайт if (GetWonkyObject(vMAIN, 'Login', vSUBOBJECT)) { n = DateTimeToTimeStamp1970(Now, false); // Текущее время (в секундах) i = StrToIntDef(ROOTPODCAST[1003002], 0); // Берём время последнего удачного входа // Входим на сайт только если прошло более двух часов после последнего удачного входа if ( ((n-i) > (360*2)) || (gMode==1)) { if (!LoginRequest(vSUBOBJECT, sDomen)) { CreateErrorItem('Неверный логин или пароль для '+ReplaceStr(sDomen, '_', '.')); return false; } else { ROOTPODCAST[1003002] = n; // Запоминаем время последнего удачного входа }; } } return true; } /////////////////////////////////////////////////////////////////////////////// // ------------------------------------- Загрузка конфига и его приминение ---- string ApplyConfig(string sLink) { string sHtml='', sDomen, sCFG, sCond, sName, sVal; int i, n; bool bFound=false; Variant WONKY307, vMAIN, vOBJECT, vSUBOBJECT; THmsScriptMediaItem Item, Folder; WONKY307 = TStringList.Create(); try { // Берём конфиг из скрипта чтения дополнительных свойств RSS sCFG = ROOTPODCAST[510]; sDomen = ''; // Получаем конфиг HmsRegExMatch('//([^/]+)', mpFilePath, sDomen); // Получаем доменное имя sDomen = ReplaceStr(Trim(Lowercase(sDomen)), '.', '_'); whYamlParser('LoadFromString', WONKY307, sCFG); // Загружаем конфиг в TStrings // Если нет ссылки и это обновление подкаста, то делаем поиск названия if ((LeftCopy(mpFilePath, 4) != "http") && (gMode == 1)) { // Берём блок "Search" из конфига if (GetWonkyObject(WONKY307, 'Search', vSUBOBJECT)) { // Делаем обход всех объектов, перечисленных в блоке "Search" for (i=0; i<vSUBOBJECT.Count; i++) { vOBJECT = vSUBOBJECT.Objects[i]; if (vOBJECT==0) continue; if (HmsRegExMatch('^[НнNn0]', vOBJECT.Values['Enable'], '')) continue; // Если Enable = "0", "No" или "Нет" - пропускаем sLink = vOBJECT.Values['Url']; if (sLink=='') continue; sVal = mpTitle; if (vOBJECT.Values['NoUtf8Encode']!='1') sVal = HmsUtf8Encode(sVal); mpFilePath = ReplaceStr(sLink, '<TITLE>', HmsPercentEncode(sVal)); gsPHPProxy = ""; ApplyCurrentConfigValues(vOBJECT); Init(); //gsNextPage = ''; sHtml = LoadURL(mpFilePath, gsMethod); // Если на страничке устанавливаются куки - устанавливаем их и загружаем страничку снова if (HmsRegExMatch2('document.cookie.*?=.*?(\\w+)=(\\w+)', sHtml, sName, sVal)) { COOKIES.Values[sName] = sVal; sHtml = LoadURL(mpFilePath, gsMethod,'',false,false,true); } HmsRegExMatch('<base[^>]+href=["\'](.*?)["\']', sHtml, gsUrlBase); if (vOBJECT.Values['NoUTF8Decode']=='') sHtml = HmsUtf8Decode(sHtml); gsGroup = vOBJECT.Values['Name']; // Устанавливаем глобальное значение группы, в которой будут создаваться ссылки CreateLinks(' '+sHtml); gsMethod = 'GET'; gsGroup = ""; // Восстанавливаем значения } } return ''; } if (!GetWonkyObject(WONKY307, sDomen, vMAIN)) { // Ищем объект с именем нашего домена CreateErrorItem('Нет правил для сайта '+sDomen); return ''; } // Применяем значения нашего кофига ApplyCurrentConfigValues(vMAIN); // Проверяем, нужно ли выполнить Login. Если вход необходим, но не удался - ошибка if (!CheckLogin(vMAIN, sDomen)) return ''; sHtml = LoadURL(sLink, gsMethod); if (HmsRegExMatch2('document.cookie.*?=.*?(\\w+)=(\\w+)', sHtml, sName, sVal)) { COOKIES.Values[sName] = sVal; sHtml = LoadURL(mpFilePath, gsMethod,'',false,false,true); //sHtml = LoadURL(sLink, gsMethod); } HmsRegExMatch('<base[^>]+href=["\'](.*?)["\']', sHtml, gsUrlBase); if (vMAIN.Values['NoUTF8Decode']=='') sHtml = HmsUtf8Decode(sHtml); // Если есть объект Conditions, то перебираем условия оттуда if (GetWonkyObject(vMAIN, 'Conditions', vSUBOBJECT)) { for (i=0; i<vSUBOBJECT.Count; i++) { vOBJECT = vSUBOBJECT.Objects[i]; if (vOBJECT==0) continue; sCond = vOBJECT.Values['ConditionText']; if (Trim(sCond)!='') bFound = HmsRegExMatch(sCond, sHtml, '', 1, PCRE_SINGLELINE); sCond = vOBJECT.Values['ConditionLink']; if (Trim(sCond)!='') bFound = HmsRegExMatch(sCond, sLink, '', 1, PCRE_SINGLELINE); if (bFound) { if (gbDebug) HmsLogMessage(1, 'Найдено совпадение Condition №'+IntToStr(i+1)); ApplyCurrentConfigValues(vOBJECT); sVal = vOBJECT.Values['Rule']; if (sVal!='') { if (GetWonkyObject(vMAIN, sVal, vSUBOBJECT)) CreateTorrentLinks(vSUBOBJECT, sHtml); return ''; } break; } } } } finally { WONKY307.Free; } if (Trim(gsPatternBlock)=="") { CreateErrorItem('Неизвестное содержимое страницы '+sDomen); return ''; } return sHtml; } // ------------------------ Восстановление отностительной ссылки до полной ---- string RightExpandLink(string sLink) { if (Trim(sLink)=='') return ''; string sLongBase = gsUrlBase; HmsRegExMatch('^(.*?//.*)/', mpFilePath, sLongBase); if (LeftCopy(sLink, 4)!='http') { if (HmsRegExMatch('^\\.(/.*)', sLink, sLink)) sLink = gsUrlBase + Trim(sLink); else if (sLink[1]!='/') sLink = sLongBase + '/' + Trim(sLink); else sLink = HmsExpandLink(sLink, gsUrlBase); } return ReplaceStr(sLink, 'amp;', ''); } // ----------------------------------------- Замена значений всех полей ---- void GetAllVars(TStrings vOBJECT, string sHtml='') { int i; string sName, sVal, sVarValue, sVar, sText; TRegExpr RE = TRegExpr.Create('<(\\w+)>', PCRE_CASELESS); try { // Обходим все установленные поля и заносим их значения в VARS // Если в значении встречается скобки - это регулярное выражение для поиска значения в html // Если в значении встречается <ИМЯ> - это выражение заменяется на значение поля ИМЯ for (i=0; i<vOBJECT.Count; i++) { sName = vOBJECT.Names[i]; sVal = vOBJECT.Values[sName]; if (Pos('(', sVal)>0) if (!HmsRegExMatch(sVal, sHtml, sVal)) continue; if (Trim(sVal)=="") continue; if (Pos(sName, 'Url|Image')>0) sVal = RightExpandLink(sVal); if ((sVal!='') && (sVal[1]==':')) sVal = Trim(Copy(sVal, 2, 999)); if (sName=='Genre' ) sVal = NameCase(sVal); if (sName=='Duration') sVal = GetTimeLength(sVal); vOBJECT.Values[sName] = sVal; // Запоминаем значение } for (i=0; i<vOBJECT.Count; i++) { sName = vOBJECT.Names[i]; sText = vOBJECT.Values[sName]; if (RE.Search(sText)) do { sVar = RE.Match; sVal = vOBJECT.Values[sVar]; if (sVal=='') { if (SameText(sVar, 'LOGIN')) sVal = HmsPercentEncode(mpPodcastAuthorizationUserName); if (SameText(sVar, 'PASSW')) sVal = HmsPercentEncode(mpPodcastAuthorizationPassword); } sText = ReplaceStr(sText, '<'+sVar+'>', sVal); } while (RE.SearchAgain()); vOBJECT.Values[sName] = sText; } } finally { RE.Free; } } // ----------------------------------------- Создание ссылок торрент файла ---- void CreateTorrentLinks(Variant vOBJECT, string sHtml) { string sData, sID='', sVarValue, sLink='', sName='', sFile, sVal, sKPid='', sIMDBid='', sPostData=''; sHtml = HmsRemoveLineBreaks(sHtml); TStrings VARS = TStringList.Create(); Variant vSUBOBJECT; int i; TRegExpr RE = TRegExpr.Create('<(\\w+)>', PCRE_CASELESS); try { // Обходим все установленные поля и заносим их значения в VARS // Если в значении встречается скобки - это регулярное выражение для поиска значения в html // Если в значении встречается <ИМЯ> - это выражение заменяется на значение поля ИМЯ for (i=0; i<vOBJECT.Count; i++) { sName = vOBJECT.Names[i]; sVal = vOBJECT.Values[sName]; if (Pos('(', sVal)>0) if (!HmsRegExMatch(sVal, sHtml, sVal)) sVal = ''; if (Trim(sVal)=="") continue; if (Pos(sName, 'Url|Image')>0) sVal = RightExpandLink(sVal); else sVal = HmsHtmlToText(sVal); if ((sVal!='') && (sVal[1]==':')) sVal = Trim(Copy(sVal, 2, 999)); if (sName=='Genre' ) sVal = NameCase(sVal); if (sName=='Duration') sVal = GetTimeLength(sVal); // Ищем все "<Имя>", и заменяем их на значение поля с таким именем if (RE.Search(sVal)) do { sVarValue = VARS.Values[RE.Match]; if (sVarValue=='') { if (RE.Match=='LOGIN') sVarValue = HmsPercentEncode(mpPodcastAuthorizationUserName); if (RE.Match=='PASSW') sVarValue = HmsPercentEncode(mpPodcastAuthorizationPassword); } sVal = ReplaceStr(sVal, '<'+RE.Match+'>', sVarValue); } while (RE.SearchAgain()); VARS.Values[sName] = sVal; // Запоминаем значение } sLink = VARS.Values['Url']; if (Trim(sLink)!="") { if (GetWonkyObject(vOBJECT, 'PostData', vSUBOBJECT)) sPostData = GetAdditionalPostData(vSUBOBJECT, sHtml); sData = LoadUrl(sLink, VARS.Values['Method']); } if (Pos('8:announce', sData)<1) { ROOTPODCAST[1003002] = ""; // Время последней удачной авторизации на сайте sVal = VARS.Values['Error']; if (sVal=='') sVal = 'Ошибка получения torrent файла '+sLink; CreateErrorItem(sVal); return; } HmsRegExMatch('kinopoisk.ru/rating/(\\d+)', sHtml, sKPid); HmsRegExMatch('kinopoisk.ru/film/(\\d+)' , sHtml, sKPid); HmsRegExMatch('imdb.com/title/tt(\\d+)' , sHtml, sIMDBid); HmsRegExMatch('imdb/\\w+/(\\d+)' , sHtml, sIMDBid); sVal = VARS.Values['Text' ]; if (sVal!='') FolderItem[1001020 ] = sVal; // Текст для показа информации sVal = VARS.Values['Image' ]; if (sVal!='') FolderItem[mpiThumbnail ] = sVal; sVal = VARS.Values['Year' ]; if (sVal!='') FolderItem[mpiYear ] = sVal; sVal = VARS.Values['Duration']; if (sVal!='') FolderItem[mpiTimeLength ] = sVal; sVal = VARS.Values['Genre' ]; if (sVal!='') FolderItem[mpiGenre ] = sVal; sVal = VARS.Values['Author' ]; if (sVal!='') FolderItem[mpiAuthor ] = sVal; sVal = VARS.Values['Author' ]; if (sVal!='') FolderItem[mpiAlbumArtist] = sVal; sVal = VARS.Values['Album' ]; if (sVal!='') FolderItem[mpiAlbum ] = sVal; // Сохраняем торрент в файл sFile = IncludeTrailingBackslash(gsDownloadsDir)+FolderItem.ItemID+'.torrent'; HmsStringToFile(sData, sFile); // Создание ссылкок на файлы внутри торрент-файла CreateTorrentItems(sFile); // Создание информационных ссылкок CreateInfoItem('Раздают' , VARS.Values['Seeders' ]); CreateInfoItem('Качают' , VARS.Values['Leechers' ]); CreateInfoItem('Размер' , VARS.Values['Size' ]); CreateInfoItem('Добавлен', VARS.Values['Date' ]); CreateInfoItem('Год' , VARS.Values['Year' ]); CreateInfoItem('Жанр' , VARS.Values['Genre' ]); CreateInfoItem('Cубтитры', VARS.Values['Subs' ]); CreateInfoItem('Качество', VARS.Values['Quality' ]); CreateInfoItem('Скачало' , VARS.Values['Downloads']); // Если есть id фильма с КиноПоиска, создаём папку для получения информации if (sKPid!='') CreateFolder(FolderItem, 'KPInfo='+sKPid, 'Информация с КиноПоиск.ru'); } finally { VARS.Free; RE.Free; } } /////////////////////////////////////////////////////////////////////////////// // Получение дополнительных данных для Post запроса string GetAdditionalPostData(Variant vObject, string sHtml) { string sName, sVal, sVarValue; sHtml = HmsRemoveLineBreaks(sHtml); TStrings VARS = TStringList.Create(); Variant vSUBOBJECT; int i; TRegExpr RE = TRegExpr.Create('<(\\w+)>', PCRE_CASELESS); string sPostData = ''; try { // Обходим все установленные поля и заносим их значения в VARS // Если в значении встречается скобки - это регулярное выражение для поиска значения в html // Если в значении встречается <ИМЯ> - это выражение заменяется на значение поля ИМЯ for (i=0; i<vOBJECT.Count; i++) { sName = vOBJECT.Names[i]; sVal = vOBJECT.Values[sName]; if (Pos('(', sVal)>0) if (!HmsRegExMatch(sVal, sHtml, sVal)) sVal = ''; if (Trim(sVal)=="") continue; sVal = ReplaceStr(sVal, '&uarr;', ''); sVal = ReplaceStr(sVal, '&darr;', ''); if (Pos(sName, 'Url|Image')>0) sVal = RightExpandLink(sVal); else sVal = HmsHtmlToText(sVal); if ((sVal!='') && (sVal[1]==':')) sVal = Trim(Copy(sVal, 2, 999)); // Ищем все "<Имя>", и заменяем их на значение поля с таким именем if (RE.Search(sVal)) do { sVarValue = VARS.Values[RE.Match]; if (sVarValue=='') { if (RE.Match=='LOGIN') sVarValue = HmsPercentEncode(mpPodcastAuthorizationUserName); if (RE.Match=='PASSW') sVarValue = HmsPercentEncode(mpPodcastAuthorizationPassword); } sVal = ReplaceStr(sVal, '<'+RE.Match+'>', sVarValue); } while (RE.SearchAgain()); VARS.Values[sName] = sVal; // Запоминаем значение } for (i=0; i<VARS.Count; i++) { if (i>0) sPostData += '&'; sName = VARS.Names[i]; sPostData += sName + '=' + VARS.Values[sName]; } } finally { VARS.Free; RE.Free; } return sPostData; } /////////////////////////////////////////////////////////////////////////////// // --------------------------------------- Создание ссылок файлов торрента ---- void CreateTorrentItems(string sFile, bool bDirectPath = false) { string sName, sLink, sVal; int nSecTotal; TTorrentFile TorrentFile; TTorrentSubFile TorrentSubFile, TorrentSubFile2; THmsScriptMediaItem Item; int i, n; bool bExistVideo=false, bExistAudio=false; TorrentFile = TTorrentFile.Create(); try { TorrentFile.LoadFromFile(sFile); if (TorrentFile.MultiFile) { FolderItem[mpiFolderSortOrder] = "mpTitle"; for (i=0; i<TorrentFile.Count; i++) { TorrentSubFile = TorrentFile.Files[i]; if (bDirectPath) { sLink = Format('torrent:%s?index=%d', [sFile, i]); } else { sLink = Format('torrent:%s?index=%d', [FolderItem.ItemID, i]); } sName = TorrentSubFile.Name; if (HmsFileMediaType(sName) == mtVideo) { bExistVideo = true; Item = AddMediaItem(FolderItem, sName, sLink, TorrentSubFile.Path); Item[mpiFileSize] = TorrentSubFile.Length; Item.CopyProperties(FolderItem, [mpiThumbnail, mpiTimeLength, mpiYear, mpiGenre]); } else if (HmsFileMediaType(sName) == mtAudio) { bExistAudio = true; Item = AddMediaItem(FolderItem, sName, sLink, TorrentSubFile.Path); Item[mpiFileSize] = TorrentSubFile.Length; Item.CopyProperties(FolderItem, [mpiThumbnail, mpiTimeLength, mpiYear, mpiGenre, mpiAuthor, mpiAlbum, mpiAlbumArtist]); Item[mpiTranscodingProfile] = gsAudioPrifile; if (Trim(Item[mpiThumbnail])=='') Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/3Dsound.jpg'; nSecTotal = HmsTimeConvert(Item[mpiTimeLength]); if (nSecTotal>0) Item[mpiTimeLength] = Int(nSecTotal * TorrentSubFile.Length / TorrentFile.Length); } else if (RightCopy(sName, 4) == '.srt') { // Поиск видео по имени for (n=0; n<TorrentFile.Count; n++) { TorrentSubFile2 = TorrentFile.Files[n]; sVal = TorrentSubFile2.Name; if (HmsFileMediaType(sVal)!=mtVideo) continue; sVal = ReplaceStr(sVal, ExtractFileExt(sVal), ''); if (SameText(sVal, LeftCopy(sName, Length(sVal)))) { Item = AddMediaItem(FolderItem, sName, sLink, 'Субтитры\\'+TorrentSubFile.Path); Item[mpiFileSize] = TorrentSubFile.Length; Item.CopyProperties(FolderItem, [mpiThumbnail, mpiTimeLength, mpiYear, mpiGenre]); Item[1002100] = TorrentSubFile.Name; // Полное имя файла субтитров Item[1002101] = TorrentFile.Name+'\\'+TorrentSubFile.Path; // Путь (Название торрент файла плюс путь до файла субтитров) Item[1002102] = IntToStr(n); // Запоминаем номер файла видео для нашего файла субтитров Item[1002103] = IntToStr(TorrentSubFile2.Length); // Запоминаем размер файла видео break; } } } } } else { if (bDirectPath) { sLink = Format('torrent:%s?index=%d', [sFile, 0]); } else { sLink = Format('torrent:%s?index=%d', [FolderItem.ItemID, 0]); } sName = TorrentFile.Name; if (sName=="") sName = FolderItem[4]+".avi"; if (HmsFileMediaType(sName) == mtVideo) { bExistVideo = true; Item = AddMediaItem(FolderItem, sName, sLink); Item[mpiFileSize] = TorrentFile.Length; Item.CopyProperties(FolderItem, [mpiThumbnail, mpiTimeLength, mpiYear, mpiGenre]); } else if (HmsFileMediaType(sName) == mtAudio) { bExistAudio = true; Item = AddMediaItem(FolderItem, sName, sLink); Item[mpiFileSize] = TorrentFile.Length; Item.CopyProperties(FolderItem, [mpiThumbnail, mpiTimeLength, mpiYear, mpiGenre, mpiAuthor, mpiAlbum, mpiAlbumArtist]); if (Trim(Item[mpiThumbnail])=='') Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/3Dsound.jpg'; } } } finally { TorrentFile.Free; } if (!bExistVideo && !bExistAudio) { CreateErrorItem('Нет видео или аудио файлов.'); } } // ---------------------------------------------------------------------------- void CreateLinksFromLocalFolder() { string sData, sName, sLink, sFile; int i; THmsScriptMediaItem Item, Folder = FolderItem; if (FileExists(mpFilePath) && (LowerCase(ExtractFileExt(mpFilePath))=='.torrent')) { sData = HmsStringFromFile(mpFilePath); if (Pos('8:announce', sData)<1) { CreateErrorItem('Неверный torrent файл'); return; } sFile = IncludeTrailingBackslash(gsDownloadsDir)+FolderItem.ItemID+'.torrent'; CopyFile(mpFilePath, sFile, false); CreateTorrentItems(mpFilePath); return; } TStrings FILES = TStringList.Create(); TStrings FOLDERS = TStringList.Create(); TTorrentFile TorrentFile = TTorrentFile.Create(); try { HmsGetDirectoryList(mpFilePath, FOLDERS); HmsGetFileList(mpFilePath, FILES, '*.torrent'); if ((FOLDERS.Count+FILES.Count)==0) { CreateErrorItem('Каталог пуст или указан не правильно'); return; } for (i=0; i<FOLDERS.Count; i++) { sLink = FOLDERS.Strings[i]; sName = ExtractFileName(sLink); Item = CreateFolder(Folder, sLink, sName); sFile = IncludeTrailingBackslash(gsDownloadsDir)+Item.ItemID+'.torrent'; CopyFile(sLink, sFile, false); } for (i=0; i<FILES.Count; i++) { sLink = FILES.Strings[i]; sName = ExtractFileName(sLink); TorrentFile.LoadFromFile(sLink); if (Trim(TorrentFile.Name)!='') sName = TorrentFile.Name; Item = CreateFolder(Folder, sLink, sName); sFile = IncludeTrailingBackslash(gsDownloadsDir)+Item.ItemID+'.torrent'; CopyFile(sLink, sFile, false); } } finally {FILES.Free; FOLDERS.Free; TorrentFile.Free; } } // -------------------- Загрузка страниц, поиск и создание ссылок на видео ---- void CreateLinks(string sHtml='') { string sData, sPage, sName, sLink, sYear, sImg, sVal; int i, n, iCnt=0, nGrp=0, nSortCount=0; char sGrp=""; THmsScriptMediaItem Item, Folder = FolderItem; if (sHtml=='') sHtml = ApplyConfig(mpFilePath); if (Trim(sHtml)=='') return; if (gsCutBlock !='') HmsRegExMatch(gsCutBlock, sHtml, sHtml, 1, PCRE_SINGLELINE || PCRE_CASELESS); sVal = ''; // Дозагрузка страниц (если задан шаблон поиска максимального номера сраницы) if ((gsPatternPages!='') && HmsRegExMatch(gsPatternPages, sHtml, sVal, 1, PCRE_SINGLELINE) || (gnPages>1)) { if (sVal!='') gnPages = StrToInt(sVal); // Номер последней страницы if (gnPages > gnMaxPages) gnPages = gnMaxPages; for (i=gnFirstPage+1; i <= gnPages; i++) { HmsSetProgress(Trunc(i*100/gnPages)); HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, gnPages])); sLink = mpFilePath + ReplaceStr(gsPagesParam, '<PN>', IntToStr(i*gnPageMul)); sPage = HmsUtf8Decode(LoadURL(sLink)); if (gsCutBlock!='') HmsRegExMatch(gsCutBlock, sPage, sPage); sHtml += sPage; if (HmsCancelPressed()) break; } HmsHideProgress(); } sHtml = HmsRemoveLineBreaks(sHtml); // Создание ссылок nSortCount = 0; TRegExpr RE = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE); try { if (RE.Search(sHtml)) do { sName=""; sLink=""; sYear=""; sImg=""; HmsRegExMatch(gsPatternTitle, re.Match, sName); HmsRegExMatch(gsPatternLink , re.Match, sLink); HmsRegExMatch(gsPatternImg , re.Match, sImg ); HmsRegExMatch(gsPatternYear , re.Match, sYear); if (Trim(sLink)=="") continue; if (Length(Trim(sName)) < 4) continue; if (HmsRegExMatch('(onmouseover="[^"]+")', sName, sVal)) sName = ReplaceStr(sName, sVal, ''); if (HmsRegExMatch('(onmouseout="[^"]+")' , sName, sVal)) sName = ReplaceStr(sName, sVal, ''); sLink = RightExpandLink(sLink); if (SameText(sLink, mpFilePath)) continue; sName = HmsHtmlToText(sName); sYear = HmsHtmlToText(sYear); if (sImg!="") sImg = RightExpandLink(sImg); // Добавляем год в название, если установлен флаг и этого года в названии нет if ((gbYearInTitle && (Pos(sYear, sName)<1))) sName = Trim(sName)+" ("+sYear+")"; if (gsGroupingKey=="quant") { sGrp = Format("%.2d", [nGrp]); iCnt++; if (iCnt>=gnMaxInGroup) { nGrp++; iCnt=0; } } else if (gsGroupingKey=="alph") sGrp = GetGroupName(sName); else if (gsGroupingKey=="year") sGrp = sYear; else sGrp = ""; if (gsGroup!='') sGrp = gsGroup+'\\'+Trim(sGrp); // Может быть указана глобальная группа (напр. при поиске) if (RightCopy(sGrp, 1)=='\\') sGrp = LeftCopy(sGrp, Length(sGrp)-1); if (Trim(sGrp)!="") Folder = CreateFolder(FolderItem, sGrp); CreateFolder(Folder, sLink, sName, sYear, sImg); } while (RE.SearchAgain()); } finally { RE.Free(); } if ((gsNextPage!='') && HmsRegExMatch(gsNextPage, sHtml, sLink, 1, PCRE_SINGLELINE)) { sLink = RightExpandLink(sLink); CreateFolder(Folder, sLink, 'Следующая страница'); } if (gsGroupingKey=="alph") FolderItem.Sort("mpTitle"); else if (gsGroupingKey=="year") FolderItem.Sort("-mpTitle"); } // ---------------------------------------------------------------------------- string GetTorrentMediaResourceLink() { string sID, sFile, sIndex, sVal, sName, sPath, sData, sLink; HmsRegExMatch2('torrent:(.*?)\\?index=(\\d+)', mpFilePath, sID, sIndex); if (Pos('.', sID)>0) { sFile = sID; // if the sID contains full path to .torrent file } else { sFile = IncludeTrailingBackslash(gsDownloadsDir)+sID+'.torrent'; } sName = Trim(FolderItem[1002100]); sPath = Trim(FolderItem[1002101]); if (sName!='') { sVal = IncludeTrailingBackslash(gsDownloadsDir) + sPath + sName; //if (FolderItem[mpiStreamExtInfo]=='') FolderItem[mpiStreamExtInfo] = 'S||||||SRT|||||||||1|0|||0|'+sVal; if (FileExists(sVal)) { if (Length(HmsStringFromFile(sVal))>0) { sIndex = FolderItem[1002102]; FolderItem[mpiFileSize] = StrToInt(FolderItem[1002103]); mpFileSize = FolderItem[mpiFileSize]; FolderItem[mpiSubtitleLanguage] = sVal; } } } sLink = Format('torrent:%s?index=%s&savepath=%s', [sFile, sIndex, 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; return sLink; } /////////////////////////////////////////////////////////////////////////////// // Создание ссылок на трейлеры void CreateTrailersLinks(string sKPID) { string sHtml, sLink, sName, sTitle, sVal, sImg; TRegExpr RE1, RE2; THmsScriptMediaItem Item; sLink = 'http://www.kinopoisk.ru/film/'+sKPID+'/video/'; sHtml = HmsDownloadURL(sLink, 'Referer: '+sLink, true); RE1 = TRegExpr.Create('<!-- ролик -->(.*?)<!-- /ролик -->', PCRE_SINGLELINE); RE2 = TRegExpr.Create('<a[^>]+href="/getlink.php[^>]+link=([^>]+\\.(mp4|mov|flv)).*?</a>', PCRE_SINGLELINE); if (RE1.Search(sHtml)) do { if (!HmsRegExMatch('(<a[^>]+href="/film/\\d+/video/\\d+/".*?</a>)', RE1.Match, sTitle)) continue; sTitle = HmsHtmlToText(sTitle); if (HmsRegExMatch('["\']previewFile["\']:\\s*?["\'](.*?)["\']', RE1.Match, sVal)) { sImg = 'http://kp.cdn.yandex.net/'+sVal; } if (RE2.Search(RE1.Match)) do { sLink = RE2.Match(1); sName = sTitle+' '+HmsHtmlToText(RE2.Match(0)); Item = FolderItem.FindItemByProperty(mpiTitle, sName); if ((Item != null) && (Item != nil)) Item[mpiFilePath] = sLink; else { Item = AddMediaItem(FolderItem, sName, sLink); Item[mpiThumbnail ] = sImg; Item[mpiTimeLength] = '03:50:00.000'; } } while (RE2.SearchAgain()); } while (RE1.SearchAgain()); RE1.Free; RE2.Free; } /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // // ---------------------------------------------------------------------------- { Init(); if (FolderItem.IsFolder) { // Если это папка - создаём ссылки внутри этой папки FolderItem.DeleteChildItems(); // Удаление существующих ссылок // Если это папка информации от КиноПоиска - создаём информационные ссылки if (HmsRegExMatch('KPInfo=(\\d+)', mpFilePath, mpFilePath)) { InfoFromKP(mpFilePath); return; } Variant bDirExists = DirectoryExists(mpFilePath); // for HMS 2.25 bug if (FileExists(mpFilePath) || bDirExists) { CreateLinksFromLocalFolder(); return; } CheckParameters(); CheckUpdates(); CreateLinks(); HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded)); } else { // Если это ссылка - проверяем, не информационная ли это ссылка if (LeftCopy(mpFilePath, 4)=='Info') VideoPreview(); else if (mpFilePath=='Обновить подкаст' ) UpdatePodcast(); else if (LeftCopy(mpFilePath, 8)=='torrent:') MediaResourceLink = GetTorrentMediaResourceLink(); else MediaResourceLink = mpFilePath; } } 531 C++Script 550 int gMode=0; Variant FolderItem=PodcastItem; /////////////////////////////////////////////////////////////////////////////// // Г Л О Б А Л Ь Н Ы Е П Е Р Е М Е Н Н Ы Е // int INTERNET_FLAG_NO_AUTO_REDIRECT = 0x00200000; TStrings COOKIES=TStringList.Create(); int gnUpdateMode = 1, // Режим обновления: 0-Только сообщать о вышедшем обновлении, 1-Включить возможность обновить "с пульта телевизора" gnMaxPages = 10, gnMaxInGroup = 100, gnItemsAdded = 0, gnMaxTitleLength = 127, gnPages = 1, gnFirstPage = 1, gnPageMul = 1; string gsUrlBase = "", gsGroupingKey = "none", gsGroup = ""; string gsForumPost = "f=20&t=4127", // Тема и пост форума homemediaserver.ru, где выложен подкаст (для проверки обновлений) gsVersion = "2018.02.25", // Версия подкаста (то, что должно быть в комментарии к файлу на форуме) gsCacheDir = IncludeTrailingBackslash(HmsTempDirectory)+'TorrentRover\\', gsPreviewPrefix = "TorrentRover", MediaResourceLink = "", gsAudioPrifile = "Музыка (Визуализация)", gsDownloadsDir = IncludeTrailingBackslash(HmsTranscodingTempDirectory)+'Torrents'; string gsPHPProxy = ""; bool gbDebug = true; TDateTime gTimeStart = Now; bool gbYearInTitle; string gsTime="01:40:00.000"; Variant ROOTPODCAST = FolderItem; 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'+ 'Origin: http://www.google.com\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'; // Регулярные выражения для поиска на странице блоков с информацией о видео string gsPatternBlock = '', gsPatternTitle = '', gsPatternLink = '', gsPatternYear = '', gsPatternImg = '', gsPatternSeeders = '', gsPatternLeechers = '', gsPatternSize = '', gsPatternDate = '', gsPatternPages = '', gsPagesParam = '', gsCutBlock = '', gsNextPage = '', gsMethod = 'GET', ; /////////////////////////////////////////////////////////////////////////////// // Ф У Н К Ц И И // // ------------------------------------------ Проверка обновлений подкаста ---- bool CheckUpdates() { string sHtml, sVer, sVal, sText; THmsScriptMediaItem Folder, Item; if ((Pos('--chkupdates', mpPodcastParameters)<1) || (gsForumPost=='')) return; sVal = 'RottentRover'+DateToStr(gTimeStart); // Формируем идентификатор подкаста с датой старта if ((gsUserVariable3==sVal) && !DebugMode) return; // Если уже проверяли сегодяня, выходим gsUserVariable3 = sVal; // Запоминаем эту дату проверки обновления, дабы не проверять каждый раз // Загружаем страницу форума, где выложен данный подкаст sHtml = HmsDownloadUrl('http://homemediaserver.ru/forum/viewtopic.php?'+gsForumPost, '', true); sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml)); // Если указан номер сообщения на форуме - вырезаем из всей страницы только это сообщение if (HmsRegExMatch('(#p\\d+)', gsForumPost, sVal)) HmsRegExMatch(sVal+'(.*?)Скачиваний:', sHtml, sHtml); // Пытаемся получить комментарий к файлу = версию подкаста на форуме if (!HmsRegExMatch('Комментарий к файлу:</b>(.*?)</span>', sHtml, sVer)) return; if (Pos('*', sVer)>0) gnUpdateMode = 0; // Если версия помечена звездочкой, не даём автоматом обновлять if (sVer!=gsVersion) { // Версия не совпадает, формируем из сообщения текст информации о подкасте. HmsRegExMatch('<div[^>]+class="postbody">(.*?)<table', sHtml, sText); sText = HmsHtmlToText(sText); // В данном случае, вырезаем лишнее из текста информации о подкасте if (HmsRegExMatch('^(.*?)ВАЖНО!', sText, sVal, 1, PCRE_SINGLELINE)) sText=ReplaceStr(sText, sVal, ''); if (HmsRegExMatch('^(.*?)UPD', sText, sVal, 1, PCRE_SINGLELINE)) sText=ReplaceStr(sText, sVal, ''); //sText = ReplaceStr(sText, 'UPD', '|UPD'); TStrings INFO = TStringList.Create(); // Создаём объект TStrings для информации //INFO.Values['Poster'] = ''; INFO.Values['Title' ] = 'Обновление подкаста "Torrent Rover"'; INFO.Values['Info' ] = 'Текущая версия подкаста: '+gsVersion+'|Версия подкаста на сайте: '+sVer; INFO.Values['Descr' ] = ReplaceStr(sText, '\r\n', '|'); Folder = CreateFolder(FolderItem, ' Есть обновления подкаста'); if (gnUpdateMode>0) { Item = HmsCreateMediaItem('Обновить подкаст', Folder.ItemID); Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/refresh.png'; Item[mpiTimeLength] = '00:00:30.000'; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; } Item = HmsCreateMediaItem('InfoUpdate', Folder.ItemID); Item[mpiTitle ] = 'Информация'; Item[1001001 ] = INFO.Text; Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg'; Item[mpiTimeLength] = '00:00:30.000'; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; INFO.Free(); } } // --------------------------------------------------- Обновление подкаста ---- void UpdatePodcast() { string sTitle, sData, sVal, sLink, sHtml, sMsg, sFile, sDir, sRootPath, sDescr=''; TXMLDocument xmlDoc; TXMLItem xmlItem; TStrings FILELIST; int i; THmsScriptMediaItem Item, RootPodcast = FolderItem; sTitle = 'Обновление подкаста "Torrent Rover"'; sRootPath = '-RootTorrentRover'; // Поиск корневой папки подкаста while ((RootPodcast[mpiFilePath]!=sRootPath) && (RootPodcast.ItemParent!=nil)) RootPodcast = RootPodcast.ItemParent; if (RootPodcast[mpiFilePath]!=sRootPath) { ShowVideoMessage('Не найдена корневая папка подкаста с путём '+sRootPath, sTitle); return; } // Загружаем страницу форума, где выложен данный подкаст sHtml = HmsDownloadUrl('http://homemediaserver.ru/forum/viewtopic.php?'+gsForumPost, '', true); sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml)); // Если указан номер сообщения на форуме - вырезаем из всей страницы только это сообщение if (HmsRegExMatch('(#p\\d+)', gsForumPost, sVal)) HmsRegExMatch(sVal+'(.*?)Скачиваний:', sHtml, sHtml); // Пытаемся получить комментарий к файлу = версию подкаста на форуме if (!HmsRegExMatch('(/download/file.php\\?id=.*?)"', sHtml, sLink)) { ShowVideoMessage('Невозможно найти ссылку на скачивание файла.', sTitle, 1); return; } sLink = HmsExpandLink(sLink, 'http://homemediaserver.ru/forum'); // Дополняем относительную ссылку до полной sFile = ExtractShortPathName(HmsTempDirectory)+'\\updateTwitchTV.zip'; // Файл, куда скачивается новый подкаст sDir = ExtractShortPathName(HmsTempDirectory)+'\\updateTwitchTV'; // Каталог, куда распаковывается файл sMsg = '<c:#E22>При выполнении обновления возникла ошибка. Обновление не выполнено!'; // Сообщение, если возникнет ошибка FILELIST = TStringList.Create(); xmlDoc = TXMLDocument.Create(); try { while (true) { if (!HmsDownloadURLToFile(sLink, sFile)); {sMsg='Неудаётся скачать файл обновления' ; break;} if (!HmsExtractFiles(sFile, sDir, true)); {sMsg='Неудаётся распаковать файл обновления'; break;} HmsGetFileList(sDir, FILELIST, '*.hdf'); // Получаем список файлов с расширением .hdf в FILELIST if (FILELIST.Count < 1) {sMsg='В скачанном архиве нет нового файла подкаста'; break;} xmlDoc.LoadFromFile(FILELIST[0]); // Загружаем первый файл в списке как TXMLDocument LoadPodcastFromXML(xmlDoc.Root, RootPodcast); // Загружаем новый подкаст (применяем обновлнеие) sMsg = '<s:'+IntToStr(Round(cfgTranscodingScreenHeight/9))+'>Обновление выполнено! </s>'; // Если мы дошли до сюда без Exception, значит всё прошло норм FolderItem[mpiTitle ] = 'Подкаст обновлён'; FolderItem[mpiFilePath ] = 'Info'; FolderItem[mpiThumbnail] = 'http://wonky.lostcut.net/vids/info.jpg'; sDescr = '||Было обновлено (добавлено) '+IntToStr(gnItemsAdded)+' элементов подкаста.'+ '|На некоторых устройствах необходимо выйти из подкаста вообще и обновить текушую ветку подкаста.'+ '|Помните, что выставленные или убранные ключи в поле "Дополнительные параметры" (например, настройки качества видео) были сброшены на "по-умолчанию" (как выставлено в скачанном подкасте).'+ '|'+ '|Если что-то не так при обновлении - сообщайте автору подкаста.'; HmsDatabaseAutoSave(); break; } } finally { FILELIST.Free(); TXMLDocument.Free(); } ShowVideoMessage(sMsg, sTitle, 0, sDescr); // Показываем сообщение HmsIncSystemUpdateID(); // Говорим устройству об обновлении содержания } // ---------------------------------------------- Загрузка подкаста из XML ---- void LoadPodcastFromXML(TXMLItem xmlParentItem, Variant ParentItem, int nNest=0) { int i, n; TXMLItem xmlItem, xmlCollection, xml; string sClassID, sItemPath, sName, sItemID; THmsScriptMediaItem Item; // Получаем коллекцию 'Properties', если не нашли - то это не то, что нужно xmlCollection = xmlParentItem.Find('Properties'); if (xmlCollection==nil) return; for (i=0; i<xmlCollection.Count; i++) { // Делаем обход всех параметров и применяем их к ParentItem xmlItem = xmlCollection.Items[i]; n = StrToIntDef(xmlItem.ChildValues["ID"], 0); if (n==0) continue; if ((n==245) || (n==517)) continue; // Parent ItemID и настройки приоритета качества пропускаем if ((nNest==0) && (n==4)) continue; // Не меняем имя подкаста верхнего уровня ParentItem[n] = xmlItem.ChildValues["Value"]; } xmlCollection = xmlParentItem.Find('ChildItems'); if (xmlCollection==nil) return; for (i=0; i<xmlCollection.Count; i++) { // Делаем обход всех дочерних элементов (подпапок) и добавляем их в ParentItem xmlItem = xmlCollection.Items[i]; sClassID = xmlItem.ChildValues["ClassID" ]; sItemPath = xmlItem.ChildValues["ItemPath"]; sItemID = xmlItem.ChildValues["ItemID" ]; if (sItemPath=='') { // Путь пустой, ну тогда ищем существующий сначала по ItemID и, если не найдём, по имени sName=''; Item=nil; for (n=0; n<ParentItem.ChildCount; n++) if (ParentItem.ChildItems[n].ItemID==sItemID) {Item=ParentItem.ChildItems[n]; break;} if (Item==nil) { xml = xmlParentItem.Find('Properties'); if (xml==nil) continue; for (n=0; n<xml.Count; n++) if (xml.Items[n].ChildValues["ID"]=='4') {sName=xml.Items[n].ChildValues["Value"]; break;} if (sName=='') continue; Item = ParentItem.FindItemByProperty(mpiTitle, sName); } if (Item==nil) Item = ParentItem.AddFolder(sName, false, StrToInt(sClassID)); Item[mpiFilePath] = ''; } else { if (sClassID=='5') Item = HmsCreateMediaItem(sItemPath, ParentItem.ItemID); else Item = ParentItem.AddFolder(sItemPath, false, StrToInt(sClassID)); } if ((Item!=ParentItem) && (Item!=nil)) LoadPodcastFromXML(xmlItem, Item, nNest+1); } gnItemsAdded++; } // ------------------------------------------ Формирование видео сообщения ---- 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; FolderItem[1001001] = INFO.Text; INFO.Free(); VideoPreview(); } // ------------------------------------ Получение название группы из имени ---- string GetGroupName(string sName) { string sGrp = '#'; if (HmsRegExMatch('([A-ZА-Я0-9])', sName, sGrp, 1, PCRE_CASELESS)) sGrp = Uppercase(sGrp); if (HmsRegExMatch('[0-9]', sGrp, sGrp)) sGrp = '#'; if (HmsRegExMatch('[A-Z]', sGrp, sGrp)) sGrp = 'A..Z'; return sGrp; } // ------------------------------------------------------- Создание ссылки ---- THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, char sLink, char sTitle="", char sImg="", char sYear="") { sTitle = ReplaceStr(sTitle, '/', '-'); THmsScriptMediaItem Item = ParentFolder.AddFolder(ReplaceStr(sLink, '\\', '/')); Item[mpiTitle ] = LeftCopy(sTitle, gnMaxTitleLength); Item[mpiFolderSortOrder] = "-mpCreateDate"; Item[mpiYear ] = sYear; // Для сортировки по годам Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; return Item; } // ----------------------------------- Создание ссылки-cообщения об ошибке ---- void CreateErrorItem(string sMsg) { THmsScriptMediaItem Item = HmsCreateMediaItem('Err'+IntToStr(FolderItem.ChildCount), FolderItem.ItemID); Item[mpiTitle ] = LeftCopy(ReplaceStr(sMsg, '_', '.'), gnMaxTitleLength); Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/symbol-error.png'; Item[mpiTimeLength] = '00:01:00.000'; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; } // ---------------------------------------- Создание информационной ссылки ---- void CreateInfoItem(char sTitle, char sVal) { THmsScriptMediaItem Item; sVal = Trim(sVal); if (sVal=="") return; Item = AddMediaItem(FolderItem, sTitle+': '+sVal, 'Info'+IntToStr(FolderItem.ChildCount)); Item[mpiTimeLength] = '00:01:00.000'; Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg'; } // ------------------------------------------------- Создание видео ссылки ---- THmsScriptMediaItem AddMediaItem(THmsScriptMediaItem Folder, char sTitle, char sLink='', char sGrp="") { THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID, sGrp); Item[mpiTitle ] = LeftCopy(ReplaceStr(sTitle, '.', ' '), gnMaxTitleLength); Item[mpiTimeLength] = gsTime; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; return Item; } // ----------------- Формирование видео с картинкой с информацией о фильме ---- bool VideoPreview() { char sVal, sFileImage, sImage, sTitle, sText, sLink, sData, sInfo=''; int xMargin=7, yMargin=10, nSeconds=10, nSecDel, nCnt, n, i; TStrings INFO; float nH=cfgTranscodingScreenHeight, nW=cfgTranscodingScreenWidth; if (HmsRegExMatch('--xmargin=(\\d+)', mpPodcastParameters, sVal)) xMargin=StrToInt(sVal); if (HmsRegExMatch('--ymargin=(\\d+)', mpPodcastParameters, sVal)) yMargin=StrToInt(sVal); sText = FolderItem.ItemOrigin.ItemParent[1001020]; if (sText=='') { INFO = TStringList.Create(); INFO.Text = FolderItem[1001001]; sTitle = INFO.Values['Title' ]; sInfo = INFO.Values['Info' ]; sText = INFO.Values['Descr' ]; INFO.Free(); } sText = ReplaceStr(sText, '\r\n', '|'); sImage = FolderItem.ItemOrigin.ItemParent[mpiThumbnail]; if (sText=="") sText = FolderItem.ItemOrigin.ItemParent[mpiTitle]+"|К сожалению, информация со страницы сайта не получена. :("; if (HmsRegExMatch('[\\w-]+[^\\|]+Описание:', sText, '')) sText = ReplaceStr(sText, 'Описание:', '|Описание:'); if (HmsRegExMatch('[\\w-]+[^\\|]+Страна:', sText, '')) sText = ReplaceStr(sText, 'Страна:', '|Описание:'); if (sInfo=='') sTitle = ExtractStr(sText, '|', 1); sText = ReplaceStr(sText, sTitle+'|', ''); if (RightCopy(sTitle, 3)==' - ') sTitle = LeftCopy(sTitle, Length(sTitle)-3); // HmsRegExMatch('(\\|\\w+:)', sText, sVal) TRegExpr RE = TRegExpr.Create('\\|([А-ЯA-Z\\s]+:)', PCRE_SINGLELINE || PCRE_CASELESS); try { if (RE.Search('|'+sText)) do sText = ReplaceStr(sText, re.Match, '<c:#FEEDD0>'+re.Match+' </c>'); while (RE.SearchAgain()); } finally { RE.Free(); } // FEE2C4 <c:#FFC3BD> sFileImage = ExtractShortPathName(gsCacheDir)+'videopreview_'; sText = Copy(sText, 1, 3000); if (sTitle=='') sTitle = ' '; sVal = FolderItem.ItemOrigin.ItemParent[1001021]; INFO = TStringList.Create(); INFO.Values['prfx'] = gsPreviewPrefix; if (sVal=='kp') { INFO.Values['bg'] = './backgrounds/stage-lights-on-728x455.jpg'; INFO.Values['fx'] = '3'; } else { INFO.Values['bg'] = 'http://payload114.cargocollective.com/1/7/225471/4588633/BG_DarkWood_o.jpg'; INFO.Values['fx'] = '0'; } /* INFO.Values['bg' ] = 'http://wallpaperswa.com/thumbnails/detail/20120713/floor%20patterns%20brown%20empty%20room%20dark%20tranquillity%20backgrounds%20darker%20depth%20of%20field%20photomanipulatio_wallpaperswa.com_70.jpg'; INFO.Values['fx' ] = '1'; INFO.Values['bg' ] = 'http://www.pageresource.com/wallpapers/wallpaper/noir-blue-dark_3512158.jpg'; INFO.Values['fx' ] = '3'; INFO.Values['bg' ] = 'http://simplywallpaper.net/pictures/2014/08/Guardians-of-the-Galaxy-Ronan-Ship-Wallpaper.jpg'; INFO.Values['fx' ] = '1'; */ if (sImage!='') { INFO.Values['wpic' ] = IntToStr(Round(nW/4)); // Ширина постера (1/4 ширины картинки) INFO.Values['xpic' ] = '10'; INFO.Values['ypic' ] = '10'; INFO.Values['urlpic'] = sImage; } INFO.Values['title'] = sTitle; INFO.Values['info' ] = sInfo; INFO.Values['descr'] = sText; INFO.Values['w' ] = IntToStr(Round(nW)); // Ширина картинки INFO.Values['h' ] = IntToStr(Round(nH)); INFO.Values['xm'] = IntToStr(xMargin); // Отступ текста INFO.Values['ym'] = IntToStr(yMargin); if (WordCount(sText, '\n')<18) { INFO.Values['fztitle'] = IntToStr(Round(nH/16)); // Размер шрифта относителен высоте кортинки INFO.Values['fzdescr'] = IntToStr(Round(nH/21)); } else { INFO.Values['fztitle'] = IntToStr(Round(nH/18)); // Размер шрифта относителен высоте кортинки INFO.Values['fzdescr'] = IntToStr(Round(nH/25)); } sData = ''; for (n=0; n<INFO.Count; n++) sData += '&'+Trim(INFO.Names[n])+'='+HmsHttpEncode(INFO.Values[INFO.Names[n]]); INFO.Free(); sLink = HmsSendRequestEx('wonky.lostcut.net', '/videopreview.php', 'POST', 'application/x-www-form-urlencoded', '', sData, 80, 0, '', true); if (LeftCopy(sLink, 4)!='http') {HmsLogMessage(2, 'Ошибка получения файла информации videopreview.'); return;} // Делим количество секунд видео информации на количество картинок (через какой период они будут сменяться) HmsDownloadURLToFile(sLink, sFileImage); for (n=0; n<nSeconds; n++) { nCnt++; if (nCnt>nSeconds) break; CopyFile(sFileImage, sFileImage+Format('%.3d.jpg', [nCnt]), false); } char sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3'; try { if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3); sFileMP3 = '-i "'+sFileMP3+'"'; } except { sFileMP3=''; } MediaResourceLink = Format('%s -f image2 -r 1 -i "%s" -c:v libx264 -pix_fmt yuv420p ', [sFileMP3, sFileImage+'%03d.jpg']); } // ---------------------------- Создание информационных ссылок с КиноПоиск ---- void InfoFromKP(string sKPid) { TStrings Info = GetInfoAboutFilmFromKP(sKPid); string sLink='', sText=''; if ((Trim(sKPID)=="") || (sKPID=="0")) return; CreateTrailersLinks(sKPid); CreateInfoItem('Рейтинг КП' , Info.Values['Kinopoisk']); CreateInfoItem('Рейтинг IMDb', Info.Values['IMDb' ]); CreateInfoItem('Год' , Info.Values['Year' ]); CreateInfoItem('Страна' , Info.Values['Country' ]); CreateInfoItem('Режиссёр' , Info.Values['Director' ]); CreateInfoItem('Жанр' , Info.Values['Genre' ]); CreateInfoItem('Producer' , Info.Values['Producer' ]); CreateInfoItem('Сценарий' , Info.Values['Author' ]); CreateInfoItem('Слоган' , Info.Values['Slogan' ]); CreateInfoItem('Длительность', Info.Values['Duration' ]); CreateInfoItem('Бюджет' , Info.Values['Budget' ]); sText = Info.Values['Title']+'\r\n'; if (Info.Values['Title_eng']!='') sText += 'Оригинальное название: '+Info.Values['Title_eng']+'\r\n'; sText += 'Год: '+Info.Values['Year']+' Страна: '+Info.Values['Country']+'\r\n'; if (Info.Values['Slogan']!='') sText += 'Слоган: '+Info.Values['Slogan']+'\r\n'; sText += 'Жанр: ' +Info.Values['Genre' ]+'\r\n'+ 'Режиссер: ' +Info.Values['Director']+'\r\n'+ 'В ролях: ' +Info.Values['Actors' ]+'\r\n'+ 'Продюсер: ' +Info.Values['Producer']+'\r\n'+ 'Сценарий: ' +Info.Values['Author' ]+'\r\n'+ 'Оператор: ' +Info.Values['Operator']+'\r\n'+ 'Композитор: ' +Info.Values['Composer']+'\r\n'+ 'Длительность: '+Info.Values['Duration']+'\r\n'; if (Info.Values['Budget']!='') sText += 'Бюджет: '+Info.Values['Budget']+'\r\n'; sText += 'Рейтинг КиноПоиск: '+Info.Values['Kinopoisk']+' <c:#FFFDDA>Рейтинг IMDb: '+Info.Values['IMDb']+' </c>'; FolderItem[1001020] = sText; FolderItem[1001021] = 'kp'; // Флаг о том, что это информация от кинопоиска (для другого фона) FolderItem[mpiThumbnail] = Info.Values['Poster']; Info.Free; } // ------------------------ Получение информации о фильме по ID кинопоиска ---- TStrings GetInfoAboutFilmFromKP(string sKPid) { char sData, sVal, sVal2; TStrings Info = TStringList.Create(); TJsonObject JSON = TJsonObject.Create(); HmsRegExMatch('(\\d+)', sKPid, sKPid); sData = HmsDownloadUrl('http://wonky.lostcut.net/kp.php?id='+sKPid, "Referer: Hello! it's HMS!", true); sData = ReplaceStr(sData, '&Nbsp;', ' '); if (Pos('{', sData)<1) return Info; try { JSON.LoadFromString(sData); Info.Values['Title' ] = HmsHtmlToText(JSON.S['Title']); Info.Values['Title_eng'] = HmsHtmlToText(JSON.S['Title_eng']); Info.Values['Year' ] = HmsHtmlToText(JSON.S['Year' ]); Info.Values['Director' ] = HmsHtmlToText(JSON.S['Director']); Info.Values['Country' ] = HmsHtmlToText(JSON.S['Country' ]); Info.Values['Genre' ] = ReplaceStr(JSON.S['Genre'], ', Слова', ''); Info.Values['Producer' ] = HmsHtmlToText(JSON.S['Producer']); Info.Values['Author' ] = HmsHtmlToText(JSON.S['Author' ]); Info.Values['Operator' ] = HmsHtmlToText(JSON.S['Operator']); Info.Values['Composer' ] = HmsHtmlToText(JSON.S['Composer']); Info.Values['Slogan' ] = HmsHtmlToText(JSON.S['Slogan']); Info.Values['Actors' ] = HmsHtmlToText(JSON.S['Actors']); Info.Values['Poster' ] = JSON.S['Poster' ]; Info.Values['Duration' ] = HmsTimeFormat(StrToIntDef(JSON.S['Duration'], 140)); Info.Values['Budget' ] = HmsHtmlToText(JSON.S['Budget']); Info.Values['Trailer' ] = JSON.S['Trailer' ]; if (JSON.S['raiting_kp\\rating_ball']!="") Info.Values['Kinopoisk'] = Format('%s (%s)', [HmsHtmlToText(JSON.S['raiting_kp\\rating_ball']), HmsHtmlToText(JSON.S['raiting_kp\\ratingCount'])]); if (JSON.S['raiting_imdb\\rating_ball']!="") Info.Values['IMDb' ] = Format('%s (%s)', [HmsHtmlToText(JSON.S['raiting_imdb\\rating_ball']), HmsHtmlToText(JSON.S['raiting_imdb\\ratingCount'])]); } finally { JSON.Free(); } return Info; } // ---------------------------------- Получить длительность в формате HMS. ---- char GetTimeLength(char sDura) { int nH, nM, nS, nSecs, nMins; char sH, sM, sS; if (Trim(sDura)=='') return ''; if (Pos(':', sDura)>0) { // Если там есть двоеточие, то думаем что там минуты:секунды или даже ещё и часы sDura=HmsHtmlToText(sDura); if (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 ''; } 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]); } // ------------------------------------- Установка первоначальных значений ---- void Init() { string sVal; ROOTPODCAST = FolderItem; while ((ROOTPODCAST.ItemParent != HmsDatabaseRootItem) && (ROOTPODCAST.ItemParent != nil)) { if (Trim(ROOTPODCAST[510])!="") break; ROOTPODCAST = ROOTPODCAST.ItemParent; } //ROOTPODCAST[39000 ] = ''; //ROOTPODCAST[1003002] = ''; SetCookies(ROOTPODCAST[39000]); if (mpFilePath!='') { HmsRegExMatch('^(.*?://.*?)/', mpFilePath, gsUrlBase); if (gsUrlBase=='') gsUrlBase = mpFilePath; if (HmsRegExMatch('^(.*?)\\r\\n', gsHeaders, sVal)) gsHeaders = ReplaceStr(gsHeaders, sVal, mpFilePath); if (HmsRegExMatch('(Origin:.*?)\\r\\n', gsHeaders, sVal)) gsHeaders = ReplaceStr(gsHeaders, sVal, 'Origin: '+gsUrlBase); if (gsUrlBase!='') { gsCacheDir = IncludeTrailingBackslash(HmsTempDirectory)+gsUrlBase+'\\'; gsPreviewPrefix = gsUrlBase; } } Variant bDirExists = DirectoryExists(gsDownloadsDir); if (!bDirExists) ForceDirectories(gsDownloadsDir); } // ------------------------------ Yaml parser. Превращает YAML в TStrings. // Не вдумываться, это просто работает ---- 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; } } // ------------------------------------------ Проверка параметров подкаста ---- void CheckParameters () { string sVal; gbYearInTitle = (Pos('--yearintitle', mpPodcastParameters) > 0); HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, gsGroupingKey); HmsRegExMatch('--muzprofile="(.*?)"', mpPodcastParameters, gsAudioPrifile); if (HmsRegExMatch('--maxingroup=(\\d+)' , mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal); if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal); if (HmsRegExMatch('--titlelength=(\\d+)', mpPodcastParameters, sVal)) gnMaxTitleLength = StrToInt(sVal); } // ------------------------------------------- Загрузка страницы по ссылке ---- string LoadUrl(string sLink, string sMethod='', string sHeaders='', bool NoCache=false, bool NoRdrct=false, bool RetHdrs=false, string sPostData='') { string sHtml, sServer, sRequest='/', sAnswHeaders='', sVal; if ((sMethod=='POST') && (sPostData=='')) HmsRegExMatch('^.*?\\?(.*)', sLink, sPostData); if (gsPHPProxy!="") sLink = gsPHPProxy+"?"+Trim(sLink); int nPort=80, nFlags = 0x10; // INTERNET_COOKIE_THIRD_PARTY if (sMethod=='') sMethod='GET'; if (sPostData!='') sMethod='POST'; sLink = RightExpandLink(sLink); if (LeftCopy(sLink, 5)=='https') nPort = 443; if ((sMethod=='GET') && (nPort==80) && !NoCache && !NoRdrct && !RetHdrs) return HmsDownLoadURL(sLink, 'Referer: '+gsHeaders+GetCookies(), true); if (!HmsRegExMatch('^https?://(.*)', sLink, sServer)) return ''; HmsRegExMatch2('^(.*?)(/.*)', sServer, sServer, sRequest); if (HmsRegExMatch2('^(.*?):(\\d+)', sServer, sServer, sVal)) nPort = StrToIntDef(sVal, nPort); if (HmsRegExMatch('--nocache', mpPodcastParameters, '')) NoCache = true; if (sHeaders=='') sHeaders = gsHeaders; if (NoCache) nFlags = StrToInt('$80000000'); if (!NoCache) sHeaders += GetCookies(); if (NoRdrct) nFlags = (nFlags || INTERNET_FLAG_NO_AUTO_REDIRECT); sHtml = HmsSendRequestEx(sServer, sRequest, sMethod, 'application/x-www-form-urlencoded', sHeaders, sPostData, nPort, nFlags, sAnswHeaders, true); if (IsWine ) sHtml = HmsDecompressString(sHtml); // Для Linux if (RetHdrs) sHtml = sAnswHeaders + Trim(sHtml); SetCookies(sAnswHeaders); return sHtml; } // ----------------------------- Установка глобальной переменной gsHeaders ---- void SetHeaders(Variant HEADERS) { int i; char sNam, sVal, sOld; for (i=0; i<HEADERS.Count; i++) { sNam = Trim(HEADERS.Names(i)); if (sNam=='') continue; sVal = Trim(HEADERS.Values[sNam]); if (sVal=='') continue; if (HmsRegExMatch('('+sNam+':.*?)\\r\\n', gsHeaders, sOld)) gsHeaders = ReplaceStr(gsHeaders, sOld, sNam+': '+sVal); else gsHeaders += sNam+': '+sVal+'\r\n'; } } // -------------------------------------------- Установка значений 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(); ROOTPODCAST[39000] = GetCookies(); } // -------------------------------------------- Получение значений cookies ---- string 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]); } if (sCookies!='') sCookies = 'Cookie: '+Trim(sCookies)+'\r\n'; return sCookies; } // ------------------------- Запрос на вход, получение куки их запоминание ---- bool LoginRequest(TStrings WONKYBLK, string sDomen) { string sHtml='', sLink, sLogin, sPassw, sReq, sMethod='GET', sVal, sPostData=''; Variant vOBJECT; sLink = WONKYBLK.Values['Load']; if (Trim(sLink)!='') { sHtml = HmsDownloadURL(sLink, 'Referer: '+gsHeaders, true); } GetAllVars(WONKYBLK, sHtml); sLogin = WONKYBLK.Values['Login']; if (Trim(sLogin)=='') sLogin = mpPodcastAuthorizationUserName; sPassw = WONKYBLK.Values['Passw']; if (Trim(sPassw)=='') sPassw = mpPodcastAuthorizationPassword; if (Trim(sLogin)+Trim(sPassw)=='') { CreateErrorItem('Не указан логин и пароль для '+ReplaceStr(sDomen, '_', '.')); return false; } sVal = WONKYBLK.Values['Preload' ]; if (sVal!='') HmsDownloadURL(sVal, gsHeaders); sVal = WONKYBLK.Values['Method' ]; if (sVal!='') sMethod = sVal; sVal = WONKYBLK.Values['PostData']; if (sVal!='') sPostData = sVal; if (GetWonkyObject(WONKYBLK, 'Headers', vOBJECT)) SetHeaders(vOBJECT); sReq = WONKYBLK.Values['Url']; sHtml = LoadUrl(sReq, sMethod, '', WONKYBLK.Values['NoCache']!='', WONKYBLK.Values['NoRedirect']!='', true, sPostData); sVal = WONKYBLK.Values['Success']; if (sVal!='') return HmsRegExMatch(sVal, sHtml, '', 1, PCRE_SINGLELINE); return true; } // --------------- Проверить и получить ссылку на объект с именем sObjName ---- bool GetWonkyObject(TStrings OBLK, string sObjName, Variant &vOBJECT) { int n = OBLK.IndexOf(sObjName); if (n < 0) return false; vOBJECT = OBLK.Objects[n]; return (vOBJECT!=0); } // ------------------ Присвоение глобальным переменным значений из конфига ---- void ApplyCurrentConfigValues(Variant vOBJECT) { string sVal; Variant vSUBOBJECT; sVal = vOBJECT.Values['PHPProxy' ]; if (sVal!='') gsPHPProxy = sVal; sVal = vOBJECT.Values['Block' ]; if (sVal!='') gsPatternBlock = sVal; sVal = vOBJECT.Values['Title' ]; if (sVal!='') gsPatternTitle = sVal; sVal = vOBJECT.Values['Link' ]; if (sVal!='') gsPatternLink = sVal; sVal = vOBJECT.Values['Year' ]; if (sVal!='') gsPatternYear = sVal; sVal = vOBJECT.Values['Image' ]; if (sVal!='') gsPatternImg = sVal; sVal = vOBJECT.Values['Block' ]; if (sVal!='') gsPatternBlock = sVal; sVal = vOBJECT.Values['Seeders' ]; if (sVal!='') gsPatternSeeders = sVal; sVal = vOBJECT.Values['Leechers' ]; if (sVal!='') gsPatternLeechers = sVal; sVal = vOBJECT.Values['Size' ]; if (sVal!='') gsPatternSize = sVal; sVal = vOBJECT.Values['Date' ]; if (sVal!='') gsPatternDate = sVal; sVal = vOBJECT.Values['PagesParam']; if (sVal!='') gsPagesParam = sVal; sVal = vOBJECT.Values['Method' ]; if (sVal!='') gsMethod = sVal; sVal = vOBJECT.Values['NextPage' ]; if (sVal!='') gsNextPage = sVal; sVal = vOBJECT.Values['Cut' ]; if (sVal!='') gsCutBlock = sVal; sVal = vOBJECT.Values['UrlBase' ]; if (sVal!='') gsUrlBase = sVal; sVal = vOBJECT.Values['Pages' ]; if (StrToIntDef(sVal, 0)!=0) gnPages = StrToIntDef(sVal, gnPages); else if (sVal!='') gsPatternPages = sVal; if (GetWonkyObject(vOBJECT, 'Headers', vSUBOBJECT)) SetHeaders(vSUBOBJECT); if (GetWonkyObject(vOBJECT, 'PageInfo', vSUBOBJECT)) { sVal = vSUBOBJECT.Values['Pages']; if (StrToIntDef(sVal, 0)!=0) gnPages = StrToIntDef(sVal, gnPages); else if (sVal!='') gsPatternPages = sVal; gnFirstPage = StrToIntDef(vSUBOBJECT.Values['StartPage'], gnFirstPage); gnPageMul = StrToIntDef(vSUBOBJECT.Values['PageMul' ], gnPageMul ); sVal = vSUBOBJECT.Values['PagesParam']; if (sVal!='') gsPagesParam = sVal; sVal = vSUBOBJECT.Values['Method' ]; if (sVal!='') gsMethod = sVal; } } // -------------------- Проверка на наличие объекта Login и его выполнение ---- bool CheckLogin(TStrings vMAIN, string sDomen) { int n, i; Variant vSUBOBJECT; // Если есть блок с именем "Login", то выполняем запрос входа на сайт if (GetWonkyObject(vMAIN, 'Login', vSUBOBJECT)) { n = DateTimeToTimeStamp1970(Now, false); // Текущее время (в секундах) i = StrToIntDef(ROOTPODCAST[1003002], 0); // Берём время последнего удачного входа // Входим на сайт только если прошло более двух часов после последнего удачного входа if ( ((n-i) > (360*2)) || (gMode==1)) { if (!LoginRequest(vSUBOBJECT, sDomen)) { CreateErrorItem('Неверный логин или пароль для '+ReplaceStr(sDomen, '_', '.')); return false; } else { ROOTPODCAST[1003002] = n; // Запоминаем время последнего удачного входа }; } } return true; } /////////////////////////////////////////////////////////////////////////////// // ------------------------------------- Загрузка конфига и его приминение ---- string ApplyConfig(string sLink) { string sHtml='', sDomen, sCFG, sCond, sName, sVal; int i, n; bool bFound=false; Variant WONKY307, vMAIN, vOBJECT, vSUBOBJECT; THmsScriptMediaItem Item, Folder; WONKY307 = TStringList.Create(); try { // Берём конфиг из скрипта чтения дополнительных свойств RSS sCFG = ROOTPODCAST[510]; sDomen = ''; // Получаем конфиг HmsRegExMatch('//([^/]+)', mpFilePath, sDomen); // Получаем доменное имя sDomen = ReplaceStr(Trim(Lowercase(sDomen)), '.', '_'); whYamlParser('LoadFromString', WONKY307, sCFG); // Загружаем конфиг в TStrings // Если нет ссылки и это обновление подкаста, то делаем поиск названия if ((LeftCopy(mpFilePath, 4) != "http") && (gMode == 1)) { // Берём блок "Search" из конфига if (GetWonkyObject(WONKY307, 'Search', vSUBOBJECT)) { // Делаем обход всех объектов, перечисленных в блоке "Search" for (i=0; i<vSUBOBJECT.Count; i++) { vOBJECT = vSUBOBJECT.Objects[i]; if (vOBJECT==0) continue; if (HmsRegExMatch('^[НнNn0]', vOBJECT.Values['Enable'], '')) continue; // Если Enable = "0", "No" или "Нет" - пропускаем sLink = vOBJECT.Values['Url']; if (sLink=='') continue; sVal = mpTitle; if (vOBJECT.Values['NoUtf8Encode']!='1') sVal = HmsUtf8Encode(sVal); mpFilePath = ReplaceStr(sLink, '<TITLE>', HmsPercentEncode(sVal)); gsPHPProxy = ""; ApplyCurrentConfigValues(vOBJECT); Init(); //gsNextPage = ''; sHtml = LoadURL(mpFilePath, gsMethod); // Если на страничке устанавливаются куки - устанавливаем их и загружаем страничку снова if (HmsRegExMatch2('document.cookie.*?=.*?(\\w+)=(\\w+)', sHtml, sName, sVal)) { COOKIES.Values[sName] = sVal; sHtml = LoadURL(mpFilePath, gsMethod,'',false,false,true); } HmsRegExMatch('<base[^>]+href=["\'](.*?)["\']', sHtml, gsUrlBase); if (vOBJECT.Values['NoUTF8Decode']=='') sHtml = HmsUtf8Decode(sHtml); gsGroup = vOBJECT.Values['Name']; // Устанавливаем глобальное значение группы, в которой будут создаваться ссылки CreateLinks(' '+sHtml); gsMethod = 'GET'; gsGroup = ""; // Восстанавливаем значения } } return ''; } if (!GetWonkyObject(WONKY307, sDomen, vMAIN)) { // Ищем объект с именем нашего домена CreateErrorItem('Нет правил для сайта '+sDomen); return ''; } // Применяем значения нашего кофига ApplyCurrentConfigValues(vMAIN); // Проверяем, нужно ли выполнить Login. Если вход необходим, но не удался - ошибка if (!CheckLogin(vMAIN, sDomen)) return ''; sHtml = LoadURL(sLink, gsMethod); if (HmsRegExMatch2('document.cookie.*?=.*?(\\w+)=(\\w+)', sHtml, sName, sVal)) { COOKIES.Values[sName] = sVal; sHtml = LoadURL(mpFilePath, gsMethod,'',false,false,true); //sHtml = LoadURL(sLink, gsMethod); } HmsRegExMatch('<base[^>]+href=["\'](.*?)["\']', sHtml, gsUrlBase); if (vMAIN.Values['NoUTF8Decode']=='') sHtml = HmsUtf8Decode(sHtml); // Если есть объект Conditions, то перебираем условия оттуда if (GetWonkyObject(vMAIN, 'Conditions', vSUBOBJECT)) { for (i=0; i<vSUBOBJECT.Count; i++) { vOBJECT = vSUBOBJECT.Objects[i]; if (vOBJECT==0) continue; sCond = vOBJECT.Values['ConditionText']; if (Trim(sCond)!='') bFound = HmsRegExMatch(sCond, sHtml, '', 1, PCRE_SINGLELINE); sCond = vOBJECT.Values['ConditionLink']; if (Trim(sCond)!='') bFound = HmsRegExMatch(sCond, sLink, '', 1, PCRE_SINGLELINE); if (bFound) { if (gbDebug) HmsLogMessage(1, 'Найдено совпадение Condition №'+IntToStr(i+1)); ApplyCurrentConfigValues(vOBJECT); sVal = vOBJECT.Values['Rule']; if (sVal!='') { if (GetWonkyObject(vMAIN, sVal, vSUBOBJECT)) CreateTorrentLinks(vSUBOBJECT, sHtml); return ''; } break; } } } } finally { WONKY307.Free; } if (Trim(gsPatternBlock)=="") { CreateErrorItem('Неизвестное содержимое страницы '+sDomen); return ''; } return sHtml; } // ------------------------ Восстановление отностительной ссылки до полной ---- string RightExpandLink(string sLink) { if (Trim(sLink)=='') return ''; string sLongBase = gsUrlBase; HmsRegExMatch('^(.*?//.*)/', mpFilePath, sLongBase); if (LeftCopy(sLink, 4)!='http') { if (HmsRegExMatch('^\\.(/.*)', sLink, sLink)) sLink = gsUrlBase + Trim(sLink); else if (sLink[1]!='/') sLink = sLongBase + '/' + Trim(sLink); else sLink = HmsExpandLink(sLink, gsUrlBase); } return ReplaceStr(sLink, 'amp;', ''); } // ----------------------------------------- Замена значений всех полей ---- void GetAllVars(TStrings vOBJECT, string sHtml='') { int i; string sName, sVal, sVarValue, sVar, sText; TRegExpr RE = TRegExpr.Create('<(\\w+)>', PCRE_CASELESS); try { // Обходим все установленные поля и заносим их значения в VARS // Если в значении встречается скобки - это регулярное выражение для поиска значения в html // Если в значении встречается <ИМЯ> - это выражение заменяется на значение поля ИМЯ for (i=0; i<vOBJECT.Count; i++) { sName = vOBJECT.Names[i]; sVal = vOBJECT.Values[sName]; if (Pos('(', sVal)>0) if (!HmsRegExMatch(sVal, sHtml, sVal)) continue; if (Trim(sVal)=="") continue; if (Pos(sName, 'Url|Image')>0) sVal = RightExpandLink(sVal); if ((sVal!='') && (sVal[1]==':')) sVal = Trim(Copy(sVal, 2, 999)); if (sName=='Genre' ) sVal = NameCase(sVal); if (sName=='Duration') sVal = GetTimeLength(sVal); vOBJECT.Values[sName] = sVal; // Запоминаем значение } for (i=0; i<vOBJECT.Count; i++) { sName = vOBJECT.Names[i]; sText = vOBJECT.Values[sName]; if (RE.Search(sText)) do { sVar = RE.Match; sVal = vOBJECT.Values[sVar]; if (sVal=='') { if (SameText(sVar, 'LOGIN')) sVal = HmsPercentEncode(mpPodcastAuthorizationUserName); if (SameText(sVar, 'PASSW')) sVal = HmsPercentEncode(mpPodcastAuthorizationPassword); } sText = ReplaceStr(sText, '<'+sVar+'>', sVal); } while (RE.SearchAgain()); vOBJECT.Values[sName] = sText; } } finally { RE.Free; } } // ----------------------------------------- Создание ссылок торрент файла ---- void CreateTorrentLinks(Variant vOBJECT, string sHtml) { string sData, sID='', sVarValue, sLink='', sName='', sFile, sVal, sKPid='', sIMDBid='', sPostData=''; sHtml = HmsRemoveLineBreaks(sHtml); TStrings VARS = TStringList.Create(); Variant vSUBOBJECT; int i; TRegExpr RE = TRegExpr.Create('<(\\w+)>', PCRE_CASELESS); try { // Обходим все установленные поля и заносим их значения в VARS // Если в значении встречается скобки - это регулярное выражение для поиска значения в html // Если в значении встречается <ИМЯ> - это выражение заменяется на значение поля ИМЯ for (i=0; i<vOBJECT.Count; i++) { sName = vOBJECT.Names[i]; sVal = vOBJECT.Values[sName]; if (Pos('(', sVal)>0) if (!HmsRegExMatch(sVal, sHtml, sVal)) sVal = ''; if (Trim(sVal)=="") continue; if (Pos(sName, 'Url|Image')>0) sVal = RightExpandLink(sVal); else sVal = HmsHtmlToText(sVal); if ((sVal!='') && (sVal[1]==':')) sVal = Trim(Copy(sVal, 2, 999)); if (sName=='Genre' ) sVal = NameCase(sVal); if (sName=='Duration') sVal = GetTimeLength(sVal); // Ищем все "<Имя>", и заменяем их на значение поля с таким именем if (RE.Search(sVal)) do { sVarValue = VARS.Values[RE.Match]; if (sVarValue=='') { if (RE.Match=='LOGIN') sVarValue = HmsPercentEncode(mpPodcastAuthorizationUserName); if (RE.Match=='PASSW') sVarValue = HmsPercentEncode(mpPodcastAuthorizationPassword); } sVal = ReplaceStr(sVal, '<'+RE.Match+'>', sVarValue); } while (RE.SearchAgain()); VARS.Values[sName] = sVal; // Запоминаем значение } sLink = VARS.Values['Url']; if (Trim(sLink)!="") { if (GetWonkyObject(vOBJECT, 'PostData', vSUBOBJECT)) sPostData = GetAdditionalPostData(vSUBOBJECT, sHtml); sData = LoadUrl(sLink, VARS.Values['Method']); } if (Pos('8:announce', sData)<1) { ROOTPODCAST[1003002] = ""; // Время последней удачной авторизации на сайте sVal = VARS.Values['Error']; if (sVal=='') sVal = 'Ошибка получения torrent файла '+sLink; CreateErrorItem(sVal); return; } HmsRegExMatch('kinopoisk.ru/rating/(\\d+)', sHtml, sKPid); HmsRegExMatch('kinopoisk.ru/film/(\\d+)' , sHtml, sKPid); HmsRegExMatch('imdb.com/title/tt(\\d+)' , sHtml, sIMDBid); HmsRegExMatch('imdb/\\w+/(\\d+)' , sHtml, sIMDBid); sVal = VARS.Values['Text' ]; if (sVal!='') FolderItem[1001020 ] = sVal; // Текст для показа информации sVal = VARS.Values['Image' ]; if (sVal!='') FolderItem[mpiThumbnail ] = sVal; sVal = VARS.Values['Year' ]; if (sVal!='') FolderItem[mpiYear ] = sVal; sVal = VARS.Values['Duration']; if (sVal!='') FolderItem[mpiTimeLength ] = sVal; sVal = VARS.Values['Genre' ]; if (sVal!='') FolderItem[mpiGenre ] = sVal; sVal = VARS.Values['Author' ]; if (sVal!='') FolderItem[mpiAuthor ] = sVal; sVal = VARS.Values['Author' ]; if (sVal!='') FolderItem[mpiAlbumArtist] = sVal; sVal = VARS.Values['Album' ]; if (sVal!='') FolderItem[mpiAlbum ] = sVal; // Сохраняем торрент в файл sFile = IncludeTrailingBackslash(gsDownloadsDir)+FolderItem.ItemID+'.torrent'; HmsStringToFile(sData, sFile); // Создание ссылкок на файлы внутри торрент-файла CreateTorrentItems(sFile); // Создание информационных ссылкок CreateInfoItem('Раздают' , VARS.Values['Seeders' ]); CreateInfoItem('Качают' , VARS.Values['Leechers' ]); CreateInfoItem('Размер' , VARS.Values['Size' ]); CreateInfoItem('Добавлен', VARS.Values['Date' ]); CreateInfoItem('Год' , VARS.Values['Year' ]); CreateInfoItem('Жанр' , VARS.Values['Genre' ]); CreateInfoItem('Cубтитры', VARS.Values['Subs' ]); CreateInfoItem('Качество', VARS.Values['Quality' ]); CreateInfoItem('Скачало' , VARS.Values['Downloads']); // Если есть id фильма с КиноПоиска, создаём папку для получения информации if (sKPid!='') CreateFolder(FolderItem, 'KPInfo='+sKPid, 'Информация с КиноПоиск.ru'); } finally { VARS.Free; RE.Free; } } /////////////////////////////////////////////////////////////////////////////// // Получение дополнительных данных для Post запроса string GetAdditionalPostData(Variant vObject, string sHtml) { string sName, sVal, sVarValue; sHtml = HmsRemoveLineBreaks(sHtml); TStrings VARS = TStringList.Create(); Variant vSUBOBJECT; int i; TRegExpr RE = TRegExpr.Create('<(\\w+)>', PCRE_CASELESS); string sPostData = ''; try { // Обходим все установленные поля и заносим их значения в VARS // Если в значении встречается скобки - это регулярное выражение для поиска значения в html // Если в значении встречается <ИМЯ> - это выражение заменяется на значение поля ИМЯ for (i=0; i<vOBJECT.Count; i++) { sName = vOBJECT.Names[i]; sVal = vOBJECT.Values[sName]; if (Pos('(', sVal)>0) if (!HmsRegExMatch(sVal, sHtml, sVal)) sVal = ''; if (Trim(sVal)=="") continue; sVal = ReplaceStr(sVal, '&uarr;', ''); sVal = ReplaceStr(sVal, '&darr;', ''); if (Pos(sName, 'Url|Image')>0) sVal = RightExpandLink(sVal); else sVal = HmsHtmlToText(sVal); if ((sVal!='') && (sVal[1]==':')) sVal = Trim(Copy(sVal, 2, 999)); // Ищем все "<Имя>", и заменяем их на значение поля с таким именем if (RE.Search(sVal)) do { sVarValue = VARS.Values[RE.Match]; if (sVarValue=='') { if (RE.Match=='LOGIN') sVarValue = HmsPercentEncode(mpPodcastAuthorizationUserName); if (RE.Match=='PASSW') sVarValue = HmsPercentEncode(mpPodcastAuthorizationPassword); } sVal = ReplaceStr(sVal, '<'+RE.Match+'>', sVarValue); } while (RE.SearchAgain()); VARS.Values[sName] = sVal; // Запоминаем значение } for (i=0; i<VARS.Count; i++) { if (i>0) sPostData += '&'; sName = VARS.Names[i]; sPostData += sName + '=' + VARS.Values[sName]; } } finally { VARS.Free; RE.Free; } return sPostData; } /////////////////////////////////////////////////////////////////////////////// // --------------------------------------- Создание ссылок файлов торрента ---- void CreateTorrentItems(string sFile, bool bDirectPath = false) { string sName, sLink, sVal; int nSecTotal; TTorrentFile TorrentFile; TTorrentSubFile TorrentSubFile, TorrentSubFile2; THmsScriptMediaItem Item; int i, n; bool bExistVideo=false, bExistAudio=false; TorrentFile = TTorrentFile.Create(); try { TorrentFile.LoadFromFile(sFile); if (TorrentFile.MultiFile) { FolderItem[mpiFolderSortOrder] = "mpTitle"; for (i=0; i<TorrentFile.Count; i++) { TorrentSubFile = TorrentFile.Files[i]; if (bDirectPath) { sLink = Format('torrent:%s?index=%d', [sFile, i]); } else { sLink = Format('torrent:%s?index=%d', [FolderItem.ItemID, i]); } sName = TorrentSubFile.Name; if (HmsFileMediaType(sName) == mtVideo) { bExistVideo = true; Item = AddMediaItem(FolderItem, sName, sLink, TorrentSubFile.Path); Item[mpiFileSize] = TorrentSubFile.Length; Item.CopyProperties(FolderItem, [mpiThumbnail, mpiTimeLength, mpiYear, mpiGenre]); } else if (HmsFileMediaType(sName) == mtAudio) { bExistAudio = true; Item = AddMediaItem(FolderItem, sName, sLink, TorrentSubFile.Path); Item[mpiFileSize] = TorrentSubFile.Length; Item.CopyProperties(FolderItem, [mpiThumbnail, mpiTimeLength, mpiYear, mpiGenre, mpiAuthor, mpiAlbum, mpiAlbumArtist]); Item[mpiTranscodingProfile] = gsAudioPrifile; if (Trim(Item[mpiThumbnail])=='') Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/3Dsound.jpg'; nSecTotal = HmsTimeConvert(Item[mpiTimeLength]); if (nSecTotal>0) Item[mpiTimeLength] = Int(nSecTotal * TorrentSubFile.Length / TorrentFile.Length); } else if (RightCopy(sName, 4) == '.srt') { // Поиск видео по имени for (n=0; n<TorrentFile.Count; n++) { TorrentSubFile2 = TorrentFile.Files[n]; sVal = TorrentSubFile2.Name; if (HmsFileMediaType(sVal)!=mtVideo) continue; sVal = ReplaceStr(sVal, ExtractFileExt(sVal), ''); if (SameText(sVal, LeftCopy(sName, Length(sVal)))) { Item = AddMediaItem(FolderItem, sName, sLink, 'Субтитры\\'+TorrentSubFile.Path); Item[mpiFileSize] = TorrentSubFile.Length; Item.CopyProperties(FolderItem, [mpiThumbnail, mpiTimeLength, mpiYear, mpiGenre]); Item[1002100] = TorrentSubFile.Name; // Полное имя файла субтитров Item[1002101] = TorrentFile.Name+'\\'+TorrentSubFile.Path; // Путь (Название торрент файла плюс путь до файла субтитров) Item[1002102] = IntToStr(n); // Запоминаем номер файла видео для нашего файла субтитров Item[1002103] = IntToStr(TorrentSubFile2.Length); // Запоминаем размер файла видео break; } } } } } else { if (bDirectPath) { sLink = Format('torrent:%s?index=%d', [sFile, 0]); } else { sLink = Format('torrent:%s?index=%d', [FolderItem.ItemID, 0]); } sName = TorrentFile.Name; if (sName=="") sName = FolderItem[4]+".avi"; if (HmsFileMediaType(sName) == mtVideo) { bExistVideo = true; Item = AddMediaItem(FolderItem, sName, sLink); Item[mpiFileSize] = TorrentFile.Length; Item.CopyProperties(FolderItem, [mpiThumbnail, mpiTimeLength, mpiYear, mpiGenre]); } else if (HmsFileMediaType(sName) == mtAudio) { bExistAudio = true; Item = AddMediaItem(FolderItem, sName, sLink); Item[mpiFileSize] = TorrentFile.Length; Item.CopyProperties(FolderItem, [mpiThumbnail, mpiTimeLength, mpiYear, mpiGenre, mpiAuthor, mpiAlbum, mpiAlbumArtist]); if (Trim(Item[mpiThumbnail])=='') Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/3Dsound.jpg'; } } } finally { TorrentFile.Free; } if (!bExistVideo && !bExistAudio) { CreateErrorItem('Нет видео или аудио файлов.'); } } // ---------------------------------------------------------------------------- void CreateLinksFromLocalFolder() { string sData, sName, sLink, sFile; int i; THmsScriptMediaItem Item, Folder = FolderItem; if (FileExists(mpFilePath) && (LowerCase(ExtractFileExt(mpFilePath))=='.torrent')) { sData = HmsStringFromFile(mpFilePath); if (Pos('8:announce', sData)<1) { CreateErrorItem('Неверный torrent файл'); return; } sFile = IncludeTrailingBackslash(gsDownloadsDir)+FolderItem.ItemID+'.torrent'; CopyFile(mpFilePath, sFile, false); CreateTorrentItems(mpFilePath); return; } TStrings FILES = TStringList.Create(); TStrings FOLDERS = TStringList.Create(); TTorrentFile TorrentFile = TTorrentFile.Create(); try { HmsGetDirectoryList(mpFilePath, FOLDERS); HmsGetFileList(mpFilePath, FILES, '*.torrent'); if ((FOLDERS.Count+FILES.Count)==0) { CreateErrorItem('Каталог пуст или указан не правильно'); return; } for (i=0; i<FOLDERS.Count; i++) { sLink = FOLDERS.Strings[i]; sName = ExtractFileName(sLink); Item = CreateFolder(Folder, sLink, sName); sFile = IncludeTrailingBackslash(gsDownloadsDir)+Item.ItemID+'.torrent'; CopyFile(sLink, sFile, false); } for (i=0; i<FILES.Count; i++) { sLink = FILES.Strings[i]; sName = ExtractFileName(sLink); TorrentFile.LoadFromFile(sLink); if (Trim(TorrentFile.Name)!='') sName = TorrentFile.Name; Item = CreateFolder(Folder, sLink, sName); sFile = IncludeTrailingBackslash(gsDownloadsDir)+Item.ItemID+'.torrent'; CopyFile(sLink, sFile, false); } } finally {FILES.Free; FOLDERS.Free; TorrentFile.Free; } } // -------------------- Загрузка страниц, поиск и создание ссылок на видео ---- void CreateLinks(string sHtml='') { string sData, sPage, sName, sLink, sYear, sImg, sVal; int i, n, iCnt=0, nGrp=0, nSortCount=0; char sGrp=""; THmsScriptMediaItem Item, Folder = FolderItem; if (sHtml=='') sHtml = ApplyConfig(mpFilePath); if (Trim(sHtml)=='') return; if (gsCutBlock !='') HmsRegExMatch(gsCutBlock, sHtml, sHtml, 1, PCRE_SINGLELINE || PCRE_CASELESS); sVal = ''; // Дозагрузка страниц (если задан шаблон поиска максимального номера сраницы) if ((gsPatternPages!='') && HmsRegExMatch(gsPatternPages, sHtml, sVal, 1, PCRE_SINGLELINE) || (gnPages>1)) { if (sVal!='') gnPages = StrToInt(sVal); // Номер последней страницы if (gnPages > gnMaxPages) gnPages = gnMaxPages; for (i=gnFirstPage+1; i <= gnPages; i++) { HmsSetProgress(Trunc(i*100/gnPages)); HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, gnPages])); sLink = mpFilePath + ReplaceStr(gsPagesParam, '<PN>', IntToStr(i*gnPageMul)); sPage = HmsUtf8Decode(LoadURL(sLink)); if (gsCutBlock!='') HmsRegExMatch(gsCutBlock, sPage, sPage); sHtml += sPage; if (HmsCancelPressed()) break; } HmsHideProgress(); } sHtml = HmsRemoveLineBreaks(sHtml); // Создание ссылок nSortCount = 0; TRegExpr RE = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE); try { if (RE.Search(sHtml)) do { sName=""; sLink=""; sYear=""; sImg=""; HmsRegExMatch(gsPatternTitle, re.Match, sName); HmsRegExMatch(gsPatternLink , re.Match, sLink); HmsRegExMatch(gsPatternImg , re.Match, sImg ); HmsRegExMatch(gsPatternYear , re.Match, sYear); if (Trim(sLink)=="") continue; if (Length(Trim(sName)) < 4) continue; if (HmsRegExMatch('(onmouseover="[^"]+")', sName, sVal)) sName = ReplaceStr(sName, sVal, ''); if (HmsRegExMatch('(onmouseout="[^"]+")' , sName, sVal)) sName = ReplaceStr(sName, sVal, ''); sLink = RightExpandLink(sLink); if (SameText(sLink, mpFilePath)) continue; sName = HmsHtmlToText(sName); sYear = HmsHtmlToText(sYear); if (sImg!="") sImg = RightExpandLink(sImg); // Добавляем год в название, если установлен флаг и этого года в названии нет if ((gbYearInTitle && (Pos(sYear, sName)<1))) sName = Trim(sName)+" ("+sYear+")"; if (gsGroupingKey=="quant") { sGrp = Format("%.2d", [nGrp]); iCnt++; if (iCnt>=gnMaxInGroup) { nGrp++; iCnt=0; } } else if (gsGroupingKey=="alph") sGrp = GetGroupName(sName); else if (gsGroupingKey=="year") sGrp = sYear; else sGrp = ""; if (gsGroup!='') sGrp = gsGroup+'\\'+Trim(sGrp); // Может быть указана глобальная группа (напр. при поиске) if (RightCopy(sGrp, 1)=='\\') sGrp = LeftCopy(sGrp, Length(sGrp)-1); if (Trim(sGrp)!="") Folder = CreateFolder(FolderItem, sGrp); CreateFolder(Folder, sLink, sName, sYear, sImg); } while (RE.SearchAgain()); } finally { RE.Free(); } if ((gsNextPage!='') && HmsRegExMatch(gsNextPage, sHtml, sLink, 1, PCRE_SINGLELINE)) { sLink = RightExpandLink(sLink); CreateFolder(Folder, sLink, 'Следующая страница'); } if (gsGroupingKey=="alph") FolderItem.Sort("mpTitle"); else if (gsGroupingKey=="year") FolderItem.Sort("-mpTitle"); } // ---------------------------------------------------------------------------- string GetTorrentMediaResourceLink() { string sID, sFile, sIndex, sVal, sName, sPath, sData, sLink; HmsRegExMatch2('torrent:(.*?)\\?index=(\\d+)', mpFilePath, sID, sIndex); if (Pos('.', sID)>0) { sFile = sID; // if the sID contains full path to .torrent file } else { sFile = IncludeTrailingBackslash(gsDownloadsDir)+sID+'.torrent'; } sName = Trim(FolderItem[1002100]); sPath = Trim(FolderItem[1002101]); if (sName!='') { sVal = IncludeTrailingBackslash(gsDownloadsDir) + sPath + sName; //if (FolderItem[mpiStreamExtInfo]=='') FolderItem[mpiStreamExtInfo] = 'S||||||SRT|||||||||1|0|||0|'+sVal; if (FileExists(sVal)) { if (Length(HmsStringFromFile(sVal))>0) { sIndex = FolderItem[1002102]; FolderItem[mpiFileSize] = StrToInt(FolderItem[1002103]); mpFileSize = FolderItem[mpiFileSize]; FolderItem[mpiSubtitleLanguage] = sVal; } } } sLink = Format('torrent:%s?index=%s&savepath=%s', [sFile, sIndex, 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; return sLink; } /////////////////////////////////////////////////////////////////////////////// // Создание ссылок на трейлеры void CreateTrailersLinks(string sKPID) { string sHtml, sLink, sName, sTitle, sVal, sImg; TRegExpr RE1, RE2; THmsScriptMediaItem Item; sLink = 'http://www.kinopoisk.ru/film/'+sKPID+'/video/'; sHtml = HmsDownloadURL(sLink, 'Referer: '+sLink, true); RE1 = TRegExpr.Create('<!-- ролик -->(.*?)<!-- /ролик -->', PCRE_SINGLELINE); RE2 = TRegExpr.Create('<a[^>]+href="/getlink.php[^>]+link=([^>]+\\.(mp4|mov|flv)).*?</a>', PCRE_SINGLELINE); if (RE1.Search(sHtml)) do { if (!HmsRegExMatch('(<a[^>]+href="/film/\\d+/video/\\d+/".*?</a>)', RE1.Match, sTitle)) continue; sTitle = HmsHtmlToText(sTitle); if (HmsRegExMatch('["\']previewFile["\']:\\s*?["\'](.*?)["\']', RE1.Match, sVal)) { sImg = 'http://kp.cdn.yandex.net/'+sVal; } if (RE2.Search(RE1.Match)) do { sLink = RE2.Match(1); sName = sTitle+' '+HmsHtmlToText(RE2.Match(0)); Item = FolderItem.FindItemByProperty(mpiTitle, sName); if ((Item != null) && (Item != nil)) Item[mpiFilePath] = sLink; else { Item = AddMediaItem(FolderItem, sName, sLink); Item[mpiThumbnail ] = sImg; Item[mpiTimeLength] = '03:50:00.000'; } } while (RE2.SearchAgain()); } while (RE1.SearchAgain()); RE1.Free; RE2.Free; } /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // // ---------------------------------------------------------------------------- { Init(); if (FolderItem.IsFolder) { // Если это папка - создаём ссылки внутри этой папки FolderItem.DeleteChildItems(); // Удаление существующих ссылок // Если это папка информации от КиноПоиска - создаём информационные ссылки if (HmsRegExMatch('KPInfo=(\\d+)', mpFilePath, mpFilePath)) { InfoFromKP(mpFilePath); return; } Variant bDirExists = DirectoryExists(mpFilePath); // for HMS 2.25 bug if (FileExists(mpFilePath) || bDirExists) { CreateLinksFromLocalFolder(); return; } CheckParameters(); CheckUpdates(); CreateLinks(); HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded)); } else { // Если это ссылка - проверяем, не информационная ли это ссылка if (LeftCopy(mpFilePath, 4)=='Info') VideoPreview(); else if (mpFilePath=='Обновить подкаст' ) UpdatePodcast(); else if (LeftCopy(mpFilePath, 8)=='torrent:') MediaResourceLink = GetTorrentMediaResourceLink(); else MediaResourceLink = mpFilePath; } } 551 C++Script 215 mpTitle 571 /////////////////////////////////////////////////////////////////////////////// // Г Л О Б А Л Ь Н Ы Е П Е Р Е М Е Н Н Ы Е // int gnItemsAdded=0; TDateTime gTimeStart=Now; /////////////////////////////////////////////////////////////////////////////// // Ф У Н К Ц И И // // -------------------------------------- Функция возвращает скрипт поиска ---- char GetSearchDynamicScript() { char sScript='', sLink, sHtml, sRE; // Загружаем с форума тему с сообщением, где выложен актуальный скрипт sLink = 'http://homemediaserver.ru/forum/viewtopic.php?f=15&t=2793&p=17395#p17395'; sHtml = HmsUtf8Decode(HmsDownloadURL(sLink, 'Referer: '+sLink, true)); // Задаём регулярное выражения поиска скрипта (текст между ключевыми словами) sRE = 'BeginDynamicSearchScript\\*/(.*?)/\\*EndDynamicSearchScript'; // Вырезаем из сообщения текст скрипта HmsRegExMatch(sRE, sHtml, sScript, 1, PCRE_SINGLELINE); sScript = HmsHtmlToText(sScript, 1251); // Конвертируем в нужную кодировку sScript = ReplaceStr(sScript, #160, ' '); // Удаляем символ 'no break space' return sScript; } // -------------- Функция создания динамической папки с указанным скриптом ---- THmsScriptMediaItem CreateDynamicItem(THmsScriptMediaItem prntItem, char sTitle, char sLink, char &sScript='') { THmsScriptMediaItem Folder; 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; // Замена в тексте скрипта значение указанной переменной sVarName на значение sNewVal if (HmsRegExMatch2("("+sVarName+"\\s*?=.*?';)", sText, sVal, sVal2)) { HmsRegExMatch(sVarName+"\\s*?=\\s*?'(.*)'", sVal, sVal2); sText = ReplaceStr(sText, sVal, ReplaceStr(sVal , sVal2, sNewVal)); } } // -------------------------------------------------- Создание папки ПОИСК ---- void CreateSearchFolder(THmsScriptMediaItem prntItem) { THmsScriptMediaItem Folder; char sScript, sVal; sScript = GetSearchDynamicScript(); // Получаем скрипт поиска с форума HMS // И меняем значения переменных на свои ReplaceVarValue(sScript, 'gsSuggestQuery' , 'http://kinogo.net/index.php?do=search&titleonly=3&do=search&subaction=search&story=::'); ReplaceVarValue(sScript, 'gsSuggestRegExpr', '(<h2.*?</h2>)'); sScript = ReplaceStr(sScript, 'gnSuggestNoUTFEnc = 0', 'gnSuggestNoUTFEnc = 1'); CreateDynamicItem(prntItem, '"Набрать текст"', '-SearchCommands', sScript); } // ---------------------------------------------------------------------------- THmsScriptMediaItem CreateItem(THmsScriptMediaItem Folder, string sLink, string sTitle="", bool bForceFolder=false) { THmsScriptMediaItem Item; // Если название не указано, а только ссылка - то это папка if (Trim(sTitle)=="") {sTitle = sLink; bForceFolder=true;} //if (sLink[1]=='/') sLink = HmsExpandLink(sLink, gsUrlBase); // Дополняем относительную ссылку Item = Folder.AddFolder(sLink, bForceFolder); // Создаём подкаст/папку Item[mpiTitle ] = sTitle; Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); Item[mpiFolderSortOrder] = "-mpCreateDate"; gnItemsAdded++; return Item; } // ------------------------------------------- Создание структуры подкаста ---- void CreateStructure() { THmsScriptMediaItem Item, Folder; char sHtml, sLink, sTitle; int i, nYear, nMonth, nDay; Folder = CreateItem(FolderItem, '-SearchFolder', '00. Поиск', true); Folder[mpiFolderSortOrder] = "mpTitle"; CreateSearchFolder(Folder); } // ---------------------- Проверка подтверждения на пересоздания структуры ---- bool CheckForSure() { int nAnsw; string sMsg; sMsg = 'ПЕРЕСОЗДАНИЕ СТРУКТУРЫ ПОДКАСТА.\n\n'+ 'Удалить существующую структуру, очистить ссылки???\n\n'+ '"Да" - будут удалены все вложенные папки и ссылки. Структура будет создана заного.\n'+ '"Нет" - будет создана структура поверх существующих ссылок.\n'+ '"Отмена" - не пересоздавать структуру.\n'; if (FolderItem.HasChildItems) { nAnsw = MessageDlg(sMsg, 0, 3+8, 0); if (nAnsw == mrCancel) return false; if (nAnsw == mrYes ) FolderItem.DeleteChildItems(); } return true; } /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // // ---------------------------------------------------------------------------- { //if (!CheckForSure()) return; // Удаление существующих ссылок CreateStructure(); // Создание структуры подкаста HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded)); } 572 C++Script 527 --chkupdates --muzprofile="Фильмы - МУЗЫКА" 39000 Cookie: bb_data=a%3A3%3A%7Bs%3A2%3A%22uk%22%3BN%3Bs%3A3%3A%22uid%22%3Bi%3A137800%3Bs%3A3%3A%22sid%22%3Bs%3A20%3A%22abbBrNSDe19KVhsQsJWw%22%3B%7D; 51 ff506bd4271b2dee36abbc843292bbd5 -SearchFolder 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 4 00. Поиск 35 41951,7118055556 215 mpTitle 93 41951,7118222222 58 16:9 200104 d622852b69e7036e9029a7f0ee99a695 32 d622852b69e7036e9029a7f0ee99a695 -SearchCommands ff506bd4271b2dee36abbc843292bbd5 515 2 512 2 532 2 700 2 553 2 42 3 4 "Набрать текст" 35 41951,7111226852 200 5 500 // Var 01.11.2014 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://kinogo.net/index.php?do=search&titleonly=3&do=search&subaction=search&story=::'; char gsSuggestResultCut= ''; char gsSuggestRegExpr = '(<h2.*?</h2>)'; char gsSuggestMethod = 'GET'; int gnSuggestNoUTFEnc = 1; 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); } // Создание ссылки, информирующей о текущем набранном тексте поиска sText = Format(gsMsgSearchText, [gsTextSearch]); Item = HmsCreateMediaItem(sText, goCmdItem.ItemID); Item[mpiTitle ] = sText; 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[mpiFilePath ] = Format(gsMsgSearchText, [gsTextSearch]); } else { // Выводим сообщение Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png'; Item[mpiFilePath ] = gsMsg; } Item = HmsCreateMediaItem('-command=none', FolderItem.ItemParent.ItemID); // В родительской папке (выше) обновляем информацию о текущем значении текста Item[mpiFilePath] = Format(gsMsgSearchText, [gsTextSearch]); Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg'; Item = HmsCreateMediaItem('-command=none', goCmdItem.ItemID); // Также в папке, содержащую главные команды поиска Item[mpiFilePath] = 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('https?://(.*?)(/.*)', 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 215 -mpCreateDate 93 41951,7118222222 245 d622852b69e7036e9029a7f0ee99a695 51 3cb31b13-aa52-4799-bec9-55245b4ea08a 01. Локальные папки 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 4 01. Локальные папки 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 0 245 3cb31b13-aa52-4799-bec9-55245b4ea08a 93 42057,5106806713 53 b040fb03-969e-450e-a5bf-4631f76dff91 D:\Video\Мои torrents 3cb31b13-aa52-4799-bec9-55245b4ea08a 515 2 512 2 532 2 700 2 553 2 42 3 4 Видео (.torrents) 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 ff03b6b3b9ad7f05e0b938d6fda1dc3c 93 42057,5143536921 525 42979,8592003009 51 b25dbb0c-a326-4645-b08d-bd874d2bf359 https://rutracker.org 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 4 02. Rutracker.org 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 1 245 b25dbb0c-a326-4645-b08d-bd874d2bf359 93 41946,8813596412 215 -mpCreateDate 55 http://195.82.146.52/logo/logo.gif 572 C++Script 571 string gsUrlBase = 'http://rutracker.unblock.ga'; TDateTime gTimeStart=Now; int gnItemsAdded=0; // ---------------------------------------------------------------------------- THmsScriptMediaItem CreateItem(string sLink, string sName) { THmsScriptMediaItem Item = FolderItem.AddFolder(HmsExpandLink(sLink, gsUrlBase)); Item[mpiTitle ] = sName; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; Item[mpiFolderSortOrder] = "-mpCreateDate"; } // ---------------------------------------------------------------------------- // Г Л А В Н А Я П Р О Ц Е Д У Р А { //FolderItem.DeleteChildItems(); CreateItem('/forum/viewforum.php?f=7' , 'Зарубежное кино'); CreateItem('/forum/viewforum.php?f=189' , 'Зарубежные сериалы'); CreateItem('/forum/viewforum.php?f=2366', 'Зарубежные сериалы (HD Video)'); CreateItem('/forum/index.php?c=23' , 'Электронная музыка'); CreateItem('/forum/viewforum.php?f=22' , 'Наше кино'); CreateItem('/forum/viewforum.php?f=124' , 'Арт-хаус и авторское кино'); CreateItem('/forum/viewforum.php?f=93' , 'DVD Video'); CreateItem('/forum/viewforum.php?f=2198', 'HD Video'); CreateItem('/forum/viewforum.php?f=352' , '3D-Стерео Кино, Видео, TV и Спорт'); CreateItem('/forum/viewforum.php?f=4' , 'Мультфильмы'); CreateItem('/forum/viewforum.php?f=921' , 'Мультсериалы'); CreateItem('/forum/viewforum.php?f=1608', 'Футбол'); CreateItem('/forum/viewforum.php?f=2009', 'Хоккей'); CreateItem('/forum/index.php' , 'Форум'); } 53 af7d544d840815f2a75f612b34034205 https://rutracker.org/forum/viewforum.php?f=7 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Зарубежное кино 35 41951,7397800926 215 -mpCreateDate 93 41951,7397842014 525 43566,6801360995 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 af7d544d840815f2a75f612b34034205 53 18286445dc630d580d4272d9ac6a0b1b https://rutracker.org/forum/viewforum.php?f=189 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Зарубежные сериалы 35 41951,7390856482 215 -mpCreateDate 93 41951,7397842014 525 42763,9489473148 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 18286445dc630d580d4272d9ac6a0b1b 53 cb51c35f2911a941b05f32bf64274008 https://rutracker.org/forum/viewforum.php?f=2366 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Зарубежные сериалы (HD Video) 35 41951,7383912037 215 -mpCreateDate 93 41951,7397842014 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 cb51c35f2911a941b05f32bf64274008 53 ae546c20248a216e4c14005f508d9533 https://rutracker.org/forum/index.php?c=23 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Электронная музыка 35 41951,7376967593 215 -mpCreateDate 93 41951,7397842014 525 42979,8569564468 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 ae546c20248a216e4c14005f508d9533 53 896f8a8e66897969648c40579c42c67c https://rutracker.org/forum/viewforum.php?f=22 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Наше кино 35 41951,7370023148 215 -mpCreateDate 93 41951,7397842014 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 896f8a8e66897969648c40579c42c67c 525 42747,981216713 53 48ce0226ec08b5ab8d5c44939e9257e4 https://rutracker.org/forum/viewforum.php?f=124 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Арт-хаус и авторское кино 35 41951,7363078704 215 -mpCreateDate 93 41951,7397842014 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 48ce0226ec08b5ab8d5c44939e9257e4 53 0998eab8d3617e3f811fe341f425e74d https://rutracker.org/forum/viewforum.php?f=93 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 DVD Video 35 41951,7356134259 215 -mpCreateDate 93 41951,7397842014 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 0998eab8d3617e3f811fe341f425e74d 53 f1df1770cf147e9729b21a734f19ddd9 https://rutracker.org/forum/viewforum.php?f=2198 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 HD Video 35 41951,7349189815 215 -mpCreateDate 93 41951,7397842014 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 f1df1770cf147e9729b21a734f19ddd9 53 e75a3df02cefc7975a9c0727ade75ec1 https://rutracker.org/forum/viewforum.php?f=352 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 3D-Стерео Кино, Видео, TV и Спорт 35 41951,734224537 215 -mpCreateDate 93 41951,7397842014 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 e75a3df02cefc7975a9c0727ade75ec1 53 8c62398824763f48a849a1ea5c37093a https://rutracker.org/forum/viewforum.php?f=4 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Мультфильмы 35 41951,7335300926 215 -mpCreateDate 93 41951,7397842014 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 8c62398824763f48a849a1ea5c37093a 53 8caffceb704a3cc5106be2d76dba9758 https://rutracker.org/forum/viewforum.php?f=921 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Мультсериалы 35 41951,7328356481 215 -mpCreateDate 93 41951,7397842014 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 8caffceb704a3cc5106be2d76dba9758 53 3bc88e2604fd310c9f1428767f7cfc7a https://rutracker.org/forum/viewforum.php?f=1608 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Футбол 35 41951,7321412037 215 -mpCreateDate 93 41951,7397842014 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 3bc88e2604fd310c9f1428767f7cfc7a 53 c802d91647ce97121331f02fa2a1e3c1 https://rutracker.org/forum/viewforum.php?f=2009 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Хоккей 35 41951,7314467593 215 -mpCreateDate 93 41951,7397842014 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 c802d91647ce97121331f02fa2a1e3c1 53 30ec1d1977da613687baa31c683b3cce https://rutracker.org/forum/index.php b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Форум 35 41951,7307523148 215 -mpCreateDate 93 41951,7397842014 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 30ec1d1977da613687baa31c683b3cce 53 4dd360ae-7648-419e-a37a-bf22a22b67ae https://rutracker.org/forum/index.php?c=33 b25dbb0c-a326-4645-b08d-bd874d2bf359 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 4dd360ae-7648-419e-a37a-bf22a22b67ae 93 42015,0794383796 525 42399,8953140972 53 02b42a74-d142-43ca-b9f0-68913bd534b9 https://rutracker.org/forum/viewforum.php?f=9 b25dbb0c-a326-4645-b08d-bd874d2bf359 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 02b42a74-d142-43ca-b9f0-68913bd534b9 93 42678,5884529398 525 42678,5900600694 53 3bc6d2b0-2bab-4d82-a973-55e8d9f39379 https://rutracker.org/forum/viewforum.php?f=911 b25dbb0c-a326-4645-b08d-bd874d2bf359 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 3bc6d2b0-2bab-4d82-a973-55e8d9f39379 93 42678,5889527083 53 2c12d036-ee63-4cf3-8a74-a0202767a872 https://rutracker.org/forum/viewforum.php?f=2100 b25dbb0c-a326-4645-b08d-bd874d2bf359 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 2c12d036-ee63-4cf3-8a74-a0202767a872 93 42678,589146169 525 42724,9512054051 53 9f87fd907a24d187c4891ea7b73fbbbe http://rutracker.unblock.ga/forum/viewforum.php?f=7 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Зарубежное кино 35 43156,8235069444 215 -mpCreateDate 93 43156,8235119213 53 dd11952cce713accfdd38a566dfe54aa http://rutracker.unblock.ga/forum/viewforum.php?f=189 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Зарубежные сериалы 35 43156,8228125 215 -mpCreateDate 93 43156,8235119213 53 45abc4960f0de8f57da024362c997c8d http://rutracker.unblock.ga/forum/viewforum.php?f=2366 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Зарубежные сериалы (HD Video) 35 43156,8221180556 215 -mpCreateDate 93 43156,8235119213 53 4bee0241b477e62860d24b4d892c8bf5 http://rutracker.unblock.ga/forum/index.php?c=23 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Электронная музыка 35 43156,8214236111 215 -mpCreateDate 93 43156,8235119213 53 c43b48801480df497f27fab5990dc420 http://rutracker.unblock.ga/forum/viewforum.php?f=22 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Наше кино 35 43156,8207291667 215 -mpCreateDate 93 43156,8235119213 53 174073f8da89724bb395458cbc25cb7d http://rutracker.unblock.ga/forum/viewforum.php?f=124 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Арт-хаус и авторское кино 35 43156,8200347222 215 -mpCreateDate 93 43156,8235119213 53 2eaea9ddeb7e35edf132397ab62b05c0 http://rutracker.unblock.ga/forum/viewforum.php?f=93 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 DVD Video 35 43156,8193402778 215 -mpCreateDate 93 43156,8235119213 53 5ef444dc1da150f0fdf0fa70f9c0e90b http://rutracker.unblock.ga/forum/viewforum.php?f=2198 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 HD Video 35 43156,8186458333 215 -mpCreateDate 93 43156,8235119213 53 9c81ca9e77550778c3c3c87518cf179d http://rutracker.unblock.ga/forum/viewforum.php?f=352 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 3D-Стерео Кино, Видео, TV и Спорт 35 43156,8179513889 215 -mpCreateDate 93 43156,8235119213 53 e16d44a753054ecdd3d7e3d6e6efbce1 http://rutracker.unblock.ga/forum/viewforum.php?f=4 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Мультфильмы 35 43156,8172569444 215 -mpCreateDate 93 43156,8235119213 53 4116aab9ae43018802762e03ebe52aa7 http://rutracker.unblock.ga/forum/viewforum.php?f=921 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Мультсериалы 35 43156,8165625 215 -mpCreateDate 93 43156,8235119213 53 913b4dff4b5e06dc72a255c86ce1b4be http://rutracker.unblock.ga/forum/viewforum.php?f=1608 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Футбол 35 43156,8158680556 215 -mpCreateDate 93 43156,8235119213 53 5f89b9cad257f7ad5cf073c9e45741b8 http://rutracker.unblock.ga/forum/viewforum.php?f=2009 b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Хоккей 35 43156,8151736111 215 -mpCreateDate 93 43156,8235119213 53 c4b668c86c99696b1a3dbe277a8eecd6 http://rutracker.unblock.ga/forum/index.php b25dbb0c-a326-4645-b08d-bd874d2bf359 515 2 512 2 532 2 700 2 553 2 42 3 4 Форум 35 43156,8144791667 215 -mpCreateDate 93 43156,8235119213 51 5246cd6a-9da7-4ece-be60-3938302b75f0 http://proxy-rutor.org 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 4 03. Rutor.org 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 1 245 5246cd6a-9da7-4ece-be60-3938302b75f0 93 41949,0724447454 571 string gsUrlBase = 'http://proxy-rutor.org'; TDateTime gTimeStart=Now; int gnItemsAdded=0; // ---------------------------------------------------------------------------- THmsScriptMediaItem CreateItem(string sLink, string sName) { THmsScriptMediaItem Item = FolderItem.AddFolder(HmsExpandLink(sLink, gsUrlBase)); Item[mpiTitle ] = sName; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; Item[mpiFolderSortOrder] = "-mpCreateDate"; } // ---------------------------------------------------------------------------- // Г Л А В Н А Я П Р О Ц Е Д У Р А { //FolderItem.DeleteChildItems(); CreateItem('/' , 'Главная'); CreateItem('/top' , 'ТОП'); CreateItem('/kino' , 'Зарубежные фильмы'); CreateItem('/nashe_kino', 'Наши фильмы'); CreateItem('/seriali' , 'Сериалы'); CreateItem('/multiki' , 'Мультфильмы'); CreateItem('/audio' , 'Музыка'); CreateItem('/categories', 'Категории'); } 572 C++Script 215 -mpCreateDate 53 c8cbd1f5bae7f7f1e97aebaf4ba9f5ee http://proxy-rutor.org/ 5246cd6a-9da7-4ece-be60-3938302b75f0 515 2 512 2 532 2 700 2 553 2 42 3 35 42138,04 215 -mpCreateDate 93 41951,7448847569 525 43026,4586470486 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 c8cbd1f5bae7f7f1e97aebaf4ba9f5ee 53 3658b79b72a58bbe6033582c7a95b8e5 http://proxy-rutor.org/top 5246cd6a-9da7-4ece-be60-3938302b75f0 515 2 512 2 532 2 700 2 553 2 42 3 4 ТОП 35 42138,0393055556 215 -mpCreateDate 93 41951,7448847569 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 3658b79b72a58bbe6033582c7a95b8e5 53 42fc2a8eff6cdb44912cf7b982301ed3 http://proxy-rutor.org/kino 5246cd6a-9da7-4ece-be60-3938302b75f0 515 2 512 2 532 2 700 2 553 2 42 3 4 Зарубежные фильмы 35 42138,0386111111 215 -mpCreateDate 93 41951,7448847569 525 43566,6794785301 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 42fc2a8eff6cdb44912cf7b982301ed3 53 69d9f92e4a52937cb033216afd478e80 http://proxy-rutor.org/nashe_kino 5246cd6a-9da7-4ece-be60-3938302b75f0 515 2 512 2 532 2 700 2 553 2 42 3 4 Наши фильмы 35 42138,0379166667 215 -mpCreateDate 93 41951,7448847569 525 42093,6028102315 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 69d9f92e4a52937cb033216afd478e80 53 fdd5c660aee81feca03be787239a8878 http://proxy-rutor.org/seriali 5246cd6a-9da7-4ece-be60-3938302b75f0 515 2 512 2 532 2 700 2 553 2 42 3 4 Сериалы 35 42138,0372222222 215 -mpCreateDate 93 41951,7448847569 525 41959,6989534606 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 fdd5c660aee81feca03be787239a8878 53 2953be692c69aecbcac4eaed462d9a7e http://proxy-rutor.org/multiki 5246cd6a-9da7-4ece-be60-3938302b75f0 515 2 512 2 532 2 700 2 553 2 42 3 4 Мультфильмы 35 42138,0365277778 215 -mpCreateDate 93 41951,7448847569 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 2953be692c69aecbcac4eaed462d9a7e 53 0eca245027b7d159132b9a9be3a877a2 http://proxy-rutor.org/audio 5246cd6a-9da7-4ece-be60-3938302b75f0 515 2 512 2 532 2 700 2 553 2 42 3 4 Музыка 35 42138,0358333333 215 -mpCreateDate 93 41951,7448847569 525 42399,5360600347 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 0eca245027b7d159132b9a9be3a877a2 53 5c1dc15f15479f5d07bceb97c69dd90b http://proxy-rutor.org/categories 5246cd6a-9da7-4ece-be60-3938302b75f0 515 2 512 2 532 2 700 2 553 2 42 3 4 Категории 35 42138,0351388889 215 -mpCreateDate 93 41951,7448847569 525 41965,9239991204 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 5c1dc15f15479f5d07bceb97c69dd90b 51 3b57f891-65ef-4cda-8618-757fa947f4b8 http://www.nntt.org 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 4 05. NNTT 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 1 245 3b57f891-65ef-4cda-8618-757fa947f4b8 93 41951,7349433102 55 http://nnportal.org/portal/styles/nnttBlue/imageset/site_logo.png 571 string gsUrlBase = 'http://www.nntt.org'; TDateTime gTimeStart=Now; int gnItemsAdded=0; // ---------------------------------------------------------------------------- THmsScriptMediaItem CreateItem(THmsScriptMediaItem Folder, string sLink, string sName='') { if (sName=="") sName=sLink; THmsScriptMediaItem Item = Folder.AddFolder(HmsExpandLink(sLink, gsUrlBase), (sName==sLink)); Item[mpiTitle ] = HmsHtmlToText(sName); Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; Item[mpiFolderSortOrder] = "-mpCreateDate"; return Item; } // ---------------------------------------------------------------------------- // Г Л А В Н А Я П Р О Ц Е Д У Р А { string sHtml, sLink, sName; THmsScriptMediaItem Folder; FolderItem.DeleteChildItems(); sHtml = HmsDownloadUrl(gsUrlBase, '', true); sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml)); TRegExpr RE1 = TRegExpr.Create('(<a[^>]+cat_title[^>]+href="http.*?cat_title)', PCRE_SINGLELINE); TRegExpr RE2 = TRegExpr.Create('(<li[^>]+forum.*?</li>)', PCRE_SINGLELINE); try { if (RE1.Search(sHtml)) do { sName=""; HmsRegExMatch('(<a[^>]+href="http.*?</a>)', RE1.Match, sName); if (sName=="") continue; Folder = CreateItem(FolderItem, sName); if (RE2.Search(RE1.Match)) do { sLink=""; sName=""; HmsRegExMatch('<a[^>]+href="(.*?)"' , RE2.Match, sLink); HmsRegExMatch('(<a[^>]+href=".*?</a>)', RE2.Match, sName); if (sLink=="") continue; CreateItem(Folder, sLink, sName); } while (RE2.SearchAgain()); } while (RE1.SearchAgain()); } finally { RE1.Free; RE2.Free; } CreateItem(FolderItem, '/', 'Форум'); } 572 C++Script 215 Unsorted 53 8868faa5-c311-4676-9381-13803bc10ba5 http://www.nntt.org/viewforum.php?f=154 3b57f891-65ef-4cda-8618-757fa947f4b8 515 2 512 2 532 2 700 2 553 2 42 3 4 Зарубежное кино (HD Video) 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 8868faa5-c311-4676-9381-13803bc10ba5 93 43025,9777069676 525 43025,9834318981 53 09e93d99-03c0-4f14-8397-528f4e722b9c http://www.nntt.org/viewforum.php?f=153 3b57f891-65ef-4cda-8618-757fa947f4b8 515 2 512 2 532 2 700 2 553 2 42 3 4 Зарубежное кино (DVD Video) 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 09e93d99-03c0-4f14-8397-528f4e722b9c 93 43025,9778270718 525 43025,9894259838 53 5a780f65-4d32-4ace-bc35-c9d104536a09 http://www.nntt.org/viewforum.php?f=156 3b57f891-65ef-4cda-8618-757fa947f4b8 515 2 512 2 532 2 700 2 553 2 42 3 4 Наше кино (HD Video) 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 5a780f65-4d32-4ace-bc35-c9d104536a09 93 43025,978225544 53 dbff2f3a-646a-43de-9e6b-7de51a3b96ac http://www.nntt.org/viewforum.php?f=155 3b57f891-65ef-4cda-8618-757fa947f4b8 515 2 512 2 532 2 700 2 553 2 42 3 4 Наше кино (DVD Video) 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 dbff2f3a-646a-43de-9e6b-7de51a3b96ac 93 43025,9784120486 53 570858bd-1a4f-4603-923e-5dbf8390bb62 http://www.nntt.org/viewforum.php?f=157 3b57f891-65ef-4cda-8618-757fa947f4b8 515 2 512 2 532 2 700 2 553 2 42 3 4 Кино в 3D (Стереофильмы) 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 570858bd-1a4f-4603-923e-5dbf8390bb62 93 43025,9785608912 53 fbcfa4d5-1ab1-474a-8b21-703b6c26da88 http://www.nntt.org/viewforum.php?f=159 3b57f891-65ef-4cda-8618-757fa947f4b8 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 fbcfa4d5-1ab1-474a-8b21-703b6c26da88 93 43025,9787586921 53 3e8be8d5-6943-4ed2-89ad-7c1461072ccf http://www.nntt.org/viewforum.php?f=160 3b57f891-65ef-4cda-8618-757fa947f4b8 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 3e8be8d5-6943-4ed2-89ad-7c1461072ccf 93 43025,9789144444 53 6c0a52cb-2bf1-49b4-b05c-a73b8b4d662a http://www.nntt.org/viewforum.php?f=161 3b57f891-65ef-4cda-8618-757fa947f4b8 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 6c0a52cb-2bf1-49b4-b05c-a73b8b4d662a 93 43025,9791324769 53 ed62f136-7c4e-4c19-be62-250eaa777009 http://www.nntt.org/viewforum.php?f=162 3b57f891-65ef-4cda-8618-757fa947f4b8 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 ed62f136-7c4e-4c19-be62-250eaa777009 93 43025,9793722338 53 6f3a93f5-c279-4d97-a002-ba432952771f http://www.nntt.org/viewforum.php?f=164 3b57f891-65ef-4cda-8618-757fa947f4b8 515 2 512 2 532 2 700 2 553 2 42 3 4 Зарубежное кино, экранки (CamRip, TS, Screener) 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 6f3a93f5-c279-4d97-a002-ba432952771f 93 43025,9794826852 53 3d92638d-4dee-4018-af7f-73737183b20d http://www.nntt.org/viewforum.php?f=166 3b57f891-65ef-4cda-8618-757fa947f4b8 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 3d92638d-4dee-4018-af7f-73737183b20d 93 43025,9796925463 53 5ff1222a-6f92-4059-bda5-5b4c92d4a19d http://www.nntt.org/viewforum.php?f=167 3b57f891-65ef-4cda-8618-757fa947f4b8 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 5ff1222a-6f92-4059-bda5-5b4c92d4a19d 93 43025,9799402431 53 2319afc4-7f8b-439c-bf24-0cd3c82a16f4 http://www.nntt.org/viewforum.php?f=168 3b57f891-65ef-4cda-8618-757fa947f4b8 515 2 512 2 532 2 700 2 553 2 42 3 4 Нелицензионные сборники на DVD (Наше) 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 2319afc4-7f8b-439c-bf24-0cd3c82a16f4 93 43025,9801457292 53 6b8e7677-0865-49d9-a98a-d4af2b2c6deb http://www.nntt.org/viewforum.php?f=169 3b57f891-65ef-4cda-8618-757fa947f4b8 515 2 512 2 532 2 700 2 553 2 42 3 4 Наше кино, экранки (CamRip, TS, Screener) 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 6b8e7677-0865-49d9-a98a-d4af2b2c6deb 93 43025,9802710417 53 cf955847-aabb-4cd3-8d13-405513f9cadc http://www.nntt.org/viewforum.php?f=270 3b57f891-65ef-4cda-8618-757fa947f4b8 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 cf955847-aabb-4cd3-8d13-405513f9cadc 93 43025,9804290509 53 21afd684-54ba-4f22-9b57-b7ef02cfdc2a http://www.nntt.org/viewforum.php?f=235 3b57f891-65ef-4cda-8618-757fa947f4b8 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 21afd684-54ba-4f22-9b57-b7ef02cfdc2a 93 43025,9805657755 53 5d6ab6c1-b283-4df2-ab9c-0f9527854f60 http://www.nntt.org/viewforum.php?f=8 3b57f891-65ef-4cda-8618-757fa947f4b8 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 5d6ab6c1-b283-4df2-ab9c-0f9527854f60 93 43025,9807029282 53 0307bca4-f967-4a0d-8184-c423f8cfd7ba http://www.nntt.org/viewforum.php?f=9 3b57f891-65ef-4cda-8618-757fa947f4b8 515 2 512 2 532 2 700 2 553 2 42 3 4 TV, развлекательные телепередачи и шоу, приколы и юмор 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 0307bca4-f967-4a0d-8184-c423f8cfd7ba 93 43025,9809177778 53 2fd47020-c904-4272-9598-86afcf8c60f4 http://www.nntt.org/viewforum.php?f=12 3b57f891-65ef-4cda-8618-757fa947f4b8 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 2fd47020-c904-4272-9598-86afcf8c60f4 93 43025,9810103241 53 be4ab804-758a-415f-87f6-434aa205add7 http://www.nntt.org/viewforum.php?f=962 3b57f891-65ef-4cda-8618-757fa947f4b8 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 be4ab804-758a-415f-87f6-434aa205add7 93 43025,9811634028 53 997c8523-1060-4858-bc23-9faf65f44e88 http://www.nntt.org/viewforum.php?f=1046 3b57f891-65ef-4cda-8618-757fa947f4b8 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 997c8523-1060-4858-bc23-9faf65f44e88 93 43025,9813476042 53 1d1d18cc-a301-4559-8241-581a2cb089d6 http://www.nntt.org/viewforum.php?f=1010 3b57f891-65ef-4cda-8618-757fa947f4b8 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 1d1d18cc-a301-4559-8241-581a2cb089d6 93 43025,9815235648 53 e7b9afe9-f029-4a59-9edb-8a51e8ce3f7f http://www.nntt.org/viewforum.php?f=350 3b57f891-65ef-4cda-8618-757fa947f4b8 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 e7b9afe9-f029-4a59-9edb-8a51e8ce3f7f 93 43025,9818288194 525 43025,9864708102 53 0ea5da6e-70f9-4c20-ac4e-e37426859440 http://www.nntt.org/viewforum.php?f=758 3b57f891-65ef-4cda-8618-757fa947f4b8 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 0ea5da6e-70f9-4c20-ac4e-e37426859440 93 43025,9819932755 53 494d6ab2-a370-4a0f-92e3-42bdce86789d http://www.nntt.org/viewforum.php?f=616 3b57f891-65ef-4cda-8618-757fa947f4b8 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 494d6ab2-a370-4a0f-92e3-42bdce86789d 93 43025,9821995486 53 5e825208-c173-4a7f-b094-7e0dc0a35f87 http://www.nntt.org/viewforum.php?f=824 3b57f891-65ef-4cda-8618-757fa947f4b8 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 5e825208-c173-4a7f-b094-7e0dc0a35f87 93 43025,9873373611 53 dadf1512-5c46-4660-86f6-1bb6287df484 http://www.nntt.org/viewforum.php?f=1008 3b57f891-65ef-4cda-8618-757fa947f4b8 515 2 512 2 532 2 700 2 553 2 42 3 4 Pron 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 dadf1512-5c46-4660-86f6-1bb6287df484 93 43025,9900146296 51 14dc783d-0478-470b-81a6-d7d532276c0a http://peerates.ws 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 4 06. Torrents-nn.cn 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 1 245 14dc783d-0478-470b-81a6-d7d532276c0a 93 41951,735753669 55 http://torrents-nn.cn/images/lustrous/header/logo.gif 571 string gsUrlBase = 'http://peerates.ws'; TDateTime gTimeStart=Now; int gnItemsAdded=0; // ---------------------------------------------------------------------------- THmsScriptMediaItem CreateItem(string sLink, string sName) { THmsScriptMediaItem Item = FolderItem.AddFolder(HmsExpandLink(sLink, gsUrlBase)); Item[mpiTitle ] = sName; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++; Item[mpiFolderSortOrder] = "-mpCreateDate"; } // ---------------------------------------------------------------------------- // Г Л А В Н А Я П Р О Ц Е Д У Р А { //FolderItem.DeleteChildItems(); CreateItem('/' , 'Главная'); } 572 C++Script 215 -mpCreateDate 53 c38091814d091eaed1923d8ed4a6f93c http://peerates.ws/ 14dc783d-0478-470b-81a6-d7d532276c0a 515 2 512 2 532 2 700 2 553 2 42 3 4 Главная 35 41951,9602199074 215 -mpCreateDate 93 41951,9602286574 525 43025,9977635185 51 6d2eaed2-9e3c-45e8-97b8-0e225d4600ed http://torrents.omsk.ru 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 4 07. Torrents.omsk.ru 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 0 245 6d2eaed2-9e3c-45e8-97b8-0e225d4600ed 93 41966,5639342477 215 mpTitle 53 c2c82222-9ac0-440e-b886-a38ac04c486d http://torrents.omsk.ru/ 6d2eaed2-9e3c-45e8-97b8-0e225d4600ed 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 c2c82222-9ac0-440e-b886-a38ac04c486d 93 41966,5641971991 525 43025,9980113194 32 414395a15b007f4295a4a05d56c32134 -SettingsFolder 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 4 Настройки 35 42015,0749884259 200 5 500 /////////////////////////////////////////////////////////////////////////////// // Г Л О Б А Л Ь Н Ы Е П Е Р Е М Е Н Н Ы Е // THmsScriptMediaItem goRoot = FolderItem; // Корневая папка настроек string gsRootPath = '-SettingsFolder', // Значение поля путь (ссылка) корневой папки настроек gsKey = '', // Ключ (определяется ниже) gsValue = ''; // Значение ключа (устанавливается ниже) TDateTime gTimeStart = Now; // Время запуска скрипта TStrings SETTINGS; // Объект TStrings для хранения описания настроек int gnTotalItems = 0, // Глобальный счетчик // Константы параметров этой динамической папки mpiFolderType = 200, // Тип папки mpiDynamicScript = 500, // Скрипт mpiDynamicSyntaxType = 501, // Язык скрипта mpiPreviousItemID = 200104, // Предыдущий ItemID ; /////////////////////////////////////////////////////////////////////////////// // Ф У Н К Ц И И // // ----------------------------------------------------- Структура настроек --- void SettingsStructure() { // Указываем ключи и их наименования // Также указываем ключ и далее знак ':' и после - значение ключа (или '+' - добавить, '-' - удалить ключ) SETTINGS.Values["--chkupdates"] = "Проверять обновления подкаста"; SETTINGS.Values["--chkupdates:-"] = 'Не проверять'; SETTINGS.Values["--chkupdates:+"] = 'Проверять'; } // ---------------------------------- Проверка текущего состояния настройки --- bool CheckKeyState(string sVal) { string PARAMS = goRoot.ItemParent[mpiPodcastParameters]+' '; // Строка установленных параметров подкаста bool bExist = (Pos(gsKey+' ', PARAMS)>0); // Проверяем, указан ли уже ключ if (sVal=='-') return !bExist; // Если проверяемое значение '-' - ключ не должен быть указан else if (sVal=='+') return bExist; // Если проверяемое значение '+' - указан ли ключ else return (Pos(gsKey+'='+sVal+' ', PARAMS)>0); // Иначе проверяем, установлено ли в параметрах заданное значение } // ---------------------------------------------- Создание ссылки-сообщения --- void ShowMessageLink(string sMsg) { THmsScriptMediaItem Item = HmsCreateMediaItem(sMsg, FolderItem.ItemID); Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png'; } // ---------- Функция создания динамической папки с унаследованным скриптом --- void CreateItem(string sTitle, string sLink) { THmsScriptMediaItem Folder = FolderItem.AddFolder(sLink, true); Folder[mpiTitle ] = sTitle; Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++; Folder.CopyProperties(FolderItem, [mpiFolderType, mpiDynamicScript, mpiDynamicSyntaxType, mpiFolderSortOrder]); } /////////////////////////////////////////////////////////////////////////////// // ----------------------------------------------- Создание списка настроек --- void CreateMainMenu() { for (int i=0; i<SETTINGS.Count; i++) { // Обходим в цикле все настройки string sKey = SETTINGS.Names[i]; // Получаем ключ настроек if (Pos(':', sKey)>0) continue; // Если там есть ':', то это вариант настройки - пропускаем CreateItem(SETTINGS.Values[sKey], '-showValues='+sKey); // Создаём пункт настройки } } // ------------------------------------ Создание списка вариантов настройки --- void CreateValuesList() { int i; string sVal, sKey, sName, sState; // При входе в процедуру в gsKey уже сам ключ for (i=0; i<SETTINGS.Count; i++) { // Обходим в цикле все настройки sKey = SETTINGS.Names[i]; // Получаем ключ настроек sName = SETTINGS.Values[sKey]; // Наименование варианта настройки if (!HmsRegExMatch('^'+gsKey+':(.*)', sKey, sVal)) continue; // Если не получили значение нашего ключа, пропускаем if (CheckKeyState(sVal)) sState='[v]'; else sState='[ ]'; // Проверка: установлено ли данное значение, ставим пометку CreateItem(sState+' '+sName, '-key='+gsKey+' -value='+sVal); // Создаём пункт варианта настройки } } // ------------------------ Включение/Отключение настройки или его значения --- void ApplyKeyValue() { // При входе в процедуру уже в gsKey - ключ, в gsValue - его значение (может быть '+' или '-', это установить или удалить параметр) bool bExist; string sOldVal=gsKey, sNewVal, PARAMS; // По-умолчанию в sOldVal сам ключ PARAMS = goRoot.ItemParent[mpiPodcastParameters]+' '; // Строка установленных параметров подкаста HmsRegExMatch('('+gsKey+'=.*?)\\s', PARAMS, sOldVal); // Вылавливаем в sOldVal установленное значение bExist = (Pos(sOldVal, PARAMS)>0); // Устанавливаем флаг присутсвия ключа в параметрах if (gsValue=='-') sNewVal = ''; // Замена на пустое значение = удалению else if (gsValue=='+') sNewVal = gsKey; // Просто устанавливаем ключ else sNewVal = gsKey+'='+gsValue; // Устанавливаем ключ с новым значением if (bExist) PARAMS = ReplaceStr(PARAMS, sOldVal, sNewVal); // Если ключ уже присутствует - заменяем else PARAMS += sNewVal; // Иначе просто добавляем ShowMessageLink('ВЫБРАНО: '+Copy(mpTitle, 5, 99)); // Пропускаем '[ ] ' в mpTitle и сообщаем о выбранном варианте goRoot.ItemParent[mpiPodcastParameters] = Trim(ReplaceStr(PARAMS, ' ', ' ')); // Сохраняем параметры подкаста } // ---------------------------------------------------------------------------- // Проверка значения ссылки текущей папки и извлечение группировок регулярного выражения в gsKey и gsValue bool CheckPath(string sPattern) { return HmsRegExMatch2(sPattern, mpFilePath, gsKey, gsValue); } /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // // ---------------------------------------------------------------------------- { // Поиск корневой динамической папки (ибо этот скрипт может выполнятся и в подпапках) while ((goRoot[mpiFilePath]!=gsRootPath) && (goRoot.ItemParent!=nil)) goRoot = goRoot.ItemParent; if (goRoot[mpiFilePath]!=gsRootPath) { ShowMessageLink('Не найдена папка настроек с путём '+gsRootPath); return; } // Если это повторный вызов, смены папки не произошло - ничего не делаем if ((FolderItem.ItemID==goRoot[mpiPreviousItemID]) && (FolderItem!=goRoot) && !DebugMode) return; FolderItem.DeleteChildItems(); goRoot[mpiPreviousItemID] = FolderItem.ItemID; SETTINGS = TStringList.Create(); try { SettingsStructure(); if (CheckPath(gsRootPath)) CreateMainMenu(); // Если это корень - создаём список настроек else if (CheckPath('-showValues=(.*)')) CreateValuesList(); // Зашли в настройку - показываем список вариантов значений else if (CheckPath('-key=(.*?) -value=(.*)')) ApplyKeyValue(); // Зашли в вариант значения настройки - применяем этот вариант } finally { SETTINGS.Free(); } HmsIncSystemUpdateID(); // Говорим устройству об обновлении содержания } 501 C++Script 215 -mpCreateDate 93 42015,0749882292 245 414395a15b007f4295a4a05d56c32134 51 cb60dc68-2c40-4aea-9aa4-ae428b486ec1 http://bigtorrent.org 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 55 http://bigtorrent.org/templates/light/images/logo.png 4 11. Bigtorrent.org 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 0 245 cb60dc68-2c40-4aea-9aa4-ae428b486ec1 93 42500,9730782755 215 -mpCreateDate 53 f4faa501-a4a8-4bc4-9ccb-03be0ec2bf14 http://bigtorrent.org/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 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 f4faa501-a4a8-4bc4-9ccb-03be0ec2bf14 93 42500,9839370486 525 43025,9982465625 53 2e44ca70-1c50-41c1-9432-100a2d4a1518 http://bigtorrent.org/video/films/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 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 2e44ca70-1c50-41c1-9432-100a2d4a1518 93 42500,9860603819 525 42500,9881465741 53 d026c949-09e8-4548-afa8-651fc0ea5e79 http://bigtorrent.org/video/mult/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 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 d026c949-09e8-4548-afa8-651fc0ea5e79 93 42500,9860603819 525 42724,9660074884 53 568248e2-9d8d-4ea0-b61d-23a41908e1b2 http://bigtorrent.org/video/tvrip/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 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 568248e2-9d8d-4ea0-b61d-23a41908e1b2 93 42500,9860603819 53 7e8d11f2-0fab-45cf-b9db-78de759a7338 http://bigtorrent.org/video/series/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 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 7e8d11f2-0fab-45cf-b9db-78de759a7338 93 42500,9860603819 53 6713d8c6-e3ba-4a6d-9bbc-2d6c3df184f9 http://bigtorrent.org/video/hd/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 515 2 512 2 532 2 700 2 553 2 42 3 4 HD 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 6713d8c6-e3ba-4a6d-9bbc-2d6c3df184f9 93 42500,9860603819 53 18f70532-f2b5-4028-b996-5f2f9cf3c458 http://bigtorrent.org/video/muzvid/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 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 18f70532-f2b5-4028-b996-5f2f9cf3c458 93 42500,9860603819 53 b7d92c76-9f62-45a8-8010-e7f9ab789208 http://bigtorrent.org/video/sportvid/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 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 b7d92c76-9f62-45a8-8010-e7f9ab789208 93 42500,9860603819 53 9d761b7e-f034-4836-8b4f-388c6935eb2f http://bigtorrent.org/video/jumor_vid/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 515 2 512 2 532 2 700 2 553 2 42 3 93 42500,9860603819 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 9d761b7e-f034-4836-8b4f-388c6935eb2f 53 37157832-7927-4f82-9b30-6e3efdfd0487 http://bigtorrent.org/video/clips/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 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 37157832-7927-4f82-9b30-6e3efdfd0487 93 42500,9882107755 53 bd84d686-10ec-472a-8adf-edcc4265ec55 http://bigtorrent.org/music/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 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 bd84d686-10ec-472a-8adf-edcc4265ec55 93 42500,9882107755 53 13e07175-0d87-4e9f-8e9c-16377a67bbb2 http://bigtorrent.org/pron/ cb60dc68-2c40-4aea-9aa4-ae428b486ec1 515 2 512 2 532 2 700 2 553 2 42 3 4 18+ 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 13e07175-0d87-4e9f-8e9c-16377a67bbb2 93 42500,9882107755 525 42500,9883723032 51 cc863680-dee2-4a2b-9bf3-c22ec4b22a85 http://kinohd.net/ 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 55 http://kinohd.net/templates/Default/images/s5_logo.png 4 13. Kinohd.net 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 0 245 cc863680-dee2-4a2b-9bf3-c22ec4b22a85 93 42503,0299085648 53 ba48bc29-b145-496f-a7b0-ebdaa5bbddf7 http://kinohd.net/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 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 ba48bc29-b145-496f-a7b0-ebdaa5bbddf7 93 42503,0301664352 525 43025,9984365741 53 ed146c8e-7eac-490a-9e34-07bb2e0c5be8 http://kinohd.net/filmhd2016/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 515 2 512 2 532 2 700 2 553 2 42 3 4 Фильмы 2016 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 ed146c8e-7eac-490a-9e34-07bb2e0c5be8 93 42503,0322874653 525 42503,0429228357 53 788bd7b5-6abc-4595-b9a0-c4b3ccb46cc2 http://kinohd.net/filmy2015/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 515 2 512 2 532 2 700 2 553 2 42 3 4 Фильмы 2015 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 788bd7b5-6abc-4595-b9a0-c4b3ccb46cc2 93 42503,0322874653 525 42813,8902000347 53 6e62c318-fee3-483c-8e1e-f0a5a5608c12 http://kinohd.net/web-dl/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 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 6e62c318-fee3-483c-8e1e-f0a5a5608c12 93 42503,0322874653 525 42724,9435168287 53 d2424e08-b4b1-499d-a519-593b8483fea4 http://kinohd.net/4k/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 515 2 512 2 532 2 700 2 553 2 42 3 4 4K HD 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 d2424e08-b4b1-499d-a519-593b8483fea4 93 42503,0322874653 525 42724,9482752894 53 e8a05f9d-a695-4603-a527-b8f527927854 http://kinohd.net/1080p/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 515 2 512 2 532 2 700 2 553 2 42 3 4 1080p HD 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 e8a05f9d-a695-4603-a527-b8f527927854 93 42503,0322874653 525 42724,9477865856 53 59840caa-95ec-4584-85d2-8db867584ee9 http://kinohd.net/720p/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 515 2 512 2 532 2 700 2 553 2 42 3 4 720p HD 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 59840caa-95ec-4584-85d2-8db867584ee9 93 42503,0322874653 53 717f01d2-b9a7-43b2-a9c3-9c7a02cabf20 http://kinohd.net/3d/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 515 2 512 2 532 2 700 2 553 2 42 3 4 3D HD 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 717f01d2-b9a7-43b2-a9c3-9c7a02cabf20 93 42503,0322874653 53 e3ed5f9f-bb6d-45d4-8455-c259bdf2997e http://kinohd.net/fantastika/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 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 e3ed5f9f-bb6d-45d4-8455-c259bdf2997e 93 42503,0322874653 53 6b407ec6-3be1-42bc-abd5-3a0eea2a24d0 http://kinohd.net/multfilm/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 515 2 512 2 532 2 700 2 553 2 42 3 93 42503,0322874653 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 6b407ec6-3be1-42bc-abd5-3a0eea2a24d0 53 28bc2ae2-35be-481c-ab22-d82cc50bf470 http://kinohd.net/documentalnii/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 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 28bc2ae2-35be-481c-ab22-d82cc50bf470 93 42503,0344425463 53 c9561c9d-0dc8-48b8-ace5-a532b68bfca0 http://kinohd.net/60fps/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 515 2 512 2 532 2 700 2 553 2 42 3 4 60 FPS 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 c9561c9d-0dc8-48b8-ace5-a532b68bfca0 93 42503,0344425463 53 829f94a5-1117-4efb-9579-5600a9215157 http://kinohd.net/russkii/ cc863680-dee2-4a2b-9bf3-c22ec4b22a85 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 829f94a5-1117-4efb-9579-5600a9215157 93 42503,0344425463 51 cd61c3f7-25c0-4cce-90fb-21e0e5ec600b http://rgfootball.net 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 55 http://rgfootball.tv/media/up/13510880408.png 4 14. RGFootball.net 41 data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAkGBxMTEhUUExMWFhUWGB0ZGBcXGB0fHxkaGhcdFxofGhsYHighGRolHRcZIjEiJSkrLy4uHR8zODMtNygtLisBCgoKDg0OGxAQGzYlICUtLS8wLzcvLS01LS0tLS0tLS0vLS0vNS8vLy0tLS0tLS0vLS0tLS0tLS0tLS0tLS0tLf/AABEIAHYBqgMBEQACEQEDEQH/xAAcAAACAgMBAQAAAAAAAAAAAAAABQQGAgMHAQj/xABOEAACAQIDBAYGBggDBgQHAQABAgMAEQQSIQUxQVEGEyJhcYEHMlKRobEUI0JicsEzU4KSorLR8BVD4SQ1Y3PC0iWjs/E0dIOTtNPiFv/EABoBAAIDAQEAAAAAAAAAAAAAAAAEAgMFAQb/xAA+EQABAwIDAwsDAwQBAgcAAAABAAIDBBESITEFQVETIjJhcYGRocHR8BSx4TNCUhUjYvEGJDQlQ3KCkqLS/9oADAMBAAIRAxEAPwDuNCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCFi7gC5IA5mhCgzbYiX7Wb8I0P7R7PxpeSqhj6bgFayF7tAokvSNRuQ/tED+XNSbtr0w0JPcr20Mp3KOelH3E/+4f8Asqv+tQ8Cp/0+RbY+kgO+M/ssD/MFFWN2xTHW47lB1DKFMh25Cd7FPxiwH7QuvxpyKrhl6DgUu+F7OkExVgRcG4PEUwq17QhFCFExO0okuC1yOC6keNvV87VXJMyMXebKbY3ONgEmx3SgKNAF72Nz+6u/yas1+1o74YgXFNsoX2u42CXLtnGTH6lGtzICr5XGa3nVjXVsm4MHXmVwtpmby7sWca4gn6zFBbb1iLuR42Jq6zm/qS/Ye6rJaeizx+BNjtqEJ1bTOGt6xVgfH1dKtE0ZFsSr5N2tkukhkJ+rxwN9yuxB+YNQdGXdGQ+R9FMPaOkwea0T4jGQmzEn8DhiR+GS5pZ7a5nRcHdVrFWt+mdqCPNb8J0nkvZgrHkwKt5kXB8lqj+qviOGeMhTNCHC8brpvh9vxN6wZPEXHvW9h+K1PQ19PL0XeOSWkp5GahM4ZVYXVgwPEG494pxULOhCjYvHRx+s2vIan3Dh37qg+RsYxONgpNaXGwCTYvpJb1VC97G/vAIHuY1lS7ZhbkwFydjoHu6WSUS9KJGPZZj3IoI/lv8AGqhWV0v6cdvnXZWGmp2dN6x/xPFHXq5/iP8AqqX/AIn1eXuo2o+J+dyP8cmX1jKn4l/Ngag6faUebm37r/YqQipH6OU7DdIpeauO8a+9SAP3ag3bT2m0jF12zh+1yn4TpNG2jKRzynNbysGv4Ka0YtpwPyJwnrSj6SRudrpxhsUkgujBudju8RwPjT4IIuEuRZbq6uIoQihCKEIoQihCKEIoQihCKEIoQihCKEIoQihCKEIoQihCKEIoQihCiy7RiXTOCRvC9o+5bmoOka0XcbKQaTooz7bTgrn90fBmB+FKP2lTN/f6q0U8h3KLL0jUfZA/E4HyBqk7Xp91z3KYo5FgnShCbBCx5Icx+W7v3VYNpwnj4LhpXjVYY/pARooyk8NGY+AFwP4r8hVEm1WnmwjEfJTZSHV5sFX8Rip3bM6sFB3gdY3flyk5P70NKOkMzSXS3P8AEG3mmAGsNg3vPsvImebMVPVqvrM1i3ku/wB9Rptk3GOY5cBmpS1tuaxZwYOA85T9+T/pUW+NWuqaOnOFsd+73VeCokzLrfOpSfocXCGL9xv/ANlc/rEe6P7I+lf/ACQcDCf8kr3xyG/7rAD410V1DL+oy3d7LnJ1DOi753ojwBv9VNc8ElXKT4MNGPgTXf6bSz5wv9fyu/WSsykasoJZIXsQ0TE8PVY+G5j377cRVRNbRZnnN8fyF20E+mRTn/HHy6qub2rm3jl/K/nTf9ahwXsb8PyqPon3tuS2TajS3+suBvC6KPdvHcSaz6jalQ7ojCCmY6SNuuaTTYpnJWK1l9Zz6q/kPDfyFVx0uIcrUusPEnsVrpsPMjGfzVaMFhGka0QLn7Ur3Cr4W1J/00FbEEbgLRtwD/7H27/BJyvH7ziPl8+XVnwGxVQdol2O8nd+6NAPG576dbCBqUs6UnRMlgHKrWsa3QKsklcq6R9MXkxQeGKJ48NIRCGAJnIujkN9hSbhbcQG10Ag59jZatNsqWendMMraDjb5kumbNxUWJgjmTtRyoGF+RF7HvG4jmDVhAOqyswtOM2IjiykpyC7v3d3uA8apkgDh8/2O5TbIWlIMVsx49HW68GTT+HcPLfzpGSOVvNGY/i7O/YfdMsew56HiPUIiYqLk5l9rl4+z53HfWTLSxyk8lzXfxPonG1Dm9PMcQpXWZfrFzd7JcH9qxDEa94qulkqmuwRnMbj7FErYSLu8VOg2xKy2EtxzyjN5EWA81Pjxp07YmYC17Od4eSo+iYTcHJQRhppZOrSyA6l2NyedvabnfXdUaWmNaeUmffq+aKckzYBhY1ZHZkCMQQZXU2LSHS/cg3jxIpyWekojha3Ps9SqGiafMnJShOwFl7I5IMvuy2PvJrPl2zO7ogDzV7KOMa5qJicSE1d7eJuT79TSzayrkdZriSrjBCBmFG/xKUm0ayH8TNbxykkW7yLVqRfWsGKV4aOtKvFOcmi/Ys8WVyAuVik4sCNf2FFj5EVyoqaWcYS3G7iBZELJWG7TYdahKofUCSVvbJWO9hpbNb3XNUyGRsQY5ga3dizPuFa3DixB2fUmEcMoGcxuANLhu0vmhBy7t1r1NtHUxs5SB2u4H3UDNE84XjvWM3Wm3VvmXiJO0RflzHdv8apjqnPfglkLCpOja0Xa0Fb4dkTkBkXDuOYAH5aHurQ+gmIu2Yqj6mPezzQ64iP14pVHONzb3IRVTqfaEebX4vnWpCSmdqLLbh9ryfYkc2+ybE+5hmPgDeqBtGrjdhkaO/JTNNC4XafVTcB0mzbwr/hOU/uuSP4qebtRrTaZpb9ku6kda7TdOsJtGOTRW7Xstofcd47xpWjHKyQXYbpZzS3VS6sUUUIRQhFCEUIRQhFCEUIRQhFCEUIRQhYyOFBLEADeSbAeJoQlGO24FHZsB7T6e5dCfO3des+o2lFGcLec7gFfHTudmq7iNqyTErGC/NpDZAOZUCx7tCd/I0lLLUFuOZ3Jt4DU/O5XtZG02aLlZ4YTS9iGzZdGlYWUH7o/K5qiDZrqg8o8kN3XzJVj6gR5AZpnD0UvrNM79y9kfCtaLZ1PHo2/bmlXVUh32WGI2dhY7rHCrMNCzahT/1N3e8i4uVNVDSt0z3ALjGPkOqXdX2+rgUGRt5sNB96w0A5bu7fWTG2faL7vNmD53lNEsgGWqk4nY8USkOeskI7bt9kclHM8OW/kDozmCjiwtbcnQce1UMMkrrkpbhMKHJKAoo0GViPMk3+AJOhOhuVDFDFHiq7XO4C1vBXGR5daPxW6WOUDUdYvJ0DfyZj71FVNipnG8EpaeBQXu/e26ihIjvUoRvPrKD32N18AVq5xqox/caJG+KiAw9A2KmRxuouGuvecy/vb18xbvpfkKSp/TOB3AqzlZI+kLhbJcZlsCj5zuQC9/A8u+ljsuoEmC3fuVn1DLXusYoJGbNIbWP6JDuI/WPw/CLnutWlHTU9CMcpu75oEu+V8vNaMl7tHbALWuZZNwVRu7gBe3fvJ4nQWolkqK7Tms+a+ymxjIczqo2EwzzSETHsqLlFOg00zMPyvpemKWmp4mmTpAbzp3D18FGSV55oyv4rZj8MqqBfJEPsr6znlu0vpqLngLaEINqDPMX4cTv2jcO355K3DgbYG3EpdtZhFFmkAUAfVwg2389D2jvOhte5uSAdiKm5N2OU4nny7FyCGWpPJwDLf+Ss+inSqac5Y9nOIBumSZSvH9YqBjfflJNzrWg3RJzxck7CXA9huknSXp5j4nKNAMEL2VpYzJn5WluIh4drxocSNArqKngmdaWTD846BJMX0lxjoUmxMxVgQQvVxhgRY2McQNrcm86r5Qr0kX/H6Zzbh9/nUlBcXGUZQAAoX7IUAKBfXQAa1ArfhgZFGIxoE42P0hnwxth3dEZy5hOR48zatlUx51UnWwcVMPIWFN/x6Fzi7GQneD9KMyOEnijmYn1IA6ygd0fbDHuJWptdfcvP12z202kgd1b1b9r9MMPBCks0WKUSDRThpLqTpZ7jKrdxOtde1rhZyzm3vzdVp2LjocWGaEsjKftDKSDuJAJ04HiOVtBnyQRzf25Ndzt/wJySKens57SAdxUrDwZHOhRhvTTKe8DgN+g01PfWNWNmgcMeo0d7q2IteCBpvCw2lgcxzpdCBrax05kbzY3G8cDWoHirg5TDiI1HsdyXF4nYbqMMS6fpVuvB13d2uljy3HlWaynBdjpX5j9pyP5TBkBFpApbMsup7R9tSA48b2DjxsfGmvrY5P7VWyx4/NFVyb2c6M5LTIkliFdCBvYghwDzjOt/Lvrg2TCXYw/mfN6l9U61sOaiSLFEbtd5OV7t5sPV/ZtbmasZOT/bo2ZfyUSy/OlPcs1hnkH6pOQ0PyvfyF+dLyNp4ziqH43cB89lNrnHKMWHH5+VJw+ykXXeeZH9bkeRFVnapaLQsDQu8hizebqU8Vxa5twuSbeBJJHy7uNEO0y67KgYmnyXHQW5zMipOy8Yytkb1huv9ocuXgf6mzlPJ9JIGE3jd0TwVUg5UYhqNVv2hswEdbCPFef9D/fO7ldQNqG3GTuKrhnMZtuULB4mxupseI/Jhx/L3isOCqnon4HjLh7JuSNkouE6h2vERqwDDeoOY+QXUjyr0kVTHIzGDkkHROabWS7abxSbo2DcH0Hv1zfCk6mto3twPN+zNWxxStN25JW2CViOtADEeuvHxNhcjwB3cNKyo5+SH84+vd7Jki+mTlGIKHLJOo4hWS57iGzi/cdD4Vx2Bj8cLXDszHztUs3CzrHyTTB7cKDL10cg4ZtD78xuPG58aej2s5os9hKodS30TCLbhO+MH8Dg/wAwUfGmGbXgPSuO5VGmeNExwmNSTdcHip0I/qO8aVoRyslGJhuFS5pbqpNWKKKEIoQihCKEIoQihCX7R2osemhYb7mwXj2jz7t+7hrS1TVRwNu/w3lWRxOebBIpOkZYkI7NbeIY728SQ1veKzH7RqHZsZYcSmhTMGpUQY55vVhlksb2Lm1+8FiPIiuBtdO3pCyDyUZWqTC5nyyYcJYXLEjsjuA3E628DVDopqMY3vA6gBc+SmHNkyF0SS5hlVHMKmzFASWPK418Tv3W5qMp6iYcu5uI7hw+ea7jYw4AbLdhNqpEoVHkjUfZKm3/AJik/GrRU7Qj6TL93sqzFC7Qqb/jruuVZIzfiCVNuQIzanmALcKk7a7g0hzLO8lwUmd75JfLiZScip1Y3dYdVA/YvbztSVPStqZMckg9Va9/JiwarDsuKGGImN1kY72BBzHxG4fIV6S8cEVxk0JHnPdnqkGPk60sWLdWp7TAElieGm6448BbwrJjEj71bm3P7RwTJwj+0DbivU2pCAAGAA3Cx0rIlp6qRxc9pJ7Ey0xtFgQvTteLgWbwVj+VcbQVLv2FBkYN4UefaAfQQljwzWBHhbtDyp+noauLPFh7/RUvkiPWtuFw7KoK9iS/Ps27we1fy/rV1W+kLf7jrv4gLkYkvkMuBW6Ce31fWZ235RZVHiBrbuub33UsK+cRYWZAfuPz3UzA29yO5QpUkc2kbqk3ZEte3DtbgvgCN/I1YIWMj+o/UPbp2rmO7sA5q3wwAMIcOoDN6zch3n8t193G3aZk1c68hswbtB2Ljy2EZapvi4o8NEEHixO8neSfh5XpnarrMZTxjXd1D8qumF3F7lp2bgbg4mbcBdFO5QPtH59wpmkpG0keI9Lf7KEkhmcGt0SPZezE2hI2KmJaJXZUi4Nl3mTmLk9ndcG9xYU3EzLE7UpqqndAPpozYDW287+4aBWCLayGbqEAOWwNmHZv1g3WtYdSRZSW19UAXq5ZiYzQKylWAZWFipFwR3g76ELh/SLDwxYrFLhlCQXWLq1JKdanalYKbhGBASwt9qqZF6f/AI5E4udJfIfPXxSvqxcKXQSHVYy1nYdy/IHU8AahuXon7Rp2SiIuz+fPutsJUhVckRLMjT5WKFoScjguNQFuGtcfaqTLXWZt9knIiRh0+fOxd02JsTD4VMmHhSJfujU+LHVvEk1evEox+0okcRSW7YIscpDaAlchOZ+zmY2UgBWva1CFVNs9HPoUgxeEskafpYidFXiU+5bQodANV3ZTRNCHjLI+q1aXaDiz6ebNhy629Y7P9K2YfJiohlPaADI3Gx3X8CCPKqm4KqIteOo9RSUsb6eUtOoS+LFGOVc4sVbI45h9AfC+WsuiY6kqjE7R2nor5bSxYhuW/aMAiZinqfaX2bi+ndb++V20aEPJki6Q161XBLbmu0SGJFkcmJcgH2xcC/4d3fYC+7UA3qkf24b1hvwG/wB/mat/daLv4KWJc91CNOqb2yjsnuI3nwAPzK0NFO9nKQiw4E6/OtSdIxrrO1XuCjjAYRG2beGGYj9457/tVNu0ZoBycrBbhayHQB5xArH6LIvqyEDva/8ACyn+aocrs+TpMLexGGYdaAcRzB8VX8no5CgOkhCMcv8AFAbEnio/ZH5vXfpaEayo5ST+KyWN7EyP2xbITlVV1vrlJNtTV5komwmHGSD32PgoBsuPFb8phBtwrHn0A3OT2sjbtwIuCdLg77H7VXUte9sZjLcTm8N44qElOMV72BSyeX6Q4ZIWlfnbIo91ifO9Sc2rqci0NHXmfncugxxaOv2L2RcRcpdI7WuqgG2ml724cgaVkpKeHKokJPAKbZHOzY3vUrZ+xus/SzSXvaytoePsgj/Q01Rw0MwOBunFVyySsOabR9GYFBsGze0WJI99af00WEtDRY9SX5V5N7pVPKsbhJihI9Umx+HzH+hrFcyXZ8l2ZsO5NDDO3PVSyMFMhB6lD4roe6+8VsMkZOy/4ISxa+NyVS7FNvq0jkA3NAQrDxC6HzpF9A8OxNcHDg4eqvFQLWNwpuA2fPlDKWuD6kmh8Vbh4fOrGUOA44uYeGoPz4FB0wOTsxxVgwGLz6MLOBqD3/8AsafjcSOcLFUOAGmimVNRRQhFCEUIRQhRse7hPqxdjoDpp36/6+FRde2S6Lb1Xz0XupaV8z7xm9VeJNjvPG5vrvvVLadoOLV3E5/6VhlJy0HBLl2agFpJiy+xCLKf2mIDeNzSUzaRj8c7sTuvd2BXsMpFoxYfN6bR7TjijyQRlDwvb36E3NcftimaOafJAo5Sc0lnZ3YBr5CbsVIzHn61hf8AvgLZcdRBJNytQ6/AWNvn3TTo3sZhjb3qw4Pa8EaBQjIqj7p/lY1tt2nSnR6RNLKNy0bU2mkigJqp1vqL/nb5+Wqm0tpck0MiPOPkFdTUpcbvGSTCFWkVAuYk6qddOJJa7DTXQj4iqtnVVRUuwvsWjW4U6iFkQuMinsvRlB+ikeM8r3HuNaUuzqeXVtuzJKtqZG77pLIGUlA4lkY5QwFtOA05nXwFxxrJNM10/wBPGSQM3E593zqTfKFsfKOFjuW9tl4lCcsKWJv2Gtfx5nvpx1FVg8yWw4W0+6pE0J6TVFk64b0S/LriT7gSfhQYKwdKYDu/C6HwnRhWgyTfqoh3ud37wzfA0lM8t6VT4D2VzGg6RrZHtLci/WP7MY0B/p30m2knqTzLkcSri+OMc6wKlf4dKwBxEghQ7kTV2/vurWh2TDCMcxv5BKPqnONowt2HSAdgRqqn7RPavzLbr927vO6u/wBSpXv5C3N47vnWg00wHKb/ADXmLgaMDN2421Vx37vA/wB60tPRy0buVpzdu8fNQpxysm5r8iojyqsmGWMABpxcgkkjq2Ot927cLjQa60xS1zJpWRxiwAJI61GSBzI3Odmck7mwbT4ntqRHHvv9og3Fu7j5DvFPtgvUGVw0Fh7pYvtGGDtKh+kvaBhwUhXd2Qx5KzBL+9l8ianNziGDt8PzZNbMc1lSxz9Lgd5WPRGSOHZ+GLFYw8SyG+nak+sY+OZ/jV4yCUnfjlc7iSfNbsDjIQ7E2sGOXVnysTZsuhC6W3aAaDeaFUmOO2gkeHfEE9hImlv91UL7j3CuoXDOjewsZjlAi+rzuZZZ3HZjLm5Cj/MlIsbC1tCSLg1VgublbTNp/T0whhGZGZ7TfL7LqGE6AYFMM2GMIcPq8j6yO/tl94a5NraD33tWMXEm5OaoHSHopiMH1qsxnw8i5UlI13+pNbcx3B9zdx0qpzLZhblLtQPi+nqNM7HhlvXUOgO0hiNn4aUH/Lym+8GMlDfv7NWrCXu154HykOCdQSHVSLobHtdrMFLZSLEXPM0ITTE4OOeF4mGaORCjC9+ywykXHGx30IVE9HW2DaK97ZzGTwuwLjzGX+IVnR3jqbbnDzb+Ft7VcyW0jf4tPiP9K6dJdjGdQUOV1+I3i/gbHypmeAS4TvaQVkxSYLjcQo21WKSXvYsig23grfXUEceXOsvaVU6mnY9nD1TVNCJYyDuKXbOwT4rd2IAdSN7a62895534612koXSu+oqMydB8+yJphGOTj8VulxHVv1aZowmiqDbz5OTv7V/C2+vaNfUQygNFgPNdp6dkjLk3KzeeKT9NHc/rI9G81G/yvfkKsi2nT1AwTCx69PHcouppYjdixOzHYEwypOvFW9Ydx5HxtXZNkRu58DreY+eKG1ZGTwks+BRD20li7sxK+83PuIpcx1UHSia4dQ9vZWgxyaPI7Vtw8EJ5P4O6/HMflUBtKAGz4beC6aaXc9TocLhR60DE90mYfx5flTce0aEZhtv/AGqp1PUcfNEzBZM0CKqkWZHNgfDIG4flSlXWwOlbLE6zh1HMK2KB+AseMkzh24wAGVdOVz/SmP67H/E+Sq+gfxS7aePLMHyqp3Gzbx3hgB8b91L1FZTVjbEFrtx/0rI4JYTxC8w2N4g+I/v586y2ulpZLjI/dNFjZWqNisSynVOsB3MbafiLbvHd362rQZLNVOtHLbqJt4cUuWMiHOapUeGxduzAB4uB8qY/pFQ7pSeZVf1UO5v2WnEy4qMgOiKTuvI2vuU0rU0Bpxdzz22KtilbJkG/ZafpEhYAw3bgQwJP4Sdb9w1rtNTzvGKCW/Vc38CuSPjGT22+dSnYfb0kRs+cD2ZQbeT6sPE5q0mVNZD+szEOIS5hif8ApuVk2dtOOYdk2PI2+BGhHhWlDURzNuwpV8bmGzgp1XKCKEIoQihCKEJVtnbseHFibvwX+tvlv8rkUyzNj6zwGqsZGX9nFVySfF4ntCOy780nZUd4Xh4kk99Z8kNZUdJ2BvAZnvKaa+CLQYj5JfiopF1adQOJUaeRb1vHd47qzKimo6fIkudw903FLNL0QAF7svAPiJAI2myD1nZhbyAUXpij2fynOkjDR2m5UKiqwZNdcp1i+jsMfrYmQHkDc+QAvTz9nUbBdzbDtPulRVzuNgfIJLNg1zau7IPssRr+K28dwPid4rEqJ6WJ3/TNueJzHcN60Io5nj+4bDzWUczytkhXO3P7K+JqFJs+aqdjdkN5O9SmqI4RYa8FsbZc8JN4We/rOCGuPA6AeV+81qy0dWxuCAgN6tT2kpNk8Djikvf5wUQY1P1Z1/4Y1/rWaaauva5/+X5TXKUxH4WYxAzZhE2bmI9feKlHTbRZ0QR4Ljn0pyJ+6kLJO+iwSt+IafxUy2l2k/Jz7d/sqeVpG6D7racBiTo7RQjhna58hU27FvnNJf5xKia5o/TZ87lmNmYddZZJJj7I7K/G1x4XpgN2fScL+JVeKpm09lJ/xMIMsKLGPujX95h+XnS0+3BpE3vPsrY9nHV5SqXaGZrLeRzwW5J5XJ/Mms8R1dc65zHgB88U0eQpx8umeC6Ps31mLYIg1yXsP2jW5R7Ljg5zs3eQWdPWOkybkPNOX2rASsOUlW7FyNN26x1tpvI4i16cFZCZeSDrlUcg8Mx2yVKymPIp34adVPgrZQfONg1efib9NtHDuv8AfRarzytLfq+yuHSbapiEIQ2LyoPLMCfK3z8a35pw2VkQ1d9gsuKO7HPO71We08JHiOuhlGaN0yOO5hrrwO7UbtK6w3nd1AedyouFox1kpV0Mx8MkLYZWJkwZOHcNo1o7xq+m4OqXuNxuOFMqpPoMGim6g33asx/mJoQqdtbpLFjMWNmRL1kbA/SpL2UJlLdWhGrM2WxO4Am1zuF2ytkMSooVFCqosFUWAHcBQuKBtHb2HgmgglkyyYglYlIPaI77WGpA1OpIoQmTIGBVgCpFiCLgg7wQd4oQqRhtsR7KxpwTLbCT/XRPqTFI5OdG5xkqSDvGu/S3FINJzV5nwqSAG5tbQqdLbwRvB8a6oqM6wYOJ5nIRUUl3IAuAb65QATc2FhfcONCFS8J0eOA2fGGYNMZ0mlYbszMgyrfgqKF77E8aRqxZ8Tv8vuCnIXl4eHfx+1reSt2J2gYsQ1z2GVH94yt8FB8u+oTVXI1bWHRw87rjIOUhLhqD5KD0txHasPZ089Pkt6zNqN5asZEOH3P4TdEcEDnlSjiGwsUKLa4XtAi4O4nkQdd9+ehrQra8UZY0C/sErT0xnxOuvZsfh8QLTIVbgw1HkVFwPxAVKOupKluFx7iougmhNx4pdLsmQAtA6zp3EZh5jQ0lUbEa7nQut1H3TMW0LZSBL3xOVhnDIw3ZgQR4MN3kazDBWUhuLjszCbBp5+BTCDa8ltHzDk1mH/cfNqYi23O3J4B8lU/ZzD0TZYyywv6+HjJ5qSnyDU2NswSZSs+xVP0MrOg5aDhcPw69PwuCP4yKgZ9mSatt3EfZdwVjd/2XgwaE/ppx49V+TmuBuyjv+67iqxuWO0NmZGF5ZGQjRr8eIIFrVZUwUtMA8RYhxuowyzSnDisexMNk7OwRIzqc/DOxIJ7iePcdfHfTtDNSyi8QAPDel6hs7DZ5Kd4/YMUgGUZGG4r+Y403UU0U7bSC6pimfGbtKr+K2XiYvs9YPaTQ+6sGfYj2m8Tr9uRWjHXscLPHqouH2u8Og6yP7pU2/dIIA8LeNdik2jT5FuIePmFx8dLJm11lLm6SpIuSWNZPwhgfIWbXzFaMdY+QYZIXeFx5pZ1OGG7XjxWyHYTSJnhdlU/YlW/9iou2XC442XYepd+reOa+zgpeEgxqHK6xyJyJJ9xOo8ye4Cm4mTsyc4OHgfVUPMTswCPNTpuj8d88d4239ndfwqx9OxxxaHiNfz3qLZXAW1HBMsLny9u1+Y4jgd2+rW3tmoG25bq6uIoQihCxcEggGxtv5UIUDDbGiVs5XM5+02tRawN0Ui4nVR9rbGeY/pmVfZAGn+vfvquSHlMiTbw/PmpMkw6AKPD0SgW5N5H4GQ3F/DjUYqWKL9NoBUnzyP6RUbE4XHDsoFK8MrZP5APjeqpoqp3QeB3flSjfCOk0+KhDYmMbhGt9TrfXnYbzSDtjvlN5ZSU0K5jBzGKVF0TUdrEzkgbwDlXzpuDZlPDna561RJWyvyGXYmaY7DwLliW/4RYeOY7/ACvV09bBCOc7uVUcEkmgSHau3mkOXffdGmvv5+em7QEXrJfW1NWcFO2w4/NE8ymihGKUr3BYQxsJZzd96RA7r7i54fM20vTMFNDQM5SQ87j7KqWZ9ScDBl81WmfbbMxs0hP3M1vIKbD+9TvKpqdoTnHE2zd2nqrhDTRizzmtB2jIxy5JW559w8c50HjVUor2txSPwjtCmz6UmzRfxWM2IKaBJDf2Eax9wApBsU9R+646z7pkvhj3WWoNM25Mg5uD/QD40yzZ0Tf1ZQOxVOq3HoMJUhMAm+VnfuuFX+HN8bU0x+zafTnHx/Cpd9VJ1D53qSNsxwjLGEj/AAC7e83v7hVv9Wlk5sEfzuUPomtzkctaPiZzdInP35CRbna+o8q59JXVP6z8I4f69SjlqaLoC5WKKQcrjKynUctdCPdfyrHfG+jn6wU+Htnjy3rdt6DtrL9mZerktuEijsn9pTv7lrX2ozlGMqo/nBJUL7F0TvnFR9tSEmAls2SSEX/aAPxaqYarl69rzwt5e6m6LBTOb3+fsrLhpP8AaMQOTJ7jGDW3FlUSDqafuFnv/RYe1cs6SwS4Ta0k0TNGzfWJIBcMkgAdHU6OvWI5I3i4IsbVc8lputXZlJHWQPjd0m5g9vHvHmme1elOJxGHERDQki00yEWk7oTbQMPW5C4rpeLJam2XLJPybxa2qjejpANoyJ7EBkB4nMyx68zoa5HvKt2yxkT2Rs3DTvV26T7XMERyOkcjC6tIhdVAYAkqrBm9bS19bXFqtWMuV7S2J15xWbE2z4gOlxIzwYhewWDi942yugUEmyxcVsRC6v0b2v1yBHYNNGoExVWUZvVJAcA6kE6aA3FCFV/SfEDiMKOMkb68hEyvfX/mVXKMlrbGsajCdCD3rR0b6WNgY2jmzSxEkwFVuwc/5JsdxOqnvPkNfcKuvoHwS2AyOnskXSTamJ2nPBDNZI3kRUw8bEgMzAM8jWGdlTOw0AWx43Ncx3dYJl+zG09IZpjzjkBwPrln7rpvTk3w4A+1IgH74patPOiH+Y9VnUv7z/iV50mgzEDddMp93/8AVZG2zaZhHD1Tuzug4daiYWLrZxe+RLE35LYLfvJA881X7OBmmfVP7lVVHBG2Fvesdr4su5O++igfkO8n4isyTHXVXN007h8unGYaaHP4VNToq+QESlXOpUi6ju51uybHpnNtax4rOZXytOeahz7JxSG5jWS25lOo8M2o8qTOyqiL9GT0V/1kL+m1aJMe4FpBKvPOC38+YfCjlNpxai/gfsjk6R+ht861CcwtqGCnnoPguWqJax7v1oB4FWsgt0JFlCgB/T3HKw+ZY2+NZ8r4HaRkd6YaJRq4HuRPCpNxJl5gNof6Hv18K7BNE3KWPEOOhRIyTVjrKRg8PE7BfpLqx3A2ZSfFdR+0BWvDS7PnFmgg96SfPVR6qTiGeElJRoeeqty8D3ix+VRAqaG7SMcfz5wR/aqc2nC5RmisLowt7L+rbucaW4Wa3hVf0tLUHFA/C7gfnupcvLGMMzbjit+G2nNEBYSKvCwzofDeAO5bUyw7RgyIxj53qpzaWTQ4Sp0XTID1wp8nX4Wb500yvfo+Jw7rql1KP2vB71Pw3SaGQgdW9z90EfO/wptlQH7j3ghUuiI3jxTtYV4KPcKvVS2UIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCFX9vpKDdZJAp5bh+6QfnVErTxI7LH0urWEcAq8SCbnFqDz6lr/AL1vzrPkhhd+pK7xt6Jlr3joxj7+q8aHDb5MRJIO5lUe6+b4VBsVBFoMR7ypl9S7q8ltg2lGvZw0Wv8Aw1JJ8XYD4AHvq81FQ8YYI7DicvJVckwG8j/VSsLsLETm8v1SHUqDdjffc8zxPGox7NxP5SodiPDcuuqw0YYhbrTPGbHlRQmGZVQcDcXPMspBNPyRvcLMdh7kux7QbuF+9Lv8Exe60XkSB7uFZMmx3SG75CT2flONrmtFmtXg2BizvaIe81wbCZvf5Lp2if4+a2p0XnPrYgD8K/1q5uxaca3KrNfJuAUmLofF/mSSSeLWHuFOR0FOzRg+/wB1S6qld+5NcHsaCL1IlHfbX400AALBUEk5lTwK6uJNt3ZWf6xB2xw9oUlXUTallt40KYp5zE7qSvC5ZY2ifQEeYtqD4qfh4VmbPcW4qSbu+fZM1GonjSvGYZijxt+kX4kHMp8CQKzXwupKkX3G46wnGyNmjy3pvFP/ALTG/wBnEQC34ozr52Ye6vTPIbUMeNHC3qPVZQF4nN3g39CqV6TtpQviYolN5Yo3MxB0jVwGjVv+I0iJYb8pY6A3q+W1lobDMgqhgGW/sVXwuLBFr+VLr3RaE32JttMHO85ieVXjSMmOxePKST2DbOpJJup05Uwx4tZeM2xQVHLOlw3HUr7hNtR4tA2Cmhcg3bMCSosbgpcMjXsNbcd9WLCtY2chIcRcZosKwHLMCMwXNa4I3Bh39ndYgma7zFKwOWGLrJ1gha31jIAiALe3aPADmeddUTa+S55t3pJHjpopo43WOJZlWWTs9YHQBerTeRmUG55m9gKre4WWxsmkmM7XhuQPkkz7QK3CsRcWax4f3+dL3XtzCx1i4XsrN6MIEbFuzWzxwK6A8RMxDOuluyECXG4yOKuiGV147/kFQ584j3N+/wA8ldNuL1s8EQ9sMfLX5A0tJ/cq2t3NF+86LKZzIXHjksOkOIHWHuAAHM/2QPdWPXsdU1nJs3WHqU5TOEUGI9q0PIIIip9dvWtrruyjnbd4k8RTlYeTjbSQ6nXs/KpgGJxmfomHRzY5v10w7X2F9kcz3/KnaGibTM6zqVRUVBld1Ky08lkUIXjKDvF6EKNLs+JvWjQ/sihCjP0fwp3wJ7q5YLtysR0cwo/yE91GEIxHipMGyoUN1iQHuFdXFImhVxZlBHIihCS4jotCTeMvGfunT3GlZaGnkzc0fb7K9lTK3IH1UM9FZAbrOPEoL/vDWq20DW9B7h3+4XTUX1aPnesk6Ly3u2Jbyv8AmauEBGrz4j2UDKP4j53pps/YccRv6zczarWxtHy6gXkppU1FFCEUIRQhFCEUIRQhFCEUIXhoQuVdLPS0MDiWw7wuxVVOZWWxzC/EeVIwmaVgfit3K5wY02sl6+nKMAF8NiFB3Gya+FyL1O025wXOZvCtHRP0o4XGSdWHVWy3yvdW0BJsDdW0BPZN+6uCWZn6gFuI9kFrD0Sr4rBgCLEGmwQRcKpQsdBh1BaRUsBck2FhzJO4VB8rWaqTWkrmHSP0p7Lw5KwRDEOP1agJ++28d6g1WHSv0yHz5uUrNHWrx0F24MVAkmULnQOALaBvs3G+xuL1Gme44muNyD5IkaBYjepe1NoyrIVSwAA+IvxpOv2i6meGht7i6Yp6dsjbkqIdpz+18F/7azztub+ITH0UfFGztrTHEpE5uro51AvdSttwHM1o7OrpKlzg+2SoqYGRtBanuNxixjXUnco3nn4Ac/DiQDoyysiaXvNglGtLjYJLPtaY+rZfD+rDXxsKwpttuvaNvj7J9lE39xWkbRn9vystvlVLdtTg5gFWGji3Eprs3aZbSQAH2huPiD6vvPjWvR7QjqeboeCRmgMee5NK0FQk2L2yd0YBHtHj4Dl3/Ag3rMq9qRwHC3N32TUNMX5nIJLNnZ89yG5iw+Q1rDn2g+Zwc5oy01+6fZAxgIB1WvELI1jcEjcSNbcrrbTut5jfVr9oNqGYJm9hG5Vtg5I4mHuW57GNRqrxyBlFxdWIOYbtVYG/ge6n+UIoyHassR2XyKpAvNlobqpydBYmeRzJKWkdpGJK6szFj9nvsO6lXbYc7Ms8/wALXo6l1KzAwDtsb/dC9A4hukk/h/pUf6sf4ef4Tn9Wn/x8D7rI9CY7G8ktvFP+yg7WP8PP8Ln9Vn/x8D/+lXNhdCDM3WTK8Q3wyxSqHNmIvcAlbAry3mtGqqXU0bHtzv7LMlq2VjnB8YuN+d/K3qrouz544+rG0MQL6BpDCz/vNFc+JJPfSbdtyfw8/wAJM0TP5Kq7X9HcrnrPpL4mQaj6Qxv5EsVvy0UVY3a7X5OFk9TCngcHOjxEb7+hySSWKRG6uZZYpLPYSxMA/VrmYK4urGw3gkajXWtPDzcS26bbMErxE1pBKjBFtckLc2F7nMd9gFBJNtd2nuoDSdE/VVsNMAZTa6vvQPYoQJiHBDaiM9oFEJsxsbHtFfVI3D716z6mv+nka0d/Z8+Zrze1Joawgx7hrxPt83K24OQq8s8g7S3RVHE6Xy8xa1j333Gm4AWMdKc3OP8ApYTyHENGQC8g2bOQZmW8jeot/UvxP3tdOWvnKnpTC0kZvdqUSTB5A/aNyjx4F4pSz2eRbW5LcXsBSFTU/RSWa3ESLknVMRsE7MzYDcm+zdsyNiBCwFjGWuOYIH503s+udU4sQtZUVEDYgCDdWCtJKpDi9qyiRlW1gbVi1m1HwSmMNBT0NKx7A4le7E2u8k0kTgdlFYEfeLA/IU5QVbqlhcRaxVVRCIiLG6e08lkUIVSwnTOEYs4SVwsrLnRWsAwzMtlb2uzfKeel9bIwzyEF5zFz3WKuexoyGqtaODqKda4OFwqiLJR0s2q2Fw8kyjN1aPIVvbMEQva9ja9rbqXqHubhDd5t5FTjANydyofQz0qNjpCohMYXLe7BgcxI5A8Kqe6WN7QXXubaKQDXA5K29Ouk5wGHbEZM6oFJUEAnM4QbwfavVsr38o1jTa4PkotAwklcuk9PjcMHfxmt8BHXeSl/n5flGJvBPehXpTkx0zKYREEAP6QtmBNtxUcqXkMkT2c69zZTbhcDkt3Sf0uLgsS2HkhkZlCklStjmAbiBzqULppWB4Oq48MabWS0enmD9RP/AOX/AFq3DP8AyHzuUbs4LxvT1Dww838H9aMM/wDIfO5F2cFeOgnTL6eofKVVwSA1rjKxQ7vwk+dche/lXMcb2XXtGEEK400qkUIRQhFCEUIXhoQvln00/wC8mPOJPkRSlD+iO/7q2bpldW2DshJsODLZkCKGja1mFrHfoNP7vSLWDA6QdIHLyVxJxBu6y4XsTB5toIuHuUSbMrco0e+Y/sgeJIHGtKd4bES7gl2C7hZfUvR/GZcKGc2txO7QXPloTVcbuSgbfX3UnDE82Xz36Runk+0pzDCWGHDZURd8pvbM1t9zuHDTynHHhGN+v2XCb5BTejfo3DW67NI5/wAtD2V8WGp8iO641qrlpZT/AGhYcT8+dSlha3pLtXQno+2FUDKEQCyqDew3217yasggMZLibkqL34gAApO2JgszeA+VYO2zaZvZ6lP0TC5h7UoRFmxOWSRkjEVwQ2UFsxvrxNraeFT2RFFI13KAHTVFWXsth60+2PsrDJJnjkMjAcXzWB8TpurdiihYTyYA7Eg973DnKPtLGgyHu0/v3/OvNbWqjJMWbm/daVLAQwO4qFhcN9KkKZisaevlO88Bf3/Cm9k0THt5V4vwCpqpXMOAKXtPZC4aMyQ3spGZSSbrcAkX4gG/lTtfQxOhc5oAIF/BUwTOxhpOqj/Shw5fPSvKxyljg5uoWmYbixU7D7V6zBxu291AI5niPgfdXra6r5Km5RurrW71mQwYpSzhdLMVjgo01JNh3k/nXl6aMzyhnFaMjcDS47kxwnRWPKGlZ2kOpbMRY9w5CvXsooGtw4QsozyE3uoJkKPJG+pRrA+0pUMD8beVeX2jTinmLW6HMLSgvIwOWtLS4hIrlS0bFWG8FCPfpId9aGycM7HwvzA+FU1TTFZ4WO09kTwMr/SHeO4BFgLa8dN39+N9Xs6KNhcxuVjvOXWq4Zy92Er3G43LG5G8KSPECvOMILgCtDkiqR0A2visXPNBPiHV0jVwpVQwObK4II+8h869YNl0x1b5lJ1VQ0OBhORHnvCvfUrCI0G4Kw+IpXbQDYWAcfRV0YL3uS7aaLJNBmQsily1gSNwte27jv5UlseVjZHFxsLeqvq43YBbW/uprYuOJdWNh7RueZ8daRmIlndyQyJyVzY3BgxLlnS3GtJjsozNlX6uMAljJPYsEUaklEQW5G+lepp4XRwMjOqls6WFkz6iQ2DdOs9XguldEtgLgoRJIP8AaXWzG4PVre+RLacsx4tbWwW1k8zaaIvPwpKonkr6jEe4cAp0mPUEXIuTYfkPh8K8a5z5S6Q57ynBHhs1MNm41c1jb/Tn5fLwrb2PW/8AkO7vZJVdOW88d6sNehSCre15gJmB7v5RXmNtm0zez1K06Nhcw9qibIkDY5e6Fvi3+lX7CNw/u9VCtbhDe/0Vvr0Cz1VsdOBLID7VeR2ubVR7B9lrUrCYgVj0acNi5iP1aD4tWrsT9F3alq0WcArXWykl4TQhfK3pgl/8RNj6kUYv4gvw/FSdB+gDxv8AdXTdMqz+jj0vPEVgx7Fk3LiN7LyEo3uPvb+d94tdGWnEzwUL3yK6j07xyS7NxDoysrYWcqVIIYGFrFSNCPCqJZA90Y34hl3FTa2wd2LjPoVjvLMfvRD39Z/SpVGcsY6z6Ij6Ll1D04D/AMLn/DF/66V2T/uGdh9Fxv6Z7lyr0O4YO2JBZV0jPaIBt272vra9r27r1Ctbctvpv8lKI68V2PZOxoDKAJg5F9OyRu1tYmxt86hCynLwADddc6TDmsNsdAFmmaRlicsdWkjRm7hmK3sBpVopLZB58VDleoLivpi2fHBjYkjRUH0dS2VQLt1kikkKAL2UDyFSoySw33EhEozV36C9FYsVhoPqoSeqBJaJGJJ1vci5JvxqlsbpZH84ix3FSLg1oyXR+i3Rf6K2gRQNwRQAOOgUADUk+dMRU4jcXXJJVbn4haytNMKCKEIoQihCKELxt1CF8s+mj/eJ/wCUn50nQ/ojv+6tm6avHSP6TJsnq8MxTsKWCjWVQpzJe17ka2B1sRxpOncGyc7S58VdILty1t5Kveh3F4RycM/1c7NdX/XD2bncw1sBvvcajtOVEfPEhzA3eqpY7ItC6r6TIiuy5jCbKsL6DiCoU+5SxomGN8ZGlyfZDDZrguB+jGJGxyq28o+TvbLuA4nLmtXa0ExZdSIrYs19D4+cYDBNMihmRHdgTYsUUsRexsdKJX4cDYzYE28kNF7lyqPRL0tvjZzGIOryrnJMma4zqlrZB7d9/Cq5TLFhOK9yBp+VJuF18tyuW3VzS3HFR8qx9uC8zez1K0NnutGe1J5ZyH6tUd2y5rIOF7cxyrPpqGWoB5Pd1pqWoZHbEmPRbDSfSmkMbovVZe2Lahifzr0OyqSSnDhINbLMrZ2S4cO66hYe7rmO+5DfiBIb4g15uqjLZng8StWJ4wNtwCddDYShnDfafMp5jKAfcfyr0+yHg0wA3ErIrv1b9SdbWZeqYNxG7nxt8Kbq3hkDy7gVRCCZG24qmvGQL14dsZcQAvQmQDNZCExwYWP7LK5HiCCPMqxPka9BteEinjHDLyWbRSAyvPH3WqbCsWjIF8kisRzA3+4G/lWbswhlU0n5cJqrOKFwC6ApuLivZLBVU24A0pK8hcj3fIV5TbLg6osNwWzQc2LPio2w8MTjEPsI3xt/pTWw4iMT+5VbRkBAb3qzbcF4H8v5hWzV/oP7D9khB+q3tCpW0YT1Un4G/lNeIjbzgvQ4wojyAwJiMPGjYyGMBQ2jSJoXiJ4gi+XfZrHnf2rKyMuwO5ruBy8OKwHU7wMQzHELfgdvR4y2VXSRAc8bjVCTbfuOqnv01ArM22cUTe1aFHC+I4joRkdx/wBbwsNoyOrxqpVc2a7PuGW2/lvrK2fRMqXlrjawur6ipMTQ4DepECCRdQGF7X0ZTY2up1BF7i/MGq5opKOYta7Mb1JsjJo7uC17PODw2ImlMYWdgpaViWYgjLZC1yq2UaDzvpW/SbSBhBkzdpYalZstGcfM0+yaYuVpLXBHG3LuPePmTyrI2nVOneG6Abuv8fe6dpYmxAnW6hfQg3WZxqV+rIPqtvB8rD41dRT0sVO5kmrtclCcSulDm6BbYo2FjcZhy3X8+FZAux12nTROlwcLHerZsnFZlA4jd4cvEfKx417SjqRURB+/f2rz80RjeWpHt+O87eA+VYe3BeZvZ6laez3WjPaonR5LY/8A+if56Y2ELB/d6qvaJvh7/RXat9Zap21YrzyeP5V5Ha4/6o9g+y3KJ1oR3r3ogtsViPwR/nWrsQWgPb6BJ7QN3js9VcK2VnrCY9lvA/KouNgSujVfL3S1s23xcAjrMOLHUfo46Sp8qMW4K5+cverJ0u9H30iP6RCAkp1J3JIb/at6jG+/386rilkhaC/Np38Pnzguua1xIGqoGD6SY3BRz4MmyOrxvFIL5M4sxT2SQeGh32Ohp7AySzx4qq5GSunoPj1kPOVB7lP9aXlzqY+9Tb+m5dD9OX+7J/wxf/kJUpP+5Z2O9Fxv6Z7lwzoT0aTGGXOzjq8tgltc2bfcH2eA41KomcwtawZlcY0G5O5dj9HXRRsG+Vc5UtmJYa6gD2QLWFVMZK6YPeLWHzepEtDCAV1inlSvmL06/wC8I/8A5df/AFpaToug7/1FWy6jsC6l6G//AIeH/kr8qKb9STtRJ0WrpdOKpFCEUIRQhFCEUIXjUIXzT6V9jTz48tFGXURopII3i9xqeF6z6SZjIg1xzzV8rHF1wF1zoPhBLhsjb+rUeDKLe8EVymjbJG9p3uP2C7I4tcD1Lj3TvoJPFjQ2HWwka5sSBHIDctfgh0YW43AG6846kMaWy6jzUXR3N26FdZ6OR4jE4cw4hhKQoBa1g5y5WuOOYEg89SQCSBWyF8jSRzRq3t/PzrkXNaQNeK450o9H2Iw0xbDXKhrqM1nQg3FibZrG1iDfuq1lWBzZRY+RUTFvbmF7P0q2wYJcPJE7LKpVmaA5iCMp7QABNja5BOtDWUwdiaR4oJktYrb6LtmzxYp2kikRTHlBdSt262M2FxroD7jUKqRjg0NN+cF2JpF7jcu37YxiI4DMoJVdCQOA51lbavyzez1T9A28Z7Vq6Mzq+NJUgjqbXBvrnJ4eNMbE6L+71Ve0BbD3+iu1bqzVWNtYExM0iKSjG7AcDxP9/wDvi7S2e6U8rHrvHFP0tQBzH6bksh2ip9V9xvoxBB8jfyrDiqJqZ3NyPD8LQfTtlGaMTtVd7uL95ufK5+Aqc1XPU2ac+oLjKZkWYWezcM+KYWUrCN7EWLdwHKtbZ2zXMcJZe4JKqqW2wMz61aNqbOEsYUaFSCh5EC3y0rXnhbNGWO3pGOQxuxBVSXGdW2WTsOOel+8GvI1FJLTu5wy4raieyUc09y2LtKy2znLyzG3z3d27uq0bVqQ3Di8s1H6GO97KJ/iQY5Ih1jnQBdw8SNAKjT0c1S69td5UpHxwjM9ytewNmGJSz6yP63dyA99erggbDGGNWNLIZHFxW/br2gck2Asb/tCo1f6D+wrsAvK3tVH2htKMxSAOpJRgAGGpymvFsBxDJb2BWnBbGhmw0WdBfq17Q0O7nXuZI2SCzxcLz7JHMN2myT4/ZUeEcNnuHBHaI0trv476wNq08cMbcG88VpUkr5iQ7clG14sLPk64qchJUZha5Ftb3+FqzKWokiJwC5KcfDcZqThsYLLHh4i1hZQoIUDxNNNoqqpfjeLX3nLyVD5ooxm658UzGwjEhnkTrJjbQa5FBJ7I46m9bn0zoKcshzcs8SiSW78goTY64smrHQDjc6ajxsPOvN09K+ScROFjvWnK8MjxhMk6P4o2vNGPBP61tjYsO8ny9lnmtdwUbG4SXDFetcOr6ZgLZW4A9x+dJbQ2c2BgfHpvTNLPyri12u5Gy9ps0oWFC+ou32V568dLi1T2RDO12O1mnjv7FCt5O1ic/mqk9IMYiTkMyg2BsSOQqvbX6w7PUqyhbeM9qWnGxE3uhI4nL+dZcc8kfQNk26AO1C3bLxn+1wKhFmD5gttdFte1bWyKiSWVwe6+XqEjWwtZGCBv9Ct21saizupdQb7iRSe1v+5Pd9ldRsvCO9Q/psV73S+6/Zv76SjqZYxZjiFe6nDtQpOxcafpLBDp1LGw3XB36ca3tkTvlx4zfT1WfXRBgbYcfRLdo7cPV/VzEuSot1hNwWAbS50tekoK6ofLhc7I33BMSUsbWFwC5Vt/ZU7bYM4iYxddGesHq5VCAm/IW31rsljFPgvnZZxa7lL23rv3ReENhVDC4pqmzhb2KqTplVPp96O4sSl7aj1XX1k8PaX7p8rb6odC+E4odN7fb57KYeH5P8VWvRXsKTCSNFIQT1twQdGXKtjbeNbix5HuqDJWy1DXDgVItLWEFW3004dpNnyxxjM7hMqjebTKxsOOgJqyZwZOxzjYWPoosBLCB1LiPRmTamAZzBh2+sADBo818pJBFtQRc7jxqUj6eUc5wXGh7dAr30Q6YbTlxGXFRdWgFweqZO1nUWzHuJ0pWYRNAMbrm43hWMxG4cF3HDvmUHmL1qpZfOnpi2NPPjkaGMuFhCMQRowkkJBud9iPfWfTTMY0hxtmVfI0kgjgujeiCFkhjRxZljAI5EDdU6VwdJIRxC5ILNauk06qUUIRQhFCEUIRQhFCEpxfR+GRixBBPIkfKqzDGdWjwCljdxUrZ+zkhFkv5m9Sa0NFgLLhJOq0bU2JFOQXGo491RdExzg4jMLocQLBTcLhVjUKgAAqxRWrG7Njl9db99cc0OFiF0EjRJpeh0BOlxVJpYv4qXKO4rZheiUKEG7G3fUmwRtNw0Lhe46lNp9nxPbOitbQXFWqKyw2Bjj1RFW/IUIUihCKEJbi9g4eQ3eFSedq4Wg6hdDiNCscN0ewyG6wrfwoAA0CC4nUpmqgaCuri9oQtGKwkcgs6Bh3ihCW/wD+Xwl79StRwN4KWN3FMcLgo4xZEVfAVJRUihCxdAQQRcHeKEKH/g2H/Up7qEKaqgCw0AoQtGMwUcoAkQMBuuKEKPHsTDjdCnuoQpsUSqLKAPAUIWdCFDbZkRkEmQZxxrmEXvbNdubW3KZXVxacXhUkUo4up3iuFocLFdBINwjC4VI1CooUDgK6uLDFbPikN3RWPMihCino/hv1Ke6hduVswmxoI2zJEqtzArlggklbMTsyGQ3eNWPMiurijno/hf1Ke6iy7crdgtkwxEmONVJ0JArgACCSdUf4VBe/VJfnaurig4joxAzFrEE8jaquQi/iPBSxu4prhMMI1yruqwAAWCitxFdQoI2VGHzgWNQ5NuLFbPiu4jay2Y/AJMuVxcV1zGu6QugEjRKT0Sg+97zVf08X8R4KWN3FEPRKFSCL6d9H08V74QjlHcU+jSwAHCrlBLcbsGKRszAg9xt8qrMMZNy0eAUg9w3rds7ZUcPqX8zf51JrGt6IsuEk6qdUlxFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhFCEUIRQhf/2Q== 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 0 245 cd61c3f7-25c0-4cce-90fb-21e0e5ec600b 93 42515,8850283333 53 95f178a3-8863-4483-84e9-f1ee177276f0 http://rgfootball.net/index.php?c=2 cd61c3f7-25c0-4cce-90fb-21e0e5ec600b 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 95f178a3-8863-4483-84e9-f1ee177276f0 93 42515,8857620486 525 43025,9989365625 53 d4b1a448-8935-46ae-9ad3-c1ff70b54a9b http://rgfootball.net/index.php?c=3 cd61c3f7-25c0-4cce-90fb-21e0e5ec600b 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 d4b1a448-8935-46ae-9ad3-c1ff70b54a9b 93 42515,8859952315 525 42515,9280825694 53 4990368a-678c-424b-9c70-a3608e5a8ba4 http://rgfootball.net/index.php?c=24 cd61c3f7-25c0-4cce-90fb-21e0e5ec600b 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 4990368a-678c-424b-9c70-a3608e5a8ba4 93 42515,8881182986 53 9fee3119-9386-47a5-bf25-1a1177315ea0 http://rgfootball.net/index.php?c=22 cd61c3f7-25c0-4cce-90fb-21e0e5ec600b 515 2 512 2 532 2 700 2 553 2 42 3 4 Летняя Олимпиада 2016 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 9fee3119-9386-47a5-bf25-1a1177315ea0 93 42515,8881182986 51 7b3c97f1-fb65-4724-ba0c-fa39b7bd4ec5 6c036f48-610d-4b5e-87ce-8ec034a1d612 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 570 0 245 7b3c97f1-fb65-4724-ba0c-fa39b7bd4ec5 93 42672,0488275347 51 72f6d418e398a56bb1f1a4350fff7291 -SearchFolder 7b3c97f1-fb65-4724-ba0c-fa39b7bd4ec5 515 2 512 2 532 2 700 2 553 2 42 3 4 Поиск 35 42672,0489351852 93 42672,0489540278 32 b92dbe680f4b2cbc070299ce35fe52f1 -SearchCommands 72f6d418e398a56bb1f1a4350fff7291 515 2 512 2 532 2 700 2 553 2 42 3 4 "Набрать текст" 35 42672,0482523148 200 5 500 // Var 21.12.2014 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.ItemClassID!=51) continue; CreateDynamicItem(FolderItem, Format(gsAddSearchTo, [Item[mpiTitle]]), '-SaveSearchTextTo='+Item.ItemID); } // Создание команды очистки истории в корневой папке поиска CreateDynamicItem(FolderItem, Format(gsClearHystoryIn, [goRootItem[mpiTitle]]), '-SearchCmd=ClearSearchHistory'); // Создание команд очистки истории в папках, которые наодятся в корневой for (i=0; i<goRootItem.ChildCount; i++) { Item = goRootItem.ChildItems[i]; if (Item.ItemClassID!=51) continue; CreateDynamicItem(FolderItem, Format(gsClearHystoryIn, [Item[mpiTitle]]), '-ClearSearchHistoryIn='+Item.ItemID); } // Создание ссылки, информирующей о текущем набранном тексте поиска sText = Format(gsMsgSearchText, [gsTextSearch]); Item = HmsCreateMediaItem(sText, goCmdItem.ItemID); Item[mpiTitle ] = sText; 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[mpiFilePath ] = Format(gsMsgSearchText, [gsTextSearch]); } else { // Выводим сообщение Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png'; Item[mpiFilePath ] = gsMsg; } Item = HmsCreateMediaItem('-command=none', FolderItem.ItemParent.ItemID); // В родительской папке (выше) обновляем информацию о текущем значении текста Item[mpiFilePath] = Format(gsMsgSearchText, [gsTextSearch]); Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg'; Item = HmsCreateMediaItem('-command=none', goCmdItem.ItemID); // Также в папке, содержащую главные команды поиска Item[mpiFilePath] = 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('https?://(.*?)(/.*)', 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 215 -35 93 42672,0489540278 51 36e68e33-bcd3-477f-81cf-7959032b1869 http://uniongang.net 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 2 512 2 532 2 700 2 553 2 42 3 4 08. Uniongang 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 570 0 245 36e68e33-bcd3-477f-81cf-7959032b1869 93 42764,0391659491 53 92f3aef2-79d2-406d-a743-799e7cd79e63 http://uniongang.net/browse.php?incldead=1&cat=1 36e68e33-bcd3-477f-81cf-7959032b1869 515 2 512 2 532 2 700 2 553 2 42 3 4 Фильм / AVI 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 92f3aef2-79d2-406d-a743-799e7cd79e63 93 42764,0394142014 525 43025,9991188542 53 3d94092b-0a2e-4fa1-b984-0ab46ed79d55 http://uniongang.net/browse.php?incldead=1&cat=21 36e68e33-bcd3-477f-81cf-7959032b1869 515 2 512 2 532 2 700 2 553 2 42 3 4 Фильм / WEB-DL 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 3d94092b-0a2e-4fa1-b984-0ab46ed79d55 93 42764,0395940741 53 367a8dff-b246-4bd9-8830-4b0a11f85f59 http://uniongang.net/browse.php?incldead=1&cat=3 36e68e33-bcd3-477f-81cf-7959032b1869 515 2 512 2 532 2 700 2 553 2 42 3 4 Фильм / DVD5 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 367a8dff-b246-4bd9-8830-4b0a11f85f59 93 42764,0398939236 53 690254ae-861c-4977-8e7b-255b0475506b http://uniongang.net/browse.php?incldead=1&cat=4 36e68e33-bcd3-477f-81cf-7959032b1869 515 2 512 2 532 2 700 2 553 2 42 3 4 Фильм / DVD9 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 690254ae-861c-4977-8e7b-255b0475506b 93 42764,0401115278 53 eb40ef35-033e-41f6-9184-b9e59d790103 http://uniongang.net/browse.php?incldead=1&cat=5 36e68e33-bcd3-477f-81cf-7959032b1869 515 2 512 2 532 2 700 2 553 2 42 3 4 Фильм / HDBD 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 eb40ef35-033e-41f6-9184-b9e59d790103 93 42764,0403014352 53 fc417f74-c02d-4869-a1af-a50e0c11350b http://uniongang.net/browse.php?incldead=1&cat=6 36e68e33-bcd3-477f-81cf-7959032b1869 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 fc417f74-c02d-4869-a1af-a50e0c11350b 93 42764,0404754167 53 10ab8d47-7bf7-4b57-9d63-6456c8a7cdc0 http://uniongang.net/browse.php?incldead=1&cat=7 36e68e33-bcd3-477f-81cf-7959032b1869 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 10ab8d47-7bf7-4b57-9d63-6456c8a7cdc0 93 42764,0406057523 53 bc5e1c7b-5921-41fb-bb67-3f81bb0c7a02 http://uniongang.net/browse.php?incldead=1&cat=8 36e68e33-bcd3-477f-81cf-7959032b1869 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 bc5e1c7b-5921-41fb-bb67-3f81bb0c7a02 93 42764,0407723611 53 71215c3e-2835-4402-9e19-41f5747ab573 http://uniongang.net/browse.php?incldead=1&cat=9 36e68e33-bcd3-477f-81cf-7959032b1869 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 71215c3e-2835-4402-9e19-41f5747ab573 93 42764,0409785417 53 2211df38-8dbe-4877-b73e-c4c5207ab660 http://uniongang.net/browse.php?incldead=1&cat=10 36e68e33-bcd3-477f-81cf-7959032b1869 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 2211df38-8dbe-4877-b73e-c4c5207ab660 93 42764,0411409375 53 f0d3871f-2e4d-47b6-8bde-a764c3ed13c5 http://uniongang.net/browse.php?incldead=1&cat=13 36e68e33-bcd3-477f-81cf-7959032b1869 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 f0d3871f-2e4d-47b6-8bde-a764c3ed13c5 93 42764,0412909259 53 a961e8fd-5103-41a0-ae4d-b423b3f0c721 http://uniongang.net/browse.php?incldead=1&cat=14 36e68e33-bcd3-477f-81cf-7959032b1869 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 a961e8fd-5103-41a0-ae4d-b423b3f0c721 93 42764,0414536227 53 60f525ef-4bc0-4a80-a391-633afd3ef47e http://uniongang.net/browse.php?incldead=1&cat=15 36e68e33-bcd3-477f-81cf-7959032b1869 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 60f525ef-4bc0-4a80-a391-633afd3ef47e 93 42764,0416302662 53 a087fc01-cd6c-4723-86a0-6998ac055753 http://uniongang.net/browse.php?incldead=1&cat=16 36e68e33-bcd3-477f-81cf-7959032b1869 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 a087fc01-cd6c-4723-86a0-6998ac055753 93 42764,0417854167 53 f42ff96b-8c15-48e8-83d0-fe8d7ba2b5ad Аудиокнига 36e68e33-bcd3-477f-81cf-7959032b1869 515 2 512 2 532 2 700 2 553 2 42 3 4 3D 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 f42ff96b-8c15-48e8-83d0-fe8d7ba2b5ad 93 42764,0410515509 53 22ba376e-81f0-49df-8caa-876ee7deab70 http://nnm-club.name 6c036f48-610d-4b5e-87ce-8ec034a1d612 515 1 512 2 532 2 700 2 553 2 42 3 55 http://assets.nnm-club.ws/forum/images/logos/10let8.png 4 15. nnm-club.name 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 22ba376e-81f0-49df-8caa-876ee7deab70 93 42813,6626133449 525 43026,4593870833