added automagically sanitizing for foo_once into the conf.pl script
authorteepe <teepe@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Sun, 11 Nov 2001 01:43:08 +0000 (01:43 +0000)
committerteepe <teepe@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Sun, 11 Nov 2001 01:43:08 +0000 (01:43 +0000)
git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@1721 7612ce4b-ef26-0410-bec9-ea0150e637f0

config/conf.pl

index 9c3b27b..058d627 100755 (executable)
@@ -407,6 +407,8 @@ while (($command ne "q") && ($command ne "Q")) {
       closedir DIR;
       
       print "\n";
       closedir DIR;
       
       print "\n";
+      print "A   Sanitize all plugins for use with Squirrelmail 1.2\n";
+      print "\n";
       print "R   Return to Main Menu\n";
    }
    if ($config_use_color == 1) {
       print "R   Return to Main Menu\n";
    }
    if ($config_use_color == 1) {
@@ -510,6 +512,7 @@ while (($command ne "q") && ($command ne "Q")) {
          if    ($command == 1) { $motd             = command71(); }
       } elsif ($menu == 8) {
          if    ($command =~ /^[0-9]+/) { @plugins = command81(); }
          if    ($command == 1) { $motd             = command71(); }
       } elsif ($menu == 8) {
          if    ($command =~ /^[0-9]+/) { @plugins = command81(); }
+         elsif ($command eq "a") { command8s(); }
       }
    }   
 }
       }
    }   
 }
@@ -838,6 +841,9 @@ sub command81 {
          while ($ct <= $#unused_plugins) {
             if ($ct == $num) {
                @newplugins = (@newplugins, $unused_plugins[$ct]);
          while ($ct <= $#unused_plugins) {
             if ($ct == $num) {
                @newplugins = (@newplugins, $unused_plugins[$ct]);
+               # sanitize the plugin
+              $dir = $unused_plugins[$ct];
+               `./ri_once.pl ../plugins/$dir`;
             }
             $ct++;
          }
             }
             $ct++;
          }
@@ -847,6 +853,18 @@ sub command81 {
    return @plugins;
 }   
 
    return @plugins;
 }   
 
+sub command8s {
+    print "This command will sanitize all plugins for use with\n";
+    print "Squirrelmail 1.2. That is, it will rewrite some php-\n";
+    print "constructs that are *incompatible* with the 1.2 design\n";
+    print "into ones that are *compatible*\n";
+    print "Do you wish to issue this command [y/N]? ";
+    $ctu = <STDIN>;
+    if ($ctu =~ /^y\n/i) {
+        `./ri_once.pl ../plugins`;
+    }
+}
+
 ################# FOLDERS ###################
 
 # default_folder_prefix
 ################# FOLDERS ###################
 
 # default_folder_prefix