home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1329 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  813 b 
  1. From: csu@alembic.acs.com (Dave Mack)
  2. Newsgroups: comp.lang.perl,alt.sources
  3. Subject: Patch 1 for chfn in Perl
  4. Message-ID: <1990May14.001123.20701@alembic.acs.com>
  5. Date: 14 May 90 00:11:23 GMT
  6.  
  7. Dumb! Got my chmods confused with my umasks. Please apply this
  8. patch to the Perl version of chfn I posted earlier.
  9.  
  10. *** chfn~    Sun May 13 15:00:22 1990
  11. --- chfn    Sun May 13 17:30:34 1990
  12. ***************
  13. *** 15,21 ****
  14.   
  15.   die "Usage: chfn new-full-name\n" if ( $#ARGV != 0 );
  16.   
  17. ! umask(0600); # Don't want folks messing with the tmp file
  18.   
  19.   open(PW,"</etc/passwd") || die "Can\'t open /etc/passwd: $!\n";
  20.   
  21. --- 15,21 ----
  22.   
  23.   die "Usage: chfn new-full-name\n" if ( $#ARGV != 0 );
  24.   
  25. ! umask(0077); # Don't want folks messing with the tmp file
  26.   
  27.   open(PW,"</etc/passwd") || die "Can\'t open /etc/passwd: $!\n";
  28.   
  29.