meta_project 0.4.12 → 0.4.13

data/lib/meta_project/project/xforge/source_forge.rb

@@ -1,50 +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
+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/meta_project/project/xforge/xfile.rb

@@ -1,45 +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
+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/meta_project/project/xforge/xforge_base.rb

@@ -1,81 +1,81 @@
-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)
-          http = Net::HTTP.new(@host, 80)
-
-          login_response = http.start do |http|
-            data = [
-              "login=1",
-              "form_loginname=#{user_name}",
-              "form_pw=#{password}"
-            ].join("&")
-            http.post("/account/login.php", data)
-          end
-
-          cookie = login_response["set-cookie"]
-          raise "Login failed" unless cookie
-          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
+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)
+          http = Net::HTTP.new(@host, 80)
+
+          login_response = http.start do |http|
+            data = [
+              "login=1",
+              "form_loginname=#{user_name}",
+              "form_pw=#{password}"
+            ].join("&")
+            http.post("/account/login.php", data)
+          end
+
+          cookie = login_response["set-cookie"]
+          raise "Login failed" unless cookie
+          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

data/lib/meta_project/project_analyzer.rb

@@ -1,36 +1,36 @@
-module MetaProject
-  module ProjectAnalyzer
-    # Creates a project from an scm web url. The project has a +tracker+, +scm+ and +scm_web+.
-    def project_from_scm_web(url, options=nil)
-      # RubyForge
-      if(url =~ /http:\/\/rubyforge.org\/cgi-bin\/viewcvs.cgi\/(.*)[\/]?\?cvsroot=(.*)/)
-        unix_name = $2
-        mod = $1[-1..-1] == "/" ? $1[0..-2] : $1
-        return Project::XForge::RubyForge.new(unix_name, mod)
-      end
-
-      # SourceForge
-      if(url =~ /http:\/\/cvs.sourceforge.net\/viewcvs.py\/([^\/]*)\/(.*)/)
-        unix_name = $1
-        mod = $2[-1..-1] == "/" ? $2[0..-2] : $2
-        return Project::XForge::SourceForge.new(unix_name, mod)
-      end
-
-      # Trac
-      if(url =~ /(http:\/\/.*)\/browser\/(.*)/)
-        trac_base_url = $1
-        svn_path = $2[-1..-1] == "/" ? $2[0..-2] : $2
-        return Project::Trac::TracProject.new(trac_base_url, options[:trac_svn_root_url], svn_path)
-      end
-      
-      # Codehaus SVN
-      if(url =~ /http:\/\/svn.(.*).codehaus.org\/(.*)/)
-        unix_name = $1
-        svn_path = $2[-1..-1] == "/" ? $2[0..-2] : $2
-        return Project::Codehaus::CodehausProjectSvn.new(unix_name, svn_path, options[:jira_project_id])
-      end
-
-    end
-    
-  end
+module MetaProject
+  module ProjectAnalyzer
+    # Creates a project from an scm web url. The project has a +tracker+, +scm+ and +scm_web+.
+    def project_from_scm_web(url, options=nil)
+      # RubyForge
+      if(url =~ /http:\/\/rubyforge.org\/cgi-bin\/viewcvs.cgi\/(.*)[\/]?\?cvsroot=(.*)/)
+        unix_name = $2
+        mod = $1[-1..-1] == "/" ? $1[0..-2] : $1
+        return Project::XForge::RubyForge.new(unix_name, mod)
+      end
+
+      # SourceForge
+      if(url =~ /http:\/\/cvs.sourceforge.net\/viewcvs.py\/([^\/]*)\/(.*)/)
+        unix_name = $1
+        mod = $2[-1..-1] == "/" ? $2[0..-2] : $2
+        return Project::XForge::SourceForge.new(unix_name, mod)
+      end
+
+      # Trac
+      if(url =~ /(http:\/\/.*)\/browser\/(.*)/)
+        trac_base_url = $1
+        svn_path = $2[-1..-1] == "/" ? $2[0..-2] : $2
+        return Project::Trac::TracProject.new(trac_base_url, options[:trac_svn_root_url], svn_path)
+      end
+      
+      # Codehaus SVN
+      if(url =~ /http:\/\/svn.(.*).codehaus.org\/(.*)/)
+        unix_name = $1
+        svn_path = $2[-1..-1] == "/" ? $2[0..-2] : $2
+        return Project::Codehaus::CodehausProjectSvn.new(unix_name, svn_path, options[:jira_project_id])
+      end
+
+    end
+    
+  end
 end

