API tools faq
paste
Octorock

Plex PPS daily snapshot

Octorock
May 22nd, 2017
751
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 62.03 KB | None | 0 0
raw download clone embed print report
  1. '[email protected]
  2.  
  3.  
  4. 'filename format basic standards:
  5. 'News
  6.         '\Title\Season 2017\Title (year) - YYYY-M-D HH MM SS - Episode NN
  7. 'TV Show
  8.         '\Title\Season 3\Title (Year) - SxxExx - Title
  9. 'Movie
  10.         '\Title (year)
  11.  
  12. 'FOR HELP WITH VBSCRIPT, SEE DEVGURU http://www.devguru.com/content/technologies/vbscript/index.html
  13.    
  14. 'This script will handle any file type, but made for common video files.
  15. 'Turn OFF word wrap!!!
  16. 'On Windows, get the Notepad++ program for working on files like this. https://notepad-plus-plus.org/ , don't be a chump.
  17.  
  18. 'An attempt was made to write the following programming to allow changes to be made easier in any part of the logic (main
  19. 'code) or function (functions and subs) of the script.
  20.  
  21. 'The following was developed using the following hardware:
  22.     '1 Silicon Dust Homerun Prime (3 cable tuner)
  23.     'Multiprocessor PC for Plex server and MCEB Engine.
  24.     'Extra PC attached to LAN with a running MCEB engine.
  25.     'All platforms were Windows 7
  26.     'Gigabit network.
  27.  
  28. 'Note!
  29. 'If the time in the filename is 00 00 00, it will use the file created attribute of the file. This means, the file needs
  30. 'to be an original file from a DVR, otherwise there is no guarantee that it will update correctly. For instance, a remux
  31. 'or re-encoded copy of any kind is no good. It will use the time of THAT process.
  32.  
  33. 'There are currently 2 main functions of this script.
  34.     '1 - To automatically make adjustments to the DVR recording filenames. (USER CONFIGURABLE)
  35.     '2 - Allocate recordings to MCEB engines on the same LAN for processing prior to being added to Plex.
  36.         'Share the load or dump all encoding to other PCs from the Plex server.
  37.         'Redistribute pending videos from off-line encoders to maintain the work flow. **in development**
  38.  
  39. 'The current logic is as follows.
  40.     'Get input filename w/ path
  41.     'Make sure the file is valid.
  42.     'Set programming variables to likely needed information. This includes:
  43.         'Tile, SE, Episode, Date/time and if live.
  44.         'Destination folders
  45.         'User defined settings
  46.     'Determine the new filename (Default is no change)
  47.     'Evaluate MCEB Encoders by status and current queue sizes
  48.     'Move jobs from off-line encoder folders to dump folder and run a new instance of the script for them.
  49.     'Evaluate Size of media file.
  50.     'Determine if a prefered encoder is eligible
  51.     'Fallback upon available encoders, default to dump folder
  52.     'Assign task, move and rename file to encoder's shared folder
  53.     'Delete source folder (if empty)
  54.     'Log overall status, Upcoming jobs quantity and if any are older than 2 hours which are likely failed recordings.
  55.  
  56. '------------------------------------------------------ SO I DO DECLARE-----------------------------------------------------
  57. 'This is where all global variables are created. Global means that once created, here at the top, any part of the script
  58. '(main code, functs and subs) can read and write to them. Variables created inside a funct or sub are only valid within
  59. 'that funct or sub. Variables are used to store any data you process in the script, like the filename you are processing,
  60. 'or the tile and episode data.
  61.  
  62. Dim TotalFiles, BatchMode, IsStockpile, OfflineEncoderlist, NewsFolderName, TVFolderName, MovieFolderName, StockpileName, MediaType, NeedSetup, VideoCatagory
  63. Dim filesys, WshShell, SettingsDict, NewsDict, EncoderDict, IgnoreDict, ShowDict, MovieDict, CurrentLoadFile
  64. 'Create objects for global use
  65. Set filesys = CreateObject("Scripting.FileSystemObject")
  66. Set WshShell = CreateObject("WScript.Shell")
  67. NeedSetup = False
  68.  
  69. 'Create the dictionaries and set to case-insensitive
  70. Set SettingsDict = CreateObject ("Scripting.Dictionary")
  71.     SettingsDict.CompareMode = vbTextCompare
  72. Set EncoderDict = CreateObject ("Scripting.Dictionary")
  73.     EncoderDict.CompareMode = vbTextCompare
  74. Set NewsDict = CreateObject ("Scripting.Dictionary")
  75.     NewsDict.CompareMode = vbTextCompare
  76. Set ShowDict = CreateObject ("Scripting.Dictionary")
  77.     ShowDict.CompareMode = vbTextCompare
  78. Set MovieDict = CreateObject ("Scripting.Dictionary")
  79.     MovieDict.CompareMode = vbTextCompare
  80. 'Set OtherDict = CreateObject ("Scripting.Dictionary")
  81. '   OtherDict.CompareMode = vbTextCompare
  82.    
  83. 'Load Main config file
  84. LoadFile "PostProcess.cfg", "load"
  85. 'Load News Title dictonary
  86. LoadFile "NewsTitles.cfg", "load"
  87. 'Load Show Title dictonary
  88. LoadFile "ShowTitles.cfg", "load"
  89. 'Load Movie Title dictonary
  90. LoadFile "MovieTitles.cfg", "load"
  91. If NeedSetup  = True Then
  92.     MakeConfig
  93. End If
  94.  
  95. '---------------------------------------------------------------------------------------------------------------------------
  96. '---------------------------------------------------------------------------------------------------------------------------
  97. '----------------------------------------------------- Begin Main Code -----------------------------------------------------
  98. '---------------------------------------------------------------------------------------------------------------------------
  99. '---------------------------------------------------------------------------------------------------------------------------
  100. 'setting the source filename of the file being processed, to a variable. Quitting if null.
  101. If WScript.Arguments.Count > 0 then
  102.     InputRequest = WScript.Arguments(0)
  103. Else
  104.     ScriptLog "Empty request. Running setup.", 4, "000000"
  105.     MakeConfig
  106. End If
  107. TotalFiles = 0
  108. 'Determine if it is a folder or a file being processed.
  109. If filesys.FileExists(InputRequest) Then
  110.     'If it's just a file, send it through...
  111.     BatchMode = 0
  112.     IsStockpile = False
  113.     'Determine the video catagory so we know what filename format and folders to use.
  114.     VideoCatagory = VidCat(InputRequest)
  115.     'Send the file through for processing.
  116.     MainLogic InputRequest
  117. Elseif filesys.FolderExists(InputRequest) Then
  118.     BatchMode = 1
  119.     If InputRequest = SettingsDict.Item("EncoderStockPile") Then
  120.         IsStockpile = True
  121.     Else
  122.         IsStockpile = False
  123.     End If
  124.     ScriptLog "Batch processing started.", 4, "000000"
  125.     'If it is a folder then lets enumerate all files within and send them each through...
  126.     RecursiveSearch InputRequest
  127. End If
  128. 'Only if a batch of files were processed, report total count.
  129. If filesys.FolderExists(InputRequest) Then
  130.     ScriptLog "A total of [ " & TotalFiles & " ] files were batch processed.", 4, "000000"
  131. End If
  132. Set WshShellExec = Nothing
  133. Set filesys = Nothing
  134. WScript.Quit
  135. 'The end
  136.  
  137.  
  138. '---------------------------------------------------------------------------------------------------------------------------
  139. '---------------------------------------------------------------------------------------------------------------------------
  140. '----------------------------------------------- Begin Main Sub Routine ----------------------------------------------------
  141. '---------------------------------------------------------------------------------------------------------------------------
  142. '---------------------------------------------------------------------------------------------------------------------------
  143. Sub MainLogic(SrcFile)
  144.     Dim JobID, DVRGrabSubFolder, DVRGrabFolder, SrcFileName, SrcFileExt, SrcTitle, SrcDateTime, SrcSE, SrcEpTitle, SavedEncoderList, NewFileName
  145.     'Generate a sorta unique ID in the event more than 1 PPS is triggered at the same time. The logs are mixed and this will help identify one job from another.
  146.     TotalFiles = TotalFiles + 1
  147.     Randomize
  148.     JobID = Int((999999 - 100000 + 1) * Rnd + 100000)
  149.  
  150.     'Log the new request.
  151.     ScriptLog "New recording! [" & SrcFile & "]", 0, JobID
  152.  
  153.     '-------------------------------------------------------------------------------------------------------------------------------------
  154.     'Set the global variables for the scriptor to use anywhere in the script. It is better to use data from an already set variable below
  155.     'then to re-run a function for the same value. So here are a few to use.
  156.     '-------------------------------------------------------------------------------------------------------------------------------------
  157.         'SrcFile the file being processed, with full path. It's already set,  just listing it.
  158.         'DVRGrabSubFolder is the full path to the RANDOM34AE71CF.... folder that the new recording was born in, inside the .grab folder.
  159.     DVRGrabSubFolder = Left(SrcFile,InStrRev(SrcFile,"\") - 1)
  160.         'DVRGrabFolder is the full path to the .grab folder of the recording being processed.
  161.     DVRGrabFolder = Left(SrcFile,InStrRev(DVRGrabSubFolder,"\") - 1)
  162.         'SrcLongNameArray is the entire folder structure and filename in an array.
  163.     SrcLongNameArray = Split(SrcFile, "\")
  164.         'SrcFileName is the existing filename without subfolders or slashes.
  165.     SrcFileName = SrcLongNameArray(UBound(SrcLongNameArray))
  166.         'SrcFileArray is the existing filename in an array to separate the name and ext.
  167.     SrcFileArray = Split(SrcFileName, ".")
  168.         'SrcFileExt is the file extension. (.avi,.mpg,.mp4,.mkv....) NOTE: this includes the dot "."
  169.     SrcFileExt = "." & SrcFileArray(UBound(SrcFileArray))
  170.         'SrcTitle is the show title.
  171.     SrcTitle = GetTitle(SrcFile, JobID)
  172.         'SrcEpName is the episode title.
  173.     SrcEpName = GetEpTitle(SrcFile, JobID)
  174.         'SrcDateTime is the date and time of the recording
  175.     SrcDateTime = GetDateTime(SrcFile)
  176.         'SrcSE is the SxxExx of the show
  177.     SEArray = Split(GetSE(SrcFile), ",")
  178.     'SrcSE is the SxxExx of the show
  179.     SrcSE = "S" & SEArray(0) & "E" & SEArray(0)
  180.     'SrcS is the bare season number
  181.     SrcS = SEArray(0)
  182.     'SrcE is the bare episode number
  183.     SrcE = SEArray(1)
  184.         'SrcEpTitle is the Episode number used often as a substitute title when there is no title.
  185.     SrcEpTitle = GetETitle(SrcFile)
  186.         'SavedEncoderList is a list of all tested and available MCEB engines.
  187.     SavedEncoderList = AvailableEncoderList(JobID) 'this function will return available and offline encoders to their respective array/variables
  188.         'AvailableEncoderArray is an array of the content of SavedEncoderList
  189.     AvailableEncoderArray = Split(SavedEncoderList, ",")
  190.         'OfflineEncoderArray is an array of all hosts that are off-line (not including stopped encoders)
  191.     OfflineEncoderArray = Split(OfflineEncoderlist,",")
  192.         'Strip out the folder names for the various main libraries. This is used in avoiding deleting such folder names and makes referencing them easier in future programming.
  193.     NewsFolderName = Mid(SettingsDict.Item("NewsLibFolder"),InStrRev(SettingsDict.Item("NewsLibFolder"),"\") + 1 ,Len(SettingsDict.Item("NewsLibFolder"))-InStrrev(SettingsDict.Item("NewsLibFolder"),"\"))
  194.     TVFolderName = Mid(SettingsDict.Item("TVLibFolder"),InStrRev(SettingsDict.Item("TVLibFolder"),"\") + 1 ,Len(SettingsDict.Item("TVLibFolder"))-InStrrev(SettingsDict.Item("TVLibFolder"),"\"))
  195.     MovieFolderName = Mid(SettingsDict.Item("MovieLibFolder"),InStrRev(SettingsDict.Item("MovieLibFolder"),"\") + 1 ,Len(SettingsDict.Item("MovieLibFolder"))-InStrrev(SettingsDict.Item("MovieLibFolder"),"\"))
  196.     OtherFolderName = Mid(SettingsDict.Item("OtherLibFolder"),InStrRev(SettingsDict.Item("OtherLibFolder"),"\") + 1 ,Len(SettingsDict.Item("OtherLibFolder"))-InStrrev(SettingsDict.Item("OtherLibFolder"),"\"))
  197.     StockpileName = Mid(SettingsDict.Item("EncoderStockPile"),InStrRev(SettingsDict.Item("EncoderStockPile"),"\") + 1 ,Len(SettingsDict.Item("EncoderStockPile"))-InStrrev(SettingsDict.Item("EncoderStockPile"),"\"))
  198.     'Available functions: See actual function below for more information.
  199.         'FileCreatedOn(filename,x) Values of x:(0=Date 1=Time(24 hr) 2=Both(24 hr) 3=Time(AM/PM))
  200.         'UpcomingRecordings(URNumber) Values of URNumber:(0=Count of ALL upcoming 1=Count of all older than 2 hrs)
  201.         'MakeFolderStructure(PathToMake) Values of PathToMake:("c:\any\structure\you\want"), then returns the path as a string in the event you want it for a variable.
  202.         'ScriptLog(LogData,LogRank,JobID) Values of LogData:("Anything you want") LogRank: (0=SUCCESS 1=ERROR 2=WARNING 4=INFORMATION 8=AUDIT_SUCCESS 16=AUDIT_FAILURE)
  203.         'AvailableEncoderList(JobID)
  204.         'Qlength(QName) Values of QName:("cpu1") The name of an available encoders, eg. one name like from AEList
  205.         'EngineStatus(ESName) Values of ESName:("cpu1") The name of an available encoder, eg. one name like from AEList
  206.         'VidSizeRange(VSRName) Values of VSRName ("c:\full\path\to\file.ts")
  207.         'FileCreatedOn(FCOName,FullorPart) Values of FCOName:("c:\full\path\to\file.ts") FullorPart:(0,1,2 or 3) 0=Date 1=Time 2=Date&Time 3=Time12hr
  208.         'GetSE(GSEName) Values of GSEName:("c:\full\path\to\file.ts" or just "file.ts") This function doesn't require the full path.
  209.         'GetETitle(GENName) Values of GENName:("c:\full\path\to\file.ts" or just "file.ts") This function doesn't require the full path.
  210.         'GetIsLive(GILName) Values of GILName:("c:\full\path\to\file.ts" or just "file.ts") This function doesn't require the full path.
  211.         'GetDateTime(GDTName) Values of GDTName:("c:\full\path\to\file.ts") This function requires the full path.
  212.         'GetTitle(GTName,JobID) Values of GTName:("c:\full\path\to\file.ts" or just "file.ts") This function doesn't require the full path.
  213.  
  214.     'Construct a new filename. (THIS IS WHERE YOU ADJUST FILENAME FORMAT TEMPLATES)
  215.     If VideoCatagory = "news" Then
  216.         NewFileName = SrcTitle & " - " & SrcDateTime & " - " & SrcEpTitle & SrcFileExt
  217.     ElseIf VideoCatagory = "show" Then
  218.         NewFileName = SrcTitle & " - " & SrcSE & " - " & SrcEpName & SrcFileExt
  219.     Elseif VideoCatagory = "movie" Then
  220.         NewFileName = SrcTitle & SrcFileExt
  221.     Elseif VideoCatagory = "other" Then
  222.         NewFileName = SrcTitle & SrcFileExt
  223.     End If
  224.    
  225.    
  226.     'BEGIN LOGIC
  227.     'Determine list of candidate encoders within group of prefered ones for the given video size
  228.     Select Case VidSizeRange(SrcFile)
  229.         Case "L"
  230.             If Len(SettingsDict.Item("FastEncoderList")) > 1 Then
  231.                 PreferedEncoderArray = Split(SettingsDict.Item("FastEncoderList"), ",")
  232.             End If
  233.         Case "M"
  234.             If Len(SettingsDict.Item("MedEncoderList")) > 1 Then
  235.                 PreferedEncoderArray = Split(SettingsDict.Item("MedEncoderList"), ",")
  236.             End If
  237.         Case "S"
  238.             If Len(SettingsDict.Item("SlowEncoderList")) > 1 Then
  239.                 PreferedEncoderArray = Split(SettingsDict.Item("SlowEncoderList"), ",")
  240.             End If
  241.     End Select
  242.     If IsArray(PreferedEncoderArray) Then
  243.         'Cross refrence prefered encoders with available ones and return QualifingEncoderArray.
  244.         q = 0
  245.         For Each AvailableEncoder in AvailableEncoderArray
  246.             For each Encoder in PreferedEncoderArray
  247.                 If AvailableEncoder = Encoder Then
  248.                     ReDim Preserve QualifingEncoderArray(q)
  249.                     QualifingEncoderArray(q) = AvailableEncoder
  250.                     q = q + 1
  251.                 End If
  252.             Next
  253.         Next
  254.     Else
  255.         'If no encoders are assigned to video size group, use default list of encoders
  256.         QualifingEncoderArray = Split(SavedEncoderList, ",")
  257.     End If
  258.  
  259.     'Now, QualifingEncoderArray will contain a pre-final list of candidate encoders.
  260.     'We just need to determine which is best.
  261.     'There are 2 methods available for determining the best candidate encoder.
  262.         '1- queue length, simple file count
  263.         '2- queue size (mb), volume comparison weighted by CPU Passmark rating.
  264.     EncoderQueueLength = 100000 'a big fat fake queue size to start with
  265.     Dim ForceQueueSize
  266.     ForceQueueSize = False
  267.     If UBound(QualifingEncoderArray) < 0 Then
  268.         If IsStockpile Then
  269.             ScriptLog "Skipping file, no available encoders to move from stockpile folder.", 4, JobID
  270.             Exit Sub
  271.         Else
  272.             EncoderName = StockpileName
  273.             ScriptLog "Defaulting to StockPile folder, no encoders are available.", 4, JobID
  274.         End If
  275.     Else
  276.         For Each Encoder in QualifingEncoderArray
  277.         'By queue length
  278.             If SettingsDict.Item("QueueGuage") = "length" Then
  279.                 tempnum = Int(Qlength(Encoder))
  280.                 If tempnum < 0 then
  281.                     ScriptLog "[" & Encoder & "] Unable to get queue length, switching to queue size as alternative", 2, JobID
  282.                     ForceQueueSize = True
  283.                 ElseIf tempnum >= 0 Then
  284.                     ScriptLog "[" & Encoder & "] queue length is " & tempnum, 4, JobID
  285.                 End If
  286.             End If
  287.         'By queue size
  288.             If SettingsDict.Item("QueueGuage") = "size" Or ForceQueueSize Then
  289.                 tempnum = Round(filesys.getfolder(SettingsDict.Item("EncoderShares") & "\" & Encoder).Size / 1073741824, 1) 'tempnum is in gb rounded to the nearest 10th decimal
  290.                 If EncoderDict.Exists(Encoder) Then
  291.                     'Size-(Size(2(PM/1000))/100) This will take off 2% per 1k passmark
  292.                     tempnum = Int(tempnum - (tempnum * (2 *(EncoderDict.Item(Encoder) / 1000))/100))
  293.                 End If
  294.                 ScriptLog "[" & Encoder & "] queue size is " & tempnum & " Gb", 4, JobID
  295.             End If
  296.         'Decide if encoder is the one to use
  297.             If Int(tempnum) < EncoderQueueLength Then
  298.                 EncoderName = Encoder
  299.                 EncoderQueueLength = tempnum
  300.             End If
  301.             If EncoderQueueLength = 0 then
  302.                 Exit For
  303.             End If
  304.         Next
  305.     End If
  306.     'Before we continue, if AutoReallocate is active and if there are offline encoders found, move the jobs to the stockpile folder and submit for reprocessing.
  307.     If SettingsDict.Item("AutoReallocate") = 1 And Ubound(OfflineEncoderArray) >= 0 And BatchMode = 0 And Not IsStockpile Then
  308.         ScriptLog "Checking for media in off-line encoder folders." , 4, JobID
  309.         For Each OfflineEncoder in OfflineEncoderArray
  310.             If filesys.FolderExists(SettingsDict.Item("EncoderShares") & "\" & OfflineEncoder) Then
  311.                 If filesys.GetFolder(SettingsDict.Item("EncoderShares") & "\" & OfflineEncoder).SubFolders.Count > 0 Then
  312.                     filesys.MoveFolder SettingsDict.Item("EncoderShares") & "\" & OfflineEncoder & "\*", SettingsDict.Item("EncoderStockPile")
  313.                     ScriptLog "Moved pending files from offline encoder [" & OfflineEncoder & "] to the stockpile folder." , 4, JobID
  314.                 End If
  315.             End If
  316.         Next
  317.     End If
  318.     If BatchMode = 0 And Not IsStockpile Then
  319.         If filesys.GetFolder(SettingsDict.Item("EncoderStockPile")).SubFolders.Count > 0 Then
  320.             ScriptLog "Backlog media found, submitting stockpile folder for batch processing." , 4, JobID
  321.             WshShell.Run Wscript.ScriptFullName & " " & SettingsDict.Item("EncoderStockPile")
  322.         Else
  323.             ScriptLog "No backlog media found, moving on." , 4, JobID
  324.         End If
  325.     End If
  326.     'The engine has been selected for the job, assign it.
  327.     ScriptLog "Assigning " & EncoderName & " with [" & NewFileName & "]", 0, JobID
  328.  
  329.     'Create new folder structure based from VideoCatagory and move file. Delete old folder structure.
  330.     If filesys.FileExists(SrcFile) Then
  331.         If VideoCatagory = "news" Then
  332.             NewFolderStruct = MakeFolderStructure(SettingsDict.Item("EncoderShares") & "\" & EncoderName & "\" & NewsFolderName & "\" & SrcTitle & "\Season 2017\")
  333.         ElseIf VideoCatagory = "show" Then
  334.             NewFolderStruct = MakeFolderStructure(SettingsDict.Item("EncoderShares") & "\" & EncoderName & "\" & TVFolderName & "\" & SrcTitle & "\Season " & SrcS & "\")
  335.         Elseif VideoCatagory = "movie" Then
  336.             NewFolderStruct = MakeFolderStructure(SettingsDict.Item("EncoderShares") & "\" & EncoderName & "\" & MovieFolderName & "\")
  337.         Elseif VideoCatagory = "other" Then
  338.             NewFolderStruct = MakeFolderStructure(SettingsDict.Item("EncoderShares") & "\" & EncoderName & "\" & OtherFolderName & "\")
  339.         End If
  340.         If filesys.FileExists(NewFolderStruct & NewFileName) Then
  341.             ScriptLog "Filename [" & NewFolderStruct & NewFileName & "] already exists. Appending time to name.",1, JobID
  342.             filesys.MoveFile SrcFile, NewFolderStruct & Replace(NewFileName,SrcFileExt, FileCreatedOn(SrcFile,3) & SrcFileExt)
  343.         Else
  344.             ScriptLog "Moving file to [" & NewFolderStruct & NewFileName & "]",4, JobID
  345.             filesys.MoveFile SrcFile, NewFolderStruct & NewFileName
  346.         End If
  347.         If BatchMode = 0 Then
  348.             DelFolder = SrcFile
  349.             For FolderDepth = 0 to 3 'Max folder depth removal, but stop when folder is not empty or = special folder name
  350.                 FolderDepth = FolderDepth + 1
  351.                 DelFolder = Left(SrcFile,InStrRev(DelFolder,"\") - 1)
  352.                 Set folder = filesys.GetFolder(DelFolder)
  353.                 Select Case folder.Name
  354.                     Case ".grab", "Recordings", "Library", NewsFolderName, TVFolderName, MovieFolderName
  355.                         ScriptLog "Not deleting folder [" & DelFolder & "], it may be important.",4, JobID
  356.                         Exit For
  357.                 End Select
  358.                 Set SubFolders = folder.SubFolders
  359.                 Set FilesWithin = folder.files
  360.                 If SubFolders.Count > 0 Or FilesWithin.Count > 0 Then
  361.                     ScriptLog "Not deleting folder [" & DelFolder & "], it's not empty yet.",4, JobID
  362.                     Exit For
  363.                 Elseif Not filesys.FileExists(NewFolderStruct & NewFileName) Then
  364.                     ScriptLog "Not deleting [" & DelFolder & "], destination video missing.",2, JobID
  365.                     Exit For
  366.                 Else
  367.                     On Error Resume Next
  368.                     filesys.DeleteFolder DelFolder
  369.                     If Err.Number <> 0 Then
  370.                         ScriptLog "Unable to remove [" & DelFolder & "], error trying, inspect permissions.",2, JobID
  371.                         Exit For
  372.                     Else
  373.                         ScriptLog "Cleaned up folder [" & DelFolder & "]",4, JobID
  374.                     End If
  375.                 End If
  376.             Next
  377.             Set folder = nothing
  378.             Set SubFolders = nothing
  379.             Set FilesWithin = nothing
  380.         End If
  381.     End If
  382.     If Not EncoderName = StockpileName Then
  383.         'Execute MCEB engine rescan of folder so it immediately sees the new file.
  384.         ForceFolderUpdate EncoderName, JobID
  385.     End If
  386.     'LogRank values = 0=SUCCESS   1=ERROR   2=WARNING   4=INFORMATION   8=AUDIT_SUCCESS   16=AUDIT_FAILURE
  387.     If BatchMode = 0 Then
  388.         'Log upcoming count
  389.         stalefile = UpcomingRecordings(1,DVRGrabFolder)
  390.         newfile = UpcomingRecordings(0,DVRGrabFolder)
  391.         If stalefile > 0 Then
  392.             ScriptLog "There are " & stalefile & " recording(s) older than 2 hours in the grab folder.", 2, JobID
  393.             ScriptLog "There are a total of " & newfile & " new recording(s) pending. See warning log.", 4, JobID
  394.         ElseIf newfile > 0 Then
  395.             ScriptLog "There are " & newfile & " new recording(s) pending.", 4, JobID
  396.         ElseIf newfile = 0 Then
  397.             ScriptLog "There are 0 recordings pending.", 4, JobID
  398.         End If
  399.     End If
  400. End Sub
  401.  
  402. '---------------------------------------------------------------------------------------------------------------------------
  403. '---------------------------------------------------------------------------------------------------------------------------
  404. '----------------------------------------- Begin Supporting Functions & Subs -----------------------------------------------
  405. '---------------------------------------------------------------------------------------------------------------------------
  406. '---------------------------------------------------------------------------------------------------------------------------
  407. 'A common routine to load a script based file and execute it.
  408. Sub LoadFile(auxfile,mode)
  409.     If Not Filesys.FileExists(filesys.GetParentFolderName(WScript.ScriptFullName) & "\" & auxfile) Then
  410.         NeedSetup = True
  411.         Exit Sub
  412.     End If
  413.     If mode = "run" then
  414.         executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(filesys.GetParentFolderName(WScript.ScriptFullName) & "\" & auxfile).readAll()
  415.     Elseif mode = "load" Then
  416.         Set lfile = filesys.OpenTextFile(filesys.GetParentFolderName(WScript.ScriptFullName) & "\" & auxfile, 1)
  417.         Do Until lfile.AtEndOfStream
  418.             FileString = lfile.ReadLine
  419.             If Instr(FileString, VBTAB) > 0 Then
  420.                 SettingArray = Split(FileString, VBTAB)
  421.                 If UBound(SettingArray) = 1 Then
  422.                     ExecuteString = CurrentLoadFile & ".Add " & Chr(34) & SettingArray(0) & Chr(34) & " , " & Chr(34) & SettingArray(1) & Chr(34)
  423.                     executeGlobal ExecuteString
  424.                 End If
  425.             ElseIf LCase(Trim(FileString)) = "eof" Then
  426.                 Exit Do
  427.             ElseIf Left(FileString,1) = "'" Then
  428.                 'Ignore comment lines
  429.             ElseIf Instr(FileString, " ") > 0 Then
  430.                 'Execute if the string contains a space
  431.                 ExecuteString FileString
  432.             Elseif Len(FileString) > 1 Then
  433.                 'Set dictonary name if non-zero length string
  434.                 CurrentLoadFile = FileString
  435.             End If
  436.         Loop
  437.         lfile.Close
  438.     End If
  439. End Sub
  440. 'A routine to recursively search a folder and ultimately produce all files within it. All files may be processed but
  441. 'only video files will be accepted by MCEB.
  442. Sub RecursiveSearch(fldr)
  443.     Set BaseFolder = filesys.GetFolder(fldr)
  444.     For Each MediaFile in BaseFolder.Files
  445.         TotalFiles = TotalFiles + 1
  446.         MainLogic MediaFile
  447.     Next
  448.     'Ignore .grab folders. We don't want to disturb videos not yet ready.
  449.    For each NestedFolder in BaseFolder.SubFolders
  450.         If Not NestedFolder.Name = ".grab" Then
  451.             RecursiveSearch NestedFolder
  452.         End If
  453.     Next
  454. End Sub
  455. 'Returns the quantity of upcoming recordings. Right now only for logging purposes. Only reports the correct number AFTER the
  456. 'video is moved otherwise it will be +1.
  457. 'URNumber [0=total,1=old]
  458. Function UpcomingRecordings(URNumber,GrabFolder)
  459.     If URNumber = 0 Then
  460.         UpcomingRecordings = filesys.GetFolder(GrabFolder).SubFolders.Count
  461.     Elseif URNumber = 1 Then
  462.         UpcomingRecordings = 0
  463.         For Each FolderName In filesys.GetFolder(GrabFolder).SubFolders
  464.             For Each FileName In filesys.GetFolder(FolderName).Files
  465.                 Set grabFile = filesys.GetFile(FileName)
  466.                 If DateDiff("N", grabFile.DateCreated, now()) > 120 Then 'Older than 2 hours
  467.                     UpcomingRecordings = UpcomingRecordings + 1
  468.                 End If
  469.             Next
  470.         Next
  471.     End If
  472. End Function
  473. 'This sub will build a 2 subfolder deep structure as specified in input PathToMake. Used to create the folders for an assigned
  474. 'video when moved to the encoders folder.
  475. 'It returns the full path as the result
  476. Function MakeFolderStructure(PathToMake)
  477.     MakeFolderStructure = PathToMake
  478.     'Break apart the path to each folder and filename
  479.     FolderStructureArray = Split(PathToMake, "\")
  480.     WorkingPath = FolderStructureArray(0) & "\"
  481.     'Start at 1 because 0 is the drive letter
  482.     For w = 1 To Ubound(FolderStructureArray)
  483.         If Not FolderStructureArray(w) = "" Then
  484.             WorkingPath = WorkingPath & FolderStructureArray(w) & "\"
  485.             If Not filesys.FolderExists(WorkingPath) Then
  486.                 'Make the folder one at a time
  487.                 newfolder = filesys.CreateFolder(WorkingPath)
  488.             End If
  489.         End If
  490.     Next
  491. End Function
  492. 'Sends Logs to the Windows logging service. The following are the log types for classification.
  493. 'https://msdn.microsoft.com/en-us/library/b4ce6by3
  494. 'LogRank values = 0=SUCCESS   1=ERROR   2=WARNING   4=INFORMATION   8=AUDIT_SUCCESS   16=AUDIT_FAILURE
  495. 'See [Event viewer]->[Windows Logs]->[Application]. Logs are marked as from source "WSH".
  496. 'Filters can be applied to windows logs for a clean operating list of jobs complete or fail.
  497. Sub ScriptLog(LogData,LogRank,ID)
  498.     WshShell.LogEvent LogRank, Now() & vbcrlf & "ID: " & ID & vbcrlf & LogData
  499. End Sub
  500. Sub ForceFolderUpdate(EncoderName, ID)
  501.     strCommand = SettingsDict.Item("UserCLIApp") & " --command=engine  --action=rescan --server=" & EncoderName
  502.     Set WshShellExec = WshShell.Exec(strCommand)
  503.     If Instr(WshShellExec.StdOut.ReadAll,"MCEBuddy.UserCLI Successful!!") > 0 Then
  504.         ScriptLog "[" & EncoderName & "] folder rescan command successful.", 4, ID
  505.     Else
  506.         ScriptLog "[" & EncoderName & "] folder rescan command FAILED.", 2, ID
  507.     End If
  508. End Sub
  509. 'Returns the result of testing all folder names in the encoders folder as computers on your network for available MCEB engines.
  510. Function AvailableEncoderList(ID)
  511.     Set FSO = CreateObject("Scripting.FileSystemObject")
  512.     'Make array from offline.txt
  513.     If filesys.FileExists(SettingsDict.Item("EncoderShares") & "\offline.txt") Then
  514.         Set objTextFile = FSO.OpenTextFile(SettingsDict.Item("EncoderShares") & "\offline.txt", 1)
  515.         'Need to set it to a var before splitting it to make sue it's not zero length
  516.         If filesys.GetFile(SettingsDict.Item("EncoderShares") & "\offline.txt").Size > 0 Then
  517.             SavedOfflineArray = Split(objTextFile.ReadAll, vbCrLf)
  518.             'SavedOfflineArray = array of all folder names in the common shared folders that belong to encoders previously marked as offline in offline.txt.
  519.         Else
  520.             ReDim SavedOfflineArray(0)
  521.         End If
  522.         Set objTextFile = Nothing
  523.     Else
  524.         ReDim SavedOfflineArray(0)
  525.     End If
  526.     EncoderArray = EncoderDict.Keys()
  527.     ReDim OutputArray(0)
  528.     ReDim OfflineArray(0)
  529.     For Each EncoderName In EncoderArray
  530.         Select Case EncoderName
  531.             Case ""
  532.                 'Skip blank names
  533.                 Continue
  534.             Case StockpileName
  535.                 'Skip dump folder (assumed to be with encoder folders)
  536.                 Continue
  537.         End Select
  538.         If Not filesys.FolderExists(SettingsDict.Item("EncoderShares") & "\" & EncoderName) Then
  539.             'Needed if in the event of encoder folder being deleted, likely by MCEB when no files remain. All encoders MUST be listed in EncoderList setting!
  540.             NewEncoderFolder = filesys.CreateFolder(SettingsDict.Item("EncoderShares") & "\" & EncoderName)
  541.         End If
  542.         VisableEncoder = 1
  543.         For j = 0 to Ubound(SavedOfflineArray)
  544.             If SavedOfflineArray(j) = EncoderName Then
  545.                 'If encoder name is in the offline.txt array, ignore it.
  546.                 VisableEncoder = 0
  547.                 j = Ubound(SavedOfflineArray)
  548.             End If
  549.         Next
  550.         If VisableEncoder = 0 Then
  551.             If Not OfflineArray(UBound(OfflineArray)) = "" Then
  552.                 ReDim Preserve OfflineArray(UBound(OfflineArray) + 1)
  553.             End If
  554.             OfflineArray(UBound(OfflineArray)) = EncoderName
  555.         ElseIf VisableEncoder = 1 Then
  556.             EncoderState = EngineStatus(EncoderName)
  557.             If EncoderState = "started" Then
  558.                 'This is where valid hosts are added to the list of output.
  559.                 ScriptLog "[" & EncoderName & "] engine is running -idle-", 4, ID
  560.                 If Not OutputArray(UBound(OutputArray)) = "" Then
  561.                     ReDim Preserve OutputArray(UBound(OutputArray) + 1)
  562.                 End If
  563.                 OutputArray(UBound(OutputArray)) = EncoderName
  564.             ElseIf EncoderState = "conversion_in_progress" Then
  565.                 'This is where valid hosts are added to the list of output.
  566.                 ScriptLog "[" & EncoderName & "] engine is running -working- ", 4, ID
  567.                 If Not OutputArray(UBound(OutputArray)) = "" Then
  568.                     ReDim Preserve OutputArray(UBound(OutputArray) + 1)
  569.                 End If
  570.                 OutputArray(UBound(OutputArray)) = EncoderName
  571.             ElseIf EncoderState = "conversion_paused" Then
  572.                 ScriptLog "[" & EncoderName & "] engine is -paused-", 4, ID
  573.                 If Not OutputArray(UBound(OutputArray)) = "" Then
  574.                     ReDim Preserve OutputArray(UBound(OutputArray) + 1)
  575.                 End If
  576.                 OutputArray(UBound(OutputArray)) = EncoderName
  577.             ElseIf EncoderState = "stopped" Then
  578.                 'This is where valid hosts that are stopped and not added to the list.
  579.                 ScriptLog "[" & EncoderName & "] engine is not running -stopped-", 4, ID
  580.             Else
  581.                 'This is where invalid/unavailable hosts are identified.
  582.                 ScriptLog "[" & EncoderName & "] is off-line.", 2, JobID
  583.                 If Not OfflineArray(UBound(OfflineArray)) = "" Then
  584.                     ReDim Preserve OfflineArray(UBound(OfflineArray) + 1)
  585.                 End If
  586.                 OfflineArray(UBound(OfflineArray)) = EncoderName
  587.                 If SettingsDict.Item("AutoDisable") = 1 Then
  588.                     ScriptLog "[" & EncoderName & "] has been auto-disabled", 2, ID
  589.                     Set objFile = FSO.OpenTextFile(SettingsDict.Item("EncoderShares") & "\offline.txt", 8)
  590.                     objFile.Write EncoderName & vbCrLf
  591.                     objFile.Close
  592.                 End If
  593.                 'Add the folder/encoder name to a offline.txt file and will be ignored on future runs until removed.
  594.                 'Re-run contents of folder for assignment
  595.             End If
  596.         End If
  597.     Next
  598.     AvailableEncoderList = Join(OutputArray,",")
  599.     OfflineEncoderlist = Join(OfflineArray,",")
  600.     ScriptLog "Available encoders: [" & AvailableEncoderList & "]", 4, ID
  601. End Function
  602. 'Supplied with an encoders Windows name or IP address, will return the queue length of that MCEB engine.
  603. Function Qlength(QName)
  604.     strCommand = SettingsDict.Item("UserCLIApp") & " --command=query --action=queuelength --quiet --server=" & QName
  605.     Set WshShellExec = WshShell.Exec(strCommand)
  606.     Qlength = WshShellExec.StdOut.ReadLine
  607.     Set WshShellExec = Nothing
  608.     '-2 means nonresponsive
  609. End Function
  610. 'Supplied with an encoder's Windows name or IP address, will return "-2" for offline, "stopped" or "running" engine status
  611. Function EngineStatus(ESName)
  612.     strCommand = SettingsDict.Item("UserCLIApp") & " --command=query --action=enginestate --quiet --server=" & ESName
  613.     Set WshShellExec = WshShell.Exec(strCommand)
  614.     EngineStatus = WshShellExec.StdOut.ReadLine
  615.     Set WshShellExec = Nothing
  616. End Function
  617. 'Crudely determine size category of the video being processed. Used for the fast/med/slow encoders list.
  618. Function VidSizeRange(VSRName)
  619.     SrcFileSize = filesys.GetFile(VSRName).Size
  620.     Select Case True
  621.         Case SrcFileSize >= CDbl(SettingsDict.Item("ALargeFile") * 1073741824)
  622.             VidSizeRange = "L"
  623.         Case SrcFileSize > CDbl(SettingsDict.Item("AMedFile") * 1073741824) And SrcFileSize < CDbl(SettingsDict.Item("ALargeFile") * 1073741824)
  624.             VidSizeRange = "M"
  625.         Case Else
  626.             VidSizeRange = "S"
  627.     End Select
  628. End Function
  629. 'Supplied with a full filename with path will return date, time or date and time of the files creation.
  630. Function FileCreatedOn(FCOName,FullorPart)
  631.     SET objFSO = CREATEOBJECT("Scripting.FileSystemObject")
  632.     SET objFile = objFSO.GetFile(FCOName)
  633.     FileStamp = objFile.DateCreated
  634. 'so.. IF, as in it already happened, the file was created at exactly midnight, ONLY the date will be passed because I guess
  635. 'someone doesn't like zeros...
  636.     If Instr(FileStamp,":") < 1 Then 'For whatever reason when it is midnight, something squares it off by removing all the 0's and only the date is given.
  637.         FileStamp = FileStamp & " 12:00:00 AM" '12 hr equivalent to the 00 00 00 that was removed.
  638.     End If
  639.     FileCreatedArray = Split(FileStamp, " ")
  640.     FileCreatedDateArray = Split(FileCreatedArray(0), "/")
  641.     'need to translate date format. (MM/DD/YY to YY/MM/DD)
  642.     FileCreatedDate = FileCreatedDateArray(2) & "-" & FileCreatedDateArray(0) & "-" & FileCreatedDateArray(1)
  643.     FileCreatedTimeArray = Split(FileCreatedArray(1), ":")
  644.     'If 12 hr time is requested, take care of it and pass it along.
  645.     If FullorPart = 3 Then 'Time AM/PM Format
  646.         FileCreatedOn = FileCreatedTimeArray(0) & "." & FileCreatedTimeArray(1) & " " & FileCreatedArray(2)
  647.     Else
  648.         'Format data for 24 hr format and process other requests
  649.         If FileCreatedArray(2) = "PM"  And Not FileCreatedTimeArray(0) = 12 Then
  650.             FileCreatedTimeArray(0) = FileCreatedTimeArray(0) + 12
  651.         End If
  652.         If Len(FileCreatedTimeArray(0)) < 2 Then
  653.             FileCreatedTimeArray(0) = "0" & FileCreatedTimeArray(0)
  654.         End If
  655.         'Give data requested
  656.         If FullorPart = 0 Then 'Date
  657.             FileCreatedOn = FileCreatedDate
  658.         End If
  659.         If FullorPart = 1 Then 'Time
  660.             FileCreatedOn = Join(FileCreatedTimeArray, " ")
  661.         End If
  662.         If FullorPart = 2 Then 'Date & Time
  663.             FileCreatedOn = FileCreatedDate & " " & Join(FileCreatedTimeArray, " ")
  664.         End If
  665.     End If
  666. End Function
  667. Function VidCat(VCFilename)
  668.     If Instr(VCFilename,SettingsDict.Item("NewsDVRFolder")) > 0 Then
  669.         VidCat = "news"
  670.     ElseIf Instr(VCFilename,SettingsDict.Item("ShowDVRFolder")) > 0 Then
  671.         VidCat = "show"
  672.     ElseIf Instr(VCFilename,SettingsDict.Item("MovieDVRFolder")) > 0 Then
  673.         VidCat = "movie"
  674.     Else
  675.         VidCat = "other"
  676.     End If
  677. End Function
  678. '-------------------Regex Functions---------------------------------------------------Regex Functions-------------------------
  679. '----------------------------------------------------Regex Functions----------------------------------------------------------
  680. '-----------------------------------------------------------------------------------------------------------------------------
  681.  
  682. ' The following functions are for extracting file name components for the new filename.
  683. ' If a date and or time is not included in the supplied filename it will be extracted
  684. ' from the file creation timestamp and used in its place.
  685. Function GetSE(GSEName)
  686.     fGSEName = GSEName
  687.     Set objRegEx = CreateObject("VBScript.RegExp")
  688.     objRegEx.Global = True
  689.     GENNameArray = Split(fGSEName, "\")
  690.     fGSEName = GENNameArray(UBound(GENNameArray))
  691.     fGSEName = Replace(fGSEName, " - ", "|")
  692. 'Find season/Episode in format: Sxx(-)Exx
  693.     objRegEx.Pattern = "[sS]+(\d{1,3})[eE]+(\d{1,3})"
  694.     Set myMatches = objRegEx.Execute(fGSEName)
  695.     For Each myMatch in myMatches
  696.         EpisodeNumArray = Split(Replace(LCase(myMatch.Value),"s",""),"e")
  697.         GetSE = EpisodeNumArray(0) & "," & EpisodeNumArray(1)       '<----- OUTPUT IS DETERMINED HERE IF Sxx(-)Exx
  698.         Exit Function
  699.     Next
  700. 'Find season/Episode in format: Episode xx-xx
  701.     objRegEx.Pattern = "[Ee]pisode[\ \-](\d{1,3})[\ \-](\d{1,3})"
  702.     Set myMatches = objRegEx.Execute(fGSEName)
  703.     For Each myMatch in myMatches
  704.         EpisodeNumArray = Split(Replace(myMatch.Value,"-"," ")," ")
  705.         GetSE = EpisodeNumArray(1) & "," & EpisodeNumArray(2)       '<----- OUTPUT IS DETERMINED HERE IF Episode xx-xx
  706.         Exit For
  707.     Next
  708. End Function
  709. 'Returns the Episode title, as in "Episode 123", used in news when there is at times no title.
  710. Function GetETitle(GENName)
  711.     fGENName = GENName
  712.     Set objRegEx = CreateObject("VBScript.RegExp")
  713.     objRegEx.Global = True
  714.     GENNameArray = Split(fGENName, "\")
  715.     fGENName = GENNameArray(UBound(GENNameArray))
  716.     fGENName = Replace(fGENName, " - ", "|")
  717. 'Find episode in format: SxxExx
  718.     objRegEx.Pattern = "[sS]+(\d{1,3})[eE]+(\d{1,3})"
  719.     Set myMatches = objRegEx.Execute(fGENName)
  720.     For Each myMatch in myMatches
  721.         EpisodeNumArray = Split(Replace(LCase(myMatch.Value),"s",""),"e")
  722.         GetETitle = "Episode " & EpisodeNumArray(1)
  723.         Exit For
  724.     Next
  725. 'Find episode in format: Episode xx-xx or Episode xxx
  726.     objRegEx.Pattern = "[Ee]pisode[\ \-](\d{1,3})[\ \-]*(\d{0,3})"
  727.     Set myMatches = objRegEx.Execute(fGENName)
  728.     For Each myMatch in myMatches
  729.         EpisodeNumArray = Split(Replace(myMatch.Value,"-"," ")," ")
  730.         'If the array size is 2, then it's only an episode, 3 would include the season.
  731.         If UBound(EpisodeNumArray) = 1 Then
  732.             GetETitle = "Episode " & EpisodeNumArray(1)
  733.         Elseif UBound(EpisodeNumArray) = 2 Then
  734.             GetETitle = "Episode " & EpisodeNumArray(2)
  735.         Else
  736.         End If
  737.         Exit For
  738.     Next
  739. End Function
  740. 'Determines if the episode was live, more useful on Cops shows. It looks for the word "live" anywhere but the title section.
  741. Function GetIsLive(GILName)
  742.     fGILName = GILName
  743.     Set objRegEx = CreateObject("VBScript.RegExp")
  744.     objRegEx.Global = True
  745.     GILNameArray = Split(fGILName, "\")
  746.     fGILName = GILNameArray(UBound(GILNameArray))
  747.     fGILName = Replace(fGILName, " - ", "|")
  748. 'Determine if it is live
  749.     GetIsLive = 0
  750.     objRegEx.Pattern = "(\|[a-z A-Z]*[lL]ive[a-z A-Z0-9]*)"
  751.     Set myMatches = objRegEx.Execute(fGILName)
  752.     For Each myMatch in myMatches
  753.         GetIsLive = 1
  754.     Next
  755. End Function
  756. 'Returns the Date, time, date & time or time in 12 hr for when a media file was created.
  757. Function GetDateTime(GDTName)
  758.     fGDTName = GDTName
  759.     Set objRegEx = CreateObject("VBScript.RegExp")
  760.     objRegEx.Global = True
  761.     GDTNameArray = Split(fGDTName, "\")
  762.     NewString = Replace(GDTNameArray(UBound(GDTNameArray)), " - ", "|") 'pipes make great boundaries
  763. 'date and time in format: YYYY-MM-DD HH MM SS with any ("." or "-" or " ") as delimiters
  764.     objRegEx.Pattern = "(\d{4})[\-\.\ ](\d{2})[\-\.\ ](\d{2}) (\d{2})[\.\-\ ](\d{2})[\.\-\ ](\d{2})"
  765.     Set myMatches = objRegEx.Execute(NewString)
  766.     For Each myMatch in myMatches
  767.         DateArray = Split(Replace(Replace(myMatch.Value,"-"," "),"."," ")," ")
  768.         If Int(DateArray(3)) = 0 And Int(DateArray(4)) = 0 And Int(DateArray(5)) = 0 Then
  769.             GetDateTime = DateArray(0) & "-" & DateArray(1) & "-" & DateArray(2) & " " & FileCreatedOn(fGDTName,1)
  770.         Else
  771.             GetDateTime = DateArray(0) & "-" & DateArray(1) & "-" & DateArray(2) & " " & DateArray(3) & " " & DateArray(4) & " " & DateArray(5)
  772.         End If
  773.     Next
  774. 'date only in format: MM.DD.YY/YYYY with any ("." or "-" or " ") as delimiters
  775.     If Len(GetDateTime) = 0 Then
  776.         objRegEx.Pattern = "(\d{1,2})[\.\-\ ](\d{1,2})[\.\-\ ](\d{2,4})"
  777.         Set myMatches = objRegEx.Execute(NewString)
  778.         For Each myMatch in myMatches
  779.             DateArray = Split(Replace(Replace(myMatch.Value,"-"," "),".", " ")," ")
  780.             If Len(DateArray(2)) = 2 Then
  781.                 DateArray(2) = 2000 + Int(DateArray(2))
  782.             End If
  783.             GetDateTime = DateArray(2) & "-" & DateArray(0) & "-" & DateArray(1) & " " & FileCreatedOn(fGDTName,1)
  784.         Next
  785.     End If
  786. 'If no date is found, make one from the file attributes
  787.     If Len(GetDateTime) = 0 Then
  788.         GetDateTime = FileCreatedOn(fGDTName,2)
  789.     End If
  790. End Function
  791. '------------------------------------------------------------------------------------------------
  792. 'Returns the show title, assumed to be the first part of the filename.
  793. Function GetTitle(GTName, ID)
  794.     fGTName = GTName
  795.     Set objRegEx = CreateObject("VBScript.RegExp")
  796.     objRegEx.Global = True
  797.     GTNameArray = Split(fGTName, "\")
  798.     fGTName = GTNameArray(UBound(GTNameArray))
  799.     fGTName = Replace(fGTName, " - ", "|")
  800. 'Title
  801.     objRegEx.Pattern = "(^[a-zA-Z\ \(\)0-9\-]*)"
  802.     Set myMatches = objRegEx.Execute(fGTName)
  803. 'If the title can not be determined, log and quit.
  804.     If myMatches.Count = 0 Then
  805.         ScriptLog "Unable to identify title in filename! Ignoring file.",1, ID
  806.         Wscript.Quit
  807.     End If
  808.     GetTitle = myMatches(0)
  809.     'remove the (year) string for proper matching to dictionary names.
  810.     TitleArray = Split(GetTitle," (")
  811.     GetTitle = TitleArray(0)
  812.     If UBound(TitleArray) > 0 Then
  813.         TitleYear = Replace(TitleArray(1),")","")
  814.     End If
  815.  
  816.     If VideoCatagory = "news" Then
  817.         If NewsDict.Exists(GetTitle) Then
  818.             GetTitle = NewsDict.Item(GetTitle)
  819.             ScriptLog "Title found in the News dictionary.",4, ID
  820.         Else
  821.             ScriptLog "Unable to locate title in the News dictionary.",2, ID
  822.         End If
  823.         DupTrack = 0
  824.         For Each ShowName In filesys.GetFolder(SettingsDict.Item("NewsLibFolder")).SubFolders
  825.             TitleArray = Split(ShowName.Name," (")
  826.             If TitleArray(0) = GetTitle Then
  827.                 DupTrack = DupTrack + 1
  828.                 GetTitle = ShowName.Name
  829.             End If
  830.         Next
  831.         If Duptrack > 1 Then
  832.             ScriptLog "More than 1 match was found for this news video.",2, ID
  833.         End If
  834.     'If all else fails, Create a new title and use it.
  835.         If DupTrack = 0 Then
  836.             ScriptLog "New show detected!",0, ID
  837.             GetTitle = GetTitle & " (" & TitleYear & ")"
  838.         End If
  839.     ElseIf VideoCatagory = "show" Then
  840.         If ShowDict.Exists(GetTitle) Then
  841.             GetTitle = ShowDict.Item(GetTitle)
  842.             ScriptLog "Title found in the TV Show dictionary.",4, ID
  843.         Else
  844.             ScriptLog "Unable to locate title in the TV Show dictionary.",2, ID
  845.         End If
  846.         DupTrack = 0
  847.         For Each ShowName In filesys.GetFolder(SettingsDict.Item("TVLibFolder")).SubFolders
  848.             TitleArray = Split(ShowName.Name," (")
  849.             If TitleArray(0) = GetTitle Then
  850.                 DupTrack = DupTrack + 1
  851.                 GetTitle = ShowName.Name
  852.             End If
  853.         Next
  854.         If Duptrack > 1 Then
  855.             ScriptLog "More than 1 match was found for this TV show.",2, ID
  856.         End If
  857.     'If all else fails, Create a new title and use it.
  858.         If DupTrack = 0 Then
  859.             ScriptLog "New show detected!",0, ID
  860.             GetTitle = GetTitle & " (" & TitleYear & ")"
  861.         End If
  862.     Elseif VideoCatagory = "movie" Then
  863.         If MovieDict.Exists(GetTitle) Then
  864.             GetTitle = MovieDict.Item(GetTitle)
  865.             ScriptLog "Title found in the Movie dictionary.",4, ID
  866.         Else
  867.             ScriptLog "Unable to locate title in the Movie dictionary.",2, ID
  868.         End If
  869.     Elseif VideoCatagory = "other" Then
  870.         If OtherDict.Exists(GetTitle) Then
  871.             GetTitle = OtherDict.Item(GetTitle)
  872.             ScriptLog "Title found in the Other dictionary.",4, ID
  873.         Else
  874.             ScriptLog "Unable to locate title in the Other dictionary.",2, ID
  875.         End If
  876.     End If
  877. End Function
  878. Function GetEpTitle(SrcFile,JobID)
  879.     GEName = SrcFile
  880.     Set objRegEx = CreateObject("VBScript.RegExp")
  881.     objRegEx.Global = True
  882.     GTNameArray = Split(GEName, "\")
  883.     GEName = GTNameArray(UBound(GTNameArray))
  884.     GTNameArray = Split(GEName, " - ")
  885.     GEName = GTNameArray(Ubound(GTNameArray))
  886. 'Title
  887.     objRegEx.Pattern = "([a-zA-Z\ \(\)0-9\-\,\?\!\$\%\&\#\@]*)"
  888.     Set myMatches = objRegEx.Execute(GEName)
  889. 'If the title can not be determined, log and quit.
  890.     If myMatches.Count = 0 Then
  891.         ScriptLog "Unable to identify show title in filename! Ignoring file.",4,JobID
  892.         Wscript.Quit
  893.     End If
  894.     GetEpTitle = myMatches(0)
  895. End Function
  896. '------------------------------------------------------------------------------------------------
  897. '------------------------------------------------------------------------------------------------
  898. '-------------------------------------SETUP ROUTINES---------------------------------------------
  899. '------------------------------------------------------------------------------------------------
  900. '------------------------------------------------------------------------------------------------
  901. '------------------------------------------------------------------------------------------------
  902. Sub MakeConfig()
  903.     WorkingFolder = filesys.GetParentFolderName(WScript.ScriptFullName) & "\"
  904.     NewConfigString =  "SettingsDict"
  905.     Done = False
  906.     If Not Filesys.FileExists(WorkingFolder & "PostProcess.cfg") Then
  907. '       ScriptLog "Main config file not found. Creating now.",2, ID
  908.     End If
  909. 'CLI
  910.     If SettingsDict.Exists("UserCLIApp") Then
  911.         If MsgBox("Do you want to change the location of MCEBuddy.UserCLI.exe from the following?" & vbcrlf & vbcrlf & SettingsDict.Item("UserCLIApp"), 4, "Change setting?")  = 7 Then
  912.             ThisInput = SettingsDict.Item("UserCLIApp")
  913.             Done = True
  914.         End If
  915.     End If
  916.     Do Until Done
  917.         ThisInput = UserInput("Find Folder", "Select the parent folder of MCEBuddy.UserCLI.exe" ,"",1) & "\MCEBuddy.UserCLI.exe"
  918.         If ThisInput = "" Then
  919.             WayOut
  920.         ElseIf Filesys.FileExists(ThisInput) Then
  921.             Done = true
  922.         Else
  923.             Msgbox "MCEBuddy.UserCLI.exe wasn't found in: " & vbcrlf & ThisInput & vbcrlf & "Please try again."
  924.         End If
  925.     Loop
  926.     NewConfigString =  NewConfigString & vbcrlf &  "UserCLIApp" & vbtab & ThisInput
  927. 'NewsLibFolder
  928.     Done = False
  929.     If SettingsDict.Exists("NewsLibFolder") Then
  930.         If MsgBox("Do you want to change the Plex news library location?" & vbcrlf & vbcrlf & SettingsDict.Item("NewsLibFolder"), 4, "Change setting?")  = 7 Then
  931.             ThisInput = SettingsDict.Item("NewsLibFolder")
  932.             Done = True
  933.         End If
  934.     End If
  935.     Do Until Done
  936.         ThisInput = UserInput("News Library", "Please select the Plex news library folder." ,"",1)
  937.         If ThisInput = "" Then
  938.             WayOut
  939.         ElseIf Filesys.FolderExists(ThisInput) Then
  940.             Done = true
  941.         Else
  942.             WayOut
  943.         End If
  944.     Loop
  945.     NewConfigString =  NewConfigString & vbcrlf &  "NewsLibFolder" & vbtab & ThisInput
  946. 'TVLibFolder
  947.     Done = False
  948.     If SettingsDict.Exists("TVLibFolder") Then
  949.         If MsgBox("Do you want to change the Plex TV show library location?" & vbcrlf & vbcrlf & SettingsDict.Item("TVLibFolder"), 4, "Change setting?")  = 7 Then
  950.             ThisInput = SettingsDict.Item("TVLibFolder")
  951.             Done = True
  952.         End If
  953.     End If
  954.     Do Until Done
  955.         ThisInput = UserInput("Show Library", "Please select the Plex TV show library folder." ,"",1)
  956.         If ThisInput = "" Then
  957.             WayOut
  958.         ElseIf Filesys.FolderExists(ThisInput) Then
  959.             Done = true
  960.         Else
  961.             WayOut
  962.         End If
  963.     Loop
  964.     NewConfigString =  NewConfigString & vbcrlf &  "TVLibFolder" & vbtab & ThisInput
  965. 'MovieLibFolder
  966.     Done = False
  967.     If SettingsDict.Exists("MovieLibFolder") Then
  968.         If MsgBox("Do you want to change the Plex Movie library location?" & vbcrlf & vbcrlf & SettingsDict.Item("MovieLibFolder"), 4, "Change setting?")  = 7 Then
  969.             ThisInput = SettingsDict.Item("MovieLibFolder")
  970.             Done = True
  971.         End If
  972.     End If
  973.     Do Until Done
  974.         ThisInput = UserInput("Movie Library", "Please select the Plex movie library folder." ,"",1)
  975.         If ThisInput = "" Then
  976.             WayOut
  977.         ElseIf Filesys.FolderExists(ThisInput) Then
  978.             Done = true
  979.         Else
  980.             WayOut
  981.         End If
  982.     Loop
  983.     NewConfigString =  NewConfigString & vbcrlf &  "MovieLibFolder" & vbtab & ThisInput
  984. 'OtherLibFolder
  985.     Done = False
  986.     If SettingsDict.Exists("OtherLibFolder") Then
  987.         If MsgBox("Do you want to change the Plex Other library location?" & vbcrlf & vbcrlf & SettingsDict.Item("OtherLibFolder"), 4, "Change setting?")  = 7 Then
  988.             ThisInput = SettingsDict.Item("OtherLibFolder")
  989.             Done = True
  990.         End If
  991.     End If
  992.     Do Until Done
  993.         ThisInput = UserInput("Other Library", "Please select the Plex OTHER library folder." ,"",1)
  994.         If ThisInput = "" Then
  995.             WayOut
  996.         ElseIf Filesys.FolderExists(ThisInput) Then
  997.             Done = true
  998.         Else
  999.             WayOut
  1000.         End If
  1001.     Loop
  1002.     NewConfigString =  NewConfigString & vbcrlf &  "OtherLibFolder" & vbtab & ThisInput
  1003. 'Encodershares
  1004. 'NewsDVRFolder
  1005.     Done = False
  1006.     If SettingsDict.Exists("NewsDVRFolder") Then
  1007.         If MsgBox("Do you want to change the Plex News DVR folder?" & vbcrlf & vbcrlf & SettingsDict.Item("NewsDVRFolder"), 4, "Change setting?")  = 7 Then
  1008.             ThisInput = SettingsDict.Item("NewsDVRFolder")
  1009.             Done = True
  1010.         End If
  1011.     End If
  1012.     Do Until Done
  1013.         ThisInput = UserInput("News DVR", "Please select the Plex News DVR folder." ,"",1)
  1014.         If ThisInput = "" Then
  1015.             WayOut
  1016.         ElseIf Filesys.FolderExists(ThisInput) Then
  1017.             Done = true
  1018.         Else
  1019.             WayOut
  1020.         End If
  1021.     Loop
  1022.     NewConfigString =  NewConfigString & vbcrlf &  "NewsDVRFolder" & vbtab & ThisInput
  1023. 'ShowDVRFolder
  1024.     Done = False
  1025.     If SettingsDict.Exists("ShowDVRFolder") Then
  1026.         If MsgBox("Do you want to change the Plex TV Show DVR folder?" & vbcrlf & vbcrlf & SettingsDict.Item("ShowDVRFolder"), 4, "Change setting?")  = 7 Then
  1027.             ThisInput = SettingsDict.Item("ShowDVRFolder")
  1028.             Done = True
  1029.         End If
  1030.     End If
  1031.     Do Until Done
  1032.         ThisInput = UserInput("TV Show DVR", "Please select the Plex TV Show DVR folder." ,"",1)
  1033.         If ThisInput = "" Then
  1034.             WayOut
  1035.         ElseIf Filesys.FolderExists(ThisInput) Then
  1036.             Done = true
  1037.         Else
  1038.             WayOut
  1039.         End If
  1040.     Loop
  1041.     NewConfigString =  NewConfigString & vbcrlf &  "ShowDVRFolder" & vbtab & ThisInput
  1042. 'MovieDVRFolder
  1043.     Done = False
  1044.     If SettingsDict.Exists("MovieDVRFolder") Then
  1045.         If MsgBox("Do you want to change the Plex Movie DVR folder?" & vbcrlf & vbcrlf & SettingsDict.Item("MovieDVRFolder"), 4, "Change setting?")  = 7 Then
  1046.             ThisInput = SettingsDict.Item("MovieDVRFolder")
  1047.             Done = True
  1048.         End If
  1049.     End If
  1050.     Do Until Done
  1051.         ThisInput = UserInput("Movie DVR", "Please select the Plex Movie DVR folder." ,"",1)
  1052.         If ThisInput = "" Then
  1053.             WayOut
  1054.         ElseIf Filesys.FolderExists(ThisInput) Then
  1055.             Done = true
  1056.         Else
  1057.             WayOut
  1058.         End If
  1059.     Loop
  1060.     NewConfigString =  NewConfigString & vbcrlf &  "MovieDVRFolder" & vbtab & ThisInput
  1061. 'OtherDVRFolder
  1062.     Done = False
  1063.     If SettingsDict.Exists("OtherDVRFolder") Then
  1064.         If MsgBox("Do you want to change the Plex Other DVR folder?" & vbcrlf & vbcrlf & SettingsDict.Item("OtherDVRFolder"), 4, "Change setting?")  = 7 Then
  1065.             ThisInput = SettingsDict.Item("OtherDVRFolder")
  1066.             Done = True
  1067.         End If
  1068.     End If
  1069.     Do Until Done
  1070.         ThisInput = UserInput("Other DVR", "Please select the Plex Other DVR folder." ,"",1)
  1071.         If ThisInput = "" Then
  1072.             WayOut
  1073.         ElseIf Filesys.FolderExists(ThisInput) Then
  1074.             Done = true
  1075.         Else
  1076.             WayOut
  1077.         End If
  1078.     Loop
  1079.     NewConfigString =  NewConfigString & vbcrlf &  "OtherDVRFolder" & vbtab & ThisInput
  1080.     Done = False
  1081.     If SettingsDict.Exists("EncoderShares") Then
  1082.         If MsgBox("Do you want to change the folder where all network shares for MCEB engines are located?" & vbcrlf & vbcrlf & SettingsDict.Item("EncoderShares"), 4, "Change setting?")  = 7 Then
  1083.             ThisInput = SettingsDict.Item("EncoderShares")
  1084.             Done = True
  1085.         End If
  1086.     End If
  1087.     Do Until Done
  1088.         ThisInput = UserInput("Share Root", "Please select the root folder where all shared folders for MCEB engines are located." ,"",1)
  1089.         If ThisInput = "" Then
  1090.             WayOut
  1091.         ElseIf Filesys.FolderExists(ThisInput) Then
  1092.             Done = true
  1093.         Else
  1094.             WayOut
  1095.         End If
  1096.     Loop
  1097.     NewConfigString =  NewConfigString & vbcrlf &  "EncoderShares" & vbtab & ThisInput
  1098. 'EncoderStockPile
  1099.     Done = False
  1100.     If SettingsDict.Exists("EncoderStockPile") Then
  1101.         If MsgBox("Do you want to change the temporary media storage folder? It is suggested to be on the same drive as the DVR." & vbcrlf & vbcrlf & SettingsDict.Item("EncoderStockPile"), 4, "Change setting?")  = 7 Then
  1102.             ThisInput = SettingsDict.Item("EncoderStockPile")
  1103.             Done = True
  1104.         End If
  1105.     End If
  1106.     Do Until Done
  1107.         ThisInput = UserInput("Share Root", "Please select the encoder buffer folder." ,"",1)
  1108.         If ThisInput = "" Then
  1109.             WayOut
  1110.         ElseIf Filesys.FolderExists(ThisInput) Then
  1111.             Done = true
  1112.         Else
  1113.             WayOut
  1114.         End If
  1115.     Loop
  1116.     NewConfigString =  NewConfigString & vbcrlf &  "EncoderStockPile" & vbtab & ThisInput
  1117. 'AutoDisable
  1118.     If SettingsDict.Exists("AutoDisable") Then
  1119.         If SettingsDict.Item("AutoDisable") = 1 Then
  1120.             SetTo = "Enabled"
  1121.         Else
  1122.             SetTo = "Disabled"
  1123.         End If
  1124.     Else
  1125.         SetTo = "Enabled"
  1126.     End If
  1127.     If MsgBox("Do you want to auto disable unresponsive encoders?" & vbcrlf & vbcrlf & "Currently set to: " & SetTo, 4, "Change setting?")  = 6 Then
  1128.         NewConfigString =  NewConfigString & vbcrlf &  "AutoDisable" & vbtab & "1"
  1129.     Else
  1130.         NewConfigString =  NewConfigString & vbcrlf &  "AutoDisable" & vbtab & "0"
  1131.     End If
  1132. 'AutoReallocate
  1133.     If SettingsDict.Exists("AutoReallocate") Then
  1134.         If SettingsDict.Item("AutoReallocate") = 1 Then
  1135.             SetTo = "Enabled"
  1136.         Else
  1137.             SetTo = "Disabled"
  1138.         End If
  1139.     Else
  1140.         SetTo = "Enabled"
  1141.     End If
  1142.     If MsgBox("Do you want media to be automatically reassigned when an unresponsive encoder if found?" & vbcrlf & vbcrlf & "Currently set to: " & SetTo, 4, "Change setting?")  = 6 Then
  1143.         NewConfigString =  NewConfigString & vbcrlf &  "AutoReallocate" & vbtab & "1"
  1144.     Else
  1145.         NewConfigString =  NewConfigString & vbcrlf &  "AutoReallocate" & vbtab & "0"
  1146.     End If
  1147. 'FastEncoderList
  1148.     Done = False
  1149.     If SettingsDict.Exists("FastEncoderList") Then
  1150.         If Not MsgBox("Do you want to classify any of the MCEB engines as fast? These will tend to have larger jobs assigned." & vbcrlf & vbcrlf & "Currently included: " & SettingsDict.Item("FastEncoderList"), 4, "Change setting?")  = 6 Then
  1151.             ThisInput = SettingsDict.Item("FastEncoderList")
  1152.             Done = True
  1153.         End If
  1154.     End If
  1155.     If Not Done Then
  1156.         ThisInput = UserInput("Fast Encoders", "Please make a comma delimited list of which engines involved are to be favored for large files." ,"",0)
  1157.     End If
  1158.     NewConfigString =  NewConfigString & vbcrlf &  "FastEncoderList" & vbtab & Replace(ThisInput," ","")
  1159. 'MedEncoderList
  1160.     Done = False
  1161.     If SettingsDict.Exists("MedEncoderList") Then
  1162.         If Not MsgBox("Do you want to classify any of the MCEB engines as average speed? These will tend to have medium sized jobs assigned." & vbcrlf & vbcrlf & "Currently included: " & SettingsDict.Item("MedEncoderList"), 4, "Change setting?")  = 6 Then
  1163.             ThisInput = SettingsDict.Item("MedEncoderList")
  1164.             Done = True
  1165.         End If
  1166.     End If
  1167.     If Not Done Then
  1168.         ThisInput = UserInput("Medium Speed Encoders", "Please make a comma delimited list of which engines involved are to be favored for medium sized files." ,"",0)
  1169.     End If
  1170.     NewConfigString =  NewConfigString & vbcrlf &  "MedEncoderList" & vbtab & Replace(ThisInput," ","")
  1171. 'SlowEncoderList
  1172.     Done = False
  1173.     If SettingsDict.Exists("SlowEncoderList") Then
  1174.         If Not MsgBox("Do you want to classify any of the MCEB engines as slow? These will tend to have small sized jobs assigned." & vbcrlf & vbcrlf & SettingsDict.Item("SlowEncoderList"), 4, "Change setting?")  = 6 Then
  1175.             ThisInput = SettingsDict.Item("SlowEncoderList")
  1176.             Done = True
  1177.         End If
  1178.     End If
  1179.     If Not Done Then
  1180.         ThisInput = UserInput("Slow Encoders", "Please make a comma delimited list of which engines involved are to be favored for small files." ,"",0)
  1181.     End If
  1182.     NewConfigString =  NewConfigString & vbcrlf &  "SlowEncoderList" & vbtab & Replace(ThisInput," ","")
  1183. 'ALargeFile
  1184.     Done = False
  1185.     If SettingsDict.Exists("ALargeFile") Then
  1186.         If SettingsDict.Item("ALargeFile") > 0 Then
  1187.             ThisSize = SettingsDict.Item("ALargeFile")
  1188.         Else
  1189.             ThisSize = 4
  1190.         End If
  1191.         If MsgBox("Do you want to change what is considered a LARGE media file?" & vbcrlf & vbcrlf & "Currently set to: " & ThisSize & " gb", 4, "Change setting?")  = 7 Then
  1192.             ThisSize = SettingsDict.Item("ALargeFile")
  1193.             Done = True
  1194.         End If
  1195.     End If
  1196.     Do Until Done
  1197.         ThisSize = UserInput("Large media file", "In gb, please specify what is considered a LARGE media file." ,"4",0)
  1198.         If ThisSize > 0 Then
  1199.             Done = True
  1200.         Else
  1201.             Msgbox "That is an invalid value, Please try again."
  1202.         End If
  1203.     Loop
  1204.     NewConfigString =  NewConfigString & vbcrlf &  "ALargeFile" & vbtab & ThisSize
  1205. 'AMedFile
  1206.     Done = False
  1207.     If SettingsDict.Exists("AMedFile") Then
  1208.         If SettingsDict.Item("AMedFile") > 0 Then
  1209.             ThisSize = SettingsDict.Item("AMedFile")
  1210.         Else
  1211.             ThisSize = 2
  1212.         End If
  1213.         If MsgBox("Do you want to change what is considered a MEDIUM sized media file?" & vbcrlf & vbcrlf & "Currently set to: " & ThisSize & " gb", 4, "Change setting?")  = 7 Then
  1214.             ThisSize = SettingsDict.Item("AMedFile")
  1215.             Done = True
  1216.         End If
  1217.     End If
  1218.     Do Until Done
  1219.         ThisSize = UserInput("Medium media file", "In gb, please specify what is considered a MEDIUM sized media file." ,"2",0)
  1220.         If ThisSize > 0 Then
  1221.             Done = True
  1222.         Else
  1223.             Msgbox "That is an invalid value, Please try again."
  1224.         End If
  1225.     Loop
  1226.     NewConfigString =  NewConfigString & vbcrlf &  "AMedFile" & vbtab & ThisSize
  1227. 'QueueGuage
  1228.     Done = False
  1229.     If SettingsDict.Exists("QueueGuage") Then
  1230.         If MsgBox("Do you want to change what is used to determine an encoders queue size?" & vbcrlf & vbcrlf & "Currently set to: " & SettingsDict.Item("QueueGuage"), 4, "Change setting?")  = 7 Then
  1231.             ThisInput = SettingsDict.Item("QueueGuage")
  1232.             Done = True
  1233.         End If
  1234.     End If
  1235.     If Not Done Then
  1236.         If MsgBox("Use total file size of the queue to determine an encoders queue size, otherwise file count will be used.", 4, "Change setting?")  = 6 Then
  1237.             ThisInput = "size"
  1238.         Else
  1239.             ThisInput = "length"
  1240.         End If
  1241.     End If
  1242.     NewConfigString =  NewConfigString & vbcrlf &  "QueueGuage" & vbtab & ThisInput
  1243. 'EncoderDict
  1244.     NewConfigString =  NewConfigString & vbcrlf &  "EncoderDict"
  1245.     For Each EncoderName In EncoderDict.Keys()
  1246.         Done = False
  1247.         If EncoderDict.Exists(EncoderName) Then
  1248.             If MsgBox("Do you want to change the passmark score for " & EncoderName & "." & vbcrlf & vbcrlf & "Currently set to: " & EncoderDict.Item(EncoderName), 4, "Change setting?")  = 7 Then
  1249.                 NewConfigString =  NewConfigString & vbcrlf &  EncoderName & vbtab & EncoderDict.Item(EncoderName)
  1250.                 Done = True
  1251.             End If
  1252.         End If
  1253.         Do Until Done
  1254.             ThisInput = UserInput("CPU Passmark", "Please enter the passmark score for " & EncoderName & vbcrlf & vbcrlf & "See http://cpubenchmark.net for lookup.","6000",0)
  1255.             If ThisInput > 100 Then
  1256.                 NewConfigString =  NewConfigString & vbcrlf &  EncoderName & vbtab & ThisInput
  1257.                 Done = True
  1258.             Else
  1259.                 Msgbox "That is an invalid value, please try again."
  1260.             End If
  1261.         Loop
  1262.     Next   
  1263.     NewConfigString =  NewConfigString & vbcrlf &  "IgnoreDict"
  1264.     NewConfigString =  NewConfigString & vbcrlf &  "'----------------------------------"
  1265.     NewConfigString =  NewConfigString & vbcrlf &  "eof"
  1266.     NewConfigString =  NewConfigString & vbcrlf &  "'----------------------------------"
  1267.     NewConfigString =  NewConfigString & vbcrlf &  "You may write anything you like after the eof tag."
  1268.     If MsgBox("Save new configuration to file?", 4, "Save Settings?")  = 6 Then
  1269.         Set NewConfigFile = filesys.CreateTextFile(WorkingFolder & "PostProcess.cfg", True)
  1270.         NewConfigFile.WriteLine NewConfigString
  1271.         NewConfigFile.Close
  1272.     Else
  1273.         Wscript.Quit
  1274.     End If
  1275.     If Not Filesys.FileExists(WorkingFolder & "NewsTitles.cfg") Then
  1276.         Set NewConfigFile = filesys.CreateTextFile(WorkingFolder & "NewsTitles.cfg", True)
  1277.         ScriptLog "News title dictionary not found. Creating now.",2, ID
  1278.         NewConfigFile.WriteLine "'The title translation dictionary. Used to maintain consistent show titles and to correct/append names."
  1279.         NewConfigFile.WriteLine "'This may eventually be discontinued when sources are more uniform in naming."
  1280.         NewConfigFile.WriteLine "'FORMAT : a show name<-TAB->The formatted show name"
  1281.         NewConfigFile.WriteLine "'The next line sets the dictionary name to load the following entries into."
  1282.         NewConfigFile.WriteLine "'----------------------------------"
  1283.         NewConfigFile.WriteLine "NewsDict"
  1284.         NewConfigFile.WriteLine "'----------------------------------"
  1285.         NewConfigFile.WriteLine "'CBS"
  1286.         NewConfigFile.WriteLine "cbs 2 news ny at 5pm   CBS 2 News NY at 5PM"
  1287.         NewConfigFile.WriteLine "'----------------------------------"
  1288.         NewConfigFile.WriteLine "eof"
  1289.         NewConfigFile.WriteLine "'----------------------------------"
  1290.         NewConfigFile.WriteLine "You may write anything you like after the eof tag."
  1291.         NewConfigFile.Close
  1292.     End If
  1293.     If Not Filesys.FileExists(WorkingFolder & "MovieTitles.cfg") Then
  1294.         Set NewConfigFile = filesys.CreateTextFile(WorkingFolder & "MovieTitles.cfg", True)
  1295.         ScriptLog "Movie title dictionary not found. Creating now.",2, ID
  1296.         NewConfigFile.WriteLine "'----------------------------------"
  1297.         NewConfigFile.WriteLine "MovieDict"
  1298.         NewConfigFile.WriteLine "'----------------------------------"
  1299.         NewConfigFile.WriteLine "Mojin- The Lost Legend Mojin- The Lost Legend"
  1300.         NewConfigFile.WriteLine "Mojin_ The Lost Legend Mojin- The Lost Legend"
  1301.         NewConfigFile.WriteLine "'----------------------------------"
  1302.         NewConfigFile.WriteLine "eof"
  1303.         NewConfigFile.WriteLine "'----------------------------------"
  1304.         NewConfigFile.WriteLine "You may write anything you like after the eof tag."
  1305.         NewConfigFile.Close
  1306.     End If
  1307.     If Not Filesys.FileExists(WorkingFolder & "ShowTitles.cfg") Then
  1308.         Set NewConfigFile = filesys.CreateTextFile(WorkingFolder & "ShowTitles.cfg", True)
  1309.         ScriptLog "TV Show title dictionary not found. Creating now.",2, ID
  1310.         NewConfigFile.WriteLine "'----------------------------------"
  1311.         NewConfigFile.WriteLine "ShowDict"
  1312.         NewConfigFile.WriteLine "'----------------------------------"
  1313.         NewConfigFile.WriteLine "Genius Genius"
  1314.         NewConfigFile.WriteLine "National Geographic Presents - Genius  Genius"
  1315.         NewConfigFile.WriteLine "'----------------------------------"
  1316.         NewConfigFile.WriteLine "eof"
  1317.         NewConfigFile.WriteLine "'----------------------------------"
  1318.         NewConfigFile.WriteLine "You may write anything you like after the eof tag."
  1319.         NewConfigFile.Close
  1320.     End If
  1321.     NeedSetup = False
  1322. End Sub
  1323. 'QType - 0=string 1=folder 2=y/n
  1324. Function UserInput(ITitle,QString,CValue,QType)
  1325.     If QType = 0 Then
  1326.         UserEnteredString = InputBox(QString, ITitle, CValue)
  1327.         If UserEnteredString = "" Then
  1328.             Exit Function
  1329.         Else
  1330.             UserInput = UserEnteredString
  1331.         End If
  1332.     ElseIf QType = 1 Then
  1333.         UserSelectedFolder = SelectFolder("",QString)
  1334.         If Filesys.FolderExists(UserSelectedFolder) Then
  1335.             UserInput = UserSelectedFolder
  1336.         Else
  1337.             WayOut
  1338.             Exit Function
  1339.         End If
  1340.     End If
  1341.  
  1342. End Function
  1343. Function SelectFolder( myStartFolder,myPromptString )
  1344. ' This function opens a "Select Folder" dialog and will
  1345. ' return the fully qualified path of the selected folder
  1346. '
  1347. ' Argument:
  1348. '     myStartFolder    [string]    the root folder where you can start browsing;
  1349. '                                  if an empty string is used, browsing starts
  1350. '                                  on the local computer
  1351. '
  1352. ' Returns:
  1353. ' A string containing the fully qualified path of the selected folder
  1354. '
  1355. ' Written by Rob van der Woude
  1356. ' http://www.robvanderwoude.com
  1357.  
  1358.     ' Standard housekeeping
  1359.    Dim objFolder, objItem, objShell
  1360.    
  1361.     ' Custom error handling
  1362.    On Error Resume Next
  1363.     SelectFolder = vbNull
  1364.  
  1365.     ' Create a dialog object
  1366.    Set objShell  = CreateObject( "Shell.Application" )
  1367.     Set objFolder = objShell.BrowseForFolder( 0, myPromptString, 0, myStartFolder )
  1368.  
  1369.     ' Return the path of the selected folder
  1370.    If IsObject( objfolder ) Then SelectFolder = objFolder.Self.Path
  1371.  
  1372.     ' Standard housekeeping
  1373.    Set objFolder = Nothing
  1374.     Set objshell  = Nothing
  1375.     On Error Goto 0
  1376. End Function
  1377. Sub WayOut()
  1378.     If MsgBox("Are you sure you want to quit setup?", 4, "Quit?") = 6 Then
  1379.         Wscript.Quit
  1380.     End If
  1381. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!