Make Agent.username and .hostname optional so they can be loaded from a minimal agent file and updated at runtime.

This commit is contained in:
Daniel Nichter
2013-04-10 17:03:27 -06:00
parent 1f5e5ede61
commit d63bc8c9d1
2 changed files with 12 additions and 4 deletions

View File

@@ -1247,14 +1247,18 @@ has 'uuid' => (
has 'username' => (
is => 'rw',
isa => 'Str',
required => 1,
required => 0,
default => sub { return $ENV{USER} || $ENV{LOGNAME} },
);
has 'hostname' => (
is => 'rw',
isa => 'Str',
required => 1,
required => 0,
default => sub {
chomp(my $hostname = `hostname`);
return $hostname;
},
);
has 'alias' => (

View File

@@ -31,14 +31,18 @@ has 'uuid' => (
has 'username' => (
is => 'rw',
isa => 'Str',
required => 1,
required => 0,
default => sub { return $ENV{USER} || $ENV{LOGNAME} },
);
has 'hostname' => (
is => 'rw',
isa => 'Str',
required => 1,
required => 0,
default => sub {
chomp(my $hostname = `hostname`);
return $hostname;
},
);
has 'alias' => (