Subversion Repositories HomeAutomation

Rev

Rev 1667 | Rev 1885 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed

Rev 1667 Rev 1877
Line 57... Line 57...
57 
    exit 1;
 57 
    exit 1;
58 
}
 58 
}
59 
 
 59 
 
60 
#0x14f90d1f to 0x1f0df914
 60 
#0x14f90d1f to 0x1f0df914
61 
@hwidChars = split(//, $hwid);
 61 
@hwidChars = split(//, $hwid);
62 
$hwid = $hwidChars[0]. $hwidChars[1]. $hwidChars[8]. $hwidChars[9]. $hwidChars[6]. $hwidChars[7]. $hwidChars[4]. $hwidChars[5]. $hwidChars[2]. $hwidChars[3];
 62 
$hwid = $hwidChars[0]. $hwidChars[1]. uc($hwidChars[8]. $hwidChars[9]. $hwidChars[6]. $hwidChars[7]. $hwidChars[4]. $hwidChars[5]. $hwidChars[2]. $hwidChars[3]);
63 
 
 63 
 
64 
print "atomDude settings:\n";
 64 
print "atomDude settings:\n";
65 
print "Hardware id: " . $hwid . "\n";
 65 
print "Hardware id: " . $hwid . "\n";
66 
print "Atom address: " . $hostname . ":" . $port . "\n";
 66 
print "Atom address: " . $hostname . ":" . $port . "\n";
67 
print "Hexfile: " . $filename . "\n";
 67 
print "Hexfile: " . $filename . "\n";