Chris@1517: # Redmine - project management software
Chris@1517: # Copyright (C) 2006-2014  Jean-Philippe Lang
Chris@1517: #
Chris@1517: # This program is free software; you can redistribute it and/or
Chris@1517: # modify it under the terms of the GNU General Public License
Chris@1517: # as published by the Free Software Foundation; either version 2
Chris@1517: # of the License, or (at your option) any later version.
Chris@1517: #
Chris@1517: # This program is distributed in the hope that it will be useful,
Chris@1517: # but WITHOUT ANY WARRANTY; without even the implied warranty of
Chris@1517: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Chris@1517: # GNU General Public License for more details.
Chris@1517: #
Chris@1517: # You should have received a copy of the GNU General Public License
Chris@1517: # along with this program; if not, write to the Free Software
Chris@1517: # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
Chris@1517: 
Chris@1517: require 'redmine/scm/adapters/cvs_adapter'
Chris@1517: require 'digest/sha1'
Chris@1517: 
Chris@1517: class Repository::Cvs < Repository
Chris@1517:   validates_presence_of :url, :root_url, :log_encoding
Chris@1517: 
Chris@1517:   safe_attributes 'root_url',
Chris@1517:     :if => lambda {|repository, user| repository.new_record?}
Chris@1517: 
Chris@1517:   def self.human_attribute_name(attribute_key_name, *args)
Chris@1517:     attr_name = attribute_key_name.to_s
Chris@1517:     if attr_name == "root_url"
Chris@1517:       attr_name = "cvsroot"
Chris@1517:     elsif attr_name == "url"
Chris@1517:       attr_name = "cvs_module"
Chris@1517:     end
Chris@1517:     super(attr_name, *args)
Chris@1517:   end
Chris@1517: 
Chris@1517:   def self.scm_adapter_class
Chris@1517:     Redmine::Scm::Adapters::CvsAdapter
Chris@1517:   end
Chris@1517: 
Chris@1517:   def self.scm_name
Chris@1517:     'CVS'
Chris@1517:   end
Chris@1517: 
Chris@1517:   def entry(path=nil, identifier=nil)
Chris@1517:     rev = identifier.nil? ? nil : changesets.find_by_revision(identifier)
Chris@1517:     scm.entry(path, rev.nil? ? nil : rev.committed_on)
Chris@1517:   end
Chris@1517: 
Chris@1517:   def scm_entries(path=nil, identifier=nil)
Chris@1517:     rev = nil
Chris@1517:     if ! identifier.nil?
Chris@1517:       rev = changesets.find_by_revision(identifier)
Chris@1517:       return nil if rev.nil?
Chris@1517:     end
Chris@1517:     entries = scm.entries(path, rev.nil? ? nil : rev.committed_on)
Chris@1517:     if entries
Chris@1517:       entries.each() do |entry|
Chris@1517:         if ( ! entry.lastrev.nil? ) && ( ! entry.lastrev.revision.nil? )
Chris@1517:           change = filechanges.find_by_revision_and_path(
Chris@1517:                      entry.lastrev.revision,
Chris@1517:                      scm.with_leading_slash(entry.path) )
Chris@1517:           if change
Chris@1517:             entry.lastrev.identifier = change.changeset.revision
Chris@1517:             entry.lastrev.revision   = change.changeset.revision
Chris@1517:             entry.lastrev.author     = change.changeset.committer
Chris@1517:             # entry.lastrev.branch     = change.branch
Chris@1517:           end
Chris@1517:         end
Chris@1517:       end
Chris@1517:     end
Chris@1517:     entries
Chris@1517:   end
Chris@1517:   protected :scm_entries
Chris@1517: 
Chris@1517:   def cat(path, identifier=nil)
Chris@1517:     rev = nil
Chris@1517:     if ! identifier.nil?
Chris@1517:       rev = changesets.find_by_revision(identifier)
Chris@1517:       return nil if rev.nil?
Chris@1517:     end
Chris@1517:     scm.cat(path, rev.nil? ? nil : rev.committed_on)
Chris@1517:   end
Chris@1517: 
Chris@1517:   def annotate(path, identifier=nil)
Chris@1517:     rev = nil
Chris@1517:     if ! identifier.nil?
Chris@1517:       rev = changesets.find_by_revision(identifier)
Chris@1517:       return nil if rev.nil?
Chris@1517:     end
Chris@1517:     scm.annotate(path, rev.nil? ? nil : rev.committed_on)
Chris@1517:   end
Chris@1517: 
Chris@1517:   def diff(path, rev, rev_to)
Chris@1517:     # convert rev to revision. CVS can't handle changesets here
Chris@1517:     diff=[]
Chris@1517:     changeset_from = changesets.find_by_revision(rev)
Chris@1517:     if rev_to.to_i > 0
Chris@1517:       changeset_to = changesets.find_by_revision(rev_to)
Chris@1517:     end
Chris@1517:     changeset_from.filechanges.each() do |change_from|
Chris@1517:       revision_from = nil
Chris@1517:       revision_to   = nil
Chris@1517:       if path.nil? || (change_from.path.starts_with? scm.with_leading_slash(path))
Chris@1517:         revision_from = change_from.revision
Chris@1517:       end
Chris@1517:       if revision_from
Chris@1517:         if changeset_to
Chris@1517:           changeset_to.filechanges.each() do |change_to|
Chris@1517:             revision_to = change_to.revision if change_to.path == change_from.path
Chris@1517:           end
Chris@1517:         end
Chris@1517:         unless revision_to
Chris@1517:           revision_to = scm.get_previous_revision(revision_from)
Chris@1517:         end
Chris@1517:         file_diff = scm.diff(change_from.path, revision_from, revision_to)
Chris@1517:         diff = diff + file_diff unless file_diff.nil?
Chris@1517:       end
Chris@1517:     end
Chris@1517:     return diff
Chris@1517:   end
Chris@1517: 
Chris@1517:   def fetch_changesets
Chris@1517:     # some nifty bits to introduce a commit-id with cvs
Chris@1517:     # natively cvs doesn't provide any kind of changesets,
Chris@1517:     # there is only a revision per file.
Chris@1517:     # we now take a guess using the author, the commitlog and the commit-date.
Chris@1517: 
Chris@1517:     # last one is the next step to take. the commit-date is not equal for all
Chris@1517:     # commits in one changeset. cvs update the commit-date when the *,v file was touched. so
Chris@1517:     # we use a small delta here, to merge all changes belonging to _one_ changeset
Chris@1517:     time_delta  = 10.seconds
Chris@1517:     fetch_since = latest_changeset ? latest_changeset.committed_on : nil
Chris@1517:     transaction do
Chris@1517:       tmp_rev_num = 1
Chris@1517:       scm.revisions('', fetch_since, nil, :log_encoding => repo_log_encoding) do |revision|
Chris@1517:         # only add the change to the database, if it doen't exists. the cvs log
Chris@1517:         # is not exclusive at all.
Chris@1517:         tmp_time = revision.time.clone
Chris@1517:         unless filechanges.find_by_path_and_revision(
Chris@1517: 	                         scm.with_leading_slash(revision.paths[0][:path]),
Chris@1517: 	                         revision.paths[0][:revision]
Chris@1517: 	                           )
Chris@1517:           cmt = Changeset.normalize_comments(revision.message, repo_log_encoding)
Chris@1517:           author_utf8 = Changeset.to_utf8(revision.author, repo_log_encoding)
Chris@1517:           cs  = changesets.where(
Chris@1517:                   :committed_on => tmp_time - time_delta .. tmp_time + time_delta,
Chris@1517:                   :committer    => author_utf8,
Chris@1517:                   :comments     => cmt
Chris@1517:                 ).first
Chris@1517:           # create a new changeset....
Chris@1517:           unless cs
Chris@1517:             # we use a temporaray revision number here (just for inserting)
Chris@1517:             # later on, we calculate a continous positive number
Chris@1517:             tmp_time2 = tmp_time.clone.gmtime
Chris@1517:             branch    = revision.paths[0][:branch]
Chris@1517:             scmid     = branch + "-" + tmp_time2.strftime("%Y%m%d-%H%M%S")
Chris@1517:             cs = Changeset.create(:repository   => self,
Chris@1517:                                   :revision     => "tmp#{tmp_rev_num}",
Chris@1517:                                   :scmid        => scmid,
Chris@1517:                                   :committer    => revision.author,
Chris@1517:                                   :committed_on => tmp_time,
Chris@1517:                                   :comments     => revision.message)
Chris@1517:             tmp_rev_num += 1
Chris@1517:           end
Chris@1517:           # convert CVS-File-States to internal Action-abbrevations
Chris@1517:           # default action is (M)odified
Chris@1517:           action = "M"
Chris@1517:           if revision.paths[0][:action] == "Exp" && revision.paths[0][:revision] == "1.1"
Chris@1517:             action = "A" # add-action always at first revision (= 1.1)
Chris@1517:           elsif revision.paths[0][:action] == "dead"
Chris@1517:             action = "D" # dead-state is similar to Delete
Chris@1517:           end
Chris@1517:           Change.create(
Chris@1517:              :changeset => cs,
Chris@1517:              :action    => action,
Chris@1517:              :path      => scm.with_leading_slash(revision.paths[0][:path]),
Chris@1517:              :revision  => revision.paths[0][:revision],
Chris@1517:              :branch    => revision.paths[0][:branch]
Chris@1517:               )
Chris@1517:         end
Chris@1517:       end
Chris@1517: 
Chris@1517:       # Renumber new changesets in chronological order
Chris@1517:       Changeset.
Chris@1517:         order('committed_on ASC, id ASC').
Chris@1517:         where("repository_id = ? AND revision LIKE 'tmp%'", id).
Chris@1517:         each do |changeset|
Chris@1517:           changeset.update_attribute :revision, next_revision_number
Chris@1517:       end
Chris@1517:     end # transaction
Chris@1517:     @current_revision_number = nil
Chris@1517:   end
Chris@1517: 
Chris@1517:   private
Chris@1517: 
Chris@1517:   # Returns the next revision number to assign to a CVS changeset
Chris@1517:   def next_revision_number
Chris@1517:     # Need to retrieve existing revision numbers to sort them as integers
Chris@1517:     sql = "SELECT revision FROM #{Changeset.table_name} "
Chris@1517:     sql << "WHERE repository_id = #{id} AND revision NOT LIKE 'tmp%'"
Chris@1517:     @current_revision_number ||= (connection.select_values(sql).collect(&:to_i).max || 0)
Chris@1517:     @current_revision_number += 1
Chris@1517:   end
Chris@1517: end