gen-tj 0.0.1

data/.gitignore

@@ -0,0 +1,6 @@
+*~
+*.html
+css
+icons
+scripts
+pkg

data/README.rdoc

@@ -0,0 +1,36 @@
+= gen-tj -- generate taskjuggler plans from FATE
+
+This generates Taskjuggler (www.taskjugger.org) plans from (carefully
+designed) FATE entries combined with Bugzilla assignments.
+
+== Commands
+=== gen-buglist -- generate taskjuggler plans from Bugzilla
+
+gen-buglist runs a named query and converts the resulting bug list
+into tasks
+
+Usage
+  gen-buglist name-of-query > buglist.tji
+
+=== gen-resources -- generate TJ resources (incl. vacations)
+
+gen-resources takes a "resource.yml" file and checks (via
+present.suse.de) the vacations.
+
+Usage
+  gen-resources > resources.tji
+
+=== gen-tj -- generate TJ task list from FATE assignments
+
+gen-tj generates a TaskJuggler task list (.tji file) from
+FATE assignments prioritized by a FATE relation tree
+
+Usage
+  gen-tj relationtree-name tji-file
+
+
+== Makefile
+
+Combining the three tasks (resources, buglist, tasklist) can easily be
+done with a Makefile as provided in the samples directory.
+

data/Rakefile

@@ -0,0 +1,29 @@
+require 'bundler/gem_tasks'
+require 'rake/testtask'
+
+extra_docs = ['README*', 'samples/*' ]
+
+task :default => [:test]
+
+Rake::TestTask.new do |t|
+  t.libs << File.expand_path('../test', __FILE__)
+  t.libs << File.expand_path('../', __FILE__)
+  t.test_files = FileList['test/test*.rb']
+  t.verbose = true
+end
+
+begin
+ require 'yard'
+  YARD::Rake::YardocTask.new(:doc) do |t|
+    t.files   = ['lib/**/*.rb', *extra_docs]
+    t.options = ['--no-private']
+  end
+rescue LoadError
+  STDERR.puts "Install yard if you want prettier docs"
+  require 'rdoc/task'
+  Rake::RDocTask.new(:doc) do |rdoc|
+    rdoc.rdoc_dir = "doc"
+    rdoc.title = "dm-bugzilla-adapter #{DataMapper::Adapters::BugzillaAdapter::VERSION}"
+    extra_docs.each { |ex| rdoc.rdoc_files.include ex }
+  end
+end

data/bin/gen-buglist

