瀏覽代碼

Added support for iterator to htlogr.pm

Alois Mahdal 13 年之前
父節點
當前提交
9f4aa2e23f
共有 1 個檔案被更改,包括 3 行新增1 行删除
  1. 3
    1
      lib/htlogr.pm

+ 3
- 1
lib/htlogr.pm 查看文件

40
     my $self    = shift;
40
     my $self    = shift;
41
     my $msg     = shift;
41
     my $msg     = shift;
42
     my $tag     = shift;
42
     my $tag     = shift;
43
+    my $i       = shift;
43
     my $uri;
44
     my $uri;
44
     $uri .= $self->{path};
45
     $uri .= $self->{path};
45
     $uri .= "?msg=" . uri_escape($msg);
46
     $uri .= "?msg=" . uri_escape($msg);
46
-    $uri .= "&tag=" . uri_escape($tag)    if $tag;
47
+    $uri .= "&tag=" . uri_escape($tag)  if $tag;
48
+    $uri .= "&i="   . uri_escape($i)    if $i;
47
     $self->{http}->request($uri) or croak("could not htlog message: $!");
49
     $self->{http}->request($uri) or croak("could not htlog message: $!");
48
     return $self->{http}->body();
50
     return $self->{http}->body();
49
 }
51
 }