[evolvis-commits] r10722: *** empty log message ***↵

mirabilos at evolvis.org mirabilos at evolvis.org
Thu Feb 24 17:54:23 CET 2011


Author: mirabilos
Date: 2011-02-24 17:54:23 +0100 (Thu, 24 Feb 2011)
New Revision: 10722

Removed:
   trunk/gforge_base/evolvisforge-5.1/gforge-plugin-scmsvn/bin/svn-stats.pl
Modified:
   trunk/gforge_base/evolvisforge-5.1/gforge/cronjobs/cvs-cron/history_parse.php
Log:
*** empty log message ***


Modified: trunk/gforge_base/evolvisforge-5.1/gforge/cronjobs/cvs-cron/history_parse.php
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/gforge/cronjobs/cvs-cron/history_parse.php	2011-02-24 16:54:23 UTC (rev 10721)
+++ trunk/gforge_base/evolvisforge-5.1/gforge/cronjobs/cvs-cron/history_parse.php	2011-02-24 16:54:23 UTC (rev 10722)
@@ -28,9 +28,14 @@
 
 
 function get_all_days(){
+	
 	global $cvsroot;
+	global $err;
+	global $verbose;
+	global $debug;
+
 	$all_days = array();
-	$root_dir =& opendir( $cvsroot );
+  $root_dir =& opendir( $cvsroot );
 	while ( $group = readdir( $root_dir ) ) {
 		if ( $group == '.' || $group == '..' ) 
 			continue;
@@ -74,8 +79,13 @@
 }
 
 function process_day($day_begin, $day_end){
-
+	
 	global $cvsroot;
+	global $err;
+	global $verbose;
+	global $debug;
+	
+	
  	$year	= gmstrftime("%Y", $day_begin );
 	$month	= gmstrftime("%m", $day_begin );
 	$day	= gmstrftime("%d", $day_begin );
@@ -286,4 +296,4 @@
 
 cron_entry(14,$err);
 
-?>
+?>
\ No newline at end of file

Deleted: trunk/gforge_base/evolvisforge-5.1/gforge-plugin-scmsvn/bin/svn-stats.pl
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/gforge-plugin-scmsvn/bin/svn-stats.pl	2011-02-24 16:54:23 UTC (rev 10721)
+++ trunk/gforge_base/evolvisforge-5.1/gforge-plugin-scmsvn/bin/svn-stats.pl	2011-02-24 16:54:23 UTC (rev 10722)
@@ -1,133 +0,0 @@
-#!/usr/bin/perl -w
-#
-# $Id$
-#
-# Gather and calculate Subversion statistics
-# Roland Mas <lolando at debian.org>
-
-use strict ;
-use diagnostics ;
-
-use DBI ;
-use MIME::Base64 ;
-use HTML::Entities ;
-
-use vars qw/$dbh @reqlist $query/ ;
-use vars qw/$sys_default_domain $sys_cvs_host $sys_download_host
-    $sys_shell_host $sys_users_host $sys_docs_host $sys_lists_host
-    $sys_dns1_host $sys_dns2_host $FTPINCOMING_DIR $FTPFILES_DIR
-    $sys_urlroot $sf_cache_dir $sys_name $sys_themeroot
-    $sys_news_group $sys_dbhost $sys_dbname $sys_dbuser $sys_dbpasswd
-    $sys_ldap_base_dn $sys_ldap_host $admin_login $admin_password
-    $server_admin $domain_name $newsadmin_groupid $statsadmin_groupid
-    $skill_list/ ;
-use vars qw/$pluginname/ ;
-
-require ("/usr/lib/gforge/lib/include.pl") ; # Include a few predefined functions 
-require ("/usr/lib/gforge/lib/sqlparser.pm") ; # Our magic SQL parser
-require ("/usr/lib/gforge/lib/sqlhelper.pm") ; # Our SQL functions
-
-&db_connect ;
-
-# &debug ("Connected to the database OK.") ;
-
-$pluginname = "scmsvn" ;
-
-$dbh->{AutoCommit} = 0;
-$dbh->{RaiseError} = 1;
-eval {
-    my ($sth, @array, $version, $path, $target) ;
-    my (@grouplist, %groupname, %lastdate, %lastrev, %alreadyseen) ;
-
-    my $pluginid = get_plugin_id ($dbh, $pluginname) ;
-
-    # First, get the groups that use Subversion
-    $query = "SELECT group_plugin.group_id, groups.unix_group_name
-              FROM group_plugin, groups
-              WHERE group_plugin.plugin_id = $pluginid
-                AND group_plugin.group_id = groups.group_id";
-    # &debug ($query) ;
-    $sth = $dbh->prepare ($query) ;
-    $sth->execute () ;
-    while (@array = $sth->fetchrow_array ()) {
-	my $group_id = $array[0] ;
-	push @grouplist, $group_id ;
-	$lastdate{$group_id} = 0 ;
-	$lastrev{$group_id} = 0 ;
-	$groupname{$group_id} = $array[1] ;
-	$alreadyseen{$group_id} = 0 ;
-    }
-    $sth->finish () ;
-
-    # Then, update hashes with the previous values
-    $query = "SELECT group_id, last_check_date, last_repo_version
-              FROM plugin_scmsvn_stats" ;
-    # &debug ($query) ;
-    $sth = $dbh->prepare ($query) ;
-    $sth->execute () ;
-    while (@array = $sth->fetchrow_array ()) {
-	my $group_id = $array[0] ;
-	$lastdate{$group_id} = $array[1] ;
-	$lastrev{$group_id} = $array[2] ;
-	$alreadyseen{$group_id} = 1 ;
-    }
-    $sth->finish () ;
-
-    # Now examine each repository in turn
-    foreach my $group_id (@grouplist) {
-	my $svnroot = "/var/lib/gforge/chroot/svnroot/$groupname{$group_id}" ;
-	my $currev = qx( svnlook youngest $svnroot ) ;
-	my $adds = 0 ;
-	my $deletes = 0 ;
-	my $updates = 0 ;
-	my $commits = 0 ;
-	my $rev = $lastrev{$group_id} + 1 ;
-	while ($rev <= $currev) {
-	    $commits++ ;
-	    open SVN, "svnlook changed -r$rev $svnroot |" ;
-	    while (<SVN>) {
-		chomp ;
-		$adds++ if m/^A/ ;
-		$deletes++ if m/^D/ ;
-		$updates++ if m/^U/ ;
-	    }
-	    close SVN ;
-	    $rev++ ;
-	}
-
-	my $time = time () ;
-	if ($alreadyseen{$group_id} == 1) {
-	    $query = "UPDATE plugin_scmsvn_stats
-                      SET last_repo_version = $currev,
-                          adds = $adds,
-                          deletes = $deletes,
-                          commits = $commits,
-                          changes = $updates,
-                          last_check_date = $time
-                      WHERE group_id = $group_id" ;
-	} else {
-	    $query = "INSERT INTO plugin_scmsvn_stats
-                             (last_repo_version, last_check_date, adds, deletes, commits, changes, group_id)
-                      VALUES ($currev, $time, $adds, $deletes, $commits, $updates, $group_id)
-" ;
-	}
-	$sth = $dbh->prepare ($query) ;
-	$sth->execute () ;
-	$dbh->commit () ;
-    }
-};
-
-if ($@) {
-    warn "Transaction aborted because $@" ;
-    &debug ("Transaction aborted because $@") ;
-    &debug ("Last SQL query was:\n$query\n(end of query)") ;
-    $dbh->rollback ;
-    &debug ("Please report this bug.") ;
-    &debug ("Please include the previous messages as well to help debugging.") ;
-    &debug ("You should not worry too much about this,") ;
-    &debug ("your DB is still in a consistent state and should be usable.") ;
-    exit 1 ;
-}
-
-$dbh->rollback ;
-$dbh->disconnect ;



More information about the evolvis-commits mailing list