#!/usr/bin/perl -w # -*- perl -*- use P4CGI ; use strict ; # ################################################################# # CONFIGURATION INFORMATION # All config info should be in P4CGI.pm # ################################################################# # # Find a file # ################################################################# # Print header print "", &P4CGI::start_page("Submitted Changelists", &P4CGI::ul_list("<b>select desired code line to view submitted changelists</b>")) ; my $codelines = P4CGI::cgi()->param("CODELINES") ; # Read codelines file my @CODELINES ; unless(defined $codelines) { $codelines = $ENV{CODELINES} if (defined $ENV{CODELINES} and -r $ENV{CODELINES}); } ; if(defined $codelines) { local *D ; open(*D, "$codelines" ) || &P4CGI::bail("Can not open codelines file \"$codelines\"" ); while(<D>) { chomp ; /^\#/ and do { next ; } ; /^\s*(\/\/.*)/ and do { $CODELINES[@CODELINES-1] .= &P4CGI::ahref(-url => &P4CGI::CHB_URL(), &P4CGI::fixspaces("FSPC=$1"), "MAXCH=100", $1) . "<BR>" ; next ; } ; push @CODELINES,"<B>$_</B>" ; push @CODELINES,"" ; } close D ; } else { @CODELINES = ("Full Depot Source", &P4CGI::ahref(-url => &P4CGI::CHB_URL(), "FSPC=//...", "MAXCH=100", "//..." )) ; } ; print "<hr>", &P4CGI::dl_list(@CODELINES) ; &P4CGI::end_table(), &P4CGI::end_page() ; # # That's it folks #
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#3 | 386 | heather_van_steenburgh |
Changes targeted to improve useability for the casual user: 1) Move CODELINES processing information to separate page so a) additional information can be displayed about it b) user isn't overwhelmed with so many available actions on the main page. 2) Use more explicit titles. 3) Change order of search items. 3) Replace readme for admins with a User Guide. |
||
#2 | 385 | heather_van_steenburgh | Actually included an extra file when I checked in the changes to bring the code up to the 99.2 level | ||
#1 | 382 | heather_van_steenburgh | Bring up to 0.99f level |