koji: Reduce excessive logging by retryablehttp

Use LeveledLogger
Fixes COMPOSER-1394

internal/upload/koji/koji.go

@@ -330,14 +330,13 @@ func (k *Koji) uploadChunk(chunk []byte, filepath, filename string, offset uint6
 
 		return shouldRetry, retErr
 	}
-	logger := rh.Logger(logrus.StandardLogger())
 
 	client := rh.Client{
 		HTTPClient: &http.Client{
 			Transport: k.transport,
 		},
 		CheckRetry: countingCheckRetry,
-		Logger:     logger,
+		Logger:     rh.LeveledLogger(&LeveledLogrus{logrus.StandardLogger()}),
 	}
 
 	respData, err := client.Post(u.String(), "application/octet-stream", bytes.NewBuffer(chunk))

internal/upload/koji/rh-logrus-adapter.go

@@ -0,0 +1,34 @@
+package koji
+
+import (
+	"github.com/sirupsen/logrus"
+)
+
+type LeveledLogrus struct {
+	*logrus.Logger
+}
+
+func (l *LeveledLogrus) fields(keysAndValues ...interface{}) map[string]interface{} {
+	fields := make(map[string]interface{})
+
+	for i := 0; i < len(keysAndValues)-1; i += 2 {
+		fields[keysAndValues[i].(string)] = keysAndValues[i+1]
+	}
+
+	return fields
+}
+
+func (l *LeveledLogrus) Error(msg string, keysAndValues ...interface{}) {
+	l.WithFields(l.fields(keysAndValues...)).Error(msg)
+}
+
+func (l *LeveledLogrus) Info(msg string, keysAndValues ...interface{}) {
+	l.WithFields(l.fields(keysAndValues...)).Info(msg)
+}
+func (l *LeveledLogrus) Debug(msg string, keysAndValues ...interface{}) {
+	l.WithFields(l.fields(keysAndValues...)).Debug(msg)
+}
+
+func (l *LeveledLogrus) Warn(msg string, keysAndValues ...interface{}) {
+	l.WithFields(l.fields(keysAndValues...)).Warn(msg)
+}