Subversion Repositories sysadmin_scripts

Rev

Rev 24 | Details | Compare with Previous | 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 
}