#!/usr/bin/env perl -w

use strict;

#my $argc = @ARGV;

#if($argc != 1) { die "Usage: accessUpdate.pl <username>\n"; }

my $p4 = "p4 -ztag";
#my $user = "-u $ARGV[0]";
my $command = "users";

my @accessUpdate= `$p4 $command`;

foreach (@accessUpdate) {
   chomp;
   if(/^\.\.\.\s(User)(.*)$/) {
	print "$1: $2\t";
   }
   if(/^\.\.\.\s(Email)(.*)$/) {
	print "$1: $2\n";
   }
}