Subversion Repositories sysadmin_scripts

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
24 rodolico 1
#! /usr/bin/perl -w
2
 
3
my $toFind = shift;
4
 
5
if ( $toFind ) {
6
   print "ssh names\n";
7
   print `grep $toFind /etc/ssh/ssh_config`;
8
   print "\nvpn names\n";
9
   print `ls /etc/openvpn | grep $toFind`;
10
} else {
11
   print "You must enter one thing to look for, ie findname pci\n";
12
}