NetBSD/games/countmail/countmail

164 lines
3.7 KiB
Bash

#!/bin/sh
# $NetBSD: countmail,v 1.5 2002/07/02 17:18:21 mycroft Exp $
#
# Copyright (c) 1998, 2002 The NetBSD Foundation, Inc.
# All rights reserved.
#
# This code is derived from software contributed to The NetBSD Foundation
# by Charles M. Hannum.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# 3. All advertising materials mentioning features or use of this software
# must display the following acknowledgement:
# This product includes software developed by the NetBSD
# Foundation, Inc. and its contributors.
# 4. Neither the name of The NetBSD Foundation nor the names of its
# contributors may be used to endorse or promote products derived
# from this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
# Count the messages in your mailbox, using only POSIX shell builtins.
#
# Caveats:
#
# The read loop is horrendously slow on every implementation I've
# tried. I suggest using from(1) and wc(1) instead, though these are
# not shell builtins.
# for krb.
#set -- `from -t`
#v=$3
set -- `from | wc -l`
v=$1
#v=`from | wc -l`
#v=0
#exec 0</var/mail/$USER
#while read line; do
# case "$line" in
# "From "*) v=$(($v + 1)) ;;
# esac
#done
#exec 0<&-
set --
g=0
v=000$v
while :; do
case $v in
'' | 0 | 00) break ;;
*000) ;;
*)
case $g in
0) x= ;;
1) x=THOUSAND ;;
2) x=MILLION ;;
3) x=BILLION ;;
4) x=TRILLION ;;
5) x=QUADRILLION ;;
6) x=QUINTILLION ;;
7) x=SEXTILLION ;;
8) x=SEPTILLION ;;
*)
echo "YOU HAVE TOO MUCH MAIL!" 1>&2
exit 1
;;
esac
case $v in
*10) y=TEN ;;
*11) y=ELEVEN ;;
*12) y=TWELVE ;;
*13) y=THIRTEEN ;;
*14) y=FOURTEEN ;;
*15) y=FIFTEEN ;;
*16) y=SIXTEEN ;;
*17) y=SEVENTEEN ;;
*18) y=EIGHTEEN ;;
*19) y=NINETEEN ;;
*2?) y=TWENTY ;;
*3?) y=THIRTY ;;
*4?) y=FORTY ;;
*5?) y=FIFTY ;;
*6?) y=SIXTY ;;
*7?) y=SEVENTY ;;
*8?) y=EIGHTY ;;
*9?) y=NINETY ;;
*) y= ;;
esac
case $v in
*[01]? | *?0) ;;
*) y=$y- ;;
esac
case $v in
*1?) ;;
*1) y=${y}ONE ;;
*2) y=${y}TWO ;;
*3) y=${y}THREE ;;
*4) y=${y}FOUR ;;
*5) y=${y}FIVE ;;
*6) y=${y}SIX ;;
*7) y=${y}SEVEN ;;
*8) y=${y}EIGHT ;;
*9) y=${y}NINE ;;
esac
case $v in
*1??) z=ONE ;;
*2??) z=TWO ;;
*3??) z=THREE ;;
*4??) z=FOUR ;;
*5??) z=FIVE ;;
*6??) z=SIX ;;
*7??) z=SEVEN ;;
*8??) z=EIGHT ;;
*9??) z=NINE ;;
*) z= ;;
esac
set $z ${z:+HUNDRED} $y $x $*
;;
esac
g=$(($g + 1))
v=${v%%???}
done
p=S
case "$*" in
"") set ZERO ;;
ONE) p= ;;
esac
echo "$*!
$* NEW MAIL MESSAGE$p!
HAHAHAHAHA!"