/[fai]/people/michael/features/setup_harddisks_2/implementation/lib/sizes.pm
ViewVC logotype

Diff of /people/michael/features/setup_harddisks_2/implementation/lib/sizes.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3597 by michael-guest, Sat Jul 22 00:27:06 2006 UTC revision 3599 by michael-guest, Sat Jul 22 00:39:12 2006 UTC
# Line 72  foreach my $disk ( @FAI::disks ) Line 72  foreach my $disk ( @FAI::disks )
72      {      {
73        if( $line =~ /^(\d+)*\s+(\d+)B\s+(\d+)B\s+(\d+)B/i )        if( $line =~ /^(\d+)*\s+(\d+)B\s+(\d+)B\s+(\d+)B/i )
74        {        {
75          printf $1." ".$2." ".$3." ".$4."\n";  
76            $FAI::current_config{ $disk }{ "partitions" }{ $1 } = {
77              "begin_byte" => $2;
78              "end_byte" => $3;
79              "count_byte" => $4;
80            };
81        }        }
82    
83        if( $line =~ /^Disk geometry for.*(\d+)B - (\d+)B/i )        if( $line =~ /^Disk geometry for.*(\d+)B - (\d+)B/i )
84        {        {
85          printf $1." ".$2."\n";          $FAI::current_config{ $disk } = {
86              "begin_byte" => $1;
87              "end_byte" => $2;
88            }
89        }        }
90    
91        if( $line =~ /^Disk label type:\s*(\w*)\s*/i )      #  if( $line =~ /^Disk label type:\s*(\w*)\s*/i )
92        {      #  {
93          printf $1;      #
94        }      #    printf $1;
95        #  }
96      }      }
97    }    }
98    
# Line 96  foreach my $disk ( @FAI::disks ) Line 105  foreach my $disk ( @FAI::disks )
105    
106        if( $line =~ /^(\d+)\s+(\d+),(\d+),(\d+)\s+(\d+),(\d+),(\d+)/i )        if( $line =~ /^(\d+)\s+(\d+),(\d+),(\d+)\s+(\d+),(\d+),(\d+)/i )
107        {        {
108          printf $1." ".$2." ".$3." ".$4." ".$5." ".$6." "."$7"."\n";          $FAI::current_config{ $disk }{ "partitions" }{ $1 } = {
109              "begin_cylinder" => $2;
110              "begin_head" => $3;
111              "begin_sector" => $4;
112              "end_cylinder" => $5;
113              "end_head" => $6;
114              "end_sector" => $7;
115            };
116    
117        }        }
118    
119        if( $line =~ /^Disk geometry for.*(\d+),(\d+),(\d+) - (\d+),(\d+),(\d+)/i )        if( $line =~ /^Disk geometry for.*(\d+),(\d+),(\d+) - (\d+),(\d+),(\d+)/i )
120        {        {
121          printf $1." ".$2." ".$3." ".$4." ".$5." ".$6."\n";  
122        }          $FAI::current_config{ $disk } = {
123              "begin_cylinder" => $1;
124              "begin_head" => $2;
125              "begin_sector" => $3;
126              "end_cylinder" => $4;
127              "end_head" => $5;
128              "end_sector" => $6;
129            }
130      }      }
131    }    }
132  }  }
Legend:
Removed from v.3597  
changed lines
  Added in v.3599
  ViewVC Help
Powered by ViewVC 1.1.5