Partially fixes #29. Will reopen when implementing chaining.

landro · Aug 13, 2014 · 4fe6e35 · 4fe6e35
1 parent ebcec78
commit 4fe6e35
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/irules/simple_irule.tcl b/irules/simple_irule.tcl
@@ -1,6 +1,6 @@
 rule simple {
 
-  when HTTP_REQUEST {
+  when HTTP_REQUEST priority 100 {
     #starts_with "/foo" 
     if { [regexp {^/foo} [HTTP::uri]] } {
       pool foo

diff --git a/src/onirule.tcl b/src/onirule.tcl
@@ -51,7 +51,19 @@ proc ::testcl::rule {ruleName body} {
 #
 # Results:
 # None.
-proc ::testcl::when {event body} {
+proc ::testcl::when args {
+
+  if { [llength $args] > 2 } {
+    # TODO https://devcentral.f5.com/wiki/iRules.when.ashx
+    puts "Currently ignoring timing and priority in when command"
+    set event [lindex $args 0]
+    set body [lindex $args end]
+  } elseif { [llength $args] < 2 } {
+    error "wrong # args: see F5  documentation"
+  } else {
+    set event [lindex $args 0]
+    set body [lindex $args 1]
+  }
 
   variable expectedEvent