[evolvis-commits] r16240: Less useless verbosity

mirabilos at evolvis.org mirabilos at evolvis.org
Tue Mar 1 01:04:38 CET 2011


Author: mirabilos
Date: 2011-03-01 01:04:38 +0100 (Tue, 01 Mar 2011)
New Revision: 16240

Modified:
   trunk/gforge_base/evolvisforge-5.1/src/deb-specific/db-upgrade.pl
Log:
Less useless verbosity

Modified: trunk/gforge_base/evolvisforge-5.1/src/deb-specific/db-upgrade.pl
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/src/deb-specific/db-upgrade.pl	2011-03-01 00:04:36 UTC (rev 16239)
+++ trunk/gforge_base/evolvisforge-5.1/src/deb-specific/db-upgrade.pl	2011-03-01 00:04:38 UTC (rev 16240)
@@ -30,21 +30,17 @@
 require ("$libdir/sqlhelper.pm") ; # Our SQL functions
 require ("$libdir/include.pl");  # Some other functions
 
-&debug ("You'll see some debugging info during this installation.") ;
-&debug ("Do not worry unless told otherwise.") ;
-
 &db_connect ;
 
 $dbh->{AutoCommit} = 0;
 $dbh->{RaiseError} = 1;
 eval {
-    my ($sth, @array, $version, $action, $path, $target) ;
+    my ($sth, @array, $version, $path, $target) ;
 
     # Do we have at least the basic schema?
     # Create Sourceforge database
     if (! &table_exists ($dbh, 'groups')) {	# No 'groups' table
 	# Installing SF 2.6 from scratch
-	$action = "installation" ;
 	&debug ("Creating initial Sourceforge database from files.") ;
 
 	&create_metadata_table ("2.5.9999") ;
@@ -67,8 +63,6 @@
 	$dbh->commit () ;
 
     } else {			# A 'groups' table exists
-	$action = "upgrade" ;
-
 	if (! &table_exists ($dbh, 'debian_meta_data')) {	# No 'debian_meta_data' table
 	    # If we're here, we're upgrading from 2.5-7 or earlier
 	    # We therefore need to create the table
@@ -2918,9 +2912,6 @@
 
     ########################### INSERT HERE #################################
 
-    &debug ("It seems your database $action went well and smoothly. That's cool.") ;
-    &debug ("Please enjoy using FusionForge.") ;
-
     # There should be a commit at the end of every block above.
     # If there is not, then it might be symptomatic of a problem.
     # For safety, we roll back.
@@ -3023,7 +3014,7 @@
     my $target = shift or die "Not enough arguments" ;
     my $version = &get_db_version ;
     if (&is_lesser ($version, $target)) {
-        &debug ("Upgrading with $sqldate.sql") ;
+        &debug ("Upgrading database with $sqldate.sql") ;
 
         @reqlist = @{ &parse_sql_file ("$sqldir/$sqldate.sql") } ;
         foreach my $s (@reqlist) {



More information about the evolvis-commits mailing list