[Rt-commit] r11740 - rt/branches/3.8-TESTING/html/Install

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Apr 16 04:53:41 2008
New Revision: 11740

Modified:
   rt/branches/3.8-TESTING/html/Install/Start.html

Log:
uses File to store tmp config

Modified: rt/branches/3.8-TESTING/html/Install/Start.html
==============================================================================
--- rt/branches/3.8-TESTING/html/Install/Start.html	(original)
+++ rt/branches/3.8-TESTING/html/Install/Start.html	Wed Apr 16 04:53:41 2008
@@ -65,11 +65,34 @@
 this wizard introduction...
 </div>
 
-<& Elements/Move, NextLabel => loc('Config Database'),
-NextURL => '/Install/Step1.html'
-&>
+<form method="post">
+<input type="hidden" name="Run" value="1" />
+<& /Elements/Submit, Label => 'Start Config' &>
+</form>
+
 % }
 
+<%init>
+
+if ( $Run ) {
+    use File::Temp qw/tempfile/;
+    my $File;
+    (undef, $File ) = tempfile( 'rt_install_XXXXXX', TMPDIR => 1, UNLINK => 1 );
+    
+    my $escaped_file = $File;
+    RT::Interface::Web::EscapeURI( \$File );
+    
+    RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
+    "/Install/Step1.html?File=$File" );
+}
+
+</%init>
+
 <%args>
 $Force => 0
+$Run => 0
 </%args>
+
+<%flags>
+inherit => '../autohandler'
+</%flags>