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 # avail - prints a list of all available nodes
......
#!/usr/local/bin/perl -w #!/usr/bin/perl -w
use Getopt::Std; use Getopt::Std;
use strict; use strict;
......
#!/usr/local/bin/perl -w #!/usr/bin/perl -w
# #
# inuse - print a list of all testbed nodes that are allocated to # inuse - print a list of all testbed nodes that are allocated to
......
#!/usr/local/bin/perl -w #!/usr/bin/perl -w
use English; use English;
use Getopt::Std; use Getopt::Std;
......
#!/usr/local/bin/perl -w #!/usr/bin/perl -w
# #
# nodeip - Given a node, interface, or MAC address, print the interface # 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) { if ($#ARGV >= 1 || $#ARGV < 0) {
#Help mode #Help mode
......
#!/usr/local/bin/perl -w #!/usr/bin/perl -w
# This file is temporarily empty. I'm committing it so that my # This file is temporarily empty. I'm committing it so that my
# changes to configure don't cause unnecessary warnings about # 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 # This program is copyright Alec Muffett 1997. The author disclaims all
......
#!/usr/local/bin/perl -wT #!/usr/bin/perl -wT
use English; use English;
use Getopt::Std; use Getopt::Std;
......
#!/usr/local/bin/perl -wT #!/usr/bin/perl -wT
use English; use English;
# #
......
#!/usr/local/bin/perl -wT #!/usr/bin/perl -wT
# #
# Testbed Power Control script # Testbed Power Control script
# #
......
#!/usr/local/bin/perl -wT #!/usr/bin/perl -wT
use English; use English;
# #
......
#!/usr/local/bin/perl -wT #!/usr/bin/perl -wT
use English; use English;
# #
......
#!/usr/local/bin/perl -wT #!/usr/bin/perl -wT
use English; use English;
# #
......
#!/usr/local/bin/perl -wT #!/usr/bin/perl -wT
# #
# savevlans - dump vlans table into a file, suitable for restoration with # savevlans - dump vlans table into a file, suitable for restoration with
# "load data infile '$name' replace into table vlans;" # "load data infile '$name' replace into table vlans;"
......
#!/usr/local/bin/perl -wT #!/usr/bin/perl -wT
use English; use English;
use Getopt::Std; use Getopt::Std;
......
#!/usr/local/bin/perl -w #!/usr/bin/perl -w
# #
# snmpit module for APC MasterSwitch power controllers # snmpit module for APC MasterSwitch power controllers
# #
......
#!/usr/local/bin/perl -w #!/usr/bin/perl -w
# #
# snmpit module for Cisco Catalyst 6509 switches # 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 # 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 # 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 # 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 # 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 # 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 # Module of subroutines useful to snmpit and its modules
# #
......
#!/usr/local/bin/perl -w #!/usr/bin/perl -w
use Getopt::Std; use Getopt::Std;
# #
# vlandiff - Show differences between switch state and vlan table, if any # 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 # vlansync - Synchronize the switch vlans to what's in the vlans table
# by removing extra vlans/ports, and adding missing ones # by removing extra vlans/ports, and adding missing ones
......
#!/usr/local/bin/perl -w #!/usr/bin/perl -w
use English; use English;
use Getopt::Std; use Getopt::Std;
......
#!/usr/local/bin/perl -w #!/usr/bin/perl -w
%color = ( %color = (
"pc850", "skyblue", "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