[evolvis-commits] r7582: Fixed the shell box hostname entries. ↵

mirabilos at evolvis.org mirabilos at evolvis.org
Thu Feb 24 15:43:59 CET 2011


Author: mirabilos
Date: 2011-02-24 15:43:59 +0100 (Thu, 24 Feb 2011)
New Revision: 7582

Modified:
   trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade26.pl
Log:
Fixed the shell box hostname entries.


Modified: trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade26.pl
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade26.pl	2011-02-24 14:43:58 UTC (rev 7581)
+++ trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade26.pl	2011-02-24 14:43:59 UTC (rev 7582)
@@ -145,7 +145,7 @@
 	      $md5pwd=qx/echo -n $pwd | md5sum/ ;
 	      chomp $md5pwd ;
 	      $email = $server_admin ;
-	      $shellbox = $domain_name ;
+	      $shellbox = "shell" ;
 	      $noreplymail="noreply\@$domain_name" ;
 	      $date = time () ;
 	      
@@ -265,6 +265,26 @@
 
 
 	  $version = &get_db_version ;
+	  if (is_lesser $version, "2.5.9999.3+shellbox+fixed") {
+	      debug "Fixing the unix_box fields" ;
+
+	      $query = "update groups set unix_box = 'shell'" ;
+	      $sth = $dbh->prepare ($query) ;
+	      $sth->execute () ;
+	      $sth->finish () ;
+	      
+	      $query = "update users set unix_box = 'shell'" ;
+	      $sth = $dbh->prepare ($query) ;
+	      $sth->execute () ;
+	      $sth->finish () ;
+
+	      &update_db_version ("2.5.9999.3+shellbox+fixed") ;
+	      debug "Committing." ;
+	      $dbh->commit () ;
+	  }
+
+
+	  $version = &get_db_version ;
 	  if (is_lesser $version, "2.6-0") {
 	      debug "Updating debian_meta_data table." ;
 	      $query = "DELETE FROM debian_meta_data WHERE key = 'current-path'" ;



More information about the evolvis-commits mailing list