Loading...
Helix SwarmHelix Swarm
Loading...

cbb.cgi

  • //
  • guest/
  • diane_holt/
  • p4db/
  • cgi-bin/
  • cbb.cgi #2
  • View
  • Commits
  • Open Download .zip Download (2 KB) 
  1. #!/usr/local/bin/perl5
  2. # -*- perl -*-
  3. use P4CGI ;
  4. use strict ;
  5. #
  6. #####################################################################
  7. ##
  8. ##  CONFIGURATION INFORMATION 
  9. ##  All config info should be in $configFile (see init() in P4CGI.pm)
  10. ##
  11. #####################################################################
  12. ##
  13. ## Changes By Branch
  14. ##
  15. #####################################################################
  16.  
  17. # Set back references
  18. my $homepage="index.cgi";
  19. my $backtohome="Back to Home" ;
  20.  
  21. # Get branches
  22. my $branch ;
  23. my @branches ;
  24. my @tmp ;
  25. &P4CGI::p4call(\@tmp, "branches" ) ;
  26. foreach (@tmp) {
  27.     /^Branch\s+(\S+)\s+.*$/ ;
  28.     push( @branches, $1 ) ;
  29. }
  30.  
  31. # Get branch path, put together list of branch-name/path
  32. my $listbranch ;
  33. my $path ;
  34. my @listbranches ;
  35. foreach $branch (@branches) {
  36.     my $listed ;
  37.     local *P4 ;
  38.     &P4CGI::p4call(*P4, "branch -o $branch" );
  39.     while(<P4>) {
  40. 	chomp ;
  41. 	if( $listed == 1 ) { $listed=0 ; next ; }
  42. 	next unless /^\s+\/\// ;
  43. 	/^\s*\/\/\S+\s(\/\/.*)/ ;
  44. 	$path = $1 ; $listed = 1 ;
  45. 	$listbranch = $branch . " " . $path ;
  46. 	push( @listbranches, $listbranch ) ;
  47.     }
  48.     close P4 ;
  49. }
  50.  
  51. # Print title and legend
  52. print
  53.     "",
  54.     &P4CGI::start_page("Changes by Branch",
  55. 	&P4CGI::ul_list("<b>Branch:</b> to see changes for branch"),
  56. 	$homepage,$backtohome) ;
  57.  
  58. # Print the page
  59. if( scalar(@branches) == 0 ) {
  60. print
  61.     "",
  62.     "<font color=red>No branches for this depot.</font>",
  63.     "<br>",
  64.     &P4CGI::end_page() ;
  65.     exit 1 ;
  66. }
  67. else {
  68.   my ($tbranch, $tpath) ;
  69.   print
  70.     "",
  71.     "<b>",
  72.     &P4CGI::start_table("width=100%"),
  73.     &P4CGI::table_row(-type  => "th",
  74. 		      -align => "left",
  75. 		      "Branch","Path"),
  76.     "</b>";
  77.   foreach (@listbranches) {
  78.     ($tbranch,$tpath) = split /\s/ ;
  79.     print
  80.       "",
  81.       &P4CGI::table_row(-valign => "top",
  82.           &P4CGI::ahref(-url => &P4CGI::CHB_URL(),
  83. 			"FSPC=$tpath", "BRANCH=YES", "BR=$tbranch",
  84. 			"$tbranch"),
  85. 	  "$tpath",
  86. 	  "<br>"),
  87.   }
  88.  
  89. }
  90.  
  91. # End the table, end the page
  92. print 
  93.     "",
  94.     &P4CGI::end_table(),
  95.     &P4CGI::end_page() ;
  96.  
# Change User Description Committed
#2 277 Diane Holt Avoid having a branch with multiple mappings be listed more than once. 25 years ago
#1 271 Diane Holt The Perl files for P4DB.
These (almost) match the files in
rev 1 of the p4db.tar file --... a few files have some minor
cosmetic changes in the code, and chv.cgi has a Legend item
added that was missing in the one in the tar-file. These files,
at rev 1 (and the files in p4db.tar at rev 1), are suitable for
for running the app with release 98.2 of P4. «		 25 years ago