|
|
|
|
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
|
}
|