rewrite macro parser, improving speed and making parameter parsing more sane

t/lib/WebGUI/Macro/InfiniteMacro.pm

@@ -0,0 +1,28 @@
+package WebGUI::Macro::InfiniteMacro;
+
+use strict;
+use warnings;
+
+sub process {
+    my $session = shift;
+    my $slow = shift;
+    if ($slow) {
+        my $rand = int(rand(10000));
+        return <<END;
+^InfiniteMacro(^dfkgjhdfgk();dssdfsdfawilygth4 wu gbzwilrstg 
+sdfgdsfg
+r7ilsgg hbawl
+dsfgsdfgiegvgv
+dfggvac
+"sdaf${rand}gsdfgdsfg"
+w3avvbfielysv iw4yvg silyrgvb iyzrsv bilw4u bgizs4rv,
+"efgkhgsdfges.rkdjgdskjghsalkgh\\"\\"\\"sag"       );';
+END
+    }
+    else {
+        return '^InfiniteMacro();';
+    }
+}
+
+1;
+