Changeset 868

Timestamp:

11/23/08 07:36:19 (3 years ago)

Author:

SvenDowideit

Message:

Item254: add -Autoconf to pseudo-install.pl

File:

• trunk/core/pseudo-install.pl (modified) (5 diffs)

trunk/core/pseudo-install.pl

@@ -57 +57 @@
  from the parent directory of the current checkout.
 
- Usage: pseudo-install.pl -felc [all|default|developer|<module>...]
+ Usage: pseudo-install.pl -[feA][l|c|u] [all|default|developer|<module>...]
     -f[orce] - force an action to complete even if there are warnings
     -e[nable] - automatically enable installed plugins in LocalSite.cfg
@@ -69 +69 @@
     developer - default + key developer environment
     <module>... one or more extensions to install
+    -[A]utoconf - make a simplistic LocalSite.cfg, using just the defaults in lib/Foswiki.spec
 
  Example:
-    perl pseudo-install.pl -force -enable -link FirstPlugin SomeContrib
+    softlink and enable FirstPlugin and SomeContrib
+        perl pseudo-install.pl -force -enable -link FirstPlugin SomeContrib
+    
+    
+    check out a new trunk, create a default LocalSite.cfg, install and enable
+    all the plugins for the default distribution (and then run the unit tests)
+        svn co http://svn.fosiki.org/trunk
+        cd trunk/core
+        ./pseudo-install -A developer
+        cd test/unit
+        ../bin/TestRunner -clean FoswikiSuite.pm
+
 EOM
 
@@ -256 +268 @@
 }
 
+sub Autoconf {
+    my( $moduleDir, $dir, $file ) = @_;
+    
+    my $foswikidir = $basedir;
+    my $localSiteCfg = $foswikidir.'/lib/LocalSite.cfg';
+    if ($force || (! -e $localSiteCfg)) {
+        my $localsite = `grep 'Foswiki::cfg' $foswikidir/lib/Foswiki.spec`;
+        
+        $localsite =~ s|/home/httpd/foswiki|$foswikidir|g;
+        # single # seems to denote an important param that needs to be set
+        $localsite =~ s|# \$Foswiki|\$Foswiki|g;
+        
+        if (open(LS, '>', $localSiteCfg)) {
+            print LS $localsite;
+            close(LS);
+            print STDERR "wrote simple config to $localSiteCfg\n\n";
+        } else {
+            print STDERR "ERROR: failed to write to $localSiteCfg\n\n";
+        }
+    } else {
+        print "ERROR: won't overwrite $localSiteCfg without -force\n\n";
+    }
+}
+
 sub enablePlugin {
     my ($module, $installing, $libDir) = @_;
@@ -293 +329 @@
 my $autoenable = 1;
 my $installing = 1;
+my $autoconf = 0;
 $install = $CAN_LINK ? \&just_link : \&copy_in;
 
@@ -310 +347 @@
     } elsif ($arg =~ /^-m/) {
         $autoenable = 1;
-    }
+    } elsif ($arg =~ /^-A/) {
+        $autoconf = 1;
+    }
+}
+
+if ($autoconf) {
+    Autoconf();
+    exit 1 unless (scalar(@ARGV));   
 }