tmclean 0.1.0

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2012 Michael Kessler
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,135 @@
+# Time Machine Clean
+
+Clean old Time Machine backups with ease! You know, when you have backups from several machines on a single drive and
+not a single one wants to backup anymore...
+
+TMClean requires root privileges to delete the Time Machine backups.
+
+## Installation
+
+Simply install from [RubyGems](https://rubygems.org/):
+
+```Bash
+$ sudo gem install tmclean
+```
+
+## Usage
+
+```Bash
+$ tmclean                                                                                                                                                          ruby-1.9.3-p194 1↵
+Usage: tmclean last <number>
+       tmclean keep <number>
+       tmclean until <date description>
+```
+
+### Last
+
+You can say how many backups you want to remove from Time Machine:
+
+```Bash
+$ sudo tmclean last 2
+Getting the list of backups. Hold on a moment...
+
+Keep 53 recent backups.
+Delete the following backups:
+
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2011-12-16-004025
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2011-12-23-002310
+
+Are you sure to delete these backups? (Y/N)
+
+Deleting backups. You may want to grab some coffees, I'll take ages...
+
+Delete /Volumes/Time Machine Backups/Backups.backupdb/otherland/2011-12-16-004025
+Delete /Volumes/Time Machine Backups/Backups.backupdb/otherland/2011-12-23-002310
+
+Done.
+```
+
+### Keep
+
+You can say how many backups you want to keep, the rest is removed from Time Machine:
+
+```Bash
+$ sudo tmclean keep 50
+Getting the list of backups. Hold on a moment...
+
+Keep 50 recent backups.
+Delete the following backups:
+
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2011-12-30-000535
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-01-07-174853
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-01-15-001309
+
+Are you sure to delete these backups? (Y/N)
+
+Deleting backups. You may want to grab some coffees, I'll take ages...
+
+Delete /Volumes/Time Machine Backups/Backups.backupdb/otherland/2011-12-30-000535
+Delete /Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-01-07-174853
+Delete /Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-01-15-001309
+
+Done.
+```
+
+### Until
+
+You can say which date the backups should be removed from Time Machine:
+
+```Bash
+$ sudo tmclean until 3 months ago
+Getting the list of backups. Hold on a moment...
+
+Keep 36 recent backups.
+Delete the following backups:
+
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-01-22-200324
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-01-29-204948
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-02-11-202151
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-02-18-200728
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-02-25-201024
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-03-03-200513
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-03-10-200939
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-03-17-200645
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-03-24-200450
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-03-31-200929
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-04-07-200722
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-04-18-201209
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-04-25-201422
+/Volumes/Time Machine Backups/Backups.backupdb/otherland/2012-05-08-201136
+
+Are you sure to delete these backups? (Y/N)
+Cancelled.
+```
+
+## Author
+
+Developed by Michael Kessler, sponsored by [mksoft.ch](https://mksoft.ch).
+
+If you like TMClean, you can watch the repository at [GitHub](https://github.com/netzpirat/tmclean) and
+follow [@netzpirat](https://twitter.com/#!/netzpirat) on Twitter for project updates.
+
+## License
+
+(The MIT License)
+
+Copyright (c) 2012 Michael Kessler
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/bin/tmclean

@@ -0,0 +1,126 @@
+#!/usr/bin/env ruby
+
+def list
+  puts 'Getting the list of backups. Hold on a moment...'
+  `tmutil listbackups`.split("\n")
+end
+
+def ask(keep_backups, delete_backups)
+  puts ''
+  puts "Keep #{ keep_backups.length } recent backups."
+  puts 'Delete the following backups:'
+  puts ''
+  puts delete_backups
+
+  puts ''
+  puts 'Are you sure to delete these backups? (Y/N)'
+
+  if yes_or_no?
+    perform(delete_backups)
+  else
+    puts 'Cancelled.'
+  end
+
+rescue
+  puts 'Stupid, that\'s not a valid answer.'
+end
+
+def yes_or_no?
+  system('stty raw -echo')
+
+  case STDIN.getc.upcase
+  when 'Y'
+    true
+  when 'N'
+    false
+  else
+    raise 'Invalid character.'
+  end
+
+ensure
+  system('stty -raw echo')
+end
+
+def perform(backups)
+  puts ''
+  puts 'Deleting backups. You may want to grab some coffees, I\'ll take ages...'
+  puts ''
+
+  backups.each do |backup|
+    puts "Delete #{ backup }"
+    `sudo -u root tmutil delete "#{ backup }"`
+  end
+
+  puts ''
+  puts 'Done.'
+end
+
+#unless ENV['USER'] == 'root'
+#  puts 'Time Machine clean requires root privileges.'
+#  exit 2
+#end
+
+unless system('hash', 'tmutil')
+  puts 'The Time Machine command line utility `tmutil` was not found.'
+  exit 2
+end
+
+if ARGV.length == 0
+  puts 'Usage: tmclean last <number>'
+  puts '       tmclean keep <number>'
+  puts '       tmclean until <date description>'
+  exit 1
+else
+  case ARGV[0]
+  when 'keep'
+    begin
+      keep = Integer(ARGV[1])
+      backups = list
+      delete = backups.slice!(0, backups.length - keep)
+      ask backups, delete
+
+    rescue TypeError, ArgumentError
+      puts 'Usage: tmclean keep <number>'
+      exit 1
+    end
+
+  when 'last'
+    begin
+      last = Integer(ARGV[1])
+      backups = list
+      delete = backups.slice!(0, last)
+      ask backups, delete
+
+    rescue TypeError, ArgumentError
+      puts 'Usage: tmclean last <number>'
+      exit 1
+    end
+
+  when 'until'
+    require 'chronic'
+    ARGV.shift
+    time = Chronic.parse(ARGV.join(' '), :context => :past)
+
+    if time
+      backups = list
+
+      delete_or_keep = backups.partition do |backup|
+        time < Date.parse(backup.match(/(\d{4}-\d{2}-\d{2})/)[1]).to_time
+      end
+
+      ask delete_or_keep[0], delete_or_keep[1]
+
+    else
+      puts 'Cannot parse date description.'
+      puts 'Usage: tmclean until <date description>'
+      exit 1
+    end
+
+  else
+    puts 'Usage: tmclean last <number>'
+    puts '       tmclean keep <number>'
+    puts '       tmclean until <date description>'
+    exit 1
+
+  end
+end

metadata

@@ -0,0 +1,100 @@
+--- !ruby/object:Gem::Specification
+name: tmclean
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- Michael Kessler
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-08-13 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: chronic
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: Clean old Time Machine backups with ease
+email:
+- michi@netzpiraten.ch
+executables:
+- tmclean
+extensions: []
+extra_rdoc_files: []
+files:
+- bin/tmclean
+- LICENSE
+- README.md
+homepage: https://github.com/netzpirat/tmclean
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: 4304163877546570679
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: 1.3.6
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 3
+summary: Clean old Time Machine backups with ease
+test_files: []