#!/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" . $access_time[1] . "\n";
}
| # | Change | User | Description | Committed | |
|---|---|---|---|---|---|
| #1 | 6365 | Tom Roffe | First branch from inital addition/submit in dev to working release r0.1 | ||
| //guest/tom_roffe/dev/p4wsat/getWSAccessTimes.pl | |||||
| #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. |
||