#!/usr/bin/perl
# $Id: iplinkshow,v 1.7 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=Devices\n";
print MENU "close=`rm -f $menu`nop\n";

@links = iplinks();
$num=0;
map {
  $dev=$_;$num++;
  print MENU "name=\"$num. $dev\"\n";
  print MENU "action=nop\n";
} @links;

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

print "open $menu\n";

