aboutsummaryrefslogtreecommitdiffstats
path: root/client
diff options
context:
space:
mode:
Diffstat (limited to 'client')
-rwxr-xr-xclient4
1 files changed, 3 insertions, 1 deletions
diff --git a/client b/client
index e457df1..bcdf6cd 100755
--- a/client
+++ b/client
@@ -43,7 +43,9 @@ use warnings;
# instance own by another user and created with umask 0177) is not a
# problem since SOCKET_FD can be bound as root prior to the execve(2).
+our $VERSION = '0.3';
my $PROTOCOL_VERSION = 1;
+my $NAME = 'lacme-client';
use Errno 'EEXIST';
use Fcntl qw/O_CREAT O_EXCL O_WRONLY/;
@@ -103,7 +105,7 @@ my $UA = do {
my $verify = lc (delete $args{SSL_verify} // 'Yes') eq 'no' ? 0 : 1;
my %ssl_opts = ( verify_hostname => $verify );
$ssl_opts{$_} = $args{$_} foreach grep /^SSL_/, keys %args;
- LWP::UserAgent::->new( ssl_opts => \%ssl_opts );
+ LWP::UserAgent::->new( agent => "$NAME/$VERSION", ssl_opts => \%ssl_opts );
} // die "Can't create LWP::UserAgent object";
$UA->default_header( 'Accept-Language' => 'en' );