mods/wiki/tools/upgrade-r101d

   1 #!/usr/bin/perl -w --
   2 #
   3 # This script can convert the include() commands of an old "config.php" to
   4 # point to the plugins new filenames then.
   5
   6
   7 if ($#ARGV < 0) {
   8    print "syntax: tools/upgrade config.php\n\n"; exit;
   9 }
  10 $file = shift @ARGV;
  11
  12 #-- read in
  13 $content = "";
  14 open FH, "< $file";
  15 while (<FH>) {
  16    $content .= $_;
  17 }
  18 close FH;
  19
  20
  21 #-- run regexs on it
  22 $content =~ s#(include\(["'].*?plugins/)contrib/(.+?\.php["']\))#$1$2#gix;
  23 $content =~ s#(include\(["'].*?plugins/)(db|aview|page|action|contrib|markup)_(.+?\.php["']\))#$1$2/$3#gix;
  24 #
  25 $content =~ s#(include\(["'].*?plugins/)(diff|verdiff|like_|transl)(.*?\.php["']\))#$1action/$2$3#gix;
  26 $content =~ s#(include\(["'].*?plugins/)(fancy|listp|title_cal)(.*?\.php["']\))#$1appearance/$2$3#gix;
  27 $content =~ s#(include\(["'].*?plugins/)(aedit_|toc)(.*?\.php["']\))#$1aview/$2$3#gix;
  28 $content =~ s#(include\(["'].*?plugins/)(binary_stor)(.*?\.php["']\))#$1db/$2$3#gix;
  29 $content =~ s#(include\(["'].*?plugins/)(append|imgresize|spellch)(.*?\.php["']\))#$1feature/$2$3#gix;
  30 $content =~ s#(include\(["'].*?plugins/)(f_|fun_|search_)(.*?\.php["']\))#$1filter/$2$3#gix;
  31 $content =~ s#(include\(["'].*?plugins/)more_interwiki()(.*?\.php["']\))#$1interwiki/intermap$3#gix;
  32 $content =~ s#(include\(["'].*?plugins/)(cache|mime_magic|navbar|speed|save_store)(.*?\.php["']\))#$1lib/$2$3#gix;
  33 $content =~ s#(include\(["'].*?plugins/)(autoli|linkex|link_|plural|tcn)(.*?\.php["']\))#$1linking/$2$3#gix;
  34 $content =~ s#(include\(["'].*?plugins/)(calendar|downloads|tour)(.*?\.php["']\))#$1module/$2$3#gix;
  35 $content =~ s#(include\(["'].*?plugins/)(auth_)(.*?\.php["']\))#$1auth/$2$3#gix;
  36 # R1.01e1
  37 $content =~ s#(include\(["'].*?plugins/)aview/aedit_(.*?\.php["']\))#$1edit/$2#gix;
  38
  39
  40 #-- write back
  41 open FH, "> $file";
  42 print FH $content;
  43 close FH;
  44