class Gem::Commands::SourcesCommand

def defaults_str
  '--list'
end

def execute
  options[:list] = !(options[:add] ||
                     options[:clear_all] ||
                     options[:remove] ||
                     options[:update])
  if options[:clear_all] then
    path = File.join Gem.user_home, '.gem', 'specs'
    FileUtils.rm_rf path
    unless File.exist? path then
      say "*** Removed specs cache ***"
    else
      unless File.writable? path then
        say "*** Unable to remove source cache (write protected) ***"
      else
        say "*** Unable to remove source cache ***"
      end
      terminate_interaction 1
    end
  end
  if source_uri = options[:add] then
    source = Gem::Source.new source_uri
    begin
      if Gem.sources.include? source_uri then
        say "source #{source_uri} already present in the cache"
      else
        source.load_specs :released
        Gem.sources << source
        Gem.configuration.write
        say "#{source_uri} added to sources"
      end
    rescue URI::Error, ArgumentError
      say "#{source_uri} is not a URI"
      terminate_interaction 1
    rescue Gem::RemoteFetcher::FetchError => e
      say "Error fetching #{source_uri}:\n\t#{e.message}"
      terminate_interaction 1
    end
  end
  if options[:remove] then
    source_uri = options[:remove]
    unless Gem.sources.include? source_uri then
      say "source #{source_uri} not present in cache"
    else
      Gem.sources.delete source_uri
      Gem.configuration.write
      say "#{source_uri} removed from sources"
    end
  end
  if options[:update] then
    Gem.sources.each_source do |src|
      src.load_specs :released
      src.load_specs :latest
    end
    say "source cache successfully updated"
  end
  if options[:list] then
    say "*** CURRENT SOURCES ***"
    say
    Gem.sources.each do |src|
      say src
    end
  end
end

def initialize
  require 'fileutils'
  super 'sources',
        'Manage the sources and cache file RubyGems uses to search for gems'
  add_option '-a', '--add SOURCE_URI', 'Add source' do |value, options|
    options[:add] = value
  end
  add_option '-l', '--list', 'List sources' do |value, options|
    options[:list] = value
  end
  add_option '-r', '--remove SOURCE_URI', 'Remove source' do |value, options|
    options[:remove] = value
  end
  add_option '-c', '--clear-all',
             'Remove all sources (clear the cache)' do |value, options|
    options[:clear_all] = value
  end
  add_option '-u', '--update', 'Update source cache' do |value, options|
    options[:update] = value
  end
  add_proxy_option
end

def remove_cache_file(desc, path)
  FileUtils.rm_rf path
  if not File.exist?(path) then
    say "*** Removed #{desc} source cache ***"
  elsif not File.writable?(path) then
    say "*** Unable to remove #{desc} source cache (write protected) ***"
  else
    say "*** Unable to remove #{desc} source cache ***"
  end
end