Thread Windows 7 Konsole nicht einfach beenden (18 answers)
Opened by Mike at 2011-08-03 09:32

the0MIKE
 2011-08-04 14:10
#151160 #151160
User since
2011-08-03
9 Artikel
BenutzerIn
[default_avatar]
sry bekomm es iwie nicht besser gepostet... kp warum

also danke für die überarbeitung war währenddessen auch schon fleissig ;)

wie gesagt ich habe dieses script hauptsächlich nur übernommen, da es lief hab ich mich darum erstmal nicht gekümmter.

ich habe jetzt mal etwas umgeschrieben, könnt euch ja mal gerne anschauen was sich geändert hat ;)

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83

#!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);}}


wie gesagt jetzt läuft alles wie ich will ;)
hab leider noch das wenn der tsreader während dieses script läuft abstirbt, bekomm ich ne fehlermeldung und die dosbox schließt sich leider ist es immer zu schnell weg ist aber glaub ich ein "write error:"

Last edited: 2011-08-04 14:13:43 +0200 (CEST)

View full thread Windows 7 Konsole nicht einfach beenden