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

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

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

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

$num=0;
map {
  $chain=$_;$num++;
  print MENU "name=\"$num. $chain\"\n";
  print MENU "action=open $IPMENU/Menu.customchain $chain\n";
} @t;

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

if ($num) {
  print "open $menu\n";
} else {
  unlink($menu);
  print "nop\n";
}

