Shell Programming and Scripting

profile client test1 {
   defaults from clientssl
   key "blank_ssl.key"
   cert "blank_ssl.crt"
   chain "WF-CA-BUNDLE.crt"
   ca file "WF-CA-BUNDLE.crt"
   client cert ca "WF-CA-BUNDLE.crt"
   ciphers "DEFAULT:+DES-CBC-SHA"
   peer cert mode require
   authenticate depth 3
}
profile client test2 {
   defaults from clientssl
   key "blank_ssl.key"
   cert "blank_ssl.crt"
   chain "WF-CA-BUNDLE.crt"
   ca file "WF-CA-BUNDLE.crt"
   client cert ca "WF-CA-BUNDLE.crt"
   ciphers "DEFAULT:+DES-CBC-SHA"
   peer cert mode require
   authenticate depth 3
}
profile client test3 {
   defaults from clientssl
   key "blank_ssl.key"
   cert "blank_ssl.crt"
   chain "WF-CA-BUNDLE.crt"
   ca file "WF-CA-BUNDLE.crt"
   client cert ca "WF-CA-BUNDLE.crt"
   ciphers "DEFAULT:+DES-CBC-SHA"
   peer cert mode require
   authenticate depth 3
}
virtual test_1 {
   limit 1
   destination 1.2.3.4:telnet
   ip protocol tcp
   rules test1_rule
   profiles test1
}
virtual test_2 {
   limit 1
   destination 1.2.3.4:telnet
   ip protocol tcp
   rules test1_rule
   profiles 
	test2
	tcp
}
virtual test_3 {
   limit 1
   destination 1.2.3.4:telnet
   ip protocol tcp
   rules test1_rule
   profiles 
	test2
}

echo "-------------------------------------------------------------------------"
echo "|"
echo "| Checking for orphaned monitors..."
echo "|"
profiles=`grep -i "^profile" ${CONF} | cut -f3 -d" "`
for i in $profiles; do
   profilecheck=`grep "profiles $i" ${CONF}`
   [ "${profilecheck}" != "" ] || echo "|   profile $i may be unused."
done
echo "|"
echo "-------------------------------------------------------------------------"

#!/usr/bin/env bash

# @(#) s1	Demonstrate parsing, sorting, filtering.

# Infrastructure details, environment, commands for forum posts. 
set +o nounset
LC_ALL=C ; LANG=C ; export LC_ALL LANG
echo ; echo "Environment: LC_ALL = $LC_ALL, LANG = $LANG"
echo "(Versions displayed with local utility \"version\")"
c=$( ps | grep $$ | awk '{print $NF}' )
version >/dev/null 2>&1 && s=$(_eat $0 $1) || s=""
[ "$c" = "$s" ] && p="$s" || p="$c"
version >/dev/null 2>&1 && version "=o" $p grep cgrep awk sed tr sort comm
set -o nounset
echo

FILE=${1-data1}

# Remove debris.
rm -f t[1-9]

echo " Sample of $(wc -l <$FILE) lines in data file $FILE:"
head -5 $FILE
echo -----
tail -5 $FILE

echo
echo " Results:"
grep -w profile $FILE |
tee t1 |
cat > defs

cgrep -D +w '^}' virtual $FILE |
tee t2 |
cat > virs

awk '{ print $3 }' defs |
tee t3 |
cat > defs-names

cgrep -D +I2 +w '^}' profile virs |
tee t4 |
sed '/^[ \t]*$/d' |
sort > virs-names

sed 's/profiles//' virs-names |
tee t5 |
tr '\n' ' ' |
tee t6 |
sed -e 's/^ *//' -e 's/[ \t][ \t]*/ /g' |
tee t7 |
tr ' ' '\n' |
tee t8 |
sed '/^[ \t]*$/d' |
sort -u > virs-final

# use:
# comm -13 virs-final defs-names
# if unmatched profiles should not be displayed.

comm -3 virs-final defs-names

exit 0

% ./s1

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian GNU/Linux 5.0 
GNU bash 3.2.39
GNU grep 2.5.3
cgrep - (local: ~/executable/cgrep May 29 2009 )
GNU Awk 3.1.5
GNU sed version 4.1.5
tr (GNU coreutils) 6.10
sort (GNU coreutils) 6.10
comm (GNU coreutils) 6.10

 Sample of 58 lines in data file data1:
profile client test1 {
   defaults from clientssl
   key "blank_ssl.key"
   cert "blank_ssl.crt"
   chain "WF-CA-BUNDLE.crt"
-----
   rules test1_rule
   profiles 
	test2
}


 Results:
tcp
	test3

awk '$1=="profile"{A[$3]=1} $1=="profiles"{sub($1,"");p=1} $1=="}"{p=0} p{for(i=1;i<=NF;i++)A[$i]--}
     END{for(i in A)if (A[i]>0) print i}' infile

test3