[prev in list] [next in list] [prev in thread] [next in thread] 

List:       spacewalk-commits
Subject:    web/modules
From:       mmraka () fedoraproject ! org (Michael Mraka)
Date:       2010-11-27 12:30:58
Message-ID: 20101127123058.85AF8120212 () lists ! fedorahosted ! org
[Download RAW message or body]

 web/modules/dobby/Dobby/DB.pm |   16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

New commits:
commit b77e7e61560fd74db600c879a59ca8c2928275a8
Author: Michael Mraka <michael.mraka at redhat.com>
Date:   Sat Nov 27 13:26:18 2010 +0100

    649706 - execute all recomendations from segment advisor
    
    incl. enable row movement if necessary

diff --git a/web/modules/dobby/Dobby/DB.pm b/web/modules/dobby/Dobby/DB.pm
index 06fbb87..fed67fe 100644
--- a/web/modules/dobby/Dobby/DB.pm
+++ b/web/modules/dobby/Dobby/DB.pm
@@ -210,19 +210,11 @@ sub shrink_segment {
 
   my $query;
 
-  if ($seg->{SEGMENT_TYPE} eq 'TABLE') {
-    $query = sprintf("alter table %s.%s shrink space",
-                     @$seg{qw/SEGMENT_OWNER SEGMENT_NAME/});
-  } elsif ($seg->{SEGMENT_TYPE} eq 'INDEX') {
-    $query = sprintf("alter index %s.%s shrink space",
-                     @$seg{qw/SEGMENT_OWNER SEGMENT_NAME/});
-  } else {
-    printf "ERROR: do not know how to shrink %s %s.%s\n",
-            @$seg{qw/SEGMENT_TYPE SEGMENT_OWNER SEGMENT_NAME/};
-    return -1;
-  }
   my $dbh = $self->connect;
-  $dbh->do($query);
+  for $rec ('C3', 'C2', 'C1') {
+        next if not defined($seg->{$rec});
+        $dbh->do($seg->{$rec});
+  }
 }
 
 sub listener_startup {



[prev in list] [next in list] [prev in thread] [next in thread]