verden muss phremoffer

web/hangover.lua

@@ -114,6 +114,11 @@ function post_db(web,...)
     if not tags then
        return failure
     end
+    -- make a default title out of filename
+    if not tags.title then
+      tags.title = tags.filename:gsub(".(%w+)$","")
+    end
+
     -- add to database, tags and all
     id = tracks:add(tags)
     -- add to database, tags and all
@@ -147,7 +152,7 @@ function put_db(web,...)
     web.status = "501 someone fucked up"
     return json.encode{{result=nil, error="nothing to put"}}
   end
-  if not tracks:update(id, input) then
+  if not tracks:put(id, input) then
     web.status = "501 fubar"
     return json.encode{{result=nil, error="failed to put"}}
   end

web/lib/tracks.lua

@@ -168,7 +168,13 @@ function tracks:get(pkey)
 end
 
 function tracks:update(pkey, cols)
-  return tracks:put(pkey, cols)
+  p = tracks:get(pkey)
+  -- merge teh data
+  for k,v in pairs(cols) do
+    p[k] = v
+  end
+  cols.updated = os.time()
+  return tracks:put(pkey, p)
 end
 
 -- return result with only fields