#!C:\Perl\bin\perl

##===============    Fehlermeldungen/DEBUG	===============##
	#use warnings;
	#use strict;
	#use diagnostics;
##===============	    	END		===============##
##===============    Variablen Declarieren	===============##
	my $t = '';
	my $function = "Funktion:";
	my $doit = '';
	my $dont_send = '';
	my $chart = '';
	my $program_number = '';
	my $multicast_address = '';
	my $multicast_port = '';
	my @line = '';
##===============	    	END		===============##
	my $x = 1;
	for (my $i=0; $i<$x;)
		{
##===============    INI-Benötigte Befehle	===============##
	use Config::IniFiles;
	my $config = Config::IniFiles->new( -file => "tsreader.ini" );
	my $port = $config->val("port", "tsport");
	my $ip = $config->val("ip", "tsip");
	my $pfad1 = $config->val("pfad", "phtml1");
	my $pfad2 = $config->val("pfad", "phtml2");
	my $freq1 = $config->val("frequenz", "freq1");
	my $freq2 = $config->val("frequenz", "freq2");
	my $time = $config->val("time", "timer");

##===============	    	END		===============##
##===============	Connect to TSReader	===============##
			use Telnet ();
  			$t = new Net::Telnet (Timeout => 1, Port => $port);
			eval{$t->open($ip);};
			if ($@)
				{
					print "#############################################################################################################\n";
					print "Unable to connect to TSReader - is the control server running?\n$@\n";
					print "#############################################################################################################\ns";
					$dont_send = 0;
					my $z = true;
					print "Beenden";
					$function = <STDIN>;
  					if ($z = true)
  						{
   							exit;
   						}
				}
			else
				{
					@line = $t->getline();
    				print "\n#############################################################\n";
    				print "TSReader connected.\nResponse: @line";
    				print "#############################################################\n";
    				print "HMTL seite wird exportiert...\n\n";
    				############# Automatischer Ablauf ############
							$dont_send = 0;
							$t->print("TUNE $freq1");
							print "Changed Tuner 1\n";
							print "exportiert...\n";
							sleep(20);
							$t->print("EXPORT HTML $pfad1");
							$dont_send = 0;
							$t->print("TUNE $freq2");
							print "Changed Tuner 2\n";
							print "exportiert...\n";
							sleep (20);
							$t->print("EXPORT HTML $pfad2");
							system("cls");
##===============        Uhrzeit - Deklarieren   	===============##
	my ($Sekunden, $Minuten, $Stunden) = localtime(time);
	my $Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;
	my $Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;
	my $Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
##===============	    	END		===============##
							print "###   HTML-Seiten wurde erfolgreich Exportiert um $Stunden.$Minuten:$Sekunden   ###\n\n";
							open(file, ">>log.txt");
							print file "###   HTML-Seiten wurde erfolgreich Exportiert um $Stunden.$Minuten:$Sekunden   ###";
							close(file);
							sleep($time);}}