edavis10-cerberus 0.7.8

data/lib/cerberus/scm/cvs.rb

@@ -0,0 +1,43 @@
+require 'cerberus/utils'
+require 'cerberus/scm/base'
+
+class Cerberus::SCM::CVS < Cerberus::SCM::Base
+
+  def installed?
+    exec_successful? "#{@config[:bin_path]}cvs --version"
+  end
+
+  def update!
+    if test(?d, @path + '/CVS')
+      @status = execute("update")
+    else
+      FileUtils.mkpath(@path) unless test(?d,@path)
+      @status = execute("checkout", nil, @config[:scm, :url])
+    end
+  end
+
+  def has_changes?
+    @status =~ /^[U|P|C] (.*)/
+  end
+
+  def current_revision
+    raise NotImplementedError
+  end
+
+  def url
+    raise NotImplementedError
+  end
+
+  def last_commit_message
+    raise NotImplementedError
+  end
+
+  def last_author
+    raise NotImplementedError
+  end
+
+  private
+  def execute(command, parameters = nil, pre_parameters = nil)
+    `#{@config[:bin_path]}cvs #{command} #{pre_parameters} #{@encoded_path} #{parameters}`
+  end
+end

data/lib/cerberus/scm/darcs.rb

@@ -0,0 +1,61 @@
+require 'cerberus/utils'
+require 'cerberus/scm/base'
+
+class Cerberus::SCM::Darcs < Cerberus::SCM::Base
+
+  def installed?
+    exec_successful? "#{@config[:bin_path]}darcs --version"
+  end
+
+  def update!
+    if test(?d, @path + '/_darcs')
+      @status = execute('pull', '-v -a')
+    else
+      FileUtils.rm_rf(@path) if test(?d,@path)
+      FileUtils.mkpath(File.basename(@path)) unless test(?d,File.basename(@path))
+
+      encoded_url = (@config[:scm, :url].include?(' ') ? "\"#{@config[:scm, :url]}\"" : @config[:scm, :url])
+      @status = execute("get", "--partial #{encoded_url}")
+    end
+
+    extract_last_commit_info
+  end
+
+  def has_changes?
+    return false if @status =~ /No remote changes to pull in!/
+    return true if @status =~ /We have the following new \(to them\) patches:/
+    return true if @status =~ /Copying patch \d+ of \d+\.\.\. done!/
+    return false
+  end
+
+  def current_revision
+    @date
+  end
+
+  def last_commit_message
+    @message
+  end
+
+  def last_author
+    @author
+  end
+
+  def output
+    @status
+  end
+
+  private
+  def execute(command, parameters = nil, with_path = true)
+    cmd = "#{@config[:bin_path]}darcs #{command} #{parameters} --repodir=#{@encoded_path}"
+    `#{cmd}`
+  end
+
+  def extract_last_commit_info
+    xml_message = execute('changes', "--last 1 --xml-output")
+    require 'rexml/document'
+    xml = REXML::Document.new(xml_message)
+    @author = xml.elements["changelog/patch/@author"].value
+    @date = xml.elements["changelog/patch/@date"].value
+    @message = xml.elements["changelog/patch/name"].get_text.value
+  end
+end

data/lib/cerberus/scm/git.rb

