diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2025-12-24 16:01:05 -0700 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2025-12-24 16:01:05 -0700 |
| commit | 662c3bb66f3ce14faed859a29ffde1379ad78cb4 (patch) | |
| tree | 251d8cb39948ac507d55f74827df9cd0b7a6b4a1 /lisp/aws/aws.lisp | |
| parent | dc8e498d4b95f66898ee1d85e49e86c016938e3b (diff) | |
add private IP to output
Diffstat (limited to 'lisp/aws/aws.lisp')
| -rw-r--r-- | lisp/aws/aws.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/aws/aws.lisp b/lisp/aws/aws.lisp index 74d1c54..642c7d9 100644 --- a/lisp/aws/aws.lisp +++ b/lisp/aws/aws.lisp @@ -25,6 +25,9 @@ ((id :initarg :id :initform nil :accessor id) + (ip :initarg :ip + :initform nil + :accessor ip) (launch-time :initarg :launch-time :initform nil :accessor launch-time)) @@ -199,6 +202,8 @@ (car (loop for instance in (cdr (assoc :*instances (cadar (run-aws-cli aws command)))) collect (make-instance 'aws-instance :id (cdr (assoc :*instance-id instance)) + :ip (first (loop for interface in (cdr (assoc :*network-interfaces instance)) + collect (cdr (assoc :*private-ip-address interface)))) :launch-time (cdr (assoc :*launch-time instance))))))) (defmethod get-targetgroups ((aws-targetgroup aws-targetgroup)) |