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

$IPMENU=$ENV{'IPMENU'};
$TMP='/tmp';
$TMP=$ENV{'TMP'} if defined($ENV{'TMP'});

$name=$ARGV[0];

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

print FORM "form=Link $name\n";
print FORM "done=`rm -f $form`nop\n";

open(IP,"ip -o link show $num|");
while (<IP>) {
  ($num,$dev,$rem)=split(/[: \t]+/);
  print FORM "name=$num. $dev\n";
  print FORM "action=nop\n";
}
close(IP);

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

print "open $menu\n";