@@ -0,0 +1,94 @@
+require 'cerberus/utils'
+require 'cerberus/scm/base'
+
+class Cerberus::SCM::Git < Cerberus::SCM::Base
+  
+  def installed?
+    exec_successful? "#{@config[:bin_path]}git --version"
+  end
+
+  def update!
+    if test( ?d, File.join( @path,'.git' ) )
+      get_updates
+      execute("reset", "--hard #{remote_head}")
+    else
+      FileUtils.rm_rf(@path) if test(?d, @path)
+      encoded_url = (@config[:scm, :url].include?(' ') ? "\"#{@config[:scm, :url]}\"" : @config[:scm, :url])
+      @new = true
+      @status = execute("clone", "#{encoded_url} #{@path}", false)
+      execute('config', 'pager.diff false') # turn off git-diff $PAGER by default
+      if branch = @config[:scm, :branch]
+        execute('branch', "--track #{branch} #{remote_head}")
+        execute('checkout', branch)
+      end
+    end
+  end
+
+  def has_changes?
+    extract_current_head_revision
+    new? or ( last_tested_revision != @revision )
+  end
+
+  def new?
+    @new == true
+  end
+
+  def current_revision( _full=false )
+    _full ? @revision : @revision.slice(0,8)
+  end
+
+  def last_commit_message
+    @message
+  end
+
+  def last_author
+    @author
+  end
+
+  def output
+    @status
+  end
+
+  private
+  
+  def get_updates
+    execute("fetch")
+  end
+
+  def remote_head
+    branch = @config[:scm, :branch] 
+    branch ? "origin/#{branch}" : "origin"
+  end
+
+  def execute(command, parameters = nil, with_path = true)
+   if with_path
+     cmd = "cd #{@config[:application_root]} && #{@config[:bin_path]}git --git-dir=#{@path}/.git #{command} #{parameters}"
+   else
+     cmd = "#{@config[:bin_path]}git #{command} #{parameters}"
+   end
+   puts cmd if @config[:verbose]
+   `#{cmd}`
+  end
+
+  def extract_commit_info( commit=remote_head )
+    message = execute("log", "#{ commit } -1 --pretty='format:%an(%ae)|%ai|%H|%s%n%n%b'").split("|")
+    return { :author => message[0], :date => message[1], :revision => message[2], :message => message[3] }
+  end
+
+  def last_tested_revision
+    # TODO Is there a better way to extract the last tested commit?
+    app_name          = @config['application_name']
+    app_root          = "#{Cerberus::HOME}/work/#{app_name}"
+    status            = Cerberus::Status.new("#{app_root}/status.log")
+    commit_info = extract_commit_info(status.revision)
+    @last_tested_revision ||= commit_info[:revision]
+  end
+
+  def extract_current_head_revision
+    commit_info = extract_commit_info
+    @author     = commit_info[:author]
+    @date       = commit_info[:date]
+    @revision   = commit_info[:revision]
+    @message    = commit_info[:message]
+  end
+end

data/lib/cerberus/scm/hg.rb

@@ -0,0 +1,87 @@
+require 'cerberus/utils'
+require 'cerberus/scm/base'
+
+class Cerberus::SCM::Mercurial < Cerberus::SCM::Base
+  
+  def installed?
+    exec_successful? "#{@config[:bin_path]}hg --version"
+  end
+
+  def update!
+    @new =false
+    if test( ?d, File.join( @path,'.hg' ) )
+      r = get_localrev
+      get_updates
+      r_new = get_localrev
+      @has_changes = r_new !=r
+    else
+      FileUtils.rm_rf(@path) if test(?d, @path)
+      encoded_url = (@config[:scm, :url].include?(' ') ? "\"#{@config[:scm, :url]}\"" : @config[:scm, :url])
+      @new = true
+      @has_changes = true
+      @status = execute("clone", "#{encoded_url} #{@path}", false)
+      if branch = @config[:scm, :branch]
+        execute('update', "-C #{branch}")
+      end
+    end
+    extract_commit_info if @has_changes
+  end
+
+  def has_changes?
+    @has_changes
+  end
+
+
+  def new?
+    @new
+  end
+
+  def current_revision
+    @revision
+  end
+
+  def last_commit_message
+    @message
+  end
+
+  def last_author
+    @author
+  end
+
+  def output
+    @status
+  end
+
+  private
+  def get_localrev
+    execute("id", '-i').strip
+  end
+  
+  def get_updates
+    execute("pull", '-u')
+  end
+
+  def remote_head
+    branch = @config[:scm, :branch]  || 'default'
+  end
+
+  def execute(command, parameters = nil, with_path = true)
+   if with_path
+     cmd = "cd #{@config[:application_root]} && #{@config[:bin_path]}hg #{command} #{parameters}"
+   else
+     cmd = "#{@config[:bin_path]}hg #{command} #{parameters}"
+   end
+   `#{cmd}`
+  end
+
+  def extract_commit_info( branch='default' )
+    message =  execute("log", "-b #{ branch } -r tip --template '{author}|{date|shortdate}|{node}|{desc}'").split("|")
+    m= { :author => message.shift, :date => message.shift, :revision => message.shift, :message => message.shift }
+    @message = m[:message]
+    @author = m[:author]
+    @date = m[:date]
+    @revision = m[:revision]
+    m
+  end
+
+end

data/lib/cerberus/scm/perforce.rb

