redcar 0.3.2dev → 0.3.3

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project.rb

@@ -0,0 +1,4 @@
+require 'meta_project/project/base'
+require 'meta_project/project/xforge'
+require 'meta_project/project/trac'
+require 'meta_project/project/codehaus'

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project/base.rb

@@ -0,0 +1,9 @@
+module MetaProject
+  module Project
+    class Base
+      attr_reader :scm, :scm_web, :tracker, :name, :home_page
+    end
+    
+    class ProjectException < Exception; end
+  end
+end

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project/codehaus.rb

@@ -0,0 +1 @@
+require 'meta_project/project/codehaus/codehaus_project_svn'

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project/codehaus/codehaus_project_svn.rb

@@ -0,0 +1,31 @@
+module MetaProject
+  module Project
+    module Codehaus
+      class CodehausProjectSvn < Base
+
+        def initialize(unix_name, svn_path, jira_id)
+          @unix_name = unix_name
+          @name = unix_name
+          @scm = RSCM::Subversion.new("svn://svn.#{unix_name}.codehaus.org/#{unix_name}/scm/#{svn_path}", svn_path)
+          @tracker = ::MetaProject::Tracker::Jira::JiraTracker.new("http://jira.codehaus.org", jira_id)
+
+          dir       = "http://svn.#{unix_name}.codehaus.org/#{svn_path}/\#{path}"
+          history   = dir
+          raw       = "#{history}?rev=\#{revision}"
+          html      = "#{raw}&view=markup"
+          # http://svn.picocontainer.codehaus.org/java/picocontainer/trunk/container/project.xml?r1=2220&r2=2234&p1=java/picocontainer/trunk/container/project.xml&p2=java/picocontainer/trunk/container/project.xml
+          diff      = "#{history}?r1=\#{previous_revision}&r2=\#{revision}&p1=#{svn_path}/\#{path}&p2=#{svn_path}/\#{path}"
+          child_dirs_pattern = /<a name="([^"]+)" href="([^"]+)">[\r\n\s]+<img src="\/icons\/small\/dir.gif"/
+          child_files_pattern = /<a href="[^"]+\/([^\?]+)\?rev=([\d]+)&view=auto">/
+
+          @scm_web = ScmWeb::Browser.new(dir, history, raw, html, diff, child_dirs_pattern, child_files_pattern)
+        end
+
+        def home_page
+          "http://#{@unix_name}.codehaus.org/"
+        end
+
+      end
+    end
+  end
+end

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project/trac.rb

@@ -0,0 +1 @@
+require 'meta_project/project/trac/trac_project'

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project/trac/trac_project.rb

@@ -0,0 +1,54 @@
+module MetaProject
+  module Project
+    module Trac
+      class TracProject < Base
+
+        def initialize(trac_base_url, svn_root_url, svn_path)
+          @trac_base_url = trac_base_url
+          @svn_path = svn_path
+          @scm = RSCM::Subversion.new("#{svn_root_url}#{svn_path}", svn_path)
+          @tracker = ::MetaProject::Tracker::Trac::TracTracker.new(@trac_base_url)
+        end
+        
+        TRAC_VERSION_PATTERN = /<strong>Trac ([\d\.]+)[^<]*<\/strong>/
+        
+        def scm_web
+          unless @scm_web
+
+            front_page = better_open(@trac_base_url).read
+            if(front_page =~ TRAC_VERSION_PATTERN)
+              version = $1
+              # If there is no minor version part, add 0
+              version = "#{version}.0" if version =~ /^[\d]+\.[\d]+$/              
+              version = version.gsub(/\./, "").to_i
+              if(version >= 90)
+                html      = "#{@trac_base_url}/browser/#{@svn_path}/\#{path}?rev=\#{revision}"
+                raw       = "#{@trac_base_url}/browser/#{@svn_path}/\#{path}?rev=\#{revision}&format=txt"
+              else
+                html      = "#{@trac_base_url}/file/#{@svn_path}/\#{path}?rev=\#{revision}"
+                raw       = "#{@trac_base_url}/file/#{@svn_path}/\#{path}?rev=\#{revision}&format=txt"
+              end
+
+              dir                 = "#{@trac_base_url}/browser/#{@svn_path}/\#{path}"
+              history             = "#{@trac_base_url}/log/#{@svn_path}/\#{path}"
+              diff                = "#{@trac_base_url}/changeset/\#{revision}"
+              child_dirs_pattern  = /title="Browse Directory" href="[^"]+">([^<]+)<\/a>/
+              child_files_pattern = /title="View File" href="[^"]+">([^<]+)<\/a>/
+
+              @scm_web = ScmWeb::Browser.new(dir, history, raw, html, diff, child_dirs_pattern, child_files_pattern)
+            else
+              raise ProjectException.new("Couldn't determine the Trac version. Is the URL '#{@trac_base_url}' correct? I was looking for the regexp /#{TRAC_VERSION_PATTERN.source}/ on the page, but couldn't find it.")
+            end
+          end
+
+          @scm_web
+        end
+        
+        def home_page
+          "#{@trac_base_url}/wiki"
+        end
+
+      end
+    end
+  end
+end

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project/xforge.rb

