Listing 1 df_limit.csh

#!/bin/csh -f

set limit = 90
set comp_list = 'barracuda medusa stingray tuna dolphin sword seal salmon octopus' 

touch /tmp/comp
rm /tmp/comp
foreach comp ( $comp_list )
    set df = `rsh $comp df -F ufs -k  | grep -v 'capa' | awk '{print $5}' | sed \
      -e s/\%// `
    set mnt = `rsh $comp df -F ufs -k | grep -v 'capa' | awk '{print $6}'`
    set i = 0        
    foreach use ( $df )
        @ i = $i + 1
        if ( "$use" > "$limit" ) then
            echo " $use% on $comp : $mnt[$i]" >> /tmp/comp
        endif
    end
end
if (-f /tmp/comp) then
    /usr/ucb/Mail mark.prager@seabridgenetworks.com < /tmp/comp
endif