(trunk libT) #4502 "allow verbose scrape" -- patch by reardon.

diff --git a/libtransmission/announcer-http.c b/libtransmission/announcer-http.c
index 33b82565cb30d8ffc3d1b9d57d9a0565cd1fcf93..f676a8bde76ee3c2c415b73e5fc10d6da58c474c 100644 (file)
--- a/libtransmission/announcer-http.c
+++ b/libtransmission/announcer-http.c
@@ -359,6 +359,22 @@ on_scrape_done( tr_session   * session,
         tr_benc * files;
         const char * str;
         const int benc_loaded = !tr_bencLoad( msg, msglen, &top, NULL );
+        
+        if( getenv( "TR_CURL_VERBOSE" ) != NULL )
+        {
+            if( !benc_loaded )
+                fprintf( stderr, "%s", "Scrape response was not in benc format\n" );
+            else {
+                int i, len;
+                char * str = tr_bencToStr( &top, TR_FMT_JSON, &len );
+                fprintf( stderr, "%s", "Scrape response:\n< " );
+                for( i=0; i<len; ++i )
+                    fputc( str[i], stderr );
+                fputc( '\n', stderr );
+                tr_free( str );
+            }
+        }
+        
         if( benc_loaded )
         {
             if( tr_bencDictFindStr( &top, "failure reason", &str ) )