[Rt-commit] r13992 - rt/3.8/branches/3.8.0-releng/share/html/Install

[jesse at bestpractical.com]

Author: jesse
Date: Fri Jul 11 11:00:32 2008
New Revision: 13992

Modified:
   rt/3.8/branches/3.8.0-releng/share/html/Install/index.html

Log:
 r39492 at 68-246-144-190 (orig r13896):  sunnavy | 2008-07-08 23:38:19 -0400
  r14136 at sunnavys-mb:  sunnavy | 2008-07-09 11:31:09 +0800
  nstaller should work without RT_SiteConfig.pm
 


Modified: rt/3.8/branches/3.8.0-releng/share/html/Install/index.html
==============================================================================
--- rt/3.8/branches/3.8.0-releng/share/html/Install/index.html	(original)
+++ rt/3.8/branches/3.8.0-releng/share/html/Install/index.html	Fri Jul 11 11:00:32 2008
@@ -80,7 +80,15 @@
 my @errors;
 my $locked;
     my $file = File::Spec->catfile( $RT::EtcPath, 'RT_SiteConfig.pm' );
-    $locked = 1 unless -w $file;
+
+    if ( ! -e $file ) {
+        # write a blank RT_SiteConfig.pm
+        open my $fh, '>', $file or die $!;
+        close $fh;
+    }
+    elsif ( ! -w $file ) {
+        $locked = 1;
+    }
     
     if ( $locked ) {
         push @errors, loc("Config file [_1] is locked", $file);