iApps tempate for Virtual server configurtaion

Implementation snippet:

proc tmsh_modify_vlan { vs_name } {
    if { $::basic__client_vlan_option == "all" } {
        set vlan_name "none vlans-disabled"
    } else {
        set vlan_name "replace-all-with \{ "
        foreach name $::basic__client_vlan {
            append vlan_name $name
            append vlan_name " "
        }
        append vlan_name "\} vlans-$::basic__client_vlan_option"
    }
    tmsh_modify "/ ltm virtual" "$vs_name vlans $vlan_name"
}

I did it with "modify" to not totally change the original script. So whenever a virtual server is created, I keep that name and provide it to this proc.