Added support for iterator to htlogr.pm

lib/htlogr.pm

@@ -40,10 +40,12 @@ sub log {
     my $self    = shift;
     my $msg     = shift;
     my $tag     = shift;
+    my $i       = shift;
     my $uri;
     $uri .= $self->{path};
     $uri .= "?msg=" . uri_escape($msg);
-    $uri .= "&tag=" . uri_escape($tag)    if $tag;
+    $uri .= "&tag=" . uri_escape($tag)  if $tag;
+    $uri .= "&i="   . uri_escape($i)    if $i;
     $self->{http}->request($uri) or croak("could not htlog message: $!");
     return $self->{http}->body();
 }