← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to lib/GenTest/Reporter/ReplicationLogFlusher.pm

initial import from internal tree

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/GenTest/Reporter/ReplicationLogFlusher.pm
 
1
package GenTest::Reporter::ReplicationLogFlusher;
 
2
 
 
3
require Exporter;
 
4
@ISA = qw(GenTest::Reporter);
 
5
 
 
6
use strict;
 
7
use DBI;
 
8
use GenTest;
 
9
use GenTest::Reporter;
 
10
use GenTest::Constants;
 
11
 
 
12
sub monitor {
 
13
 
 
14
        my $reporter = shift;
 
15
 
 
16
        my $dsn = $reporter->dsn();
 
17
        my $dbh = DBI->connect($dsn);
 
18
        $dbh->do("FLUSH LOGS");
 
19
        return STATUS_OK;
 
20
 
 
21
}
 
22
 
 
23
sub type {
 
24
        return REPORTER_TYPE_PERIODIC;
 
25
}
 
26
 
 
27
1;