#!/usr/bin/perl -w # -*- perl -*- use P4CGI ; use strict ; # ################################################################# # CONFIGURATION INFORMATION # All config info should be in P4CGI.pm # ################################################################# # # List all labels # ################################################################# # Get list of all label my @labels ; &P4CGI::p4call(\@labels, "labels" ); foreach (@labels) { /^Label (\S+)\s+(\S+)\s+'(.*)'/ ; my $lab = &P4CGI::ahref(-url => &P4CGI::LV_URL(), "LABEL=$1", $1) ; $_ = &P4CGI::table_row(-valign => "top", {-type=>"th", -align=>"right", -text=>$lab}, $2, $3) ; } # Print header print "", &P4CGI::start_page("List of labels", &P4CGI::ul_list("<b>owner</b> -- view user info", "<b>view</b> -- View changes for view")) ; print "", scalar @labels," labels", &P4CGI::start_table(""), &P4CGI::table_row(-type=>"th", "Label","Date","Desc.") ; foreach (@labels) { print ; } print &P4CGI::end_table(), &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/lal.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/lal.cgi | |||||
#1 | 11 | Perforce maintenance | Add Fredric Fredricson's depot browser, P4DB. |