Export GTM/DNS Configuration in CSV - tmsh cli script

Im getting this error

(tmos)# run cli script gtm-config-parser

WIP,LB-MODE,WIP-STATUS,WIP-STATE,POOL-NAME,POOL-LB,POOL-MEMBERS,POOL-FB,LASTRESORT-POOL

gtm-config-parser: script failed to complete:

can't eval proc: "script::run"

"aais-xxxx" unexpected argument

  while executing

"tmsh::get_status gtm wideip $wipname"

  (procedure "script::run" line 8)

  invoked from within

"script::run" line:1

script did not successfully complete, status:1

I couldn't think of a reason why it wasn't able to pull the state & status information of your wideip "aais-xxxx". I've tested in my v13 box & its working totally fine. I could see in your error msg, its failing at line 8 which is to retrieve the state & status details of the wideip.

Do you mind deleting 8,9,10,11 lines which is the foreach block of state & status & in line 27, remove $wipstatus,$wipstate, & see to run. Lets see if without the state & status if it runs for you.

Thank you for the reply. Im getting similar error after making the edits

root@(rggslbintl01cdc)(cfg-sync Standalone)(/S1-green-P::Active)(/Common)(tmos)# run cli script gtm-config-parser > /var/tmp/gtm-config-parser-output.csv

WIP,LB-MODE,WIP-STATUS,WIP-STATE,POOL-NAME,POOL-LB,POOL-MEMBERS,POOL-FB,LASTRESORT-POOL

gtm-config-parser: script failed to complete:

can't eval proc: "script::run"

"aais-dev-dev-scp-pool" unexpected argument

  while executing

"tmsh::get_config /gtm pool $pool_name all-properties"

  (procedure "script::run" line 10)

  invoked from within

"script::run" line:1

script did not successfully complete, status:1

==============================Modified Script==============================

cli script gtm-config-parser {

proc script::run {} {

  puts "WIP,LB-MODE,WIP-STATUS,WIP-STATE,POOL-NAME,POOL-LB,POOL-MEMBERS,POOL-FB,LASTRESORT-POOL"

  foreach { obj } [tmsh::get_config gtm wideip all-properties] {

    set wipname [tmsh::get_name $obj]

    set wippools [tmsh::get_field_value $obj pools]

    set lbmode [tmsh::get_field_value $obj "pool-lb-mode"]

    set lastresort [tmsh::get_field_value $obj "last-resort-pool"]

    foreach wippool $wippools {

      set pool_name [tmsh::get_name $wippool]

      set pool_configs [tmsh::get_config /gtm pool $pool_name all-properties]

      foreach pool_config $pool_configs {

          set pool_lb [tmsh::get_field_value $pool_config "load-balancing-mode"]

          set pool_fb [tmsh::get_field_value $pool_config "fallback-mode"]

        if { [catch { set member_name [tmsh::get_field_value $pool_config "members" ]} err] } {

          set pool_member $err

        } else {

          set pool_member ""

          set member_name [tmsh::get_field_value $pool_config "members"]

          foreach member $member_name {

            append pool_member "[lindex $member 1] "

          }

        }

        puts "$wipname,$lbmode,$pool_name,$pool_lb,$pool_member,$pool_fb,$lastresort"

      }

    }

  }

}

  total-signing-status not-all-signed

}

root@(rggslbintl01cdc)(cfg-sync Standalone)(/S1-green-P::Active)(/Common)(tmos)# show sys ver

Sys::Version

Main Package

 Product   BIG-IP

 Version   13.1.3.1

 Build    0.27.4

Our F5 Support Team Determined one change needed for our environment

When listing a gtm pool, you must specify the type of record associated with the pool, (a ,aaaa ,cname ,mx, naptr, or srv). In my lab device, my gtm pool consists of “a” records. I changed the following line in the script and it works:

Before:

set pool_configs [tmsh::get_config /gtm pool $pool_name all-properties]

After:

set pool_configs [tmsh::get_config /gtm pool a $pool_name all-properties]

 ,

I didn't realize i had put the codeshare Tested this on version: 13.1, but my actual version is 11.6.x. I'll update it.

Its my LTM's which are on 13, I think i just copy pasted my LTM code share details here as well.

After your yesterday's post i thought of trying it out on v13, but missed it. Glad you found the difference.

Thanks of all :

I tested all the scriptes ,and all failed. Then i make some changes ,it's works . below is the scripts and my version.

tmsh
create cli script gtm-config-parser

puts "WIP,LB-MODE,WIP-STATUS,WIP-STATE,POOL-NAME,POOL-LB,POOL-MEMBERS,POOL-FB,LASTRESORT-POOL"
foreach { obj } [tmsh::get_config gtm wideip a all-properties] {
set wipname [tmsh::get_name $obj]
set wippools [tmsh::get_field_value $obj pools]
set lbmode [tmsh::get_field_value $obj "pool-lb-mode"]
set lastresort [tmsh::get_field_value $obj "last-resort-pool"]
foreach { status } [tmsh::get_status gtm wideip a $wipname] {
set wipstatus [tmsh::get_field_value $status "status.availability-state"]
set wipstate [tmsh::get_field_value $status "status.enabled-state"]
}
foreach wippool $wippools {
set pool_name [tmsh::get_name $wippool]
set pool_configs [tmsh::get_config /gtm pool a $pool_name all-properties]
foreach pool_config $pool_configs {
set pool_lb [tmsh::get_field_value $pool_config "load-balancing-mode"]
set pool_fb [tmsh::get_field_value $pool_config "fallback-mode"]
if { [catch { set member_name [tmsh::get_field_value $pool_config "members" ]} err] } {
set pool_member $err
} else {
set pool_member ""
set member_name [tmsh::get_field_value $pool_config "members"]
foreach member $member_name {
append pool_member "[lindex $member 1] "
}
}
puts "$wipname,$lbmode,$wipstatus,$wipstate,$pool_name,$pool_lb,$pool_member,$pool_fb,$lastresort"
}
}
}

tmsh run cli script gtm-config-parser > /var/tmp/gtm-config-parser-output.csv

root@(Spreadtrum)(cfg-sync Standalone)(Active)(/Common)(tmos)# show sys version

Sys::Version
Main Package
Product BIG-IP
Version 13.1.3.6
Build 0.0.4
Edition Point Release 6
Date Fri Jan 29 02:32:44 PST 2021

cat /var/tmp/gtm-config-parser-output.csv