~drizzle-trunk/drizzle/development

# -*- cperl -*-

# Copyright (C) 2004 MySQL AB

# 

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; version 2 of the License.

# 

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# 

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

# This is a library file used by the Perl version of drizzle-test-run,

# and is part of the translation of the Bourne shell script with the

# same name.

use strict;

# These are not to be prefixed with "dtr_"

sub gprof_prepare ();

sub gprof_collect ();

##############################################################################

#

#  

#

##############################################################################

sub gprof_prepare () {

  rmtree($::opt_gprof_dir);

  mkdir($::opt_gprof_dir);

}

# FIXME what about master1 and slave1?!

sub gprof_collect () {

  if ( -f "$::master->[0]->{'path_myddir'}/gmon.out" )

  {

    # FIXME check result code?!

    dtr_run("gprof",

            [$::exe_master_drizzled,

             "$::master->[0]->{'path_myddir'}/gmon.out"],

            $::opt_gprof_master, "", "", "");

    print "Master execution profile has been saved in $::opt_gprof_master\n";

  }

  if ( -f "$::slave->[0]->{'path_myddir'}/gmon.out" )

  {

    # FIXME check result code?!

    dtr_run("gprof",

            [$::exe_slave_drizzled,

             "$::slave->[0]->{'path_myddir'}/gmon.out"],

            $::opt_gprof_slave, "", "", "");

    print "Slave execution profile has been saved in $::opt_gprof_slave\n";

  }

}

1;