FINALLY got ASP collection enumerating working properly

app.js

@@ -24,4 +24,9 @@ post('/foo', function(){
   return 'POSTed to foo';
 });
 
+post('/params', function(){
+  return JSON.stringify(this.params);
+  return map(this.params, function(key, value){ return '' + key + ': ' + value; }).join();
+});
+
 run(sinatra_app);

rack/rack.js

@@ -1,3 +1,5 @@
+req(uire('util/functions'));
+
 // something kindof like Rack for classic ASP
 var Rack = {
 

sinatra/sinatra.js

@@ -41,7 +41,8 @@ function sinatra_app(env){
     if (block != null){
 
       var environment = {
-        env: env,
+        env:    env,
+        params: coll2hash(Request.Form()),
         render_haml: function(text, scope){
           return Haml.to_html(Haml.parse.call(scope, text));
         },

spec/sinatra/app.js

@@ -24,4 +24,9 @@ post('/foo', function(){
   return 'POSTed to foo';
 });
 
+post('/params', function(){
+  return JSON.stringify(this.params);
+  return map(this.params, function(key, value){ return '' + key + ': ' + value; }).join();
+});
+
 run(sinatra_app);

spec/sinatra/sinatra_spec.rb

@@ -31,7 +31,10 @@
     post('/does-not-exist.asp').body.should include('POST /does-not-exist')
   end
 
-  it 'should be able to get POSTed params'
+  it 'should be able to get POSTed params' do
+    post('/params.asp', :body => { :foo => 'bar' }).body.should == '{"foo":"bar"}'
+  end
+
   it 'should be able to get query string params'
 
   it 'should be able to use Regexp for paths'

spec/spec_helper.rb

@@ -19,8 +19,8 @@ def get uri
   HTTParty.get File.join(asp_server, uri)
 end
 
-def post uri
-  HTTParty.post File.join(asp_server, uri)
+def post uri, params = {}
+  HTTParty.post File.join(asp_server, uri), params
 end
 
 def put uri

util/functions.js

@@ -11,7 +11,7 @@ function each( collection, block, include_functions ){
 function map( collection, block ){
   var to_return = [];
   each(collection, function(key, value){
-    to_return[to_return.length] = block(value);
+    to_return[to_return.length] = block(key, value);
   });
   return to_return;
 }
@@ -36,3 +36,17 @@ function nano(text, variables){
 }
 
 function n(text, variables){ return nano(text, variables); }
+
+function coll2hash(asp_collection){
+  var hash = {};
+
+  // from http://andrewu.co.uk/tools/servervariables/
+  //  and http://aspjavascript.com/lesson09.asp
+  for (var objItem = new Enumerator(asp_collection); !objItem.atEnd(); objItem.moveNext()) {
+    var strKeyName  = objItem.item();
+    var strKeyValue = asp_collection(strKeyName).Count() ? asp_collection(strKeyName).Item(1) : "";
+    hash[strKeyName] = strKeyValue;
+  }
+
+  return hash;
+}