p4_limit_users #1

#!/usr/bin/perl

# add all users to a default_users group

# to set maxresults and max scanrows


$cmd="/opt/cadroot/bin/p4 users";

open(TMPF,">/tmp/p4limit.$$") || die "Couldn't write temp file\n";

print TMPF "Group: default_users\nMaxResults: 100000\nMaxScanRows: 100000\nUsers:\n\t";

open(CMD, "$cmd|") || die "Error $cmd\n";

while(<CMD>) {

	(@data)=split;
	print TMPF "$data[0]\n\t";
	}


print TMPF "\n";
close(TMPF);


$cmd="p4 group -i < /tmp/p4limit.$$> /dev/null 2>&1";
system($cmd);

unlink("/tmp/p4limit.$$");