Subversion Repositories HomeAutomation

Rev

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

Rev 1885 Rev 1891
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);
 136 
        $devicename = substr($line, index($line, ":") + 1, -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];
Line 146... Line 146...
146 
                @device = @{$_};
 146 
                @device = @{$_};
147 
                $foundDeviceType = 1;
 147 
                $foundDeviceType = 1;
148 
            }
 148 
            }
149 
        }
 149 
        }
150 
       
 150 
       
151 
        if ($device[0] eq "unknown")
 151 
        if ($foundDeviceType == 0)
152 
        {
 152 
        {
153 
            print "\nWarning: Unknown device type, will not set MCU settings\n\n";
 153 
            print "\nWarning: Unknown device type, will not set MCU settings\n\n";
154 
        }
 154 
        }
155 
        else
 155 
        else
156 
        {
 156 
        {