#!/usr/bin/perl

my $advmenu = "/usr/games/bin/advmenu";

$timeout=2;
require Term::ReadKey;
sub get_rotation {
  open(FH,"</home/mame/.advance/advmenu.rc");
  while (<FH>) {
    if (/^display_orientation\s*(.*)$/) {
        $_=$1;
        my $retval=0;
        $retval+=1 if /flip_xy/;
        $retval+=2 if /mirror_x/;
        return $retval;
    }
  }
}

sub print_usage {
  print <<EOF
SpiffMAME maintenance mode.
---------------------------
   Use CTRL-ALT-F2 for console.

   Service_2 (i)
   Service_3 (u)
   
   Config    (tab)     Re-print usage
   OSD       (½)
   Enter     (enter)
   
   P1_start  (r)       Restart AdvanceMENU
   P2_start  (w)       Shutdown system

EOF
}

`/usr/bin/clear`;
`/sbin/splash_util -m v -c setmode`;
`/usr/bin/clear`;
while (1) {
  print("Starting AdvMENU\n");
  $old_rot=get_rotation();
  `su mame -l -c "$advmenu"`;
  $new_rot=get_rotation();
  `/usr/bin/fbset console`;
  `/bin/stty sane`; # advmenu messes up the console, reset it
  `/usr/bin/clear`;
  if ($old_rot!=$new_rot) {
    if ($new_rot==0) {
      # Horizontal
      `ln -nfs /etc/splash/hor /etc/splash/mame`;
    } elsif ($new_rot==3) {
      # Vertical
      `ln -nfs /etc/splash/ver /etc/splash/mame`;
    }
  }
  Term::ReadKey::ReadMode('cbreak');
  $key=unpack("c",Term::ReadKey::ReadKey($timeout));
  Term::ReadKey::ReadMode('normal');
  if ($key==0x09) {
    print_usage();
    while (1) {
      Term::ReadKey::ReadMode('cbreak');
      $key=Term::ReadKey::ReadKey(0);
      Term::ReadKey::ReadMode('normal');
      if ($key eq "i") {
        print("Service_2\n");
      } elsif ($key eq "u") {
        print("Service_3\n");
      } elsif ($key eq "\t") {
        print_usage();
      } elsif ($key eq "½") {
        print("OSD\n");
      } elsif ($key eq "\n") {
        print("Enter\n");
      } elsif ($key eq "r") {
      	print("Restarting\n");
	last;
      } elsif ($key eq "w") {
        print("Shutting down\n");
      	`/sbin/poweroff`;
	exit(0);
      }
    }
  } else {
    `/sbin/splash_util -m s -c setmode`;
    `/sbin/poweroff`;
    exit(0);
  }
}