Usenet 1994 October

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume16 / mh-scripts / part01 next >

Wrap

Internet Message Format | 1991-02-02 | 49.0 KB

From: jerry@ora.com (Jerry Peek) Newsgroups: comp.sources.misc Subject: v16i089: "MH & xmh: Email for Users and Programmers", Part01/01 Message-ID: <1991Feb2.050758.20285@sparky.IMD.Sterling.COM> Date: 2 Feb 91 05:07:58 GMT Approved: kent@sparky.imd.sterling.com X-Checksum-Snefru: c4b584d0 c695b397 2e978d63 b63595db Submitted-by: jerry@ora.com (Jerry Peek) Posting-number: Volume 16, Issue 89 Archive-name: mh-scripts/part01 These files are Bourne shell scripts that use MH electronic mail commands. The scripts come from the Nutshell Handbook called "MH & xmh: Email for Users and Programmers" published by O'Reilly & Associates, Inc. Whether you have the book or not, these scripts should be useful if you use MH. (If you don't use MH, look at the kinds of things you could do.) --Jerry Peek, jerry@ora.com # This is a shell archive. Remove anything before this line, # then unpack it by saving it in a file and typing "sh file". # # NOTE: Tabstops in these files are set at 4-column intervals. # # Wrapped by ora!jerry on Sat Jan 12 18:30:42 EST 1991 # Contents: README append babyl2mh distprompter fixsubj fols incs mhprofile # recomp replf resend.fixmsg rmmer scandrafts showpr vmsmail2mh xmhprint echo extracting - README sed 's/^X//' > "README" <<'X//E*O*F README//' XINTRODUCTION: These files are Bourne shell scripts that use MH electronic Xmail commands. The scripts come from the Nutshell Handbook called "MH & xmh: XEmail for Users and Programmers" published by O'Reilly & Associates, Inc. XThe book will be available this month (January, 1991). X XWhether you have the book or not, these scripts should be useful if you Xuse MH. (If you don't use MH, look at the kinds of things you could do. XBecause MH isn't a "one-mail-program-does-all" system and its programs are Xall run by the UNIX shell, shell programming with MH is easy.) XEach file has a comment block that explains the program; individual Xparts of the scripts are commented, too. Although the book has complete Xexplanations, people who have some experience with shell programming and XMH should be able to use these without the book. X X XDO THEY WORK?: I developed these scripts under BSD UNIX and SunOS; I've Xused most of them myself for months or years. The book's reviewers tested Xthem on other flavors of UNIX. Still, there could be some portability or Xother problems. If you don't have MH 6.7 installed, you could run into a Xfew problems there. There are also some compatibility problems, like X"echo -n" vs. "echo \c", that I haven't tried to code around; remember Xthat these are intended more as examples than as portable bulletproof code. X XIf you find problems, though, please send me mail. Of course, some Xsystem-dependent stuff like variables that hold the pathnames of files and Xprograms will have to be edited to work on your computer. Also, some Xobscure problems and system dependencies are explained in the book. XBut I'd be GLAD to get your mail (and answer it as soon as I can). X XBecause these scripts come directly from the book, I'm not sure what to Xdo about patches and patchlevel.h files for the comp.sources.misc Xarchives. The book versions won't be patched; they'll just be updated. XThe latest versions should always be available on the uunet.uu.net Xcomputer for anonymous ftp and uucp; get the tar file named MHxmh.tar.Z Xfrom the nutshell/MHxmh directory. X X XDESCRIPTIONS: Here are one-line descriptions of the script files. XEven if you don't need the capabilities that a particular program gives, Xyou might want to look at the scripts anyway for examples of MH programming. X Xappend Append file(s) to an MH mail message at "What now?" prompt Xdistprompter Replaces "prompter" editor for MH "dist" command Xfixsubj Fix (add or change) "Subject:" on a mail message Xfols Show list of folders in columns, current folder marked Xmhprofile Grab matching line(s) from MH profile file Xrecomp Re-compose a draft mesage in MH draft folder Xreplf Refile current message into folder, reply to it Xresend.fixmsg Editor for fixing up returned mail (use with "resend") Xrmmer Move mail to DELETE (sub-)folder for "find" to delete later Xscandrafts Scan MH draft folder; return to original folder or stay Xshowpr Show MH message(s) with pr(1), custom heading Xxmhprint Print command for xmh X X XAUTHORSHIP, COPYING, ETC.: These programs are in the public domain. XOf course, you use them at your own risk. I wrote most of them myself. XI adapted two of them, "append" and "replf", from scripts that come Xwith the MH distribution; Marshall Rose, John Romine and Bob Desinger Xwere authors of those scripts, I believe. If you make changes or fix Xbugs, I'd really appreciate getting a mail message about that and/or Xa copy of your fixed script. If I use the changes, I'll give you Xcredit... and people who use the scripts will appreciate your help! X X--Jerry Peek, jerry@ora.com, +1 617 354-5800 X//E*O*F README// chmod u=rw,g=r,o=r README echo extracting - append sed 's/^X//' > "append" <<'X//E*O*F append//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/append,v 1.10 90/10/13 09:48:04 jdpeek book $ X### append - append file(s) to an MH mail message X### Usage: What now? e append file [files...] X## X## THIS SCRIPT LETS YOU APPEND ONE OR MORE FILES TO A DRAFT MH MAIL X## MESSAGE; IT ALSO ALLOWS WILDCARDS AND ENVARIABLES. X## YOU CALL IT AS AN EDITOR, AT THE What now? PROMPT. X## FOR EXAMPLE, TO APPEND A COPY OF YOUR FILE report TO YOUR DRAFT: X## What now? e append report X## X## AFTER IT APPENDS THE FILE(S), YOU GET ANOTHER What now? PROMPT. X## IF YOU WANT TO SEPARATE THE FILES WITH BLANK LINES, ROWS OF DASHES, X## OR WHATEVER, AN EASY WAY IS TO MAKE A LITTLE FILE NAMED SOMETHING X## LIKE SEP WITH THAT SEPARATOR IN IT. THIS NEXT EXAMPLE SHOWS HOW TO X## APPEND ALL THE FILES FROM THE $HOME/proj DIRECTORY WHOSE NAMES END X## WITH .out, THEN YOUR SEPARATOR FILE, THEN THE FILE .signature: X## What now? e append $HOME/proj/*.out sep .signature X# X# Original, apparently by John Romine, from the paper X# "MH.5: How to process 200 messages a day and still get some X# real work done," in the Summer 1985 USENIX Proceedings. X# Hacked more by Jerry Peek, with hints from John Romine. X Xcase $# in X0) echo 1>&2 "`basename $0`: shouldn't get here!"; exit 1;; X1) echo 1>&2 "Usage: e[dit] `basename $0` file [files...]"; exit 1 ;; X*) while : X do X case $# in X 1) msg=$1; break ;; X *) files="$files $1"; shift ;; X esac X done X ;; Xesac X X# eval EXPANDS ENVIRONMENT VARIABLES IN $files; BUT PROTECT >> FROM eval: Xeval cat $files '>>' $msg X//E*O*F append// chmod u=rwx,g=rx,o=rx append echo extracting - babyl2mh sed 's/^X//' > "babyl2mh" <<'X//E*O*F babyl2mh//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS.Z/babyl2mh,v 1.1 90/03/22 03:57:05 jdpeek Exp $ X### babyl2mh - slow way to convert Emacs Rmail files to MH X### Usage: babyl2mh +mh-folder [RMAIL-FILE] X X# NOTE: PROGRAM HASN'T BEEN TESTED THOROUGHLY. X# CHECK THE MESSAGES! X# Placed in the public domain. Use at your own risk. X# --Jerry Peek, 22 March 1990 X Xdfltprot=600 # DEFAULT MESSAGE PROTECTION (IF NONE IN MH PROFILE) Xfolopts="-fast -nolist -nototal -nopack -norecurse" Xmh=/usr/local/mh Xmhprofile=/u3/acs/jdpeek/.bin/mhprofile # READS MH PROFILE Xscanopts="-noclear -noheader -noreverse" X Xcase "$1" in X[@+]?*) X # IF $1 DOESN'T EXIST, folder WILL CREATE IT (SIGH). X # THAT'S BECAUSE stdout IS REDIRECTED AWAY FROM TERMINAL. X if $mh/folder $folopts "$1" >/dev/null X then X # GET PATHNAME OF FOLDER, LAST MESSAGE NUMBER: X folpath="`$mh/mhpath`" || exit X firstmsg="`$mh/scan -format '%(msg)' last`" || exit X else X echo "`basename $0`: no folder. quitting." 1>&2 X exit 1 X fi X ;; X*) echo "Usage: `basename $0` +folder|@folder [file] X ('$1' doesn't start with + or @.)" 1>&2 X exit 1 X ;; Xesac X Xif [ -n "$2" -a $ ! -r "$2" $ ] Xthen X echo "`basename $0`: quitting: can't read Rmail file '$2'." 1>&2 X exit 1 Xfi X X# GET PROTECTION MODE FROM MH PROFILE (IF NONE, USE $dfltprot): Xmsgprot="`$mhprofile -b msg-protect`" || msgprot=$dfltprot X X# MAKE SHELL ARCHIVE FILE ON awk'S STANDARD OUTPUT. X# PIPE IT INTO sh TO CREATE THE MESSAGE FILES... Xawk "BEGIN { X folpath=\"$folpath\" # STORE AS STRING, WITH QUOTES X msgprot=$msgprot # STORE AS NUMBER (NO QUOTES) X msgnum=$firstmsg"' # CHANGE FROM DOUBLE- TO SINGLE-QUOTES X gotflags=0 X gotgoodhdr=0 X gotbadhdr=0 X} X# SKIP BABYL HEADER: XNR==1, /\037\014/ { X next X} X# PROCESS MESSAGES. USE gotflags, ETC. TO "REMEMBER" X# WHEN WE HAVE PASSED EACH PART OF EACH MESSAGE. X{ X # MESSAGE ENDS WITH CTRL-UNDERSCORE AT START OF A LINE. X # PRINT SHELL COMMANDS AND RESET FLAGS: X if ($0 ~ /^\037/) { X printf "END-OF-%s/%d\n\n", folpath, msgnum X # SET PROTECTION (INEFFICIENT; SHOULD DO ALL MSGS. AT ONCE) X printf "chmod %d %s/%d\n", msgprot, folpath, msgnum X gotflags = 0 X gotgoodhdr = 0 X gotbadhdr = 0 X next X } X # INSTEAD OF FLAGS LINE (LIKE "1,,"), PRINT START OF ARCHIVE: X if (gotflags == 0) { X gotflags = 1 X msgnum += 1 X printf "/bin/cat > %s/%d << \\END-OF-%s/%d\n", \ X folpath, msgnum, folpath, msgnum X next X } X # PRINT THE FULL HEADER (UP TO FIRST BLANK LINE): X if (gotgoodhdr == 0) { X if ($0 !~ /^$/) { X print X next X } X else { X gotgoodhdr = 1 X next X } X } X # SKIP THE SHORT HEADER (UP TO NEXT BLANK LINE): X if (gotbadhdr == 0 && $0 !~ /^$/) X next X gotbadhdr = 1 X # PRINT THE MESSAGE (UP TO ^_): X print X next X}' $2 | X/bin/sh -e # EXIT ON ANY ERROR X Xexit # RETURN STATUS FROM PIPE ABOVE X//E*O*F babyl2mh// chmod u=rwx,g=rx,o=rx babyl2mh echo extracting - distprompter sed 's/^X//' > "distprompter" <<'X//E*O*F distprompter//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/distprompter,v 1.4 90/10/12 09:03:48 jdpeek book $ X### distprompter - replaces "prompter" for MH "dist" command X### Usage (in .mh_profile): dist: -editor distprompter X## X## BY DEFAULT, THE MH dist COMMAND USES prompter TO EDIT THE DRAFT X## MESSAGE. FOR dist, THAT'S NOT A GREAT CHOICE BECAUSE: X## - IF YOU ACCIDENTALLY TYPE A BODY, THE MESSAGE CAN'T BE SENT X## - YOU ALWAYS HAVE TO PRESS CONTROL-D TO SKIP THE BODY X## X## distprompter IS AN EDITOR DESIGNED FOR dist. IT READS THE X## EMPTY HEADER THAT dist GIVES IT, LINE BY LINE. IF A COMPONENT X## IS EMPTY, IT PROMPTS YOU. IF A COMPONENT IS FINISHED, IT DOESN'T X## PROMPT. IF A COMPONENT IS ILLEGAL (NOT Resent-xxx:), IT COMPLAINS. X## WHEN IT'S READ THE HEADER, IT EXITS; YOU DON'T NEED CONTROL-D. X Xmyname="`basename $0`" Xerr=/tmp/DISTPRe$$ header=/tmp/DISTPRd$$ X> $header Xchmod 600 $header X Xstat=1 # DEFAULT EXIT STATUS; RESET TO 0 FOR NORMAL EXITS Xtrap 'rm -f $header $err; exit $stat' 0 Xtrap 'echo "$myname: Interrupt! Cleaning up..." 1>&2; exit' 1 2 15 X Xif [ ! -w "$1" -o -z "$1" ] Xthen X echo 1>&2 "$myname: quitting: missing or unwritable draft X '$1'" X exit Xfi X X# READ DRAFT (A COPY OF distcomps FILE) LINE-BY-LINE. X# ACT LIKE prompter, BUT EXIT AFTER WE'VE READ DRAFT FILE X# (WHEN YOU USE dist, THE DRAFT FILE IS ONLY A HEADER). Xwhile read label line Xdo X case "$label" in X [Rr]esent-?*:) X case "$line" in X ?*) # SHOW LINE ON SCREEN AND PUT INTO HEADER FILE: X echo "$label $line" X echo "$label $line" 1>&3 X ;; X *) # FILL IT IN OURSELVES: X echo -n "$label " X # stdin IS FROM DRAFT, SO READ DIRECTLY FROM tty: X ans="`/usr/ucb/head -1 </dev/tty`" X case "$ans" in X "") ;; # EMPTY; DO NOTHING X *) echo "$label $ans" 1>&3 ;; X esac X ;; X esac X ;; X ""|---*) # END OF HEADER X echo "-------" 1>&3 X break # PROBABLY NOT NEEDED... X ;; X *) echo "$myname: illegal header component X '$label $line'" 1>&2 X break X ;; X esac Xdone <$1 2>$err 3>$header X X# IF THE ERROR FILE HAD SOMETHING IN IT, SHOW IT AND QUIT: Xif [ -s $err ] Xthen X /bin/cat $err 1>&2 X echo "$myname: quitting." 1>&2 Xelse X if /bin/cp $header $1 X then stat=0 X else echo "$myname: can't replace draft '$1'?" X fi Xfi Xexit X//E*O*F distprompter// chmod u=rwx,g=rx,o=rx distprompter echo extracting - fixsubj sed 's/^X//' > "fixsubj" <<'X//E*O*F fixsubj//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/fixsubj,v 1.9 90/10/13 10:01:45 jdpeek book $ X# X### fixsubj - fix (add or change) "Subject:" on a mail message X### Usage: fixsubj [+folder] [msgnum [msgnums]] -s 'new subj' X## X## SOME PEOPLE DON'T BOTHER TO PUT A Subject: LINE ON THEIR MAIL X## MESSAGES. THAT MAKES IT HARD, LATER, WHEN YOU scan YOUR MAIL. X## fixsubj LETS YOU ADD YOUR OWN Subject: LINE TO MESSAGE(S). X## YOU CAN USE THE SAME SUBJECT ON MANY MESSAGES BY GIVING ALL NUMBERS. X## X## IF A MESSAGE ALREADY HAS A SUBJECT, fixsubj WILL TELL YOU X## AND ASK YOU IF YOU WANT TO EDIT IT BY HAND, USE THE DEFAULT X## FROM -s), OR SKIP IT. X## X## TO USE IT, TYPE: X## % fixsubj -s 'this is the subject' (FOR THE CURRENT MESSAGE) X## OR SOMETHING LIKE X## % fixsubj +foo last -s 'a subject' (last MESSAGE IN foo FOLDER) X## % fixsubj -s 'my day' 23-25 42 (MESSAGES 23, 24, 25, AND 42) X## ...AND SO ON. THE SUBJECT, AFTER THE -s, SHOULD BE "ONE WORD" TO X## THE SHELL... YOU'LL USUALLY NEED TO QUOTE IT. YOU CAN PUT THE X## OPTIONAL FOLDER NAME (STARTS WITH A +) AND MESSAGE NUMBERS (NUMBERS, X## WORDS LIKE last, first:20, first-33, etc.) IN ANY ORDER. X Xeditor=${VISUAL-${EDITOR-/usr/ucb/vi}} # TEXT EDITOR Xline="/usr/ucb/head -1" # READS ONE LINE Xmh=/usr/local/mh # WHERE MH COMMANDS LIVE Xmyname="`basename $0`" # BASENAME OF THIS PROGRAM Xscanopts="-noclear -noheader -noreverse" # BYPASS MH PROFILE Xstat=1 # DEFAULT EXIT STATUS; SET TO 0 BEFORE NORMAL EXIT Xtemp=/tmp/FIXSUBJ$$ Xtemperr=/tmp/FIXSUBJe$$ # HOLDS ERRORS FROM while LOOP Xusage="Usage: $myname [+folder] [msgnum] -s 'subject'" X Xtrap 'rm -f $temp $temperr; exit $stat' 0 1 2 15 X> $temp X> $temperr Xchmod 600 $temp $temperr X X# PARSE COMMAND LINE: Xwhile : Xdo X case "$1" in X "") break ;; # NO MORE ARGUMENTS X -help) echo "$usage" 1>&2; stat=0; exit ;; X [@+]*) folder="$1"; shift ;; X -s*) X case "$2" in X "") echo "$usage X (Missing subject.)" 1>&2 X exit X ;; X *) newsubj="$2" X shift; shift X ;; X esac X ;; X *) msgs="$msgs $1"; shift ;; X esac Xdone X Xcase "$newsubj" in X"") echo "$usage X (Missing subject.)" 1>&2 X exit X ;; Xesac X X# FOLDER PATH; IF NO $folder GIVEN, DEFAULTS TO CURRENT: Xfolpath="`$mh/mhpath $folder`" || exit X X# MAKE LIST OF MESSAGE NUMBERS AND SUBJECTS, ONE PER LINE. X# IF NO Subject: IN MESSAGE, $subjnow WILL BE EMPTY. X# FEED INTO LOOP. IF NO msgs ON COMMAND LINE, SET TO cur. X# X# sh WILL RUN THIS IN A SUB-SHELL, SO exit WILL ONLY END X# THE LOOP, NOT THE WHOLE SCRIPT. WORK-AROUND: PUT INTERNAL X# ERRORS ON FILE DESCRIPTOR 3 AND COLLECT AT END OF LOOP: X$mh/scan $scanopts -width 200 -format "%(msg) %{subject}" ${msgs=cur} | Xwhile read msg subjnow Xdo X msgpath=$folpath/$msg X X # IF MESSAGE IS UNREADABLE, scan (MH6.6 AND BEFORE) X # WILL PRINT A LINE (TO STANDARD OUTPUT!) LIKE THIS, X # WITH LEADING BLANKS UNLESS msgnum > 999: X # <msgnum> unreadable X # IF THERE ARE LEADING BLANKS, SOME BOURNE SHELLS WILL X # COPY BOTH THE MESSAGE NUMBER AND THE unreadable INTO X # subjnow, AND LEAVE $msg EMPTY. TRY TO FIX BOTH CASES: X case "$msg" in X "") echo "$myname: quitting, message $msg $subjnow" 1>&3; break ;; X esac X case "$subjnow" in X unreadable) X echo "$myname: quitting: can't read message '$msg'." 1>&3 X break X ;; X "") # GLUE Subject AND X-Original-Subject TO TOP. X # IF YOUR SHELL DOESN'T UNDERSTAND "<<-", REPLACE IT X # WITH "<<" AND SHIFT LINES TO LEFT-HAND EDGE: X cat - $msgpath > $temp <<- ENDOFHDR X Subject: $newsubj X X-Original-Subject: (none) X ENDOFHDR X cp $temp $msgpath || { X echo "$myname: quitting: can't replace ${msgpath}?" 1>&3 X break X } X ;; X *) # MESSAGE HAS A SUBJECT ALREADY; ASK USER: X # LOOP UNTIL GET ANSWER: X while : X do X # SAME NOTE AS ABOVE ABOUT REPLACING "<<-"... X cat <<- ENDOFMSG X X Message $msg already has a subject: X ... $subjnow X Type c to change subject to '$newsubj' X Type e to edit the message yourself with $editor X Type s to skip this message and go on to the next (if any) X Type q to quit and not change any more messages. X ENDOFMSG X echo -n "And the answer is? " 1>&2 X ans="`$line </dev/tty`" X case "$ans" in X s*) break ;; # CONTINUE OUTER (MESSAGE) LOOP X q*) break 2 ;; X e*) $editor $msgpath </dev/tty >/dev/tty 2>/dev/tty X break X ;; X c*) # NOTE: FIX "<<-" AND LINES IF SHELL NEEDS: X ed - $msgpath <<- !ENDOFEDIT! >$temp 2>&1 X /^Subject: /s/^/X-Original-/ X i X Subject: $newsubj X . X w X q X !ENDOFEDIT! X if [ ! -s $temp ] X then break X else X echo "$myname: error editing '$msg':" 1>&2 X cat "$temp" 1>&2 X echo "Should you edit it by hand? Try again: X " 1>&2 X fi X ;; X *) echo "Please try again..." 1>&2 ;; X esac # END OF case "$ans" X done # END OF while : X ;; X esac # END OF case "$subjnow" Xdone 3> $temperr # END OF while read msg subjnow X Xif test -s $temperr Xthen cat $temperr 1>&2 Xelse stat=0 Xfi Xexit X//E*O*F fixsubj// chmod u=rwx,g=rx,o=rx fixsubj echo extracting - fols sed 's/^X//' > "fols" <<'X//E*O*F fols//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/fols,v 1.7 90/10/13 08:45:31 jdpeek book $ X### fols - Show list of folders, in columns, current folder marked X### Usage: fols [ -recurse ] << (just -r is enough...) X## X## THE folder -fast PROGRAM GIVES A LIST OF YOUR TOP-LEVEL FOLDERS X## IN ONE COLUMN. IF YOU HAVE A LOT OF FOLDERS, THIS CAN BE A PAIN X## BECAUSE THE LIST CAN SCROLL OFF YOUR SCREEN. fols REFORMATS THE X## folder -fast OUTPUT INTO FOUR COLUMNS. IT MARKS THE CURRENT FOLDER X## WITH A +. IF ANY FOLDER NAMES ARE TOO LONG FOR A COLUMN, IT X## CUTS OUT THE MIDDLE OF THE NAME AND REPLACES IT WITH AN "=". X## X## BY DEFAULT, fols ONLY SHOWS THE TOP-LEVEL FOLDERS. THE -r SWITCH X## MAKES IT RECURSIVE, LIKE folder -recurse -fast. X## X## HERE'S AN EXAMPLE. THE EXAMPLE WITH -r SHOWS A SET OF SUB-FOLDERS X## NINE LEVELS DEEP, STARTING WITH A SUB-FOLDER NAMED test/l1: X## X## % fols X## drafts haha inbox+ scans X## scantest test test2 test3 X## % fols -r X## drafts haha haha/sub inbox+ X## scans scantest test test/MaIlSoRt9818 X## test/haha test/l1 test/l1/l2 test/l1/l2/l3 X## test/l1/l2/l3/l4 test/l1/=/l3/l4/l5 test/l1/=/l4/l5/l6 test/l1/=/l5/l6/l7 X## test/l1/=/l6/l7/l8 test/l1/=/l7/l8/l9 test2 test3 X Xfolopts="-fast -nolist -nototal -nopack" # OVERRIDE MH PROFILE Xmh=/usr/local/mh # WHERE MH COMMMANDS ARE Xrec= X Xcase "$#$1" in X0"") ;; X1-r*) rec=-recurse ;; X*) echo "Usage: `basename $0` [ -recurse ] (just -r is enough)" 1>&2 X exit 1 X ;; Xesac X X# USE BACKQUOTES TO "PASTE" THE CURRENT FOLDER NAME X# INTO THE sed EXPRESSION THAT ADDS A + TO END. X# THEN, IN ANY LINE WHICH HAS AT LEAST 19 CHARACTERS, X# SAVE FIRST 8 AND LAST 9 CHARACTERS AND REPLACE X# MIDDLE CHARACTER(S) WITH AN = SIGN. FINALLY, GIVE X# TO pr WITH LINE LENGTH OF 1 TO MAKE INTO 4 COLUMNS: X$mh/folders $rec $folopts | X/bin/sed -e "s@^`$mh/folder $folopts`\$@&+@" \ X -e 's/^$........$...*$.........$$/\1=\2/' | X/bin/pr -l1 -4 -w78 -t X//E*O*F fols// chmod u=rwx,g=rx,o=rx fols echo extracting - incs sed 's/^X//' > "incs" <<'X//E*O*F incs//' X#! /bin/sh X# $Header: /u1/acs/jdpeek/.bin/RCS/incs,v 1.9 90/07/03 07:18:22 jdpeek Exp $ X# X### incs - incorporate messages, then show them X### Usage: incs [+folder] [-inc options] X## X## incs DOES AN inc, THEN A show OF ALL MESSAGES inc'D. IF YOU SET THE X## ENVIRONMENT VARIABLE $INCSHOW TO THE NAME OF A PROGRAM (LIKE X## mail.review), THEN incs WILL USE IT INSTEAD OF show. X## X## IF YOU GIVE IT A FOLDER NAME, LIKE THIS: X## % incs +newmail X## IT'LL INCORPORATE THE MAIL INTO THE FOLDER YOU NAME (HERE, newmail). X Xumask 077 # MAKE TEMP FILE PRIVATE Xtemp=/tmp/INCS$$ Xinc=/usr/local/mh/inc Xstat=1 # DEFAULT EXIT STATUS; RESET TO 0 ON NORMAL EXIT Xtrap 'rm -f $temp; exit $stat' 0 1 2 15 X X# ONLY SHOW MESSAGE IF inc ACTUALLY INCORPORATED ONE. X# BE SURE inc CHANGES CURRENT MESSAGE (OVERRIDE .mh_profile): Xif $inc -changecur $* > $temp Xthen X cat $temp X ${INCSHOW-show} cur-last X stat=0 Xfi X//E*O*F incs// chmod u=rwx,g=rx,o=rx incs echo extracting - mhprofile sed 's/^X//' > "mhprofile" <<'X//E*O*F mhprofile//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/mhprofile,v 1.4 90/10/13 08:41:27 jdpeek book $ X# X### mhprofile - show matching line(s) from MH profile file X### Usage: mhprofile [-b] component-name X## X## USE mhprofile TO READ A LINE FROM THE .mh_profile FILE. X## FOR EXAMPLE, IF YOU WANT TO READ THE "DRAFT-FOLDER" LINE, TYPE: X## $ mhprofile draft-folder X## Draft-Folder: drafts X## THE -b OPTION STRIPS OFF THE COMPONENT NAME. EXAMPLE: X## $ mhprofile -b draft-folder X## drafts X## X## RETURNS 0 IF MATCH FOUND, 1 IF NO MATCHES, 2 ON ERRORS X Xgrep=/bin/grep # HAS -i OPTION, HANDLES REGULAR EXPRESSIONS Xsed=/bin/sed Xprofile=${MH-${HOME?}/.mh_profile} # COMPLAIN AND EXIT IF $HOME NOT SET X X# GET -b OPTION, IF ANY, AND shift IT AWAY: Xcase "$1" in X-b) stripname=y; shift;; X-*) echo "Usage: `basename $0` [-b] component-name X (I don't understand '$1')." 1>&2 X exit 2 X ;; Xesac X X# ONLY REMAINING ARGUMENT SHOULD BE A COMPONENT NAME: Xcase $# in X1) ;; X*) echo "Usage: `basename $0` [-b] component-name X (wrong number of arguments)." 1>&2 X exit 2 X ;; Xesac X X# IF grep FAILS, RETURN ITS STATUS (1=NO MATCH, 2=ERROR): Xlines="`$grep -i \"^${1}:\" $profile`" || exit X X# IF -b SET, USE sed TO SEARCH AND STRIP OFF LABEL+BLANKS. X# ASSUME NO BLANKS IN NAME, ":" AND MAYBE BLANKS AFTER NAME: Xcase "$stripname" in Xy) echo "$lines" | $sed -n 's/^[^:]*: *//p' ;; X*) echo "$lines" ;; Xesac Xexit 0 # A LITTLE PRESUMPTUOUS? X//E*O*F mhprofile// chmod u=rwx,g=rx,o=rx mhprofile echo extracting - recomp sed 's/^X//' > "recomp" <<'X//E*O*F recomp//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/recomp,v 1.6 90/10/13 08:25:07 jdpeek book $ X### recomp - re-compose a draft mesage in MH draft folder X### Usage: recomp [msgnum] X# X## WHEN YOU TYPE q AT A What now? PROMPT, IT LEAVES THE DRAFT MESSAGE X## WITHOUT SENDING IT. IF YOU HAVE A DRAFT FOLDER, THE COMMAND LINE X## YOU'D TYPE TO RE-COMPOSE THE DRAFT IS LONG, LIKE: X## comp -use -draftm 3 -draftf +drafts -editor vi. X## ALSO, IT CAN BE HARD TO REMEMBER THE DRAFT NUMBER--SO YOU HAVE TO X## scan THE DRAFT FOLDER, THEN REMEMBER TO CHANGE YOUR FOLDER BACK. X## X## THIS SCRIPT HELPS WITH THAT. IF YOU GIVE IT A MESSAGE NUMBER IN THE X## DRAFT FOLDER, IT STARTS comp -use ON THAT MESSAGE WITH YOUR FAVORITE X## EDITOR PROGRAM. WITHOUT A MESSAGE NUMBER, recomp scanS THE DRAFT X## FOLDER, THEN LETS YOU ENTER THE NUMBER OF THE MESSAGE YOU WANT TO X## RE-COMPOSE AND STARTS comp -use. X## X## WHEN YOU EXIT YOUR EDITOR, YOU GET THE USUAL What now? PROMPT. X Xdraftf=+drafts # NAME OF DRAFT FOLDER Xfolopts="-fast -norecurse -nolist -nototal -nopack" Xmh=/usr/local/mh # WHERE MH PROGRAMS LIVE X X# THIS CAN LEAVE US IN THE $draftf FOLDER. SO, PUSH X# CURRENT FOLDER ON STACK AND COME BACK AFTER EDITING: X$mh/folder -push $folopts $draftf >/dev/null || { X echo "`basename $0`: quitting: problem with draft folder '$draftf'." 1>&2 X exit 1 X} Xstat=1 # DEFAULT EXIT STATUS; RESET TO 0 FOR NORMAL EXITS Xtrap '$mh/folder -pop $folopts >/dev/null; exit $stat' 0 Xtrap 'echo "`basename $0`: Interrupt! Cleaning up..." 1>&2' 1 2 15 X Xcase $# in X0) # THEY DIDN'T GIVE MESSAGE NUMBER; SHOW THEM FOLDER: X if $mh/scan X then X echo -n "Which draft message number do you want to re-edit? " X read msgnum X else X echo "`basename $0`: quitting: no messages in your $draftf folder?" 1>&2 X exit X fi X ;; X1) msgnum="$1" ;; X*) echo "I don't understand '$*'. X I need the draft message number, if you know it... otherwise, nothing. X Usage: `basename $0` [msgnum]" 1>&2 X exit X ;; Xesac X X$mh/comp -use -e ${VISUAL-${EDITOR-${EDIT-vi}}} -draftm $msgnum -draftf $draftf Xstat=$? # SAVE comp'S STATUS (IT'S USUALLY 0) FOR OUR exit X//E*O*F recomp// chmod u=rwx,g=rx,o=rx recomp echo extracting - replf sed 's/^X//' > "replf" <<'X//E*O*F replf//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/replf,v 1.3 90/10/13 08:31:54 jdpeek book $ X### replf - refile current message into folder, then reply to it X### Usage: replf +folder [switches for repl] X## X## DO YOU USE MH FOLDERS A LOT? YOU PROBABLY inc MAIL INTO YOUR inbox, X## THEN YOU replY TO SOME MESSAGES AND refile THE ORIGINALS INTO SOME X## OTHER FOLDER. THE PROBLEM IS THAT IF YOU USE AN Fcc: LINE TO PUT X## A COPY OF THE REPLY IN THE DESTINATION FOLDER, IT IS STORED BEFORE X## THE ORIGINAL MESSAGE. ALSO, IT'S A PAIN TO refile THE ORIGINAL, X## THEN TYPE THE SAME NAME ON THE Fcc LINE. SO, IT'D BE CONVENIENT X## TO DO ALL THAT IN ONE STEP. replf LETS YOU DO THAT. X## X## replf USES refile TO MOVE THE *CURRENT* MESSAGE INTO THE FOLDER YOU X## NAME. (IT ONLY WORKS FOR THE CURRENT MESSAGE!) THEN, IT STARTS X## repl WITH THE -fcc +folder SWITCH, SO THAT AN Fcc: OF YOUR MESSAGE X## WILL GO INTO THAT FOLDER, TOO. X## X## WATCH OUT: THIS VERSION OF replf HAS ONE PROBLEM: YOU CAN'T USE X## What now? push X## TO SEND THE DRAFT. THAT'S BECAUSE THE TEMPORARY FILES replf MAKES X## ARE REMOVED BEFORE THE MESSAGE IS SENT. USE send INSTEAD. X# X# Original from Marshall T. Rose and John L. Romine in X# MH6.6 distribution. Revised by Jerry Peek, 2/25/90. X Xcontext=/tmp/ctx$$ # COPY OF MH context FILE Xmh=/usr/local/mh # WHERE MH COMMANDS LIVE Xprofile=/tmp/prf$$ # COPY OF .mh_profile FILE Xstat=1 # DEFAULT EXIT STATUS; RESET TO 0 BEFORE NORMAL exit X X/bin/rm -f $profile $context Xtrap '/bin/rm -f $profile $context; exit $stat' 0 1 2 15 X X# PARSE COMMAND LINE: Xfolder= switches= Xfor arg Xdo X case "$arg" in X +*|@*) # IT'S A FOLDER X case "$folder" in X "") folder="$arg" ;; X *) echo "`basename $0`: '$arg'? Only one folder at a time." 1>&2 X exit X ;; X esac X ;; X *) switches="$switches $arg" ;; X esac Xdone X Xcase "$folder" in X"") echo "usage: `basename $0` +folder [switches for repl]" 1>&2 X exit X ;; Xesac X X# MAKE TEMPORARY context AND .mh_profile FILES. X# THEN, RESET $MH AND $MHCONTEXT UNTIL END OF THIS SCRIPT: X/bin/cp ${MHCONTEXT-`$mh/mhpath +`/context} $context || exit X# READ NEXT TWO LINES, PLUS A COPY OF USER'S STANDARD X# .mh_profile, INTO NEW $profile: X/bin/cat - ${MH-$HOME/.mh_profile} << \END > $profile || exit XMH-Sequences: XPrevious-Sequence: pseq XEND X XMH=$profile MHCONTEXT=$context Xexport MH MHCONTEXT X X# REFILE MESSAGE INTO $folder. X# NEW MESSAGE NUMBER IS IN THE pseq OF $folder. X$mh/refile $folder || exit X$mh/repl $folder pseq -fcc $folder $switches Xstat=$? # EXIT WITH STATUS OF repl Xexit X//E*O*F replf// chmod u=rwx,g=rx,o=rx replf echo extracting - resend.fixmsg sed 's/^X//' > "resend.fixmsg" <<'X//E*O*F resend.fixmsg//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/resend.fixmsg,v 1.5 90/10/13 09:39:23 jdpeek book $ X### resend.fixmsg - editor for fixing up returned mail X### Usage in .mh_profile: resend: -editor resend.fixmsg -nodashmunging X## X## TO USE THIS, FIRST MAKE A VERSION OF forw NAMED resend X## (MAKE SYMBOLIC LINK TO forw, ETC.). THEN, ADD THE ENTRY X## SHOWN ABOVE TO YOUR .mh_profile. X## X## WHEN YOU START resend, IT BUILDS A DRAFT AND CALLS X## resend.fixmsg TO EDIT IT. resend.fixmsg MAKES THE MESSAGE X## LOOK ALMOST EXACTLY AS IT DID THE FIRST TIME YOU COMPOSED X## IT, THEN POPS YOU INTO AN EDITOR (DEFAULT: vi) TO FIX THE X## ADDRESS. X X# $1 IS PATH TO DRAFT MESSAGE (forw SETS THIS). X# X# HERE'S WHAT ed SCRIPT DOES TO THE DRAFT THAT forw BUILT: X# DELETE LINES THROUGH FIRST "To: (you)". X# DELETE LINES TO BUT NOT INCLUDING NEXT "To: (original)". X# ZAP Date:/From:/Sender: LINES THAT MAILER PUT IN MESSAGE. X# ZAP FROM BLANK LINE BEFORE "---- End of Forwarded Message" X# THROUGH THE END OF THE FILE. X/bin/ed - $1 << "END" X1,/^To: /d X1,/^To: /-1d X1,/^$/g/^Date: /d X1,/^$/g/^From: /d X1,/^$/g/^Sender: /d X$ X?^------- End of Forwarded Message?-1,$d Xw Xq XEND X X# EDIT WITH $EDITOR (DEFAULT: vi). exec TO SAVE A PROCESS: Xexec ${EDITOR-vi} $1 X//E*O*F resend.fixmsg// chmod u=rwx,g=rx,o=rx resend.fixmsg echo extracting - rmmer sed 's/^X//' > "rmmer" <<'X//E*O*F rmmer//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/rmmer,v 3.4 90/11/21 06:52:02 jdpeek Exp $ X### rmmer - move mail to @DELETE for "find" to clean up X### Usage in .mh_profile: rmmproc: rmmer X### rmmer.one_fdr - move mail to +DELETE for "find" to clean up X### Usage in .mh_profile: rmmproc: rmmer.one_fdr X## X## rmmer IS DESIGNED TO BE USED WITH THE MH MAIL rmm COMMAND. X## INSTEAD OF JUST ADDING A COMMA (,) TO THE MESSAGE NAME, LIKE X## STANDARD rmm DOES, rmmer MOVES THE MESSAGE INTO A SUB-FOLDER X## NAMED "DELETE". A SYSTEM PROGRAM SHOULD CLEAN OUT THAT FOLDER X## EVERY SO OFTEN (YOU MAY HAVE TO SET THAT UP, TOO). ANYHOW, X## THE IDEA IS THAT MESSAGES IN A "DELETE" SUB-FOLDER ARE EASY TO X## RECOVER IF YOU REMOVED ONE BY ACCIDENT. X## X## FOR EXAMPLE, LET'S SAY YOU JUST DELETED A MESSAGE BY ACCIDENT. X## TO GET IT BACK, YOU GO TO THE SUB-FOLDER. YOUR MESSAGE WILL X## BE THE LAST ONE IN THE SUB-FOLDER BECAUSE YOU JUST REMOVED IT. X## TO RECOVER THE DELETED MESSAGE, MOVE IT BACK TO THE PARENT FOLDER X## (WHERE IT WAS BEFORE) WITH refile. AFTER YOU RECOVER IT, IT'LL X## BE THE LAST MESSAGE IN THE FOLDER. HERE GOES: X## % rmm X## % show last @DELETE X## (Message inbox/DELETE:25) X## (message appears -- this is the one you "deleted") X## % refile @.. X## % show last @.. X## (Message inbox:54) X## (same message appears -- now it's back in the parent folder) X## X## IF YOU DON'T WANT rmmer TO USE A SUB-FOLDER--AND, INSTEAD, PUT X## ALL THE MESSAGES IN A CENTRAL "DELETE" FOLDER--YOU CAN CALL THE X## PROGRAM WITH THE NAME rmmer.one_fdr AND THAT'LL DO IT. X X# TABSTOPS ARE SET AT 4 IN THIS CODE X Xtempchr=',' # CHARACTER rmm ADDS TO "REMOVE" MESSAGE Xmh=/usr/local/mh # MH COMMANDS ARE IN THIS DIRECTORY Xmoveto=DELETE # NAME OF FOLDER FOR DELETED MESSAGES Xmvdir=/bin # DIRECTORY WHERE mv COMMAND LIVES X Xawk=/bin/awk mkdir=/bin/mkdir touch=/bin/touch tr=/bin/tr X X# USE PROGRAM NAME TO SET PATH TO DESTINATION FOLDER: Xcase "$0" in X*rmmer) destfol="@$moveto" ;; X*rmmer.one_fdr) destfol="+$moveto" ;; X*) echo "$0 aborting: can't find my name." 1>&2; exit 1 ;; Xesac X Xstat=1 # DEFAULT EXIT STATUS; RESET TO 0 BEFORE NORMAL EXIT Xtrap 'rm -f $MH; exit $stat' 0 Xtrap 'echo "$0: Interrupt! $* may not be removed." 1>&2; exit' 1 2 15 X X# TO AVOID ENDLESS LOOPS WHERE THE rmm IN rmmer RUNS rmmproc, X# MAKE TEMPORARY .mh_profile TO BYPASS USER'S rmmproc: rmmer. X# MAKE WHILE MH IS SHELL VARIABLE, THEN export TO USE IT: XMH=/tmp/RMMER$$ Xecho "Path: `$mh/mhpath +`" > $MH || exit Xexport MH X X# rmm SETS CURRENT DIRECTORY TO FOLDER, SO IT'S EASY TO MAKE X# NEW SUB-FOLDER. (LET USER MAKE THEIR OWN "+DELETE" ONCE.) Xif [ "$destfol" = "@$moveto" -a ! -d "$moveto" ] Xthen $mkdir $moveto || exit Xfi X X# rmm PUTS SINGLE MESSAGE NUMBERS INTO $* (LIKE 12 13 14). X# UPDATE LAST-MOD TIME SO find -mtime WON'T DELETE TOO SOON: X$touch $* >/dev/null 2>&1 X X$mh/rmm $* || exit # ADDS $tempchr TO MESSAGE NUMBERS X X# IF <= 7 MESSAGES, REFILE EACH WITH mv AND mhpath new. X# OTHERWISE, SAVE TIME BY GETTING FIRST UNUSED MESSAGE NUMBER X# IN $destfol AND USING PLAIN mv COMMANDS IN A LOOP: Xcase $# in X[1-7]) X for m X do $mvdir/mv ${tempchr}$m `$mh/mhpath new $destfol` || exit X done X ;; X*) newpath="`$mh/mhpath new $destfol`" || exit # FIRST MSG. X PATH=${mvdir}:$PATH; export PATH # GET THE RIGHT mv X # GIVE awk NUMBERS LIKE 23 24, SPLIT ONTO SEPARATE LINES X # BY TURNING SPACES INTO NEWLINES. OUTPUT mv COMMANDS X # THAT THE SHELL READS (BY eval) AND RUNS, LIKE THIS: X # mv ,23 /xxx/Mail/inbox/DELETE/99; X # mv ,24 /xxx/Mail/inbox/DELETE/100; X # **HUGE** MESSAGE LISTS MAY CAUSE LONG-LINE PROBLEMS. X eval ` X echo $* | $tr ' ' '\012' | $awk ' X BEGIN { X # SPLIT PATH OF FIRST UNUSED MESSAGE INTO part ARRAY: X np = split("'$newpath'", part, "/") X # BUILD ALL BUT THE LAST PIECE INTO DIRECTORY NAME: X for (i = 2; i < np; i++) X dir = dir "/" part[i] X # LAST part IS FIRST NEW MESSAGE NUMBER; PUT IN new. X # MAKE SURE awk TREATS AS INTEGER BY ADDING ZERO: X new = part[np] + 0 X } X { X # READ MESSAGE NUMBERS, OUTPUT COMMANDS: X printf "mv ,%d %s/%d;", $1, dir, new++ X }'` X ;; Xesac X Xstat=0 Xexit X//E*O*F rmmer// chmod u=rwx,g=rx,o=rx rmmer echo extracting - scandrafts sed 's/^X//' > "scandrafts" <<'X//E*O*F scandrafts//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/scandrafts,v 1.5 90/10/13 09:08:29 jdpeek book $ X### scandrafts - scan MH draft folder; return to original folder if no -stay X### Usage: scandrafts [-stay] [scan arguments] X## X## THIS SCRIPT IS NICE WHEN YOU'RE WONDERING WHAT'S IN YOUR DRAFT X## FOLDER, OR YOU NEED TO WORK IN IT. X## X## BY DEFAULT, scandrafts SHOWS A LIST OF THE MESSAGES YOU'VE ALREADY X## SENT (THESE MESSAGES ARE IN FILES WITH A COMMA OR POUND SIGN BEFORE X## THEIR NAMES). THEN, IT scanS YOUR DRAFT FOLDER, AND POPS YOU BACK X## TO YOUR CURRENT FOLDER. X## X## IF YOU USE THE -stay OPTION, scandrafts WILL START A SHELL WITH X## BOTH THE CURRENT DIRECTORY AND CURRENT FOLDER IN THE DRAFT FOLDER. X## THAT WAY, YOU CAN RESTORE ONE OF THE ALREADY-SENT MESSAGES AND/OR X## refile IT TO ANOTHER FOLDER (IN CASE YOU FORGOT TO GIVE YOURSELF A X## COPY WHEN YOU SENT IT). OR, YOU CAN DO EXTENSIVE WORK ON THE X## DRAFTS, MORE DIRECTLY THAN A SCRIPT LIKE recomp WILL LET YOU. X## X## HERE'S A DEMONSTRATION: X## X## $ scandrafts -stay X## Draft message(s) you've already sent: X## X## ,1:Subject: Re: SC or GA islands X## ,5:Subject: Re: our previous message about banners dialups etc X## ,6:Subject: Re: Can you help? X## ,7:Subject: Out this morning X## X## To get them back, use 'mv'. X## =================================================================== X## Draft message(s) you haven't sent: X## X## 1 03/07*To:alison@mvus.cs Project status<<Alison, the project X## 2 empty X## 3+ 03/07*To:kx9cq@cornell. Scientific Visualization Demo<<I re X## X## You'll be in a /usr/local/bin/ksh shell in the +drafts folder. X## To quit, type control-d. X## scandrafts> rmm 2 X## scandrafts> mv ,6 6 X## scandrafts> scan X## 1 03/07*To:alison@mvus.cs Project status<<Alison, the project X## 3+ 03/07*To:kx9cq@cornell. Scientific Visualization Demo<<I re X## 6 03/04*To:warren Re: Can you help?<<Warren, you aske X## scandrafts> refile 6 +outbox X## scandrafts> ^D X## [folder +inbox now current] X## $ X Xargs= # RESET IN CASE THERE'S AN args ENVIRONMENT VARIABLE Xfolopts="-fast -nolist -nototal -nopack" Xmh=/usr/local/mh Xmhprf=/XXXXXXXXXXXXXXXXXX/mhprofile # READS MH PROFILE Xpageprog=${PAGER-/usr/ucb/more} # DISPLAYS SCREEN-BY-SCREEN Xstat=1 # DEFAULT EXIT STATUS; RESET TO 0 FOR NORMAL EXITS Xtemp=/tmp/SCANDRFTS$$ X>$temp Xchmod 600 $temp Xtrap 'rm -f $temp; exit $stat' 0 1 2 15 X X# IF -stay SWITCH IS SET, SET $stay TO y: Xfor arg Xdo X case "$arg" in X -stay) stay=y ;; X *) args="$args $arg" ;; X esac Xdone X X# GET DRAFT FOLDER NAME: Xdraftfold="`$mhprf -b draft-folder`" || { X echo "`basename $0`: quitting: can't find your 'Draft-Folder'." 1>&2 X exit X} X X$mh/folder $folopts -push +$draftfold >/dev/null || exit Xfolpath=`$mh/mhpath +$draftfold` || exit Xcd $folpath || exit X X# IF ANY UN-SENT DRAFTS, SHOW THEM; THEN, scan FOLDER. X# PIPE ALL OF IT TO PAGER SO NONE OF IT SCROLLS OFF SCREEN: Xgrep "^Subject: " [,#]*[1-9]* >$temp 2>/dev/null X(if test -s $temp Xthen X echo "Draft message(s) you've already sent: X " X cat $temp X echo X case "$stay" in X y) echo "To get them back, use 'mv'." ;; X *) echo "To get them back, use 'cd $folpath' and 'mv'." ;; X esac X echo "=============================================================" X echo "Draft message(s) you haven't sent: X " Xfi X$mh/scan $args 2>&1) | $pageprog X X# USE THEIR $SHELL, IF DEFINED... OTHERWISE, USE sh: Xcase "$stay" in Xy) echo " X You'll be in a ${SHELL-Bourne} shell in the +$draftfold folder. X To quit, type control-d." X PS1="scandrafts> " ${SHELL-sh} X ;; Xesac X X# POP FOLDER BACK; PUT NEWLINE BEFORE MESSAGE: Xecho " X[folder +`$mh/folder $folopts -pop` now current]" Xstat=0 X//E*O*F scandrafts// chmod u=rwx,g=rx,o=rx scandrafts echo extracting - showpr sed 's/^X//' > "showpr" <<'X//E*O*F showpr//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/showpr,v 2.2 90/10/13 10:30:57 jdpeek book $ X### showpr - show MH message(s) with pr(1), custom heading, maybe mhl(1) X### Usage: showpr [fdr] [msgs] [-mhl] [-format 'mh-format-str'] [-pr 'pr-opts'] X## X## THE EASY WAY TO PRINT MESSAGES IN MH ISN'T ESPECIALLY GREAT. YOU CAN X## PRINT YOUR MAIL MESSAGES LIKE THIS (ASSUMING YOUR PRINTER PROGRAM IS X## NAMED lpr), BUT ALL THE MESSAGES WILL BE RUN TOGETHER: X## % show 23 24 29 | lpr X## OR, YOU CAN USE pr(1) TO MAKE SIMPLE HEADERS (WITH THE FOLDER AND X## MESSAGE NUMBER), PAGE NUMBERS, AND START EACH MESSAGE ON A NEW PAGE: X## % show -showproc pr 23 24 29 | lpr X## X## THE showpr PROGRAM LETS YOU DO MORE. IT CAN USE mhl, IF YOU WANT, TO X## CLEAN UP THE MESSAGE BEFORE PRINTING. YOU CAN CUSTOMIZE THE PAGE HEADING X## -- INCLUDING THE MESSAGE SUBJECT, FOR INSTANCE. AND YOU CAN PASS OPTIONS TO X## pr, TO TELL IT HOW TO FORMAT YOUR MESSAGE. FINALLY, YOU CAN STORE DEFAULT X## showpr OPTIONS IN YOUR .mh_profile FILE, BECAUSE showpr CALLS THE mhprofile X## SCRIPT TO GET THEM. X## X## THE COMMAND LINE USES mh-format STRINGS LIKE THE ONES YOU'D GIVE TO X## THE scan COMMAND. HERE ARE SOME EXAMPLES. SOME OF THESE MIGHT LOOK X## COMPLICATED, BUT REMEMBER THAT YOU CAN STORE ANY SET OF OPTIONS AS X## DEFAULTS IN YOUR .mh_profile FILE: X## X## TO PRINT THE CURRENT MESSAGE, WITH THE MESSAGE SUBJECT IN EACH PAGE X## HEADING (IF YOU HAVEN'T PUT ANY showpr OPTIONS IN YOUR .mh_profile): X## % showpr | lpr X## TO PRINT THE LAST 3 MESSAGES, WITH THE MESSAGE SUBJECT IN EACH PAGE X## HEADING; FORMAT THE MESSAGES WITH mhl; AND TELL pr TO USE X## ITS OPTIONS -f (SEPARATE PAGES WITH FORMFEEDS) AND -l50 X## (MAKE PAGE LENGTH 50 LINES): X## % showpr -mhl -pr '-f -l50' last:3 X## (YOU CAN SHORTEN THOSE OPTIONS TO -m AND -p, IF YOU WANT.) X## X## HERE'S MORE. TO PRINT THE LAST 3 MESSAGES WITH mhl FORMATTING, WITH X## THE "From" ADDRESS AND MESSAGE DATE IN THE HEADING, LIKE THIS: X## Mar 11 08:49 1990 From: al@phlabs.ph.com Date: 11/23/89 Page 2 X## USE A COMMAND LINE LIKE THIS (SPLIT ONTO TWO LINES FOR READABILITY): X## showpr -m -f 'from: %(friendly{from}) \ X## date: %(mon{date})/%(mday{date})/%(year{date})' last:3 | lpr X## TO MAKE THAT EASIER, YOU COULD PUT THE FOLLOWING LINE IN X## YOUR .mh_profile FILE (NOTE: ALTHOUGH IT'S SPLIT ONTO TWO LINES X## HERE, YOU SHOULD PUT IT ALL ON *ONE* LINE IN YOUR .mh_profile FILE): X## showpr: -m -f 'from: %(friendly{from}) \ X## date: %(mon{date})/%(mday{date})/%(year{date})' X## THEN GET THAT FORMATTING AND PRINT YOUR MESSAGES WITH: X## % showpr last:3 | lpr X## X## FINALLY, ABOUT mhl. YOU CAN MAKE AN mhl FORM FILE NAMED mhl.showpr X## AND PUT IT IN YOUR MH DIRECTORY (LIKE /xxx/yyy/Mail/mhl.showpr). X## IF YOU DO, AND IF YOU USE THE -mhl OPTION, THEN showpr WILL X## FORMAT YOUR MESSAGES WITH mhl -form mhl.showpr. X## OTHERWISE, THE -mhl OPTION USES THE STANDARD mhl.format FILE. X X# NOTE: TABSTOPS ARE SET AT 4 IN THIS CODE. X Xfolopts="-nolist -nototal -nopack" Xmh=/usr/local/mh # WHERE MOST MH PROGRAMS LIVE Xmhl=/usr/local/lib/mh/mhl # WHERE mhl LIVES Xmhprofile=/XXXXXXXXXXXXXXXXXX/mhprofile # READS MH PROFILE Xmyname="`basename $0`" Xpr=/bin/pr Xprwidth=55 # MAX WIDTH OF -h FIELD IN $pr + 5 FOR MSG NUM Xscanopts="-noclear -noheader -noreverse" Xstat=1 # DEFAULT EXIT STATUS, RESET TO 0 BEFORE NORMAL EXIT Xusage="usage: $myname [fdr] [msgs] [-mhl] [-format 'mh-format-str'] [-pr 'pr-opts']" X X# RESET "COMMAND LINE" PARAMETERS. FIRST, AN x, WHICH WE X# shift AWAY, IN CASE THERE ARE NO OTHER PARAMETERS. X# THEN, MH PROFILE OPTIONS (IGNORE mhprofile RETURN STATUS). X# LAST, ORIGINAL COMMAND LINE ARGS (WITH SHELL BUG PATCH): Xeval set x `$mhprofile -b $myname` '${1+"$@"}' Xshift X X# PARSE set ARGS. IF OPTIONS REPEATED, LAST ONES PREVAIL: Xwhile : Xdo X case "$1" in X "") break ;; # NO MORE ARGUMENTS X [+@]*) newfdr="$1" ;; X -h*) # HELP: X echo "$usage X \$Revision: 2.2 $ \$Date: 90/10/13 10:30:57 $" X exit X ;; X -m*) # SET mhlopts AS FLAG TO USE mhl. X mhlopts="-nobell -noclear -nofaceproc -nomoreproc" X # USE mhl.showpr FILE, IF ANY: X if test -r `$mh/mhpath +`/mhl.showpr X then mhlopts="$mhlopts -form mhl.showpr" X fi X ;; X -f*) X case "$2" in X "") echo "$usage X (Missing string after '-format')." 1>&2 X exit X ;; X *) format="$2"; shift ;; X esac X ;; X -p*) X case "$2" in X "") echo "$usage X (Missing string after '-pr')." 1>&2 X exit X ;; X +*|-*) propts="$2"; shift ;; X *) echo "$usage X (Bad options after '-pr')." 1>&2 X exit X ;; X esac X ;; X *) msgs="$msgs $1" ;; X esac X X shift Xdone X X# SET FORMAT OF pr HEADER. IF NO -format OPTION, AND IF NO X# "showpr:" LINE IN MH PROFILE, DEFAULT TO MESSAGE SUBJECT: X: ${format='%{subject}'} X X# CHANGE FOLDER (IF USER GAVE ONE), GET NAME. Xfolder="`$mh/folder $folopts -fast $newfdr`" Xcd `$mh/mhpath +` || exit # cd TO MH DIRECTORY X X# scan ALL MESSAGES; FEED TO LOOP. IF NONE, DEFAULT TO cur: Xscan -width $prwidth $scanopts -format "%(msg) $format" ${msgs-cur} | Xwhile read msgnum heading Xdo X # IF MESSAGE UNREADABLE, MH 6.6 scan PRINTS (TO stdout!) X # LIKE THIS, WITH LEADING BLANKS UNLESS msgnum > 999: X # <msgnum> unreadable X # IF THERE ARE LEADING BLANKS, SOME sh'S WILL COPY BOTH X # MESSAGE NUMBER AND unreadable INTO $heading, AND LEAVE X # $msgnum EMPTY. TRY TO CATCH BOTH CASES: X case "$msgnum" in X "") echo "$myname: skipping, message $msgnum $heading" 1>&2; continue ;; X esac X case "$heading" in X unreadable) echo "$myname: skipping unreadable message '$msgnum'." 1>&2; continue ;; X esac X X msgpath=$folder/$msgnum X case "$mhlopts" in X "") $pr $propts -h "$heading" $msgpath || break ;; X *) $mhl $mhlopts $msgpath | $pr $propts -h "$heading" || break ;; X esac Xdone X Xstat=0 Xexit X//E*O*F showpr// chmod u=rwx,g=rx,o=rx showpr echo extracting - vmsmail2mh sed 's/^X//' > "vmsmail2mh" <<'X//E*O*F vmsmail2mh//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS.Z/vmsmail2mh,v 1.2 90/03/22 06:53:59 jdpeek Exp $ X### vmsmail2mh - split VMS mail messages from EXTRACT/ALL into MH folder X### Usage: vmsmail2mh [+folder] [...vmsmsg-files] X## X## AN EASY WAY TO TRANSFER VMS MAIL MESSAGES TO UNIX IS BY EXTRACTING X## ALL THE MESSAGES FROM A VMS MAIL FOLDER INTO A FILE... USE: X## MAIL> EXTRACT/ALL X## _file: FILENAME X## THEN, YOU CAN ftp THEM TO THE SYSTEM RUNNING MH. X## X## WHEN YOU GET THEM TO THE MH SYSTEM, vmsmail2mh WILL READ THROUGH X## THE FILE (OR STANDARD INPUT, IF YOU DON'T GIVE A FILENAME): X## - THE MESSAGES ARE SEPARATED BY FORMFEEDS (CONTROL-L). X## vmsmail2mh WILL CUT THEM INTO SEPARATE MH MESSAGES X## IN THE CURRENT FOLDER (OR +folder IF YOU GIVE ONE). X## - THE FORMAT OF THE VMS MAIL MESSAGE IS DIFFERENT. X## * Subj: LINES ARE CONVERTED TO Subject: LINES. X## * From: LINES ARE SPLIT INTO From: AND Date: LINES. X## ONLY THE FIRST Subj: AND From: IN EACH MESSAGE IS CONVERTED. X## X## BUG: VMS ADDRESSES LIKE: X## SMTP%"user@host" X## HOST::USER X## AREN'T CONVERTED. IN FACT, *NO* ADDRESSES ARE CONVERTED. X X# NOTE: PROGRAM HASN'T BEEN TESTED THOROUGHLY. X# CHECK THE MESSAGES! X# Placed in the public domain. Use at your own risk. X# --Jerry Peek, 22 March 1990 X Xdfltprot=600 # DEFAULT MESSAGE PROTECTION (IF NONE IN MH PROFILE) Xfolopts="-fast -nolist -nototal -nopack -norecurse" Xmh=/usr/local/mh Xmhprofile=/u3/acs/jdpeek/.bin/mhprofile # READS MH PROFILE Xscanopts="-noclear -noheader -noreverse" X Xcase "$1" in X[@+]?*) X # IF $1 DOESN'T EXIST, folder WILL CREATE IT (SIGH). X # THAT'S BECAUSE stdout IS REDIRECTED AWAY FROM TERMINAL. X if $mh/folder $folopts "$1" >/dev/null X then X # GET PATHNAME OF FOLDER, LAST MESSAGE NUMBER: X folpath="`$mh/mhpath`" || exit X firstmsg="`$mh/scan -format '%(msg)' last`" || exit X else X echo "`basename $0`: no folder. quitting." 1>&2 X exit 1 X fi X ;; X*) echo "Usage: `basename $0` +folder|@folder [file] X ('$1' doesn't start with + or @.)" 1>&2 X exit 1 X ;; Xesac X Xif [ -n "$2" -a $ ! -r "$2" $ ] Xthen X echo "`basename $0`: quitting: can't read VMS file '$2'." 1>&2 X exit 1 Xfi X X# GET PROTECTION MODE FROM MH PROFILE (IF NONE, USE $dfltprot): Xmsgprot="`$mhprofile -b msg-protect`" || msgprot=$dfltprot X X# MAKE SHELL ARCHIVE FILE ON awk'S STANDARD OUTPUT. X# PIPE IT INTO sh TO CREATE THE MESSAGE FILES... Xawk "BEGIN { X folpath=\"$folpath\" # STORE AS STRING, WITH QUOTES X msgprot=$msgprot # STORE AS NUMBER (NO QUOTES) X msgnum=$firstmsg"' # CHANGE FROM DOUBLE- TO SINGLE-QUOTES X inmsg = 0 X} X# PROCESS MESSAGES. EACH MESSAGE STARTS WITH CONTROL-L. X# HOPE THERE ARE NO LINES WITH JUST A CONTROL-L IN MESSAGES! X{ X # MESSAGE STARTS WITH CTRL-L ON A LINE BY ITSELF. X # PRINT SHELL COMMANDS AND RESET FLAGS: X if ($0 ~ /^\014$/ && inmsg == 1) { X printf "END-OF-%s/%d\n", folpath, msgnum X # SET PROTECTION (INEFFICIENT; SHOULD DO ALL MSGS. AT ONCE) X printf "chmod %d %s/%d\n\n", msgprot, folpath, msgnum X inmsg = 0 X } X # AT START OF MESSAGE, PRINT START OF ARCHIVE AND SET FLAGS: X if (inmsg == 0) { X inmsg = 1 X msgnum += 1 X printf "/bin/cat > %s/%d << \\END-OF-%s/%d\n", \ X folpath, msgnum, folpath, msgnum X didsubj = 0 X didfrom = 0 X next X } X # TURN Subj: INTO Subject: AND SET FLAG TO MAKE SURE WE DO NOT X # TRASH ANY OTHER Subj: LINES (LIKE IN FORWARDED MESSAGES). X # STRIP DATE (14-MAR-1990 15:31:12.02) OFF END OF THE From: LINE X # AND MOVE IT TO LINE OF ITS OWN, THEN SET FLAG LIKE ABOVE: X if ($1 ~ /^Subj:/ && didsubj == 0) { X $1 = "Subject:" X didsubj = 1 X print X } X else if ($1 ~ /^From:/ && didfrom == 0) { X for (i = 1; i <= NF - 3; i++) X printf "%s ", $i X printf "%s\n", $(NF - 2) X printf "Date: %s %s\n", $(NF - 1), $NF X didfrom = 1 X } X else X print X}' $2 | # IF NO $2, WILL READ STANDARD INPUT... X/bin/sh -e # EXIT ON ANY ERROR X Xexit # RETURN STATUS FROM PIPE ABOVE X//E*O*F vmsmail2mh// chmod u=rwx,g=rx,o=rx vmsmail2mh echo extracting - xmhprint sed 's/^X//' > "xmhprint" <<'X//E*O*F xmhprint//' X#! /bin/sh X# $Header: /u3/acs/jdpeek/.bin/RCS/xmhprint,v 1.3 90/10/14 10:43:03 jdpeek book $ X### xmhprint - print command for xmh X### Usage (in .Xdefaults): xmh*PrintCommand: xmhprint [-cmd_num] X## X## THE PRINTER SUPPORT WITH xmh (X11r3 AND x11r4) ISN'T VERY GOOD. X## IT HANDS ALL YOUR MESSAGE FILES TO A PRINTER COMMAND AT ONCE. X## IT DOESN'T FILTER THEM TO REMOVE UNINTERESTING HEADER LINES. X## YOU CAN'T USE A PIPE AS PART OF THE PRINTER COMMAND BECAUSE xmh X## PUTS THE MESSAGE FILENAMES AT THE END OF THE PRINTER COMMAND LINE. X## X## THIS PROGRAM, xmhprint, TAKES MESSAGE FILENAMES(S) FROM THE X## COMMAND LINE, AS WELL AS (MAYBE) ONE OPTION. X## THE SHELL SCRIPT GETS THE MESSAGE FILENAMES FROM xmh, AND IT CAN X## PROCESS THEM ANY WAY YOU WANT IT TO. X## THE OPTIONS LET YOU CHANGE YOUR PRINT SETUP EASILY--INSTEAD OF X## STORING A COMPLICATED xmh*PrintCommand IN THE RESOURCE MANAGER, X## JUST CHANGE THE OPTION ON THE xmhprint COMMAND LINE IN .Xdefaults: X## xmh*PrintCommand: xmhprint -2 X## X## YOU CAN CUSTOMIZE THIS SCRIPT TO FIT YOUR NEEDS. X## ADD mhl(1) TO CLEAN UP THE MESSAGE HEADERS, USE OTHER PRINTERS, X## USE A POSTSCRIPT FILTER... GO WILD! X## X## STORE ANY lpr OPTIONS IN THE $PRINTER ENVIRONMENT VARIABLE. X X# TABSTOPS IN THIS CODE ARE SET AT 4 X Xerrsubj="xmh*PrintCommand print ERROR" # FOR MAILED ERRORS X X# APPEND ALL ERRORS TO FILE (NEEDS CLEANING PERIODICALLY) Xerrfile=$HOME/.xmh_printerrs Xexec >> $errfile 2>&1 X X# GET OPTION (xmh ALWAYS PUTS FILENAMES LAST): Xcase "$1" in X-1) # JUST pr; PUTS PATHNAME IN HEADER. NOTHING FANCY: X shift X pr "$@" | lpr X exit X ;; X-2) # SHOW SUBJECT IN pr HEADER OF EACH MESSAGE: X shift X for f X do X pr -h "`sed -n '/^[sS]ubject: / { X s///p X q X }' $f`" $f X done | lpr X exit X ;; X"") echo "No filenames or command line arguments!?!" | X mail -s "$errsubj" $USER X exit 1 X ;; X*) # DEFAULT: SEND ALL OPTIONS AND FILENAMES TO lpr: X lpr "$@" X exit X ;; Xesac X//E*O*F xmhprint// chmod u=rwx,g=rx,o=rx xmhprint echo Inspecting for damage in transit... temp=/tmp/shar$$; dtemp=/tmp/.shar$$ trap "rm -f $temp $dtemp; exit" 0 1 2 3 15 cat > $temp <<\!!! 65 597 3654 README 39 277 1521 append 103 441 2745 babyl2mh 78 375 2209 distprompter 163 812 4848 fixsubj 50 324 2100 fols 28 152 884 incs 48 232 1400 mhprofile 55 355 2091 recomp 76 432 2518 replf 37 211 1235 resend.fixmsg 111 722 4068 rmmer 113 569 3638 scandrafts 155 940 5697 showpr 117 655 3844 vmsmail2mh 61 326 1900 xmhprint 1299 7420 44352 total !!! wc README append babyl2mh distprompter fixsubj fols incs mhprofile recomp replf resend.fixmsg rmmer scandrafts showpr vmsmail2mh xmhprint | sed 's/^X//' | diff -b $temp - >$dtemp if [ -s $dtemp ] then echo "Ouch [diff of wc output]:" ; cat $dtemp else echo "No problems found." fi exit 0 exit 0 # Just in case... -- Kent Landfield INTERNET: kent@sparky.IMD.Sterling.COM Sterling Software, IMD UUCP: uunet!sparky!kent Phone: (402) 291-8300 FAX: (402) 291-4362 Please send comp.sources.misc-related mail to kent@uunet.uu.net.