Gecko [ www.jdcpatala.org ]

Name	Size	Permission
have_clusterj.inc	3.08 KB	-rw-r--r--
have_clusterj_jpa.inc	1.89 KB	-rw-r--r--
have_connectorj.inc	1002 B	-rw-r--r--
have_java.inc	3.04 KB	-rw-r--r--
have_little_endian.inc	340 B	-rw-r--r--
have_ndb_rqg.inc	1.93 KB	-rw-r--r--
have_ndbjtie_junit.inc	1.37 KB	-rw-r--r--
have_openjpa.inc	971 B	-rw-r--r--
memory_usage.inc	3.08 KB	-rw-r--r--
ndb_add_node.cnf	1000 B	-rw-r--r--
ndb_add_node_mysqld.cnf	526 B	-rw-r--r--
ndb_addnode_restart_setup.inc	580 B	-rw-r--r--
ndb_check_blob_tables.inc	1.3 KB	-rw-r--r--
ndb_check_unique_index.inc	1.39 KB	-rw-r--r--
ndb_desc_print.inc	834 B	-rw-r--r--
ndb_diff_tables.inc	436 B	-rw-r--r--
ndb_error_reporter.inc	1.16 KB	-rw-r--r--
ndb_execute_count.inc	293 B	-rw-r--r--
ndb_find_index_stat_tool.inc	1.11 KB	-rw-r--r--
ndb_find_print_file_tool.inc	1.12 KB	-rw-r--r--
ndb_get_blob_tables.inc	1.05 KB	-rw-r--r--
ndb_info.inc	3.6 KB	-rw-r--r--
ndb_init_execute_count.inc	315 B	-rw-r--r--
ndb_init_scan_counts.inc	450 B	-rw-r--r--
ndb_scan_counts.inc	491 B	-rw-r--r--
ndb_share_check_shares.inc	280 B	-rw-r--r--
restart_cluster.inc	1.17 KB	-rw-r--r--
restart_cluster_rolling.inc	1.33 KB	-rw-r--r--
restart_node.inc	1.46 KB	-rw-r--r--
restart_random_node.inc	1.04 KB	-rw-r--r--
restore_sql_mode_after_turn_of...	111 B	-rw-r--r--
run_java.inc	2.17 KB	-rw-r--r--
run_ndbapitest.inc	1.21 KB	-rw-r--r--
start_mysqld.inc	846 B	-rw-r--r--
stop_mysqld.inc	1.07 KB	-rw-r--r--
turn_off_strict_sql_mode.inc	158 B	-rw-r--r--

Code Editor : memory_usage.inc

--perl
##
## NDB Memory Usage
##
## Include script that sets two variables that can be used to evaluate actual memory
## usage in NDB data nodes
##
## Parameters:
##   $ndb_node_id - The node ID to get the memory usage for, can be a number of the node, or 'ALL',
##                  which returns the average useage over all nodes. ALL is the default value.
##
## Returned variables:
##   $MTR_NDB_DATA_USAGE_PERCENTAGE  - The percentage of data memory used on all nodes
##   $MTR_NDB_INDEX_USAGE_PERCENTAGE - The percentage of index memory used on all nodes
##
## Values are read from ndb_mgm REPORT MemoryUsage
##
## Example output from ALL REPORT MemoryUsage
## ndb_mgm -e "ALL REPORT MemoryUsage"
## Connected to Management Server at: localhost:16660
## Node 1: Data usage is 85%(548 32K pages of total 640)
## Node 1: Index usage is 86%(138 8K pages of total 160)
## Node 2: Data usage is 85%(548 32K pages of total 640)
## Node 2: Index usage is 86%(138 8K pages of total 160)

use strict;

use IO::File;

#
# Set up paths
#
my $vardir = $ENV{MYSQLTEST_VARDIR} or die "Need MYSQLTEST_VARDIR";
my $ndb_connectstring = $ENV{NDB_CONNECTSTRING} or die "Need NDB_CONNECTSTRING";
my $ndb_mgm = $ENV{NDB_MGM} or die "Need NDB_MGM";

# Input parameters
my $ndb_node_id = $ENV{ndb_node_id} || 'ALL';

my $cmd = "$ndb_mgm --ndb-connectstring='$ndb_connectstring' -e \"$ndb_node_id REPORT MemoryUsage\"";
# print "Calling ndb_mgm: '$cmd'\n";
my $output = `$cmd`;

my $memory = {};
foreach my $line (split("\n", $output)) {
    # Skip empty lines
    next if ($line =~ m/^,+$/g);

if ($line =~ m/Node (\d+): (Index|Data) usage is \d+%$(\d+) (\d+)K pages of total (\d+)$/g) {
        my $node_id = $1;
        my $type = lc($2);
        my $used = $3;
        my $size = $4;
        my $total = $5;

if (!defined $memory->{$type}) {
            $memory->{$type} = {}
        }
        if (!defined $memory->{$type}->{$node_id}) {
            $memory->{$type}->{$node_id} = {};
        }
        $memory->{$type}->{$node_id}->{'used'} = $used;
        $memory->{$type}->{$node_id}->{'total'} = $total;
        $memory->{$type}->{$node_id}->{'size'} = $size;
    }
}

sub usage_percentage {
    my $type = lc(shift);
    my $mem  = shift;

my $used = 0;
    my $total = 0;

foreach my $node (keys %{$mem->{$type}}) {
        $used  += $mem->{$type}->{$node}->{'used'};
        $total += $mem->{$type}->{$node}->{'total'};
    }
    die "Parsing error - not able to detect total number of pages, output: '$output'" if ($total == 0);
    return sprintf("%.2f", $used * 100 / $total);
}

my $num_nodes = scalar(keys %{$memory->{Data}});
my $data_usage_percentage = usage_percentage('Data', $memory);
my $index_usage_percentage = usage_percentage('Index', $memory);

my $file_name = "$vardir/tmp/ndb_memory_usage_result.inc";
my $F = IO::File->new($file_name, 'w') or die "Could not open '$file_name' for writing";
print $F "--let \$MTR_NDB_DATA_USAGE_PERCENTAGE= $data_usage_percentage\n";
print $F "--let \$MTR_NDB_INDEX_USAGE_PERCENTAGE= $index_usage_percentage\n";
$F->close();

EOF

--source $MYSQLTEST_VARDIR/tmp/ndb_memory_usage_result.inc

${this.title}

Code Editor : memory_usage.inc