# end of update stats.
$result = $r;
+
$result =~ s/^\((.*?)\): //;
+ my $vars = $1;
+
+ # start nasty hack to get partial &getReply() functionality.
+ $result = &SARit($result);
- foreach ( split(',', $1) ) {
+ foreach ( split(',', $vars) ) {
my $val = $vals[$i];
# &DEBUG("val => $val");
$i++;
}
- # nasty hack to get partial &getReply() functionality.
- $result = &SARit($result);
+ # rest of nasty hack to get partial &getReply() functionality.
$result =~ s/^\s*<action>\s*(.*)/\cAACTION $1\cA/i;
$result =~ s/^\s*<reply>\s*//i;