oil AST

(CommandList
  children: [
    (If
      arms: [
        (if_arm
          cond: [
            (Sentence
              child: 
                (DBracket
                  expr: 
                    (LogicalNot
                      child: (BoolUnary op_id:BoolUnary_z child:{(DQ ($ VSub_Number "$1"))})
                    )
                )
              terminator: <Op_Semi ";">
            )
          ]
          action: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:CLUSTERNAME)
                  op: Equal
                  rhs: {(DQ ($ VSub_Number "$1"))}
                  spids: [69]
                )
              ]
              spids: [69]
            )
          ]
          spids: [-1 66]
        )
      ]
      spids: [-1 74]
    )
    (If
      arms: [
        (if_arm
          cond: [
            (Sentence
              child: 
                (DBracket
                  expr: (LogicalNot child:(BoolUnary op_id:BoolUnary_f child:{(DQ (cluster.txt))}))
                )
              terminator: <Op_Semi ";">
            )
          ]
          action: [(C {(DQ ("Error: cluster.txt not found"))}) (C {(exit)})]
          spids: [-1 91]
        )
      ]
      spids: [-1 101]
    )
    (C {(echo)} {(-e)} {(DQ ("<html>"))})
    (C {(echo)} {(-e)} 
      {
        (DQ ("<head>") (EscapedLiteralPart token:<Lit_EscapedChar "\\n">) ("<title>Cluster ") 
          ($ VSub_Name "$CLUSTERNAME") (" members</title></head>")
        )
      }
    )
    (C {(echo)} {(-e)} {(DQ ("<body>"))})
    (C {(echo)} {(-e)} 
      {
        (DQ ("<font color=slategray>") (EscapedLiteralPart token:<Lit_EscapedChar "\\n">) 
          ("<h2>Cluster ") ($ VSub_Name "$CLUSTERNAME") (" members</h2>") (EscapedLiteralPart token:<Lit_EscapedChar "\\n">) 
          ("</font>")
        )
      }
    )
    (C {(echo)} {(-e)} 
      {
        (DQ ("<table border=") (EscapedLiteralPart token:<Lit_EscapedChar "\\\"">) (1) 
          (EscapedLiteralPart token:<Lit_EscapedChar "\\\"">) (">")
        )
      }
    )
    (While
      cond: [
        (Sentence
          child: (C {(read)} {(HOSTNAME)} {(MACADDR)} {(IPADDR)} {(ILOIPADDR)} {(DOMAIN)} {(ROLE)})
          terminator: <Op_Semi ";">
        )
      ]
      body: 
        (DoGroup
          children: [
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (DBracket
                          expr: 
                            (BoolBinary
                              op_id: BoolBinary_GlobEqual
                              left: {(DQ ($ VSub_Name "$ROLE"))}
                              right: {(DQ (head))}
                            )
                        )
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [(assign_pair lhs:(LhsName name:COLOR) op:Equal rhs:{(red)} spids:[197])]
                      spids: [197]
                    )
                  ]
                  spids: [-1 194]
                )
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (DBracket
                          expr: 
                            (BoolBinary
                              op_id: BoolBinary_GlobEqual
                              left: {(DQ ($ VSub_Name "$ROLE"))}
                              right: {(DQ (bootstrap))}
                            )
                        )
                      terminator: <Op_Semi ";">
                    )
                  ]
                  action: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:COLOR)
                          op: Equal
                          rhs: {(purple)}
                          spids: [221]
                        )
                      ]
                      spids: [221]
                    )
                  ]
                  spids: [201 218]
                )
              ]
              else_action: [
                (Assignment
                  keyword: Assign_None
                  pairs: [(assign_pair lhs:(LhsName name:COLOR) op:Equal rhs:{(black)} spids:[228])]
                  spids: [228]
                )
              ]
              spids: [225 232]
            )
            (C {(echo)} {(-e)} {(DQ ("<tr>"))})
            (C {(echo)} {(-e)} {(DQ ("<td>") ($ VSub_Name "$HOSTNAME") ("</td>"))})
            (C {(echo)} {(-e)} 
              {
                (DQ ("<td><a href=") (EscapedLiteralPart token:<Lit_EscapedChar "\\\"">) ("https://") 
                  ($ VSub_Name "$IPADDR") (EscapedLiteralPart token:<Lit_EscapedChar "\\\"">) (">host</a></td>")
                )
              }
            )
            (C {(echo)} {(-e)} 
              {
                (DQ ("<td><a href=") (EscapedLiteralPart token:<Lit_EscapedChar "\\\"">) ("https://") 
                  ($ VSub_Name "$ILOIPADDR") (EscapedLiteralPart token:<Lit_EscapedChar "\\\"">) (">ilo</a></td>")
                )
              }
            )
            (C {(echo)} {(-e)} {(DQ ("<td>"))})
            (C {(echo)} {(-e)} {(DQ ("<font color=") ($ VSub_Name "$COLOR") (">"))})
            (C {(echo)} {(-e)} {(DQ ($ VSub_Name "$ROLE"))})
            (C {(echo)} {(-e)} {(DQ ("</font>"))})
            (C {(echo)} {(-e)} {(DQ ("</td>"))})
            (C {(echo)} {(-e)} {(DQ ("</tr>"))})
          ]
          spids: [174 338]
        )
      redirects: [(Redir op_id:Redir_Less fd:-1 arg_word:{(cluster.txt)} spids:[340])]
    )
    (C {(echo)} {(-e)} {(DQ ("</table>"))})
    (C {(echo)} {(-e)} {(DQ ("</body>"))})
    (C {(echo)} {(-e)} {(DQ ("</html>"))})
  ]
)