Subversion Repositories HomeAutomation

Rev

Rev 1668 | Rev 1881 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed

Rev 1668 Rev 1878
Line 93... Line 93...
93 
 
 93 
 
94 
my $hwid = "";
 94 
my $hwid = "";
95 
my @device = ();
 95 
my @device = ();
96 
 
 96 
 
97 
print "/usr/bin/atomic -s $host -p $port -c \"Node_WaitForInformation\"\n";
 97 
print "/usr/bin/atomic -s $host -p $port -c \"Node_WaitForInformation\"\n";
98 
my @lines = qx{/usr/bin/atomic -s $host -p $port -c \"Node_GetInformation 0xB23F54EA\"};
 98 
#my @lines = qx{/usr/bin/atomic -s $host -p $port -c \"Node_GetInformation 0xB23F54EA\"};
- 
 
 99 
my @lines = qx{/usr/bin/atomic -s $host -p $port -c \"Node_WaitForInformation\"};
99 
 
 100 
 
100 
foreach (@lines)
 101 
foreach (@lines)
101 
{
 102 
{
102 
    my $line = $_;
 103 
    my $line = $_;
103 
    print($_);
 104 
    print($_);
Line 113... Line 114...
113 
        my @hwidChars = split(//, $temp);
 114 
        my @hwidChars = split(//, $temp);
114 
        $hwid = $hwidChars[0]. $hwidChars[1]. $hwidChars[8]. $hwidChars[9]. $hwidChars[6]. $hwidChars[7]. $hwidChars[4]. $hwidChars[5]. $hwidChars[2]. $hwidChars[3];
 115 
        $hwid = $hwidChars[0]. $hwidChars[1]. $hwidChars[8]. $hwidChars[9]. $hwidChars[6]. $hwidChars[7]. $hwidChars[4]. $hwidChars[5]. $hwidChars[2]. $hwidChars[3];
115 
 
 116 
 
116 
        print "Setting HWID in bios.inc to ".$hwid."\n";
 117 
        print "Setting HWID in bios.inc to ".$hwid."\n";
117 
    }
 118 
    }
118 
    elsif (index($line, "DeviceType") != -1)
 119 
    elsif (index($line, "Device Type") != -1)
119 
    {
 120 
    {
120 
        $devicename = substr($line, index($line, ":") + 1);
 121 
        $devicename = substr($line, index($line, ":") + 1);
121 
   
 122 
   
122 
        $devicename =~ s/^\s+//;
 123 
        $devicename =~ s/^\s+//;
123 
        $devicename =~ s/\s+$//;
 124 
        $devicename =~ s/\s+$//;