Redmine

# redMine - project management software

# Copyright (C) 2006-2007  Jean-Philippe Lang

#

# This program is free software; you can redistribute it and/or

# modify it under the terms of the GNU General Public License

# as published by the Free Software Foundation; either version 2

# of the License, or (at your option) any later version.

# 

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# 

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

require 'redmine/scm/adapters/visual_source_safe_adapter'

require 'redmine/scm/adapters/abstract_adapter'

class Repository::VisualSourceSafe < Repository

  attr_protected :root_url

  validates_presence_of :url

  validates_format_of :url, :with => /^.*srcsafe\.ini/i

  def scm_adapter

    Redmine::Scm::Adapters::VisualSourceSafeAdapter

  end

  def self.scm_name

    'VisualSourceSafe'

  end

  def fetch_changesets

	#use like CVS

    #not the preferred way with CVS. maybe we should introduce always a cron-job for this

    last_commit = changesets.maximum(:committed_on)

    # some nifty bits to introduce a commit-id with cvs

    # natively cvs doesn't provide any kind of changesets, there is only a revision per file.

    # we now take a guess using the author, the commitlog and the commit-date.

    # last one is the next step to take. the commit-date is not equal for all 

    # commits in one changeset. cvs update the commit-date when the *,v file was touched. so

    # we use a small delta here, to merge all changes belonging to _one_ changeset

    #time_delta=10.seconds

    time_delta=10.seconds

    revisions = nil

    transaction do

      revisions = scm.revisions('', last_commit, nil, :with_paths => true)

      revisions.each do |revision|

        # only add the change to the database, if it doen't exists. the cvs log

        # is not exclusive at all. 

        cs1 = changes.find_by_path_and_revision(scm.with_leading_slash(revision.paths[0][:path]), revision.paths[0][:revision])

        unless cs1

          revision

          cs=Changeset.find(:first, :conditions=>{

            :committed_on=>revision.time-time_delta..revision.time+time_delta,

            :committer=>revision.author,

            :comments=>revision.message

          })

          # create a new changeset.... 

          unless cs 

            # we use a negative changeset-number here (just for inserting)

            # later on, we calculate a continous positive number

            next_rev = changesets.minimum(:revision)            

            next_rev = 0 if next_rev.nil? or next_rev > 0 

            next_rev = next_rev - 1

            cs=Changeset.create(:repository => self,

            :revision => next_rev, 

            :committer => revision.author, 

            :committed_on => revision.time,

            :comments => revision.message)

          end

          #convert CVS-File-States to internal Action-abbrevations

          #default action is (M)odified

          action="M"

#          if revision.paths[0][:action]=="Exp" && revision.paths[0][:revision]=="1.1"

#            action="A" #add-action always at first revision (= 1.1)

#          elsif revision.paths[0][:action]=="dead"

#            action="D" #dead-state is similar to Delete

#          end

          act = revision.paths[0][:action]

          #need check only 'Added' or 'Created' or 'Deleted'

		  if /^Added/ =~ act or /^Created/ =~ act or /^Recovered/ =~ act or /^Shared/ =~ act

		    action="A"

		  elsif /^Deleted/ =~ act

		    action="D"

		  end

         Change.create(:changeset => cs,

          :action => action,

          :path => scm.with_leading_slash(revision.paths[0][:path]),

          :revision => revision.paths[0][:revision],

          :branch => revision.paths[0][:branch]

          )

        end

      end

      next_rev = [changesets.maximum(:revision) || 0, 0].max

      changesets.find(:all, :conditions=>["revision < 0"], :order=>"committed_on ASC").each() do |changeset|

        next_rev = next_rev + 1

        changeset.revision = next_rev

        changeset.save!

      end

    end

  end

  def diff(path, rev, rev_to, type2)

    #convert rev to revision. CVS can't handle changesets here

    diffx = Redmine::Scm::Adapters::DiffTableList.new([], type2)

    changeset_from=changesets.find_by_revision(rev)

    if rev_to.to_i > 0 

      changeset_to=changesets.find_by_revision(rev_to)

    end

    changeset_from.changes.each() do |change_from|

      revision_from=nil

      revision_to=nil      

      revision_from=change_from.revision if path.nil? || (change_from.path.starts_with? scm.with_leading_slash(path))

      if revision_from

        if changeset_to

          changeset_to.changes.each() do |change_to|

            revision_to=change_to.revision if change_to.path==change_from.path 

          end

        end

        unless revision_to

          revision_to=scm.get_previous_revision(change_from.path, revision_from)

        end

        diff2 = scm.diff(change_from.path, revision_from, revision_to, type2)

        diffx=diff2 if diff2

      end

    end

    return diffx

  end

end