[9fans] rewriting scripts for rc

["Andrey S. Kukhar" <plan9@kp.km.ua>]

[-- Attachment #1: Type: text/plain, Size: 88 bytes --]

folks, can you help me with rewriting a few Bourne shell scripts for rc

thanks,
-ask

[-- Attachment #2.1: Type: text/plain, Size: 338 bytes --]

The following attachment had content that we can't
prove to be harmless.  To avoid possible automatic
execution, we changed the content headers.
The original header was:

	Content-Type: application/x-shellscript;
  charset="koi8-r";
  name="nom"
	Content-Transfer-Encoding: base64
	Content-Disposition: attachment; filename="nom"

[-- Attachment #2.2: nom.suspect --]
[-- Type: application/octet-stream, Size: 1190 bytes --]

#! /bin/sh
#
###	nom - return names of non-matching files from current directory
###	Usage: nom files     (example:  lpr `nom *.ms`)
##
## nom TAKES FILENAMES (USUALLY, EXPANDED BY THE SHELL) FROM ITS COMMANDLINE.
## IT OUTPUTS ALL FILENAMES IN THE CURRENT DIRECTORY THAT *DON'T* MATCH.
## NOTE: nom DOESN'T KNOW ABOUT FILES WHOSE NAMES BEGIN WITH "."
##
## EXAMPLES:
## TO GET THE NAMES OF ALL FILES THAT *DON'T* END WITH ".ms":
##	% nom *.ms
## TO EDIT ALL FILES WHOSE NAMES DON'T HAVE ANY LOWER-CASE LETTERS:
##	% vi `nom *[a-z]*`
## TO COPY ALL FILES TO A DIRECTORY NAMED Backup (EXCEPT Backup ITSELF):
##	% cp `nom Backup` Backup

temp=/tmp/NOM$$
stat=1	# ERROR EXIT STATUS (SET TO 0 BEFORE NORMAL EXIT)
trap 'rm -f $temp; exit $stat' 0 1 2 15

# MUST HAVE AT LEAST ONE ARGUMENT, AND ALL HAVE TO BE IN CURRENT DIRECTORY:
case "$*" in
"")	echo Usage: `basename $0` pattern 1>&2; exit ;;
*/*)	echo "`basename $0` quitting: I can't handle '/'s." 1>&2; exit ;;
esac

# GET FILENAMES WE DON'T WANT TO MATCH; REPLACE BLANKS WITH NEWLINES:
echo "$*" | tr ' ' '\012' | sort > $temp
# COMPARE TO CURRENT DIRECTORY (-1 = ONE NAME PER LINE); OUTPUT NAMES WE WANT:
ls -1 | comm -23 - $temp
stat=0

[-- Attachment #3.1: Type: text/plain, Size: 350 bytes --]

The following attachment had content that we can't
prove to be harmless.  To avoid possible automatic
execution, we changed the content headers.
The original header was:

	Content-Type: application/x-shellscript;
  charset="koi8-r";
  name="cal_today"
	Content-Transfer-Encoding: base64
	Content-Disposition: attachment; filename="cal_today"

[-- Attachment #3.2: cal_today.suspect --]
[-- Type: application/octet-stream, Size: 413 bytes --]

#!/bin/sh
#
# cal_today - if user doesn't give an argument, put > < around today's 
# date on this month's calendar

case $# in
0) set x `date`   # Get the current day of the month into $4
   /usr/bin/cal |
   # Put > < around $4 (shell expands $4 inside the doublequotes)
   sed -e 's/^/ /' -e "s/ $4$/>$4</" -e "s/ $4 />$4</"
   ;;
# If arguments are given, just run the normal cal
*) /usr/bin/cal "$@" ;;
esac