Subversion Repositories HomeAutomation

Rev

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

Rev 1891 Rev 1892
Line 131... Line 131...
131 
 
 131 
 
132 
        print "Setting HWID in bios.inc to ".$hwid."\n";
 132 
        print "Setting HWID in bios.inc to ".$hwid."\n";
133 
    }
 133 
    }
134 
    elsif (index($line, "Device Type") != -1)
 134 
    elsif (index($line, "Device Type") != -1)
135 
    {
 135 
    {
136 
        $devicename = substr($line, index($line, ":") + 1, -1);
 136 
        $devicename = substr($line, index($line, ":") + 1);
137 
   
 137 
   
138 
        $devicename =~ s/^\s+//;
 138 
        $devicename =~ s/^\s+//;
139 
        $devicename =~ s/\s+$//;
 139 
        $devicename =~ s/\s+$//;
140 
       
 140 
       
141 
        @device = $devices[0];
 141 
        @device = $devices[0];