#!/usr/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.$$");
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#2 | 4531 | robert_yu |
Util changes: /usr/bin/perl instead of /usr/local/bin/perl Skill changes: get it to work with schematic, layout, symbols for ic 5.0.33 |
||
#1 | 4529 | robert_yu | p4 integrate from public/perforce/cdsp4/release/2.2/... | ||
//guest/perforce_software/cdsp4/release/2.2/Utils/fixusers_dti | |||||
#1 | 1675 | Shiv Sikand | New 2.2 tree |