#!/usr/local/bin/perl

use strict;
use warnings;
use Fcntl qw(:DEFAULT :flock);

# sysopen(PASSWD, "./passwd", O_RDWR)
open (PASSWD, "+>>./passwd")
 or die "can't open passwd file ($!)";
flock(PASSWD, LOCK_EX);
#  or die "can't get lock on passwd file ($!)";
my @temp;

foreach my $readLine (PASSWD) {
  chomp $readline;
  my (
      $name, $passwd, $uid,
      $gid,  $quota,  $comment,
      $gcos, $dir,    $shell
     )
     = split /:/, $readLine;

  if ($name eq "www") {
    $shell =~ s[/bin/bash][/dev/null];
  }

  my $line = join ':', ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell);

  push @temp, $line;

}

truncate (PASSWD, 0);

foreach my $user (@temp) {
  print PASSWD "$user\n";
}

close (PASSWD);