1 files changed, 35 insertions, 0 deletions
diff --git a/apps/samples/vrml/stress-vrml-server.pl b/apps/samples/vrml/stress-vrml-server.pl
new file mode 100755
index 0000000..4145f29
--- /dev/null
+++ b/apps/samples/vrml/stress-vrml-server.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl -w
+
+use Math::Round;
+
+my $pi = 3.14159;
+
+# make one thousand requests with random parameters
+for (my $i = 0; $i < 1000; $i++) {
+  my $pitch = rand(2*$pi);
+  my $roll = rand(2*$pi);
+  my $yaw = rand(2*$pi);
+  my $width = rand(400) + 200;
+  my $height = rand(400) + 200;
+  my $url = "http://epikur.local:8080/vrml/HARD_MP_VAL_002.png".
+  "?pitch=".sprintf("%.3f",$pitch).
+  "&roll=".sprintf("%.3f",$roll).
+  "&yaw=".sprintf("%.3f",$yaw).
+  "&width=".sprintf("%.0f",$width).
+  "&height=".sprintf("%.0f",$height);
+  print $url."\n";
+  `wget '$url'`;  
+}
+
+# for (my $pitch = 0; $pitch < 2*$pi; $pitch += 0.01) {
+#   for (my $roll = 0; $roll < 2*$pi; $roll += 0.01) {
+#     for (my $yaw = 0; $yaw < 2*$pi; $yaw += 0.01) {
+#       my $url = "http://epikur.local:8081/vrml/HARD_MP_VAL_002.png".
+#       "?pitch=".sprintf("%.3f",$pitch).
+#       "&roll=".sprintf("%.3f",$roll).
+#       "&yaw=".sprintf("%.3f",$yaw);
+#       print $url."\n";
+#       `wget '$url'`;
+#     }
+#   }
+# }
+\ No newline at end of file