#!/usr/bin/perl
use strict;
use warnings;
die "$0: Usage: $0\n" if @ARGV;
my %clients;
{
open(P4CLIENTS, "p4 -ztag clients |");
my $client;
while(<P4CLIENTS>)
{
chomp;
$client = $_ if s/^\.\.\. client //;
if (defined($client) && s/^\.\.\. Access //)
{
$clients{$client} = $_;
undef $client;
}
}
close(P4CLIENTS);
}
sub by_date
{
return $clients{$a} <=> $clients{$b};
}
foreach (sort by_date keys %clients)
{
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($clients{$_});
printf "%4d/%02d/%02d %02d:%02d:%02d %s\n", 1900+$year, $mon+1, $mday, $hour, $min, $sec, $_;
}
# |
Change |
User |
Description |
Committed |
|
#1
|
3625 |
Jeff Grills |
Several perforce utilities I use frequently |
|
|