@@ -0,0 +1,82 @@
+require 'cerberus/utils'
+require 'cerberus/scm/base'
+
+class Cerberus::SCM::Perforce < Cerberus::SCM::Base
+  
+  CHANGES_LOG_REGEXP = /^Change (\d+) on (.*) by (.*)\n\n(.*)/m
+
+  def initialize(path, config = {})
+    super
+    @p4_view = @config[:scm, :view]
+    @client_name = Socket.gethostname + ":" + @path.gsub(' ', ':')
+  end
+
+  def installed?
+    exec_successful? "#{@config[:bin_path]}p4 info"
+  end
+
+  def update!
+    FileUtils.mkpath(@path) unless test(?d,@path)
+    create_client
+
+    @status = execute("sync")
+  end
+
+  def has_changes?
+    !@status.include?('file(s) up-to-date.')
+  end
+
+  def url
+    @view
+  end
+
+  attr_reader :current_revision
+  attr_reader :last_author
+  attr_reader :last_commit_message
+
+  private
+  def last_revision
+    unless @calculated
+      msg = execute("changes -m 1 -l")
+      msg =~ CHANGES_LOG_REGEXP
+      
+      @current_revision = $1
+      #date = $2
+      @last_author = $3
+      @last_commit_message = $4.strip
+
+      @calculated = true
+    end
+  end
+
+  def execute(command)
+    `#{@config[:bin_path]}p4 #{p4_opts()} #{command} #{@p4_view} 2>&1`
+  end
+
+  def p4_opts
+    user_opt = @config[:scm, :user_name].to_s.empty? ? "" : "-u #{@config[:scm, :user_name]}"
+    password_opt = @config[:scm, :password].to_s.empty? ? "" : "-P #{@config[:scm, :password]}"
+    client_opt = "-c #{@client_name}"
+    "#{user_opt} #{password_opt} #{client_opt}"
+  end
+
+  def create_client
+    IO.popen("p4 #{p4_opts} client -i", "w+") do |io|
+      io.puts(client_spec)
+      io.close_write
+    end
+  end
+
+  def client_spec
+    <<-EOF
+Client: #{@client_name}
+Owner: #{@config[:scm, :user_name]}
+Host: #{Socket.gethostname}
+Description: Cerberus client
+Root: #{@path}
+Options: noallwrite noclobber nocompress unlocked nomodtime normdir
+LineEnd: local
+View: #{@p4_view} //#{@client_name}/...
+EOF
+  end
+end

data/lib/cerberus/scm/svn.rb

@@ -0,0 +1,78 @@
+require 'cerberus/utils'
+require 'cerberus/scm/base'
+
+class Cerberus::SCM::SVN < Cerberus::SCM::Base
+
+  def installed?
+    exec_successful? "#{@config[:bin_path]}svn --version"
+  end
+
+  def update!
+    if test(?d, @path + '/.svn') #check first that it was not locked 
+      execute("cleanup") if locked?
+      say "Could not unlock svn directory #{@encoded_path}. Please do it manually." if locked? #In case if we could not unlock from command line - ask user to do it
+    end
+
+    if test(?d, @path + '/.svn')
+      @status = execute("update")
+    else
+      FileUtils.mkpath(@path) unless test(?d,@path)
+      @status = execute("checkout", nil, @config[:scm, :url])
+    end
+  end
+
+  def has_changes?
+    @status =~ /[A-Z]\s+[\w\/]+/ ? true : false
+  end
+
+  def current_revision
+    info['Revision'].to_i
+  end
+
+  def url
+    info['URL']
+  end
+
+  def last_commit_message
+    message = execute("log", "--limit 1 -v")
+    #strip first line that contains command line itself (svn log --limit ...)
+    if (idx = message.index('-'*72))
+      message[idx..-1]
+    else
+      message
+    end
+  end
+
+  def last_author
+    info['Last Changed Author']
+  end
+
+  private
+  def locked?
+    execute("st") =~ /^..L/
+  end
+
+  def info
+    unless @info
+      output = execute("info")
+      @info = YAML.load(output)
+
+      if not @info.is_a?(Hash) or @info['Repository UUID'].nil? #.size > 8
+        say "Could not parse svn output. Seems source directory #{@encoded_path} is corrupted.\n#{output}"
+      end
+    end
+    @info
+  end
+    
+  def execute(command, parameters = nil, pre_parameters = nil)
+    `#{@config[:bin_path]}svn #{command} #{auth_options()} #{pre_parameters} #{@encoded_path} #{parameters}`
+  end
+
+  def auth_options
+    auth = []
+    auth << "--username #{@config[:scm, :user_name]}" if @config[:scm, :user_name]
+    auth << "--password #{@config[:scm, :password]}" if @config[:scm, :password]
+
+    auth.join(' ')
+  end
+end