Helix SwarmHelix Swarm

chb.cgi

  • //
  • guest/
  • diane_holt/
  • p4db/
  • cgi-bin/
  • chb.cgi #1
  • View
  • Commits
  • Open Download .zip Download (9 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. ##  CHange Browser
  14. ##
  15. #####################################################################
  16.  
  17. # Set back references
  18. my $homepage="index.cgi";
  19. my $backtohome="Back to Home" ;
  20.  
  21. # Various vars
  22. my $fspec ;
  23. my $pending ;
  24. my $status = "" ;
  25. my $type = "" ;
  26. my $user = "";
  27.  
  28. # Get file spec argument
  29. my $filespec = P4CGI::cgi()->param("FSPC") ;
  30. $filespec = "//..." unless defined $filespec ;
  31.  
  32. # Get label argument
  33. my $label = P4CGI::cgi()->param("LABEL") ;
  34. if(defined $label and $label eq "-") { $label = undef ; } ;
  35.  
  36. # Get spec of files to exclude from list of changes
  37. my $exfiles = P4CGI::cgi()->param("EXFSPC") ;
  38. if(defined $exfiles and $exfiles eq "-") { $exfiles = undef ; } ;
  39.  
  40. # Get label to exclude
  41. my $exlabel = P4CGI::cgi()->param("EXLABEL") ;
  42. if(defined $exlabel and $exlabel eq "-") { $exlabel = undef ; } ;
  43.  
  44. # Get status
  45. $status = P4CGI::cgi()->param("STATUS") ;
  46. unless(defined $status) { $status = "submitted" ; } ;
  47.  
  48. # Get branch status and name
  49. my $branch = P4CGI::cgi()->param("BRANCH") ;
  50. if(defined $branch) {
  51.   $fspec = P4CGI::cgi()->param("BR") ;
  52.   $type = " branch" ;
  53. }
  54.  
  55. # Get user 
  56. my $ta ; # (throwaway)
  57. $user = P4CGI::cgi()->param("USER") ;
  58. ($user,$ta) = split / /,$user ;
  59.  
  60. # Set title 
  61. my $title = "Change History" ;
  62.  
  63. # Get max changes to show
  64. my $maxchanges = P4CGI::cgi()->param("MAXCH") ;
  65. my $changeoffset ;
  66. my $choffstr="" ;
  67. if(defined $maxchanges && $maxchanges =~ /^\d+$/) {
  68.     # Get offset of first change
  69.     $changeoffset = P4CGI::cgi()->param("CHOFFSET") ;
  70.     if(defined $changeoffset) {
  71. 	$choffstr="\@$changeoffset" ;
  72. 	$changeoffset = P4CGI::cgi()->param("CHOFFSETDISP") ;
  73.     }
  74.     else {
  75. 	$changeoffset = 0 ;
  76.     }
  77.     $maxchanges = "-m $maxchanges" ;
  78. }
  79. else {
  80.     $maxchanges = "" ;
  81. }
  82.  
  83. if(defined $label) {
  84.     $choffstr="" ;
  85.     if($filespec eq "//...") {
  86. 	$filespec .= "\@$label" ;
  87.     }
  88.     else {
  89. 	$filespec =~ s/ /@$label / ;
  90. 	$filespec .= "\@$label" ;
  91.     }
  92. }
  93.  
  94. # Get list of files in changes to exclude
  95. my @exclude;
  96. if(defined $exlabel) {
  97.     if(defined $exfiles) {
  98. 	$exfiles .= "\@$exlabel" ;
  99.     }
  100.     else {
  101. 	$exfiles = "//...\@$exlabel" ;
  102.     }
  103. }
  104. local *P4 ;
  105. if(defined $exfiles) {
  106.     &P4CGI::p4call(*P4,"changes \"$exfiles\"") ;
  107.     while(<P4>) {
  108. 	/^Change (\d+)/ ;
  109. 	    push @exclude,$1 ;
  110.     }
  111.     close P4 ;	
  112.     push @exclude,0 ;
  113. }
  114.  
  115. # Save an unquoted copy of the filename
  116. $fspec = $filespec unless defined $fspec ;
  117.  
  118. # Make filename quoted, for passing purposes
  119. $filespec = "\"$filespec\"" ;
  120.  
  121. # Set title for pending chgs
  122. if($status eq "pending") {
  123.     $title = "Pending Changes" ;
  124.     $filespec = "" ;
  125. } ;
  126.  
  127. # Get the changes
  128. &P4CGI::p4call(*P4,"changes -l $maxchanges -s $status $filespec$choffstr") ;
  129.  
  130. # Set excluded files
  131. my $nextToExclude = shift @exclude ;
  132. if(!defined $nextToExclude) { $nextToExclude = 0 ; } ;
  133.  
  134. # Get users, for form
  135. my @allusers ;
  136. my @p4users ;
  137. &P4CGI::p4call(\@allusers, "users" );
  138. while ( @allusers > 0 )
  139. {
  140.     my $usertemp = shift @allusers ;
  141.     $usertemp =~ /(.*) <.* (\(.*\)) .*$/ ;
  142.     my $username = "$1" . " " . "$2" ;
  143.     push( @p4users, "$username" ) ;
  144. }
  145.  
  146. # Print title and legend
  147. print
  148.     "",
  149.     &P4CGI::start_page($title,
  150. 	&P4CGI::ul_list("<b>Change Number:</b> to see details of change"),
  151. 	    $homepage,$backtohome) ;
  152.  
  153. # Print specify-a-user-for-{pending-changes/branch-changes}-form
  154. if ( $status eq "pending" ) {
  155. print
  156.     "",
  157.     &P4CGI::cgi()->startform(-action => &P4CGI::CHB_URL(),
  158. 			     -method => "GET"),	
  159.     &P4CGI::cgi()->hidden("-name","FSPC",
  160. 			  "-value","//..."),    
  161.     &P4CGI::cgi()->hidden("-name","STATUS",
  162. 			  "-value","pending"),    
  163.     "<b><i>View pending changes only for: </i></b>",
  164.     &P4CGI::cgi()->popup_menu(-name  => "USER",
  165. 			      -value => \@p4users),
  166.     &P4CGI::cgi()->submit(-name  => "Go",
  167. 			  -value => "Go"),
  168.     &P4CGI::cgi()->endform() ;
  169. print
  170.     "<hr>" ;
  171. }
  172. elsif ( defined $branch ) {
  173.   print
  174.     "",
  175.     &P4CGI::cgi()->startform(-action => &P4CGI::CHB_URL(),
  176. 			     -method => "GET"),	
  177.     &P4CGI::cgi()->hidden("-name","FSPC",
  178. 			  "-value","$branch"),    
  179.     &P4CGI::cgi()->hidden("-name","BRANCH",
  180. 			  "-value","YES"),    
  181.     &P4CGI::cgi()->hidden("-name","BR",
  182. 			  "-value","$fspec"),    
  183.     "<b><i>View branch changes only for: </i></b>",	
  184.     &P4CGI::cgi()->popup_menu(-name  => "USER",
  185. 			      -value => \@p4users),
  186.     &P4CGI::cgi()->submit(-name  => "Go",
  187. 			  -value => "Go"),
  188.     &P4CGI::cgi()->endform() ;
  189.   print
  190.     "<hr>" ;
  191. }
  192. elsif ( defined $label ) {
  193.   print
  194.     "",
  195.     &P4CGI::cgi()->startform(-action => &P4CGI::CHB_URL(),
  196. 			     -method => "GET"),	
  197.     &P4CGI::cgi()->hidden("-name","LABEL",
  198. 			  "-value","$label"),    
  199.     "<b><i>View changes on label only for: </i></b>",
  200.     &P4CGI::cgi()->popup_menu(-name  => "USER",
  201. 			      -value => \@p4users),
  202.     &P4CGI::cgi()->submit(-name  => "Go",
  203. 			  -value => "Go"),
  204.     &P4CGI::cgi()->endform() ;
  205.   print
  206.     "<hr>" ;
  207. }
  208.  
  209. # Print page...(ridiculous, but expeditious)
  210. my $printed ;
  211. if ( $status eq "pending" ) {
  212.   if ( $user ) {
  213.     print
  214. 	"<dt>",
  215. 	"<b>Pending changes for:</b> <font color=green>$user</font>" ;
  216.     $printed = "true" ;
  217.   }
  218.   else {
  219.     print
  220. 	"",
  221. 	"<b>Pending changes for:</b> <font color=green>all users</font>" ;
  222.     $printed = "true" ;
  223.   }
  224. }
  225. else {
  226.   if ( $user ) {
  227.     if ( $label ) {
  228.       print
  229. 	"",
  230. 	"<b>Changes for label $label for:</b> <font color=green>$user</font>" ;
  231.       $printed = "true" ;
  232.     }
  233.     elsif ( $branch ) {
  234.       print
  235. 	"",
  236. 	"<b>Changes for branch $fspec for:</b> <font color=green>$user</font>" ;
  237.       $printed = "true" ;
  238.     }
  239.     else {
  240.       print
  241. 	"",
  242. 	"<b>Changes for:</b> <font color=green>$user</font>" ;
  243.       $printed = "true" ;
  244.     }
  245.   }
  246.   else {
  247.     if ( !defined $label ) {
  248.       print
  249. 	"<dt>",
  250. 	"<b>Changes for",
  251. 	"$type:</b> <font color=green>$fspec</font>" ;
  252.       $printed = "true" ;
  253.     }
  254.   }
  255. }
  256.  
  257. if( !defined $printed ) {
  258.   if( defined $label ) {
  259.     print
  260. 	"<dt>",
  261. 	"<b>Changes for label:</b> <font color=green>$label</font></b>" ;
  262.   }
  263.   if(defined $exfiles) {
  264.     print
  265. 	"<dt>",
  266. 	"&nbsp;&nbsp;(excluding changes also found in
  267. 	 <font color=red>$exlabel</font>)" ;
  268.   }
  269.   if(defined $maxchanges && $maxchanges =~ /^\d+$/) {
  270.     if(defined $changeoffset) {
  271. 	print
  272. 	    "<dt>",
  273. 	    "<b>Changes for",
  274. 	    "$type:</b> <font color=green>$fspec</font>
  275. 	    (offset:$changeoffset)" ;
  276.     }
  277.   }
  278. }
  279.  
  280. # For change number and description
  281. my ( $change, $misc ) ;
  282.  
  283. # Skip files to exclude
  284. my $skipped=0 ;
  285. my $skip;
  286. print "<dl>" ;
  287. my $displayed = 0 ;
  288. my $lastch ;
  289. while (<P4>) {
  290.     $_ = &P4CGI::fixSpecChar($_) ;
  291.     if(/^Change (\d+) (.*)$/) {	
  292. 	$skip="no" ;
  293. 	( $change, $misc ) = ($1,$2) ;
  294. 	$lastch = $change ;
  295. 	if ($change == $nextToExclude) {
  296. 	    $nextToExclude = shift @exclude ;
  297. 	    $skip="yes" ;
  298. 	    $skipped++ ;
  299. 	    next ;
  300. 	}
  301. 	$skipped=0 ;
  302. 	if ( $user ) {
  303. 	    if ( $misc =~ / by $user/ ) {
  304. 		if( $status eq "pending" ) { $pending="true" ; }
  305. 		print
  306. 		    "<dt>",
  307. 		    &P4CGI::ahref("-url",P4CGI::CHV_URL(),
  308. 		    "CH=$change", "<br>Change $change "),
  309. 		    "$misc<dd>\n" ;
  310. 		$displayed++ ;
  311. 	    }
  312. 	    else {
  313. 		next ;
  314. 	    }
  315. 	}
  316. 	else {
  317. 	print
  318. 	    "<dt>",
  319. 	    &P4CGI::ahref("-url",P4CGI::CHV_URL(),
  320. 	    "CH=$change", "<br>Change $change "),
  321. 	    "$misc<dd>\n" ;
  322. 	$displayed++ ;
  323. 	}
  324.     }
  325.     else {
  326. 	next if $skip eq "yes" ;
  327. 	chop ;
  328. 	next if $_ eq "" ;
  329. 	if ( $user) {
  330. 	    if ( $misc =~ / by $user/ ) {
  331. 		if( $status eq "pending" ) { $pending="true" ; }
  332. 		print
  333. 		    "",
  334. 		    "$_" ;
  335. 	    }
  336. 	    else {
  337. 		next ;
  338. 	    }
  339. 	}
  340. 	else {
  341. 	    print
  342. 		"",
  343. 		"$_" ;
  344. 	}
  345.     }
  346.     print
  347. 	"",
  348. 	"<br>" ;
  349. }
  350.  
  351. close P4;
  352.  
  353. print "</dl>\n" ;
  354.  
  355. # Check for max changes
  356. my $mc = P4CGI::cgi()->param("MAXCH") ;
  357. if(defined $mc and ($mc == $displayed)) {
  358.     $lastch-- ;
  359.     $changeoffset += $mc ;
  360.     print
  361. 	"",
  362. 	&P4CGI::ahref("-url",P4CGI::CHB_URL(),
  363. 		      "FSPC=".P4CGI::cgi()->param("FSPC"),
  364. 		      "STATUS=$status",
  365. 		      "CHOFFSET=$lastch",
  366. 		      "CHOFFSETDISP=$changeoffset",
  367. 		      "MAXCH=$mc",
  368. 		      "Next $mc changes") ;
  369. }
  370.  
  371. # More printing...
  372. if( ! $change && $status ne "pending" ) {
  373.     $displayed = 1 ;
  374.     print
  375. 	"",
  376. 	"<font color=red>No changes found for file $fspec</font>\n" ;
  377. }
  378.  
  379. if ( $user ) {
  380.   if ( $status eq "pending" ) {
  381.     if( ! $pending ) {
  382. 	$displayed = 1 ;
  383. 	print
  384. 	"",
  385. 	"&nbsp;&nbsp;<font color=red>None</font>\n" ;
  386.     }
  387.   }
  388.   else {
  389.     if( $displayed == 0 ) {
  390. 	$displayed = 1 ;
  391. 	print
  392. 	    "",
  393. 	    "&nbsp;&nbsp;<font color=red>None</font>\n" ;
  394.     }
  395.   }
  396.  
  397. }
  398. if( $displayed == 0 ) {
  399.     print
  400. 	"",
  401. 	"&nbsp;&nbsp;<font color=red>None</font>\n" ;
  402. }
  403.  
  404. # End the page
  405. print
  406.     "",
  407.     &P4CGI::end_page();
  408.  
# Change User Description Committed
#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