[Bps-public-commit] r17394 - Prophet/trunk/lib/Prophet/Replica

jesse at bestpractical.com jesse at bestpractical.com
Sat Dec 27 20:27:07 EST 2008


Author: jesse
Date: Sat Dec 27 20:27:07 2008
New Revision: 17394

Modified:
   Prophet/trunk/lib/Prophet/Replica/prophet.pm
   Prophet/trunk/lib/Prophet/Replica/sqlite.pm

Log:
* log quieting

Modified: Prophet/trunk/lib/Prophet/Replica/prophet.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Replica/prophet.pm	(original)
+++ Prophet/trunk/lib/Prophet/Replica/prophet.pm	Sat Dec 27 20:27:07 2008
@@ -603,9 +603,9 @@
     my ( $seq, $orig_uuid, $orig_seq, $key )
         = unpack( 'Na16NH40', $index_record );
 
-    $self->log( join( ",", ( $seq, $orig_uuid, $orig_seq, $key ) ) );
+    $self->log_debug( join( ",", ( $seq, $orig_uuid, $orig_seq, $key ) ) );
     $orig_uuid = Data::UUID->new->to_string($orig_uuid);
-    $self->log( "REV: $rev - seq $seq - originally $orig_seq from "
+    $self->log_debug( "REV: $rev - seq $seq - originally $orig_seq from "
             . substr( $orig_uuid, 0, 6 )
             . " data key $key" );
 
@@ -636,9 +636,9 @@
     my $latest = $self->latest_sequence_no();
 
     my $chgidx = $self->_read_changeset_index;
-    $self->log("Traversing changesets between $first_rev and $latest");
+    $self->log_debug("Traversing changesets between $first_rev and $latest");
     for my $rev ( $first_rev .. $latest ) {
-        $self->log("Fetching changeset $rev");
+        $self->log_debug("Fetching changeset $rev");
         my $changeset = $self->_get_changeset_index_entry(
             sequence_no => $rev,
             index_file  => $chgidx
@@ -650,7 +650,7 @@
 
 sub _read_changeset_index {
     my $self = shift;
-    $self->log("Reading changeset index file");
+    $self->log_debug("Reading changeset index file");
     my $chgidx = $self->_read_file( $self->changeset_index );
     return \$chgidx;
 }

Modified: Prophet/trunk/lib/Prophet/Replica/sqlite.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Replica/sqlite.pm	(original)
+++ Prophet/trunk/lib/Prophet/Replica/sqlite.pm	Sat Dec 27 20:27:07 2008
@@ -376,9 +376,9 @@
     my $first_rev = ( $args{'after'} + 1 ) || 1;
     my $latest = $self->latest_sequence_no();
 
-    $self->log("Traversing changesets between $first_rev and $latest");
+    $self->log_debug("Traversing changesets between $first_rev and $latest");
     for my $rev ( $first_rev .. $latest ) {
-        $self->log("Fetching changeset $rev");
+        $self->log_debug("Fetching changeset $rev");
         my $changeset = $self->_load_changeset_from_db( sequence_no => $rev,);
         $args{callback}->($changeset);
     }



More information about the Bps-public-commit mailing list