client: use "lacme-client/$VERSION" as User-Agent header.

3 files changed, 7 insertions, 4 deletions

diff --git a/Changelog b/Changelog
index a622803..efefb1e 100644
--- a/Changelog
+++ b/Changelog
@@ -23,6 +23,7 @@ lacme (0.7.1) upstream;
    (with the new 'challenge-directory' logic symlinks can be disabled).
  + Add support for TLS Feature extension from RFC 7633; this is mostly
    useful for OCSP Must-Staple.
+ + client: use "lacme-client/$VERSION" as User-Agent header.
  - lacme: delay webserver socket shutdown to after the process has
    terminated.
  - documentation: suggest to generate private key material with
diff --git a/Makefile b/Makefile
index c37c45b..7b0cd1a 100644
--- a/Makefile
+++ b/Makefile
@@ -64,7 +64,7 @@ $(BUILDDIR)/%: %
 	        -- "$@"
 
 release:
-	@if ! git diff HEAD --quiet -- ./Changelog ./lacme ./lacme-accountd; then \
+	@if ! git diff HEAD --quiet -- ./Changelog ./lacme ./lacme-accountd ./client; then \
 		echo "Dirty state, refusing to release!" >&2; \
 		exit 1; \
 	fi
@@ -72,9 +72,9 @@ release:
 		if git rev-parse -q --verify "refs/tags/v$$VERS" >/dev/null; then echo "tag exists" 2>/dev/null; exit 1; fi && \
 		sed -ri "0,/^( -- .*)  .*/ s//\\1  $(shell date -R)/" ./Changelog && \
 		sed -ri "0,/^(our\\s+\\\$$VERSION\\s*=\\s*)'[0-9.]+'\\s*;/ s//\\1'$$VERS';/" \
-			-- ./lacme ./lacme-accountd && \
+			-- ./lacme ./lacme-accountd ./client && \
 		git commit -m "Prepare new release v$$VERS." \
-			-- ./Changelog ./lacme ./lacme-accountd && \
+			-- ./Changelog ./lacme ./lacme-accountd ./client && \
 		git tag -sm "Release version $$VERS" "v$$VERS"
 
 install: all
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' );