Chris@0
|
1 # redMine - project management software
|
Chris@0
|
2 # Copyright (C) 2006-2007 Jean-Philippe Lang
|
Chris@0
|
3 #
|
Chris@0
|
4 # This program is free software; you can redistribute it and/or
|
Chris@0
|
5 # modify it under the terms of the GNU General Public License
|
Chris@0
|
6 # as published by the Free Software Foundation; either version 2
|
Chris@0
|
7 # of the License, or (at your option) any later version.
|
Chris@0
|
8 #
|
Chris@0
|
9 # This program is distributed in the hope that it will be useful,
|
Chris@0
|
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
|
Chris@0
|
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
Chris@0
|
12 # GNU General Public License for more details.
|
Chris@0
|
13 #
|
Chris@0
|
14 # You should have received a copy of the GNU General Public License
|
Chris@0
|
15 # along with this program; if not, write to the Free Software
|
Chris@0
|
16 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
Chris@0
|
17
|
Chris@0
|
18 require 'redmine/scm/adapters/subversion_adapter'
|
Chris@0
|
19
|
Chris@0
|
20 class Repository::Subversion < Repository
|
Chris@0
|
21 attr_protected :root_url
|
Chris@0
|
22 validates_presence_of :url
|
Chris@0
|
23 validates_format_of :url, :with => /^(http|https|svn(\+[^\s:\/\\]+)?|file):\/\/.+/i
|
Chris@0
|
24
|
Chris@0
|
25 def scm_adapter
|
Chris@0
|
26 Redmine::Scm::Adapters::SubversionAdapter
|
Chris@0
|
27 end
|
Chris@0
|
28
|
Chris@0
|
29 def self.scm_name
|
Chris@0
|
30 'Subversion'
|
Chris@0
|
31 end
|
Chris@0
|
32
|
Chris@0
|
33 def latest_changesets(path, rev, limit=10)
|
Chris@0
|
34 revisions = scm.revisions(path, rev, nil, :limit => limit)
|
Chris@0
|
35 revisions ? changesets.find_all_by_revision(revisions.collect(&:identifier), :order => "committed_on DESC", :include => :user) : []
|
Chris@0
|
36 end
|
Chris@0
|
37
|
Chris@0
|
38 # Returns a path relative to the url of the repository
|
Chris@0
|
39 def relative_path(path)
|
Chris@0
|
40 path.gsub(Regexp.new("^\/?#{Regexp.escape(relative_url)}"), '')
|
Chris@0
|
41 end
|
Chris@0
|
42
|
Chris@0
|
43 def fetch_changesets
|
Chris@0
|
44 scm_info = scm.info
|
Chris@0
|
45 if scm_info
|
Chris@0
|
46 # latest revision found in database
|
Chris@0
|
47 db_revision = latest_changeset ? latest_changeset.revision.to_i : 0
|
Chris@0
|
48 # latest revision in the repository
|
Chris@0
|
49 scm_revision = scm_info.lastrev.identifier.to_i
|
Chris@0
|
50 if db_revision < scm_revision
|
Chris@0
|
51 logger.debug "Fetching changesets for repository #{url}" if logger && logger.debug?
|
Chris@0
|
52 identifier_from = db_revision + 1
|
Chris@0
|
53 while (identifier_from <= scm_revision)
|
Chris@0
|
54 # loads changesets by batches of 200
|
Chris@0
|
55 identifier_to = [identifier_from + 199, scm_revision].min
|
Chris@0
|
56 revisions = scm.revisions('', identifier_to, identifier_from, :with_paths => true)
|
Chris@0
|
57 revisions.reverse_each do |revision|
|
Chris@0
|
58 transaction do
|
Chris@0
|
59 changeset = Changeset.create(:repository => self,
|
Chris@0
|
60 :revision => revision.identifier,
|
Chris@0
|
61 :committer => revision.author,
|
Chris@0
|
62 :committed_on => revision.time,
|
Chris@0
|
63 :comments => revision.message)
|
Chris@0
|
64
|
Chris@0
|
65 revision.paths.each do |change|
|
Chris@0
|
66 changeset.create_change(change)
|
Chris@0
|
67 end unless changeset.new_record?
|
Chris@0
|
68 end
|
Chris@0
|
69 end unless revisions.nil?
|
Chris@0
|
70 identifier_from = identifier_to + 1
|
Chris@0
|
71 end
|
Chris@0
|
72 end
|
Chris@0
|
73 end
|
Chris@0
|
74 end
|
Chris@0
|
75
|
Chris@0
|
76 private
|
Chris@0
|
77
|
Chris@0
|
78 # Returns the relative url of the repository
|
Chris@0
|
79 # Eg: root_url = file:///var/svn/foo
|
Chris@0
|
80 # url = file:///var/svn/foo/bar
|
Chris@0
|
81 # => returns /bar
|
Chris@0
|
82 def relative_url
|
Chris@0
|
83 @relative_url ||= url.gsub(Regexp.new("^#{Regexp.escape(root_url || scm.root_url)}", Regexp::IGNORECASE), '')
|
Chris@0
|
84 end
|
Chris@0
|
85 end
|