@@ -0,0 +1,40 @@
+#!/usr/bin/env ruby
+#--
+# Copyright (c) 2011 SUSE LINUX Products GmbH
+#
+# Author: Klaus Kämpf <kkaempf@suse.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#++
+$:.push(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'rubygems'
+require 'gen-tj/genbuglist'
+
+def usage msg
+  STDERR.puts "*** Error: #{msg}"
+  STDERR.puts "Usage: #{File.basename(__FILE__)} <query-name>"
+  exit 1
+end
+
+query = ARGV.shift
+
+usage "No query name given" unless query
+
+GenTJ::GenBuglist.run query

data/bin/gen-crosscheck

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby
+#--
+# Copyright (c) 2011 SUSE LINUX Products GmbH
+#
+# Author: Klaus Kämpf <kkaempf@suse.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#++
+$:.push(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'rubygems'
+require 'gen-tj/crosscheck'
+
+def usage msg
+  STDERR.puts "*** Error: #{msg}"
+  STDERR.puts "Usage: #{File.basename(__FILE__)} <title>"
+  exit 1
+end
+
+title = ARGV.shift
+
+usage "title missing" unless title
+
+STDERR.puts "Checking '#{title}'"
+
+GenTJ::Crosscheck.run title

data/bin/gen-resources

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+#--
+# Copyright (c) 2011 SUSE LINUX Products GmbH
+#
+# Author: Klaus Kämpf <kkaempf@suse.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#++
+$:.push(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'rubygems'
+require 'gen-tj/genresources'
+
+def usage msg
+  STDERR.puts "*** Error: #{msg}"
+  STDERR.puts "Usage: #{File.basename(__FILE__)} [<resources.yml>]"
+  exit 1
+end
+
+GenTJ::Genresources.run(ARGV.shift || "resources.yml")

data/bin/gen-tj

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+#--
+# Copyright (c) 2011 SUSE LINUX Products GmbH
+#
+# Author: Klaus Kämpf <kkaempf@suse.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#++
+
+def usage msg
+  STDERR.puts "*** Error: #{msg}"
+  STDERR.puts "Usage: #{File.basename(__FILE__)} <treename> <prjname>"
+  exit 1
+end
+
+$:.push(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'rubygems'
+require 'gen-tj'
+
+treename = ARGV.shift
+usage "treename missing" unless treename
+
+prjname = ARGV.shift
+usage "prjname missing" unless prjname
+
+GenTJ::GenTJ.main Dir.getwd, treename, prjname
+

data/gen-tj.gemspec

@@ -0,0 +1,30 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "gen-tj/version"
+
+Gem::Specification.new do |s|
+  s.name        = "gen-tj"
+  s.version     = GenTJ::GenTJ::VERSION
+
+  s.platform    = Gem::Platform::RUBY
+  s.authors     = ["Klaus Kämpf"]
+  s.email       = ["kkaempf@suse.de"]
+  s.homepage    = ""
+  s.summary     = %q{Generate Taskjuggler plans from Bugzilla and FATE}
+  s.description = %q{Given a list of resources (developers), a
+Bugzilla named query and a FATE relationtree, this tool generates a
+TaskJuggler overview of current work assigned to developers.
+Additionally, it checks present.suse.de for vacations and public
+holidays.}
+
+  s.add_dependency("dm-keeper-adapter", ["~> 0.0.4"])
+  s.add_dependency("dm-bugzilla-adapter", ["~> 0.0.1"])
+  
+  s.rubyforge_project = "gen-tj"
+
+  s.files            = `git ls-files`.split("\n")
+  s.test_files       = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables      = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.extra_rdoc_files = `git ls-files -- {samples}/*`.split("\n")
+  s.require_paths = ["lib"]
+end

data/lib/gen-tj.rb

@@ -0,0 +1 @@
+require 'gen-tj/gen-tj.rb'

data/lib/gen-tj/crosscheck.rb

@@ -0,0 +1,76 @@
+#
+# crosscheck.rb
+#
+# Crosscheck if features are in relationtree
+#
+# Usage: crosscheck "<match>"
+#
+# Example: ruby crosscheck.rb "Manager 1.2.1"
+#
+# <match> must exist in feature title _and_ name of relation tree
+#
+#
+
+$: << File.join(File.dirname(__FILE__), "..", "dm-keeper-adapter", "lib")
+
+require 'rubygems'
+require 'dm-keeper-adapter'
+require 'nokogiri'
+
+module GenTJ
+  class Crosscheck
+    def Crosscheck.run title
+
+      DataMapper::Logger.new($stdout, :debug)
+      keeper = DataMapper.setup(:default, :adapter   => 'keeper',
+			    :url  => 'https://keeper.novell.com/sxkeeper')
+      require 'keeper/feature'
+      require 'keeper/relationtree'
+      require 'keeper/relation'
+      DataMapper.finalize
+
+      # Get all features with a matching title
+
+      features = {}
+      Feature.all(:title.like => title).each do |f|
+	features[f.id] = f
+      end
+
+      unless features.size>0
+	STDERR.puts "No features matching '#{title}' found" 
+	return
+      end
+
+      # Get the corresponding relationtree
+      relationtree = Relationtree.first(:title.like => title)
+
+      unless relationtree
+	STDERR.puts "No relationtree matching '#{title}' found" 
+	return
+      end
+
+      # Now iterate through the relationtree and remove matching features
+
+      size_of_relation_tree = 0
+      relationtree.relations.each do |relation|
+	target = relation.target
+	size_of_relation_tree += 1
+	t_id = target.to_i
+	if features.delete(t_id).nil?
+	  puts "Target #{t_id} has a bad title"
+	end
+      end
+
+      if size_of_relation_tree == 0
+	STDERR.puts "Relationtree '#{title}' has no features"
+	return
+      end
+
+      # Print out left over features
+
+      features.each do |id,f|
+	puts "Missing in relation tree - #{id}:'#{f.title}'"
+      end
+    end
+  end
+end

data/lib/gen-tj/gen-tj.rb

@@ -0,0 +1,87 @@
+#
+# gentj.rb
+#
+# Generate TaskJuggler tasks from Fate relation tree
+#
+# Usage:
+#   ruby gentj.rb <relation-tree-title> <tji-name>
+# Example:
+#   ruby gentj.rb "Project tree" project
+#  -> generates 'project.tji' file
+#
+
+require 'rubygems'
+require 'dm-bugzilla-adapter'
+require 'dm-keeper-adapter'
+require 'nokogiri'
+require File.join(File.dirname(__FILE__),'task')
+
+class Task
+  
+  def add_relations relations, flags = nil
+    relations.each do |relation|
+      id = relation.target
+      f = Feature.get(id)
+      
+      unless f.milestone =~ /^1\.2/
+	STDERR.puts "Skipping feature #{id} with milestone '#{f.milestone}'"
+	next
+      end
+
+      raise "No feature #{id}" unless f
+      prio = relation.sort_position
+      t = Task.new f.title, id
+      case f.developer
+      when /<email.*>/
+	alloc = Nokogiri.XML "<alloc>#{f.developer}</alloc>"
+	alloc.xpath("//email").each do |mail|
+	  mail.text =~ /(.*)@(.*)/
+	  t.allocations << $1
+	end
+      when /(.*)@(.*)/
+	t.allocations << $1
+      else
+	t.allocations << "dev"
+      end
+
+      if relation.parent
+	t.add_relations relation, :noprio => true
+      end
+      t.priority = prio unless flags && flags[:noprio]
+      
+      self.add t
+    end # relations.each
+  end # def
+
+end # class
+
+module GenTJ
+  class GenTJ
+    def GenTJ.main dir, treename, subtitle
+      DataMapper::Logger.new($stdout, :debug)
+      keeper = DataMapper.setup(:default, :adapter => 'keeper', :url  => 'https://keeper.novell.com/sxkeeper')
+      require 'keeper/feature'
+      require 'keeper/relationtree'
+      require 'keeper/relation'
+      DataMapper.finalize
+
+      # get 'my' relationtree
+
+      relationtree = Relationtree.first(:title => treename)
+      unless relationtree
+	STDERR.puts "No relationtree named '#{treename}' found"
+	return
+      end
+
+      title = relationtree.title
+
+      task = Task.new(title,subtitle)
+
+      task.add_relations(relationtree.relations)
+
+      File.open(File.join(dir,"#{subtitle}.tji"), "w+") do |f|
+	f.puts task.to_tj
+      end
+    end
+  end
+end

data/lib/gen-tj/genbuglist.rb

@@ -0,0 +1,63 @@
+#
+# named_query2tji.rb
+#
+# Convert list of bugs (generated by named query) to TJ include
+#
+# Usage:
+#   named_query2tji <name-of-query>
+#
+
+require 'rubygems'
+require 'dm-bugzilla-adapter'
+
+# extend DataMapper Bug
+class Bug
+  def to_tj
+    a = @assigned_to.split('@').first.gsub(".","_")
+    s = @summary.gsub("\"","\\\"")
+    s = "task bug_#{@id} \"#{s}\" {\n"
+    s << "  allocate #{a}\n"
+    s << "  effort 2d\n"
+    s << "}\n"
+    s
+  end
+end
+
+module GenTJ
+  class GenBuglist
+    def GenBuglist.run query
+      DataMapper::Logger.new(STDOUT, :debug)
+      keeper = DataMapper.setup(:default, :adapter => 'bugzilla',
+				:url  => 'https://bugzilla.novell.com')
+      require 'bugzilla/named_query'
+      DataMapper.finalize
+
+      f = NamedQuery.get(query)
+
+      bugs = f.bugs
+
+      # sort bugs according to priority
+
+      prios = {}
+
+      bugs.each do |bug|
+	prios[bug.priority] ||= []
+	prios[bug.priority] << bug
+      end
+
+      puts "task bugs \"Bugs\" {"
+      prios.each do |k,v|
+	pval = "_other"
+	if k =~ /P(\d)+.*/
+	  pval = $1
+	end
+	puts "task p#{pval}_bugs \"Bugs with prio #{k}\" {"
+	v.each do |bug|
+	  puts bug.to_tj
+	end
+	puts "}"
+      end
+      puts "}"
+    end
+  end
+end

data/lib/gen-tj/genresources.rb

@@ -0,0 +1,80 @@
+#
+# Generate TJ resources from YAML file + present.suse.de:9874
+#
+
+require 'yaml'
+require 'net/telnet'
+
+module GenTJ
+  class Genresources
+
+    #
+    # Create vacations entry for 'name', write to 'to'
+    #
+    #  Use present.suse.de:9874 to extract dates
+    #
+    def Genresources.create_vacations name, to
+      tn = Net::Telnet.new('Host' => 'present.suse.de', 'Port' => 9874, 'Binmode' => true)
+      collect = false
+      tn.cmd(name) do |data|
+	#    STDERR.puts "<#{name}> -> #{data}"
+	data.split("\n").each do |l|
+	  if l =~ /^Absence/
+	    collect = true
+	  end
+	  next unless collect
+	  if l[0,1] == "-"
+	    collect = false
+	    next
+	  end
+	  dates = []
+	  l.split(" ").each do |date|
+	    next unless date =~ /2011/
+	    dates << date
+	  end
+	  case dates.size
+	  when 1: to.puts "  vacation #{dates[0]}"
+	  when 2: to.puts "  vacation #{dates[0]} - #{dates[1]}"
+	  else
+	    STDERR.puts "#{dates.size} dates for (#{name}) '#{l}'"
+	  end
+	end
+      end
+      tn.close
+    end
+
+    #
+    # Create taskjuggler 'resource' entry for login, write to 'to'
+    #
+    # 'value' is either a string (name of resource)
+    #  or a Hash (denoting a team)
+    #
+    def Genresources.create_tj login, value, to
+      return if login == "_name"
+      name = value.is_a?(String) ? value : value['_name']
+      to.puts "resource #{login} #{name.inspect} {"
+      case value
+      when String: create_vacations name, to
+      when Hash
+	value.each do |k,v|
+	  create_tj k, v, to
+	  to.puts "flags team"
+	end
+      else
+	raise "Can't handle #{value.class} for #{login}"
+      end
+      to.puts "}"
+    end
+
+    def Genresources.run input, output = nil
+      resources = YAML::load(File.open( input ))
+
+      out = File.open(output) rescue STDOUT
+
+      out.puts "flags team"
+      resources.each do |login, value|
+	create_tj login, value, out
+      end
+    end
+  end
+end

data/lib/gen-tj/task.rb

@@ -0,0 +1,77 @@
+#
+# Class representing a task (aka Fate feature)
+#
+class Task
+  attr_reader :title, :effort, :duration, :status
+  attr_accessor :allocations
+
+  def initialize(title, fate = nil)
+    # title = '[manager , ***] blah blah'
+    if title =~ /\[(.*)\](.*)/
+      # $1 = full match, i.e. '[manager , ***, D] blah blah'
+      # $2 = sub match, i.e 'manager, ***, D'
+      @title = $2.strip
+      if $1 =~ /(.*),(.*)[,(.*)]?/
+	case $2.strip
+	when "*": @effort = "2d"
+	when "**": @effort = "1w"
+	when "***": @effort = "2w"
+	when "****": @effort = "4w"
+	else
+	  @effort = $2
+	end
+	if $3 && $3 == "D"
+	  @status = :done
+	end
+      end
+    else
+      @title = title 
+    end
+    @fate = fate
+    @allocations = []
+  end
+  
+  def add task
+    @subtasks ||= []
+    @subtasks << task
+  end
+  
+  def priority= prio
+    @priority = prio.to_i
+  end
+
+  #
+  # Convert Task to tj
+  #
+  def to_tj
+    s = "task "
+    if @fate
+      s << "fate_#{@fate}"
+    else
+      s << "task_#{self}"
+    end
+    t = @title.tr("\"", "'")
+    s << " \"#{t}\" {\n"
+    s << "  priority #{1000-@priority}\n" if @priority
+    s << "  start ${now}\n"
+    if @subtasks
+      @subtasks.each do |task|
+	s << task.to_tj
+      end
+    else
+      if @allocations.size == 1
+	s << "    allocate #{allocations[0]}\n"
+      else
+	@allocations.each do |rsrc|
+	  s << "    allocate #{rsrc} { mandatory }\n"
+	end
+      end
+	
+      s << "    duration #{duration}\n" if @duration
+      s << "    effort #{effort}\n" if @effort
+    end
+    s << "}\n"
+    
+    s
+  end
+end

data/lib/gen-tj/version.rb

@@ -0,0 +1,5 @@
+module GenTJ
+  class GenTJ
+    VERSION = "0.0.1"
+  end
+end

data/samples/Makefile

@@ -0,0 +1,27 @@
+# Name of TaskJuggler binary, change to 'tj' for TaskJuggler 2.x
+TASKJUGGLER = tj3
+
+# Name of Relationtree in FATE
+RELATIONTREE = "Name of Relationtree"
+
+# Name of query in Bugzilla
+QUERYNAME = "Name of Bugzilla Query"
+
+all: project.tjp resources.tji buglist.tji
+	gen-tj $(RELATIONTREE) project
+	$(TASKJUGGLER) $<
+
+resources.tji: resources.yml
+	gen-resources $< > $@-tmp
+	mv -f $@-tmp $@
+
+buglist.tji:
+	gen-buglist $(QUERYNAME) > $@-tmp
+	mv -f $@-tmp $@
+
+clean:
+	rm -f buglist.tji
+	rm -f resources.tji
+	rm -f *.html
+	rm -rf css icons scripts
+ 

data/samples/README.rdoc

@@ -0,0 +1,26 @@
+= Sample files for gen-tj
+
+This directory contains samples for files _you_ need to provide in
+order to use gen-tj
+
+Look into the files for further comments.
+
+== resources.yml - Allocatable resources for this project
+
+A YAML (www.yaml.org) formatted file describing your resources
+(developers, testers, documentation, etc.)
+
+== project.tjp - Project description
+
+A TaskJuggler project file describing your project (name, start date,
+end date, ...), public holidays, extra tasks (i.e. testing), and
+milestones.
+
+== reports.tji - Reports to generate
+
+This file describes which reports to generate. The sample generates
+HTML formatted
+* Overview - list of tasks
+* Status - daily status
+* Development - A list of tasks showing the resources assigned to each task
+* Resource - A graph showing resource allocation. It identifies whether each resource is under- or over-allocated for.

data/samples/project.tjp

@@ -0,0 +1,73 @@
+project my_project "Name of project"  2011-08-01 - 2015-08-01 {
+  weekstartsmonday
+  timeformat "%a %Y-%m-%d"
+}
+
+# german public holidays
+
+vacation "Christi Himmelfahrt" 2011-06-02
+vacation "Pfingstmontag" 2011-06-13
+vacation "Fronleichnam" 2011-06-23
+vacation "Mariä Himmelfahrt" 2011-08-15
+vacation "Tag der Deutschen Einheit" 2011-10-03
+vacation "Allerheiligen" 2011-11-01
+vacation "2. Weihnachtstag" 2011-12-26
+vacation "Workshop" 2011-07-11 - 2011-07-15
+vacation "Hackweek" 2011-09-26 - 2011-09-30
+
+# Define resources (generated by gen-resources)
+include "resources.tji"
+
+# Define FATE tasks (generated by gen-tj)
+include "project.tji"
+
+# Define Bug assignments (generated by gen-buglist)
+
+include "buglist.tji"
+
+#
+# Testing tasks
+#
+
+task testing "Beta/RC testing" {
+    task beta1_testing "Beta 1 testing" {
+      # Everyone in the 'dev' team will do testing
+      allocate dev
+      duration 2w
+      # Insert a proper dependency here - whats the criteria to start beta testing ?
+      depends !!fate_my_project
+    }
+    task beta2_testing "Beta 2 testing" {
+      allocate dev
+      duration 2w
+      depends !beta1_testing
+    }
+}
+
+#
+# Milestones
+#
+# Milestones only have dependencies, but no duration/effort and no allocations
+#
+
+task milestones "Milestones" {
+    task start "start" {
+      start ${projectstart}
+    }
+    task alpha0 "alpha 0" {
+      # Insert a proper dependency here - whats the criteria to release Alpha0 ?
+      depends !!my_project.feature_for_alpha0
+    }
+    task alpha1 "alpha 1" {
+      # Alpha 1 comes after Alpha 0
+      depends !alpha0
+      # Insert a proper dependency here - whats the criteria to release Alpha1 ?
+      depends !!my_project.feature_for_alpha1
+    }
+}
+
+#
+# Description of (HTML) reports to generate
+#
+
+include "reports.tji"

data/samples/reports.tji

@@ -0,0 +1,128 @@
+#
+# A sample reports.tji file
+#
+#
+  
+navigator navbar {
+  hidereport 0
+}
+  
+macro TaskTip [
+    tooltip istask() -8<-
+    '''Start: ''' <-query attribute='start'->
+    '''End: ''' <-query attribute='end'->
+    ----
+    '''Resources:'''
+    
+    <-query attribute='resources'->
+    ----
+    '''Precursors: '''
+    
+    <-query attribute='precursors'->
+    ----
+    '''Followers: '''
+    
+    <-query attribute='followers'->
+    ->8-
+]
+
+macro AlertColor [
+  cellcolor plan.alert = 0 "#00D000" # green
+  cellcolor plan.alert = 1 "#D0D000" # yellow
+  cellcolor plan.alert = 2 "#D00000" # red
+]
+      
+textreport frame "" {
+  header -8<-
+    == Development Project ==
+    ----
+    <[navigator id="navbar"]>
+    ----
+  ->8-
+  footer "----"
+  textreport index "Overview" {
+    formats html
+    center '<[report id="overview"]>'
+  }
+  
+  textreport "Status" {
+    formats html
+    center -8<-
+      <[report id="status.dashboard"]>
+    ->8-
+  }
+ 
+  textreport development "Development" {
+    formats html
+    center '<[report id="development"]>'
+  }
+ 
+  textreport "ResourceGraph" {
+    formats html
+    title "Resource Graph"
+    center '<[report id="resourceGraph"]>'
+  }
+}
+
+
+taskreport overview "" {
+  columns hierarchindex, name, start, end, effort, duration,
+     chart { ${TaskTip} },
+     resources { width 150
+                 listtype bullets }
+
+  footer -8<-
+    === Staffing ===
+	
+    All project phases are properly staffed. See [[ResourceGraph]] for
+    detailed resource allocations.
+    
+  ->8-
+	  
+}
+
+taskreport status "" {
+  columns wbs { width 50 }, name { width 150 },
+          start { width 100 }, end { width 100 },
+	  effort { width 100 },
+	  alert { tooltip plan.journal
+			  != '' "<-query attribute='journal'->" width 150 },
+          status { width 150 }
+	    
+  taskreport dashboard "" {
+    headline "Project Dashboard (<-query attribute='now'->)"
+    columns name { title "Task" ${AlertColor} width 200},
+            resources { width 200 ${AlertColor}
+	                listtype bullets
+#			listitem "<-query attribute='name'->"
+			start ${projectstart} end ${projectend} },
+            alerttrend { title "Trend" ${AlertColor} width 50 },
+	    journalmessages { width 350 ${AlertColor} }
+    hidetask ~hasalert(0)
+#    sorttasks alert.down, delayed.end.up
+    period %{${now} - 1w} +1w
+  }
+}
+			  
+
+# A list of tasks showing the resources assigned to each task.
+taskreport development "" {
+  headline "Development - Resource Allocation Report"
+  columns hierarchindex, name, start, end, effort { title "Work" },
+  duration, chart { ${TaskTip} scale day width 500 }
+  timeformat "%Y-%m-%d"
+  hideresource ~(isleaf() & isleaf_())
+  sortresources name.up
+}
+
+# A graph showing resource allocation. It identifies whether each
+# resource is under- or over-allocated for.
+resourcereport resourceGraph "" {
+  headline "Resource Allocation Graph"
+  columns no, name, effort, rate, weekly { ${TaskTip} }
+  loadunit shortauto
+  # We only like to show leaf tasks for leaf resources.
+  hidetask ~(isleaf() & isleaf_())
+  sorttasks plan.start.up
+}
+

data/samples/resources.yml

@@ -0,0 +1,26 @@
+#
+# Sample resources.yml file
+#
+#
+# Format: YAML - see yaml.org
+#
+# Assumptions
+#
+# login names are shared between FATE and Bugzilla
+#
+#
+
+login1: "Real name1"
+login2: "Real name2"
+
+# You can structure developers into teams
+# Start with team nickname (here 'team') and indent
+# Use the '_name:" attribute to give the team a name
+
+team:
+  _name: "Name of team"
+  # you can also use teams within teams
+  subteam:
+    _name: "Name of subteam"
+    login3: "A subteam developer"
+  login4: "A team developer"

metadata

@@ -0,0 +1,126 @@
+--- !ruby/object:Gem::Specification 
+name: gen-tj
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: 
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- "Klaus K\xC3\xA4mpf"
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-09-28 00:00:00 +02:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: dm-keeper-adapter
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        hash: 23
+        segments: 
+        - 0
+        - 0
+        - 4
+        version: 0.0.4
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: dm-bugzilla-adapter
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        hash: 29
+        segments: 
+        - 0
+        - 0
+        - 1
+        version: 0.0.1
+  type: :runtime
+  version_requirements: *id002
+description: |-
+  Given a list of resources (developers), a
+  Bugzilla named query and a FATE relationtree, this tool generates a
+  TaskJuggler overview of current work assigned to developers.
+  Additionally, it checks present.suse.de for vacations and public
+  holidays.
+email: 
+- kkaempf@suse.de
+executables: 
+- gen-buglist
+- gen-crosscheck
+- gen-resources
+- gen-tj
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- README.rdoc
+- Rakefile
+- bin/gen-buglist
+- bin/gen-crosscheck
+- bin/gen-resources
+- bin/gen-tj
+- gen-tj.gemspec
+- lib/gen-tj.rb
+- lib/gen-tj/crosscheck.rb
+- lib/gen-tj/gen-tj.rb
+- lib/gen-tj/genbuglist.rb
+- lib/gen-tj/genresources.rb
+- lib/gen-tj/task.rb
+- lib/gen-tj/version.rb
+- samples/Makefile
+- samples/README.rdoc
+- samples/project.tjp
+- samples/reports.tji
+- samples/resources.yml
+has_rdoc: true
+homepage: ""
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: gen-tj
+rubygems_version: 1.5.2
+signing_key: 
+specification_version: 3
+summary: Generate Taskjuggler plans from Bugzilla and FATE
+test_files: []
+