#!/usr/bin/perl -w
# -*- perl -*-
use P4CGI ;
use strict ;
#
#################################################################
# CONFIGURATION INFORMATION
# All config info should be in P4CGI.pm
#
#################################################################
#
# List p4 clients
#
#################################################################
sub weeksago($$$ ) {
# Take Year, month and day of month as parameter and return the number
# of week that has passed since that date
my ($y,$m,$d) = @_ ;
$y -= 1900 ;
$m-- ;
my $_now = time() ;
my $_then = $_now ;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($_then);
if(($y > $year) or
(($y == $year) and ($m > $mon)) or
(($y == $year) and ($m == $mon) and ($d > $mday))) {
return 0 ;
}
# The algorithm is not very robust, take current date and
# remove one day at the time until the date match the requested
# date. Can fail miserably for a number of combinations of
# illegal input....
while(1) {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($_then);
if(($y == $year) and ($m == $mon) and ($d == $mday)) {
return int(( $_now - $_then)/(3600*24*7)) ;
}
$_then -= 3600*24 ;
} ;
}
my $user = P4CGI::cgi()->param("USER") ;
my $mode = P4CGI::cgi()->param("MODE") ;
$mode = "Brief" unless (defined $mode) and ($mode eq "Complete") ;
$mode = "Complete" if defined $user ;
# Get clients
my @tmp ;
&P4CGI::p4call(\@tmp, "clients" );
my @clients ;
my %clientInfo ;
my $c ;
foreach $c (@tmp) {
if($c =~ /^Client\s+(\S+)\s+(\S+)\s+root\s+(.*)\s+'(.*)'/)
{
my ($client,$updated,$root,$desc) = ($1,$2,$3,$4) ;
push @clients,$client ;
my %tmp = ("Update" => $updated,
"Root" => $root,
"Description" => $desc) ;
$clientInfo{$client} = \%tmp ;
}
} ;
my $clients = @clients ;
my $warnings = 0 ;
my $title = "P4 clients" ;
if(defined $user) {
$title .= "
for user $user" ;
}
$| = 1 ;
my @legend = ("client -- see more info",
"owner -- see user info") ;
my $lastaccess = undef ;
my $owner = undef ;
if($mode eq "Brief") {
push @legend,&P4CGI::ahref("MODE=Complete",
"Show owner and access info") ;
}
else {
$lastaccess = "Last access" ;
$owner = "Owner/view user" ;
} ;
if(defined $user) {
push @legend,&P4CGI::ahref("Show all clients") ;
}
print "",
&P4CGI::start_page($title,
&P4CGI::ul_list(@legend)) ;
unless(defined $user) {
print "", $clients," clients
" ;
}
print "",
&P4CGI::start_table(" cellpadding=1"),
&P4CGI::table_header("Client/view client",$owner,"Description",
"Updated",$lastaccess);
# Get users
my @users ;
&P4CGI::p4call(\@users, "users" );
my %users ;
map { s/^(\S+).*$/$1/ ; $users{$_}="" ; } @users ;
if($mode ne "Brief") {
my $client ;
foreach $client (sort { uc($a) cmp uc($b) } @clients)
{
my %values ;
my @fields = &P4CGI::p4readform("client -o $client",\%values) ;
my $warning = "" ;
if(exists $values{"Date"}) {
$values{"Update"} = $values{"Date"} ;
$values{"Access"} = "---" ;
delete $values{"Date"} ;
}
else {
if($values{"Access"} =~ /(\d\d\d\d)\/(\d\d)\/(\d\d)/) {
my $weeksOld = weeksago($1,$2,$3) ;
if($weeksOld > 10) {
if($warning ne "") { $warning .= "
\n" ; } ;
$warning .= "Not used for $weeksOld weeks!" ;
}
}
}
if(exists $values{"Owner"}) {
$owner = $values{"Owner"} ;
$values{"OwnerName"} = $owner ;
if(exists $users{$owner}) {
$values{"Owner"} = &P4CGI::ahref(-url => "userView.cgi" ,
"USER=$owner",
$owner),
}
else {
if($warning ne "") { $warning .= "
\n" ; } ;
$warning .= "Owner does not exist!" ;
}
} ;
if(exists $values{"Description"}) {
$values{"Description"} = P4CGI::fixSpecChar($values{"Description"}) ;
$values{"Description"} =~ s/\n/
\n/sg ;
}
unless((defined $user) and ( uc($user) ne uc($owner))) {
$values{"Warnings"} = $warning ;
$clientInfo{$client} = { %{$clientInfo{$client}},%values} ;
if($warning ne "") { $warnings++ ; } ;
}
} ;
}
my $client ;
foreach $client (sort { uc($a) cmp uc($b) } @clients)
{
my %info = %{$clientInfo{$client}} ;
$info{"Warnings"} = "" unless defined $info{"Warnings"} ;
if((!defined $user) or (uc($user) eq uc($info{"OwnerName"}))) {
print &P4CGI::table_row(-valign=>"top",
&P4CGI::ahref(-url => "clientView.cgi",
"CLIENT=$client",
$client),
$info{"Owner"},
{
-text => "" . $info{"Description"} . "",
},
$info{"Update"},
$info{"Access"},
"$info{Warnings}") ;
}
}
print &P4CGI::end_table() ;
if($warnings > 0) {
my $s = "" ;
$s = "s" if $warnings != 1 ;
$warnings = "($warnings warning$s)" ;
}
else {
$warnings = "" ;
}
print
" $warnings
",
&P4CGI::end_page() ;
#
# That's all folks
#