lib/vclog/adapters/svn.rb in vclog-1.7.0 vs lib/vclog/adapters/svn.rb in vclog-1.8.0

@@ -126,9 +126,23 @@
     def uuid
       info['Repository UUID']
     end
 
     #
+    def tag(ref, label, date, message)
+      mfile = Tempfile.new("message")
+      mfile.open{ |f| f << message }
+
+      Dir.chdir(root) do
+        cmd = %[svn copy -r #{ref} -F "#{mfile.path}" . #{tag_directory}/#{label}]
+        puts cmd if $DEBUG
+        `#{cmd}` unless $DRYRUN
+      end
+    end
+
+    private
+
+    #
     def info
       @info ||= YAML.load(`svn info`.strip)
     end
 
   end