Helix SwarmHelix Swarm

depotStats.cgi

  • //
  • guest/
  • mitch_stuart/
  • perforce/
  • utils/
  • p4db/
  • P4DB_2.01/
  • depotStats.cgi #1
  • View
  • Commits
  • Open Download .zip Download (10 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. #  P4 change browser
  13. #  Depot statistics
  14. #
  15. #################################################################
  16.  
  17. #######
  18. # Parameters:
  19. #
  20. ######
  21.  
  22. $| = 1 ;
  23.  
  24. #
  25. # Get parameter(s)
  26. #
  27. my $FSPC = P4CGI::cgi()->param("FSPC") ;
  28. $FSPC = "//..." unless defined $FSPC ;
  29. my @FSPC = split(/\s*\+?\s*(?=\/\/)/,$FSPC) ;
  30. $FSPC = "<tt>".join("</tt> and <tt>",@FSPC)."</tt>" ;
  31. my $FSPCcmd = "\"" . join("\" \"",@FSPC) . "\"" ;
  32.  
  33. ###
  34. ### subroutine findTime
  35. ###  A (really) poor mans version of mktime(3). 
  36. ###  Parameters: year,month,day,hour,min
  37. ###  Returns: time_t value that corresponds to above result (almost)
  38. sub findTime($$$$$)
  39. {
  40.     my ($iyear,$imon,$iday,$ihour,$imin) = @_ ;
  41.     $iyear -= 1900 ;
  42.     $imon-- ;
  43.     my $time = time() ;
  44.     my $delta = int($time/2)+1 ;
  45.     my $lastsgn = -1 ;
  46.     my $n = 300 ;
  47.     while($delta > 10) {
  48. 	last if $n-- == 0 ;
  49. 	my $sgn = 1 ;
  50. 	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time) ;
  51. 	my $i = ((((((((($iyear * 12) + $imon) * 32) + $iday) * 24) + $ihour) * 60) + $imin) * 60) + 30 ;
  52. 	my $o = ((((((((($year * 12) + $mon) * 32) + $mday) * 24) + $hour) * 60) + $min) * 60) + $sec ;
  53.        	last if $i == $o ;
  54. 	$sgn = -1 if $i < $o ;
  55. 	$time += ($sgn * $delta) ;
  56. 	$delta = int(($delta+1)/2) ;
  57. 	$lastsgn = $sgn ;
  58.     }
  59.     return $time ;
  60. } ;
  61.  
  62. &P4CGI::SET_HELP_TARGET("DepotStats") ;
  63.  
  64. print &P4CGI::start_page("Depot Statistics for<br><tt>".
  65. 			 join("<br></tt>and<tt><br>\n",@FSPC) . "</tt>" ,
  66. 			 &P4CGI::ul_list(&P4CGI::ahref(-url => &P4CGI::cgi()->self_url . "#weekly",
  67. 						       "Weekly Submit Statistics"),
  68. 					 &P4CGI::ahref(-url => &P4CGI::cgi()->self_url . "#byuser",
  69. 						       "Submit Statistics by user")
  70. 					 )) ;
  71.  
  72. sub printStat($$) {
  73.     my $prompt = shift @_ ;
  74.     my $data   = shift @_ ;
  75.     print 
  76. 	&P4CGI::table_row({-type => "th",
  77. 			   -align => "right",
  78. 			   -valign => "top",
  79. 			   -width => "50%",
  80. 			   -text => "$prompt:"},
  81. 			  {-type => "td",
  82. 			   -align => "left",
  83. 			   -width => "50%",
  84. 			   -text => $data}) ;
  85. };
  86. 	
  87. print 
  88.     "<h2>Depot statistics</h2>",
  89.     &P4CGI::start_table("") ;
  90.  
  91. {
  92.     my @counters ;
  93.     &P4CGI::p4call(\@counters,"counters") ;
  94. #    printStat("P4 counters","") ;
  95.     foreach (@counters) {
  96. 	s/(\S+) = /P4 $1 counter = / ;
  97. 	&printStat(split(" = ","$_")) ;	
  98.     }
  99. }
  100. 				       
  101. 				# Users
  102. my @users ;
  103. &P4CGI::p4call(\@users,"users") ;
  104. printStat("Users",@users) ;
  105. 				# Clients
  106. my @clients ;
  107. &P4CGI::p4call(\@clients,"clients") ;
  108. printStat("Clients",@clients) ;
  109.  
  110. 				# Labels
  111. my @labels ;
  112. &P4CGI::p4call(\@labels,"labels") ;
  113. printStat("Labels",@labels) ;
  114.  
  115. 				# branches
  116. my @branches ;
  117. &P4CGI::p4call(\@branches,"branches") ;
  118. printStat("Branches",@branches) ;
  119.  
  120. 				# jobs
  121. my @jobs ;
  122. &P4CGI::p4call(\@jobs,"jobs") ;
  123. printStat("Jobs",@jobs) ;
  124.  
  125. 				       
  126. print &P4CGI::end_table(),"<hr>" ;
  127.  
  128. 				# Get changes
  129. my @changes ;
  130. &P4CGI::p4call(\@changes,"changes -s submitted $FSPCcmd") ;
  131. 				# Sort and remove duplicates
  132. {
  133.     my @ch = sort { $a =~ /Change (\d+)/ ; my $ac = $1 ;
  134. 		    $b =~ /Change (\d+)/ ; my $bc = $1 ;
  135. 		    $bc <=> $ac } @changes ;
  136.     my $last="" ;
  137.     @changes = grep {my $l = $last ;
  138. 		     $last = $_ ;
  139. 		     $_ ne $l } @ch ;
  140. }
  141. 				## File list stats
  142. print 
  143.     "<h2>Statistics for \"$FSPC\"</h2>",
  144.     &P4CGI::start_table("") ;
  145.  
  146. printStat("Submitted changes",scalar @changes) ;
  147.  
  148. 				# Data about first submit
  149. my $first = pop @changes ;
  150. push @changes,$first ;
  151. $first =~ s/Change (\d+).*/$1/ ;
  152.  
  153. my %data ;
  154. my $firstTime = 0;
  155. my $firstDate = "";
  156. my $daysSinceFirstSubmit = 0 ;
  157. &P4CGI::p4readform("change -o $first",\%data) ;
  158.  
  159. if(exists $data{"Date"}) {
  160.     $firstDate = $data{"Date"} ;        
  161.     if($data{"Date"} =~ /(\d+).(\d+).(\d+).(\d+).(\d+)/) {
  162. 	$firstTime = findTime($1,$2,$3,$4,$5) ; 
  163. 	my $seconds = time() - $firstTime ;
  164. 	$daysSinceFirstSubmit = int($seconds/(24*3600)) ;
  165.     }
  166. }
  167.  
  168. 				# Last submit
  169. my $last = shift @changes ;
  170. unshift @changes,$last ;
  171. $last =~ s/Change (\d+).*/$1/ ;
  172.  
  173. my $lastTime=0 ;
  174. my $lastDate="" ;
  175. my $daysSinceLastSubmit=0 ;
  176.  
  177. &P4CGI::p4readform("change -o $last",\%data) ;
  178.  
  179. if(exists $data{"Date"}) {
  180.     $lastDate = $data{"Date"} ;        
  181.     if($data{"Date"} =~ /(\d+).(\d+).(\d+).(\d+).(\d+)/) {
  182. 	$lastTime = findTime($1,$2,$3,$4,$5) ; 
  183. 	my $seconds = time() - $lastTime ;
  184. 	$daysSinceLastSubmit = int($seconds/(24*3600)) ;
  185.     }
  186. } ;
  187.  
  188. printStat("First submit","$first ($firstDate)") ;
  189. printStat("Latest submit","$last ($lastDate)") ;
  190. printStat("Days between first and latest submit",$daysSinceFirstSubmit-$daysSinceLastSubmit) ;
  191. if(($daysSinceFirstSubmit-$daysSinceLastSubmit) > 0) {
  192.     printStat("Average submits per day",
  193. 	      sprintf("%.2f",@changes/($daysSinceFirstSubmit-$daysSinceLastSubmit))) ;
  194. };
  195.  
  196.  
  197. 				# Read and parse file list
  198. my $files=0 ;
  199. my $deletedFiles=0 ;
  200. my %revlevels ;
  201. my $maxrevlevel=0 ;
  202. my $totrevs=0 ;
  203. my $file ;
  204. foreach $file (@FSPC) {
  205.     local *F ;
  206.     &P4CGI::p4call(*F,"files \"$file\"") ;
  207.     while(<F>) {
  208. 	$files++ ;
  209. 	/\#(\d+) - (\S+)/ ;
  210. 	my ($r,$s) = ($1,$2) ;
  211. 	$deletedFiles++ if $s eq "delete" ;
  212. 	$totrevs += $r ;
  213. 	$maxrevlevel = $r if $r > $maxrevlevel ;
  214. 	$revlevels{$r} = 0 unless exists $revlevels{$r} ;
  215. 	$revlevels{$r}++ ;
  216.     }
  217.     close F ;
  218. }
  219.  
  220. printStat("Current number of files",$files) ;
  221. printStat("Deleted files",$deletedFiles) ;
  222. printStat("Average revision level for files ",sprintf("%.2f",$totrevs/$files)) ;
  223. printStat("Max revision level",$maxrevlevel) ;
  224.  
  225. print &P4CGI::end_table(),"<hr>" ;
  226.  
  227. 				# File revision statistics
  228. #  print 
  229. #      "<a name=\"revstat\"><hr></a>",
  230. #      &P4CGI::start_table("width=90%"),
  231. #      &P4CGI::table_row(-type=>"th",
  232. #  		      undef,
  233. #  		      undef,
  234. #  		      "File Revision Statistics"),
  235. #      &P4CGI::table_row({-type=>"th",
  236. #  		       -text => "Revision Level",
  237. #  		       -width => "20%",
  238. #  		       -align => "right"},
  239. #  		      {-text => "No. of<br>files",
  240. #  		       -type=>"th",
  241. #  		       -width => "10%"},
  242. #  		      {-text => "&nbsp;",
  243. #  		       -bgcolor=>&P4CGI::BGCOLOR()}),
  244. #      &P4CGI::end_table() ;
  245. #
  246. #my $max = 0 ;
  247. #
  248. #foreach (keys %revlevels) {
  249. #    $max = $revlevels{$_} if $max < $revlevels{$_} ;
  250. #} ;
  251. #
  252. #  my $rev=$maxrevlevel ;
  253. #  while($rev > 0) {
  254. #      my $n = 0 ;
  255. #      $n = $revlevels{$rev} if exists $revlevels{$rev} ;
  256. #      my $w = int((65.0 * $n)/$max) ;
  257. #      if($w == 0) { $w = 1 ; } ;
  258. #      print
  259. #  	&P4CGI::start_table("colums=4 width=90% cellspacing=0"),
  260. #  	&P4CGI::table_row({-text => "$rev",
  261. #  			   -width => "20%",
  262. #  			   -align => "right"},
  263. #  			  {-text => $n==0?"-":"$n",
  264. #  			   -align => "center",
  265. #  			   -width => "10%"},
  266. #  			  {-text => "&nbsp; ",
  267. #  			   -bgcolor => $n!=0?"blue":&P4CGI::BGCOLOR(),
  268. #  			   -width => "$w\%"},
  269. #  			  {-text => "&nbsp;",
  270. #  			   -bgcolor=>&P4CGI::BGCOLOR()}) ;
  271. #      print &P4CGI::end_table() ;
  272. #      $rev-- ;
  273. #  }
  274.  
  275. my %dailySubStat ;
  276. my %userSubStat ;
  277. my $n ;
  278.  
  279.  
  280. #my $time = time() ;
  281. my $time = $lastTime ;
  282. my $ONE_DAY=3600*24 ;
  283. my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
  284. while($wday != 0) {
  285.     $time -= $ONE_DAY ;
  286.     ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
  287. }
  288.  
  289. sub getNextDate() {
  290.     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
  291.     $time -= $ONE_DAY * 7 ;
  292.     my $day = sprintf("%4d/%02.2d/%02.2d",$year + 1900, $mon + 1, $mday) ;
  293.     $dailySubStat{$day} = 0 ;
  294.     return $day ;
  295. }  ;
  296. 				# Read and parse change list
  297.  
  298. my $day = getNextDate() ;
  299. my $max = 0 ;
  300. while(@changes > 0) {
  301.     $_ = shift @changes ;
  302.     if(/Change \d+ on (\S+) by (\S+)\@/) {	
  303. 	my $d = $1 ;
  304. 	my $user = $2 ;
  305. 	while($d lt $day) {
  306. 	    $day = getNextDate() ;
  307. 	}
  308. 	$dailySubStat{$day}++ ;
  309. 	$max = $dailySubStat{$day} if $dailySubStat{$day} > $max ;
  310. 	$userSubStat{$user} = 0 unless exists  $userSubStat{$user} ;
  311. 	$userSubStat{$user}++ ;
  312.     }
  313. }
  314.  
  315. 				# Weekly Submit Statistics
  316. print "<a name=\"weekly\"></a><H2>Weekly Submit Rate for $FSPC</H2>",
  317.     &P4CGI::start_table("width=90%"),
  318.     &P4CGI::table_row({-type=>"th",
  319. 		       -text => "Week starting",
  320. 		       -width => "20%",
  321. 		       -align => "right"},
  322. 		      {-text => "submits",
  323. 		       -type=>"th",
  324. 		       -width => "10%"},
  325. 		      {-text => "&nbsp;",
  326. 		       -bgcolor=>&P4CGI::BGCOLOR()}),
  327.     &P4CGI::end_table() ;
  328.  
  329.  
  330. my $d ;
  331. foreach $d (sort { $b cmp $a } keys %dailySubStat) {    
  332.     print &P4CGI::start_table("colums=4 width=90% cellspacing=0") ;
  333.     my $n = $dailySubStat{$d} ;
  334.     my $w = int((65.0 * $n)/$max) ;
  335.     if($w == 0) { $w = 1 ; } ;
  336.     print &P4CGI::table_row({-text => "$d",
  337. 			     -width => "20%",
  338. 			     -align => "right"},
  339. 			    {-text => $n==0?"-":"$n",
  340. 			     -align => "center",
  341. 			     -width => "10%"},
  342. 			    {-text => "&nbsp; ",
  343. 			     -bgcolor => $n!=0?"blue":&P4CGI::BGCOLOR(),
  344. 			     -width => "$w\%"},
  345. 			    {-text => "&nbsp;",
  346. 			     -bgcolor=>&P4CGI::BGCOLOR()}) ;
  347.     print &P4CGI::end_table() ;
  348. }
  349.  
  350. 				# Submits per user
  351. print 
  352.     "<a name=\"byuser\"><hr></a><h2>Submits by user in $FSPC</h2>",
  353.     &P4CGI::start_table("width=90%"),
  354.     &P4CGI::table_row({-type=>"th",
  355. 		       -text => "User",
  356. 		       -width => "20%",
  357. 		       -align => "right"},
  358. 		      {-text => "Submits",
  359. 		       -type=>"th",
  360. 		       -width => "10%"},
  361. 		      {-text => "&nbsp;",
  362. 		       -bgcolor=>&P4CGI::BGCOLOR()}),
  363.     &P4CGI::end_table() ;
  364.  
  365. # Get users
  366. my @listOfUsers = sort { uc($a) cmp uc ($b) } map { /^(\S+).*> \((.+)\) .*$/ ; $1 ; } @users ;
  367. my %userCvt =  map { /^(\S+).*> \((.+)\) .*$/ ; ($1,$2) ; } @users ;
  368.  
  369.  
  370. my $u ;
  371. $max = 0 ;
  372. foreach $u (sort {$userSubStat{$b} <=> $userSubStat{$a} ; } keys %userSubStat) {
  373.     my $n = $userSubStat{$u} ;
  374.     $max = $n if $max == 0 ;
  375.     my $w = int((65.0 * $n)/$max) ;
  376.     if($w == 0) { $w = 1 ; } ;
  377.     if(exists $userCvt{$u}) {
  378. 	my $fullUser = $userCvt{$u} ;
  379. 	$u = &P4CGI::ahref(-url => "userView.cgi",
  380. 			   "USER=$u",
  381. 			   $fullUser) ;
  382.     }
  383.     else {
  384. 	$u = "<b>Old user:</b> $u"
  385.     }
  386.     print
  387. 	&P4CGI::start_table("colums=4 width=90% cellspacing=0"),
  388. 	&P4CGI::table_row({-text => "$u",
  389. 			   -width => "20%",
  390. 			   -align => "right"},
  391. 			  {-text => $n==0?"-":"$n",
  392. 			   -align => "center",
  393. 			   -width => "10%"},
  394. 			  {-text => "&nbsp; ",
  395. 			   -bgcolor => $n!=0?"blue":&P4CGI::BGCOLOR(),
  396. 			   -width => "$w\%"},
  397. 			  {-text => "&nbsp;",
  398. 			   -bgcolor=>&P4CGI::BGCOLOR()}) ;
  399.     print &P4CGI::end_table() ;
  400.  
  401. }
  402.  
  403. print &P4CGI::end_page() ;        
  404.     
  405. #
  406. # That's all folks
  407. #
  408.  
  409.  
  410.  
  411.  
  412.  
  413.  
  414.  
  415.  
  416.  
# Change User Description Committed
#1 3624 Mitch Stuart Branch //public/perforce/utils to //guest/mitch_stuart/perforce/utils 22 years ago
//guest/perforce_software/utils/p4db/P4DB_2.01/depotStats.cgi
#1 1884 rmg Update to the current (2.01) P4DB. 23 years ago