#!/bin/sh

export PROT=tcp
netstat -an|grep $PROT | #grep LISTEN|
perl -ane '$_=$F[3];s/[0-9.]*://;print;print "\n";'|sort|uniq|
xargs fuser -vun $PROT| fgrep -v portsentry

export PROT=udp
netstat -an|grep $PROT|
perl -ane '$_=$F[3];s/[0-9.]*://;print;print "\n";'|sort|uniq|
xargs fuser -vun $PROT| fgrep -v portsentry