#! /usr/bin/perl
# adopted from the openSUSE branding file

sub update_default;

$theme = "simple";

$grub2_default = "/etc/default/grub";

update_default;

sub update_default
{
  # skip if there's no grub2 config
  return unless -f $grub2_default;

  open $f, '<', $grub2_default;
  my @f = (<$f>);
  close $f;

  $term = "GRUB_TERMINAL=console\n";

  # modify existing entry, or...
  for (@f) {
    if(/^\s*#?\s*GRUB_TERMINAL\s*=/) {
      $_ = $term;
      $ok = 1;
    }
  }

  # ... add a new entry
  push @f, $term if !$ok;

  open $f, '>', "$grub2_default.tmp";
  print $f @f;
  close $f;

  rename $grub2_default, "$grub2_default.old";
  rename "$grub2_default.tmp", $grub2_default;
}

