[etch-devel] SF.net SVN: etch:[185] trunk/server/lib/tasks/etch.rake

[<jh...@us...>]

Revision: 185
          http://etch.svn.sourceforge.net/etch/?rev=185&view=rev
Author:   jheiss
Date:     2009-12-10 23:52:19 +0000 (Thu, 10 Dec 2009)

Log Message:
-----------
Add separate task to delete old results.

Modified Paths:
--------------
    trunk/server/lib/tasks/etch.rake

Modified: trunk/server/lib/tasks/etch.rake
===================================================================
--- trunk/server/lib/tasks/etch.rake	2009-12-10 23:16:42 UTC (rev 184)
+++ trunk/server/lib/tasks/etch.rake	2009-12-10 23:52:19 UTC (rev 185)
@@ -1,12 +1,30 @@
 namespace :etch do
-  desc 'Clean stale clients out of database'
+  desc 'Clean stale clients and old results out of database'
   task :dbclean, [:hours] => [:environment] do |t, args|
-    if args.hours
-      Client.find(:all, :conditions => ['updated_at < ?', args.hours.to_i.hours.ago]).each do |client|
-        puts "Deleting #{client.name}"
-        client.destroy
+    Rake::Task['etch:dbclean:clients'].invoke(args.hours)
+    Rake::Task['etch:dbclean:results'].invoke(args.hours)
+  end
+  
+  namespace :dbclean do
+    desc 'Clean stale clients out of database'
+    task :clients, [:hours] => [:environment] do |t, args|
+      if args.hours
+        Client.find(:all, :conditions => ['updated_at < ?', args.hours.to_i.hours.ago]).each do |client|
+          puts "Deleting #{client.name}"
+          client.destroy
+        end
       end
     end
+    
+    desc 'Clean older results out of database'
+    task :results, [:hours] => [:environment] do |t, args|
+      if args.hours
+        Result.find(:all, :conditions => ['created_at < ?', args.hours.to_i.hours.ago]).each do |result|
+          puts "Deleting result"
+          result.destroy
+        end
+      end
+    end
   end
 end
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.