Loading...
Helix SwarmHelix Swarm
Loading...

labelView.cgi

  • //
  • guest/
  • fredric_fredricson/
  • P4DB/
  • main/
  • labelView.cgi #11
  • View
  • Commits
  • Open Download .zip Download (6 KB) 
  1. #!/usr/bin/perl -w
  2. # -*- perl -*-
  3. use P4CGI ;
  4. use strict ;
  5. #
  6. #################################################################
  7. #  CONFIGURATION INFORMATION 
  8. #  All config info should be in P4CGI.pm
  9. #
  10. #################################################################
  11. #
  12. #  View labels
  13. #
  14. #################################################################
  15.  
  16. # Get label
  17. my $label = P4CGI::cgi()->param("LABEL") ;
  18. &P4CGI::bail("No label specified") unless defined $label ;
  19. $label = &P4CGI::htmlEncode($label) ;
  20.  
  21. my $found ;
  22. # Get list of all labels and also check that supplied label exists
  23. my @labels ;
  24. &P4CGI::p4call(\@labels, "labels" );
  25. foreach (@labels) {
  26.     $_ =~ s/^Label (\S+).*$/$1/ ;
  27.     if($_ eq $label) {
  28. 	$found = "Yes" ;
  29.     } ;
  30. }
  31.  
  32. # Print header
  33. print &P4CGI::start_page("Label \"$label\"") ;
  34.  
  35. &P4CGI::signalError("Label $label not in depot") unless $found ;
  36.  
  37. my @otherLabels ;
  38. foreach (@labels) {    
  39.     next if ($_ eq $label) ;
  40.     push @otherLabels,$_ ;
  41. } ;
  42.  
  43. ###
  44. ### "Sort" other labels after "closeness"
  45. ###
  46. {
  47.     my $lab=uc($label) ;
  48.     my $len = length($lab) ;
  49.     my @labs ;
  50.     while($len > 3) {
  51. 	my @tmp ;
  52. 	my $l ;
  53. 	$len-- ;
  54. 	$lab = substr($lab,0,$len) ;
  55. 	foreach $l (@otherLabels) {
  56. 	    if(uc(substr($l,0,$len)) eq $lab) {
  57. 		push @labs,$l ;
  58. 	    }
  59. 	    else {
  60. 		push @tmp,$l ;
  61. 	    }
  62. 	}
  63. 	@otherLabels = @tmp ;	
  64.     } ;
  65.     @otherLabels = (@labs,@otherLabels) ;
  66. }
  67.  
  68.  
  69. my %values ;
  70. my @fields = &P4CGI::p4readform("label -o '$label'",\%values) ;
  71.  
  72. 				# Fix description field
  73. if(exists $values{"Description"}) {
  74.     $values{"Description"} = 
  75. 	&P4CGI::formatDescription($values{"Description"}) ;
  76. }
  77. 				# Fix owner field
  78. if (exists $values{"Owner"}) {
  79.     # Get real user names...
  80.     my %userCvt ;
  81.     &P4CGI::p4user2name(\%userCvt) ;
  82.     my $u = $values{"Owner"} ;
  83.     if(exists $userCvt{$u}) {
  84. 	$values{"Owner"} = &P4CGI::ahref(-url=>"userView.cgi",
  85. 					 "USER=$u",
  86. 					 "HELP=View user info",
  87. 					 "$u") . " (" . $userCvt{$u} . ")" ; 
  88.     }
  89.     else {
  90. 	$values{"Owner"} = "$u (Unknown user)" ;
  91.     }
  92. }
  93. 				# Fix view field
  94. my $viewFSPC = $values{"View"} ;
  95. my $view ;
  96. foreach (split("\n",$values{"View"})) {
  97.     my $t = &P4CGI::ahref(-url => "depotTreeBrowser.cgi",
  98. 			  "FSPC=$_",
  99. 			  "HELP=Browse depot at $_",
  100. 			  "<tt>$_</tt>") ;
  101.     if (defined $view) {
  102. 	$view .= "<br>$t" ;
  103.     } 
  104.     else {
  105. 	$view .= "$t" ;
  106.     } ;
  107. } ;
  108. $values{"View"} = $view ;
  109.  
  110.     
  111. print 
  112.     "<br>",
  113.     &P4CGI::start_framedTable(""),
  114.     &P4CGI::start_table("") ;
  115.  
  116. my $f ;
  117. foreach $f (@fields) {
  118.     my %x ;
  119.     $x{class} = "Description" if $f eq "Description"  ;
  120.     print &P4CGI::table_row({-class =>"Prompt",
  121. 			     -text  => "$f"},
  122. 			    {%x,
  123. 			     -text =>  $values{$f}},
  124. 			    "") ;
  125. } ;
  126.  
  127.  
  128. $viewFSPC =~ s/\n//ig ;
  129. my @b ;
  130. push @b,
  131.     (&P4CGI::buttonLink("changeList.cgi",
  132. 			"View changes for label $label",
  133. 			"LABEL=$label",
  134. 			"Submits..."),
  135.      &P4CGI::buttonLink("fileSearch.cgi",
  136. 			"List files in label $label",
  137. 			"LABEL=$label",
  138. 			"Files"),
  139.      &P4CGI::buttonLink("changeList.cgi",
  140. 			"List changes in label view not included in label $label",
  141. 			"FSPC=$viewFSPC",
  142. 			"EXLABEL=$label",
  143. 			"Changes after label")) ;
  144.  
  145. print    
  146.     &P4CGI::table_row("",undef,     
  147. 		      join(" ",@b)) ;
  148.  
  149. print &P4CGI::end_table() ;
  150.  
  151. print    
  152.     &P4CGI::table_row(undef,"<br>") ;
  153.  
  154. my $diffSel = 
  155.     join("\n",
  156. 	 ("<table>",
  157. 	  "<tr>",
  158. 	  &P4CGI::cgi()->startform(-action => "labelDiffView.cgi" ,
  159. 				   -method => "GET"),
  160. 	  &P4CGI::cgi()->hidden(-name=>"DP",
  161. 				-value=>&P4CGI::CURR_DEPOT_NO()),
  162. 	  &P4CGI::cgi()->hidden(-name=>"LABEL1",
  163. 				-value=>"$label"),
  164. 	  "<td>Diff with label:</td>",	
  165. 	  "<td>",
  166. 	  &P4CGI::cgi()->popup_menu(-name  => "LABEL2",
  167. 				    -value => \@otherLabels),
  168. 	  "</td>",
  169. 	  "<td>Show files that:</td>",
  170. 	  "<td>",
  171. 	  &P4CGI::cgi()->checkbox(-name    => "SHOWSAME",
  172. 				  -value   => "Y",
  173. 				  -label   => " are not modified"),
  174. 	  "<br>",
  175. 	  &P4CGI::cgi()->checkbox(-name    => "SHOWNOTSAME",
  176. 				  -checked => "Y",
  177. 				  -value   => "Y",
  178. 				  -label   => " are modified"),
  179. 	  "<br>",
  180. 	  &P4CGI::cgi()->checkbox(-name    => "SHOWDIFF",
  181. 				  -checked => "Y",
  182. 				  -value   => "Y",
  183. 				  -label   => " differ"),
  184. 	  "</td>",
  185. 	  "<td>",
  186. 	  &P4CGI::cgi()->submit(-name  => "Go",
  187. 				-value => "Go"),
  188. 	  &P4CGI::cgi()->endform(),
  189. 	  "</td></tr>",
  190. 	  "</table>")) ;
  191.  
  192. print    
  193.     &P4CGI::table_row(undef,undef,$diffSel) ;
  194.  
  195. print    
  196.     &P4CGI::table_row(undef,"<br>") ;
  197.  
  198. my $diffcSel = 
  199.     join("\n",
  200. 	 ("<table>",
  201. 	  "<tr>",
  202. 	  &P4CGI::cgi()->startform(-action => "labelDiffView.cgi" ,
  203. 				   -method => "GET"),
  204. 	  &P4CGI::cgi()->hidden(-name=>"LABEL1",
  205. 				-value=>"$label"),
  206. 	  &P4CGI::cgi()->hidden(-name=>"DP",
  207. 				-value=>&P4CGI::CURR_DEPOT_NO()),
  208. 	  "<td>Diff with current detpot files in label view. </td>",	
  209. 	  "<td>&nbsp;&nbsp;Show files that:</td>",
  210. 	  "<td>",
  211. 	  &P4CGI::cgi()->checkbox(-name    => "SHOWSAME",
  212. 				  -value   => "Y",
  213. 				  -label   => " are not modified"),
  214. 	  "<br>",
  215. 	  &P4CGI::cgi()->checkbox(-name    => "SHOWNOTSAME",
  216. 				  -checked => "Y",
  217. 				  -value   => "Y",
  218. 				  -label   => " are modified"),
  219. 	  "<br>",
  220. 	  &P4CGI::cgi()->checkbox(-name    => "SHOWDIFF",
  221. 				  -checked => "Y",
  222. 				  -value   => "Y",
  223. 				  -label   => " differ"),
  224. 	  "</td>",
  225. 	  "<td>",
  226. 	  &P4CGI::cgi()->submit(-name  => "Go",
  227. 				-value => "Go"),
  228. 	  &P4CGI::cgi()->endform(),
  229. 	  "</td></tr>",
  230. 	  "</table>")) ;
  231.  
  232. print
  233.     &P4CGI::table_row(undef,undef,$diffcSel) ;
  234.  
  235. print "<tr><td colspacing=2>" ;
  236. print "<br>", 
  237.     &P4CGI::cgi()->startform(-action => "changeList.cgi",
  238. 			     -method => "GET"), 
  239.     &P4CGI::cgi()->hidden(-name=>"LABEL",
  240. 			  -value=>"$label"), "View changes for label $label excluding label:",
  241.     &P4CGI::cgi()->hidden(-name=>"DP",
  242. 			  -value=>"&P4CGI::CURR_DEPOT_NO()"),    
  243.     &P4CGI::cgi()->popup_menu(-name => "EXLABEL", -value =>
  244. 			      \@otherLabels), &P4CGI::cgi()->submit(-name => "Go", -value =>
  245. 								    "Go"), 
  246.     &P4CGI::cgi()->endform() ;
  247.  
  248. print
  249.     "<br>",
  250.     &P4CGI::cgi()->startform(-action => "fileSearch.cgi",
  251. 			     -method => "GET"),
  252.     &P4CGI::cgi()->hidden(-name=>"LABEL",
  253. 			  -value=>"$label"),
  254.     &P4CGI::cgi()->hidden(-name=>"DP",
  255. 			  -value=>&P4CGI::CURR_DEPOT_NO()),
  256.     &P4CGI::cgi()->submit(-name  => "ignore",
  257. 			  -value => "Search in label for:"),
  258.     &P4CGI::cgi()->textfield(-name      => "FSPC",
  259. 			     -default   => "//...",
  260. 			     -override  => 1,
  261. 			     -size      => 50,
  262. 			     -maxlength => 256),    
  263.     &P4CGI::cgi()->endform() ;
  264.  
  265. print "</td></tr>" ;
  266.  
  267. print 
  268.     &P4CGI::end_framedTable(),
  269.     &P4CGI::end_page() ;
  270.  
  271. #
  272. # That's all folks
  273. #
