Commit a5e7951a authored by Robert Ricci's avatar Robert Ricci

Some minor cleanup that I've been meaning to do for a long time. Scripts now

standardize on using /usr/bin/perl instead of /usr/local/bin/perl (most already
did.)
parent 22dafb66
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
#
# avail - prints a list of all available nodes
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
use Getopt::Std;
use strict;
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
#
# inuse - print a list of all testbed nodes that are allocated to
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
use English;
use Getopt::Std;
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
#
# nodeip - Given a node, interface, or MAC address, print the interface
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
if ($#ARGV >= 1 || $#ARGV < 0) {
#Help mode
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
# This file is temporarily empty. I'm committing it so that my
# changes to configure don't cause unnecessary warnings about
......
#!/usr/local/bin/perl
#!/usr/bin/perl
###
# This program is copyright Alec Muffett 1997. The author disclaims all
......
#!/usr/local/bin/perl -wT
#!/usr/bin/perl -wT
use English;
use Getopt::Std;
......
#!/usr/local/bin/perl -wT
#!/usr/bin/perl -wT
use English;
#
......
#!/usr/local/bin/perl -wT
#!/usr/bin/perl -wT
#
# Testbed Power Control script
#
......
#!/usr/local/bin/perl -wT
#!/usr/bin/perl -wT
use English;
#
......
#!/usr/local/bin/perl -wT
#!/usr/bin/perl -wT
use English;
#
......
#!/usr/local/bin/perl -wT
#!/usr/bin/perl -wT
use English;
#
......
#!/usr/local/bin/perl -wT
#!/usr/bin/perl -wT
#
# savevlans - dump vlans table into a file, suitable for restoration with
# "load data infile '$name' replace into table vlans;"
......
#!/usr/local/bin/perl -wT
#!/usr/bin/perl -wT
use English;
use Getopt::Std;
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
#
# snmpit module for APC MasterSwitch power controllers
#
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
#
# snmpit module for Cisco Catalyst 6509 switches
#
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
#
# snmpit module for a stack of Cisco Catalyst 6509 switches. The main purpose
# of this module is to contain knowledge of how to manage stack-wide operations
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
#
# snmpit module for Intel EtherExpress 510T switches
#
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
#
# snmpit module for Intel EtherExpress 510T switches. This module is largely
# just a wrapper around snmpit_intel, but is here just in case we ever need to
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
#
# Module of subroutines useful to snmpit and its modules
#
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
use Getopt::Std;
#
# vlandiff - Show differences between switch state and vlan table, if any
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
#
# vlansync - Synchronize the switch vlans to what's in the vlans table
# by removing extra vlans/ports, and adding missing ones
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
use English;
use Getopt::Std;
......
#!/usr/local/bin/perl -w
#!/usr/bin/perl -w
%color = (
"pc850", "skyblue",
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment