#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Images\logo-128x128.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=EPG-Buddy
#AutoIt3Wrapper_Res_Description=EPG-Buddy
#AutoIt3Wrapper_Res_Fileversion=0.7.1.12
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_ProductVersion=0.7.1
#AutoIt3Wrapper_Res_LegalCopyright=Lehmden 2021
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region ;Legal stuff
#comments-start
EPG-Buddy
;~ by Lehmden 2021
Licence:
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see .
Dieses Programm ist Freie Software: Sie können es unter den Bedingungen
der GNU General Public License, wie von der Free Software Foundation,
Version 3 der Lizenz oder (nach Ihrer Wahl) jeder neueren
veröffentlichten Version, weiterverbreiten und/oder modifizieren.
Dieses Programm wird in der Hoffnung, dass es nützlich sein wird, aber
OHNE JEDE GEWÄHRLEISTUNG, bereitgestellt; sogar ohne die implizite
Gewährleistung der MARKTFÄHIGKEIT oder EIGNUNG FÜR EINEN BESTIMMTEN ZWECK.
Siehe die GNU General Public License für weitere Details.
Sie sollten eine Kopie der GNU General Public License zusammen mit diesem
Programm erhalten haben. Wenn nicht, siehe .
#comments-end
#EndRegion ;Legal stuff
#Region ;Includes
#include
#include
#include
#include
#Include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
Opt("MustDeclareVars", 1)
#EndRegion ;Includes
#Region ;Log File Handling
DirCreate(@ScriptDir & "\Log")
If FileExists(@ScriptDir & "\Log\EPG-Buddy_3.log") Then
FileMove(@ScriptDir & "\Log\EPG-Buddy_3.log", @ScriptDir & "\Log\EPG-Buddy_4.log", 1)
EndIf
If FileExists(@ScriptDir & "\Log\EPG-Buddy_2.log") Then
FileMove(@ScriptDir & "\Log\EPG-Buddy_2.log", @ScriptDir & "\Log\EPG-Buddy_3.log", 1)
EndIf
If FileExists(@ScriptDir & "\Log\EPG-Buddy_1.log") Then
FileMove(@ScriptDir & "\Log\EPG-Buddy_1.log", @ScriptDir & "\Log\EPG-Buddy_2.log", 1)
EndIf
If FileExists(@ScriptDir & "\Log\EPG-Buddy.log") Then
FileMove(@ScriptDir & "\Log\EPG-Buddy.log", @ScriptDir & "\Log\EPG-Buddy_1.log", 1)
EndIf
#EndRegion
#Region ;Ini Read Config
;Files, Folders & Credentials
Global $ini_tv_database_DVBV = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_DVBV", @MyDocumentsDir & "\video.ini")
Global $ini_tv_database_MP2 = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MP2", "C:\ProgramData\Team MediaPortal\MP2-Server\Database\MP2TVE_3.s3db")
Global $ini_tv_database_NPVR = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_NPVR", "c:\Users\Public\NPVR-data\npvr.db3")
Global $ini_tv_database_Argus_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_server", "Localhost")
Global $ini_tv_database_Argus_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_user", "root")
Global $ini_tv_database_Argus_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_pass", "MediaPortal")
Global $ini_tv_database_MySQL_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_server", "Localhost")
Global $ini_tv_database_MySQL_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_user", "root")
Global $ini_tv_database_MySQL_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_pass", "MediaPortal")
Global $ini_tv_database_MSSQL_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_server", @ComputerName)
Global $ini_tv_database_MSSQL_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_user", "sa")
Global $ini_tv_database_MSSQL_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_pass", "MediaPortal")
Global $ini_database_clickfinder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_database_Clickfinder", @AppDataDir & "\TV Movie\TV Movie ClickFinder\tvdaten.mdb")
Global $ini_xepg_folder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xepg_folder", @ProgramFilesDir & "\xepg\xepg.exe")
Global $ini_xml_folder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_folder", @ScriptDir)
Global $ini_xml_name = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_name", "TVGuide")
Global $ini_xml_suffix = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_suffix", "1")
Global $ini_task = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_task", "")
;Config
Global $ini_cacheclean = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_cacheclean", "1")
Global $ini_channelname = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1")
Global $ini_combine = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_combine", "")
Global $ini_combine_xml = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_combine_xml", "1")
Global $ini_epg_source_tvspielfilm = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvspielfilm", "4")
Global $ini_epg_source_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_webgrab", "4")
Global $ini_epg_source_rytec = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_rytec", "4")
Global $ini_epg_source_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_epgdata", "4")
Global $ini_epg_source_clickfinder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_clickfinder", "4")
Global $ini_epg_source_tvguide = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvguide", "4")
Global $ini_epg_source_xml = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_xml", "4")
Global $ini_gui_flag = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_gui_flag", @ScriptDir & "\Images\Flags\en.jpg")
Global $ini_language = IniRead(@ScriptDir & "\EPG-Buddy.ini", "languages", "ini_language", "English")
Global $ini_loglevel = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_loglevel", "4")
Global $ini_maxdays_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_epgdata", "14")
Global $ini_mapping = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_mapping", "1")
Global $ini_maxdays_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_epgdata", "14")
Global $ini_maxdays_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_webgrab", "14")
Global $ini_maxdays_tvspielfilm = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_tvspielfilm", "14")
Global $ini_maxdays_tvguide = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_tvguide", "14")
Global $ini_meta_flag = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_meta_flag", @ScriptDir & "\Images\Flags\en.jpg")
Global $ini_meta_language = IniRead(@ScriptDir & "\EPG-Buddy.ini", "languages", "ini_meta_language", "en")
Global $ini_pass_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_epgdata", "")
Global $ini_pass_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_epgdata", "")
Global $ini_plot_override = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_plot_override", "4")
Global $ini_series_override = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_series_override", "1")
Global $ini_tvdatabase = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "Manual")
Global $ini_notmdb_tvspielfilm = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_tvspielfilm", "4")
Global $ini_notmdb_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_webgrab", "4")
Global $ini_notmdb_rytec = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_rytec", "4")
Global $ini_notmdb_epgdata = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_epgdata", "4")
Global $ini_notmdb_clickfinder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_clickfinder", "4")
Global $ini_notmdb_tvguide = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_tvguide", "4")
Global $ini_notmdb_xml = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_xml", "4")
Global $ini_lastmodule = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "1")
Global $ini_lastsubmodule2 = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule2", "21")
Global $ini_lastsubmodule3 = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "31")
Global $ini_schedule_wake = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_wake", "1")
Global $ini_schedule_delay = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_delay", "1")
Global $ini_schedule_idle = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_idle", "4")
Global $ini_task_parameter = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_parameter", "")
Global $ini_task_run = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_run", "4")
Global $ini_task_type = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_type", "1.4")
Global $ini_user_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_user_webgrab", "username")
Global $ini_email_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_email_webgrab", "forum email-address")
Global $ini_pass_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_webgrab", "password")
Global $ini_xepg = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_xepg", "4")
;Day & Time
Global $ini_monday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_monday", "1")
Global $ini_tuesday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tuesday", "1")
Global $ini_wednesday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_wednesday", "1")
Global $ini_thursday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_thursday", "1")
Global $ini_friday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_friday", "1")
Global $ini_saturday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_saturday", "1")
Global $ini_sunday = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_sunday", "1")
Global $ini_time = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_time", "09:00")
#EndRegion ;Ini Read Config
#Region ;Ini Read Localized Strings
Global $lng_about = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_about", "About")
Global $lng_above = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_above", "At least")
Global $lng_accomplished = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_accomplished", "Mission accomplished")
Global $lng_action = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_action", "Action")
Global $lng_areyousure= IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_areyousure", "Are you sure?")
Global $lng_below = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_below", "Up to")
Global $lng_cancel = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_cancel", "Cancel")
Global $lng_cancel1 = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_cancel1", "Abort recent Action.")
Global $lng_cancel2 = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_cancel2", "Yes -> Abort now!")
Global $lng_cancel3 = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_cancel3", "No -> Do nothing.")
Global $lng_channeldbname = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_channeldbname", "Channel name in TV database")
Global $lng_channelname = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_channelname", "Channel names")
Global $lng_channelsettings = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_channelsettings", "Mapping and settings for")
Global $lng_clock = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_clock", "Time")
Global $lng_clearcache = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_clearcache", "Clear cache?")
Global $lng_combine = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_combine", "Combine ComedyCentral and Viva?")
Global $lng_combine_name = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_combine_name", "Name of the combined channel")
Global $lng_combine_xml = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_combine_xml", "Combine XML files?")
Global $lng_counter = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_counter", "Counter")
Global $lng_createschedule = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_createschedule", "Create schedule")
Global $lng_credentials = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_credentials", "Credentials")
Global $lng_database = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_database", "Database")
Global $lng_databasemode = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_databasemode", "Database mode")
Global $lng_day = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_day", "Day")
Global $lng_days = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_days", "How much days to grab?")
Global $lng_daysgrab = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_daysgrab", "Days to grab")
Global $lng_deleteschedule = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_deleteschedule", "Delete schedule")
Global $lng_doc = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_doc", "Documentation")
Global $lng_epgdata = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgdata", "EPG Data")
Global $lng_epgdata_int = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgdata_int", "Global")
Global $lng_epgdata_eur = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgdata_eur", "Europe")
Global $lng_epgdata_ger = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgdata_ger", "Germany")
Global $lng_epgdata_usa = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgdata_usa", "USA")
Global $lng_epgwizard = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_epgwizard", "EPG Source")
Global $lng_errmsg = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_errmsg", "An error occured")
Global $lng_error = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_error", "Error")
Global $lng_exit = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_exit", "Exit Program")
Global $lng_externalxml = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_externalxml", "External XML")
Global $lng_files = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_files", "File")
Global $lng_folder = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_folder", "Folder")
Global $lng_fri = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_fri", "Friday")
Global $lng_global = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_global", "Global settings")
Global $lng_go = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_go", "Start")
Global $lng_grabfrom = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_grabfrom", " grab from")
Global $lng_grabnow = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_grabnow", "Grab EPG now?")
Global $lng_groupselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_groupselect", "Category preselection")
Global $lng_groupset = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_groupset", "Set")
Global $lng_ignorechars = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_ignorechars", "Clear chars before searching TMDB:")
Global $lng_inputfoldertext = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_inputfoldertext", "Choose Directory to save tvguide.xml files")
Global $lng_langchange = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_langchange", "You need to restart EPG-Buddy to activate changes. Restart now?")
Global $lng_language = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_language", "GUI language")
Global $lng_langselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_langselect", "Select GUI language")
Global $lng_makeWGconfig = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_makeWGconfig", "Generate WebGrab config now?")
Global $lng_manual = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_manual", "Manual")
Global $lng_mapping = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_mapping", "Activate Genre Mapping?")
Global $lng_metadata = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_metadata", "TMDB metadata language:")
Global $lng_loadtvdb = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_loadtvdb", "Load series data from TMDB")
Global $lng_mon = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_mon", "Monday")
Global $lng_notvdb = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_notvdb", "Never load series data from TMDB?")
Global $lng_options = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_options", "Options")
Global $lng_path = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_path", "URL/Path")
Global $lng_plotoverwrite = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_plotoverwrite", "Always overwrite plot with TMDB data?")
Global $lng_program = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_program", "Program")
Global $lng_regionpreselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_regionpreselect", "Region- preselection")
Global $lng_regionselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_regionselect", "Region- selection")
Global $lng_sat = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_sat", "Saturday")
Global $lng_save = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_save", "Save")
Global $lng_saveconfig = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_saveconfig", "Save Settings")
Global $lng_saveexit = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_saveexit", "Yes -> Save and exit")
Global $lng_savenotexit = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_savenotexit", "No -> Save")
Global $lng_savenot = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_savenot", "Cancel -> Don't save")
Global $lng_schedules = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_schedules", "Schedule")
Global $lng_schedule_wake = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_schedule_wake", "Wake system for download")
Global $lng_schedule_delay = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_schedule_delay", "Enable delayed start")
Global $lng_schedule_idle = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_schedule_idle", "Run only when idle")
Global $lng_search = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_search", "Search")
Global $lng_select = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_select", "Configuration")
Global $lng_selectchannel = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_selectchannel", "Select offered channel from EPG data")
Global $lng_seriesoverwrite = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_seriesoverwrite", "Always replace series/episodes names with TMDB data?")
Global $lng_settings = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_settings", "Settings")
Global $lng_sitepreselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_sitepreselect", "Website- preselection")
Global $lng_siteselect = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_siteselect", "Website- selection")
Global $lng_success = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_success", "Success")
Global $lng_waiting = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_waiting", "Waiting")
Global $lng_workingdrive = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_workingdrive", "Working drive:")
Global $lng_sun = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_sun", "Sunday")
Global $lng_show = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_show", "Show")
Global $lng_task = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_task", "Run task after grabbing?")
Global $lng_taskplaner = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_taskplaner", "Taskplaner version:")
Global $lng_thu = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_thu", "Thursday")
Global $lng_timeinput = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_timeinput", "Please enter time in 24 hours format - HH:MM - (Example: 6.00pm = 18:00)")
Global $lng_tue = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_tue", "Tuesday")
Global $lng_tvdbfile = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_tvdbsource", "TV database")
Global $lng_tvdbsource = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_tvdbsource", "TV database source")
Global $lng_tvguidelst = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_tvguidelst", " Create 'TVguide.lst' for MediaPortal?")
Global $lng_tvwizard = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_tvwizard", "Setup TV database")
Global $lng_wen = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_wen", "Wednesday")
Global $lng_xepg = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xepg", "Run Xepg Importer after grabbing?")
Global $lng_xepg_folder = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xepg_folder", "Path to Xepg (DVB-Viewer)")
Global $lng_xml_name= IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xml_name", "XML- name")
Global $lng_xml_suffix= IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xml_suffix", "XML- suffix")
Global $lng_xmltv_line = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xmltv_line", "---------- means channel- name will not be changed")
Global $lng_xmltv_name = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_xmltv_name", "Recent channel- name in tvguide.xml")
Global $lng_yes = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_yes", "Yes")
Global $lng_zerodays = IniRead(@ScriptDir & "\Language\" & $ini_language & ".lng", "Translation", "lng_zerodays", "0 means nothing will be grabbed")
#EndRegion ;Ini Read Localized Strings
#Region ;Declare Global Variables
Dim $list_WebGrab[1]
Global $channel_query, $channel_array, $channel_Rows, $channel_Columns, $fle_hwnd
Dim $line[1]
Global $chars_query, $chars_array, $chars_Rows, $chars_Columns, $Ignore_Chars
Global $channel_query3, $channel_array3, $channel_Rows3, $channel_Columns3
Global $channel_query4, $channel_array4, $channel_Rows4, $channel_Columns4
Global $channel_query5, $channel_array5, $channel_Rows5, $channel_Columns5
Global $channel_query6, $channel_array6, $channel_Rows6, $channel_Columns6
Global $channel_query7, $channel_array7, $channel_Rows7, $channel_Columns7
Global $Clock = "00:00", $channel_Rval, $channel_Rval3, $channel_Rval5, $channel_Rval6, $channel_Rval4, $channel_Rval7, $comboitem_32_11 = "", $comboitem_37_11 = ""
Global $listitem_31_11 = "", $listitem_32_11 = "", $listitem_33_11 = "", $listitem_35_11 = "", $listitem_36_11 = "", $listitem_34_11 = "", $listitem_37_11 = ""
Global $ini_email_tvguide, $ini_pass_tvguide, $ini_path_xml, $ini_user_xml, $ini_pass_xml
Global $line, $file, $Version
Dim $ver[1]
If @Compiled = 1 Then
Global $Version = FileGetVersion(@ScriptFullPath)
Else
$file = FileOpen(@ScriptFullPath, 0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
If StringInStr($line, "#AutoIt3Wrapper_Res_Fileversion=") Then
$ver = StringSplit($line, "=")
$Version = $ver[2]
ExitLoop
EndIf
WEnd
FileClose($file)
EndIf
Global $Title = "EPG-Buddy " & $Version, $index_prev, $showitem_32_11 = 1, $showitem_37_11 = 1
_WriteLog("*********************************")
_WriteLog("* *")
_WriteLog("* Starting " & $Title & " *")
_WriteLog("* *")
_WriteLog("*********************************")
_WriteLog(" ")
_WriteLog("Info - Read Localized Strings")
_WriteLog("Info - Read Configuration From Ini")
_WriteLog("Info - Declared Global Variables")
#EndRegion ;Declare Global Variables
#Region ;Initial preparations
Global $Splashwindow = GUICreate($Title, 640, 270, -1, -1, $WS_POPUP)
GUISetState(@SW_SHOW, $Splashwindow)
GUISetBkColor("0xffffff")
Global $S_Pic02 = GUICtrlCreatePic (@ScriptDir & "\Images\Line_1.jpg", 0, 73, 638, 1)
Global $S_Pic01 = GUICtrlCreatePic (@ScriptDir & "\Images\splash.jpg", 0, 0, 640, 270)
Global $S_Label01 = GUICtrlCreateLabel("EPG-Buddy is starting, please be patient.", 20, 100, 600, 50)
GUICtrlSetFont(-1, 20, 600, 0, "Georgia")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, $COLOR_CREAM)
Global $S_Label02 = GUICtrlCreateLabel("Start initial preparation", 20, 200, 600, 50)
GUICtrlSetFont(-1, 15, 600, 0, "Georgia")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1,$COLOR_CREAM)
GUISetState(@SW_SHOW, $Splashwindow)
;Startup SQLite
_SQLite_Startup()
If @error Then
MsgBox($MB_SYSTEMMODAL, "SQLite Error", "No SQlite3.dll found")
Exit -1
EndIf
Global $buddy_db = _SQLite_Open(@ScriptDir & "\EPG-Buddy.s3db")
If @error Then
MsgBox($MB_SYSTEMMODAL, "SQLite Error", "Could Not Create Database")
Exit -1
EndIf
GUICtrlSetData($S_Label02, "SQlite Started")
_WriteLog("Info - SQlite Started")
; Create new tables if not exist
_SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS WEBGRAB_SITEINI (SITEINI_NAME TEXT NOT NULL ON CONFLICT IGNORE UNIQUE ON CONFLICT IGNORE, SITEINI_USE TEXT DEFAULT FALSE) ;")
_SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS TVGUIDE_CREDENTIALS (EMAIL TEXT, PASSWORD TEXT) ;")
_SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS EXTERNALXML_CREDENTIALS (PATH TEXT, USER TEXT, PASSWORD TEXT) ;")
_SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS GROUPS (GROUP_TVSPIELFILM TEXT UNIQUE ON CONFLICT IGNORE, GROUP_CLICKFINDER TEXT UNIQUE ON CONFLICT IGNORE) ;")
_SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS EPG_GRABBER_COMBINED_CHANNELS(PROVIDER TEXT, NAME TEXT, CHANNELS TEXT, OFFSET INT DEFAULT 0, CHANNEL TEXT) ;")
_WriteLog("Info - Updated Tables")
If FileExists(@ScriptDir & "\groups.ini") Then
$line = FileReadToArray(@ScriptDir & "\groups.ini")
For $i = 0 To UBound($line) -1
_SQLite_Exec($buddy_db, 'INSERT INTO GROUPS (GROUP_TVSPIELFILM) VALUES ("' & $line[$i] & '") ;')
Next
EndIf
If FileExists(@ScriptDir & "\groups3.ini") Then
$line = FileReadToArray(@ScriptDir & "\groups3.ini")
For $i = 0 To UBound($line) -1
_SQLite_Exec($buddy_db, 'INSERT INTO GROUPS (GROUP_CLICKFINDER) VALUES ("' & $line[$i] & '") ;')
Next
EndIf
$ini_email_tvguide = FileRead(@ScriptDir & "\email_tvguide.txt")
$ini_pass_tvguide = FileRead(@ScriptDir & "\pass_tvguide.txt")
$ini_path_xml = FileRead(@ScriptDir & "\path_xml.txt")
$ini_user_xml = FileRead(@ScriptDir & "\user_xml.txt")
$ini_pass_xml = FileRead(@ScriptDir & "\pass_xml.txt")
; Refresh Available Channels List
_Refresh_channellist()
_WriteLog("Info - Channrel Lists Refreshed")
; Read Available Channels for TVSpielfilm
$channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM TVSPIELFILM_CHANNELS ORDER BY UPPER(NAME) ;"
$channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array, $channel_Rows, $channel_Columns)
_WriteLog("Info - Read Available Channels for TVSpielfilm")
; Read Available Channels for TVGuide
$channel_query5 = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM TVGUIDE_CHANNELS ORDER BY UPPER(NAME) ;"
$channel_Rval5 = _SQLite_GetTable2d($buddy_db, $channel_query5, $channel_array5, $channel_Rows5, $channel_Columns5)
_WriteLog("Info - Read Available Channels for TVGuide")
; Read Available Channels for External XML
$channel_query6 = "SELECT NAME, CATEGORY, XMLTV_ID, RUN_E2T FROM URL_CHANNELS ORDER BY UPPER(NAME) ;"
$channel_Rval6 = _SQLite_GetTable2d($buddy_db, $channel_query6, $channel_array6, $channel_Rows6, $channel_Columns6)
_WriteLog("Info - Read Available Channels for External XML")
; Read Available Channels for epgData.com
$channel_query3 = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM EPGDATA_CHANNELS ORDER BY UPPER(NAME) ;"
$channel_Rval3 = _SQLite_GetTable2d($buddy_db, $channel_query3, $channel_array3, $channel_Rows3, $channel_Columns3)
_WriteLog("Info - Read Available Channels for epgData.com")
; Read Available Channels for Clickfinder
$channel_query4 = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM CLICKFINDER_CHANNELS ORDER BY UPPER(NAME) ;"
$channel_Rval4 = _SQLite_GetTable2d($buddy_db, $channel_query4, $channel_array4, $channel_Rows4, $channel_Columns4)
_WriteLog("Info - Read Available Channels for Clickfinder")
GUICtrlSetData($S_Label02, "Successfully Readed Available Channels")
; Read Available Channels for Rytec
$channel_query7 = "SELECT NAME, CATEGORY, XMLTV_ID, RUN_E2T FROM URL_CHANNELS ORDER BY UPPER(NAME) ;"
$channel_Rval7 = _SQLite_GetTable2d($buddy_db, $channel_query7, $channel_array7, $channel_Rows7, $channel_Columns7)
_WriteLog("Info - Read Available Channels for External XML")
; Read Chars to ignore for TMDB search
$chars_query = "SELECT VALUE FROM EPG_GRABBER_SETTINGS WHERE SETTING LIKE 'Clear_Chars_Before_Searching_TVDB' ;"
Global $chars_Rval = _SQLite_GetTable($buddy_db, $chars_query, $chars_array, $chars_Rows, $chars_Columns)
If _ElementExists($chars_array, 2) Then
$Ignore_Chars = $chars_array[2]
EndIf
_WriteLog("Info - Read Chars to ignore for TMDB search")
; Read Available Groups
Dim $group[1]
Dim $group_array[1]
Dim $group3[1]
Dim $group_array3[1]
For $i = 1 To UBound($channel_array) - 1
_ArrayAdd($group, $channel_array[$i][2])
Next
$group_array = _ArrayUnique($group)
For $i = 1 To UBound($channel_array4) - 1
_ArrayAdd($group3, $channel_array4[$i][2])
Next
$group_array3 = _ArrayUnique($group3)
_WriteLog("Info - Read Available Groups")
; Read checked groups
If Not FileExists(@ScriptDir & "\groups.ini") Then
$fle_hwnd = FileOpen(@ScriptDir & "\groups.ini", 9)
Sleep(1)
FileClose($fle_hwnd)
EndIf
Dim $Groups_checked[1]
_FileReadToArray(@ScriptDir & "\groups.ini", $Groups_checked)
If Not FileExists(@ScriptDir & "\groups3.ini") Then
$fle_hwnd = FileOpen(@ScriptDir & "\groups3.ini", 9)
Sleep(1)
FileClose($fle_hwnd)
EndIf
Dim $Groups_checked3[1]
_FileReadToArray(@ScriptDir & "\groups3.ini", $Groups_checked3)
_WriteLog("Info - Read Checked Groups")
_WriteLog("Info - Start Generating Main GUI Window")
GUICtrlSetData($S_Label02, "Start Generating Main GUI Window")
#EndRegion ;Initial preparations
#Region ;Main Window
#Region ;Generate Header And Footer
Local $style = $WS_SYSMENU + $WS_CAPTION + $WS_MINIMIZEBOX + $WS_EX_ACCEPTFILES + $BS_PUSHLIKE
Global $Mainwindow = GUICreate($Title, 1004, 680, -1, -1, $style)
GUISetState(@SW_HIDE, $Mainwindow)
GUISetBkColor("0xffffff")
Global $Pic01 = GUICtrlCreatePic (@ScriptDir & "\Images\EPG-Buddy_Header.jpg", 0, 0, 1004, 111)
Global $Pic03 = GUICtrlCreatePic (@ScriptDir & "\Images\Line_1.jpg", 0, 111, 1004, 1)
Global $Label01 = GUICtrlCreateLabel($Title, 1, 632, 1003, 28, $SS_ETCHEDFRAME)
Global $Label02 = GUICtrlCreateLabel($lng_waiting, 10, 639, 900, 18)
Global $Label03 = GUICtrlCreateLabel($Clock, 935, 639, 50, 18, $SS_RIGHT)
#EndRegion
#Region ;Generate Main Menu
Global $Filemenu = GUICtrlCreateMenu($lng_files)
Global $tvwizarditem = GUICtrlCreateMenuItem($lng_tvwizard, $filemenu)
Global $epgwizarditem = GUICtrlCreateMenuItem($lng_epgwizard, $filemenu)
Global $epgdataitem = GUICtrlCreateMenuItem($lng_epgdata, $filemenu)
Global $schedulesitem = GUICtrlCreateMenuItem($lng_schedules, $filemenu)
Global $settingsitem = GUICtrlCreateMenuItem($lng_settings, $filemenu)
GUICtrlCreateMenuItem("", $Filemenu)
Global $Exititem = GUICtrlCreateMenuItem($lng_exit, $filemenu)
#EndRegion
#Region ;Generate Help Menu
Global $Helpmenu = GUICtrlCreateMenu("?")
Global $Infoitem = GUICtrlCreateMenuItem($lng_about, $helpmenu)
Global $Docitem = GUICtrlCreateMenuItem($lng_doc, $helpmenu)
#EndRegion
#Region ;Generate Main Navigation
Global $Navigation_Button_01 = GUICtrlCreateButton($lng_tvwizard, 2, 112, 200, 25)
GUICtrlSetFont(-1, 10, 0, 0, "Verdana")
Global $Navigation_Button_02 = GUICtrlCreateButton($lng_epgwizard, 202, 112, 200, 25, $BS_FLAT)
GUICtrlSetFont(-1, 10, 0, 0, "Verdana")
Global $Navigation_Button_03 = GUICtrlCreateButton($lng_epgdata, 402, 112, 200, 25)
GUICtrlSetFont(-1, 10, 0, 0, "Verdana")
Global $Navigation_Button_04 = GUICtrlCreateButton($lng_schedules, 602, 112, 200, 25)
GUICtrlSetFont(-1, 10, 0, 0, "Verdana")
Global $Navigation_Button_05 = GUICtrlCreateButton($lng_settings, 802, 112, 200, 25)
GUICtrlSetFont(-1, 10, 0, 0, "Verdana")
Global $Navigation_Pic_01 = GUICtrlCreatePic (@ScriptDir & "\Images\Line_1.jpg", 0, 138, 15100, 1)
#EndRegion
#Region ;Generate TV Settings GUI (1-1)
Global $label_11_01 = GUICtrlCreateLabel($lng_tvwizard, 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $input_11_01 = GUICtrlCreateInput($ini_tv_database_MP2, 150, 250, 400, 20)
Global $button_11_01 = GUICtrlCreateButton($lng_search, 570, 247, 60)
Global $label_11_02 = GUICtrlCreateLabel("MySQL Server :", 150, 300, 80, 20)
Global $input_11_02 = GUICtrlCreateInput($ini_tv_database_MySQL_server, 230, 298, 150, 20)
Global $label_11_03 = GUICtrlCreateLabel("MySQL User :", 400, 300, 80)
Global $input_11_03 = GUICtrlCreateInput($ini_tv_database_MySQL_user, 470, 298, 150, 20)
Global $label_11_04 = GUICtrlCreateLabel("MySQL Password :", 640, 300, 100)
Global $input_11_04 = GUICtrlCreateInput($ini_tv_database_MySQL_pass, 735, 298, 150, 20)
Global $label_11_05 = GUICtrlCreateLabel("MSSQL Server :", 150, 350, 80, 20)
Global $input_11_05 = GUICtrlCreateInput($ini_tv_database_MSSQL_server, 230,348, 150, 20)
Global $label_11_06 = GUICtrlCreateLabel("MSSQL User :", 400, 350, 80)
Global $input_11_06 = GUICtrlCreateInput($ini_tv_database_MSSQL_user, 470, 348, 150, 20)
Global $label_11_07 = GUICtrlCreateLabel("MSSQL Password :", 640, 350, 100)
Global $input_11_07 = GUICtrlCreateInput($ini_tv_database_MSSQL_pass, 735, 348, 150, 20)
Global $label_11_10 = GUICtrlCreateLabel("ArgusTV Server :", 150, 400, 80, 20)
Global $input_11_10 = GUICtrlCreateInput($ini_tv_database_Argus_server, 230, 398, 150, 20)
Global $label_11_08 = GUICtrlCreateLabel("ArgusTV User :", 400, 400, 80)
Global $input_11_08 = GUICtrlCreateInput($ini_tv_database_Argus_user, 470, 398, 150, 20)
Global $label_11_09 = GUICtrlCreateLabel("ArgusTV Password :", 640, 400, 100)
Global $input_11_09 = GUICtrlCreateInput($ini_tv_database_Argus_pass, 735, 398, 150, 20)
Global $input_11_11 = GUICtrlCreateInput($ini_tv_database_NPVR, 150, 450, 400, 20)
Global $button_11_11 = GUICtrlCreateButton($lng_search, 570, 447, 60)
Global $input_11_13 = GUICtrlCreateInput($ini_tv_database_DVBV, 150, 500, 400, 20)
Global $button_11_13 = GUICtrlCreateButton($lng_search, 570, 497, 60)
Global $button_11_02 = GUICtrlCreateButton($lng_save, 905, 583, 80)
GUIStartGroup()
Global $radio_11_01 = GUICtrlCreateRadio("MP2- SQLite ", 20, 248, 130, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $radio_11_02 = GUICtrlCreateRadio("MP1/2 MySQL ", 20, 298, 130, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $radio_11_03 = GUICtrlCreateRadio("MP1- MSSQL ", 20, 348, 130, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $radio_11_04 = GUICtrlCreateRadio("ArgusTV ", 20, 398, 130, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $radio_11_05 = GUICtrlCreateRadio("NextPVR ", 20, 448, 130, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $radio_11_06 = GUICtrlCreateRadio("DVB-Viewer ", 20, 498, 130, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $radio_11_07 = GUICtrlCreateRadio($lng_manual, 20, 583, 130, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
If $ini_tvdatabase = "SQLite" Then
GUICtrlSetState($radio_11_01, $GUI_CHECKED)
EndIf
If $ini_tvdatabase = "MySQL" Then
GUICtrlSetState($radio_11_02, $GUI_CHECKED)
EndIf
If $ini_tvdatabase = "MSSQL" Then
GUICtrlSetState($radio_11_03, $GUI_CHECKED)
EndIf
If $ini_tvdatabase = "Argus" Then
GUICtrlSetState($radio_11_04, $GUI_CHECKED)
EndIf
If $ini_tvdatabase = "Argus" Then
GUICtrlSetState($radio_11_04, $GUI_CHECKED)
EndIf
If $ini_tvdatabase = "NextPVR" Then
GUICtrlSetState($radio_11_05, $GUI_CHECKED)
EndIf
If $ini_tvdatabase = "DVBV" Then
GUICtrlSetState($radio_11_06, $GUI_CHECKED)
EndIf
If $ini_tvdatabase = "Manual" Then
GUICtrlSetState($radio_11_07, $GUI_CHECKED)
EndIf
Dim $Array_GUI_Elements_11[1]
_ArrayAdd($Array_GUI_Elements_11, $button_11_01)
_ArrayAdd($Array_GUI_Elements_11, $button_11_02)
_ArrayAdd($Array_GUI_Elements_11, $button_11_11)
_ArrayAdd($Array_GUI_Elements_11, $button_11_13)
_ArrayAdd($Array_GUI_Elements_11, $input_11_01)
_ArrayAdd($Array_GUI_Elements_11, $input_11_02)
_ArrayAdd($Array_GUI_Elements_11, $input_11_03)
_ArrayAdd($Array_GUI_Elements_11, $input_11_04)
_ArrayAdd($Array_GUI_Elements_11, $input_11_05)
_ArrayAdd($Array_GUI_Elements_11, $input_11_06)
_ArrayAdd($Array_GUI_Elements_11, $input_11_07)
_ArrayAdd($Array_GUI_Elements_11, $input_11_08)
_ArrayAdd($Array_GUI_Elements_11, $input_11_09)
_ArrayAdd($Array_GUI_Elements_11, $input_11_10)
_ArrayAdd($Array_GUI_Elements_11, $input_11_11)
_ArrayAdd($Array_GUI_Elements_11, $input_11_13)
_ArrayAdd($Array_GUI_Elements_11, $label_11_01)
_ArrayAdd($Array_GUI_Elements_11, $label_11_02)
_ArrayAdd($Array_GUI_Elements_11, $label_11_03)
_ArrayAdd($Array_GUI_Elements_11, $label_11_04)
_ArrayAdd($Array_GUI_Elements_11, $label_11_05)
_ArrayAdd($Array_GUI_Elements_11, $label_11_06)
_ArrayAdd($Array_GUI_Elements_11, $label_11_07)
_ArrayAdd($Array_GUI_Elements_11, $label_11_08)
_ArrayAdd($Array_GUI_Elements_11, $label_11_09)
_ArrayAdd($Array_GUI_Elements_11, $label_11_10)
_ArrayAdd($Array_GUI_Elements_11, $radio_11_01)
_ArrayAdd($Array_GUI_Elements_11, $radio_11_02)
_ArrayAdd($Array_GUI_Elements_11, $radio_11_03)
_ArrayAdd($Array_GUI_Elements_11, $radio_11_04)
_ArrayAdd($Array_GUI_Elements_11, $radio_11_05)
_ArrayAdd($Array_GUI_Elements_11, $radio_11_06)
_ArrayAdd($Array_GUI_Elements_11, $radio_11_07)
#EndRegion ;Generate TV Settings GUI (1)
#Region ;Generate EPG Settings GUI (2)
Global $label_02_02 = GUICtrlCreateLabel($lng_epgwizard & " " & $lng_select, 20, 230, 400)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_02_03 = GUICtrlCreateLabel($lng_credentials, 250, 230, 400)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $Select_Button_02_01 = GUICtrlCreateButton($lng_epgdata_int, 302, 140, 150, 25)
Global $Select_Button_02_03 = GUICtrlCreateButton($lng_epgdata_eur, 2, 140, 150, 25)
Global $Select_Button_02_04 = GUICtrlCreateButton($lng_epgdata_usa, 152, 140, 150, 25)
Global $button_02_01 = GUICtrlCreateButton($lng_save, 905, 583, 80)
Dim $Array_GUI_Elements_02[1]
_ArrayAdd($Array_GUI_Elements_02, $button_02_01)
_ArrayAdd($Array_GUI_Elements_02, $Select_Button_02_01)
_ArrayAdd($Array_GUI_Elements_02, $Select_Button_02_03)
_ArrayAdd($Array_GUI_Elements_02, $Select_Button_02_04)
_ArrayAdd($Array_GUI_Elements_02, $label_02_02)
_ArrayAdd($Array_GUI_Elements_02, $label_02_03)
#EndRegion
#Region ;Generate EPG Settings GUI International (21)
Global $label_21_01 = GUICtrlCreateLabel($lng_epgwizard & " - " & $lng_epgdata_int, 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $pic_21_01 = GUICtrlCreatePic(@ScriptDir & "\Images\global.jpg", 900, 177, 68, 68)
Global $check_21_01 = GUICtrlCreateCheckbox("WebGrab+Plus", 20, 290, 100, 20)
Global $button_21_01 = GUICtrlCreateButton("WebGrab+Plus", 150, 273, 50, 48, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\WebGrab+Plus-Logo.bmp")
Global $label_21_02 = GUICtrlCreateLabel("User:", 2500, 290, 30, 20)
Global $password_21_02 = GUICtrlCreateInput($ini_user_webgrab, 2800, 288, 150, 20, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL)
Global $label_21_03 = GUICtrlCreateLabel("Email:", 4500, 290, 30, 20)
Global $password_21_03 = GUICtrlCreateInput($ini_email_webgrab, 4850, 288, 150, 20, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL)
Global $label_21_04 = GUICtrlCreateLabel("Password:", 6550, 290, 50, 20)
Global $password_21_04 = GUICtrlCreateInput($ini_pass_webgrab, 7100, 288, 150, 20, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL)
Global $check_21_11 = GUICtrlCreateCheckbox($lng_externalxml, 20, 355, 130, 20)
Global $button_21_11 = GUICtrlCreateButton("XML.com", 150, 338, 50, 48, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\XML-logo.bmp")
Global $label_21_11 = GUICtrlCreateLabel($lng_path, 250, 358, 100, 20)
Global $password_21_11 = GUICtrlCreateInput($ini_path_xml, 310, 342, 450, 50, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL)
If $ini_epg_source_webgrab = "1" Then
GUICtrlSetState($check_21_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_21_01, $GUI_UNCHECKED)
EndIf
If $ini_epg_source_xml = "1" Then
GUICtrlSetState($check_21_11, $GUI_CHECKED)
Else
GUICtrlSetState($check_21_11, $GUI_UNCHECKED)
EndIf
Dim $Array_GUI_Elements_21[1]
_ArrayAdd($Array_GUI_Elements_21, $button_21_01)
_ArrayAdd($Array_GUI_Elements_21, $button_21_11)
_ArrayAdd($Array_GUI_Elements_21, $check_21_01)
_ArrayAdd($Array_GUI_Elements_21, $check_21_11)
_ArrayAdd($Array_GUI_Elements_21, $label_21_01)
_ArrayAdd($Array_GUI_Elements_21, $label_21_02)
_ArrayAdd($Array_GUI_Elements_21, $label_21_03)
_ArrayAdd($Array_GUI_Elements_21, $label_21_04)
_ArrayAdd($Array_GUI_Elements_21, $label_21_11)
_ArrayAdd($Array_GUI_Elements_21, $password_21_02)
_ArrayAdd($Array_GUI_Elements_21, $password_21_03)
_ArrayAdd($Array_GUI_Elements_21, $password_21_04)
_ArrayAdd($Array_GUI_Elements_21, $password_21_11)
_ArrayAdd($Array_GUI_Elements_21, $pic_21_01)
#EndRegion ;Generate EPG Settings GUI (2)
#Region ;Generate EPG Settings GUI Europe (23)
Global $label_23_01 = GUICtrlCreateLabel($lng_epgwizard & " - " & $lng_epgdata_eur, 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $pic_23_01 = GUICtrlCreatePic(@ScriptDir & "\Images\eur.jpg", 900, 183, 68, 40)
Global $check_23_04 = GUICtrlCreateCheckbox("Rytec", 20, 290, 100, 20)
Global $button_23_04 = GUICtrlCreateButton("Rytec", 150, 273, 50, 48, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Rytec-Logo.bmp")
Global $check_23_01 = GUICtrlCreateCheckbox("TVSpielfilm", 20, 350, 100, 20)
Global $button_23_01 = GUICtrlCreateButton("TVSpielfilm", 150, 333, 50, 48, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\TVSpielfilm-Logo.bmp")
Global $check_23_02 = GUICtrlCreateCheckbox("Clickfinder", 20, 410, 100, 20)
Global $button_23_02 = GUICtrlCreateButton("Clickfinder", 150, 393, 50, 48, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\TV_Movie-Logo.bmp")
Global $input_23_02 = GUICtrlCreateInput($ini_database_clickfinder, 320, 407, 430, 20)
Global $button_23_02a = GUICtrlCreateButton($lng_search, 770, 404, 60)
Global $label_23_02 = GUICtrlCreateLabel($lng_database & ": ", 250, 410, 60)
Global $check_23_03 = GUICtrlCreateCheckbox("epgData.com", 20, 470, 100, 20)
Global $button_23_03 = GUICtrlCreateButton("epgData.com", 150, 453, 50, 48, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\epgDATA-Logo.bmp")
Global $label_23_03 = GUICtrlCreateLabel("Pin:", 250, 470, 30, 20)
Global $password_23_03 = GUICtrlCreateInput($ini_pass_epgdata, 275, 467, 275, 20)
If $ini_epg_source_tvspielfilm = "1" Then
GUICtrlSetState($check_23_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_23_01, $GUI_UNCHECKED)
EndIf
If $ini_epg_source_epgdata = "1" Then
GUICtrlSetState($check_23_03, $GUI_CHECKED)
Else
GUICtrlSetState($check_23_03, $GUI_UNCHECKED)
EndIf
If $ini_epg_source_clickfinder = "1" Then
GUICtrlSetState($check_23_02, $GUI_CHECKED)
Else
GUICtrlSetState($check_23_02, $GUI_UNCHECKED)
EndIf
If $ini_epg_source_rytec = "1" Then
GUICtrlSetState($check_23_04, $GUI_CHECKED)
Else
GUICtrlSetState($check_23_04, $GUI_UNCHECKED)
EndIf
Dim $Array_GUI_Elements_23[1]
_ArrayAdd($Array_GUI_Elements_23, $button_23_01)
_ArrayAdd($Array_GUI_Elements_23, $button_23_02)
_ArrayAdd($Array_GUI_Elements_23, $button_23_02a)
_ArrayAdd($Array_GUI_Elements_23, $button_23_03)
_ArrayAdd($Array_GUI_Elements_23, $button_23_04)
_ArrayAdd($Array_GUI_Elements_23, $check_23_01)
_ArrayAdd($Array_GUI_Elements_23, $check_23_02)
_ArrayAdd($Array_GUI_Elements_23, $check_23_03)
_ArrayAdd($Array_GUI_Elements_23, $check_23_04)
_ArrayAdd($Array_GUI_Elements_23, $input_23_02)
_ArrayAdd($Array_GUI_Elements_23, $label_23_01)
_ArrayAdd($Array_GUI_Elements_23, $label_23_02)
_ArrayAdd($Array_GUI_Elements_23, $label_23_03)
_ArrayAdd($Array_GUI_Elements_23, $password_23_03)
_ArrayAdd($Array_GUI_Elements_23, $pic_23_01)
#EndRegion
#Region ;Generate EPG Settings GUI America (24)
Global $label_24_01 = GUICtrlCreateLabel($lng_epgwizard & " - " & $lng_epgdata_usa, 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $pic_24_01 = GUICtrlCreatePic(@ScriptDir & "\Images\america.jpg", 900, 183, 68, 40)
Global $check_24_01 = GUICtrlCreateCheckbox("TVGuide.com", 20, 305, 100, 20)
Global $button_24_01 = GUICtrlCreateButton("TVGuide.com", 150, 288, 50, 48, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\TVGuidecom-Logo.bmp")
Global $label_24_02 = GUICtrlCreateLabel("EMail:", 250, 308, 70, 20)
Global $password_24_01 = GUICtrlCreateInput($ini_email_tvguide, 325, 292, 200, 50, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL)
Global $label_24_03 = GUICtrlCreateLabel("Password:", 555, 308, 50, 20)
Global $password_24_02 = GUICtrlCreateInput($ini_pass_tvguide, 610, 292, 200, 50, $ES_MULTILINE + $ES_WANTRETURN + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL)
If $ini_epg_source_tvguide = "1" Then
GUICtrlSetState($check_24_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_24_01, $GUI_UNCHECKED)
EndIf
Dim $Array_GUI_Elements_24[1]
_ArrayAdd($Array_GUI_Elements_24, $button_24_01)
_ArrayAdd($Array_GUI_Elements_24, $check_24_01)
_ArrayAdd($Array_GUI_Elements_24, $label_24_01)
_ArrayAdd($Array_GUI_Elements_24, $label_24_02)
_ArrayAdd($Array_GUI_Elements_24, $label_24_03)
_ArrayAdd($Array_GUI_Elements_24, $password_24_01)
_ArrayAdd($Array_GUI_Elements_24, $password_24_02)
_ArrayAdd($Array_GUI_Elements_24, $pic_24_01)
#EndRegion
#Region ;Generate EPG Data GUI (3)
Global $Select_Button_03_01 = GUICtrlCreateButton("TV Spielfilm", 288, 140, 143, 25)
Global $Select_Button_03_02 = GUICtrlCreateButton("WebGrab+Plus", 431, 140, 143, 25)
Global $Select_Button_03_03 = GUICtrlCreateButton("epgData.com", 717, 140, 143, 25)
Global $Select_Button_03_04 = GUICtrlCreateButton("Clickfinder", 574,140, 143, 25)
Global $Select_Button_03_05 = GUICtrlCreateButton("TVGuide.com", 145, 140, 143, 25)
Global $Select_Button_03_06 = GUICtrlCreateButton($lng_externalxml, 860, 140, 142, 25)
Global $Select_Button_03_07 = GUICtrlCreateButton("Rytec", 2, 140, 143, 25)
Global $label_03_02 = GUICtrlCreateLabel($lng_channelname & " " & $lng_select, 20, 250, 200)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_03_04 = GUICtrlCreateLabel($lng_global, 20, 420, 200)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
GUIStartGroup()
Global $radio_03_01 = GUICtrlCreateRadio($lng_manual, 20, 270, 160, 20)
Global $radio_03_02 = GUICtrlCreateRadio($lng_databasemode, 20, 290, 160, 20)
If $ini_channelname = "1" Then
GUICtrlSetState($radio_03_01, $GUI_CHECKED)
EndIf
If $ini_channelname = "2" Then
GUICtrlSetState($radio_03_02, $GUI_CHECKED)
EndIf
Dim $Array_GUI_Elements_03[1]
_ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_01)
_ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_02)
_ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_03)
_ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_04)
_ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_05)
_ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_06)
_ArrayAdd($Array_GUI_Elements_03, $Select_Button_03_07)
_ArrayAdd($Array_GUI_Elements_03, $label_03_04)
_ArrayAdd($Array_GUI_Elements_03, $label_03_02)
_ArrayAdd($Array_GUI_Elements_03, $radio_03_01)
_ArrayAdd($Array_GUI_Elements_03, $radio_03_02)
#EndRegion
#Region ;Generate EPG Data TV Spielfilm GUI (3-1)
Global $label_31_01 = GUICtrlCreateLabel($lng_epgdata & " - TVSpielfilm", 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $label_31_03 = GUICtrlCreateLabel($lng_groupselect, 11120, 330, 200)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $button_31_01 = GUICtrlCreateButton($lng_go, 11120, 353, 100)
Global $pic_31_01 = GUICtrlCreatePic(@ScriptDir & "\Images\TVSpielfilm-Logo.bmp", 920, 173, 50, 50)
Global $check_31_01 = GUICtrlCreateCheckbox("TVSpielfilm - " & $lng_notvdb, 20, 530, 320)
;~ Global $check_31_02 = GUICtrlCreateCheckbox($lng_combine, 20, 450, 320)
;~ Global $label_31_02 = GUICtrlCreateLabel($lng_combine_name, 20, 480, 200)
;~ Global $input_31_02 = GUICtrlCreateInput($ini_combine, 20, 500, 200, 20)
Global $label_31_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $listview_31_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY)
Global $label_31_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 300, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_31_22 = GUICtrlCreateLabel("", 700, 270, 250, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_31_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20)
Global $label_31_24 = GUICtrlCreateLabel("", 700, 320, 250, 20)
Global $label_31_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20)
Global $input_31_21 = GUICtrlCreateInput("----------", 700, 320, 250, 20)
Global $combo_31_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20)
GUICtrlSetData($combo_31_21, "----------", "----------")
Global $label_31_26a = GUICtrlCreateLabel($lng_xmltv_line, 700, 410, 350, 20)
Global $label_31_26 = GUICtrlCreateLabel($lng_days, 700, 450, 250, 20)
Global $input_31_22 = GUICtrlCreateInput($ini_maxdays_tvspielfilm, 700, 470, 50, 20)
Global $label_31_27 = GUICtrlCreateLabel($lng_zerodays, 700, 500, 250, 20)
Global $check_31_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 540, 250, 20)
Global $label_31_91 = GUICtrlCreateLabel($lng_groupselect, 11350, 250, 200, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $listview_31_91 = GUICtrlCreateListview("Name ", 11350, 280, 260, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES)
Global $button_31_91 = GUICtrlCreateButton($lng_groupset, 11350, 573, 100)
; If $ini_do_combine_tvspielfilm = "1" Then
; GUICtrlSetState($check_31_02, $GUI_CHECKED)
; Else
; GUICtrlSetState($check_31_02, $GUI_UNCHECKED)
; EndIf
If $ini_notmdb_tvspielfilm = "1" Then
GUICtrlSetState($check_31_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_31_01, $GUI_UNCHECKED)
EndIf
Dim $Array_GUI_Elements_31[1]
_ArrayAdd($Array_GUI_Elements_31, $button_31_01)
_ArrayAdd($Array_GUI_Elements_31, $check_31_01)
; _ArrayAdd($Array_GUI_Elements_31, $check_31_02)
; _ArrayAdd($Array_GUI_Elements_31, $input_31_02)
_ArrayAdd($Array_GUI_Elements_31, $label_31_01)
; _ArrayAdd($Array_GUI_Elements_31, $label_31_02)
_ArrayAdd($Array_GUI_Elements_31, $label_31_03)
_ArrayAdd($Array_GUI_Elements_31, $label_31_21)
_ArrayAdd($Array_GUI_Elements_31, $pic_31_01)
_ArrayAdd($Array_GUI_Elements_31, $label_31_22)
Dim $Array_GUI_Elements_31_6[1]
_ArrayAdd($Array_GUI_Elements_31_6, $check_31_21)
_ArrayAdd($Array_GUI_Elements_31_6, $input_31_21)
_ArrayAdd($Array_GUI_Elements_31_6, $input_31_22)
_ArrayAdd($Array_GUI_Elements_31_6, $label_31_22)
_ArrayAdd($Array_GUI_Elements_31_6, $label_31_23)
_ArrayAdd($Array_GUI_Elements_31_6, $label_31_26)
_ArrayAdd($Array_GUI_Elements_31_6, $label_31_27)
Dim $Array_GUI_Elements_31_7[1]
_ArrayAdd($Array_GUI_Elements_31_7, $check_31_21)
_ArrayAdd($Array_GUI_Elements_31_7, $combo_31_21)
_ArrayAdd($Array_GUI_Elements_31_7, $input_31_22)
_ArrayAdd($Array_GUI_Elements_31_7, $label_31_22)
_ArrayAdd($Array_GUI_Elements_31_7, $label_31_23)
_ArrayAdd($Array_GUI_Elements_31_7, $label_31_24)
_ArrayAdd($Array_GUI_Elements_31_7, $label_31_25)
_ArrayAdd($Array_GUI_Elements_31_7, $label_31_26)
_ArrayAdd($Array_GUI_Elements_31_7, $label_31_26a)
_ArrayAdd($Array_GUI_Elements_31_7, $label_31_27)
Dim $Array_GUI_Elements_31_8[1]
_ArrayAdd($Array_GUI_Elements_31_8, $label_31_11)
_ArrayAdd($Array_GUI_Elements_31_8, $listview_31_11)
Dim $Array_GUI_Elements_31_9[1]
_ArrayAdd($Array_GUI_Elements_31_9, $button_31_91)
_ArrayAdd($Array_GUI_Elements_31_9, $label_31_91)
_ArrayAdd($Array_GUI_Elements_31_9, $listview_31_91)
#EndRegion ;Generate EPG Data GUI (3)
#Region ;Generate EPG Data WebGrab GUI (3-2)
Global $label_32_01 = GUICtrlCreateLabel($lng_epgdata & " - WebGrab+Plus", 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $label_32_03 = GUICtrlCreateLabel($lng_sitepreselect, 20, 330, 200, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $button_32_01 = GUICtrlCreateButton($lng_go, 20, 353, 100)
Global $pic_32_01 = GUICtrlCreatePic(@ScriptDir & "\Images\WebGrab+Plus-Logo.bmp", 920, 173, 50, 50)
Global $check_32_01 = GUICtrlCreateCheckbox("WebGrab+Plus - " & $lng_notvdb, 20, 530, 320)
Global $label_32_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 400, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_32_12 = GUICtrlCreateLabel($lng_siteselect, 350, 280, 200, 20)
Global $combo_32_11 = GUICtrlCreateCombo("----------", 350, 310, 170, 20)
GUICtrlSetData($combo_32_11, "----------", "----------")
Global $button_32_11 = GUICtrlCreateButton($lng_show, 540, 308, 70)
Global $listview_32_11 = GUICtrlCreateList("", 350, 350, 260, 250, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY)
Global $label_32_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 400, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_32_22 = GUICtrlCreateLabel("", 700, 270, 250, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_32_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20)
Global $label_32_24 = GUICtrlCreateLabel("", 700, 330, 250, 20)
Global $label_32_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20)
Global $input_32_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20)
Global $combo_32_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20)
GUICtrlSetData($combo_32_21, "----------", "----------")
Global $label_32_26 = GUICtrlCreateLabel($lng_daysgrab, 65, 573, 250, 20)
Global $input_32_22 = GUICtrlCreateInput($ini_maxdays_webgrab, 20, 570, 40, 20)
Global $check_32_22 = GUICtrlCreateCheckbox("", 700, 420, 300, 20)
Global $check_32_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20)
Global $label_32_27 = GUICtrlCreateLabel($lng_makeWGconfig, 700, 553, 250, 20, $SS_RIGHT)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $button_32_21 = GUICtrlCreateButton($lng_go, 850, 580, 100)
Global $label_32_91 = GUICtrlCreateLabel($lng_sitepreselect, 350, 250, 200)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $listview_32_91 = GUICtrlCreateListview("Name ", 350, 280, 260, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES)
Global $button_32_91 = GUICtrlCreateButton($lng_groupset, 350, 573, 100)
If $ini_notmdb_webgrab = "1" Then
GUICtrlSetState($check_32_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_32_01, $GUI_UNCHECKED)
EndIf
Dim $Array_GUI_Elements_32_6[1]
_ArrayAdd($Array_GUI_Elements_32_6, $check_32_21)
_ArrayAdd($Array_GUI_Elements_32_6, $check_32_22)
_ArrayAdd($Array_GUI_Elements_32_6, $input_32_21)
_ArrayAdd($Array_GUI_Elements_32_6, $label_32_22)
_ArrayAdd($Array_GUI_Elements_32_6, $label_32_23)
Dim $Array_GUI_Elements_32_7[1]
_ArrayAdd($Array_GUI_Elements_32_7, $check_32_21)
_ArrayAdd($Array_GUI_Elements_32_7, $check_32_22)
_ArrayAdd($Array_GUI_Elements_32_7, $combo_32_21)
_ArrayAdd($Array_GUI_Elements_32_7, $label_32_22)
_ArrayAdd($Array_GUI_Elements_32_7, $label_32_23)
_ArrayAdd($Array_GUI_Elements_32_7, $label_32_24)
_ArrayAdd($Array_GUI_Elements_32_7, $label_32_25)
Dim $Array_GUI_Elements_32_8[1]
_ArrayAdd($Array_GUI_Elements_32_8, $button_32_11)
_ArrayAdd($Array_GUI_Elements_32_8, $combo_32_11)
_ArrayAdd($Array_GUI_Elements_32_8, $label_32_11)
_ArrayAdd($Array_GUI_Elements_32_8, $label_32_12)
_ArrayAdd($Array_GUI_Elements_32_8, $listview_32_11)
Dim $Array_GUI_Elements_32_9[1]
_ArrayAdd($Array_GUI_Elements_32_9, $button_32_91)
_ArrayAdd($Array_GUI_Elements_32_9, $label_32_91)
_ArrayAdd($Array_GUI_Elements_32_9, $listview_32_91)
Dim $Array_GUI_Elements_32[1]
_ArrayAdd($Array_GUI_Elements_32, $button_32_01)
_ArrayAdd($Array_GUI_Elements_32, $button_32_21)
_ArrayAdd($Array_GUI_Elements_32, $check_32_01)
_ArrayAdd($Array_GUI_Elements_32, $combo_32_11)
_ArrayAdd($Array_GUI_Elements_32, $input_32_22)
_ArrayAdd($Array_GUI_Elements_32, $label_32_01)
_ArrayAdd($Array_GUI_Elements_32, $label_32_03)
_ArrayAdd($Array_GUI_Elements_32, $label_32_21)
_ArrayAdd($Array_GUI_Elements_32, $label_32_26)
_ArrayAdd($Array_GUI_Elements_32, $label_32_27)
_ArrayAdd($Array_GUI_Elements_32, $pic_32_01)
#EndRegion ;Generate EPG Data GUI (3)
#Region ;Generate EPG Data epgData.com GUI (3-3)
Global $label_33_01 = GUICtrlCreateLabel($lng_epgdata & " - epgData.com", 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $pic_33_01 = GUICtrlCreatePic(@ScriptDir & "\Images\epgDATA-Logo.bmp", 920, 173, 50, 50)
Global $check_33_01 = GUICtrlCreateCheckbox("epgData.com - " & $lng_notvdb, 20, 530, 320)
; Global $check_33_02 = GUICtrlCreateCheckbox($lng_combine, 20, 450, 320)
Global $label_33_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $listview_33_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY)
Global $label_33_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 300, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_33_22 = GUICtrlCreateLabel("", 700, 270, 250, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_33_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20)
Global $label_33_24 = GUICtrlCreateLabel("", 700, 330, 250, 20)
Global $label_33_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20)
Global $input_33_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20)
Global $combo_33_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20)
GUICtrlSetData($combo_33_21, "----------", "----------")
Global $label_33_26 = GUICtrlCreateLabel($lng_daysgrab, 65, 573, 250, 20)
Global $input_33_22 = GUICtrlCreateInput($ini_maxdays_epgdata, 20, 570, 40, 20)
Global $check_33_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20)
; If $ini_do_combine_epgdata = "1" Then
; GUICtrlSetState($check_33_02, $GUI_CHECKED)
; Else
; GUICtrlSetState($check_33_02, $GUI_UNCHECKED)
; EndIf
If $ini_notmdb_epgdata = "1" Then
GUICtrlSetState($check_33_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_33_01, $GUI_UNCHECKED)
EndIf
Dim $Array_GUI_Elements_33[1]
_ArrayAdd($Array_GUI_Elements_33, $check_33_01)
; _ArrayAdd($Array_GUI_Elements_33, $check_33_02)
_ArrayAdd($Array_GUI_Elements_33, $label_33_01)
_ArrayAdd($Array_GUI_Elements_33, $label_33_11)
_ArrayAdd($Array_GUI_Elements_33, $label_33_21)
_ArrayAdd($Array_GUI_Elements_33, $label_33_22)
_ArrayAdd($Array_GUI_Elements_33, $label_33_26)
; _ArrayAdd($Array_GUI_Elements_33, $label_31_02)
; _ArrayAdd($Array_GUI_Elements_33, $input_31_02)
_ArrayAdd($Array_GUI_Elements_33, $input_33_22)
_ArrayAdd($Array_GUI_Elements_33, $listview_33_11)
_ArrayAdd($Array_GUI_Elements_33, $pic_33_01)
Dim $Array_GUI_Elements_33_6[1]
_ArrayAdd($Array_GUI_Elements_33_6, $check_33_21)
_ArrayAdd($Array_GUI_Elements_33_6, $input_33_21)
_ArrayAdd($Array_GUI_Elements_33_6, $label_33_23)
Dim $Array_GUI_Elements_33_7[1]
_ArrayAdd($Array_GUI_Elements_33_7, $check_33_21)
_ArrayAdd($Array_GUI_Elements_33_7, $combo_33_21)
_ArrayAdd($Array_GUI_Elements_33_7, $label_33_23)
_ArrayAdd($Array_GUI_Elements_33_7, $label_33_24)
_ArrayAdd($Array_GUI_Elements_33_7, $label_33_25)
#EndRegion
#Region ;Generate EPG Data Clickfinder GUI (3-4)
Global $label_34_01 = GUICtrlCreateLabel($lng_epgdata & " - Clickfinder", 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $pic_34_01 = GUICtrlCreatePic(@ScriptDir & "\Images\TV_Movie-Logo.bmp", 920, 173, 50, 50)
Global $check_34_01 = GUICtrlCreateCheckbox("Clickfinder - " & $lng_notvdb, 20, 530, 320)
; Global $check_34_02 = GUICtrlCreateCheckbox($lng_combine, 20, 450, 320)
Global $label_34_03 = GUICtrlCreateLabel($lng_groupselect, 20, 330, 200)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $button_34_01 = GUICtrlCreateButton($lng_go, 20, 353, 100)
Global $label_34_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $listview_34_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY)
Global $label_34_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 300, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_34_22 = GUICtrlCreateLabel("", 700, 270, 250, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_34_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20)
Global $label_34_24 = GUICtrlCreateLabel("", 700, 330, 250, 20)
Global $label_34_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20)
Global $input_34_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20)
Global $combo_34_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20)
GUICtrlSetData($combo_34_21, "----------", "----------")
Global $label_34_91 = GUICtrlCreateLabel($lng_groupselect, 350, 250, 200, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $listview_34_91 = GUICtrlCreateListview("Name ", 350, 280, 260, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES)
Global $button_34_91 = GUICtrlCreateButton($lng_groupset, 350, 573, 100)
Global $check_34_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20)
Global $check_34_22 = GUICtrlCreateCheckbox("", 700, 420, 300, 20)
; If $ini_do_combine_clickfinder = "1" Then
; GUICtrlSetState($check_34_02, $GUI_CHECKED)
; Else
; GUICtrlSetState($check_34_02, $GUI_UNCHECKED)
; EndIf
If $ini_notmdb_clickfinder = "1" Then
GUICtrlSetState($check_34_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_34_01, $GUI_UNCHECKED)
EndIf
Dim $Array_GUI_Elements_34[1]
_ArrayAdd($Array_GUI_Elements_34, $button_34_01)
_ArrayAdd($Array_GUI_Elements_34, $check_34_01)
; _ArrayAdd($Array_GUI_Elements_34, $check_34_02)
; _ArrayAdd($Array_GUI_Elements_34, $input_31_02)
_ArrayAdd($Array_GUI_Elements_34, $label_34_01)
_ArrayAdd($Array_GUI_Elements_34, $label_34_03)
_ArrayAdd($Array_GUI_Elements_34, $label_34_21)
_ArrayAdd($Array_GUI_Elements_34, $label_34_22)
; _ArrayAdd($Array_GUI_Elements_34, $label_31_02)
_ArrayAdd($Array_GUI_Elements_34, $pic_34_01)
Dim $Array_GUI_Elements_34_6[1]
_ArrayAdd($Array_GUI_Elements_34_6, $check_34_21)
_ArrayAdd($Array_GUI_Elements_34_6, $check_34_22)
_ArrayAdd($Array_GUI_Elements_34_6, $input_34_21)
_ArrayAdd($Array_GUI_Elements_34_6, $label_34_23)
Dim $Array_GUI_Elements_34_7[1]
_ArrayAdd($Array_GUI_Elements_34_7, $check_34_21)
_ArrayAdd($Array_GUI_Elements_34_7, $check_34_22)
_ArrayAdd($Array_GUI_Elements_34_7, $combo_34_21)
_ArrayAdd($Array_GUI_Elements_34_7, $label_34_23)
_ArrayAdd($Array_GUI_Elements_34_7, $label_34_24)
_ArrayAdd($Array_GUI_Elements_34_7, $label_34_25)
Dim $Array_GUI_Elements_34_8[1]
_ArrayAdd($Array_GUI_Elements_34_8, $label_34_11)
_ArrayAdd($Array_GUI_Elements_34_8, $listview_34_11)
Dim $Array_GUI_Elements_34_9[1]
_ArrayAdd($Array_GUI_Elements_34_9, $button_34_91)
_ArrayAdd($Array_GUI_Elements_34_9, $label_34_91)
_ArrayAdd($Array_GUI_Elements_34_9, $listview_34_91)
#EndRegion
#Region ;Generate EPG Data TVGuide.com GUI (3-5)
Global $label_35_01 = GUICtrlCreateLabel($lng_epgdata & " - TVGuide.com", 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $pic_35_01 = GUICtrlCreatePic(@ScriptDir & "\Images\TVGuidecom-Logo.bmp", 920, 173, 50, 50)
Global $check_35_01 = GUICtrlCreateCheckbox("TVGuide.com - " & $lng_notvdb, 20, 530, 320)
Global $label_35_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $listview_35_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY)
Global $label_35_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 300, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_35_22 = GUICtrlCreateLabel("", 700, 270, 250, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_35_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20)
Global $label_35_24 = GUICtrlCreateLabel("", 700, 330, 250, 20)
Global $label_35_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20)
Global $input_35_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20)
Global $combo_35_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20)
GUICtrlSetData($combo_35_21, "----------", "----------")
Global $check_35_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20)
Global $check_35_22 = GUICtrlCreateCheckbox("", 700, 420, 300, 20)
Global $label_35_26 = GUICtrlCreateLabel($lng_daysgrab, 65, 573, 250, 20)
Global $input_35_22 = GUICtrlCreateInput($ini_maxdays_tvguide, 20, 570, 40, 20)
If $ini_notmdb_tvguide = "1" Then
GUICtrlSetState($check_35_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_35_01, $GUI_UNCHECKED)
EndIf
Dim $Array_GUI_Elements_35[1]
;~ _ArrayAdd($Array_GUI_Elements_35, $button_35_01)
_ArrayAdd($Array_GUI_Elements_35, $check_35_01)
_ArrayAdd($Array_GUI_Elements_35, $label_35_01)
;~ _ArrayAdd($Array_GUI_Elements_35, $label_35_03)
_ArrayAdd($Array_GUI_Elements_35, $label_35_11)
_ArrayAdd($Array_GUI_Elements_35, $label_35_21)
_ArrayAdd($Array_GUI_Elements_35, $label_35_22)
_ArrayAdd($Array_GUI_Elements_35, $label_35_26)
_ArrayAdd($Array_GUI_Elements_35, $listview_35_11)
_ArrayAdd($Array_GUI_Elements_35, $input_35_22)
_ArrayAdd($Array_GUI_Elements_35, $pic_35_01)
Dim $Array_GUI_Elements_35_6[1]
_ArrayAdd($Array_GUI_Elements_35_6, $check_35_21)
_ArrayAdd($Array_GUI_Elements_35_6, $check_35_22)
_ArrayAdd($Array_GUI_Elements_35_6, $input_35_21)
_ArrayAdd($Array_GUI_Elements_35_6, $label_35_23)
Dim $Array_GUI_Elements_35_7[1]
_ArrayAdd($Array_GUI_Elements_35_7, $check_35_21)
_ArrayAdd($Array_GUI_Elements_35_7, $check_35_22)
_ArrayAdd($Array_GUI_Elements_35_7, $combo_35_21)
_ArrayAdd($Array_GUI_Elements_35_7, $label_35_23)
_ArrayAdd($Array_GUI_Elements_35_7, $label_35_24)
_ArrayAdd($Array_GUI_Elements_35_7, $label_35_25)
#EndRegion
#Region ;Generate EPG Data External XML GUI (3-6)
Global $label_36_01 = GUICtrlCreateLabel($lng_epgdata & " - " & $lng_externalxml, 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $pic_36_01 = GUICtrlCreatePic(@ScriptDir & "\Images\XML-logo.bmp", 920, 173, 50, 50)
Global $check_36_01 = GUICtrlCreateCheckbox($lng_externalxml & " - " & $lng_notvdb, 20, 530, 320)
Global $label_36_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $listview_36_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY)
Global $label_36_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 300, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_36_22 = GUICtrlCreateLabel("", 700, 270, 250, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_36_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20)
Global $label_36_24 = GUICtrlCreateLabel("", 700, 330, 250, 20)
Global $label_36_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20)
Global $input_36_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20)
Global $combo_36_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20)
GUICtrlSetData($combo_36_21, "----------", "----------")
Global $check_36_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20)
If $ini_notmdb_xml = "1" Then
GUICtrlSetState($check_36_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_36_01, $GUI_UNCHECKED)
EndIf
Dim $Array_GUI_Elements_36[1]
_ArrayAdd($Array_GUI_Elements_36, $check_36_01)
_ArrayAdd($Array_GUI_Elements_36, $label_36_01)
_ArrayAdd($Array_GUI_Elements_36, $label_36_11)
_ArrayAdd($Array_GUI_Elements_36, $label_36_21)
_ArrayAdd($Array_GUI_Elements_36, $label_36_22)
_ArrayAdd($Array_GUI_Elements_36, $listview_36_11)
_ArrayAdd($Array_GUI_Elements_36, $pic_36_01)
Dim $Array_GUI_Elements_36_6[1]
_ArrayAdd($Array_GUI_Elements_36_6, $check_36_21)
_ArrayAdd($Array_GUI_Elements_36_6, $input_36_21)
_ArrayAdd($Array_GUI_Elements_36_6, $label_36_23)
Dim $Array_GUI_Elements_36_7[1]
_ArrayAdd($Array_GUI_Elements_36_7, $check_36_21)
_ArrayAdd($Array_GUI_Elements_36_7, $combo_36_21)
_ArrayAdd($Array_GUI_Elements_36_7, $label_36_23)
_ArrayAdd($Array_GUI_Elements_36_7, $label_36_24)
_ArrayAdd($Array_GUI_Elements_36_7, $label_36_25)
#EndRegion
#Region ;Generate EPG Data Rytec GUI (3-7)
Global $label_37_01 = GUICtrlCreateLabel($lng_epgdata & " - Rytec", 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $label_37_03 = GUICtrlCreateLabel($lng_regionpreselect, 20, 330, 200, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $button_37_01 = GUICtrlCreateButton($lng_go, 20, 353, 100)
Global $pic_37_01 = GUICtrlCreatePic(@ScriptDir & "\Images\Rytec-Logo.bmp", 920, 173, 50, 50)
Global $check_37_01 = GUICtrlCreateCheckbox("Rytec - " & $lng_notvdb, 20, 530, 320)
Global $label_37_11 = GUICtrlCreateLabel($lng_selectchannel, 350, 250, 300, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $listview_37_11 = GUICtrlCreateList("", 350, 280, 260, 320, $LBS_DISABLENOSCROLL + $WS_BORDER + $WS_VSCROLL, $ES_READONLY)
Global $label_37_21 = GUICtrlCreateLabel($lng_channelsettings, 700, 250, 400, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_37_22 = GUICtrlCreateLabel("", 700, 270, 250, 20)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_37_23 = GUICtrlCreateLabel($lng_xmltv_name, 700, 300, 250, 20)
Global $label_37_24 = GUICtrlCreateLabel("", 700, 330, 250, 20)
Global $label_37_25 = GUICtrlCreateLabel($lng_channeldbname, 700, 360, 250, 20)
Global $input_37_21 = GUICtrlCreateInput("----------", 700, 340, 250, 20)
Global $combo_37_21 = GUICtrlCreateCombo("----------", 700, 380, 250, 20)
GUICtrlSetData($combo_37_21, "----------", "----------")
Global $label_37_26a = GUICtrlCreateLabel($lng_xmltv_line, 700, 420, 350, 20)
Global $check_37_21 = GUICtrlCreateCheckbox($lng_loadtvdb, 700, 450, 250, 20)
Global $label_37_91 = GUICtrlCreateLabel($lng_regionpreselect, 350, 250, 200)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $listview_37_91 = GUICtrlCreateListview("Name ", 350, 280, 260, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES)
Global $button_37_91 = GUICtrlCreateButton($lng_groupset, 350, 573, 100)
If $ini_notmdb_rytec = "1" Then
GUICtrlSetState($check_37_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_37_01, $GUI_UNCHECKED)
EndIf
Dim $Array_GUI_Elements_37_6[1]
_ArrayAdd($Array_GUI_Elements_37_6, $check_37_21)
_ArrayAdd($Array_GUI_Elements_37_6, $input_37_21)
_ArrayAdd($Array_GUI_Elements_37_6, $label_37_22)
_ArrayAdd($Array_GUI_Elements_37_6, $label_37_23)
Dim $Array_GUI_Elements_37_7[1]
_ArrayAdd($Array_GUI_Elements_37_7, $check_37_21)
_ArrayAdd($Array_GUI_Elements_37_7, $combo_37_21)
_ArrayAdd($Array_GUI_Elements_37_7, $label_37_22)
_ArrayAdd($Array_GUI_Elements_37_7, $label_37_23)
_ArrayAdd($Array_GUI_Elements_37_7, $label_37_24)
_ArrayAdd($Array_GUI_Elements_37_7, $label_37_25)
_ArrayAdd($Array_GUI_Elements_37_7, $label_37_26a)
Dim $Array_GUI_Elements_37_8[1]
_ArrayAdd($Array_GUI_Elements_37_8, $label_37_11)
_ArrayAdd($Array_GUI_Elements_37_8, $listview_37_11)
Dim $Array_GUI_Elements_37_9[1]
_ArrayAdd($Array_GUI_Elements_37_9, $button_37_91)
_ArrayAdd($Array_GUI_Elements_37_9, $label_37_91)
_ArrayAdd($Array_GUI_Elements_37_9, $listview_37_91)
Dim $Array_GUI_Elements_37[1]
_ArrayAdd($Array_GUI_Elements_37, $button_37_01)
_ArrayAdd($Array_GUI_Elements_37, $check_37_01)
_ArrayAdd($Array_GUI_Elements_37, $label_37_01)
_ArrayAdd($Array_GUI_Elements_37, $label_37_03)
_ArrayAdd($Array_GUI_Elements_37, $label_37_21)
_ArrayAdd($Array_GUI_Elements_37, $pic_37_01)
#EndRegion ;Generate EPG Data GUI (3)
#Region ;Generate Schedules GUI (4)
Global $label_41_00 = GUICtrlCreateLabel($lng_schedules, 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $label_41_01 = GUICtrlCreateLabel($lng_day, 30, 250, 200)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $check_41_01 = GUICtrlCreateCheckbox($lng_mon & " ", 30, 280, 100, 20, $BS_TOP)
Global $check_41_02 = GUICtrlCreateCheckbox($lng_tue & " ", 30, 310, 100, 20, $BS_TOP)
Global $check_41_03 = GUICtrlCreateCheckbox($lng_wen & " ", 30, 340, 100, 20, $BS_TOP)
Global $check_41_04 = GUICtrlCreateCheckbox($lng_thu & " ", 30, 370, 100, 20, $BS_TOP)
Global $check_41_05 = GUICtrlCreateCheckbox($lng_fri & " ", 30, 400, 100, 20, $BS_TOP)
Global $check_41_06 = GUICtrlCreateCheckbox($lng_sat & " ", 30, 430, 100, 20, $BS_TOP)
Global $check_41_07 = GUICtrlCreateCheckbox($lng_sun & " ", 30, 460, 100, 20, $BS_TOP)
Global $button_41_01 = GUICtrlCreateButton($lng_cancel, 350, 580, 60)
GUICtrlSetState($button_41_01, $GUI_HIDE)
Global $label_41_11 = GUICtrlCreateLabel($lng_clock, 30, 500, 400)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $input_41_11 = GUICtrlCreateInput($ini_time, 30, 530, 40, 20)
Global $label_41_12 = GUICtrlCreateLabel($lng_timeinput, 30, 560, 220, 70)
Global $label_41_14 = GUICtrlCreateLabel($lng_options, 360, 250, 300, 30)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_41_15 = GUICtrlCreateLabel($lng_taskplaner, 360, 420, 300, 30)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $check_41_11 = GUICtrlCreateCheckbox($lng_schedule_wake, 360, 290, 300, 20, $BS_TOP)
Global $check_41_12 = GUICtrlCreateCheckbox($lng_schedule_delay, 360, 320, 300, 20, $BS_TOP)
Global $check_41_13 = GUICtrlCreateCheckbox($lng_schedule_idle, 360, 350, 300, 20, $BS_TOP)
Global $label_41_21 = GUICtrlCreateLabel($lng_action, 700, 250, 400)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_41_22 = GUICtrlCreateLabel($lng_deleteschedule, 700, 300, 150, 20)
Global $button_41_21 = GUICtrlCreateButton($lng_Go, 700, 330, 60)
Global $label_41_23 = GUICtrlCreateLabel($lng_createschedule, 700, 380, 150, 20)
Global $button_41_22 = GUICtrlCreateButton($lng_Go, 700, 410, 60)
Global $label_41_24 = GUICtrlCreateLabel($lng_grabnow, 700, 470, 400)
Global $button_41_23 = GUICtrlCreateButton($lng_Go, 700, 500, 60)
If $ini_monday = "1" Then
GUICtrlSetState($check_41_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_41_01, $GUI_UNCHECKED)
EndIf
If $ini_tuesday = "1" Then
GUICtrlSetState($check_41_02, $GUI_CHECKED)
Else
GUICtrlSetState($check_41_02, $GUI_UNCHECKED)
EndIf
If $ini_wednesday = "1" Then
GUICtrlSetState($check_41_03, $GUI_CHECKED)
Else
GUICtrlSetState($check_41_03, $GUI_UNCHECKED)
EndIf
If $ini_thursday = "1" Then
GUICtrlSetState($check_41_04, $GUI_CHECKED)
Else
GUICtrlSetState($check_41_04, $GUI_UNCHECKED)
EndIf
If $ini_friday = "1" Then
GUICtrlSetState($check_41_05, $GUI_CHECKED)
Else
GUICtrlSetState($check_41_05, $GUI_UNCHECKED)
EndIf
If $ini_saturday = "1" Then
GUICtrlSetState($check_41_06, $GUI_CHECKED)
Else
GUICtrlSetState($check_41_06, $GUI_UNCHECKED)
EndIf
If $ini_sunday = "1" Then
GUICtrlSetState($check_41_07, $GUI_CHECKED)
Else
GUICtrlSetState($check_41_07, $GUI_UNCHECKED)
EndIf
If $ini_schedule_wake = "1" Then
GUICtrlSetState($check_41_11, $GUI_CHECKED)
Else
GUICtrlSetState($check_41_11, $GUI_UNCHECKED)
EndIf
If $ini_schedule_delay = "1" Then
GUICtrlSetState($check_41_12, $GUI_CHECKED)
Else
GUICtrlSetState($check_41_12, $GUI_UNCHECKED)
EndIf
If $ini_schedule_idle = "1" Then
GUICtrlSetState($check_41_13, $GUI_CHECKED)
Else
GUICtrlSetState($check_41_13, $GUI_UNCHECKED)
EndIf
GUIStartGroup()
Global $radio_41_01 = GUICtrlCreateRadio($lng_above & " Windows 10 2004", 360, 450, 230, 20)
Global $radio_41_02 = GUICtrlCreateRadio($lng_below & " Windows 10 1909 ", 360, 480, 230, 20)
If $ini_task_type = "1.4" Then
GUICtrlSetState($radio_41_01, $GUI_CHECKED)
EndIf
If $ini_task_type = "1.2" Then
GUICtrlSetState($radio_41_02, $GUI_CHECKED)
EndIf
Dim $Array_GUI_Elements_41[1]
_ArrayAdd($Array_GUI_Elements_41, $button_41_21)
_ArrayAdd($Array_GUI_Elements_41, $button_41_22)
_ArrayAdd($Array_GUI_Elements_41, $button_41_23)
_ArrayAdd($Array_GUI_Elements_41, $check_41_01)
_ArrayAdd($Array_GUI_Elements_41, $check_41_02)
_ArrayAdd($Array_GUI_Elements_41, $check_41_03)
_ArrayAdd($Array_GUI_Elements_41, $check_41_04)
_ArrayAdd($Array_GUI_Elements_41, $check_41_05)
_ArrayAdd($Array_GUI_Elements_41, $check_41_06)
_ArrayAdd($Array_GUI_Elements_41, $check_41_07)
_ArrayAdd($Array_GUI_Elements_41, $check_41_11)
_ArrayAdd($Array_GUI_Elements_41, $check_41_12)
_ArrayAdd($Array_GUI_Elements_41, $check_41_13)
_ArrayAdd($Array_GUI_Elements_41, $input_41_11)
_ArrayAdd($Array_GUI_Elements_41, $label_41_00)
_ArrayAdd($Array_GUI_Elements_41, $label_41_01)
_ArrayAdd($Array_GUI_Elements_41, $label_41_11)
_ArrayAdd($Array_GUI_Elements_41, $label_41_12)
_ArrayAdd($Array_GUI_Elements_41, $label_41_14)
_ArrayAdd($Array_GUI_Elements_41, $label_41_15)
_ArrayAdd($Array_GUI_Elements_41, $label_41_21)
_ArrayAdd($Array_GUI_Elements_41, $label_41_22)
_ArrayAdd($Array_GUI_Elements_41, $label_41_23)
_ArrayAdd($Array_GUI_Elements_41, $label_41_24)
_ArrayAdd($Array_GUI_Elements_41, $radio_41_01)
_ArrayAdd($Array_GUI_Elements_41, $radio_41_02)
#EndRegion
#Region ;Generate Settings GUI (5)
Global $label_05_00 = GUICtrlCreateLabel($lng_settings, 20, 180, 600, 50)
GUICtrlSetFont(-1, 20, 700, 0, "Georgia")
Global $label_05_04 = GUICtrlCreateLabel("TMDB- " & $lng_settings, 20, 250, 150)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_05_05 = GUICtrlCreateLabel($lng_metadata, 20, 300, 150)
Global $combo_05_05 = GUICtrlCreateCombo("----------", 20, 320, 130, 20)
GUICtrlSetData($combo_05_05, "cs|da|de|el|en|es|fi|fr|he|hr|hu|it|ja|ko|nl|no|pl|pt|ru|sl|sv|tr|zh", $ini_meta_language)
Global $pic_05_04 = GUICtrlCreatePic(@ScriptDir & "\Images\Flags\black.jpg", 174, 302, 70, 42)
Global $pic_05_05 = GUICtrlCreatePic($ini_meta_flag, 175, 303, 68, 40)
Global $check_05_02 = GUICtrlCreateCheckbox($lng_seriesoverwrite, 20, 370, 290)
Global $check_05_01 = GUICtrlCreateCheckbox($lng_plotoverwrite, 20, 410, 270)
Global $label_05_06 = GUICtrlCreateLabel($lng_ignorechars, 20, 450, 250)
Global $input_05_06 = GUICtrlCreateInput($Ignore_Chars, 20, 470, 230, 20)
Global $label_05_07 = GUICtrlCreateLabel($lng_settings, 20, 520, 250)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $check_05_07 = GUICtrlCreateCheckbox($lng_mapping, 20, 550, 290)
Global $check_05_08 = GUICtrlCreateCheckbox($lng_clearcache, 20, 580, 290)
If $ini_plot_override = "1" Then
GUICtrlSetState($check_05_01, $GUI_CHECKED)
Else
GUICtrlSetState($check_05_01, $GUI_UNCHECKED)
EndIf
If $ini_series_override = "1" Then
GUICtrlSetState($check_05_02, $GUI_CHECKED)
Else
GUICtrlSetState($check_05_02, $GUI_UNCHECKED)
EndIf
If $ini_mapping = "1" Then
GUICtrlSetState($check_05_07, $GUI_CHECKED)
Else
GUICtrlSetState($check_05_07, $GUI_UNCHECKED)
EndIf
If $ini_cacheclean = "1" Then
GUICtrlSetState($check_05_08, $GUI_CHECKED)
Else
GUICtrlSetState($check_05_08, $GUI_UNCHECKED)
EndIf
Global $label_05_14 = GUICtrlCreateLabel("XML- " & $lng_settings, 380, 250, 350)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_05_11 = GUICtrlCreateLabel($lng_xml_name, 380, 300, 150)
Global $input_05_11 = GUICtrlCreateInput($ini_xml_name, 380, 320, 200, 20)
Global $label_05_12 = GUICtrlCreateLabel($lng_xml_suffix, 380, 360, 150)
Global $check_05_15 = GUICtrlCreateCheckbox($lng_combine_xml, 380, 410, 270)
Global $label_05_13 = GUICtrlCreateLabel("DVB-Viewer - " & $lng_settings, 380, 500, 350)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_05_15 = GUICtrlCreateLabel("XML- Dateien " & $lng_folder, 380, 440, 150)
Global $input_05_15 = GUICtrlCreateInput($ini_xml_folder, 380, 460, 200, 20)
Global $button_05_15 = GUICtrlCreateButton($lng_search, 610, 457, 60)
Global $input_05_16 = GUICtrlCreateInput($ini_xepg_folder, 380, 550, 200, 20)
Global $label_05_16 = GUICtrlCreateLabel($lng_xepg_folder, 380, 530, 150, 15)
Global $button_05_16 = GUICtrlCreateButton($lng_search, 610, 547, 60)
Global $check_05_16 = GUICtrlCreateCheckbox($lng_xepg, 380, 580, 270)
If $ini_combine_xml = "1" Then
GUICtrlSetState($check_05_15, $GUI_CHECKED)
Else
GUICtrlSetState($check_05_15, $GUI_UNCHECKED)
EndIf
If $ini_xepg = "1" Then
GUICtrlSetState($check_05_16, $GUI_CHECKED)
Else
GUICtrlSetState($check_05_16, $GUI_UNCHECKED)
EndIf
Global $label_05_24 = GUICtrlCreateLabel($lng_program & "- " & $lng_settings, 760, 250, 350)
GUICtrlSetFont(-1, 10, 700, 0, "Verdana")
Global $label_05_25 = GUICtrlCreateLabel($lng_language, 760, 300, 150)
Global $combo_05_25 = GUICtrlCreateCombo("----------", 760, 320, 130, 20)
GUICtrlSetData($combo_05_25, "Deutsch|English", $ini_language)
Global $check_05_21 = GUICtrlCreateCheckbox("Debug-Loglevel", 760, 360, 270)
Global $check_05_26 = GUICtrlCreateCheckbox($lng_task, 760, 410, 200)
Global $input_05_21 = GUICtrlCreateInput($ini_task, 760, 440, 150, 20)
Global $button_05_21 = GUICtrlCreateButton($lng_search, 930, 437, 60)
Global $label_05_27 = GUICtrlCreateLabel("Parameter", 760, 470, 150)
Global $input_05_22 = GUICtrlCreateInput($ini_task_parameter, 760, 490, 230, 20)
If $ini_loglevel = "1" Then
GUICtrlSetState($check_05_21, $GUI_CHECKED)
Else
GUICtrlSetState($check_05_21, $GUI_UNCHECKED)
EndIf
If $ini_task_run = "1" Then
GUICtrlSetState($check_05_26, $GUI_CHECKED)
Else
GUICtrlSetState($check_05_26, $GUI_UNCHECKED)
EndIf
Global $pic_05_24 = GUICtrlCreatePic(@ScriptDir & "\Images\Flags\black.jpg", 914, 302, 70, 42)
Global $pic_05_25 = GUICtrlCreatePic($ini_gui_flag, 915, 303, 68, 40)
Global $label_05_01 = GUICtrlCreateLabel($lng_langchange, 835, 530, 150, 60, $SS_RIGHT)
Global $button_05_01 = GUICtrlCreateButton($lng_yes, 905, 583, 80)
GUIStartGroup()
Global $radio_05_11 = GUICtrlCreateRadio($lng_counter, 380, 380, 100, 20)
Global $radio_05_12 = GUICtrlCreateRadio($lng_epgwizard, 500, 380, 100, 20)
If $ini_xml_suffix = "1" Then
GUICtrlSetState($radio_05_11, $GUI_CHECKED)
EndIf
If $ini_xml_suffix = "2" Then
GUICtrlSetState($radio_05_12, $GUI_CHECKED)
EndIf
Dim $Array_GUI_Elements_51[1]
_ArrayAdd($Array_GUI_Elements_51, $button_05_01)
_ArrayAdd($Array_GUI_Elements_51, $button_05_15)
_ArrayAdd($Array_GUI_Elements_51, $button_05_16)
_ArrayAdd($Array_GUI_Elements_51, $button_05_21)
_ArrayAdd($Array_GUI_Elements_51, $check_05_01)
_ArrayAdd($Array_GUI_Elements_51, $check_05_02)
_ArrayAdd($Array_GUI_Elements_51, $check_05_07)
_ArrayAdd($Array_GUI_Elements_51, $check_05_08)
_ArrayAdd($Array_GUI_Elements_51, $check_05_15)
_ArrayAdd($Array_GUI_Elements_51, $check_05_16)
_ArrayAdd($Array_GUI_Elements_51, $check_05_21)
_ArrayAdd($Array_GUI_Elements_51, $check_05_26)
_ArrayAdd($Array_GUI_Elements_51, $combo_05_05)
_ArrayAdd($Array_GUI_Elements_51, $combo_05_25)
_ArrayAdd($Array_GUI_Elements_51, $input_05_06)
_ArrayAdd($Array_GUI_Elements_51, $input_05_11)
_ArrayAdd($Array_GUI_Elements_51, $input_05_15)
_ArrayAdd($Array_GUI_Elements_51, $input_05_16)
_ArrayAdd($Array_GUI_Elements_51, $input_05_21)
_ArrayAdd($Array_GUI_Elements_51, $input_05_22)
_ArrayAdd($Array_GUI_Elements_51, $label_05_00)
_ArrayAdd($Array_GUI_Elements_51, $label_05_01)
_ArrayAdd($Array_GUI_Elements_51, $label_05_04)
_ArrayAdd($Array_GUI_Elements_51, $label_05_05)
_ArrayAdd($Array_GUI_Elements_51, $label_05_06)
_ArrayAdd($Array_GUI_Elements_51, $label_05_07)
_ArrayAdd($Array_GUI_Elements_51, $label_05_11)
_ArrayAdd($Array_GUI_Elements_51, $label_05_12)
_ArrayAdd($Array_GUI_Elements_51, $label_05_13)
_ArrayAdd($Array_GUI_Elements_51, $label_05_14)
_ArrayAdd($Array_GUI_Elements_51, $label_05_15)
_ArrayAdd($Array_GUI_Elements_51, $label_05_16)
_ArrayAdd($Array_GUI_Elements_51, $label_05_24)
_ArrayAdd($Array_GUI_Elements_51, $label_05_25)
_ArrayAdd($Array_GUI_Elements_51, $label_05_27)
_ArrayAdd($Array_GUI_Elements_51, $pic_05_04)
_ArrayAdd($Array_GUI_Elements_51, $pic_05_05)
_ArrayAdd($Array_GUI_Elements_51, $pic_05_24)
_ArrayAdd($Array_GUI_Elements_51, $pic_05_25)
_ArrayAdd($Array_GUI_Elements_51, $radio_05_11)
_ArrayAdd($Array_GUI_Elements_51, $radio_05_12)
#EndRegion
#EndRegion ;Generate Main Windows
#Region ;Show Main Windows
GUICtrlSetData($S_Label02, "Finished Generating Main GUI Window")
_LastModule()
_LastSubModule2()
_LastSubModule3()
_WriteLog("Info - Generated Main Window")
_SiteiniListToDB()
_ReadData_WebGrab_Siteini()
If $ini_tvdatabase = "SQLite" Then _ReadData_Channelname_SQLite()
If $ini_tvdatabase = "MySQL" Then _ReadData_Channelname_MySQL()
If $ini_tvdatabase = "MSSQL" Then _ReadData_Channelname_MSSQL()
If $ini_tvdatabase = "Argus" Then _ReadData_Channelname_Argus()
If $ini_tvdatabase = "NextPVR" Then _ReadData_Channelname_NextPVR()
If $ini_tvdatabase = "DVBV" Then _ReadData_Channelname_DVBV()
_GetChannels_Names_Listview()
_GrabberConfig()
$listitem_31_11 = GUICtrlRead($listview_31_11)
$listitem_32_11 = GUICtrlRead($listview_32_11)
$listitem_33_11 = GUICtrlRead($listview_33_11)
$listitem_34_11 = GUICtrlRead($listview_34_11)
$listitem_35_11 = GUICtrlRead($listview_35_11)
$listitem_36_11 = GUICtrlRead($listview_36_11)
$listitem_37_11 = GUICtrlRead($listview_37_11)
GUISetState(@SW_HIDE, $Splashwindow)
; Test functions here
GUISetState(@SW_SHOW, $Mainwindow)
_WriteLog("Info - Started EPG-Buddy")
_WriteLog("------------------")
_GUI_Main()
#EndRegion ;Show Main Windows
#Region ;Function Declaration
;Function to clean cache
Func _CacheClean()
DirRemove(@ScriptDir & "\EPG-Grabber.Cache",1)
Sleep(200)
DirCreate(@ScriptDir & "\EPG-Grabber.Cache")
EndFunc
;Function to combine Tvguide xml files
Func _Combine_XML()
Local $i, $j, $File, $combined, $combined2, $sFile, $tFile, $uFile, $result, $u1File
Dim $split1[0]
Dim $split2[0]
Dim $split3[0]
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_folder", GUICtrlRead($input_05_15))
_WriteLog("Info - _Combine_XML: Started")
$ini_xml_folder = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_folder", @ScriptDir)
FileDelete($ini_xml_folder & "\" & $ini_xml_name & ".xml")
Sleep(20)
$File = _FileListToArray($ini_xml_folder, "*.xml", 1)
If IsArray($File) Then
$combined = FileOpen($ini_xml_folder & "\Combined.xml", 130)
$combined2 = FileOpen($ini_xml_folder & "\Combined2.xml", 130)
FileWrite($combined, '' & @CRLF & '' & @CRLF & '' & @CRLF)
For $i = 1 To UBound($file) -1
If StringInStr($File[$i], $ini_xml_name) Then
$sFile = FileRead($ini_xml_folder & "\" & $File[$i])
$split1 = StringSplit($sFile, "", "")
$uFile = StringStripWS($u1File, 4)
$result = FileOpen($ini_xml_folder & "\" & $ini_xml_name & ".xml", 130)
FileWrite($result, $tFile & $uFile & "")
FileClose($combined)
FileClose($combined2)
FileClose($result)
FileDelete($ini_xml_folder & "\Combined.xml")
FileDelete($ini_xml_folder & "\Combined2.xml")
EndIf
_WriteLog("Info - _Combine_XML: Finished")
Return
EndFunc
;Function to remove task scheduler entry for automated back-ups
Func _Delete_Schedule()
Local $option
$option = " delete"
ShellExecuteWait(@ScriptDir & "\SetSchedule.exe", $option, "", "", @SW_HIDE)
MsgBox(0, $lng_success, $lng_accomplished, 2)
EndFunc
;Function to check if an array element exists
Func _ElementExists($array, $element)
If $element > UBound($array) - 1 Then Return FALSE ; element is out of the array bounds
Return TRUE ; element is in array bounds
EndFunc ;==>_elementExists
;Function Exit
Func _Exit($mode="0")
_WriteLog("------------------")
_WriteLog("Info - Begin Shuting Down EPG-Buddy")
_GrabberConfig()
_WriteMaxDays_epgData()
_WriteMaxDays_TVGuide()
_Global_E2T()
_SQLite_Close($buddy_db)
_SQLite_Shutdown()
_WriteLog("Info - SQlite Shut Down")
_SaveSettings()
_WriteLog("Info - Saved Settings")
If $ini_cacheclean = 1 Then _CacheClean()
_WriteLog("Info - Shutting Down EPG-Buddy")
If $mode = "1" Then
_Restart()
Else
Exit
EndIf
EndFunc
;Function to read Channel Names into listview
Func _GetChannels_Names_Listview()
Local $i
GUICtrlSetData($listview_31_11, "")
For $i = 1 To UBound($channel_array) - 1
GUICtrlSetData($listview_31_11, $channel_array[$i][0])
Next
GUICtrlSetData($listview_33_11, "")
For $i = 1 To UBound($channel_array3) - 1
GUICtrlSetData($listview_33_11, $channel_array3[$i][0])
Next
GUICtrlSetData($listview_34_11, "")
For $i = 1 To UBound($channel_array4) - 1
GUICtrlSetData($listview_34_11, $channel_array4[$i][0])
Next
GUICtrlSetData($listview_35_11, "")
For $i = 1 To UBound($channel_array5) - 1
GUICtrlSetData($listview_35_11, $channel_array5[$i][0])
Next
GUICtrlSetData($listview_36_11, "")
For $i = 1 To UBound($channel_array6) - 1
GUICtrlSetData($listview_36_11, $channel_array6[$i][0])
Next
GUICtrlSetData($listview_37_11, "")
For $i = 1 To UBound($channel_array7) - 1
GUICtrlSetData($listview_37_11, $channel_array7[$i][0])
Next
EndFunc
;Function to read selected Combo Item
Func _GetComboWebGrab()
Local $item
$item = GUICtrlRead($combo_32_11)
If $comboitem_32_11 = $item Then
Return
Else
$comboitem_32_11 = $item
If $item <> "----------" Then _SetList_WebGrab($item)
Return
EndIf
EndFunc
;Function to Grab EPG manually
Func _GetEPG()
Local $user, $i = 1, $fle_hwnd, $suffix, $counter, $string, $string1
Local $split, $Drive, $Dir, $Filename, $Extension
Local $i, $j, $query, $array, $Rows, $Columns, $Rval
_GrabberConfig()
_WriteMaxDays_epgData()
_WriteMaxDays_TVGuide()
_Global_E2T()
If GUICtrlRead($check_23_01) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvspielfilm", GUICtrlRead($check_23_01))
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:TVSpielfilm --grab_epg --create_xml --run_e2t", @ScriptDir, "", @SW_SHOW)
Sleep (250)
EndIf
If GUICtrlRead($check_21_01) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_webgrab", GUICtrlRead($check_21_01))
ShellExecuteWait(@ScriptDir & "\WebGrab+Plus.exe", '"' & @ScriptDir & '\WebGrab"', @ScriptDir, "", @SW_SHOW)
Sleep (250)
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:URL --run_e2t", @ScriptDir, "", @SW_SHOW)
Sleep (250)
EndIf
If GUICtrlRead($check_23_03) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_epgdata", GUICtrlRead($check_23_03))
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:epgData --grab_epg --create_xml --run_e2t", @ScriptDir, "", @SW_SHOW)
Sleep (250)
EndIf
If GUICtrlRead($check_23_02) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_clickfinder", GUICtrlRead($check_23_02))
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:clickfinder --grab_epg --create_xml --run_e2t", @ScriptDir, "", @SW_SHOW)
Sleep (250)
EndIf
If GUICtrlRead($check_24_01) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvguide", GUICtrlRead($check_24_01))
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:tvguide --grab_epg --create_xml --run_e2t", @ScriptDir, "", @SW_SHOW)
Sleep (250)
EndIf
If GUICtrlRead($check_21_11) = 1 Or GUICtrlRead($check_23_04) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_xml", GUICtrlRead($check_21_11))
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--epg_from:url --grab_epg --create_xml --run_e2t", @ScriptDir, "", @SW_SHOW)
Sleep (250)
EndIf
If GUICtrlRead($check_23_01) = 1 Then
If $ini_xml_suffix = "1" Then
$counter = $counter + 1
$suffix = "_" & $counter
Else
$suffix = "_TVSpielfilm"
EndIf
FileCopy(@ScriptDir & "\EPG-Grabber.TVSpielfilm.xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9)
EndIf
If GUICtrlRead($check_21_01) = 1 Then
If $ini_xml_suffix = "1" Then
$counter = $counter + 1
$suffix = "_" & $counter
Else
$suffix = "_WebGrab"
EndIf
FileCopy(@ScriptDir & "\EPG-Grabber.URL.XML_0.xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9)
EndIf
If GUICtrlRead($check_23_03) = 1 Then
If $ini_xml_suffix = "1" Then
$counter = $counter + 1
$suffix = "_" & $counter
Else
$suffix = "_epgData"
EndIf
FileCopy(@ScriptDir & "\EPG-Grabber.epgData.xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9)
EndIf
If GUICtrlRead($check_23_02) = 1 Then
If $ini_xml_suffix = "1" Then
$counter = $counter + 1
$suffix = "_" & $counter
Else
$suffix = "_ClickFinder"
EndIf
FileCopy(@ScriptDir & "\EPG-Grabber.ClickFinder.xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9)
EndIf
If GUICtrlRead($check_23_04) = 1 Then
$query = 'SELECT DESCRIPTION FROM EPG_GRABBER_MULTIPLE_PROVIDER WHERE DESCRIPTION LIKE "RYTEC|%";'
$Rval = _SQLite_GetTable($buddy_db, $query, $array, $Rows, $Columns)
For $i = 2 To UBound($array) - 1
$string = StringReplace($array[$i], "RYTEC|", "")
$string1 = StringReplace($string, "|", "_")
$string = StringReplace($string1, "/", "_")
$string1 = StringStripWS($string, 4)
If $ini_xml_suffix = "1" Then
$counter = $counter + 1
$suffix = "_" & $counter
Else
$suffix = "_Rytec_" & $i - 1
EndIf
FileCopy(@ScriptDir & "\EPG-Grabber.URL." & $string1 & ".xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9)
Next
EndIf
If GUICtrlRead($check_24_01) = 1 Then
$user= StringSplit(GUICtrlRead($password_24_01), @CRLF, $STR_ENTIRESPLIT)
If $user[0] > 0 And Not $user[1] = "" Then
For $i = 1 to $user[0]
If $ini_xml_suffix = "1" Then
$counter = $counter + 1
$suffix = "_" & $counter
Else
$suffix = "_TVGUIDE_" & $i
EndIf
FileCopy(@ScriptDir & "\EPG-Grabber.TVGuide.TVGUIDE_" & $i & ".xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9)
Next
EndIf
EndIf
If GUICtrlRead($check_21_11) = 1 Then
$user= StringSplit(GUICtrlRead($password_21_11), @CRLF, $STR_ENTIRESPLIT)
If $user[0] > 0 And Not $user[1] = "" Then
For $i = 1 to $user[0]
If $ini_xml_suffix = "1" Then
$counter = $counter + 1
$suffix = "_" & $counter
Else
$suffix = "_External_" & $i
EndIf
FileCopy(@ScriptDir & "\EPG-Grabber.URL.XML_" & $i & ".xml", $ini_xml_folder & "\" & $ini_xml_name & $suffix & ".xml", 9)
Next
EndIf
EndIf
If $ini_combine_xml = "1" Then
_Combine_XML()
EndIf
If $ini_task_run = "1" Then
$split = _PathSplit($ini_task, $Drive, $Dir, $Filename, $Extension)
ShellExecuteWait($ini_task, $ini_task_parameter, $Drive & $Dir, "", @SW_SHOW)
EndIf
If $ini_xepg = "1" Then
ShellExecuteWait($ini_xepg_folder, "-xGrabThenImport", $Drive & $Dir, "", @SW_SHOW)
EndIf
EndFunc
;Function to read selected List Item
Func _GetListTVSpielfilm()
If $listitem_31_11 = GUICtrlRead($listview_31_11) Then
Return
Else
If $listitem_31_11 <> "" Then _WriteData_Channel_31($listitem_31_11)
$listitem_31_11 = GUICtrlRead($listview_31_11)
_SetData_Channel_31($listitem_31_11)
Return
EndIf
EndFunc
;Function to read selected List Item
Func _GetListWebGrab()
If $showitem_32_11 = 0 Then Return
If $listitem_32_11 = GUICtrlRead($listview_32_11) Then
Return
Else
$showitem_32_11 = 1
If $listitem_32_11 <> "" Then _WriteData_Channel_32($listitem_32_11)
$listitem_32_11 = GUICtrlRead($listview_32_11)
_SetData_Channel_32($listitem_32_11)
EndIf
Return
EndFunc
;Function to read selected List Item
Func _GetListRytec()
If $listitem_37_11 = GUICtrlRead($listview_37_11) Then
Return
Else
If $listitem_37_11 <> "" Then _WriteData_Channel_37($listitem_37_11)
$listitem_37_11 = GUICtrlRead($listview_37_11)
_SetData_Channel_37($listitem_37_11)
Return
EndIf
EndFunc
;Function to read selected List Item
Func _GetListEpgData()
If $listitem_33_11 = GUICtrlRead($listview_33_11) Then
Return
Else
If $listitem_33_11 <> "" Then _WriteData_Channel_33($listitem_33_11)
$listitem_33_11 = GUICtrlRead($listview_33_11)
_SetData_Channel_33($listitem_33_11)
Return
EndIf
EndFunc
;Function to read selected List Item
Func _GetListClickfinder()
If $listitem_34_11 = GUICtrlRead($listview_34_11) Then
Return
Else
If $listitem_34_11 <> "" Then _WriteData_Channel_34($listitem_34_11)
$listitem_34_11 = GUICtrlRead($listview_34_11)
_SetData_Channel_34($listitem_34_11)
Return
EndIf
EndFunc
;Function to read selected List Item
Func _GetListTVGuide()
If $listitem_35_11 = GUICtrlRead($listview_35_11) Then
Return
Else
If $listitem_35_11 <> "" Then _WriteData_Channel_35($listitem_35_11)
$listitem_35_11 = GUICtrlRead($listview_35_11)
_SetData_Channel_35($listitem_35_11)
Return
EndIf
EndFunc
;Function to read selected List Item
Func _GetListXML()
If $listitem_36_11 = GUICtrlRead($listview_36_11) Then
Return
Else
If $listitem_36_11 <> "" Then _WriteData_Channel_36($listitem_36_11)
$listitem_36_11 = GUICtrlRead($listview_36_11)
_SetData_Channel_36($listitem_36_11)
Return
EndIf
EndFunc
;Function to read recent Time
Func _GetTime()
Local $newtime = @HOUR & ":" & @MIN
If $newtime = $Clock Then
Return
Else
$Clock = $newtime
GUICtrlSetData($Label03, $newtime)
Return
EndIf
EndFunc
;Function to set Global E2T Option
Func _Global_E2T()
Local $fle_hwnd, $Rval, $query, $array, $Rows, $Columns, $i
If GUICtrlRead($check_31_01) = 1 Then
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
For $i = 1 To UBound($channel_array) - 1
_SQLite_Exec($buddy_db, 'UPDATE TVSPIELFILM_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $channel_array[$i][0] & '" ;')
Next
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
EndIf
If GUICtrlRead($check_32_01) = 1 Then
$query = 'SELECT NAME FROM WEBGRAB_CHANNELS ;'
$Rval = _SQLite_GetTable2D($buddy_db, $query, $array, $Rows, $Columns)
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
For $i = 0 To UBound($array) - 1
_SQLite_Exec($buddy_db, 'UPDATE WEBGRAB_CHANNELS SET RUN_E2T = "FALSE" ;')
_SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $array[$i][0] & '" ;')
Next
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
EndIf
If GUICtrlRead($check_33_01) = 1 Then
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
For $i = 1 To UBound($channel_array3) - 1
_SQLite_Exec($buddy_db, 'UPDATE EPGDATA_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $channel_array3[$i][0] & '" ;')
Next
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
EndIf
If GUICtrlRead($check_34_01) = 1 Then
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
For $i = 1 To UBound($channel_array4) - 1
_SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $channel_array4[$i][0] & '" ;')
Next
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
EndIf
If GUICtrlRead($check_35_01) = 1 Then
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
For $i = 1 To UBound($channel_array5) - 1
_SQLite_Exec($buddy_db, 'UPDATE TVGuide_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $channel_array5[$i][0] & '" ;')
Next
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
EndIf
If GUICtrlRead($check_36_01) = 1 Then
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
For $i = 1 To UBound($channel_array6) - 1
_SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET RUN_E2T = "FALSE" WHERE NAME = "' & $channel_array6[$i][0] & '" ;')
Next
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
EndIf
EndFunc
;Function to write EPG-Grabber config
Func _GrabberConfig()
Local $user, $pass, $i, $path, $user1, $pass1
Local $query, $array, $Rows, $Columns, $i, $Rval
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_epgdata", GUICtrlRead($password_23_03))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_plot_override", GUICtrlRead($check_05_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_series_override", GUICtrlRead($check_05_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvspielfilm", GUICtrlRead($check_23_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_webgrab", GUICtrlRead($check_21_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_xml", GUICtrlRead($check_21_11))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_epgdata", GUICtrlRead($check_23_03))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_clickfinder", GUICtrlRead($check_23_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_mapping", GUICtrlRead($check_05_07))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_database_clickfinder", GUICtrlRead($input_23_02))
; IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_combine", GUICtrlRead($input_31_02))
; IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_do_combine_tvspielfilm", GUICtrlRead($check_31_02))
; IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_do_combine_epgdata", GUICtrlRead($check_33_02))
; IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_do_combine_clickfinder", GUICtrlRead($check_34_02))
;~ _SQLite_Exec($buddy_db, "DROP TABLE If Exists EPG_GRABBER_COMBINED_CHANNELS ;")
;~ _SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS EPG_GRABBER_COMBINED_CHANNELS(PROVIDER TEXT, NAME TEXT, CHANNELS TEXT, OFFSET INT DEFAULT 0, CHANNEL TEXT) ;")
; If $ini_do_combine_tvspielfilm = 1 Then
; _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_COMBINED_CHANNELS (PROVIDER, NAME, CHANNELS, OFFSET, CHANNEL) VALUES ("TVSpielfilm", "' & $ini_combine & '", "VIVAÿCC", 0, "VIVA_CC") ;')
; EndIf
; If $ini_do_combine_epgdata = 1 Then
; _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_COMBINED_CHANNELS (PROVIDER, NAME, CHANNELS, OFFSET, CHANNEL) VALUES ("epgData", "' & $ini_combine & '", "VIVAÿCC", 0, "VIVA_CC") ;')
; EndIf
; If $ini_do_combine_clickfinder = 1 Then
; _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_COMBINED_CHANNELS (PROVIDER, NAME, CHANNELS, OFFSET, CHANNEL) VALUES ("ClickFinder", "' & $ini_combine & '", "VIVAÿCC", 0, "VIVA_CC") ;')
; EndIf
_SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "' & GUICtrlRead($input_23_02) & '" WHERE SETTING LIKE "ClickFinder_Database" ;')
_SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "' & GUICtrlRead($password_23_03) & '" WHERE SETTING LIKE "Keys.PIN_epgData" ;')
_SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "' & GUICtrlRead($combo_05_05) & '" WHERE SETTING LIKE "Language" ;')
$user= StringSplit(GUICtrlRead($password_24_01), @CRLF, $STR_ENTIRESPLIT)
$pass= StringSplit(GUICtrlRead($password_24_02), @CRLF, $STR_ENTIRESPLIT)
$path= StringSplit(GUICtrlRead($password_21_11), @CRLF, $STR_ENTIRESPLIT)
$user1= StringSplit(GUICtrlRead($password_21_02), @CRLF, $STR_ENTIRESPLIT)
$pass1= StringSplit(GUICtrlRead($password_21_03), @CRLF, $STR_ENTIRESPLIT)
If GUICtrlRead($check_24_01) = 1 Then
If $user[0] > 0 And Not $user[1] = "" Then
For $i = 1 to $user[0]
_SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_MULTIPLE_PROVIDER (PROVIDER, USERNAME, PASSWORD, DESCRIPTION) VALUES ("TVGUIDE", "' & $user[$i] & '", "' & $pass[$i] & '", "TVGUIDE_' & $i & '") ;')
Next
EndIf
EndIf
If GUICtrlRead($check_21_01) = 1 Then
$query = 'SELECT DESCRIPTION FROM EPG_GRABBER_MULTIPLE_PROVIDER WHERE DESCRIPTION LIKE "XML_0" ;'
$Rval = _SQLite_GetTable($buddy_db, $query, $array, $Rows, $Columns)
If $Rows < 1 Then _SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_MULTIPLE_PROVIDER (PROVIDER, DESCRIPTION) VALUES ("'& @ScriptDir & '\EPG-Grabber.URL.XML_0.xml", "XML_0") ;')
EndIf
If GUICtrlRead($check_21_11) = 1 Then
If $path[0] > 0 And Not $path[1] = "" Then
For $i = 1 to $path[0]
_SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO EPG_GRABBER_MULTIPLE_PROVIDER (PROVIDER, USERNAME, PASSWORD, DESCRIPTION) VALUES ("' & $path[$i] & '", "' & $user1[$i] & '", "' & $pass1[$i] & '", "XML_' & $i & '") ;')
Next
EndIf
EndIf
If GUICtrlRead($check_23_04) = 1 Then
Else
_SQLite_Exec($buddy_db, 'DELETE FROM EPG_GRABBER_MULTIPLE_PROVIDER WHERE DESCRIPTION LIKE "RYTEC|%" ;')
EndIf
If GUICtrlRead($check_05_01) = 1 Then
_SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "TRUE" WHERE SETTING LIKE "Overwrite_Plot" ;')
Else
_SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "FALSE" WHERE SETTING LIKE "Overwrite_Plot" ;')
EndIf
If GUICtrlRead($check_05_02) = 1 Then
_SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "TRUE" WHERE SETTING LIKE "Overwrite_Serie_and_Episode" ;')
Else
_SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "FALSE" WHERE SETTING LIKE "Overwrite_Serie_and_Episode" ;')
EndIf
If GUICtrlRead($check_05_07) = 1 Then
_SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "TRUE" WHERE SETTING LIKE "Use_Genre_Mapping" ;')
Else
_SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "FALSE" WHERE SETTING LIKE "Use_Genre_Mapping" ;')
EndIf
EndFunc
;Function to select last used module
Func _LastModule()
$ini_lastmodule = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "1")
Select
Case $ini_lastmodule = "1"
_GUI_Show_TV_Settings()
Case $ini_lastmodule = "2"
_LastSubModule2()
Case $ini_lastmodule = "3"
_LastSubModule3()
Case $ini_lastmodule = "4"
_GUI_Show_Schedule_Settings()
Case $ini_lastmodule = "5"
_GUI_Show_Settings()
EndSelect
EndFunc
;Function to select last used sub module for EPG Settings View
Func _LastSubModule2()
$ini_lastmodule = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "1")
$ini_lastsubmodule2 = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule2", "21")
If $ini_lastmodule = "2" Then
Select
Case $ini_lastsubmodule2 = "21"
_GUI_Show_EPG_Settings_International()
Case $ini_lastsubmodule2 = "23"
_GUI_Show_EPG_Settings_Europe()
Case $ini_lastsubmodule2 = "24"
_GUI_Show_EPG_Settings_America()
EndSelect
EndIf
EndFunc
;Function to select last used sub module for EPG Data View
Func _LastSubModule3()
$ini_lastmodule = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "1")
$ini_lastsubmodule3 = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "31")
If $ini_lastmodule = "3" Then
Select
Case $ini_lastsubmodule3 = "31"
_GUI_Show_EPG_Data_TVSpielfilm()
Case $ini_lastsubmodule3 = "32"
_GUI_Show_EPG_Data_WebGrab()
Case $ini_lastsubmodule3 = "33"
_GUI_Show_EPG_Data_epgData()
Case $ini_lastsubmodule3 = "35"
_GUI_Show_EPG_Data_tvguide()
Case $ini_lastsubmodule3 = "34"
_GUI_Show_EPG_Data_clickfinder()
Case $ini_lastsubmodule3 = "36"
_GUI_Show_EPG_Data_xml()
Case $ini_lastsubmodule3 = "37"
_GUI_Show_EPG_Data_Rytec()
EndSelect
EndIf
EndFunc
;Function to create schedule XML file
Func _MakeXML()
Local $xml, $file, $type
_WriteLog("Info - MakeXML: Started")
If GUICtrlRead($radio_41_01) = 1 Then $type = "1.4"
If GUICtrlRead($radio_41_02) = 1 Then $type = "1.2"
$xml = '' & @CRLF & '' & @CRLF & ""& @CRLF & ""
$xml = $xml & @YEAR & "-" & @MON & "-" & @MDAY & "T" & @HOUR & ":" & @MIN & ":" & @SEC & "" & @CRLF & "EPG-Buddy" & @CRLF & "Task for automated EPG download by EPG-Buddy" & @CRLF
$xml = $xml & "\EPG-Buddy" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & ""
$xml = $xml & @YEAR & "-" & @MON & "-" & @MDAY & "T" & GUICtrlRead($input_41_11) & ":00" & "" & @CRLF & "true" & @CRLF
$xml = $xml & "" & @CRLF & "" & @CRLF
If GUICtrlRead($check_41_07) = "1" Then $xml = $xml & "" & @CRLF
If GUICtrlRead($check_41_01) = "1" Then $xml = $xml & "" & @CRLF
If GUICtrlRead($check_41_02) = "1" Then $xml = $xml & "" & @CRLF
If GUICtrlRead($check_41_03) = "1" Then $xml = $xml & "" & @CRLF
If GUICtrlRead($check_41_04) = "1" Then $xml = $xml & "" & @CRLF
If GUICtrlRead($check_41_05) = "1" Then $xml = $xml & "" & @CRLF
If GUICtrlRead($check_41_06) = "1" Then $xml = $xml & "" & @CRLF
$xml = $xml & "" & @CRLF & "1" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF
$xml = $xml & "" & @CRLF & "IgnoreNew" & @CRLF & "true" & @CRLF & "true" & @CRLF & "true" & @CRLF & ""
If GUICtrlRead($check_41_12) = 1 Then
$xml = $xml & "true"
Else
$xml = $xml & "false"
EndIf
$xml = $xml & "" & @CRLF & "false" & @CRLF & "" & @CRLF & "true" & @CRLF & "false" & @CRLF & "" & @CRLF
$xml = $xml & "true" & @CRLF & "true" & @CRLF & "false" & @CRLF & ""
If GUICtrlRead($check_41_13) = 1 Then
$xml = $xml & "true"
Else
$xml = $xml & "false"
EndIf
$xml = $xml & "" & @CRLF & ""
If GUICtrlRead($check_41_11) = 1 Then
$xml = $xml & "true"
Else
$xml = $xml & "false"
EndIf
$xml = $xml & "" & @CRLF & "PT72H" & @CRLF & "7" & @CRLF & "" & @CRLF & "PT5M" & @CRLF & "3" & @CRLF & "" & @CRLF
$xml = $xml & "" & @CRLF & '' & @CRLF & "" & @CRLF & "" & @CRLF
$xml = $xml & '"' & @ScriptDir & '\Grab-EPG.exe"' & @CRLF & "" & @CRLF & "" & @CRLF & ""
$file = FileOpen(@ScriptDir & "\Grab-EPG.xml",42)
FileWrite($file, $xml)
FileClose($file)
_WriteLog("Info - MakeXML: Finished")
EndFunc
;Function to Read Channel from SQLite to Combo
Func _ReadData_Channelname_SQLite()
_WriteLog("Info - Read Available Channels from MP2 SQLite: Started")
Local $tvdb, $query, $array, $Rows, $Columns, $i, $Rval
Local $iFileExists = FileExists($ini_tv_database_MP2)
If $iFileExists Then
$tvdb = _SQLite_Open($ini_tv_database_MP2)
$query = 'SELECT channel.displayName, groupmap.idGroup, groupmap.idChannel FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel WHERE channelgroup.groupName NOT LIKE "All Channels" ORDER BY UPPER(channel.displayName) ;'
$Rval = _SQLite_GetTable2d($tvdb, $query, $array, $Rows, $Columns)
_WriteLog("Info - Read Channel Names from TVE Database")
If Ubound($array) = 1 Then
$query = 'SELECT channel.displayName, groupmap.idGroup, groupmap.idChannel FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel ORDER BY UPPER(channel.displayName) ;'
$Rval = _SQLite_GetTable2d($tvdb, $query, $array, $Rows, $Columns)
EndIf
_ArraySort($array)
For $i = 1 to Ubound($array) - 1
If $array[$i][0] = "displayName" Then
Else
GUICtrlSetData($combo_31_21, $array[$i][0], "----------")
GUICtrlSetData($combo_32_21, $array[$i][0], "----------")
GUICtrlSetData($combo_33_21, $array[$i][0], "----------")
GUICtrlSetData($combo_34_21, $array[$i][0], "----------")
GUICtrlSetData($combo_35_21, $array[$i][0], "----------")
GUICtrlSetData($combo_36_21, $array[$i][0], "----------")
GUICtrlSetData($combo_37_21, $array[$i][0], "----------")
EndIf
Next
_SQLite_Close($ini_tv_database_MP2)
EndIf
_WriteLog("Info - Read Available Channels from MP2 SQLite: Finished")
Return
EndFunc
;Function to Read Channelfrom MySQL to Combo
Func _ReadData_Channelname_MySQL()
_WriteLog("Info - Read Available Channels from MySQL: Started")
Local $tvdb, $query, $array, $rows, $fields, $i, $Rval, $MysqlConn, $connected, $errno, $res
Local $ChanGroupCount, $ChanGroupCountQuery, $ChanGroupCountQueryResult, $ChanGroupCountStoreResult, $ChanGroupCountFetchResult
; MYSQL start
_MySQL_InitLibrary()
If @error Then
MsgBox($MB_SYSTEMMODAL, "MySQL Error", "No libmysql.dll found")
Exit -1
EndIf
$MysqlConn = _MySQL_Init()
$ini_tv_database_MySQL_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_server", @ComputerName)
$ini_tv_database_MySQL_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_user", "root")
$ini_tv_database_MySQL_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_pass", "MediaPortal")
$connected = _MySQL_Real_Connect($MysqlConn, $ini_tv_database_MySQL_server, $ini_tv_database_MySQL_user, $ini_tv_database_MySQL_pass, "MpTvDb")
If $connected = 0 Then
$errno = _MySQL_errno($MysqlConn)
MsgBox(0,"Error:",$errno & @LF & _MySQL_error($MysqlConn), 2)
Return -1
Endif
; -> ====================================== add-on by MausWiesel ====================================
;reset channel group counter
$ChanGroupCount = 0
;set query for examining channel group count
$ChanGroupCountQuery = 'SELECT COUNT(*) FROM channelgroup ;'
;execute query for examining channel group count
$ChanGroupCountQueryResult = _MySQL_Real_Query($MysqlConn, $ChanGroupCountQuery)
;check, whether query execution failed
If ($ChanGroupCountQueryResult <> 0) Then
;put line with error information to logfile
_WriteLog("Error - executing MySQL query for examining channel group count failed (result: " & $ChanGroupCountQueryResult & ")")
Else
;put line with debug information to logfile
If $ini_loglevel = 1 Then _WriteLog("Debug - executing MySQL query for examining channel group count succeeded (result: " & $ChanGroupCountQueryResult & ")")
;store result from channel group count query
$ChanGroupCountStoreResult = _MySQL_Store_Result($MysqlConn)
;check, whether storing result failed
If ($ChanGroupCountStoreResult = 0) Then
;put line with error information to logfile
_WriteLog("Error - storing MySQL result for examining channel group count failed (result: " & $ChanGroupCountStoreResult & ")")
Else
;put line with debug information to logfile
If $ini_loglevel = 1 Then _WriteLog("Debug - storing MySQL result for examining channel group count succeeded (result: " & $ChanGroupCountStoreResult & ")")
;fetch result from channel group count query
$ChanGroupCountFetchResult = _MySQL_Fetch_Result_StringArray($ChanGroupCountStoreResult)
;get channel group count
$ChanGroupCount = $ChanGroupCountFetchResult[1][0]
;put line with message information to logfile
_WriteLog("Info - " & $ChanGroupCount & " channel groups detected in MySQL")
;free result from channel group count query
_MySQL_Free_Result($ChanGroupCountStoreResult)
EndIf
EndIf
;check, whether at least 1 channel exists
If ($ChanGroupCount < 1) Then
;put line with message information to logfile
_WriteLog("Error - no channel group detected, application will be shut down")
;exit appliction
Exit -1
Else
;check, whether more than 1 channel group exists
If ($ChanGroupCount > 1) Then
;set query without channel group "All Channels"
$query = 'SELECT groupmap.idGroup, groupmap.idChannel, channel.displayName FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel WHERE channelgroup.groupName NOT LIKE "All Channels" ORDER BY UPPER(channel.displayName) ;'
Else
;~ ;show message box, where user can decide to abort (NO) or to proceed (YES)
;~ $MbResult = MsgBox($MB_YESNO + $MB_ICONINFORMATION + $MB_TOPMOST, "MySQL hint", "Only 1 channel group detected in MySQL database." & @LF & "Too many channels in 1 group can slow down application." & @LF & "Proceed anyway?", 2)
;~ ;check, whether user pressed button "NO"
;~ If ($MbResult = $IDNO) Then
;~ ;put line with message information to logfile
;~ _WriteLog("Info - user aborts appliction, after only 1 channel group was detected")
;~ ;exit appliction
;~ Exit 0
;~ Else
;set query with (the only one) channel group "All Channels"
$query = 'SELECT groupmap.idGroup, groupmap.idChannel, channel.displayName FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel ORDER BY UPPER(channel.displayName) ;'
;~ EndIf
EndIf
EndIf
; <- ====================================== add-on by MausWiesel ====================================
_MySQL_Real_Query($MysqlConn, $query)
$res = _MySQL_Store_Result($MysqlConn)
$fields = _MySQL_Num_Fields($res)
$rows = _MySQL_Num_Rows($res)
_WriteLog("Info - " & $rows & " channels read from MySQL")
$array = _MySQL_Fetch_Result_StringArray($res)
;old sorting (till 04.03.2022)
;_ArraySort($array)
;new sorting in 2nd column (= channel name)
_ArraySort($array, 0, 0, 0, 2)
;old: For $i = 1 to $rows
;new: loop start/end modified
For $i = 0 to ($rows-1)
;exclude query result header data row
If ($array[$i][0] <> "idGroup") And ($array[$i][1] <> "idChannel") And ($array[$i][2] <> "displayName") Then
GUICtrlSetData($combo_31_21, $array[$i][2], "----------")
GUICtrlSetData($combo_32_21, $array[$i][2], "----------")
GUICtrlSetData($combo_33_21, $array[$i][2], "----------")
GUICtrlSetData($combo_34_21, $array[$i][2], "----------")
GUICtrlSetData($combo_35_21, $array[$i][2], "----------")
GUICtrlSetData($combo_36_21, $array[$i][2], "----------")
GUICtrlSetData($combo_37_21, $array[$i][2], "----------")
EndIf
Next
_MySQL_Free_Result($res)
; Shutdown MySQL
_MySQL_Close($MysqlConn)
_MySQL_EndLibrary()
_WriteLog("Info - Read Available Channels from MySQL: Finished")
Return
EndFunc
;Function to Read Channel from MSSQL to Combo; thanks to Toddy
Func _ReadData_Channelname_MSSQL()
_WriteLog("Info - Read Available Channels from MSSQL: Started")
Local $query, $array, $array1, $i, $MssqlConn
; MSSQL start
$ini_tv_database_MSSQL_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_server", @ComputerName)
$ini_tv_database_MSSQL_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_user", "sa")
$ini_tv_database_MSSQL_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_pass", "MediaPortal")
_MSSQL_Errorhandler(3,@ScriptDir & '\Log\MSSQL-Error.log')
$MssqlConn = _MSSQL_Con($ini_tv_database_MSSQL_server, $ini_tv_database_MSSQL_user, $ini_tv_database_MSSQL_pass, "MpTvDb")
If @error Then
MsgBox($MB_SYSTEMMODAL, "MSSQL Error", "Connection failed (look at " & @ScriptDir & "\Log\MSSQL-Error.log)")
Exit -1
EndIf
$query = "SELECT groupmap.idGroup, groupmap.idChannel, channel.displayName FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel WHERE channelgroup.groupName NOT LIKE 'All Channels' ORDER BY UPPER(channel.displayName) ;"
$array = (_MSSQL_Query($MssqlConn, $query)).getrows
_ArraySort($array)
If Ubound($array) < 1 Then
$query = "SELECT groupmap.idGroup, groupmap.idChannel, channel.displayName FROM groupmap INNER JOIN channelgroup on groupmap.idGroup = channelgroup.idGroup INNER JOIN channel On groupmap.idChannel = channel.idChannel ORDER BY UPPER(channel.displayName) ;"
$array1 = (_MSSQL_Query($MssqlConn, $query)).getrows
_ArraySort($array1)
For $i = 0 to (UBOUND($array1)-1)
GUICtrlSetData($combo_31_21, $array1[$i][2], "----------")
GUICtrlSetData($combo_32_21, $array1[$i][2], "----------")
GUICtrlSetData($combo_33_21, $array1[$i][2], "----------")
GUICtrlSetData($combo_34_21, $array1[$i][2], "----------")
GUICtrlSetData($combo_35_21, $array1[$i][2], "----------")
GUICtrlSetData($combo_36_21, $array1[$i][2], "----------")
GUICtrlSetData($combo_37_21, $array1[$i][2], "----------")
Next
Else
For $i = 0 to (UBOUND($array)-1)
GUICtrlSetData($combo_31_21, $array[$i][2], "----------")
GUICtrlSetData($combo_32_21, $array[$i][2], "----------")
GUICtrlSetData($combo_33_21, $array[$i][2], "----------")
GUICtrlSetData($combo_34_21, $array[$i][2], "----------")
GUICtrlSetData($combo_35_21, $array[$i][2], "----------")
GUICtrlSetData($combo_36_21, $array[$i][2], "----------")
GUICtrlSetData($combo_37_21, $array[$i][2], "----------")
Next
EndIf
; Shutdown MSSQL
_MSSQL_End($MssqlConn)
_WriteLog("Info - Read Available Channels from MSSQL: Finished")
Return
EndFunc
;Function to Read Channelfrom Argus to Combo
Func _ReadData_Channelname_Argus()
_WriteLog("Info - Read Available Channels from Argus: Started")
Local $tvdb, $query, $array, $rows, $fields, $i, $Rval, $MysqlConn, $connected, $errno, $res
Local $ChanGroupCount, $ChanGroupCountQuery, $ChanGroupCountQueryResult, $ChanGroupCountStoreResult, $ChanGroupCountFetchResult
; MYSQL start
_MySQL_InitLibrary()
If @error Then
MsgBox($MB_SYSTEMMODAL, "MySQL Error", "No libmysql.dll found")
Exit -1
EndIf
$MysqlConn = _MySQL_Init()
$ini_tv_database_MySQL_server = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_server", @ComputerName)
$ini_tv_database_MySQL_user = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_user", "root")
$ini_tv_database_MySQL_pass = IniRead(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_pass", "MediaPortal")
$connected = _MySQL_Real_Connect($MysqlConn, $ini_tv_database_Argus_server, $ini_tv_database_Argus_user, $ini_tv_database_Argus_pass, "argustv")
If $connected = 0 Then
$errno = _MySQL_errno($MysqlConn)
MsgBox(0,"Error:",$errno & @LF & _MySQL_error($MysqlConn), 2)
Return -1
Endif
$query = "Select DisplayName from channel Order by DisplayName asc"
_MySQL_Real_Query($MysqlConn, $query)
$res = _MySQL_Store_Result($MysqlConn)
$fields = _MySQL_Num_Fields($res)
$rows = _MySQL_Num_Rows($res)
_WriteLog("Info - " & $rows & " channels read from Argus")
$array = _MySQL_Fetch_Result_StringArray($res)
_ArraySort($array)
For $i = 1 to $rows
GUICtrlSetData($combo_31_21, $array[$i][0], "----------")
GUICtrlSetData($combo_32_21, $array[$i][0], "----------")
GUICtrlSetData($combo_33_21, $array[$i][0], "----------")
GUICtrlSetData($combo_34_21, $array[$i][0], "----------")
GUICtrlSetData($combo_35_21, $array[$i][0], "----------")
GUICtrlSetData($combo_36_21, $array[$i][0], "----------")
GUICtrlSetData($combo_37_21, $array[$i][0], "----------")
Next
_MySQL_Free_Result($res)
; Shutdown MySQL
_MySQL_Close($MysqlConn)
_MySQL_EndLibrary()
_WriteLog("Info - Read Available Channels from Argus: Finished")
Return
EndFunc
;Function to Read Channel from NextPVR to Combo
Func _ReadData_Channelname_NextPVR()
_WriteLog("Info - Read Available Channels from NextPVR: Started")
Local $tvdb, $query, $array, $Rows, $Columns, $i, $Rval
Local $iFileExists = FileExists($ini_tv_database_NPVR)
If $iFileExists Then
$tvdb = _SQLite_Open($ini_tv_database_NPVR)
$query = 'SELECT name FROM CHANNEL WHERE epg_source NOT LIKE "None" ORDER BY UPPER(name) ;'
$Rval = _SQLite_GetTable($tvdb, $query, $array, $Rows, $Columns)
_WriteLog("Info - Read Channel Names from NextPVR Database")
For $i = 2 to Ubound($array) - 1
GUICtrlSetData($combo_31_21, $array[$i], "----------")
GUICtrlSetData($combo_32_21, $array[$i], "----------")
GUICtrlSetData($combo_33_21, $array[$i], "----------")
GUICtrlSetData($combo_34_21, $array[$i], "----------")
GUICtrlSetData($combo_35_21, $array[$i], "----------")
GUICtrlSetData($combo_36_21, $array[$i], "----------")
GUICtrlSetData($combo_37_21, $array[$i], "----------")
Next
_SQLite_Close($ini_tv_database_NPVR)
EndIf
_WriteLog("Info - Read Available Channels from NextPVR: Finished")
Return
EndFunc
;Function to Read Channel from DVB-Viewer to Combo
Func _ReadData_Channelname_DVBV()
_WriteLog("Info - Read Available Channels from DVB-Viewer: Started")
Local $tvdb, $query, $Rows, $Columns, $i, $c = -1, $channels
Dim $array[0]
Local $iFileExists = FileExists($ini_tv_database_DVBV)
If $iFileExists Then
$tvdb = FileOpen($ini_tv_database_DVBV)
$c = -1
While 1
$Rows = FileReadLine($tvdb)
If @error = -1 Then ExitLoop
If StringInStr($Rows, "[Channel") Then $c = $c + 1
WEnd
FileClose($tvdb)
If $c > -1 Then
For $i = 0 To $c
$columns = IniRead($ini_tv_database_DVBV, "Channel" & $i, "Name", "Name")
$query = StringSplit($columns, "(")
If $columns <> "" Then _ArrayAdd($array, StringStripWS($query[1], 3))
Next
$channels = _ArrayUnique($array)
_ArraySort($channels, 0, 1, 0, 0, 1)
For $i = 1 to $channels[0]
GUICtrlSetData($combo_31_21, $channels[$i], "----------")
GUICtrlSetData($combo_32_21, $channels[$i], "----------")
GUICtrlSetData($combo_33_21, $channels[$i], "----------")
GUICtrlSetData($combo_34_21, $channels[$i], "----------")
GUICtrlSetData($combo_35_21, $channels[$i], "----------")
GUICtrlSetData($combo_36_21, $channels[$i], "----------")
GUICtrlSetData($combo_37_21, $channels[$i], "----------")
Next
EndIf
EndIf
_WriteLog("Info - Read Available Channels from DVB-Viewer: Finished")
Return
EndFunc
;Function to Read Channel List from WebGrab Siteini files.
Func _ReadData_WebGrab_Siteini()
_WriteLog("Info - WebGrab_Siteini: Started")
GUICtrlSetData($combo_32_11, "")
GUICtrlSetData($combo_32_11, "----------", "----------")
GUICtrlSetData($listview_32_91, "")
Local $query, $array, $Rows, $Columns, $i, $Rval
$query = 'SELECT SITEINI_NAME FROM WEBGRAB_SITEINI WHERE SITEINI_USE LIKE "TRUE" ORDER BY UPPER(SITEINI_NAME);'
$Rval = _SQLite_GetTable($buddy_db, $query, $array, $Rows, $Columns)
;~ _ArraySort($array,0,2)
For $i = 2 to $array[0]
GUICtrlSetData($combo_32_11, $array[$i], "----------")
Next
_WriteLog("Info - WebGrab_Siteini: Finished")
Return
EndFunc
;Function To Refresh The Channel Lists on Startup
Func _Refresh_channellist()
Local $option = "--get_channellist"
If $ini_epg_source_tvspielfilm = 1 Then
$option = $option & ":tvspielfilm"
GUICtrlSetData($S_Label02, "Refreshed Available Channels List for TVSpielfilm.de")
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE)
_WriteLog("Info - Refreshed Available Channels List for TVSpielfilm.de")
EndIf
If $ini_epg_source_epgdata = 1 Then
$option = $option & ":epgdata"
GUICtrlSetData($S_Label02, "Refreshed Available Channels List for epgData.com")
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE)
_WriteLog("Info - Refreshed Available Channels List for epgData.com")
EndIf
If $ini_epg_source_clickfinder = 1 Then
$option = $option & ":clickfinder"
GUICtrlSetData($S_Label02, "Refreshed Available Channels List for TVMovie Clickfinder")
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE)
_WriteLog("Info - Refreshed Available Channels List for TVMovie Clickfinder")
EndIf
If $ini_epg_source_tvguide = 1 Then
$option = $option & ":tvguide"
GUICtrlSetData($S_Label02, "Refreshed Available Channels List for TVGuide.com")
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE)
_WriteLog("Info - Refreshed Available Channels List for TVGuide.com")
EndIf
If $ini_epg_source_xml = 1 Then
$option = $option & ":url"
GUICtrlSetData($S_Label02, "Refreshed Available Channels List for external XML files")
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE)
_WriteLog("Info - Refreshed Available Channels List for external XML files")
EndIf
If $ini_epg_source_rytec = 1 Then
$option = $option & ":rytec"
GUICtrlSetData($S_Label02, "Refreshed Available Regions for Rytec")
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", $option, @ScriptDir, "", @SW_HIDE)
GUICtrlSetData($S_Label02, "Refreshed Available Channels List for Rytec")
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--get_channellist:url", @ScriptDir, "", @SW_HIDE)
_WriteLog("Info - Refreshed Available Channels List for Rytec")
EndIf
If $option = "--get_channellist" Then
_WriteLog("Info - No Direct EPG Source selected, skipping refresh of Available Channels List")
GUICtrlSetData($S_Label02, "No Direct EPG Source selected, skipping refresh of Available Channels List")
EndIf
_WriteLog("Info - Refreshed Available Channels finished")
EndFunc
;Function to Restart the program
Func _Restart()
If @Compiled = 1 Then
Run( FileGetShortName(@ScriptFullPath))
Else
Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
EndIf
Exit
EndFunc
;Function to Save SQL Settings in INI file.
Func _SaveTV_Database_Settings()
If $ini_tvdatabase = "SQLite" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MP2", GUICtrlRead($input_11_01))
EndIf
If $ini_tvdatabase = "MySQL" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_server", GUICtrlRead($input_11_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_user", GUICtrlRead($input_11_03))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_pass", GUICtrlRead($input_11_04))
EndIf
If $ini_tvdatabase = "MSSQL" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_server", GUICtrlRead($input_11_05))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_user", GUICtrlRead($input_11_06))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_pass", GUICtrlRead($input_11_07))
EndIf
If $ini_tvdatabase = "Argus" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_server", GUICtrlRead($input_11_10))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_user", GUICtrlRead($input_11_08))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_pass", GUICtrlRead($input_11_09))
EndIf
If $ini_tvdatabase = "NextPVR" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_NPVR", GUICtrlRead($input_11_11))
EndIf
If $ini_tvdatabase = "DVBV" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_DVBV", GUICtrlRead($input_11_13))
EndIf
EndFunc
;Function to Save Settings in INI files.
Func _SaveSettings()
Local $handle
;Files, Folders And Credentials
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_DVBV", GUICtrlRead($input_11_13))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MP2", GUICtrlRead($input_11_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_NPVR", GUICtrlRead($input_11_11))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_server", GUICtrlRead($input_11_10))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_user", GUICtrlRead($input_11_08))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_Argus_pass", GUICtrlRead($input_11_09))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_server", GUICtrlRead($input_11_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_user", GUICtrlRead($input_11_03))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MySQL_pass", GUICtrlRead($input_11_04))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_server", GUICtrlRead($input_11_05))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_user", GUICtrlRead($input_11_06))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MSSQL_pass", GUICtrlRead($input_11_07))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_database_clickfinder", GUICtrlRead($input_23_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xepg_folder", GUICtrlRead($input_05_16))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_folder", GUICtrlRead($input_05_15))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_name", GUICtrlRead($input_05_11))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_task", GUICtrlRead($input_05_21))
;Settings
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_combine_xml", GUICtrlRead($check_05_15))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_cacheclean", GUICtrlRead($check_05_08))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_epgdata", GUICtrlRead($password_23_03))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_plot_override", GUICtrlRead($check_05_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_series_override", GUICtrlRead($check_05_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvspielfilm", GUICtrlRead($check_23_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_webgrab", GUICtrlRead($check_21_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_rytec", GUICtrlRead($check_23_04))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_epgdata", GUICtrlRead($check_23_03))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_clickfinder", GUICtrlRead($check_23_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvguide", GUICtrlRead($check_24_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_xml", GUICtrlRead($check_21_11))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_mapping", GUICtrlRead($check_05_07))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_epgdata", GUICtrlRead($input_33_22))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_webgrab", GUICtrlRead($input_32_22))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_tvspielfilm ", GUICtrlRead($input_31_22))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_tvguide ", GUICtrlRead($input_35_22))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_monday", GUICtrlRead($check_41_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tuesday", GUICtrlRead($check_41_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_wednesday", GUICtrlRead($check_41_03))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_thursday", GUICtrlRead($check_41_04))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_friday", GUICtrlRead($check_41_05))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_saturday", GUICtrlRead($check_41_06))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_sunday", GUICtrlRead($check_41_07))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_time", GUICtrlRead($input_41_11))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_tvspielfilm", GUICtrlRead($check_31_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_webgrab", GUICtrlRead($check_32_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_rytec", GUICtrlRead($check_37_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_epgdata", GUICtrlRead($check_33_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_clickfinder", GUICtrlRead($check_34_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_tvguide", GUICtrlRead($check_35_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_notmdb_xml", GUICtrlRead($check_36_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_wake", GUICtrlRead($check_41_11))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_delay", GUICtrlRead($check_41_12))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_schedule_idle", GUICtrlRead($check_41_13))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "languages", "ini_meta_language", GUICtrlRead($combo_05_05))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "languages", "ini_language", GUICtrlRead($combo_05_25))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_loglevel", GUICtrlRead($check_05_21))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_parameter", GUICtrlRead($input_05_22))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_run", GUICtrlRead($check_05_26))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_user_webgrab", GUICtrlRead($password_21_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_email_webgrab", GUICtrlRead($password_21_03))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_webgrab", GUICtrlRead($password_21_04))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_xepg", GUICtrlRead($check_05_16))
If GUICtrlRead($radio_03_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1")
If GUICtrlRead($radio_03_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2")
If GUICtrlRead($radio_05_11) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_suffix", "1")
If GUICtrlRead($radio_05_12) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xml_suffix", "2")
If GUICtrlRead($radio_11_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "SQLite")
If GUICtrlRead($radio_11_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "MySQL")
If GUICtrlRead($radio_11_03) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "MSSQL")
If GUICtrlRead($radio_11_04) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "Argus")
If GUICtrlRead($radio_11_05) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "NextPVR")
If GUICtrlRead($radio_11_06) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "DVBV")
If GUICtrlRead($radio_11_07) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_tvdatabase", "Manual")
If GUICtrlRead($radio_41_01) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_type", "1.4")
If GUICtrlRead($radio_41_02) = 1 Then IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_task_type", "1.2")
$handle = FileOpen(@ScriptDir & "\email_tvguide.txt", 2)
Filewrite($handle, GUICtrlRead($password_24_01))
FileClose($handle)
$handle = FileOpen(@ScriptDir & "\pass_tvguide.txt", 2)
Filewrite($handle, GUICtrlRead($password_24_02))
FileClose($handle)
$handle = FileOpen(@ScriptDir & "\path_xml.txt", 2)
Filewrite($handle, GUICtrlRead($password_21_11))
FileClose($handle)
$handle = FileOpen(@ScriptDir & "\user_xml.txt", 2)
Filewrite($handle, GUICtrlRead($password_21_02))
FileClose($handle)
$handle = FileOpen(@ScriptDir & "\pass_xml.txt", 2)
Filewrite($handle, GUICtrlRead($password_21_03))
FileClose($handle)
FileCopy(@ScriptDir & "\xmltv.dtd", GUICtrlRead($input_05_15) & "\xmltv.dtd", 8)
EndFunc
;Function to Update Metadata Flags.
Func _SetFlag()
Local $la;, $la1
$ini_meta_flag = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_meta_flag", @ScriptDir & "\Images\Flags\en.jpg")
$la = GUICtrlRead($combo_05_05)
If $ini_meta_flag <> @ScriptDir & "\Images\Flags\" & $la & ".jpg" Then
GUICtrlSetImage($pic_05_05, @ScriptDir & "\Images\Flags\" & $la & ".jpg")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_meta_flag", @ScriptDir & "\Images\Flags\" & $la & ".jpg")
EndIf
$ini_gui_flag = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_gui_flag", @ScriptDir & "\Images\Flags\en.jpg")
If GUICtrlRead($combo_05_25) = "English" Then $la = "en"
If GUICtrlRead($combo_05_25) = "Deutsch" Then $la = "de"
If $ini_gui_flag <> @ScriptDir & "\Images\Flags\" & $la & ".jpg" Then
GUICtrlSetImage($pic_05_25, @ScriptDir & "\Images\Flags\" & $la & ".jpg")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_gui_flag", @ScriptDir & "\Images\Flags\" & $la & ".jpg")
EndIf
EndFunc
;Function to preselect channel groups.
Func _SetGroup_31()
_WriteLog("Info - SetGroup: Started")
_Hide_GUI($Array_GUI_Elements_31_8)
_Show_GUI($Array_GUI_Elements_31_9)
Local $i, $j, $text
For $i = 2 To UBound($group_array) - 1
GUICtrlCreateListViewItem($group_array[$i], $listview_31_91)
Next
If $ini_loglevel = 1 Then _WriteLog("Debug - UBound Group Index checked: " & Ubound($Groups_checked))
For $i = 0 To Ubound($group_array) - 2
$text = _GUICtrlListView_GetItemText($listview_31_91, $i)
$j = _ArraySearch($Groups_checked, $text)
If $j > 0 Then
If $ini_loglevel = 1 Then _WriteLog("Debug - Group Index checked: " & $text)
_GUICtrlListView_SetItemChecked($listview_31_91, $i)
EndIf
Next
$channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM TVSPIELFILM_CHANNELS ORDER BY UPPER(NAME) ;"
$channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array, $channel_Rows, $channel_Columns)
_WriteLog("Info - SetGroup: Finished")
Return
EndFunc
;Function to preselect channel groups.
Func _SetGroup_34()
_WriteLog("Info - SetGroup: Started")
_Hide_GUI($Array_GUI_Elements_34_8)
_Show_GUI($Array_GUI_Elements_34_9)
Local $i, $j, $text
For $i = 2 To UBound($group_array3) - 1
GUICtrlCreateListViewItem($group_array3[$i], $listview_34_91)
Next
If $ini_loglevel = 1 Then _WriteLog("Debug - UBound Group Index checked: " & Ubound($Groups_checked3))
For $i = 0 To Ubound($group_array3) - 2
$text = _GUICtrlListView_GetItemText($listview_34_91, $i)
$j = _ArraySearch($Groups_checked3, $text)
If $j > 0 Then
If $ini_loglevel = 1 Then _WriteLog("Debug - Group Index checked: " & $text)
_GUICtrlListView_SetItemChecked($listview_34_91, $i)
EndIf
Next
; Read Available Channels for Clickfinder
$channel_query4 = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM CLICKFINDER_CHANNELS ORDER BY UPPER(NAME) ;"
$channel_Rval4 = _SQLite_GetTable2d($buddy_db, $channel_query4, $channel_array4, $channel_Rows4, $channel_Columns4)
_WriteLog("Info - SetGroup: Finished")
Return
EndFunc
;Function to Update controls.
Func _SetLabel($cControl, $sData)
If GUICtrlRead($cControl) <> $sData Then GUICtrlSetData($cControl, StringReplace($sData, "&", "&&"))
EndFunc
;Function to Update controls.
Func _SetData($cControl, $sData)
If GUICtrlRead($cControl) <> $sData Then GUICtrlSetData($cControl, $sData)
EndFunc
;Function to Update controls.
Func _SetData_Channel_31($item)
Local $index
_ShowGui_Channellist_31()
$index = _ArraySearch($channel_array, $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data TVSpielfilm - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data TVSpielfilm - List Index = " & $index)
_SetData($input_31_21, $channel_array[$index][3])
_SetData($input_31_22, $channel_array[$index][1])
_SetLabel($label_31_22, $channel_array[$index][0])
_SetLabel($label_31_24, $channel_array[$index][3])
_SetData($combo_31_21, "----------")
If GUICtrlRead($check_31_01) = 1 Then
GUICtrlSetState($check_31_21, $GUI_UNCHECKED)
GUICtrlSetState($check_31_21, $GUI_DISABLE)
Else
GUICtrlSetState($check_31_21, $GUI_ENABLE)
If $channel_array[$index][4] = "TRUE" Then
GUICtrlSetState($check_31_21, $GUI_CHECKED)
Else
GUICtrlSetState($check_31_21, $GUI_UNCHECKED)
EndIf
EndIf
EndFunc
;Function to Update controls.
Func _SetData_Channel_32($item)
Local $index, $index2, $query, $array, $Rows, $Columns, $Rval
_ShowGui_Channellist_32()
$index = _ArraySearch($list_WebGrab, $item, 0, 0, 0, 1)
If $index > 0 Then
$index2 = StringSplit($list_WebGrab[$index], " - ", 1)
$query = 'SELECT XMLTV_ID, RUN_E2T, CHANNEL, SITEINI FROM WebGrab_CHANNELS WHERE NAME LIKE "' & $index2[2] & '" AND SITEINI Like "' & GUICtrlRead($combo_32_11) & '" ORDER BY UPPER(NAME) ;'
$Rval = _SQLite_GetTable2D($buddy_db, $query, $array, $Rows, $Columns)
If UBound($array) > 1 Then
_SetData($input_32_21, $array[1][0])
_SetData($label_32_24, StringReplace($array[1][0], "&", "&&"))
GUICtrlSetState($check_32_22, $GUI_CHECKED)
If GUICtrlRead($check_32_01) = 1 Then
GUICtrlSetState($check_32_21, $GUI_UNCHECKED)
GUICtrlSetState($check_32_21, $GUI_DISABLE)
Else
If $array[1][1] = "TRUE" Then
GUICtrlSetState($check_32_21, $GUI_CHECKED)
Else
GUICtrlSetState($check_32_21, $GUI_UNCHECKED)
EndIf
EndIf
Else
_SetData($input_32_21, $index2[2])
_SetData($label_32_24, StringReplace($index2[2], "&", "&&"))
GUICtrlSetState($check_32_21, $GUI_UNCHECKED)
If GUICtrlRead($check_32_01) = 1 Then
GUICtrlSetState($check_32_21, $GUI_DISABLE)
Else
GUICtrlSetState($check_32_21, $GUI_ENABLE)
EndIf
GUICtrlSetState($check_32_22, $GUI_UNCHECKED)
EndIf
_SetData($label_32_22, StringReplace($index2[2], "&", "&&"))
;~ _SetData($combo_32_21, "----------")
_SetData($check_32_22, StringReplace($index2[2] & " " & $lng_grabfrom & ": " & GUICtrlRead($combo_32_11), "&", "&&"))
EndIf
EndFunc
;Function to Update controls.
Func _SetData_Channel_33($item)
Local $index
_ShowGui_Channellist_33()
$index = _ArraySearch($channel_array3, $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data epgData - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data epgData - List Index = " & $index)
_SetData($input_33_21, $channel_array3[$index][3])
_SetLabel($label_33_22, $channel_array3[$index][0])
_SetLabel($label_33_24, $channel_array3[$index][3])
_SetData($combo_33_21, "----------")
If GUICtrlRead($check_33_01) = 1 Then
GUICtrlSetState($check_33_21, $GUI_UNCHECKED)
GUICtrlSetState($check_33_21, $GUI_DISABLE)
Else
GUICtrlSetState($check_33_21, $GUI_ENABLE)
If $channel_array3[$index][4] = "TRUE" Then
GUICtrlSetState($check_33_21, $GUI_CHECKED)
Else
GUICtrlSetState($check_33_21, $GUI_UNCHECKED)
EndIf
EndIf
EndFunc
;Function to Update controls.
Func _SetData_Channel_34($item)
Local $index
_ShowGui_Channellist_34()
$index = _ArraySearch($channel_array4, $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data Clickfinder - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Data Clickfinder - List Index = " & $index)
_SetData($input_34_21, $channel_array4[$index][3])
_SetLabel($label_34_22, $channel_array4[$index][0])
_SetLabel($label_34_24, $channel_array4[$index][3])
_SetData($combo_34_21, "----------")
If GUICtrlRead($check_34_01) = 1 Then
GUICtrlSetState($check_34_21, $GUI_UNCHECKED)
GUICtrlSetState($check_34_21, $GUI_DISABLE)
Else
GUICtrlSetState($check_34_21, $GUI_ENABLE)
If $channel_array4[$index][4] = "TRUE" Then
GUICtrlSetState($check_34_21, $GUI_CHECKED)
Else
GUICtrlSetState($check_34_21, $GUI_UNCHECKED)
EndIf
EndIf
If $channel_array4[$index][1] = "1" Then
GUICtrlSetState($check_34_22, $GUI_CHECKED)
Else
GUICtrlSetState($check_34_22, $GUI_UNCHECKED)
EndIf
_SetData($check_34_22, $channel_array4[$index][3] & " " & $lng_grabfrom & " Clickfinder?")
EndFunc
;Function to Update controls.
Func _SetData_Channel_35($item)
Local $index
_WriteLog("Info - _SetData_Channel_35 started")
_ShowGui_Channellist_35()
$index = _ArraySearch($channel_array5, $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels TVGuide Data - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels TVGuide Data - List Index = " & $index)
_SetData($input_35_21, $channel_array5[$index][3])
_SetLabel($label_35_22, $channel_array5[$index][0])
_SetLabel($label_35_24, $channel_array5[$index][3])
_SetData($combo_35_21, "----------")
If GUICtrlRead($check_35_01) = 1 Then
GUICtrlSetState($check_35_21, $GUI_UNCHECKED)
GUICtrlSetState($check_35_21, $GUI_DISABLE)
Else
GUICtrlSetState($check_35_21, $GUI_ENABLE)
If $channel_array5[$index][4] = "TRUE" Then
GUICtrlSetState($check_35_21, $GUI_CHECKED)
Else
GUICtrlSetState($check_35_21, $GUI_UNCHECKED)
EndIf
EndIf
If $channel_array5[$index][1] > 0 Then
GUICtrlSetState($check_35_22, $GUI_CHECKED)
Else
GUICtrlSetState($check_35_22, $GUI_UNCHECKED)
EndIf
_SetData($check_35_22, StringReplace($channel_array5[$index][3] & " " & $lng_grabfrom & " TVGuide?", "&", "&&"))
EndFunc
;Function to Update controls.
Func _SetData_Channel_36($item)
Local $index
_WriteLog("Info - _SetData_Channel_36 started")
_ShowGui_Channellist_36()
$index = _ArraySearch($channel_array6, $item)
_WriteLog("Debug - Set Channels External XML Data - List Item = " & $item)
_WriteLog("Debug - Set Channels External XML Data - List Index = " & $index)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels External XML Data - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels External XML Data - List Index = " & $index)
_SetData($input_36_21, $channel_array6[$index][2])
_SetLabel($label_36_22, $channel_array6[$index][0])
_SetLabel($label_36_24, $channel_array6[$index][2])
_SetData($combo_36_21, "----------")
If GUICtrlRead($check_36_01) = 1 Then
GUICtrlSetState($check_36_21, $GUI_UNCHECKED)
GUICtrlSetState($check_36_21, $GUI_DISABLE)
Else
GUICtrlSetState($check_36_21, $GUI_ENABLE)
If $channel_array6[$index][3] = "TRUE" Then
GUICtrlSetState($check_36_21, $GUI_CHECKED)
Else
GUICtrlSetState($check_36_21, $GUI_UNCHECKED)
EndIf
EndIf
EndFunc
;Function to Update controls.
Func _SetData_Channel_37($item)
Local $index
_WriteLog("Info - _SetData_Channel_37 started")
_ShowGui_Channellist_37()
$index = _ArraySearch($channel_array7, $item)
_WriteLog("Debug - Set Channels Rytec - List Item = " & $item)
_WriteLog("Debug - Set Channels Rytec - List Index = " & $index)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Rytec - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Set Channels Rytec - List Index = " & $index)
_SetData($input_37_21, $channel_array7[$index][2])
_SetLabel($label_37_22, $channel_array7[$index][0])
_SetLabel($label_37_24, $channel_array7[$index][2])
_SetData($combo_37_21, "----------")
If GUICtrlRead($check_37_01) = 1 Then
GUICtrlSetState($check_37_21, $GUI_UNCHECKED)
GUICtrlSetState($check_37_21, $GUI_DISABLE)
Else
GUICtrlSetState($check_37_21, $GUI_ENABLE)
If $channel_array7[$index][3] = "TRUE" Then
GUICtrlSetState($check_37_21, $GUI_CHECKED)
Else
GUICtrlSetState($check_37_21, $GUI_UNCHECKED)
EndIf
EndIf
EndFunc
;Function to set channel list fro selected Siteini.
Func _SetList_WebGrab($item)
Local $file, $channelid
Dim $siteID[1]
Dim $list[1]
Dim $list_WebGrab[1]
Dim $elements[1]
$file = FileOpen(@ScriptDir & "\WebGrab\" & $item & ".channels.xml", 128)
_FileReadToArray(@ScriptDir & "\WebGrab\" & $item & ".channels.xml", $list)
GUICtrlSetData($listview_32_11, "")
For $i = 4 To $list[0] - 2
Dim $element[1]
$element = _StringBetween($list[$i], '">', '')
$channelid = _StringBetween($list[$i], 'site_id="', '" xmltv_id')
_ArrayAdd($list_WebGrab, $i & " - " & $element[0] & " - " & $channelid[0])
_ArrayAdd($elements, $element[0])
Next
FileClose($file)
_ArraySort($elements)
For $i = 1 To UBound($elements) - 1
GUICtrlSetData($listview_32_11, $elements[$i])
Next
EndFunc
;Function to preselect Region.
Func _SetRegion()
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Show_GUI($Array_GUI_Elements_37_9)
$showitem_37_11 = 0
_WriteLog("Info - SetRegion: Started")
Local $i, $j, $text, $query, $array, $array2, $Rows, $Columns, $i, $Rval
$listview_37_91 = GUICtrlCreateListview("Name ", 350, 280, 320, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES)
_GUICtrlListView_SetColumnWidth($listview_37_91, 0, 295)
$query = 'SELECT * FROM EPG_GRABBER_RYTEC_CATEGORIES ;'
$Rval = _SQLite_GetTable2d($buddy_db, $query, $array, $Rows, $Columns)
For $i = 1 To UBound($array) - 1
GUICtrlCreateListViewItem($array[$i][1], $listview_37_91)
$query = 'SELECT PROVIDER FROM EPG_GRABBER_MULTIPLE_PROVIDER WHERE PROVIDER LIKE "' & $array[$i][2] & '";'
$Rval = _SQLite_GetTable2d($buddy_db, $query, $array2, $Rows, $Columns)
If _ElementExists($array2, 1) Then
_GUICtrlListView_SetItemChecked($listview_37_91, $i - 1)
EndIf
Next
_WriteLog("Info - SetRegion: Finished")
EndFunc
;Function to generate task scheduler entry for automated back-ups
Func _Set_Schedule()
Local $option
_WriteLog("Info - SetSchedule: Started")
_MakeXML()
ShellExecuteWait(@ScriptDir & "\SetSchedule.exe", "set", "", "", @SW_HIDE)
_WriteLog("Info - SetSchedule: Finished")
MsgBox(0, $lng_success, $lng_accomplished, 2)
EndFunc
;Function to preselect Siteini.
Func _SetSiteini()
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Show_GUI($Array_GUI_Elements_32_9)
$showitem_32_11 = 0
_WriteLog("Info - SetSiteini: Started")
Local $i, $j, $text, $query, $array, $Rows, $Columns, $i, $Rval
$listview_32_91 = GUICtrlCreateListview("Name ", 350, 280, 320, 280, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $LVS_EX_DOUBLEBUFFER + $LVS_EX_INFOTIP + $LVS_EX_GRIDLINES)
_GUICtrlListView_SetColumnWidth($listview_32_91, 0, 295)
$query = 'SELECT SITEINI_NAME, SITEINI_USE FROM WEBGRAB_SITEINI ORDER BY UPPER(SITEINI_NAME) ;'
$Rval = _SQLite_GetTable2d($buddy_db, $query, $array, $Rows, $Columns)
For $i = 1 To UBound($array) - 1
GUICtrlCreateListViewItem($array[$i][0], $listview_32_91)
If $array[$i][1] = "TRUE" Then
_GUICtrlListView_SetItemChecked($listview_32_91, $i - 1)
If $ini_loglevel = 1 Then _WriteLog("Info - SetSiteini: Ini " & $array[$i][0] & " $array[" & $i - 2 & "][1] = " & $array[$i][1])
EndIf
Next
_SQLite_QueryFinalize($Rval)
_WriteLog("Info - SetSiteini: Finished")
GUICtrlSetData($listview_32_11, "")
EndFunc
;Function to Read Channel Listview.
Func _ShowGui_Channellist_31()
Local $data, $index
If GUICtrlRead($radio_03_01) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1")
_Hide_GUI($Array_GUI_Elements_31_7)
_Show_GUI($Array_GUI_Elements_31_6)
EndIf
If GUICtrlRead($radio_03_02) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2")
_Hide_GUI($Array_GUI_Elements_31_6)
_Show_GUI($Array_GUI_Elements_31_7)
EndIf
Return
EndFunc
;Function to Read Channel Listview.
Func _ShowGui_Channellist_32()
Local $data, $index
If GUICtrlRead($radio_03_01) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1")
_Hide_GUI($Array_GUI_Elements_32_7)
_Show_GUI($Array_GUI_Elements_32_6)
EndIf
If GUICtrlRead($radio_03_02) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2")
_Hide_GUI($Array_GUI_Elements_32_6)
_Show_GUI($Array_GUI_Elements_32_7)
EndIf
Return
EndFunc
;Function to Read Channel Listview.
Func _ShowGui_Channellist_33()
Local $data, $index
If GUICtrlRead($radio_03_01) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1")
_Hide_GUI($Array_GUI_Elements_33_7)
_Show_GUI($Array_GUI_Elements_33_6)
EndIf
If GUICtrlRead($radio_03_02) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2")
_Hide_GUI($Array_GUI_Elements_33_6)
_Show_GUI($Array_GUI_Elements_33_7)
EndIf
Return
EndFunc
;Function to Read Channel Listview.
Func _ShowGui_Channellist_34()
Local $data, $index
If GUICtrlRead($radio_03_01) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1")
_Hide_GUI($Array_GUI_Elements_34_7)
_Show_GUI($Array_GUI_Elements_34_6)
EndIf
If GUICtrlRead($radio_03_02) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2")
_Hide_GUI($Array_GUI_Elements_34_6)
_Show_GUI($Array_GUI_Elements_34_7)
EndIf
Return
EndFunc
;Function to Read Channel Listview.
Func _ShowGui_Channellist_35()
Local $data, $index
_WriteLog("Info - _ShowGui_Channellist_35 started")
If GUICtrlRead($radio_03_01) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1")
_Hide_GUI($Array_GUI_Elements_35_7)
_Show_GUI($Array_GUI_Elements_35_6)
EndIf
If GUICtrlRead($radio_03_02) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2")
_Hide_GUI($Array_GUI_Elements_35_6)
_Show_GUI($Array_GUI_Elements_35_7)
EndIf
Return
EndFunc
;Function to Read Channel Listview.
Func _ShowGui_Channellist_36()
Local $data, $index
_WriteLog("Info - _ShowGui_Channellist_36 started")
If GUICtrlRead($radio_03_01) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1")
_Hide_GUI($Array_GUI_Elements_36_7)
_Show_GUI($Array_GUI_Elements_36_6)
EndIf
If GUICtrlRead($radio_03_02) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2")
_Hide_GUI($Array_GUI_Elements_36_6)
_Show_GUI($Array_GUI_Elements_36_7)
EndIf
Return
EndFunc
;Function to Read Channel Listview.
Func _ShowGui_Channellist_37()
Local $data, $index
_WriteLog("Info - _ShowGui_Channellist_37 started")
If GUICtrlRead($radio_03_01) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "1")
_Hide_GUI($Array_GUI_Elements_37_7)
_Show_GUI($Array_GUI_Elements_37_6)
EndIf
If GUICtrlRead($radio_03_02) = 1 Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_channelname", "2")
_Hide_GUI($Array_GUI_Elements_37_6)
_Show_GUI($Array_GUI_Elements_37_7)
EndIf
Return
EndFunc
;Function to read SiteIni List into Database
Func _SiteiniListToDB()
_WriteLog("SiteiniListToDB - Start reading files to Database")
Local $PathSplit, $sDrive, $sDir, $sFilename, $sExtension, $i, $Index
Dim $Array[1]
$Array = _FileListToArrayRec(@ScriptDir & "\WebGrab", "*.channels.xml", 1, 1)
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
For $i = 1 To $Array[0]
$PathSplit = _PathSplit(@ScriptDir & "\WebGrab\" & $Array[$i], $sDrive, $sDir, $sFilename, $sExtension)
_SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO WEBGRAB_SITEINI (SITEINI_NAME) VALUES ("' & StringTrimRight($PathSplit[3], 9) & '") ;')
Next
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
_WriteLog("SiteiniListToDB - Finished reading files to Database")
GUICtrlSetData($listview_32_11, "")
Return
EndFunc
;Function to Update database entries.
Func _WriteData_Channel_31($item)
Local $run_e2t, $xmltv_id, $index
$index = _ArraySearch($channel_array, $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index)
If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_31_21)
If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_31_21)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id)
If GUICtrlRead($check_31_21) = 1 Then
$run_e2t = "TRUE"
Else
$run_e2t = "FALSE"
EndIf
If $xmltv_id = "----------" Then
_SQLite_Exec($buddy_db, 'UPDATE TVSPIELFILM_CHANNELS SET MAX_DAYS = "' & GUICtrlRead($input_31_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array[$index][0] & '" ;')
Else
_SQLite_Exec($buddy_db, 'UPDATE TVSPIELFILM_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & GUICtrlRead($input_31_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array[$index][0] & '" ;')
EndIf
Sleep(100)
$channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM TVSPIELFILM_CHANNELS ;"
$channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array, $channel_Rows, $channel_Columns)
_WriteLog("Info - Write Available Channels done for " & $channel_array[$index][0])
EndFunc
;Function to Update database entries.
Func _WriteData_Channel_32($item)
Local $run_e2t, $xmltv_id, $index, $index2
_WriteLog("Info - _WriteData_Channel_32 $item = " & $item)
If GUICtrlRead($check_32_22) = 1 Then
$index = _ArraySearch($list_WebGrab, $item, 0, 0, 0, 1)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index)
If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_32_21)
If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_32_21)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id)
If $index > 0 Then
$index2 = StringSplit($list_WebGrab[$index], " - ", 1)
If GUICtrlRead($check_32_21) = 1 Then
$run_e2t = "TRUE"
Else
$run_e2t = "FALSE"
EndIf
_SQLite_Exec($buddy_db, 'INSERT OR IGNORE INTO WebGrab_CHANNELS (CHANNEL, NAME, XMLTV_ID, SITEINI) VALUES ("' & $index2[3] & '", "' & $item & '", "' & $index2[2] & '", "' & GUICtrlRead($combo_32_11) & '") ;')
If $xmltv_id = "----------" Then
_SQLite_Exec($buddy_db, 'UPDATE WebGrab_CHANNELS SET CHANNEL = "' & $index2[3] & '", MAX_DAYS = "' & GUICtrlRead($input_32_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME LIKE "' & $item & '" ;')
_SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET CHANNEL = "' & $index2[3] & '", MAX_DAYS = "' & GUICtrlRead($input_32_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME LIKE "' & $item & '" ;')
Else
_SQLite_Exec($buddy_db, 'UPDATE WebGrab_CHANNELS SET CHANNEL = "' & $index2[3] & '", XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & GUICtrlRead($input_32_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME LIKE "' & $item & '" ;')
_SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET CHANNEL = "' & $index2[3] & '", XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & GUICtrlRead($input_32_22) & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME LIKE "' & $item & '" ;')
EndIf
EndIf
Else
_SQLite_Exec($buddy_db, 'DELETE FROM WebGrab_CHANNELS WHERE NAME LIKE "' & $item & '" AND SITEINI LIKE "' & GUICtrlRead($combo_32_11) & '" ;')
_SQLite_Exec($buddy_db, 'DELETE FROM URL_CHANNELS WHERE NAME LIKE "' & $item & '" ;')
EndIf
EndFunc
;Function to Update database entries.
Func _WriteData_Channel_33($item)
Local $run_e2t, $xmltv_id, $index, $maxdays
$index = _ArraySearch($channel_array3, $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index)
If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_33_21)
If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_33_21)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id)
If GUICtrlRead($check_33_21) = 1 Then
$run_e2t = "TRUE"
Else
$run_e2t = "FALSE"
EndIf
$maxdays = GUICtrlRead($input_33_22)
If $xmltv_id = "----------" Then
_SQLite_Exec($buddy_db, 'UPDATE EPGDATA_CHANNELS SET MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array3[$index][0] & '" ;')
Else
_SQLite_Exec($buddy_db, 'UPDATE EPGDATA_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array3[$index][0] & '" ;')
EndIf
Sleep(100)
$channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM EPGDATA_CHANNELS ;"
$channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array3, $channel_Rows, $channel_Columns)
_WriteLog("Info - Write Available Channels done for " & $channel_array3[$index][0])
EndFunc
;Function to Update database entries.
Func _WriteData_Channel_34($item)
Local $run_e2t, $xmltv_id, $index, $maxdays
$index = _ArraySearch($channel_array4, $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index)
If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_34_21)
If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_34_21)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id)
If GUICtrlRead($check_34_21) = 1 Then
$run_e2t = "TRUE"
Else
$run_e2t = "FALSE"
EndIf
If GUICtrlRead($check_34_22) = 1 Then
$maxdays = "1"
Else
$maxdays = "0"
EndIf
If $xmltv_id = "----------" Then
_SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array4[$index][0] & '" ;')
Else
_SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array4[$index][0] & '" ;')
EndIf
Sleep(100)
$channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM CLICKFINDER_CHANNELS ;"
$channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array4, $channel_Rows, $channel_Columns)
_WriteLog("Info - Write Available Channels done for " & $channel_array4[$index][0])
EndFunc
;Function to Update database entries.
Func _WriteData_Channel_35($item)
Local $run_e2t, $xmltv_id, $index, $maxdays
$index = _ArraySearch($channel_array5, $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index)
If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_35_21)
If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_35_21)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id)
If GUICtrlRead($check_35_21) = 1 Then
$run_e2t = "TRUE"
Else
$run_e2t = "FALSE"
EndIf
If GUICtrlRead($check_35_22) = 1 Then
$maxdays = "14"
Else
$maxdays = "0"
EndIf
If $xmltv_id = "----------" Then
_SQLite_Exec($buddy_db, 'UPDATE TVGUIDE_CHANNELS SET MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array5[$index][0] & '" ;')
Else
_SQLite_Exec($buddy_db, 'UPDATE TVGUIDE_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", MAX_DAYS = "' & $maxdays & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array5[$index][0] & '" ;')
EndIf
Sleep(100)
$channel_query = "SELECT NAME, MAX_DAYS, CATEGORY, XMLTV_ID, RUN_E2T FROM TVGUIDE_CHANNELS ;"
$channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array5, $channel_Rows, $channel_Columns)
_WriteLog("Info - Write Available Channels done for " & $channel_array5[$index][0])
EndFunc
;Function to Update database entries.
Func _WriteData_Channel_36($item)
Local $run_e2t, $xmltv_id, $index
$index = _ArraySearch($channel_array6, $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index)
If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_36_21)
If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_36_21)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id)
If GUICtrlRead($check_36_21) = 1 Then
$run_e2t = "TRUE"
Else
$run_e2t = "FALSE"
EndIf
If $xmltv_id = "----------" Then
_SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array6[$index][0] & '" ;')
Else
_SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array6[$index][0] & '" ;')
EndIf
Sleep(100)
$channel_query = "SELECT NAME, CATEGORY, XMLTV_ID, RUN_E2T FROM URL_CHANNELS ORDER BY UPPER(NAME) ;"
$channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array6, $channel_Rows, $channel_Columns)
_WriteLog("Info - Write Available Channels done for " & $channel_array6[$index][0])
EndFunc
;Function to Update database entries.
Func _WriteData_Channel_37($item)
Local $run_e2t, $xmltv_id, $index
$index = _ArraySearch($channel_array7, $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Item = " & $item)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - List Index = " & $index)
If $ini_channelname = 1 Then $xmltv_id = GUICtrlRead($input_37_21)
If $ini_channelname = 2 Then $xmltv_id = GUICtrlRead($combo_37_21)
If $ini_loglevel = 1 Then _WriteLog("Debug - Write Available Channels - Xmltv ID = " & $xmltv_id)
If GUICtrlRead($check_37_21) = 1 Then
$run_e2t = "True"
Else
$run_e2t = "False"
EndIf
If $xmltv_id = "----------" Then
_SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array7[$index][0] & '" ;')
_WriteLog('Info - UPDATE URL_CHANNELS SET RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array7[$index][0] & '" ;')
Else
_SQLite_Exec($buddy_db, 'UPDATE URL_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array7[$index][0] & '" ;')
_WriteLog('Info - UPDATE URL_CHANNELS SET XMLTV_ID = "' & $xmltv_id & '", RUN_E2T = "' & $run_e2t & '" WHERE NAME = "' & $channel_array7[$index][0] & '" ;')
EndIf
Sleep(100)
$channel_query = "SELECT NAME, CATEGORY, XMLTV_ID, RUN_E2T FROM URL_CHANNELS ORDER BY UPPER(NAME) ;"
$channel_Rval = _SQLite_GetTable2d($buddy_db, $channel_query, $channel_array7, $channel_Rows, $channel_Columns)
EndFunc
;Function to preselect channel groups.
Func _WriteGroup_31()
_WriteLog("Info - WriteGroup: Started")
Local $i, $j, $fle_hwnd
$fle_hwnd = FileOpen(@ScriptDir & "\groups.ini", 10)
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
For $i = 2 To UBound($group_array) - 1
$j = $i - 2
If _GUICtrlListView_GetItemChecked($listview_31_91, $j) Then
FileWrite($fle_hwnd, $group_array[$i] & @CRLF)
If $ini_loglevel = 1 Then _WriteLog("Debug - Group checked: " & $group_array[$i])
_SQLite_Exec($buddy_db, 'UPDATE TVSPIELFILM_CHANNELS SET MAX_DAYS = "14", RUN_E2T = "TRUE" WHERE CATEGORY LIKE "' & $group_array[$i] & '" ;')
Else
If $ini_loglevel = 1 Then _WriteLog("Debug - Group not checked: " & $group_array[$i])
_SQLite_Exec($buddy_db, 'UPDATE TVSPIELFILM_CHANNELS SET MAX_DAYS = "0", RUN_E2T = "FALSE" WHERE CATEGORY LIKE "' & $group_array[$i] & '" ;')
EndIf
Next
FileClose($fle_hwnd)
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_9)
_Show_GUI($Array_GUI_Elements_31_8)
_WriteLog("Info - WriteGroup: Finished")
EndFunc
;Function to preselect channel groups.
Func _WriteGroup_34()
_WriteLog("Info - WriteGroup: Started")
Local $i, $j, $fle_hwnd
$fle_hwnd = FileOpen(@ScriptDir & "\groups3.ini", 10)
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
_SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET MAX_DAYS = "0", RUN_E2T = "FALSE" ;')
For $i = 2 To UBound($group_array3) - 1
$j = $i - 2
If _GUICtrlListView_GetItemChecked($listview_34_91, $j) Then
FileWrite($fle_hwnd, $group_array3[$i] & @CRLF)
If $ini_loglevel = 1 Then _WriteLog("Debug - Group checked: " & $group_array3[$i])
_SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET MAX_DAYS = "1", RUN_E2T = "TRUE" WHERE CATEGORY LIKE "' & $group_array3[$i] & '" ;')
Else
If $ini_loglevel = 1 Then _WriteLog("Debug - Group not checked: " & $group_array3[$i])
_SQLite_Exec($buddy_db, 'UPDATE CLICKFINDER_CHANNELS SET MAX_DAYS = "0", RUN_E2T = "FALSE" WHERE CATEGORY LIKE "' & $group_array3[$i] & '" ;')
EndIf
Next
FileClose($fle_hwnd)
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_9)
_Show_GUI($Array_GUI_Elements_34_8)
_WriteLog("Info - WriteGroup: Finished")
EndFunc
;Function to Write Logfile
;~ /**
;~ * Function for writing an user-defined status/error message into a log file
;~ * (Requires Date.au3)
;~ *
;~ * @author Björn Bastian (http://aufschnur.de)
;~ * @version 2014-01-27
;~ * @param Message the data to be written into the log file
;~ * @param Filepath an user-defined logfile path (optional, default = \.log)
;~ * @param Timestamp a boolean trigger for adding the timestamp (optional, default = TRUE)
;~ * @return Result of logging as boolean (Success/Fail)
;~ */
Func _WriteLog($Message, $Filepath = "", $Timestamp = TRUE)
; Use default logfile path if no user-defined is set
If $Filepath == "" Then
$Filepath = @ScriptDir & '\Log\' & StringTrimRight(@ScriptName, 4) & ".log"
EndIf
; Add timestamp if desired
If $Timestamp == TRUE Then
$Message = _Now() & ' - ' & $Message
EndIf
; Save data to log file
Local $Logfile = FileOpen($Filepath, 1)
If $Logfile <> -1 Then
FileWriteLine($Logfile, $Message)
FileClose($Logfile)
Return TRUE
Else
Return FALSE
EndIf
EndFunc ;==>_WriteLog
;Function to Update database entries.
Func _WriteMaxDays_epgData()
Local $i, $j, $text, $query, $array, $Rows, $Columns, $i, $Rval
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_epgdata", GUICtrlRead($input_33_22))
$query = 'SELECT NAME FROM EPGDATA_CHANNELS ;'
$Rval = _SQLite_GetTable2d($buddy_db, $query, $array, $Rows, $Columns)
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
For $i = 1 To $Rows
_SQLite_Exec($buddy_db, 'UPDATE EPGDATA_CHANNELS SET MAX_DAYS = "' & GUICtrlRead($input_33_22) & '" ;')
Next
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
EndFunc
;Function to Update database entries.
Func _WriteMaxDays_TVGuide()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_maxdays_tvguide ", GUICtrlRead($input_35_22))
_SQLite_Exec($buddy_db, 'UPDATE EPG_GRABBER_SETTINGS SET VALUE = "' & GUICtrlRead($input_35_22) & '" WHERE SETTING LIKE "Global_Max_Days" ;')
EndFunc
;Function to preselect Region.
Func _WriteRegion()
_WriteLog("Info - WriteRegion: Started")
Local $i, $j, $query, $array, $Rows, $Columns, $Rval
_SQLite_Exec($buddy_db, "CREATE TABLE IF NOT EXISTS EPG_GRABBER_MULTIPLE_PROVIDER (PROVIDER TEXT, USERNAME TEXT, PASSWORD TEXT, DESCRIPTION TEXT UNIQUE ON CONFLICT IGNORE);")
_SQLite_Exec($buddy_db, 'DELETE FROM EPG_GRABBER_MULTIPLE_PROVIDER WHERE DESCRIPTION LIKE "RYTEC|%";')
$query = 'SELECT * FROM EPG_GRABBER_RYTEC_CATEGORIES ;'; ORDER BY UPPER(DESCRIPTION) ;'
$Rval = _SQLite_GetTable2d($buddy_db, $query, $array, $Rows, $Columns)
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
For $i = 1 To UBound($array) - 1
If _GUICtrlListView_GetItemChecked($listview_37_91, $i-1) Then
_SQLite_Exec($buddy_db, 'INSERT INTO EPG_GRABBER_MULTIPLE_PROVIDER (PROVIDER,DESCRIPTION) VALUES ("' & $array[$i][2] & '","RYTEC|' & $array[$i][0] & '|' & $array[$i][1] & '") ;')
EndIf
Next
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
ShellExecuteWait(@ScriptDir & "\EPG-Grabber.exe", "--get_channellist:url", @ScriptDir, "", @SW_HIDE)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_9)
_Show_GUI($Array_GUI_Elements_37_8)
_WriteLog("Info - WriteRegion: Finished")
EndFunc
;Function to preselect siteini.
Func _WriteSiteini()
_WriteLog("Info - WriteSiteini: Started")
Local $i, $j, $query, $array, $Rows, $Columns, $Rval
$query = 'SELECT SITEINI_NAME, SITEINI_USE FROM WEBGRAB_SITEINI ORDER BY UPPER(SITEINI_NAME) ;'
$Rval = _SQLite_GetTable2d($buddy_db, $query, $array, $Rows, $Columns)
_SQLite_Exec($buddy_db, "BEGIN TRANSACTION ;")
For $i = 1 To UBound($array) - 1
$j = $i - 1
If _GUICtrlListView_GetItemChecked($listview_32_91, $j) Then
_SQLite_Exec($buddy_db, 'UPDATE WEBGRAB_SITEINI SET SITEINI_USE = "TRUE" WHERE SITEINI_NAME LIKE "' & $array[$i][0] & '" ;')
Else
_SQLite_Exec($buddy_db, 'UPDATE WEBGRAB_SITEINI SET SITEINI_USE = "FALSE" WHERE SITEINI_NAME LIKE "' & $array[$i][0] & '" ;')
EndIf
Next
_SQLite_Exec($buddy_db, "END TRANSACTION ;")
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_9)
_Show_GUI($Array_GUI_Elements_32_8)
_SetData($combo_32_11, "----------")
$comboitem_32_11 = ""
_WriteLog("Info - WriteSiteini: Finished")
EndFunc
;Function to Write WebGrab+Plus config file
Func _WriteWebGrabConfig()
Local $fle_hwnd, $Rval, $query, $array, $Rows, $Columns, $i
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_user_webgrab", GUICtrlRead($password_21_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_email_webgrab", GUICtrlRead($password_21_03))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_webgrab", GUICtrlRead($password_21_04))
$ini_user_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_user_webgrab", "")
$ini_email_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_email_webgrab", "")
$ini_pass_webgrab = IniRead(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_webgrab", "")
$query = 'SELECT XMLTV_ID, CHANNEL, SITEINI FROM WebGrab_CHANNELS;'
$Rval = _SQLite_GetTable2D($buddy_db, $query, $array, $Rows, $Columns)
$fle_hwnd = FileOpen(@ScriptDir & "\WebGrab\WebGrab++.config.xml", 2)
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", '' & @CRLF)
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", '' & @CRLF)
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' ' & @ScriptDir & '\EPG-Grabber.URL.XML_0.xml' & @CRLF)
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' m' & @CRLF)
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' mdb' & @CRLF)
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' automatic' & @CRLF)
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0; yie9)' & @CRLF)
;~ If $ini_user_webgrab = "username" Then
;~ FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' ' & @CRLF)
;~ Else
;~ FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' ' & @CRLF)
;~ EndIf
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' on' & @CRLF)
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' 4' & @CRLF)
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' noskip' & @CRLF)
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' ' & GUICtrlRead($input_32_22) - 1 & '' & @CRLF)
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' s' & @CRLF)
For $i = 1 To UBound($array) - 1
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", ' ' & $array[$i][0] & '' & @CRLF)
Next
FileWrite(@ScriptDir & "\WebGrab\WebGrab++.config.xml", '' & @CRLF)
FileClose($fle_hwnd)
MsgBox(0, $lng_success, $lng_accomplished, 2)
EndFunc
#EndRegion ;Function Declaration
#Region ;GUI Function Declaration
;Function To Clear GUI Elements
Func _Hide_GUI($dArray)
For $i = 1 To UBound($dArray) - 1
GUICtrlSetState($dArray[$i],$GUI_HIDE)
Next
EndFunc
;Function To Show GUI Elements
Func _Show_GUI($dArray)
For $i = 1 To UBound($dArray) - 1
GUICtrlSetState($dArray[$i], $GUI_SHOW)
Next
EndFunc
;Function To Show TV Settings MP2-SQLite GUI (1)
Func _GUI_Show_TV_Settings()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "1")
_Hide_GUI($Array_GUI_Elements_02)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_03)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Hide_GUI($Array_GUI_Elements_41)
_Hide_GUI($Array_GUI_Elements_51)
_Show_GUI($Array_GUI_Elements_11)
EndFunc
;Function To Show International EPG Settings GUI (21)
Func _GUI_Show_EPG_Settings_International()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "2")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule2", "21")
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_41)
_Hide_GUI($Array_GUI_Elements_51)
_Hide_GUI($Array_GUI_Elements_03)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Show_GUI($Array_GUI_Elements_02)
_Show_GUI($Array_GUI_Elements_21)
EndFunc
;Function To Show Europe EPG Settings GUI (23)
Func _GUI_Show_EPG_Settings_Europe()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "2")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule2", "23")
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_41)
_Hide_GUI($Array_GUI_Elements_51)
_Hide_GUI($Array_GUI_Elements_03)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Show_GUI($Array_GUI_Elements_02)
_Show_GUI($Array_GUI_Elements_23)
EndFunc
;Function To Show America EPG Settings GUI (24)
Func _GUI_Show_EPG_Settings_America()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "2")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule2", "24")
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_41)
_Hide_GUI($Array_GUI_Elements_51)
_Hide_GUI($Array_GUI_Elements_03)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Show_GUI($Array_GUI_Elements_02)
_Show_GUI($Array_GUI_Elements_24)
EndFunc
;Function To Show TVSpielfilm EPG Data GUI (31)
Func _GUI_Show_EPG_Data_TVSpielfilm()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "31")
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_02)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_41)
_Hide_GUI($Array_GUI_Elements_51)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Show_GUI($Array_GUI_Elements_03)
_Show_GUI($Array_GUI_Elements_31)
_Show_GUI($Array_GUI_Elements_31_8)
EndFunc
;Function To Show WebGrab EPG Data GUI (3-2)
Func _GUI_Show_EPG_Data_WebGrab()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "32")
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_02)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_41)
_Hide_GUI($Array_GUI_Elements_51)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Show_GUI($Array_GUI_Elements_03)
_Show_GUI($Array_GUI_Elements_32)
_Show_GUI($Array_GUI_Elements_32_8)
EndFunc
;Function To Show epgData.com EPG Data GUI (3-3)
Func _GUI_Show_EPG_Data_epgData()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "33")
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_02)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_41)
_Hide_GUI($Array_GUI_Elements_51)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Show_GUI($Array_GUI_Elements_03)
_Show_GUI($Array_GUI_Elements_33)
EndFunc
;Function To Show Clickfinder EPG Data GUI (3-4)
Func _GUI_Show_EPG_Data_clickfinder()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "34")
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_02)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_41)
_Hide_GUI($Array_GUI_Elements_51)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Show_GUI($Array_GUI_Elements_03)
_Show_GUI($Array_GUI_Elements_34)
_Show_GUI($Array_GUI_Elements_34_8)
EndFunc
;Function To Show TVGuide EPG Data GUI (3-5)
Func _GUI_Show_EPG_Data_tvguide()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "35")
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_02)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_41)
_Hide_GUI($Array_GUI_Elements_51)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Show_GUI($Array_GUI_Elements_03)
_Show_GUI($Array_GUI_Elements_35)
EndFunc
;Function To Show External XML EPG Data GUI (3-6)
Func _GUI_Show_EPG_Data_xml()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "36")
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_02)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_41)
_Hide_GUI($Array_GUI_Elements_51)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Show_GUI($Array_GUI_Elements_03)
_Show_GUI($Array_GUI_Elements_36)
EndFunc
;Function To Show Rytec EPG Data GUI (3-7)
Func _GUI_Show_EPG_Data_Rytec()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3")
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastsubmodule3", "37")
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_02)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_41)
_Hide_GUI($Array_GUI_Elements_51)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
;~ _Hide_GUI($Array_GUI_Elements_36_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Show_GUI($Array_GUI_Elements_03)
_Show_GUI($Array_GUI_Elements_37)
_Show_GUI($Array_GUI_Elements_37_8)
EndFunc
;Function To Show Schedules GUI (4-1)
Func _GUI_Show_Schedule_Settings()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "4")
_Hide_GUI($Array_GUI_Elements_03)
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_02)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Hide_GUI($Array_GUI_Elements_51)
_Show_GUI($Array_GUI_Elements_41)
EndFunc
;Function To Show Settings GUI (5-1)
Func _GUI_Show_Settings()
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "5")
_Hide_GUI($Array_GUI_Elements_03)
_Hide_GUI($Array_GUI_Elements_11)
_Hide_GUI($Array_GUI_Elements_02)
_Hide_GUI($Array_GUI_Elements_21)
_Hide_GUI($Array_GUI_Elements_23)
_Hide_GUI($Array_GUI_Elements_24)
_Hide_GUI($Array_GUI_Elements_31)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_31_6)
_Hide_GUI($Array_GUI_Elements_31_7)
_Hide_GUI($Array_GUI_Elements_31_8)
_Hide_GUI($Array_GUI_Elements_31_9)
_Hide_GUI($Array_GUI_Elements_32)
_Hide_GUI($Array_GUI_Elements_32_6)
_Hide_GUI($Array_GUI_Elements_32_7)
_Hide_GUI($Array_GUI_Elements_32_8)
_Hide_GUI($Array_GUI_Elements_32_9)
_Hide_GUI($Array_GUI_Elements_33)
_Hide_GUI($Array_GUI_Elements_33_6)
_Hide_GUI($Array_GUI_Elements_33_7)
_Hide_GUI($Array_GUI_Elements_34)
_Hide_GUI($Array_GUI_Elements_34_6)
_Hide_GUI($Array_GUI_Elements_34_7)
_Hide_GUI($Array_GUI_Elements_34_8)
_Hide_GUI($Array_GUI_Elements_34_9)
_Hide_GUI($Array_GUI_Elements_35)
_Hide_GUI($Array_GUI_Elements_35_6)
_Hide_GUI($Array_GUI_Elements_35_7)
_Hide_GUI($Array_GUI_Elements_36)
_Hide_GUI($Array_GUI_Elements_36_6)
_Hide_GUI($Array_GUI_Elements_36_7)
_Hide_GUI($Array_GUI_Elements_37)
_Hide_GUI($Array_GUI_Elements_37_6)
_Hide_GUI($Array_GUI_Elements_37_7)
_Hide_GUI($Array_GUI_Elements_37_8)
_Hide_GUI($Array_GUI_Elements_37_9)
_Hide_GUI($Array_GUI_Elements_41)
_Show_GUI($Array_GUI_Elements_51)
EndFunc
;Function to Create Main GUI
Func _GUI_Main()
Global $Drive, $Dir, $Filename, $Extension
Local $msg1, $IF1, $tv_database, $lng, $XML_Folder
While 1
_GetTime()
_GetListRytec()
_GetListTVGuide()
_GetListTVSpielfilm()
_GetListWebGrab()
_GetListEpgData()
_GetListXML()
_GetListClickfinder()
_SetFlag()
$msg1 = GUIGetMsg(1)
Select
;~ Menu Items
Case $msg1[0] = $infoitem
MsgBox(0, $lng_about & " " & $Title, "EPG- Buddy" & @CRLF & @CRLF & "(C) 2016 Lehmden" & @CRLF & @CRLF & "Version: " & $version)
Case $msg1[0] = $docitem
If FileExists(@ScriptDir & "\Doc\" & $ini_language & "_EPG-Buddy Manual.pdf") Then
$lng = $ini_language
Else
$lng = "English"
EndIf
ShellExecute(@ScriptDir & "\Doc\" & $lng & "_EPG-Buddy Manual.pdf")
;~ TV Database GUI
Case $msg1[0] = $Navigation_Button_01 OR $msg1[0] = $tvwizarditem
_GUI_Show_TV_Settings()
Case $msg1[0] = $button_11_01
$IF1 = _PathSplit(GUICtrlRead($input_11_01), $Drive, $Dir, $Filename, $Extension)
$tv_database = FileOpenDialog($lng_tvdbfile, $IF1[1] & $IF1[2], $lng_database & " (*.s3db)", $FD_FILEMUSTEXIST, "MP2TVE_3.s3db")
If $tv_database <> "" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_MP2", $tv_database)
_SetData($input_11_01, $tv_database)
EndIf
Case $msg1[0] = $button_11_11
$IF1 = _PathSplit(GUICtrlRead($input_11_11), $Drive, $Dir, $Filename, $Extension)
$tv_database = FileOpenDialog($lng_tvdbfile, $IF1[1] & $IF1[2], $lng_database & " (*.db3)", $FD_FILEMUSTEXIST, "npvr.db3")
If $tv_database <> "" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_NPVR", $tv_database)
_SetData($input_11_11, $tv_database)
EndIf
Case $msg1[0] = $button_11_13
$IF1 = _PathSplit(GUICtrlRead($input_11_13), $Drive, $Dir, $Filename, $Extension)
$tv_database = FileOpenDialog($lng_tvdbfile, $IF1[1] & $IF1[2], $lng_database & " (*.ini)", $FD_FILEMUSTEXIST)
If $tv_database <> "" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_tv_database_DVBV", $tv_database)
_SetData($input_11_13, $tv_database)
EndIf
Case $msg1[0] = $button_11_02
_SaveTV_Database_Settings()
Local $value = MsgBox(36, $lng_save, $lng_saveconfig & "." & @CRLF & $lng_langchange & @CRLF & @CRLF & $lng_saveexit & @CRLF & $lng_savenotexit)
If $value = 6 Then
_Exit("1")
EndIf
;~ EPG Source Items
Case $msg1[0] = $Navigation_Button_02 OR $msg1[0] = $epgwizarditem
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "2")
_LastSubModule2()
Case $msg1[0] = $button_02_01
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_epgdata", GUICtrlRead($password_23_03))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_email_tvguide", GUICtrlRead($password_24_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_pass_tvguide", GUICtrlRead($password_24_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_plot_override", GUICtrlRead($check_05_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvspielfilm", GUICtrlRead($check_23_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_webgrab", GUICtrlRead($check_21_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_epgdata", GUICtrlRead($check_23_03))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_clickfinder", GUICtrlRead($check_23_02))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_tvguide", GUICtrlRead($check_24_01))
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_epg_source_rytec", GUICtrlRead($check_23_04))
_Refresh_channellist()
Local $value = MsgBox(36, $lng_save, $lng_saveconfig & "." & @CRLF & $lng_langchange & @CRLF & @CRLF & $lng_saveexit & @CRLF & $lng_savenotexit)
If $value = 6 Then
_Exit("1")
EndIf
Case $msg1[0] = $Select_Button_02_01
_GUI_Show_EPG_Settings_International()
Case $msg1[0] = $Select_Button_02_03
_GUI_Show_EPG_Settings_Europe()
Case $msg1[0] = $Select_Button_02_04
_GUI_Show_EPG_Settings_America()
Case $msg1[0] = $button_23_01
ShellExecute("http://www.tvspielfilm.de/")
Case $msg1[0] = $button_21_01
ShellExecute("http://www.webgrabplus.com/")
Case $msg1[0] = $button_23_03
ShellExecute("http://www.epgdata.com/")
Case $msg1[0] = $button_23_02
ShellExecute("http://www.tvmovie.de/")
Case $msg1[0] = $button_24_01
ShellExecute("http://www.tvguide.com/")
Case $msg1[0] = $button_23_02a
Local $IF2 = _PathSplit(GUICtrlRead($input_23_02), $Drive, $Dir, $Filename, $Extension)
Local $ini_database_click = FileOpenDialog($lng_database, $IF2[1] & $IF2[2], $lng_database & " (*.mdb)", $FD_FILEMUSTEXIST, "tvdaten.mdb")
If $ini_database_click <> "" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_database_clickfinder", $ini_database_click)
_SetData($input_23_02, $ini_database_click)
EndIf
;~ EPG Data Items
Case $msg1[0] = $Navigation_Button_03 OR $msg1[0] = $epgdataitem
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "settings", "ini_lastmodule", "3")
_LastSubModule3()
Case $msg1[0] = $Select_Button_03_01
_GUI_Show_EPG_Data_TVSpielfilm()
Case $msg1[0] = $Select_Button_03_02
_GUI_Show_EPG_Data_WebGrab()
Case $msg1[0] = $Select_Button_03_03
_GUI_Show_EPG_Data_epgData()
Case $msg1[0] = $Select_Button_03_04
_GUI_Show_EPG_Data_clickfinder()
Case $msg1[0] = $Select_Button_03_05
_GUI_Show_EPG_Data_tvguide()
Case $msg1[0] = $Select_Button_03_06
_GUI_Show_EPG_Data_xml()
Case $msg1[0] = $Select_Button_03_07
_GUI_Show_EPG_Data_Rytec()
Case $msg1[0] = $button_31_01
_SetGroup_31()
Case $msg1[0] = $button_31_91
_WriteGroup_31()
Case $msg1[0] = $button_32_01
GUICtrlDelete($listview_32_91)
_SetSiteini()
Case $msg1[0] = $button_32_11
_GetComboWebGrab()
$showitem_32_11 = 1
Case $msg1[0] = $button_32_21
_WriteWebGrabConfig()
Case $msg1[0] = $button_32_91
_WriteSiteini()
_ReadData_WebGrab_Siteini()
Case $msg1[0] = $button_34_01
_SetGroup_34()
Case $msg1[0] = $button_34_91
_WriteGroup_34()
Case $msg1[0] = $button_37_01
GUICtrlDelete($listview_37_91)
_SetRegion()
Case $msg1[0] = $button_37_91
_WriteRegion()
;~ Schedule Items
Case $msg1[0] = $Navigation_Button_04 OR $msg1[0] = $schedulesitem
_GUI_Show_Schedule_Settings()
Case $msg1[0] = $button_41_21
_Delete_Schedule()
Case $msg1[0] = $button_41_22
_Set_Schedule()
Case $msg1[0] = $button_41_23
_GetEPG()
;~ Settings Items
Case $msg1[0] = $Navigation_Button_05 OR $msg1[0] = $settingsitem
_GUI_Show_Settings()
Case $msg1[0] = $button_05_01
Local $value = MsgBox(36, $lng_save, $lng_saveconfig & "." & @CRLF & $lng_langchange & @CRLF & @CRLF & $lng_saveexit & @CRLF & $lng_savenotexit)
If $value = 6 Then
_Exit("1")
EndIf
Case $msg1[0] = $button_05_15
$XML_Folder = FileSelectFolder($lng_inputfoldertext, $IF1, -1, $IF1)
If $XML_Folder <> "" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "folder", "$ini_xml_folder", $XML_Folder)
_SetData($input_05_15, $XML_Folder)
EndIf
Case $msg1[0] = $button_05_16
$IF1 = _PathSplit(GUICtrlRead($input_05_16), $Drive, $Dir, $Filename, $Extension)
$tv_database = FileOpenDialog("XEPG Executable", $IF1[1] & $IF1[2], $lng_database & " (*.exe)", $FD_FILEMUSTEXIST, "xepg.exe")
If $tv_database <> "" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_xepg_folder", $tv_database)
_SetData($input_05_16, $tv_database)
EndIf
Case $msg1[0] = $button_05_21
Local $IF3 = _PathSplit(GUICtrlRead($input_05_21), $Drive, $Dir, $Filename, $Extension)
$ini_task = FileOpenDialog($lng_files, $IF3[1] & $IF3[2], $lng_files & " (*.exe;*.bat)", $FD_FILEMUSTEXIST)
If $ini_task <> "" Then
IniWrite(@ScriptDir & "\EPG-Buddy.ini", "file", "ini_task", $ini_task)
_SetData($input_05_21, $ini_task)
EndIf
;~ Exit Items
Case $msg1[0] = $GUI_EVENT_CLOSE Or $msg1[0] = $Exititem
_Exit()
EndSelect
Sleep(20)
WEnd
EndFunc
#EndRegion ;Function Declaration