lau.cgi #2

#!/usr/bin/perl -w
# -*- perl -*-
use P4CGI ;
use strict ;
#
#################################################################
#  CONFIGURATION INFORMATION 
#  All config info should be in P4CGI.pm
#
#################################################################
#
#  P4 list all users
#  List p4 users
#
#################################################################

# Get users
my @users ;
&P4CGI::p4call(\@users, "users" );

my $emailall ;
my $usertable ;
$usertable  =  &P4CGI::start_table("cellpadding=1") ;
$usertable .=  &P4CGI::table_row("-type","th",
				 "-align","left",
				 "User","Name","e-mail address","Last access");

my $userinfo ;
foreach $userinfo (sort { uc($a) cmp uc($b) } @users)
{
    $userinfo =~ /(\w+)\s+\<(.*)\>\s+\((.*)\) accessed (\S+)/ and do {
	my ($user,$email,$name,$lastaccess) = ($1,$2,$3,$4) ;
	$user = &P4CGI::ahref(-url => &P4CGI::LU_URL(),
			      "USER=$user",
			      $user) ;
	$email =~ /\w+\@\w+/ and do {
	    if(defined $emailall) {
		$emailall .= ";$email" ;
	    } else {
		$emailall .= "mailto:$email" ;
	    } ;
	    $email = &P4CGI::ahref(-url => "mailto:$email",
				    $email) ;
	} ;
	$usertable .= &P4CGI::table_row($user,
					$name,
					$email,
					$lastaccess) ;	
    }
}
$usertable .= &P4CGI::end_table() ;

print "",
    &P4CGI::start_page("P4 users",
		       &P4CGI::ul_list("<b>user</b> -- see more info",
				       "<b>e-mail address</b> -- e-mail user",
				       &P4CGI::ahref(-url => $emailall,
						     "<b>Mail all users</b>"))),
    "<B>",
    scalar(@users),
    " users:<br></B>",
    $usertable,
    &P4CGI::end_page() ;

#
# That's it folks
#