← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to runall-new.pl

  • Committer: Bernt M. Johnsen
  • Date: 2010-05-19 13:34:34 UTC
  • mto: (0.67.442 randgen-sayonara)
  • mto: This revision was merged to the branch mainline in revision 2435.
  • Revision ID: bernt.johnsen@sun.com-20100519133434-qznrp10jkztnqb1o
Moved call to mysqldump into DBServer/MySQLd

Show diffs side-by-side

added added

removed removed

Lines of Context:
runall-new.pl
363
363
    if ($rpl_mode ne '') {
364
364
        $rplsrv->waitForSlaveSync;
365
365
    }
366
 
        my @dump_ports = ($ports[0]);
367
 
        if ($rpl_mode) {
368
 
                push @dump_ports, $ports[1];
369
 
        } elsif (defined $basedirs[1]) {
370
 
                push @dump_ports, $ports[1];
371
 
        }
372
 
    
373
 
        my @dump_files;
374
 
    
375
 
        foreach my $i (0..$#dump_ports) {
376
 
                say("Dumping server on port $dump_ports[$i]...");
 
366
 
 
367
    my @dump_files;
 
368
    
 
369
        foreach my $i (0..$#server) {
377
370
                $dump_files[$i] = tmpdir()."/server_".$$."_".$i.".dump";
378
371
        
379
 
                my $dump_result = system("\"$client_basedir/mysqldump\" --hex-blob --no-tablespaces --skip-triggers --compact --order-by-primary --skip-extended-insert --no-create-info --host=127.0.0.1 --port=$dump_ports[$i] --user=root $database | sort > $dump_files[$i]");
 
372
                my $dump_result = $server[$i]->dumpdb($database,$dump_files[$i]);
380
373
                exit_test($dump_result >> 8) if $dump_result > 0;
381
374
        }
382
375