![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to docsubmit.sh CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / docsubmit|
Return to docsubmit.sh CVS log | Up to [Research Unix] / researchv10no / cmd / docsubmit |
1.1 ! root 1: # @(#)fulltext:docsubmit 1.18 ! 2: ! 3: # THis routine was originally written by Lorinda Cherry - it gathers up ! 4: # all the files connected with a documents, and transmits them via ! 5: # uucp to mhuxd!~/full.text/ ! 6: # ! 7: # It bundles all the files involved together into one cpio file ! 8: # called <1st 5 chars of machine name><process id>.cp ! 9: ! 10: # Finding a good awk is a pain - set it here if you want ! 11: L=/usr/lib/docsubmit ! 12: AWK="" ! 13: if test -z "${AWK}" ! 14: then ! 15: if ans=`sh -c 'logdir exptools' 2>&1` ; then ! 16: : ! 17: else ! 18: ans=`grep '^exptools:' /etc/passwd | sed "s/^[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\).*/\1/"` ! 19: fi ! 20: if test -r ${ans}/bin/nawk ! 21: then ! 22: AWK=${ans}/bin/nawk ! 23: fi ! 24: fi ! 25: if test -z "${AWK}" ! 26: then ! 27: if test -r /usr/local/bin/awk ! 28: then ! 29: AWK=/usr/local/bin/awk ! 30: fi ! 31: fi ! 32: if test -z "${AWK}" ! 33: then ! 34: AWK=awk ! 35: fi ! 36: ! 37: # Get machine nodename - swiped from rn build routine Configure ! 38: if ans=`sh -c hostname 2>&1` ; then ! 39: MACH=$ans ! 40: elif ans=`sh -c 'uuname -l' 2>&1` ; then ! 41: MACH=$ans ! 42: elif ans=`sh -c 'uname -n' 2>&1` ; then ! 43: MACH=$ans ! 44: else ! 45: MACH=failedget ! 46: fi ! 47: # Get the users LOGNAME ! 48: if ans=`sh -c logname 2>&1` ; then ! 49: LOGNAME=$ans ! 50: else ! 51: LOGNAME=`echo $HOME|sed 's/.*\///'` ! 52: fi ! 53: ! 54: T=/tmp ! 55: AWKTEMP=/tmp/Doc.Awk.$$ ! 56: OUTP="junk" ! 57: COVER="junk" ! 58: DOCNUM="junk" ! 59: REF="" ! 60: # cut the machine name down to a max of 5 characters ! 61: DIR=`echo ${MACH} | sed 's/\(.....\).*/\1/'`$$ ! 62: NAME=$DIR ! 63: DIR=$T/$DIR ! 64: trap 'rm -f ${AWKTEMP} $DIR/* $T/$NAME.cp ; rmdir $DIR 2>>/dev/null; trap 0;exit' 0 1 2 15 ! 65: if test $# -eq 0 ! 66: then ! 67: echo "docsubmit -C -c file.cover -N number -r ref_file -t file(s)" ! 68: echo " -C if document complete without coversheet, else -c file.cover" ! 69: echo " -N number if document number not included in the files" ! 70: echo " -r to include a refer file" ! 71: echo " -t if source is Knuths TeX instead of troff/nroff\n" ! 72: echo " Two examples, first with cover sheet, second without:" ! 73: echo " docsubmit -c mydoc.cover mydoc.text mydoc.append" ! 74: echo " docsubmit -C -N 79111-880324-01 mydoc.text" ! 75: exit 0 ! 76: fi ! 77: for i in $* ! 78: do case $i in ! 79: -r) shift; REF=$1; shift; continue;; ! 80: -c) shift; COVER=$1; shift; continue;; ! 81: -C) shift; COVER=$$; continue;; ! 82: -t) shift; TEX="yes"; ARG=$1; shift; continue;; ! 83: -N) shift; DOCNUM=$1; shift; continue;; ! 84: -*) echo docsubmit unknown flag $i; exit 1;; ! 85: esac ! 86: done ! 87: ARGS=$* ! 88: if test "$COVER" = "junk" ! 89: then ! 90: echo "You must include the coversheet file for the paper to be submitted" ! 91: echo "If the coversheet is in the files (or the files are the complete document)," ! 92: echo " indicate this by using the -C flag" ! 93: echo "Use the flag -N number if document number not included in the files" ! 94: echo " ===> Full text of document not sent <===" ! 95: exit 1 ! 96: fi ! 97: ! 98: # check the entered document number ! 99: if test ${DOCNUM} != "junk" ! 100: then ! 101: x=`expr "${DOCNUM}" : '^[a-zA-Z0-9]*-[89][0-9]*-[0-9][0-9]'` ! 102: if test $x -lt 2 ! 103: then ! 104: echo "\nDocument numbers must be of form OrgNum-Date-seq" ! 105: echo " Where Date is usually YYMMDD (e.g. 881224) [always starts with a year]" ! 106: echo " and the sequence number is always 2 digits (e.g. 03)" ! 107: echo " ===> Full text of document not sent <===" ! 108: exit 1 ! 109: fi ! 110: fi ! 111: OUTP=$DIR/$NAME ! 112: mkdir $DIR ! 113: if test $TEX ! 114: then ! 115: case $OUTP in ! 116: *.*) echo "the name for a TeX paper cannot contain . tex gets confused" ! 117: echo " use _ or - instead" ! 118: exit 1 ! 119: esac ! 120: BBL=$OUTP.bbl ! 121: OUTP=$OUTP.tex ! 122: echo "%...\\\"" `date` >$OUTP ! 123: echo "%...\\\"" EmailAddress ${MACH}"!"${LOGNAME} >>$OUTP ! 124: if test "${DOCNUM}" != "junk" ! 125: then ! 126: echo "%...\\\" DocNum ${DOCNUM}" >>$OUTP ! 127: fi ! 128: echo "%...\\\"" `pwd` >>$OUTP ! 129: ${AWK} -f $L/tex.awk dir=$DIR texinp=$TEXINPUTS $ARG.tex >>$OUTP ! 130: # Check that it ended okay ! 131: if test $? -ne 0 ! 132: then ! 133: echo "Sorry - couldnt collect together the full text of your document." ! 134: echo "No full text was sent! Contact the docsubmit provider with questions." ! 135: exit 1 ! 136: fi ! 137: ! 138: if test -s $ARG.bbl ! 139: then ! 140: cp $ARG.bbl $BBL ! 141: else if test \( -s $ARG.bib \) -a \( ! -s $DIR/$ARG.bib \) ! 142: then ! 143: cp $ARG.bib $BIB ! 144: fi ! 145: fi ! 146: else ! 147: echo "...\\\"" `date` >$OUTP ! 148: echo "...\\\"" EmailAddress ${MACH}"!"${LOGNAME} >>$OUTP ! 149: if test "${DOCNUM}" != "junk" ! 150: then ! 151: echo "...\\\" DocNum ${DOCNUM}" >>$OUTP ! 152: fi ! 153: echo "...\\\"" `pwd` >>$OUTP ! 154: if test $REF ! 155: then ! 156: cat >>$OUTP <<x ! 157: ...\"refer first ! 158: x ! 159: fi ! 160: if test $COVER = $$ ! 161: then ! 162: PARMS="$ARGS" ! 163: else ! 164: PARMS="$COVER $ARGS" ! 165: fi ! 166: ${AWK} -f $L/troff.awk dir=$DIR $PARMS >>$OUTP ! 167: if test $? -ne 0 ! 168: then ! 169: echo "Sorry - couldnt collect together the full text of your document." ! 170: echo "No full text was sent! Contact the docsubmit provider with questions." ! 171: exit 1 ! 172: fi ! 173: ! 174: if test $REF ! 175: then ! 176: cat >>$OUTP <<x ! 177: ...\"refer begin ! 178: x ! 179: cat $REF >>$OUTP ! 180: cat >>$OUTP <<x ! 181: ...\"refer end ! 182: x ! 183: fi ! 184: fi ! 185: cd $T ! 186: ls $NAME/*|cpio -oc >$NAME.cp ! 187: chmod 0644 $NAME.cp ! 188: uucp -C $NAME.cp mhuxd!~/full.text/ ! 189: echo " ! 190: The full text of your document has been sent to the Library Network. ! 191: Please note that an official paper copy MUST still be filed. ! 192: " ! 193: exit 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.