irule proc with default values failing

Question

Hi
I have a proc defined as
proc loggingNowStr { log_now_clock log_now_msec } {
  set log_now_diff [expr { $log_now_msec - ( $log_now_clock * 1000 ) }]
  incr log_now_clock [ expr { $log_now_diff / 1000 }]
  set log_now_fract [expr { $log_now_diff % 1000 }]
  set log_now_fract [format "%03d" $log_now_fract]
  set log_now_start_time_str [clock format $log_now_clock -format "%Y-%m-%d %H:%M:%S.${log_now_fract}"]

return $log_now_start_time_str
}
strangely I can't call it from RULE_INIT event. not a biggie - but can somebody explain why.
If I change the rule to
proc loggingNowStr { {log_now_clock [clock seconds]} {log_now_msec [clock clicks -milliseconds]} } {
  set log_now_diff [expr { $log_now_msec - ( $log_now_clock * 1000 ) }]
  incr log_now_clock [ expr { $log_now_diff / 1000 }]
  set log_now_fract [expr { $log_now_diff % 1000 }]
  set log_now_fract [format "%03d" $log_now_fract]
  set log_now_start_time_str [clock format $log_now_clock -format "%Y-%m-%d %H:%M:%S.${log_now_fract}"]

return $log_now_start_time_str
}
So a I am adding in default values - i presume they are called at the time
it fails with
&nbsp;&lt;CLIENT_ACCEPTED&gt; - proc loggingNowStr not found (line 44) invoked from within "call loggingNowStr $log_cca_clock $log_cca_msec "&lt;CLIENT_ACCEPTED&gt; - proc loggingNowStr not found (line 44) invoked from within "call loggingNowStr "$log_cca_clock" "$log_cca_msec" "
&nbsp;
&nbsp;

alexs_yb · Accepted Answer

Hiwhen i try thisrule proc_lib {proc loggingNowStr2 { {log_now_clock 0} {log_now_msec 0} } {}}i get this01070151:3: Rule [/Common/YB_SOEv2_Platform_logging_v1.1] error: /Common/YB_SOEv2_Platform_logging_v1.1:53: error: [undefined procedure: rule][rule proc_lib {proc loggingNowStr2 { {log_now_clock 0} {log_now_msec 0} } {}}]&nbsp;I have my proc outside rule proc_lib why do you use rule proc_lib ?&nbsp;&nbsp;I tried your code - started a new irule and got this error01070151:3: Rule [/Common/test] error: /Common/test:1: error: [undefined procedure: rule][rule proc_lib {proc loggingNowStr { {log_now_clock 123456789} {log_now_msec 78341239432} } {set log_now_diff [expr { $log_now_msec - ( $log_now_clock * 1000 ) }]incr log_now_clock [ expr { $log_now_diff / 1000 }]set log_now_fract [expr { $log_now_diff % 1000 }]set log_now_fract [format "%03d" $log_now_fract]set log_now_start_time_str [clock format $log_now_clock -format "%Y-%m-%d %H:%M:%S.${log_now_fract}"]return $log_now_start_time_str}}]&nbsp;&nbsp;

alexs_yb · Answer

Not sure it was solved - defintely confirmed&nbsp;

liefzimmerman · Answer

AlexS_yb - I presume you haven't seen a resolution to this issue? If not I'll risk pinging JRahm here because iRules are his jam. 🙂

jrahm · Answer

HI&nbsp;AlexS_yb&nbsp;, it looks like it doesn't like clock to provide default values there...got the same errors you did until I just tried a test pattern. RULE_INIT works just fine for me otherwise.
&nbsp;
rule proc_lib {
proc loggingNowStr { {log_now_clock 123456789} {log_now_msec 78341239432} } {
  set log_now_diff [expr { $log_now_msec - ( $log_now_clock * 1000 ) }]
  incr log_now_clock [ expr { $log_now_diff / 1000 }]
  set log_now_fract [expr { $log_now_diff % 1000 }]
  set log_now_fract [format "%03d" $log_now_fract]
  set log_now_start_time_str [clock format $log_now_clock -format "%Y-%m-%d %H:%M:%S.${log_now_fract}"]

return $log_now_start_time_str
}
}

rule init_proc_test {
when RULE_INIT {
  set x [call proc_lib::loggingNowStr]
  set y [call proc_lib::loggingNowStr [clock clicks] [clock clicks -milliseconds]]
  log local0. "Default args: $x; Provided args: $y"
}
}

### RESULT ###
Jul 28 00:06:29 ltm3.test.local info tmm1[20054]: Rule /Common/init_proc_test : Default args: 1972-06-25 12:27:19.432; Provided args: 2022-07-28 00:06:29.879
&nbsp;
&nbsp;
&nbsp;
&nbsp;

jrahm · Answer

I centralize all my procedures together in a library iRule that I call proc_lib so they can be maintained / managed separately from the logic of individual iRules. I updated my example to show the two named iRule objects, proc_lib and init_proc_test. First I created your procedure (unchanged except for a static default value for each argument) in the proc_lib iRule and then I added the init_proc_test iRule, which generated the resulting log entry when I saved it due to the RULE_INIT event firing and calling that loggingNowStr procedure in the proc_lib iRule twice, the first time with defaults in use and the second time with clock command values sent as arguments.

petewhite · Answer

I've never seen the setting of procedure default values to be the output of a command. Probably better to code it so that you set default to be false and then check whether it is still false. If not, set it to the output of the command:
proc loggingNowStr { {log_now_clock 0} {log_now_msec 0} } {
  if { $log_now_clock == 0 } {
    set log_now_clock [clock seconds]
  }
  if { $log_now_msec == 0 } {
    set log_now_msec [clock clicks -milliseconds]
  }
  set log_now_diff [expr { $log_now_msec - ( $log_now_clock * 1000 ) }]
  incr log_now_clock [ expr { $log_now_diff / 1000 }]
  set log_now_fract [expr { $log_now_diff % 1000 }]
  set log_now_fract [format "%03d" $log_now_fract]
  set log_now_start_time_str [clock format $log_now_clock -format "%Y-%m-%d %H:%M:%S.${log_now_fract}"]

return $log_now_start_time_str
}

Forum Discussion

irule proc with default values failing

9 Replies

Recent Discussions

Port Group on F5OS network setting

F5Access | MacOS Sonoma

Rewrite uri translation not working

Chrome V 124+ on MacOS - Virtual Server Access Issue

Transaction looks successful but file not downloading

Related Content

Parsing F5 BIG-IP LTM DNS profile statistics and extracting values with Python

Parameteters in default https monitor

iRule HTML Maintenance Page insert URI Value

Formating issue: default value for undefined variable

Re activate license failed