#!/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 #
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 5093 | Hari Krishna Dara |
Populating perforce branch. I will be adding p4admin files to it. |
||
//guest/perforce_software/utils/p4db/P4DB_0/lau.cgi | |||||
#1 | 1885 | rmg |
For posterity: Make the old version appear in a "P4DB_0" subdirectory. (I'd have called it 0.99, but I'm not sure it really *is* 0.99!) |
||
//guest/perforce_software/utils/p4db/lau.cgi | |||||
#1 | 11 | Perforce maintenance | Add Fredric Fredricson's depot browser, P4DB. |