#!/usr/bin/env ruby
$:.unshift('vendor/ruby-mediawiki/lib')
require 'mediawiki/dotfile'
@wiki = MediaWiki.dotfile(nil,'entropia')
@putwhere = "Benutzer:Neinomat/"
@body = ""

@wiki.allpages.each do |title|
  MediaWiki::logger.debug("Checking #{title}")
  text = @wiki.article(title).text
  s = text.scan(/^.*(?:wikipedia.org|ka.stadtwiki.net).*$/s)
  if s != []
    @body += "* [[#{title}]]\n"
    s.each do |m|
      @body += " <pre><nowiki>#{m}</nowiki></pre>\n" 
    end
  end
end

a = @wiki.article(@putwhere + "Interwiki links that need to be interwikified")
a.text = @body
a.submit("fnord")