<?xml version="1.0" encoding="utf-8"?>
<HmsProcessMediaConfig version="3.01">
  <ProcessMediaItemList>
    <ProcessMediaItem>
      <HotKey>0</HotKey>
      <Description></Description>
      <Name>Создать ПОИСК 2</Name>
      <ButtonName>Создать ПОИСК</ButtonName>
      <Button>-1</Button>
      <Script>///////////////////////////////////////////////////////////////////////////////
// Создание папки или подкаста
function CreateFolder(Parent, sName, sLink, sParams, bForceFolder) {
  Item = Parent.AddFolder(sLink, bForceFolder); // Создаём папку с указанной ссылкой
  Item[mpiTitle     ] = sName; // Присваиваем наименование
  Item[mpiCreateDate] = IncTime(gStart,0,-gnTotalItems,0,0); gnTotalItems++;
  Item[mpiPodcastParameters] = sParams;
  Item[mpiFolderSortOrder  ] = "-mpCreateDate";
  return Item;
}

///////////////////////////////////////////////////////////////////////////////
// Функция создания динамической папки с указанным скриптом
function CreateDynamicItem(prntItem, sTitle, sLink, &amp;sScript) {
  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] = &apos;JScript&apos;; // mpiDynamicSyntaxType
  Folder[mpiFolderSortOrder] = -mpiCreateDate;
  return Folder;
}

///////////////////////////////////////////////////////////////////////////////
// Замена в тексте загруженного скрипта значения текстовой переменной
function ReplaceVarValue(&amp;sText, sVarName, sNewVal) {
  if (HmsRegExMatch2("("+sVarName+"\\s*?=.*?&apos;;)", sText, sVal, sVal2)) {
    HmsRegExMatch(sVarName+"\\s*?=\\s*?&apos;(.*)&apos;", sVal, sVal2);
    sText = ReplaceStr(sText, sVal, ReplaceStr(sVal , sVal2, sNewVal));
  }
}

///////////////////////////////////////////////////////////////////////////////
// Создание папки ПОИСК (с загрузкой скрипта с форума homemediaserver.ru)
function CreateSearchFolder(Folder) {
  // Да да, загружаем скрипт с сайта форума HMS
  sHtml = HmsUtf8Decode(HmsDownloadURL(&apos;http://homemediaserver.ru/forum/viewtopic.php?f=15&amp;t=2793&amp;p=17395&apos;));
  HmsRegExMatch(&apos;BeginSearchJScript\\*/(.*?)/\\*EndSearchJScript&apos;, sHtml, sScript, 1, PCRE_SINGLELINE);
  sScript = HmsHtmlToText(sScript, 1251);
  sScript = ReplaceStr(sScript, #160, &apos; &apos;);
  CreateDynamicItem(Folder, &apos;"Набрать текст"&apos;, &apos;-SearchCommands&apos;, sScript);
}

// ----------------------------- MAIN PROCEDURE -------------------------------
{
  Folder = HmsCurrentMediaTreeItem;
  if (Folder==nil) { ShowMessage(&apos;Не выбран текущий подкаст&apos;); return; }
  title = Folder[mpiTitle];
  sMsg  = &apos;Добавить папку "Поиск" \nв подкаст "&apos;+title+&apos;"?\n\n&apos;+
          &apos;"Да" - будет добавлена папка "Поиск" и в ней папка "Набрать текст"\n\n&apos;+
          &apos;"Нет" - будет добавлена только папка "Набрать текст"\n\n&apos;+
          &apos;"Отмена" - Ничего не добавлять и не делать.&apos;;
  nAnsw = MessageDlg(sMsg, mtConfirmation, mbYes+mbNo+mbCancel, 0);
  if      (nAnsw==2) return; // &apos;Отмена&apos;
  else if (nAnsw==6) {       // &apos;Да&apos;
    Folder = Folder.AddFolder(&apos;-SearchFolder&apos;, true);
    Folder[mpiTitle]      = &apos;Поиск&apos;;
    Folder[mpiCreateDate] = VarToStr(Now);
  } 
  CreateSearchFolder(Folder);
  HmsDatabaseAutoSave();
  sMsg = "Набрать текст"; if (nAnsw==6) sMsg = "Поиск";
  ShowMessage(Format(&apos;Папка "%s" добавлена в подкаст "%s"&apos;, [sMsg, title]));
}</Script>
      <ScriptSyntaxType>JScript</ScriptSyntaxType>
      <ScheduleActive>0</ScheduleActive>
      <Schedule>
        <TaskName></TaskName>
        <TaskParams></TaskParams>
        <Occurs>0</Occurs>
        <DailyMode>0</DailyMode>
        <DailyDaysInterval>1</DailyDaysInterval>
        <WeeklyDaysOfWeek>127</WeeklyDaysOfWeek>
        <WeeklyWeekInterval>1</WeeklyWeekInterval>
        <MonthlyMode>0</MonthlyMode>
        <MonthlyDayOfMonth>1</MonthlyDayOfMonth>
        <MonthlyWeekOfMonth>0</MonthlyWeekOfMonth>
        <MonthlyDayOfWeek>0</MonthlyDayOfWeek>
        <MonthlyMonths>4095</MonthlyMonths>
        <DailyFrequency>0</DailyFrequency>
        <OnceAtTime>0</OnceAtTime>
        <ExecuteTimeList></ExecuteTimeList>
        <TimeUnit>0</TimeUnit>
        <TimeInterval>3600</TimeInterval>
        <TimeStart>0</TimeStart>
        <TimeEnd>86399</TimeEnd>
        <DateStart>41454</DateStart>
        <NoEndDate>-1</NoEndDate>
      </Schedule>
    </ProcessMediaItem>
  </ProcessMediaItemList>
</HmsProcessMediaConfig>
