fixed response handling: all bug 200 will generate warning

lib/htlogr.pm

@@ -47,7 +47,10 @@ sub log {
     $uri .= "?msg=" . uri_escape($msg);
     $uri .= "&tag=" . uri_escape($tag)  if $tag;
     $uri .= "&i="   . uri_escape($i)    if $i;
-    $self->{http}->request($uri) or croak("could not htlog message: $!");
+    my $response = $self->{http}->request($uri)
+        or croak("could not htlog message: $!");
+    carp("logging server returned error $response, message not logged")
+        unless $response eq "200";
     return $self->{http}->body();
 }