From b4c15fedb64da80716bf62e25748059c1a188f6c Mon Sep 17 00:00:00 2001
From: neingeist <neingeist@bl0rg.net>
Date: Fri, 6 Jul 2007 01:20:24 +0000
Subject: [PATCH] borken camp foo

---
 camp/neinomat-workshops | 58 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100755 camp/neinomat-workshops

diff --git a/camp/neinomat-workshops b/camp/neinomat-workshops
new file mode 100755
index 0000000..a342bcd
--- /dev/null
+++ b/camp/neinomat-workshops
@@ -0,0 +1,58 @@
+#!/usr/bin/env ruby
+$:.unshift('../vendor/ruby-mediawiki/lib')
+require 'mediawiki/dotfile'
+@wiki = MediaWiki.dotfile(nil,'camp')
+
+def parse_template(title, template)
+  template_re = Regexp.new("\\\{\\\{" + template + "(.*?)\\\}\\\}", Regexp::MULTILINE)
+
+  info = []
+
+  if (scanned = @wiki.article(title).text.scan(template_re)) != []
+    scanned.each do |m|
+      fields = {}
+      fields_string = m[0]
+
+      inlink = 0
+      field = ""
+      fields_string += "|" unless fields_string.match(/\|$/)
+      fields_string.split(//).each do |c|
+        if c == "|" && inlink == 0
+          (key, value) = field.split(/=/)
+          value.chomp! if value
+          fields[key] = value
+          field = ""
+        else
+          inlink += 1 if c == "["
+          inlink -= 1 if c == "]"
+          field += c
+        end
+      end
+      info << fields
+    end
+  else
+    $stderr.print "Template #{template} not found in #{title}!"
+  end
+ 
+  info
+end
+
+list = ""
+
+@wiki.category("Workshop").articles.each do |article|
+  if article != "Template:Workshop"
+    workshops = parse_template(article, "Workshop")
+
+    workshops.each do |workshop|
+      list += "* [[#{article}|#{workshop["what"]}]] "
+      list += "Day " + workshop["day"] + "/" + workshop["start"]
+      list += "\n"
+    end
+  end
+end
+
+p list
+a = @wiki.article("List of workshops")
+a.text = list
+a.submit("wiki ex machina")
+