More updates.

[kiriwrite/.git] / cgi-files / install.cgi

diff --git a/cgi-files/install.cgi b/cgi-files/install.cgi
index 2750d40..22a08aa 100755 (executable)
--- a/cgi-files/install.cgi
+++ b/cgi-files/install.cgi
@@ -4,7 +4,7 @@
 # Kiriwrite Installer Script (install.cgi)                                     #
 # Installation script for Kiriwrite                                            #
 #                                                                              #
-# Version: 0.0.2                                                               #
+# Version: 0.1.0                                                               #
 #                                                                              #
 # Copyright (C) 2005-2007 Steve Brokenshire <sbrokenshire@xestia.co.uk>                #
 #                                                                              #
@@ -26,7 +26,7 @@ use warnings;                         # Write warnings to the HTTP Server Log file.
 
 use utf8;
 use CGI qw(:standard *table *Tr *td);
-use CGI::Carp('fatalsToBrowser');      # Output errors to the browser.
+#use CGI::Carp('fatalsToBrowser');     # Output errors to the browser.
 
 # Setup strings in specific languages. Style should be no spacing for
 # language title and one tabbed spacing for each string.
@@ -110,6 +110,7 @@ $kiriwrite_lang{"en-GB"}{"languagename"}    = "English (British)";
 
        $kiriwrite_lang{"en-GB"}{"errormessagetext"}    = "Please press the back button on your browser or preform the command needed to return to the previous page.";
 
+       $kiriwrite_lang{"en-GB"}{"switch"}              = "Switch";
        $kiriwrite_lang{"en-GB"}{"setting"}             = "Setting";
        $kiriwrite_lang{"en-GB"}{"value"}               = "Value";
        $kiriwrite_lang{"en-GB"}{"filename"}            = "Filename";
@@ -1596,6 +1597,10 @@ $test_list{CheckXMLSimple}{Name}         = "XML::Simple";
 $test_list{CheckXMLSimple}{Type}       = "dependency";
 $test_list{CheckXMLSimple}{Code}       = "XML::Simple";
 
+$test_list{CheckXMLParser}{Name}       = "XML::Parser";
+$test_list{CheckXMLParser}{Type}       = "dependency";
+$test_list{CheckXMLParser}{Code}       = "XML::Parser";
+
 $test_list{CheckTieHash}{Name}         = "Tie::IxHash";
 $test_list{CheckTieHash}{Type}                 = "dependency";
 $test_list{CheckTieHash}{Code}                 = "Tie::IxHash";
@@ -1770,7 +1775,7 @@ foreach $language_name_short (@language_list_short){
 }
 
 print "</select> ";
-print submit('Switch');
+print submit($kiriwrite_lang{$language_selected}{switch});
 
 print end_form;
 print end_td();