Differences between revisions 14 and 15
Revision 14 as of 2005-09-27 11:09:59
Size: 2486
Editor: DonArmstrong
Comment: added snippet with some changes to test the markup conversion
Revision 15 as of 2005-09-27 12:47:23
Size: 2605
Editor: Jeroen
Comment: Noted about DebConf5TodoConferenceManagementSystem, a real problematic page
Deletions are marked like this. Additions are marked like this.
Line 20: Line 20:
 * This page looks totally ruined by the conversion: http://wiki.wolffelaar.nl/DebConf5TodoConferenceManagementSystem

Status of wiki.debian.net migration

Done

  • Mon 5 Sep 2005, 17:41:14 UTC: [http://wiki.wolffelaar.nl wiki.wolffelaar.nl] is the output of my [http://www.wolffelaar.nl/~jeroen/kwiki2moinmoin/ current version of conversion scripts] -- not much in the way of markup conversion, but revision history etc is there. Help with markup conversion badly wanted (in perl, please) --["Jeroen"]

  • [http://wiki.debian.net wiki.debian.net] is read-only (Update: as long as conversion isn't ready yet to be done, it's read/write again), and a dump of the database is [http://people.debian.org/~ivey available]

  • A script to convert the RCS files into moin moin revision files is fairly easy and will be done by ["Jeroen"].
  • A script to convert the markup from kwiki to moin moin needs to be written, see below.
  • establish copyright/licencing situation for old and new sites (?WikiLicencingTerms) (sorry)

TODO

  • Convert markup (see below).
  • Test [http://wiki.wolffelaar.nl wiki.wolffelaar.nl] to spot problems in the conversion scripts by ["Jeroen"].

Convert markup

Any snippets appreciated. Todo:

$data =~ s/\[([^]]+) ([^] ]+)\]/[wiki:Self:$2 $1]/g;
  • Misc other markup issues

For testing the markup conversion, the following snippit may be useful: Just perl foo < bleh_test|less it.

while (<>){
                my $data = $_;
                #$data =~ s/_(\w)/''$1/g;
                #$data =~ s/(\w)_/$1''/g;
# asuffield
                #$data =~ s/\b_(\S+)_\b/''$1''/g;
# HelmutG
                $data =~ s/^(\*+) /' '."  " x (length($1)-1) . "* "/ge;
                $data =~ s/^(0+) /' '."  " x (length($1)-1) . "1 "/ge;
                $data =~ s/(_[^_]+_)/_$1_/g;
                $data =~ s{\[([^\]]+?)\s+($WIKINAME)\]}{qq([wiki:Self:$2 $1])}xeg;
                $data =~ s!\[([^]]+) ([a-z]{3,5}://[^ ]+) ([^]]+)\]!\[$2 $1 $3\]!g;
# jvw
                $data =~ s/\*([^\ ]+)\*/'''$1'''/g;
                #$data =~ s/^''' / \* /gm;
                $data =~ s/\[([a-zA-Z0-9]+)\]/["$1"]/g;
                #$data =~ s/\[([^]]+) ([^] ]+)\]/[wiki:Self:$2 $1]/g;
                $data =~ s/\[=([^]]+)\]/{{{$1

/g;

  • $data =~ s/!([A-Z]a-z]+)/$1/g; $data =~ s/(=+) (.*[=])(\n)$/$1 $2 $1$3/gm; $data =~ s/\|/\|\|/g; print $data;

} }}}