Subversion Repositories HomeAutomation

Rev

Rev 1043 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed

Rev 1043 Rev 1398
Line 1... Line 1...
1 
#!/usr/bin/perl
 1 
#!/usr/bin/perl
2 
 
 2 
 
3 
# Written by Mattias Runge 20089
 3 
# Written by Mattias Runge 20089
4 
 
 4 
 
5 
use IO::Socket;
 5 
use IO::Socket;
- 
 
 6 
use Time::HiRes qw(usleep nanosleep);
6 
 
 7 
 
7 
$| = 1;
 8 
$| = 1;
8 
 
 9 
 
9 
$numArgs = $#ARGV + 1;
 10 
$numArgs = $#ARGV + 1;
10 
 
 11 
 
Line 80... Line 81...
80 
    open(FILE, $filename) || die("Could not open file!");
 81 
    open(FILE, $filename) || die("Could not open file!");
81 
    @fileData=<FILE>;
 82 
    @fileData=<FILE>;
82 
    close(FILE);
 83 
    close(FILE);
83 
    print "Hexfile loaded\n";
 84 
    print "Hexfile loaded\n";
84 
 
 85 
 
- 
 
 86 
    usleep(5000);
85 
    print $sock "programNode('", $hwid, "','";
 87 
    print $sock "programNode('", $hwid, "','";
86 
 
 88 
 
87 
    foreach $line (@fileData)
 89 
    foreach $line (@fileData)
88 
    {
 90 
    {
- 
 
 91 
        usleep(5000);
89 
        print $sock $line;
 92 
        print $sock $line;
90 
    }
 93 
    }
91 
 
 94 
 
- 
 
 95 
    usleep(5000);
92 
    print $sock "', ", $bios, ");\n";
 96 
    print $sock "', ", $bios, ");\n";
93 
 
 97 
 
94 
    my $pLoop = 1;
 98 
    my $pLoop = 1;
95 
 
 99 
 
96 
    while ($pLoop eq 1)
 100 
    while ($pLoop eq 1)
Line 115... Line 119...
115 
    }
 119 
    }
116 
}
 120 
}
117 
 
 121 
 
118 
if ($reset eq "true")
 122 
if ($reset eq "true")
119 
{
 123 
{
- 
 
 124 
    usleep(5000);
120 
    print $sock "resetNode('", $hwid, "');\n";
 125 
    print $sock "resetNode('", $hwid, "');\n";
121 
 
 126 
 
122 
    my $rLoop = 1;
 127 
    my $rLoop = 1;
123 
   
 128 
   
124 
    while ($rLoop eq 1)
 129 
    while ($rLoop eq 1)
Line 142... Line 147...
142 
            exit 1;
 147 
            exit 1;
143 
        }
 148 
        }
144 
    }
 149 
    }
145 
}
 150 
}
146 
 
 151 
 
- 
 
 152 
 
- 
 
 153 
usleep(5000);
- 
 
 154 
print $sock "quit();\n";
- 
 
 155 
usleep(5000);
147 
close($sock);
 156 
close($sock);
148 
exit 0;
 157 
exit 0;