@@ -0,0 +1,5 @@
+require 'meta_project/project/xforge/xforge_base'
+require 'meta_project/project/xforge/session'
+require 'meta_project/project/xforge/xfile'
+require 'meta_project/project/xforge/ruby_forge'
+require 'meta_project/project/xforge/source_forge'

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project/xforge/ruby_forge.rb

@@ -0,0 +1,47 @@
+module MetaProject
+  module Project
+    module XForge
+      class RubyForge < XForgeBase
+
+        def initialize(unix_name, cvs_mod=nil)
+          super("rubyforge.org", unix_name, cvs_mod)
+        end
+
+        def tracker_class
+          ::MetaProject::Tracker::XForge::RubyForgeTracker
+        end
+
+      protected
+
+        def create_cvs(unix_name, mod)
+          RSCM::Cvs.new(":pserver:anonymous@rubyforge.org:/var/cvs/#{unix_name}", mod)
+        end
+
+        def create_view_cvs(unix_name, mod)
+          view_cvs = "http://rubyforge.org/cgi-bin/viewcvs.cgi/"
+          cvsroot = "?cvsroot=#{unix_name}"
+          path_cvs_root = "#{mod}/\#{path}#{cvsroot}"
+          path_cvs_root_rev = "#{path_cvs_root}&rev=\#{revision}"
+
+          dir      = "#{view_cvs}#{path_cvs_root}"
+          history  = "#{view_cvs}#{path_cvs_root}"
+          raw      = "#{view_cvs}*checkout*/#{path_cvs_root_rev}"
+          html     = "#{view_cvs}#{path_cvs_root_rev}&content-type=text/vnd.viewcvs-markup"
+          diff     = "#{view_cvs}#{mod}/\#{path}.diff#{cvsroot}&r1=\#{previous_revision}&r2=\#{revision}"
+
+          child_dirs_pattern = /href="([^\?]*)\/\?cvsroot=#{unix_name}">/
+          child_files_pattern = /href="([^\?^\/]*)\?cvsroot=#{unix_name}">/
+
+          ScmWeb::Browser.new(dir, history, raw, html, diff, child_dirs_pattern, child_files_pattern)
+        end
+        
+        # Regexp used to find projects' home page
+        def home_page_regexp
+          # This seems a little volatile
+          /<a href=\"(\w*:\/\/[^\"]*)\"><img src=\"\/themes\/osx\/images\/ic\/home/
+        end        
+
+      end
+    end
+  end
+end

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project/xforge/session.rb

