check_group.pl #1

#!/usr/bin/perl

# Add user/password info here.
$p4 = "p4";

# Usage:
#   checkGroup form-delete user "perl check_group.pl %formname%"

$userName = $ARGV[0];

if ( `$p4 groups $userName 2>&1` =~ /[a-zA-Z0-9_]/ )
{
    print "$userName is a member of a group and will not be deleted.\n";
    exit 1;
}

#	Change	User	Description	Committed
#1	7416	Sam Stafford	Trigger to check for group membership before deletion.