Change Agent.user to Agent.username and make it and hostname rw.

bin/pt-agent

@@ -1244,8 +1244,15 @@ has 'uuid' => (
    required => 0,
 );
 
+has 'username' => (
+   is       => 'rw',
+   isa      => 'Str',
+   required => 1,
+   default  => $ENV{USER} || $ENV{LOGNAME},
+);
+
 has 'hostname' => (
-   is       => 'ro',
+   is       => 'rw',
    isa      => 'Str',
    required => 1,
 );
@@ -1256,12 +1263,6 @@ has 'alias' => (
    required => 0,
 );
 
-has 'user' => (
-   is       => 'ro',
-   isa      => 'Str',
-   required => 1,
-);
-
 has 'versions' => (
    is       => 'ro',
    isa      => 'Maybe[HashRef]',
@@ -5052,7 +5053,7 @@ sub init_agent {
    # Other optional attribs, like versions, are left to the caller.
    chomp(my $hostname = `hostname`);
    $agent->{hostname} = $hostname;
-   $agent->{user}     = $ENV{USER} || $ENV{LOGNAME};
+   $agent->{username} = $ENV{USER} || $ENV{LOGNAME};
 
    # Try forever to create/update the Agent.  The tool can't
    # do anything without an Agent, so we must succeed to proceed.

lib/Percona/WebAPI/Resource/Agent.pm

@@ -28,8 +28,15 @@ has 'uuid' => (
    required => 0,
 );
 
+has 'username' => (
+   is       => 'rw',
+   isa      => 'Str',
+   required => 1,
+   default  => $ENV{USER} || $ENV{LOGNAME},
+);
+
 has 'hostname' => (
-   is       => 'ro',
+   is       => 'rw',
    isa      => 'Str',
    required => 1,
 );
@@ -40,12 +47,6 @@ has 'alias' => (
    required => 0,
 );
 
-has 'user' => (
-   is       => 'ro',
-   isa      => 'Str',
-   required => 1,
-);
-
 has 'versions' => (
    is       => 'ro',
    isa      => 'Maybe[HashRef]',