#!/usr/bin/perl
print "Workspace Access Times\n\n";
@clients = `p4 clients`;
foreach my $client (@clients) {
@client_name = split(/ /, $client);
$access_data = `p4 client -o $client_name[1]`;
@access_time = ($access_data =~ m/Access:(.+)/ig);
print "Client Workspace " . $client_name[1] . " last accessed on " . strip_whitespace($access_time[1]) . "\n";
}
sub strip_whitespace {
my($string) = @_;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}
# |
Change |
User |
Description |
Committed |
|
#2
|
6366 |
Tom Roffe |
Inital Creatation of Disable Auto User Creation List Script |
|
|
#1
|
6364 |
Tom Roffe |
Inital Addition of Workspace Access Time Perl script.
Written without the use of p4perl API for smallest foot-print and deps. |
|
|