@@ -0,0 +1,177 @@
+module MetaProject
+  module Project
+    module XForge
+      # A Session object allows authenticated interaction with a Project,
+      # such as releasing files.
+      #
+      # A Session object can be obtained via Project.login
+      class Session
+        include HTTP::Multipart
+        
+        # Simple enumeration of processors. Used from Session.release.
+        class Processor
+          I386           = 1000
+          IA64           = 6000
+          ALPHA          = 7000
+          ANY            = 8000
+          PPC            = 2000
+          MIPS           = 3000
+          SPARC          = 4000
+          ULTRA_SPARC    = 5000
+          OTHER_PLATFORM = 9999
+        end
+
+        PACKAGE_ID_PATTERN  = %r{name="package_id"
+                                 \s+
+                                 value="([^"]+)"
+                                 .*?
+                                 name="package_name"
+                                 \s+
+                                 value="([^"]+)"}mxo #:nodoc:
+        
+        attr_reader :request_headers
+
+        def initialize(host, project, cookie) # :nodoc:
+          @host = host
+          @project = project
+          @request_headers = { "Cookie" => cookie }.merge(DEFAULT_POST_OPTIONS)
+        end
+
+        # This will get the +package_id+ for the project. This accepts an
+        # optional name of the package that will be searched for results. A
+        # given session will only work for one package.
+        def package_id(name = nil)
+          unless @package_id
+            release_uri = "http://#{@host}/frs/admin/?group_id=#{@project.group_id}"
+            release_data = better_open(release_uri, @request_headers).read
+            packages = release_data.scan(PACKAGE_ID_PATTERN)
+            first = packages[0][0]
+            packages = Hash[*packages.map { |el| el.reverse }.flatten]
+
+            if name
+              @package_id = packages[name]
+            else
+              @package_id = first
+            end
+            
+            unless @package_id
+              File.open("package_id.html", "w") {|io| io.write(release_data)}
+              raise "Couldn't get package_id from #{release_uri}. I was looking for /#{package_id_pattern.source}/. HTML saved to package_id.html for debugging." 
+            end
+          end
+          @package_id
+        end
+
+        # Creates a new release containing the files specified by
+        # +filenames+ (Array) and named +release_name+. Optional parameters
+        # are +processor+ (which should be one of the Processor constants),
+        # +release_notes+, +release_changes+ and +preformatted+ which will
+        # appear on the releas page of the associated project. The
+        # +package_name+ parameter will help choose from the possible
+        # multiple packages for a release.
+        # TODO: consider using a hash based signature with symbols. This is
+        # getting big!
+        def release(release_name, filenames, release_notes = "",
+                    release_changes = "", package_name = nil,
+                    preformatted = true, processor = Processor::ANY)
+          release_date = Time.now.strftime("%Y-%m-%d %H:%M")
+          release_id = nil
+
+          puts "About to release '#{release_name}'"
+          puts "Files:"
+          puts "  " + filenames.join("\n  ")
+          puts "\nRelease Notes:\n"
+          puts release_notes.split(/\n/)[0..10].join("\n")
+          puts "\nRelease Changes:\n"
+          puts release_changes.split(/\n/)[0..10].join("\n")
+          puts "\nRelease Settings:\n"
+          puts "Preformatted: #{preformatted}"
+          puts "Processor: #{processor}"
+          puts "\nStarting release..."
+
+          xfiles = filenames.collect{|filename| XFile.new(filename)}      
+          xfiles.each_with_index do |xfile, i|
+            first_file = (i == 0)
+            puts "Releasing #{xfile.basename}..."
+            release_response = Net::HTTP.start(@host, 80) do |http|
+              query_hash = if first_file then
+                {
+                  "group_id" => @project.group_id,
+                  "package_id" => package_id(package_name),
+                  "type_id" => xfile.bin_type_id,
+                  "processor_id" => processor,
+
+                  "release_name" => release_name,
+                  "release_date" => release_date,
+                  "release_notes" => release_notes,
+                  "release_changes" => release_changes,
+                  "preformatted" => preformatted ? "1" : "0",
+                  "submit" => "1"
+                }
+              else
+                {
+                  "group_id" => @project.group_id,
+                  "package_id" => package_id(package_name),
+                  "type_id" => xfile.bin_type_id,
+                  "processor_id" => processor,
+
+                  "step2" => "1",
+                  "release_id" => release_id,
+                  "submit" => "Add This File"
+                }
+              end
+
+              form = [
+                "--#{BOUNDARY}",
+                %Q(Content-Disposition: form-data; name="userfile"; ) +
+                  %Q(filename="#{xfile.basename}"),
+                "Content-Type: application/octet-stream",
+                "Content-Transfer-Encoding: binary",
+                "", xfile.data, ""
+              ]
+
+              data = post_data(form, query_hash)
+
+              headers = @request_headers.merge("Content-Type" => "multipart/form-data; boundary=#{BOUNDARY}")
+
+
+              target = first_file ? "/frs/admin/qrs.php" : "/frs/admin/editrelease.php"
+              http.post(target, data, headers)
+            end
+
+            if first_file then
+              release_id = release_response.body[/release_id=(\d+)/, 1]
+              raise("Couldn't get release id") unless release_id
+            end
+          end
+          puts "Done!"
+        end
+    
+        # Publish news relating to a project and a package.
+        def publish_news(subject, details)
+          puts "About to publish news"
+          puts "Subject: '#{subject}'"
+          puts "Details:"
+          puts details
+          puts ""
+      
+          release_response = Net::HTTP.start(@host, 80) do |http|
+            query_hash = {
+              "group_id" => @project.group_id,
+              "post_changes" => "y",
+              "summary" => subject,
+              "details" => details
+            }
+      
+            target = "/news/submit.php"
+            headers = @request_headers.merge("Content-Type" => "multipart/form-data; boundary=#{BOUNDARY}")
+
+            http.post(target, post_data(query_hash), headers)
+          end
+          puts "Done!"
+        end
+
+      end
+    end
+  end
+end

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project/xforge/source_forge.rb

