|
Lines 566-581
Link Here
|
| 566 |
my $size = @data; |
566 |
my $size = @data; |
| 567 |
my $chip = -1; |
567 |
my $chip = -1; |
| 568 |
if ($size == 2) { |
568 |
if ($size == 2) { |
|
|
569 |
my $hasIntel = 0; |
| 569 |
foreach my $line (@data) { |
570 |
foreach my $line (@data) { |
|
|
571 |
if ($line =~ /(i810|intel)$/) { |
| 572 |
$hasIntel = 1; last; |
| 573 |
} |
| 574 |
} |
| 575 |
if (! $hasIntel) { |
| 576 |
return; |
| 577 |
} |
| 578 |
foreach my $line (@data) { |
| 570 |
$chip++; |
579 |
$chip++; |
| 571 |
if ($line =~ /(i810|intel)$/) { |
580 |
if ($line =~ /(i810|intel)$/) { |
| 572 |
$chip = $chip ^ 1; last; |
581 |
$chip = $chip ^ 1; last; |
| 573 |
} |
582 |
} |
| 574 |
} |
583 |
} |
|
|
584 |
if ($chip >= 0) { |
| 585 |
$CardNumber = $chip; |
| 586 |
} |
| 575 |
} |
587 |
} |
| 576 |
if ($chip >= 0) { |
|
|
| 577 |
$CardNumber = $chip; |
| 578 |
} |
| 579 |
} |
588 |
} |
| 580 |
|
589 |
|
| 581 |
#========================================== |
590 |
#========================================== |