This snippets package provides frequently used building blocks for aFleX (a TCL based scripting language) for the A10 Networks AX and Thunder devices.
comment
#
# Copyright 2014, <start>
# Version 1.0 - <tab marker>
#
# Description: <tab marker>
#
# Scalability of this aFleX is unknown.
#
when
when RULE_INIT {
set ::DEBUG 0
}
when HTTP_REQUEST {
<start>
}
switch
switch -glob <start> {
<tab marker>
}
foreach
foreach item <start> {
<tab marker>
}
ifnot
if { not (<start>) } {
<tab marker>
}
ifelse
if { <start> } {
<tab marker<
} else {
<tab marker>
}
elseif
if { <start> } {
<tab marker>
} elseif { <tab marker> } {
<start>
}
log1
if { $::DEBUG == 1 } { log "<start>" }
log2
if { $::DEBUG >= 1 } { log "<start>" }
log3
if { $::DEBUG > 2 } { log "<start>" }
respond
HTTP::respond 200 content "<start>"
tolower
[string tolower [HTTP::<start>]]
Contributions are welcome! Fork and pull!
Good catch. Let us know what about this package looks wrong to you, and we'll investigate right away.