fixusers_dti #1

#!/usr/local/bin/perl

# Fix users email addresses

# Overwrite will username@velio.com
$p4="/apps/perforce/2000.2/solaris/p4";

# Get the users

$cmd="$p4 users";

open(CMD, "$cmd|") || die;

while(<CMD>) {
  # vic <vic@baluga> (vic) accessed 2001/03/23
  (@data)=split;
  $user=$data[0];
  #print "User $user\n";
  push(@users,$user);
  $cmd2="$p4 user -o $user | sed 's/^Email\.*/Email: $user\@velio.com/g' | $p4 -u $user user -i";
  system($cmd2);
  
}

close(CMD);


# Add all these users to the control group

# Don't mess with these users for control purposes

$dontmess="sikand barnson";

$cmd3="$p4 group -o control > /tmp/p4con.$$";
system($cmd3);


foreach $p4user (@users) {
  #print "Gobble $p4user\n";

  if(!($p4user =~ /sikand/)) {
    $cmd3="echo '\t$p4user' >> /tmp/p4con.$$";
    system($cmd3);
  }
}

system("$p4 group -i < /tmp/p4con.$$");