source: trunk/debathena/debathena/xsession/debian/quotawarn @ 23449

#!/bin/sh

# Start warning when a usage is less than this many kilobytes away
# from your quota
tolerance=100000

# Determine the user's home directory usage and quota.
qline=`quota.debathena -v -f "$USER" | awk '/^\// {print}'`
usage=`echo "$qline" | awk '{print $2}'`
quota=`echo "$qline" | awk '{print $3}'`
warnlevel=`expr "${quota:-0}" - ${tolerance}`

if [ -n "$usage" -a -n "$quota" ] && [ "$usage" -ge "$quota" ]; then
  zenity --error --text="
Your home directory usage exceeds your quota (${usage}KB
used out of ${quota}KB).  You will be unable to use
Athena normally until you free up space by deleting
unneeded files.  You may find the following command
useful to identify unneeded files:

  athrun consult helpquota"
elif [ -n "$usage" -a -n "$warnlevel" ] && [ "$usage" -ge "$warnlevel" ]; then
  zenity --info --text="
Your home directory usage is near your quota (${usage}KB
used out of ${quota}KB).  Consider removing unneeded
files to free up space.  You may find the following
command useful to identify unneeded files:

  athrun consult helpquota"
fi

# Determine the user's mail usage and quota.
qline=`mailquota | tail -n +2`
usage=`echo "$qline" | awk '{print $2}'`
quota=`echo "$qline" | awk '{print $3}'`
warnlevel=`expr "${quota:-0}" - ${tolerance}`

if [ -n "$usage" -a -n "$warnlevel" ] && [ "$usage" -ge "$warnlevel" ]; then
  zenity --info --text="
Your MIT mail usage is close to or exceeding your mail
quota (${usage}KB used out of ${quota}KB).  Consider
removing unneeded mail messages to free up space.  You
may find the following command useful to identify which
mail folders need the most attention:

  mailusage"
fi