data/lib/meta_project/release/freshmeat.rb

@@ -1,267 +1,267 @@
-# Copyright (C) 2005 Thomas Leitner
-#
-# See LICENCE for details
-
-require "xmlrpc/client"
-require 'yaml'
-
-module DevTools
-
-  module Freshmeat
-
-    class FreshmeatException < StandardError; end
-
-    # Describes a freshmeat project.
-    class Project
-
-      # The short name of the project
-      attr_reader :shortName
-
-      # The full name of the project
-      attr_reader :fullName
-
-      # The status of the project (alpha, beta, ...)
-      attr_reader :status
-
-      # The current version string of the project
-      attr_reader :version
-
-      def initialize( shortName, fullName, status, version )
-        @shortName, @fullName, @status, @version = shortName, fullName, status, version
-      end
-
-      def to_s
-        "Project: short name = #{@shortName}, full name = #{@fullName}, status = #{@status}, version = #{@version}"
-      end
-
-    end
-
-    # Provides information about a release.
-    class ReleaseInfo
-
-      # Version string of release
-      attr_reader :version
-
-      # Change list of release
-      attr_reader :changes
-
-      # Release focus
-      attr_reader :release_focus
-
-      # True, if hidden from frontpage
-      attr_reader :hidden
-
-      # Returns a new ReleaseInfo object
-      def initialize( version, changes, release_focus, hidden )
-        @version, @changes, @release_focus, @hidden = version, changes, release_focus, hidden
-      end
-
-      def to_s
-        "ReleaseInfo: version = #{@version}, release focus = #{ReleaseFocusID::NAMES[@release_focus]}, hidden = #{hidden}\nChanges = #{@changes}"
-      end
-
-    end
-
-    # Holds all information about a release which should be published.
-    class Release
-
-      #Project name to submit a release for
-      attr_accessor :project_name
-
-      #Branch name to submit a release for
-      attr_accessor :branch_name
-
-      #Version string of new release
-      attr_accessor :version
-
-      #Changes list, no HTML, character limit 600 chars
-      attr_accessor :changes
-
-      #Release focus ID of new release
-      attr_accessor :release_focus
-
-      #Set to 'Y' if release is to be hidden from frontpage, everything else does not hide it
-      attr_accessor :hide_from_frontpage
-
-      #Optional: Branch license
-      attr_accessor :license
-
-      #Optional: Homepage
-      attr_accessor :url_homepage
-
-      #Optional: Tar/GZ
-      attr_accessor :url_tgz
-
-      #Optional: Tar/BZ2
-      attr_accessor :url_bz2
-
-      #Optional: Zip
-      attr_accessor :url_zip
-
-      #Optional: Changelog
-      attr_accessor :url_changelog
-
-      #Optional: RPM package
-      attr_accessor :url_rpm
-
-      #Optional: Debian package
-      attr_accessor :url_deb
-
-      #Optional: OS X package
-      attr_accessor :url_osx
-
-      #Optional: BSD Ports URL
-      attr_accessor :url_bsdport
-
-      #Optional: Purchase
-      attr_accessor :url_purchase
-
-      #Optional: CVS tree (cvsweb)
-      attr_accessor :url_cvs
-
-      #Optional: Mailing list archive
-      attr_accessor :url_list
-
-      #Optional: Mirror site
-      attr_accessor :url_mirror
-
-      #Optional: Demo site
-      attr_accessor :url_demo
-
-      def self.from_data( data=nil )
-        YAML::load( data )
-      end
-
-      def to_rpc_data
-        rpc_data = {}
-        instance_variables.each do |iv|
-          rpc_data[iv[1..-1]] = eval( iv )
-        end
-        rpc_data
-      end
-
-      def to_yaml_type
-        "!thomasleitner,2005/FreshmeatRelease"
-      end
-
-      YAML::add_domain_type( 'thomasleitner,2005', 'FreshmeatRelease' ) do |type, val|
-        YAML::object_maker( Release, val )
-      end
-
-    end
-
-    # Provides constants for all release focus ids
-    module ReleaseFocusID
-      NA                   = 0
-      INITIAL_ANNOUNCEMENT = 1
-      DOCUMENTATION        = 2
-      CODE_CLEANUP         = 3
-      MINOR_FEATURES       = 4
-      MAJOR_FEATURES       = 5
-      MINOR_BUGFIXES       = 6
-      MAJOR_BUGFIXES       = 7
-      MINOR_SECFIXES       = 8
-      MAJOR_SECFIXES       = 9
-
-      NAMES = {0=>'N/A',
-               1=>'Initial freshmeat announcement',
-               2=>'Documentation',
-               3=>'Code cleanup',
-               4=>'Minor feature enhancements',
-               5=>'Major feature enhancements',
-               6=>'Minor bugfixes',
-               7=>'Major bugfixes',
-               8=>'Minor security fixes',
-               9=>'Major security fixes'
-      }
-    end
-
-
-    # Provides access to the Freshmeat XML-RPC API via a nice interface.
-    # API reference at http://freshmeat.net/faq/view/49/
-    #
-    # Example:
-    #
-    #   fm = DevTools::FreshmeatService.new( username, password )
-    #   fm.get_project_list.each do |p|
-    #     puts p
-    #     branches = fm.get_branch_list( p.shortName )
-    #     puts branches.inspect
-    #     release = fm.get_release( p.shortName, branches[0], p.version )
-    #     puts release
-    #   end
-    #   puts fm.logout
-    class FreshmeatService
-
-      # The URL for the Freshmeat RPC service
-      RPCURL = 'http://freshmeat.net/xmlrpc/'
-
-      # The major version of the freshmeat API with which this library works
-      API_VERSION_MAJOR = '1'
-
-      # The minor version of the freshmeat API with which this library works
-      API_VERSION_MINOR = '03'
-
-      # Use +username+ and +password+ to log into Freshmeat service.
-      def initialize( username, password )
-        @session = XMLRPC::Client.new2( RPCURL )
-        ret = @session.call( :login, :username=>username, :password=>password )
-        @sid = ret['SID']
-        major, minor = ret['API Version'].split( '.' )
-        if major != API_VERSION_MAJOR or minor < API_VERSION_MINOR
-          raise FreshmeatException, 'Incompatible API versions'
-        end
-      end
-
-      # Returns all available licenses
-      def self.get_licenses
-        XMLRPC::Client.new2( RPCURL ).call( :fetch_available_licenses )
-      end
-
-      # Returns all available release focus types
-      def self.get_release_focus_types
-        XMLRPC::Client.new2( RPCURL ).call( :fetch_available_release_foci )
-      end
-
-      # Returns an array of Project objects which are assigned to the logged in user
-      def get_project_list
-        ret = @session.call( :fetch_project_list, :SID=>@sid )
-        ret.collect! {|p| Project.new( p['projectname_short'], p['projectname_full'], p['project_status'], p['project_version'] ) }
-      end
-
-      # Returns an array of branch names for the project +project+.
-      def get_branch_list( project )
-        @session.call( :fetch_branch_list, :SID=>@sid, :project_name=>project )
-      end
-
-      # Returns a ReleaseInfo object which has the information about the requested release.
-      def get_release( project, branch, version )
-        ret = @session.call( :fetch_release, :SID=>@sid, :project_name=>project, :branch_name=>branch, :version=>version )
-        releaseFocus = ret['release_focus'].split( ' - ' )[0].to_i
-        hidden = (ret['hide_from_frontpage'] == 'Y' )
-        ReleaseInfo.new( ret['version'], ret['changes'], releaseFocus, hidden )
-      end
-
-      # Publishes a new release of a project. The parameter +release+ has to be a Release object!
-      def publish_release( release )
-        ret = @session.call( :publish_release, {:SID=>@sid}.update( release.to_rpc_data ) )
-        ret['OK'] == 'submission successful'
-      end
-
-      # Withdraws the specified release.
-      def withdraw_release( project, branch, version )
-        ret = @session.call( :withdraw_release, :SID=>@sid, :project_name=>project, :branch_name=>branch, :version=>version )
-        ret['OK'] == 'Withdraw successful.'
-      end
-
-      # Logs out from the Freshmeat service.
-      def logout
-        ok, ret = @session.call2( :logout, :SID=>@sid )
-        ok && ret['OK'] == 'Logout successful.'
-      end
-
-    end
-
-  end
-
-end
+# Copyright (C) 2005 Thomas Leitner
+#
+# See LICENCE for details
+
+require "xmlrpc/client"
+require 'yaml'
+
+module DevTools
+
+  module Freshmeat
+
+    class FreshmeatException < StandardError; end
+
+    # Describes a freshmeat project.
+    class Project
+
+      # The short name of the project
+      attr_reader :shortName
+
+      # The full name of the project
+      attr_reader :fullName
+
+      # The status of the project (alpha, beta, ...)
+      attr_reader :status
+
+      # The current version string of the project
+      attr_reader :version
+
+      def initialize( shortName, fullName, status, version )
+        @shortName, @fullName, @status, @version = shortName, fullName, status, version
+      end
+
+      def to_s
+        "Project: short name = #{@shortName}, full name = #{@fullName}, status = #{@status}, version = #{@version}"
+      end
+
+    end
+
+    # Provides information about a release.
+    class ReleaseInfo
+
+      # Version string of release
+      attr_reader :version
+
+      # Change list of release
+      attr_reader :changes
+
+      # Release focus
+      attr_reader :release_focus
+
+      # True, if hidden from frontpage
+      attr_reader :hidden
+
+      # Returns a new ReleaseInfo object
+      def initialize( version, changes, release_focus, hidden )
+        @version, @changes, @release_focus, @hidden = version, changes, release_focus, hidden
+      end
+
+      def to_s
+        "ReleaseInfo: version = #{@version}, release focus = #{ReleaseFocusID::NAMES[@release_focus]}, hidden = #{hidden}\nChanges = #{@changes}"
+      end
+
+    end
+
+    # Holds all information about a release which should be published.
+    class Release
+
+      #Project name to submit a release for
+      attr_accessor :project_name
+
+      #Branch name to submit a release for
+      attr_accessor :branch_name
+
+      #Version string of new release
+      attr_accessor :version
+
+      #Changes list, no HTML, character limit 600 chars
+      attr_accessor :changes
+
+      #Release focus ID of new release
+      attr_accessor :release_focus
+
+      #Set to 'Y' if release is to be hidden from frontpage, everything else does not hide it
+      attr_accessor :hide_from_frontpage
+
+      #Optional: Branch license
+      attr_accessor :license
+
+      #Optional: Homepage
+      attr_accessor :url_homepage
+
+      #Optional: Tar/GZ
+      attr_accessor :url_tgz
+
+      #Optional: Tar/BZ2
+      attr_accessor :url_bz2
+
+      #Optional: Zip
+      attr_accessor :url_zip
+
+      #Optional: Changelog
+      attr_accessor :url_changelog
+
+      #Optional: RPM package
+      attr_accessor :url_rpm
+
+      #Optional: Debian package
+      attr_accessor :url_deb
+
+      #Optional: OS X package
+      attr_accessor :url_osx
+
+      #Optional: BSD Ports URL
+      attr_accessor :url_bsdport
+
+      #Optional: Purchase
+      attr_accessor :url_purchase
+
+      #Optional: CVS tree (cvsweb)
+      attr_accessor :url_cvs
+
+      #Optional: Mailing list archive
+      attr_accessor :url_list
+
+      #Optional: Mirror site
+      attr_accessor :url_mirror
+
+      #Optional: Demo site
+      attr_accessor :url_demo
+
+      def self.from_data( data=nil )
+        YAML::load( data )
+      end
+
+      def to_rpc_data
+        rpc_data = {}
+        instance_variables.each do |iv|
+          rpc_data[iv[1..-1]] = eval( iv )
+        end
+        rpc_data
+      end
+
+      def to_yaml_type
+        "!thomasleitner,2005/FreshmeatRelease"
+      end
+
+      YAML::add_domain_type( 'thomasleitner,2005', 'FreshmeatRelease' ) do |type, val|
+        YAML::object_maker( Release, val )
+      end
+
+    end
+
+    # Provides constants for all release focus ids
+    module ReleaseFocusID
+      NA                   = 0
+      INITIAL_ANNOUNCEMENT = 1
+      DOCUMENTATION        = 2
+      CODE_CLEANUP         = 3
+      MINOR_FEATURES       = 4
+      MAJOR_FEATURES       = 5
+      MINOR_BUGFIXES       = 6
+      MAJOR_BUGFIXES       = 7
+      MINOR_SECFIXES       = 8
+      MAJOR_SECFIXES       = 9
+
+      NAMES = {0=>'N/A',
+               1=>'Initial freshmeat announcement',
+               2=>'Documentation',
+               3=>'Code cleanup',
+               4=>'Minor feature enhancements',
+               5=>'Major feature enhancements',
+               6=>'Minor bugfixes',
+               7=>'Major bugfixes',
+               8=>'Minor security fixes',
+               9=>'Major security fixes'
+      }
+    end
+
+
+    # Provides access to the Freshmeat XML-RPC API via a nice interface.
+    # API reference at http://freshmeat.net/faq/view/49/
+    #
+    # Example:
+    #
+    #   fm = DevTools::FreshmeatService.new( username, password )
+    #   fm.get_project_list.each do |p|
+    #     puts p
+    #     branches = fm.get_branch_list( p.shortName )
+    #     puts branches.inspect
+    #     release = fm.get_release( p.shortName, branches[0], p.version )
+    #     puts release
+    #   end
+    #   puts fm.logout
+    class FreshmeatService
+
+      # The URL for the Freshmeat RPC service
+      RPCURL = 'http://freshmeat.net/xmlrpc/'
+
+      # The major version of the freshmeat API with which this library works
+      API_VERSION_MAJOR = '1'
+
+      # The minor version of the freshmeat API with which this library works
+      API_VERSION_MINOR = '03'
+
+      # Use +username+ and +password+ to log into Freshmeat service.
+      def initialize( username, password )
+        @session = XMLRPC::Client.new2( RPCURL )
+        ret = @session.call( :login, :username=>username, :password=>password )
+        @sid = ret['SID']
+        major, minor = ret['API Version'].split( '.' )
+        if major != API_VERSION_MAJOR or minor < API_VERSION_MINOR
+          raise FreshmeatException, 'Incompatible API versions'
+        end
+      end
+
+      # Returns all available licenses
+      def self.get_licenses
+        XMLRPC::Client.new2( RPCURL ).call( :fetch_available_licenses )
+      end
+
+      # Returns all available release focus types
+      def self.get_release_focus_types
+        XMLRPC::Client.new2( RPCURL ).call( :fetch_available_release_foci )
+      end
+
+      # Returns an array of Project objects which are assigned to the logged in user
+      def get_project_list
+        ret = @session.call( :fetch_project_list, :SID=>@sid )
+        ret.collect! {|p| Project.new( p['projectname_short'], p['projectname_full'], p['project_status'], p['project_version'] ) }
+      end
+
+      # Returns an array of branch names for the project +project+.
+      def get_branch_list( project )
+        @session.call( :fetch_branch_list, :SID=>@sid, :project_name=>project )
+      end
+
+      # Returns a ReleaseInfo object which has the information about the requested release.
+      def get_release( project, branch, version )
+        ret = @session.call( :fetch_release, :SID=>@sid, :project_name=>project, :branch_name=>branch, :version=>version )
+        releaseFocus = ret['release_focus'].split( ' - ' )[0].to_i
+        hidden = (ret['hide_from_frontpage'] == 'Y' )
+        ReleaseInfo.new( ret['version'], ret['changes'], releaseFocus, hidden )
+      end
+
+      # Publishes a new release of a project. The parameter +release+ has to be a Release object!
+      def publish_release( release )
+        ret = @session.call( :publish_release, {:SID=>@sid}.update( release.to_rpc_data ) )
+        ret['OK'] == 'submission successful'
+      end
+
+      # Withdraws the specified release.
+      def withdraw_release( project, branch, version )
+        ret = @session.call( :withdraw_release, :SID=>@sid, :project_name=>project, :branch_name=>branch, :version=>version )
+        ret['OK'] == 'Withdraw successful.'
+      end
+
+      # Logs out from the Freshmeat service.
+      def logout
+        ok, ret = @session.call2( :logout, :SID=>@sid )
+        ok && ret['OK'] == 'Logout successful.'
+      end
+
+    end
+
+  end
+
+end