#!/usr/bin/perl
# $Id: rtkeyshow,v 1.4 2001/02/25 10:27:36 stes Exp $

$IPMENU=$ENV{'IPMENU'};
require "$IPMENU/ipmenu.lib";

$menu="$TMP/Menu.$$";
if (!open(MENU,">$menu")) {
  print "`message \"Problem writing to $menu\"`nop\n";exit 0;
}

print MENU "menu=Rt key\n";
print MENU "close=`rm -f $menu`nop\n";

%rtkeys = rtkeys();
$num=0;
map {
  $key=$_;$num++;
  $Key=$key;
  print MENU "name=\"$num. $Key\"\n";
  print MENU "action=open $IPMENU/Menu.route $key\n";
} values(%rtkeys);

print MENU "name=Close\n";
print MENU "action=close\n";
close(MENU);

print "open $menu\n";

