added automagically sanitizing for foo_once into the conf.pl script

[squirrelmail.git] / config / conf.pl

diff --git a/config/conf.pl b/config/conf.pl
index 9c3b27b17f72fdb094713e6bc5d121514961d5fc..058d627f5811e638ddeea04ed1b872e6f98fa59c 100755 (executable)
--- a/config/conf.pl
+++ b/config/conf.pl
@@ -406,6 +406,8 @@ while (($command ne "q") && ($command ne "Q")) {
       }
       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";
    }
@@ -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(); }
+         elsif ($command eq "a") { command8s(); }
       }
    }   
 }
@@ -838,6 +841,9 @@ sub command81 {
          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++;
          }
@@ -847,6 +853,18 @@ sub command81 {
    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