Lines Matching full:sections
219 my @sections;
224 $sections[$index]{'kernel'} = $2;
228 $sections[$index]{$key} = $1;
229 $sections[$index]{$key} =~ s/\"|\'//g if ($key eq 'args');
235 if (!(defined $sections[0]{'default'})) {
236 $sections[0]{'default'} = '0';
240 foreach my $index (1..$#sections) {
241 if ($sections[$index]{'title'} eq $sections[0]{'default'}) {
242 $sections[0]{'default'} = $index-1;
249 if ( $sections[0]{'default'} !~ m/^\d+$/ ) {
250 $sections[0]{'default'} = 0;
254 return @sections;
266 my @sections = $self->_info();
267 my $default = $sections[0]{'default'};
281 my @sections = $self->_info();
282 my $default = $sections[0]{'default'} + 1;
284 if (defined $sections[$default]{'kernel'}) {
287 for ($default = 1; $default <= $#sections; $default++) {
288 if (defined $sections[$default]->{'kernel'}) {
308 my @sections=$self->_info();
315 my $kcount = $#sections-1;
322 $newdefault = $sections[++$newdefault]{title};
361 my @sections=$self->_info();
374 @sections=$self->_info();
382 $param{$p} = $sections[$default]{$p};
387 my $bootpath = $sections[$default]{'kernel'};
405 if ($param{position}=~/end/ || $param{position} >= $#sections) {
406 $param{position}=$#sections;
449 my @sections=$self->_info();
456 my $kcount = $#sections-1;
498 my @sections=$self->_info();
501 $position=$#sections-1;
511 for (my $index=$#sections; $index > 0; $index--) {
512 if (defined $sections[$index]{title} && $position eq $sections[$index]{title}) {
524 if ($position < 0 || $position > $#sections) {
525 warn "ERROR: Enter a position between 0 and $#sections.\n";
543 $self->set_default(0) if $position == $sections[0]{'default'};
568 my @sections=$self->_info();
574 $start=0; $end=$#sections-1
586 if ($start < 0 || $end > $#sections-1) {
594 foreach ( sort keys(%{$sections[$index]}) ) {
595 print "$_\t: $sections[$index]{$_}\n";
619 my @sections=$self->_info();
622 if ((defined $sections[$index]{'title'})) {
624 foreach my $key ( keys %{$sections[$index]} ){
625 $self->{'entry'}->{'data'}->{ $key } = $sections[$index]{$key};
656 my @sections=$self->_info();
658 for my $index (1..$#sections) {
659 my $tmp = $sections[$index]{title};
1098 my @sections = $self->_info();
1104 my $kernel = $efiroot . $sections[$position]{kernel};
1105 my $root = $sections[$position]{root};
1106 my $args = $sections[$position]{args};
1288 my @sections;
1293 $sections[$index]{title} = $1;
1297 $key .= '2' if exists $sections[$index]{$key};
1298 $sections[$index]{$key} = $1;
1300 $sections[$index]{$key} =~ s/root=\S+\s*//i;
1301 delete $sections[$index]{$key} if ($sections[$index]{$key} !~ /\S/);
1308 if (!(defined $sections[0]{'default'})) {
1309 $sections[0]{'default'} = '0';
1312 } elsif ($sections[0]{'default'} =~ m/^saved$/i) {
1318 $sections[0]{'default'} = $1;
1322 return @sections;
1336 my @sections=$self->_info();
1344 my $kcount = $#sections-1;
1405 my @sections=$self->_info();
1418 @sections=$self->_info();
1426 $param{$p} = $sections[$default]{$p};
1431 my $bootpath = $sections[$default]{'kernel'};
1443 $line = "\tkernel $sections[$default]{kernel}";
1444 $line .= " $sections[$default]{root}" if defined $sections[$default]{root};
1445 $line .= " $sections[$default]{args}" if defined $sections[$default]{args};
1447 …push( @newkernel, "\tinitrd $sections[$default]{'initrd'}\n" ) if defined $sections[$default]{'ini…
1474 if ($param{position}=~/end/ || $param{position} >= $#sections) {
1475 $param{position}=$#sections;
1521 my @sections=$self->_info();
1528 my $kcount = $#sections-1;
2011 my @sections;
2038 $sections[$1] = $sect_title{$2};
2044 $sections[0]{$1} = $2;
2049 $sections[0]{'menu'} = $menu_name;
2050 if (defined $sections[0]{'default'}) {
2051 $sections[0]{'default'}--;
2055 if (!(defined $sections[0]{'default'})) {
2056 $sections[0]{'default'} = '0';
2059 } elsif ($sections[0]{'default'} !~ m/^\d+$/) {
2060 foreach my $index (1..$#sections) {
2061 if ($sections[$index]{'title'} eq $sections[0]{'default'}) {
2062 $sections[0]{'default'} = $index-1;
2066 $sections[0]{'default'} = 0 if (!defined $sections[0]{'default'});
2070 return @sections;
2083 my @sections=$self->_info();
2091 my $kcount = $#sections-1;
2098 my $title = $sections[$newdefault + 1]{'title'};
2135 my @sections=$self->_info();
2148 @sections=$self->_info();
2156 $param{$p} = $sections[$default]{$p};
2161 my $bootpath = $sections[$default]{'kernel'};
2240 my @sections=$self->_info();
2244 $position=$#sections-1;
2260 my $title = $sections[$position + 1]{'title'};
2331 my @sections=$self->_info();
2338 my $kcount = $#sections-1;
2345 my $title = $sections[$params{'update-kernel'} + 1]{'title'};
2397 my @sections=$self->_info();
2399 warn "ZIPL: needs to run zipl -m $sections[0]{'menu'}\n";
2400 system("/sbin/zipl -m $sections[0]{'menu'}");