39 lines
1 KiB
Text
39 lines
1 KiB
Text
|
#!/usr/bin/env ruby
|
||
|
|
require 'mediawikibot'
|
||
|
|
|
||
|
|
if ARGV.size() != 2
|
||
|
|
$stderr.print($0 + " <wiki-user> <wiki-password>\n")
|
||
|
|
exit(1)
|
||
|
|
end
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------
|
||
|
|
# TWiki stuff: specific things for our dirty wiki
|
||
|
|
|
||
|
|
$twiki_re = /^(Main|Termine|Wir) /
|
||
|
|
|
||
|
|
def is_twiki_link? (title)
|
||
|
|
return title =~ $twiki_re
|
||
|
|
end
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------
|
||
|
|
# Rock!
|
||
|
|
|
||
|
|
b = MediaWikiBot::WikiBot.new("http://www.entropia.de/wiki/")
|
||
|
|
b.login(ARGV[0], ARGV[1])
|
||
|
|
|
||
|
|
allpages = b.get_allpages()
|
||
|
|
allpages.each do |title|
|
||
|
|
$stderr.print("Processing '", title, "'\n")
|
||
|
|
if is_twiki_link?(title) && b.is_redirect?(title)
|
||
|
|
if b.is_not_linked?(title)
|
||
|
|
b.delete(title,
|
||
|
|
"Old TWiki topic redirect and not linked anywhere in this wiki.")
|
||
|
|
else
|
||
|
|
b.get_what_links_here(title).each do |replace_where|
|
||
|
|
b.replace(replace_where, title, get_redirect(title),
|
||
|
|
"Old TWiki topic redirect, now fixed.")
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|