[Rt-commit] r13896 - in rt/3.8/trunk: share/html/Install

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jul  8 23:38:19 2008
New Revision: 13896

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/share/html/Install/index.html

Log:
 r14136 at sunnavys-mb:  sunnavy | 2008-07-09 11:31:09 +0800
 nstaller should work without RT_SiteConfig.pm


Modified: rt/3.8/trunk/share/html/Install/index.html
==============================================================================
--- rt/3.8/trunk/share/html/Install/index.html	(original)
+++ rt/3.8/trunk/share/html/Install/index.html	Tue Jul  8 23:38:19 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);