home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1444 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  2.5 KB
  1. From: csu@alembic.acs.com (Dave Mack)
  2. Newsgroups: alt.sex.pictures,alt.sources,comp.lang.perl
  3. Subject: uumerge Patch 1
  4. Message-ID: <1990Jun11.063158.6360@alembic.acs.com>
  5. Date: 11 Jun 90 06:31:58 GMT
  6.  
  7. Apparently some versions of uudecode are too stupid to ignore
  8. anything in a file preceding a "begin" line, so when a single
  9. file is fed to uumerge, it will fail. This patch corrects the
  10. problem.
  11.  
  12. Feed this article to patch in the appropriate directory or make
  13. the changes by hand.
  14.  
  15.     patch -d <directory-where-uumerge-lives> < patch1
  16.  
  17. -------------------------------- cut here --------------------------------
  18. *** uumerge1    Mon Jun 11 02:07:55 1990
  19. --- uumerge    Mon Jun 11 02:18:07 1990
  20. ***************
  21. *** 35,54 ****
  22.   # If the last chunk only contains the last two or three lines of
  23.   # the uuencoded file (the ones that don't start with "M"), uumerge
  24.   # will die.
  25. ! 
  26.   if ($#ARGV < 0 ) {
  27.       print "Usage: uumerge filename [filename...]\n";
  28.       exit 1;
  29.   }
  30.   
  31.   # if we only have one file, pump it straight into uudecode and die
  32.   if ( $#ARGV == 0 ) {
  33. !     system("cat $ARGV[0] | uudecode");
  34.       exit 0;
  35.   }
  36. - $| = 1;
  37. - # open a pipe into uudecode
  38. - open(DECO,"|uudecode") || die "Can't pipe into uudecode\n";
  39.   
  40.   # process the first file - make sure we have a "begin" line
  41.   
  42. --- 35,83 ----
  43.   # If the last chunk only contains the last two or three lines of
  44.   # the uuencoded file (the ones that don't start with "M"), uumerge
  45.   # will die.
  46. ! #
  47. ! # CHANGES
  48. ! #
  49. ! # PATCH 1:
  50. ! # It appears that some versions of uudecode are too stupid to skip
  51. ! # past the lines preceding the "begin" line, so feeding a one-part
  52. ! # uuencoded file to uumerge will bomb.
  53. ! #
  54.   if ($#ARGV < 0 ) {
  55.       print "Usage: uumerge filename [filename...]\n";
  56.       exit 1;
  57.   }
  58.   
  59. + $| = 1;
  60. + # open a pipe into uudecode
  61. + open(DECO,"|uudecode") || die "Can't pipe into uudecode\n";
  62. + 
  63.   # if we only have one file, pump it straight into uudecode and die
  64.   if ( $#ARGV == 0 ) {
  65. !     open(FIRST,"<$ARGV[0]") || die "Can't open $ARGV[0] for input\n";
  66. ! 
  67. !     while ( <FIRST> ) {
  68. !         # skip past everything before the "begin" line
  69. !         next unless /^begin [0-9]/;
  70. !         last;
  71. !     }
  72. !     die "$ARGV[0] doesn't contain \"begin\"\n" if eof(FIRST);
  73. !     
  74. !     print DECO $_; # the begin line
  75. ! 
  76. !     while ( <FIRST> ) {
  77. !         print DECO $_ unless /^end/;
  78. !         if ( /^end/ ) {
  79. !             print DECO $_;
  80. !             last;
  81. !         }
  82. !         die "$ARGV[0] doesn't contain \"end\"\n" if eof(FIRST);
  83. !     }
  84. ! 
  85. !     # done with file
  86. !     close(FIRST);
  87.       exit 0;
  88.   }
  89.   
  90.   # process the first file - make sure we have a "begin" line
  91.   
  92.