@@ -0,0 +1,50 @@
+require 'meta_project/tracker/xforge'
+
+module MetaProject
+  module Project
+    module XForge
+      class SourceForge < XForgeBase
+
+        def initialize(unix_name, cvs_mod=nil)
+          super("sourceforge.net", unix_name, cvs_mod)
+        end
+
+        def tracker_class
+          ::MetaProject::Tracker::XForge::SourceForgeTracker
+        end
+
+      protected
+
+        def create_cvs(unix_name, mod)
+          RSCM::Cvs.new(":pserver:anonymous@cvs.sourceforge.net:/cvsroot/#{unix_name}", mod)
+        end
+
+        def create_view_cvs(unix_name, mod)
+          view_cvs = "http://cvs.sourceforge.net/viewcvs.py/"
+          unix_name_mod = "#{unix_name}/#{mod}"
+          project_path = "#{unix_name_mod}/\#{path}"
+          rev = "rev=\#{revision}"
+
+          dir      = "#{view_cvs}#{project_path}"
+          history  = "#{view_cvs}#{project_path}"
+          raw      = "#{view_cvs}*checkout*/#{project_path}?#{rev}"
+          html     = "#{history}?#{rev}&view=markup"
+          diff     = "#{history}?r1=\#{previous_revision}&r2=\#{revision}"
+
+
+          child_dirs_pattern = /<img src="\/icons\/small\/dir.gif"\s+alt="\(dir\)"\s+border=0\s+width=16\s+height=16>[\r\n\s]*([^\/]+)\/<\/a>/
+          child_files_pattern = /href="[^\?]+\/([^\?]+)\?rev=([^&]+)&view=log">/
+
+          ScmWeb::Browser.new(dir, history, raw, html, diff, child_dirs_pattern, child_files_pattern)
+        end
+
+        # Regexp used to find projects' home page
+        def home_page_regexp
+          # This seems a little volatile
+          /<A href=\"(\w*:\/\/[^\"]*)\">&nbsp;Project Home Page<\/A>/
+        end
+
+      end
+    end
+  end
+end

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project/xforge/xfile.rb

