diff options
| author | Russ Allbery <eagle@eyrie.org> | 2014-07-16 16:32:03 -0700 |
|---|---|---|
| committer | Russ Allbery <eagle@eyrie.org> | 2014-07-16 16:32:03 -0700 |
| commit | 27f4e81ddb42440345e6dd01a4943cb57ee5da39 (patch) | |
| tree | 3a4e9adfb0e1039c8297fbf7687acb8acd1494df /perl/lib/Wallet/Object/Duo.pm | |
| parent | 6409733ee3b7b1910dc1c166a392cc628834146c (diff) | |
| parent | 3e913fa65e9e5c1d687372b89b5467edb3e77973 (diff) | |
Imported Upstream version 1.1
Diffstat (limited to 'perl/lib/Wallet/Object/Duo.pm')
| -rw-r--r-- | perl/lib/Wallet/Object/Duo.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/lib/Wallet/Object/Duo.pm b/perl/lib/Wallet/Object/Duo.pm index e3fe2da..6edc4fa 100644 --- a/perl/lib/Wallet/Object/Duo.pm +++ b/perl/lib/Wallet/Object/Duo.pm @@ -105,7 +105,7 @@ sub create { # Create the object in Duo. require Net::Duo::Admin::Integration; my %data = ( - name => $name, + name => "$name ($Wallet::Config::DUO_TYPE)", notes => 'Managed by wallet', type => $Wallet::Config::DUO_TYPE, ); @@ -190,7 +190,7 @@ sub get { # We also need the admin server name, which we can get from the Duo object # configuration with a bit of JSON decoding. - my $json = JSON->new->utf8 (1); + my $json = JSON->new->utf8 (1)->relaxed (1); my $config = $json->decode (scalar slurp $Wallet::Config::DUO_KEY_FILE); # Construct the returned file. |