home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / kit / pch18 < prev    next >
Encoding:
Text File  |  1993-05-04  |  22.0 KB  |  739 lines
  1. Newsgroups: comp.sources.unix
  2. From: ram@acri.fr (Raphael Manfredi)
  3. Subject: v26i230: kit - the ultimate mailing kit, Patch18
  4. Sender: unix-sources-moderator@efficacy.home.vix.com
  5. Approved: WhoAmI@efficacy.home.vix.com
  6.  
  7. Submitted-By: ram@acri.fr (Raphael Manfredi)
  8. Posting-Number: Volume 26, Issue 230
  9. Archive-Name: kit/pch18
  10.  
  11. [The latest patch for kit version 2.0 is #28.]
  12.  
  13. System: kit version 2.0
  14. Patch #: 18
  15. Priority: LOW
  16. Subject: badtar now correctly reports links
  17. Subject: recipient file was wrongly reported as missing
  18. Subject: instruction message now saved in case of error
  19. Subject: mailkit attempts to retrieve saved instructions if any
  20. Subject: new -k option, added by Steve Tynor <fugue!tynor@gatech.edu>
  21. Subject: do not start unkiting until all parts are here (Jaap Vermulen)
  22. Subject: unkit can now deal with files holding multiple kit parts
  23. Subject: now return a meaningful exit status
  24. Subject: documents new -k option for unkit
  25. Subject: unkit can now deal with multiple kit parts in a single file
  26. Subject: (the previous feature was suggested by Bertrand Meyer)
  27. Date: Mon Aug 17 18:01:35 PDT 1992
  28. From: Raphael Manfredi <ram@eiffel.com>
  29.  
  30. Description:
  31.     Badtar now correctly reports links. That is, 'badtar -v' will
  32.     correctly report the link and the file it is linked to. Of course,
  33.     this has nothing to do with kit, but badtar is part of the package
  34.     and so it makes it way through the patch.
  35.  
  36.     The recipient file was wrongly reported as missing when -l option
  37.     was used in mailkit. I inadvertantly quoted "$recipient" and the
  38.     variable contains a trailing space character...
  39.  
  40.     The instruction message now saved in case of error, and mailkit
  41.     will attempt to retrieve it if re-issued on the same package later on.
  42.  
  43.     New -k option for unkit, added by Steve Tynor <fugue!tynor@gatech.edu>.
  44.  
  45.     Do not start unkiting until all parts are here (Jaap Vermulen). This
  46.     enables you to start unkiting the parts for a given package as soon
  47.     as they arrive. Unkit will stop after the unsharing step and will not
  48.     go further until all the parts are there.
  49.  
  50.     Unkit can now deal with files holding multiple kit parts. That is to
  51.     say, you may save all the kit files for a single package in one folder
  52.     and then run unkit on that folder. If you do mix kit parts between
  53.     packages, this will not work properly, but that's better than nothing.
  54.     This feature has been requested by Bertrand Meyer <bertrand@eiffel.com>.
  55.  
  56.     Unkit will now return a meaningful exit status.
  57.  
  58.     The manual page was updated to reflect those changes.
  59.  
  60.  
  61. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your kit source
  62.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  63.     If you don't have the patch program, apply the following by hand,
  64.     or get patch (version 2.0, latest patchlevel).
  65.  
  66.     After patching:
  67.         Configure -d    # To update version information in config.sh
  68.         make
  69.         make install
  70.  
  71.     If patch indicates that patchlevel is the wrong version, you may need
  72.     to apply one or more previous patches, or the patch may already
  73.     have been applied.  See the patchlevel.h file to find out what has or
  74.     has not been applied.  In any event, don't continue with the patch.
  75.  
  76.     If you are missing previous patches they can be obtained from me:
  77.  
  78.         Raphael Manfredi <ram@eiffel.com>
  79.  
  80.     If you send a mail message of the following form it will greatly speed
  81.     processing:
  82.  
  83.         Subject: Command
  84.         @SH mailpatch PATH kit 2.0 LIST
  85.                ^ note the c
  86.  
  87.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  88.     or in bang notation from some well-known host, and LIST is the number
  89.     of one or more patches you need, separated by spaces, commas, and/or
  90.     hyphens.  Saying 35- says everything from 35 to the end.
  91.  
  92.     To get some more detailed instructions, send me the following mail:
  93.  
  94.         Subject: Command
  95.         @SH mailhelp PATH
  96.  
  97.  
  98. Index: patchlevel.h
  99. Prereq: 17
  100. 2c2
  101. < #define PATCHLEVEL 17
  102. ---
  103. > #define PATCHLEVEL 18
  104.  
  105. Index: kit/unkit.SH
  106. Prereq: 2.0.1.10
  107. *** kit/unkit.SH.old    Mon Aug 17 18:01:28 1992
  108. --- kit/unkit.SH    Mon Aug 17 18:01:29 1992
  109. ***************
  110. *** 19,27 ****
  111.   # @(#) (c) E. Mogenet April 1990
  112.   # @(#) (c) R. Manfredi, 1990 1991
  113.   
  114. ! # $Id: unkit.SH,v 2.0.1.10 92/04/20 17:39:08 ram Exp $
  115.   #
  116.   # $Log:    unkit.SH,v $
  117.   # Revision 2.0.1.10  92/04/20  17:39:08  ram
  118.   # patch15: added support for acknowledgment
  119.   # 
  120. --- 19,33 ----
  121.   # @(#) (c) E. Mogenet April 1990
  122.   # @(#) (c) R. Manfredi, 1990 1991
  123.   
  124. ! # $Id: unkit.SH,v 2.0.1.11 92/08/17 17:59:42 ram Exp $
  125.   #
  126.   # $Log:    unkit.SH,v $
  127. + # Revision 2.0.1.11  92/08/17  17:59:42  ram
  128. + # patch18: new -k option, added by Steve Tynor <fugue!tynor@gatech.edu>
  129. + # patch18: do not start unkiting until all parts are here (Jaap Vermulen)
  130. + # patch18: unkit can now deal with files holding multiple kit parts
  131. + # patch18: now return a meaningful exit status
  132. + # 
  133.   # Revision 2.0.1.10  92/04/20  17:39:08  ram
  134.   # patch15: added support for acknowledgment
  135.   # 
  136. ***************
  137. *** 98,113 ****
  138.   decoding=hexdecode            # Default decoding program
  139.   preserve=yes                # Preserve input files by default
  140.   usebtar=''                    # Do not use badtar
  141.   
  142.   # In case we are interrupted, remove all the temporary files
  143.   trap 'test -f zzz.minikit && rm -f `cat zzz.minikit` zzz.minikit; \
  144. !     rm -f z??.[hb][ea]*.??;  echo >&2 "Aborted."; exit 1' 1 2 3 15
  145.   
  146.   # Old Bourne shells do not have functions
  147.   usage='
  148. ! echo "Usage: unkit [-bhlprV] [file1 ... filen]";
  149.   echo " "" -b : force use of badtar ($badtar by default).";
  150.   echo " "" -h : give this help message.";
  151.   echo " "" -l : list the contents of a the kit files.";
  152.   echo " "" -p : preserve input files (default).";
  153.   echo " "" -r : remove input files if unshar succeeds.";
  154. --- 104,121 ----
  155.   decoding=hexdecode            # Default decoding program
  156.   preserve=yes                # Preserve input files by default
  157.   usebtar=''                    # Do not use badtar
  158. + key=''                        # Key for DES decoding
  159.   
  160.   # In case we are interrupted, remove all the temporary files
  161.   trap 'test -f zzz.minikit && rm -f `cat zzz.minikit` zzz.minikit; \
  162. !     rm -f z??.[hbtx][eamt]*;  echo >&2 "Aborted."; exit 1' 1 2 3 15
  163.   
  164.   # Old Bourne shells do not have functions
  165.   usage='
  166. ! echo "Usage: unkit [-bhlprV] [-k key] [file1 ... filen]";
  167.   echo " "" -b : force use of badtar ($badtar by default).";
  168.   echo " "" -h : give this help message.";
  169. + echo " "" -k : sets the key used for data decryption.";
  170.   echo " "" -l : list the contents of a the kit files.";
  171.   echo " "" -p : preserve input files (default).";
  172.   echo " "" -r : remove input files if unshar succeeds.";
  173. ***************
  174. *** 134,143 ****
  175.           shift;;
  176.       -b) usebtar='true'
  177.           shift;;
  178.       --) shift
  179.           break
  180.           ;;
  181. !     -*) echo "Unknown option $i"
  182.           eval $usage;;
  183.       *) break;;
  184.       esac
  185. --- 142,154 ----
  186.           shift;;
  187.       -b) usebtar='true'
  188.           shift;;
  189. +     -k) key="-k $2"
  190. +         shift
  191. +         shift;;
  192.       --) shift
  193.           break
  194.           ;;
  195. !     -*) echo "unknown option $1"
  196.           eval $usage;;
  197.       *) break;;
  198.       esac
  199. ***************
  200. *** 162,167 ****
  201. --- 173,237 ----
  202.   then
  203.       eval $unshar_cmd
  204.   else
  205. +     # More than one kit part can be held in the files given as argument.
  206. +     # Loop over each of the supplied arguments and extract parts based on
  207. +     # the leading #!/bin/sh put by the shell archiver.
  208. + 
  209. +     list=''
  210. +     count=0
  211. + 
  212. +     for file in $*; do
  213. +         num=`awk '
  214. +         BEGIN { a = 0; file = "zag.tmp" }
  215. +         /^#![     ]*\/bin\/sh/ {
  216. +             a++;
  217. +             file = sprintf("zag.tmp.%d", a);
  218. +             print > file;
  219. +             next;
  220. +         }
  221. +         { print >> file }
  222. +         END { printf("%d\n", a) }
  223. +         ' $file`
  224. +         name=''
  225. +         case "$num" in
  226. +         0)
  227. +             rm -f zag.tmp
  228. +             echo "unkit: warning: no kit part in $file (skipped)." >&2
  229. +             ;;
  230. +         1)
  231. +             rm -f zag.tmp.1
  232. +             echo "unkit: one kit part found in $file."
  233. +             name=$file
  234. +             ;;
  235. +         *)
  236. +             echo "unkit: $num kit parts found in $file." >&2
  237. +             # Each part is renamed into a zag.xtr.* file to free the name
  238. +             # space for the next file (each awk extracts into zag.tmp.*).
  239. +             for part in zag.tmp.*; do
  240. +                 count=`expr $count + 1`
  241. +                 new="zag.xtr.$count"
  242. +                 mv $part $new
  243. +                 name="$name $new"
  244. +             done
  245. +             ;;
  246. +         esac
  247. +         list="$list $name"
  248. +     done
  249. +     set X $list
  250. +     shift
  251. +     case $# in
  252. +     1) ;;
  253. +     *)
  254. +         case "$count" in
  255. +         0)
  256. +             echo "unkit: found a total of $# kit parts." >&2;;
  257. +         *)
  258. +             echo "unkit: found $# kit parts ($count parts extracted)." >&2;;
  259. +         esac
  260. +         ;;
  261. +     esac
  262. + 
  263. +     # Loop over each identified kir part and unshar it
  264.       for i
  265.       do
  266.           # The command expects "$a" to be the parameter
  267. ***************
  268. *** 168,177 ****
  269.           eval "a=$i; $unshar_cmd"    &&
  270.           (test $preserve = no && rm $i)
  271.       done
  272.   fi
  273.   
  274.   # Now check for file names to find how to decode
  275. ! if test -f z[ace][gbc].ba.aa
  276.   then
  277.       decoding=atob
  278.   else
  279. --- 238,250 ----
  280.           eval "a=$i; $unshar_cmd"    &&
  281.           (test $preserve = no && rm $i)
  282.       done
  283. + 
  284. +     # Clean up extracted parts (save disk space before tar extraction)
  285. +     rm -f zag.[tx][mt]*
  286.   fi
  287.   
  288.   # Now check for file names to find how to decode
  289. ! if test -f z[ace][gbc].ba.aa -a ! -f ark*isdone
  290.   then
  291.       decoding=atob
  292.   else
  293. ***************
  294. *** 180,189 ****
  295.   fi
  296.   if test -f zcb.*.aa
  297.   then
  298. !     decoding=$decoding" | des -d"
  299.   elif test -f zec.*.aa
  300.   then
  301. !     decoding=$decoding" | des -d -b"
  302.   fi
  303.   
  304.   # Maybe we need badtar...
  305. --- 253,262 ----
  306.   fi
  307.   if test -f zcb.*.aa
  308.   then
  309. !     decoding=$decoding" | des -d $key"
  310.   elif test -f zec.*.aa
  311.   then
  312. !     decoding=$decoding" | des -d -b $key"
  313.   fi
  314.   
  315.   # Maybe we need badtar...
  316. ***************
  317. *** 210,216 ****
  318.       sender=`cat zzz.ack`
  319.       subject=`cat zzz.subject`
  320.       echo "Sending acknowledgment to $sender..."
  321. -     # There has to be a space between the two '(' for ksh.
  322.       user=`(logname) 2>/dev/null || whoami`
  323.       host=`(uname -n) 2>/dev/null || hostname 2>/dev/null`
  324.       date=`date`
  325. --- 283,288 ----
  326. ***************
  327. *** 228,233 ****
  328. --- 300,316 ----
  329.   
  330.   test -f zzz.minikit && rm -f `cat zzz.minikit` zzz.minikit
  331.   rm -f z??.[hb][ea]*.??
  332. + 
  333. + # Emit error message if extraction was not successful
  334. + case "$status" in
  335. + 0) ;;
  336. + *)
  337. +     echo "unkit: restoring failed." >&2
  338. +     ;;
  339. + esac
  340. + 
  341. + # Give a meaningful exit status
  342. + exit $status
  343.   !NO!SUBS!
  344.   chmod 755 unkit
  345.   $eunicefix unkit
  346.  
  347. Index: kit/mailkit.SH
  348. Prereq: 2.0.1.8
  349. *** kit/mailkit.SH.old    Mon Aug 17 18:01:24 1992
  350. --- kit/mailkit.SH    Mon Aug 17 18:01:25 1992
  351. ***************
  352. *** 18,26 ****
  353.   # @(#) Mailer for kit files
  354.   # @(#) (c) R. Manfredi, 1990 1991
  355.   
  356. ! # $Id: mailkit.SH,v 2.0.1.8 92/05/02 14:17:01 ram Exp $
  357.   #
  358.   # $Log:    mailkit.SH,v $
  359.   # Revision 2.0.1.8  92/05/02  14:17:01  ram
  360.   # patch16: there can now be multiple occurences of -l
  361.   # patch16: -p is now the default option unless -c is used
  362. --- 18,31 ----
  363.   # @(#) Mailer for kit files
  364.   # @(#) (c) R. Manfredi, 1990 1991
  365.   
  366. ! # $Id: mailkit.SH,v 2.0.1.9 92/08/17 17:55:16 ram Exp $
  367.   #
  368.   # $Log:    mailkit.SH,v $
  369. + # Revision 2.0.1.9  92/08/17  17:55:16  ram
  370. + # patch18: recipient file was wrongly reported as missing
  371. + # patch18: instruction message now saved in case of error
  372. + # patch18: mailkit attempts to retrieve saved instructions if any
  373. + # 
  374.   # Revision 2.0.1.8  92/05/02  14:17:01  ram
  375.   # patch16: there can now be multiple occurences of -l
  376.   # patch16: -p is now the default option unless -c is used
  377. ***************
  378. *** 86,91 ****
  379. --- 91,97 ----
  380.   partname='Kit'            # Default part's name
  381.   range='1-'                # Default range (all parts)
  382.   unsent=''                # Parts which could not be sent
  383. + error=''                # True when error occurred
  384.   
  385.   # Old Bourne shells do not have functions
  386.   usage='
  387. ***************
  388. *** 174,180 ****
  389.   
  390.   # When a recipient file is provided, ignore the remaining of the command line
  391.   if test "$recipients"; then
  392. !     if test -r "$recipients"; then
  393.           # The format of the file is simple: a list of addresses, one per
  394.           # line. Shell-style comments are allowed and multiple addresses on a
  395.           # single line may be separated with spaces or commas.
  396. --- 180,186 ----
  397.   
  398.   # When a recipient file is provided, ignore the remaining of the command line
  399.   if test "$recipients"; then
  400. !     if test -r $recipients; then
  401.           # The format of the file is simple: a list of addresses, one per
  402.           # line. Shell-style comments are allowed and multiple addresses on a
  403.           # single line may be separated with spaces or commas.
  404. ***************
  405. *** 212,217 ****
  406. --- 218,229 ----
  407.   # Count how many files there are
  408.   set X $partname??
  409.   shift
  410. + 
  411. + # Remove instructions or number of parts will be off by 1
  412. + case $1 in
  413. + "${partname}00") shift;;
  414. + esac
  415. + 
  416.   nfiles=$#
  417.   
  418.   if test $edit = yes
  419. ***************
  420. *** 236,242 ****
  421.   EOM
  422.       # If there is a part #0, append it before calling the editor
  423.       if test -f ${partname}00; then
  424. !         echo "mailkit: using previously unsent instructions..." >&2
  425.           sleep 2
  426.           cat ${partname}00 >>$message
  427.       fi
  428. --- 248,254 ----
  429.   EOM
  430.       # If there is a part #0, append it before calling the editor
  431.       if test -f ${partname}00; then
  432. !         echo "mailkit: using previously kept instructions..." >&2
  433.           sleep 2
  434.           cat ${partname}00 >>$message
  435.       fi
  436. ***************
  437. *** 317,322 ****
  438. --- 329,335 ----
  439.               test "$preserve" = no && rm -f $part
  440.           else
  441.               echo "mailkit: could not send $part." >&2
  442. +             error='true'
  443.               if test "$preserve" = no; then
  444.                   unsent="$unsent $part"
  445.               fi
  446. ***************
  447. *** 324,329 ****
  448. --- 337,343 ----
  449.           rm -f $topmsg
  450.       else
  451.           echo "mailkit: could not open $part" >&2
  452. +         error='true'
  453.       fi
  454.   done
  455.   
  456. ***************
  457. *** 342,357 ****
  458.       cat >>$topmsg <$message
  459.       echo "Mailing instructions..."
  460.       if ${MAILER:-$mailer} $address < $topmsg; then
  461. !         rm -f $topmsg $message ${partname}00
  462.       else
  463.           echo "mailkit: could not send instructions." >&2
  464. !         cp $message ${partname}00
  465. !         if test "$preserve" = no; then
  466. !             unsent="$unsent ${partname}00"
  467. !         else
  468. !             echo "mailkit: instruction message saved as ${partname}00." >&2
  469. !         fi
  470. !         rm -f $topmsg $message
  471.       fi
  472.   fi
  473.   
  474. --- 356,375 ----
  475.       cat >>$topmsg <$message
  476.       echo "Mailing instructions..."
  477.       if ${MAILER:-$mailer} $address < $topmsg; then
  478. !         rm -f $topmsg
  479.       else
  480.           echo "mailkit: could not send instructions." >&2
  481. !         error='true'
  482. !         rm -f $topmsg
  483. !     fi
  484. ! fi
  485. ! 
  486. ! # Save instructions as part #0 in case of error
  487. ! if test "$error" -a -f $message; then
  488. !     cp $message ${partname}00 &&
  489. !     echo "mailkit: instruction message saved as ${partname}00." >&2
  490. !     if test $preserve = no; then
  491. !         unsent="$unsent ${partname}00"
  492.       fi
  493.   fi
  494.   
  495. ***************
  496. *** 368,379 ****
  497.           rm -f $unsent
  498.       fi
  499.   else
  500. !     if test -f ${partname}00; then
  501.           echo "mailkit: removing instructions held in ${partname}00." >&2
  502.           rm -f ${partname}00
  503.       fi
  504.   fi
  505.   
  506.   !NO!SUBS!
  507.   chmod 755 mailkit
  508.   $eunicefix mailkit
  509. --- 386,398 ----
  510.           rm -f $unsent
  511.       fi
  512.   else
  513. !     if test -f ${partname}00 -a ! "$error"; then
  514.           echo "mailkit: removing instructions held in ${partname}00." >&2
  515.           rm -f ${partname}00
  516.       fi
  517.   fi
  518.   
  519. + rm -f $message
  520.   !NO!SUBS!
  521.   chmod 755 mailkit
  522.   $eunicefix mailkit
  523.  
  524. Index: badtar/badtar.c
  525. Prereq: 2.0.1.2
  526. *** badtar/badtar.c.old    Mon Aug 17 18:01:20 1992
  527. --- badtar/badtar.c    Mon Aug 17 18:01:21 1992
  528. ***************
  529. *** 1,9 ****
  530.   /*
  531.    * I got that from net.sources and extended it -- RAM
  532.    *
  533. !  * $Id: badtar.c,v 2.0.1.2 92/03/24 13:37:13 ram Exp $
  534.    *
  535.    * $Log:    badtar.c,v $
  536.    * Revision 2.0.1.2  92/03/24  13:37:13  ram
  537.    * patch14: fixed some loose declarations
  538.    * 
  539. --- 1,12 ----
  540.   /*
  541.    * I got that from net.sources and extended it -- RAM
  542.    *
  543. !  * $Id: badtar.c,v 2.0.1.3 92/08/17 17:53:34 ram Exp $
  544.    *
  545.    * $Log:    badtar.c,v $
  546. +  * Revision 2.0.1.3  92/08/17  17:53:34  ram
  547. +  * patch18: badtar now correctly reports links
  548. +  * 
  549.    * Revision 2.0.1.2  92/03/24  13:37:13  ram
  550.    * patch14: fixed some loose declarations
  551.    * 
  552. ***************
  553. *** 28,33 ****
  554. --- 31,49 ----
  555.   #define BLOCKF        20                    /* Blocking factor */
  556.   #define TAPEBLOCK     (BLOCKF * TBLOCK)    /* Blocksize */
  557.   
  558. + /* Values used in linkflag field */
  559. + #define REGTYPE        '0'                    /* Regular file */
  560. + #define AREGTYPE    '\0'                /* Regular file */
  561. + #define LNKTYPE        '1'                    /* Regular link */
  562. + #define SYMTYPE        '2'                    /* Linkflag for symbolic link */
  563. + #define CHRTYPE        '3'                    /* Character special file */
  564. + #define BLKTYPE        '4'                    /* Block special file */
  565. + #define DIRTYPE        '5'                    /* Directory */
  566. + #define FIFOTYPE    '6'                    /* Named pipe */
  567. + #define CONTTYPE    '7'                    /* Reserved */
  568. + 
  569. + #define islink(c)    ((c) == LNKTYPE || (c) == SYMTYPE)
  570. + 
  571.   int verbose = 0;                    /* Verbose output control */
  572.   int silent = 0;                        /* Silent output control */
  573.   char *default_tape = TAPEDEV;        /* Default device tape file */
  574. ***************
  575. *** 337,348 ****
  576.           if (check_sum(hp) == chksum && hp->dbuf.name[0] != '\0') {
  577.   
  578.               if (verbose) {
  579.                   /* Write some informations about the header we've got */
  580.                   fprintf(logf, "*** Header found.\n");
  581.                   fprintf(logf, "***   Name: %s\n", hp->dbuf.name);
  582.                   fprintf(logf, "***   Size: %d\n", size);
  583.                   fprintf(logf, "***   Mode: %s\n", hp->dbuf.mode);
  584. !                 fprintf(logf, "***   Link flag: %c\n", hp->dbuf.linkflag);
  585.               }
  586.   
  587.               /* we have a header */
  588. --- 353,388 ----
  589.           if (check_sum(hp) == chksum && hp->dbuf.name[0] != '\0') {
  590.   
  591.               if (verbose) {
  592. +                 char *type_flag;
  593.                   /* Write some informations about the header we've got */
  594.                   fprintf(logf, "*** Header found.\n");
  595.                   fprintf(logf, "***   Name: %s\n", hp->dbuf.name);
  596.                   fprintf(logf, "***   Size: %d\n", size);
  597.                   fprintf(logf, "***   Mode: %s\n", hp->dbuf.mode);
  598. !                 switch (hp->dbuf.linkflag) {
  599. !                 case AREGTYPE:
  600. !                 case REGTYPE:
  601. !                     type_flag = "regular file"; break;
  602. !                 case LNKTYPE:
  603. !                     type_flag = "hard link"; break;
  604. !                 case SYMTYPE:
  605. !                     type_flag = "symbolic link"; break;
  606. !                 case CHRTYPE:
  607. !                     type_flag = "character special file"; break;
  608. !                 case BLKTYPE:
  609. !                     type_flag = "block special file"; break;
  610. !                 case DIRTYPE:
  611. !                     type_flag = "directory"; break;
  612. !                 case FIFOTYPE:
  613. !                     type_flag = "named pipe (FIFO)"; break;
  614. !                 case CONTTYPE:
  615. !                     type_flag = "RESERVED"; break;
  616. !                 default:
  617. !                     type_flag = "UNKNOWN"; break;
  618. !                 }
  619. !                 fprintf(logf, "***   Link flag: %s\n", type_flag);
  620. !                 if (islink(hp->dbuf.linkflag))
  621. !                     fprintf(logf, "***   Link name: %s\n", hp->dbuf.linkname);
  622.               }
  623.   
  624.               /* we have a header */
  625. ***************
  626. *** 362,374 ****
  627.               }
  628.   
  629.               /* Remove the leading '/' to get non absolute path */
  630. !             if (relative && hp->dbuf.name[0] == '/') {
  631. !                 sprintf(hp->dbuf.name, "%s", hp->dbuf.name + 1);
  632. !                 sprintf(hp->dbuf.chksum, "%o", check_sum(hp));
  633.               }
  634.   
  635.               /* Compute number of blocks used by the file */
  636.               fblocks = (size%TBLOCK) ? size/TBLOCK + 1 : size/TBLOCK;
  637.               lprintf(logf,"%s (%d bytes)\n", hp->dbuf.name, size);
  638.               nblock++, write(1, hp, TBLOCK);        /* Write the header */
  639.               continue;
  640. --- 402,421 ----
  641.               }
  642.   
  643.               /* Remove the leading '/' to get non absolute path */
  644. !             if (relative) {
  645. !                 if (hp->dbuf.name[0] == '/') {
  646. !                     sprintf(hp->dbuf.name, "%s", hp->dbuf.name + 1);
  647. !                     sprintf(hp->dbuf.chksum, "%o", check_sum(hp));
  648. !                 }
  649. !                 if (islink(hp->dbuf.linkflag) && hp->dbuf.linkname[0] == '/') {
  650. !                     sprintf(hp->dbuf.linkname, "%s", hp->dbuf.linkname + 1);
  651. !                     sprintf(hp->dbuf.chksum, "%o", check_sum(hp));
  652. !                 }
  653.               }
  654.   
  655.               /* Compute number of blocks used by the file */
  656.               fblocks = (size%TBLOCK) ? size/TBLOCK + 1 : size/TBLOCK;
  657. +             fblocks = islink(hp->dbuf.linkflag) ? 0 : fblocks;
  658.               lprintf(logf,"%s (%d bytes)\n", hp->dbuf.name, size);
  659.               nblock++, write(1, hp, TBLOCK);        /* Write the header */
  660.               continue;
  661.  
  662. Index: man/kit.SH
  663. Prereq: 2.0.1.9
  664. *** man/kit.SH.old    Mon Aug 17 18:01:32 1992
  665. --- man/kit.SH    Mon Aug 17 18:01:33 1992
  666. ***************
  667. *** 18,26 ****
  668.   .TH KIT $manext ram
  669.   ''' @(#) Manual page for mailing kit -- (c) ram July 1990
  670.   '''
  671. ! ''' $Id: kit.SH,v 2.0.1.9 92/05/02 14:19:05 ram Exp $
  672.   '''
  673.   ''' $Log:    kit.SH,v $
  674.   ''' Revision 2.0.1.9  92/05/02  14:19:05  ram
  675.   ''' patch16: documents new -r option for mailkit and -S for kit
  676.   ''' patch16: mailkit now supports multiple -l options
  677. --- 18,31 ----
  678.   .TH KIT $manext ram
  679.   ''' @(#) Manual page for mailing kit -- (c) ram July 1990
  680.   '''
  681. ! ''' $Id: kit.SH,v 2.0.1.10 92/08/17 18:01:16 ram Exp $
  682.   '''
  683.   ''' $Log:    kit.SH,v $
  684. + ''' Revision 2.0.1.10  92/08/17  18:01:16  ram
  685. + ''' patch18: documents new -k option for unkit
  686. + ''' patch18: unkit can now deal with multiple kit parts in a single file
  687. + ''' patch18: (the previous feature was suggested by Bertrand Meyer)
  688. + ''' 
  689.   ''' Revision 2.0.1.9  92/05/02  14:19:05  ram
  690.   ''' patch16: documents new -r option for mailkit and -S for kit
  691.   ''' patch16: mailkit now supports multiple -l options
  692. ***************
  693. *** 76,82 ****
  694.   \fBmailkit\fR [ \fB\-EFVcefhp\fR ] [ \fB\-l\fI file\fR ]
  695.   [ \fB\-n\fI partname\fR ] \fItitle\fR [ \fIaddress(es)\fR ]
  696.   .sp
  697. ! \fBunkit\fR [ \fB\-bhlprV\fR ] [ \fIfiles\fR ]
  698.   .SH DESCRIPTION
  699.   \fIKit\fR is the ultimate mailing tool. It enables you to mail
  700.   data without any consideration of possible escape sequences or
  701. --- 81,87 ----
  702.   \fBmailkit\fR [ \fB\-EFVcefhp\fR ] [ \fB\-l\fI file\fR ]
  703.   [ \fB\-n\fI partname\fR ] \fItitle\fR [ \fIaddress(es)\fR ]
  704.   .sp
  705. ! \fBunkit\fR [ \fB\-bhlprV\fR ] [ \fB\-k\fI key\fR ] [ \fIfiles\fR ]
  706.   .SH DESCRIPTION
  707.   \fIKit\fR is the ultimate mailing tool. It enables you to mail
  708.   data without any consideration of possible escape sequences or
  709. ***************
  710. *** 203,208 ****
  711. --- 208,219 ----
  712.   If no file name is given to \fIunkit\fR, the standard input is processed.
  713.   This is useful to process messages directly from a mail user agent.
  714.   .PP
  715. + You may save more than one kit part into a file and give that file as an
  716. + argument to \fIunkit\fR, which will then identify and extract the embeded
  717. + parts to process them. The program lists on the standard error the files
  718. + as they are processed and tells you how many kit parts it found within each
  719. + file.
  720. + .PP
  721.   Sometimes, \fItar\fR does not work well accross NFS and will fail restoring
  722.   ownership on files, even with the \-\fBo\fR option. If you chose to install
  723.   \fIbadtar\fR at configuration time, you may use \-\fBb\fR to instruct
  724. ***************
  725. *** 215,220 ****
  726. --- 226,235 ----
  727.   ignored. You may also use \fIunkit\fR in place of \fIunshar\fR: it will
  728.   stop after having unpacked the shell archives if it does not detect any
  729.   kit file.
  730. + .PP
  731. + When unpacking crypted archives, the \fB\-k\fR option may be used to
  732. + specify the key to be used by DES. If you do not supply it, DES will
  733. + prompt you on the terminal.
  734.   .PP
  735.   For all of these commands, option \fB\-V\fR prints the version
  736.   number with the current patch level and exits, while \fB\-h\fR gives
  737.  
  738. *** End of Patch 18 ***
  739.