#!/usr/local/bin.sun4/perl5

$lev=0;

while (<STDIN>) {
  s/\s*DEFAULT//g;
  if (($l)=/^\s*\"?([^"]+)\"?\s+MENU$/) { 
    $l=~s/[\(\)]//g;
    print " "x$lev."[submenu] ($l) {$l}\n";
    $lev+=2;
    next;
  }
  if (/END$/) {
    $lev-=2;
    print " "x$lev."[end]\n";
    next;
  }
  if (/SEPARATOR/ || /^\s+$/ || /TITLE( PIN)?$/) {
    next;
  }
  if (($l,$p)=/^\s*\"([^"]+)\"\s+(.*)/) {
    $l=~s/[\(\)]//g;
    $p=~s#SOCKS_SERVER=gateb#/home/andyw/bin/gateb#;
    #$p=~s#\$OPENWINHOME#/usr/openwin#;
    $p=~s/^\s*(exec)?\s*(.*)\s*$/$2/g;
    print " "x$lev."[exec] ($l) {$p}\n";
  }
}