# Change User Description Committed
#11 4998 Fredric Fredricson P4DB: cleaned up some code.
Added p4users(), p4client() and p4user2name() to P4CGI.pm and... modified
all cgi:s to use these, «		 20 years ago
#10 4306 Fredric Fredricson P4DB: Hardened P4DB against malicious parameters (cross site scripting),
performed some c...leanup and increased version to 3.1.1. «		 21 years ago
#9 4237 Fredric Fredricson P4DB: Maybe the final submit for P4DB 3.1.0 21 years ago
#8 4152 Fredric Fredricson P4DB: Some more work on tha way to version 3.1.... 21 years ago
#7 4070 Fredric Fredricson P4DB: Updated labelView and labelDiffView cgi:s to "3.1 standard".
Added the function to... view diff between label and current depot files
in label view.
These scripts are still a bit ancient though. Should be re-implemented. Some day... «		 21 years ago
#6 4069 Fredric Fredricson P4DB: More changes on the way to 3.1 21 years ago
#5 4046 Fredric Fredricson P4DB: First submit for 3.1.
* Removed frame-stuff and some related files
* Added new page... header
* Started update of documentation
* Changed a lot of CGI:s to conform to new "look and feel"
Still a lot to do:
- clean up stuff (especially the javascript)
- Fix the file list to use new annotate-command
- Clean up and document css-file
- and more....... «		 21 years ago
#4 2942 Fredric Fredricson P4DB: Fixed bug: Can now handle spaces in label names etc.... 22 years ago
#3 2875 Fredric Fredricson P4DB 3.0 first beta... 22 years ago
#2 1920 Fredric Fredricson P4DB: Mainly some user interface fixes:
* Added a small arrow that points to selection in... list of options
* Added tooltip help
* Added user prefereces to turn the above off (or on)
* Some other user interface fixes
And fixed a bug in jobList.cgi and some minor bugs in label and branch
viewers. «		 23 years ago
#1 1638 Fredric Fredricson P4DB: Added all (I think) files for P4DB 23 years ago