@@ -0,0 +1,45 @@
+module MetaProject
+  module Project
+    module XForge
+
+      class XFile # :nodoc:
+
+        # extension => [mime_type, rubyforge_bin_type_id, rubyforge_src_type_id]
+        FILE_TYPES = {
+          ".deb"  => ["application/octet-stream", 1000],
+
+          # all of these can be source or binary
+          ".rpm"  => ["application/octet-stream", 2000, 5100],
+          ".zip"  => ["application/octet-stream", 3000, 5000],
+          ".bz2"  => ["application/octet-stream", 3100, 5010],
+          ".gz"   => ["application/octet-stream", 3110, 5020],
+          ".jpg"  => ["application/octet-stream", 8000],
+          ".jpeg" => ["application/octet-stream", 8000],
+          ".txt"  => ["text/plain", 8100, 8100],
+          ".html" => ["text/html", 8200, 8200],
+          ".pdf"  => ["application/octet-stream", 8300],
+          ".ebuild"  => ["application/octet-stream", 1300],
+          ".exe"  => ["application/octet-stream", 1100],
+          ".dmg"  => ["application/octet-stream", 1200],
+          ".gem"  => ["application/octet-stream", 1400],
+          ".sig"  => ["application/octet-stream", 8150]
+        }
+        FILE_TYPES.default = ["application/octet-stream", 9999, 5900] # default to "other", "other source"
+
+        attr_reader :basename, :ext, :content_type, :bin_type_id, :src_type_id
+
+        def initialize(filename)
+          @filename = filename
+          @basename = File.basename(filename)
+          @ext = File.extname(filename)
+          @content_type = FILE_TYPES[@ext][0]
+          @bin_type_id = FILE_TYPES[@ext][1]
+        end
+
+        def data
+          File.open(@filename, "rb") { |file| file.read }
+        end
+      end
+    end
+  end
+end

data/lib/openssl/mocha/vendor/meta_project-0.4.15/lib/meta_project/project/xforge/xforge_base.rb

@@ -0,0 +1,85 @@
+module MetaProject
+  module Project
+    module XForge
+      class XForgeBase < Base
+
+        attr_reader :host, :unix_name
+
+        # TODO: hash based constructor (big now)
+        def initialize(host, unix_name, cvs_mod)
+          @host = host
+          @unix_name = unix_name
+          @name = unix_name
+          @cvs_mod = cvs_mod
+
+          @tracker = tracker_class.new(group_id_uri("tracker"), self)
+
+          unless(cvs_mod.nil?)
+            @scm = create_cvs(unix_name, @cvs_mod)
+            @scm_web = create_view_cvs(unix_name, @cvs_mod)
+          end
+        end
+
+        def to_yaml_properties
+          ["@host", "@unix_name"]
+        end
+
+        # Logs in and returns a Session
+        def login(user_name, password)
+          url = "/account/login.php"
+          data = [
+            "return_to=",
+            "login=Login",
+            "form_loginname=#{user_name}",
+            "form_pw=#{password}"
+          ].join("&")
+
+          http = Net::HTTP.new(@host, 80)
+          login_response, body = http.start do |http|
+            http.post(url, data, DEFAULT_POST_OPTIONS)
+          end
+
+          cookie = login_response["set-cookie"]
+          unless cookie
+            raise "Login failed.\nURL:#{url}\nParams:#{data}\nResponse:#{login_response.to_hash.inspect}"
+          end
+          Session.new(@host, self, cookie)
+        end
+
+        # The group_id of this project
+        def group_id
+          unless(@group_id)
+            html = better_open(xforge_project_url).read
+            group_id_pattern = /project\/memberlist.php\?group_id=(\d+)/
+            @group_id = html[group_id_pattern, 1]
+            raise "Couldn't get group_id from #{xforge_project_url}. I was looking for /#{group_id_pattern.source}/" unless @group_id
+          end
+          @group_id
+        end
+
+        def xforge_project_url
+          "http://#{@host}/projects/#{@unix_name}/"
+        end
+
+        def group_id_uri(path, postfix="")
+          "http://#{@host}/#{path}/?group_id=#{group_id}#{postfix}"
+        end
+
+        # The home page of this project
+        def home_page
+          unless(@home_page)
+            html = better_open(xforge_project_url).read
+            @home_page = html[home_page_regexp, 1]
+            unless @home_page
+              STDERR.puts "WARNING: Couldn't get home_page from #{xforge_project_url}. I was looking for /#{home_page_regexp.source}/"
+              STDERR.puts "Will use #{xforge_project_url} as home page instead."
+              @home_page = xforge_project_url
+            end
+          end
+          @home_page
+        end
+
+      end
+    end
+  end
+end