Changeset 8074 for lang/perl/App-MadEye

Timestamp:

03/18/08 15:46:49 (9 months ago)

Author:

tokuhirom

Message:

threshold を変更可能にしてみる。

Files:

• lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Agent/MySQLSlave.pm (modified) (3 diffs)

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Agent/MySQLSlave.pm

@@ -13 +13 @@
     my $user     = $self->config->{config}->{user} or die "missing user";
     my $password = $self->config->{config}->{password};
+    my $threshold = $self->config->{config}->{threshold};
 
     my $dbh = DBI->connect(
@@ -40 +41 @@
         my $rmlp = $row->{'Read_Master_Log_Pos'};
         my $emlp = $row->{'Exec_Master_Log_Pos'};
-        if ( $rmlp > $emlp + 10**5 ) { # XXX configurable.
+        if ( abs($rmlp - $emlp) > $threshold ) {
             return "considerable delay : $rmlp $emlp\n";
         }
@@ -72 +73 @@
             required: yes
             type: any
+        threshold:
+            required: yes
+            type: int
 
 =head1 AUTHORS