cgi-files/install.cgi

   1 #!/usr/bin/perl -Tw
   2
   3 #################################################################################
   4 # Kiriwrite Installer Script (install.pl/install.cgi)                           #
   5 # Installation script for Kiriwrite                                             #
   6 #                                                                               #
   7 # Version: 0.4.0                                                                #
   8 # mod_perl 2.x compatabile version                                              #
   9 #                                                                               #
  10 # Copyright (C) 2005-2008 Steve Brokenshire <sbrokenshire@xestia.co.uk>         #
  11 #                                                                               #
  12 # This program is free software; you can redistribute it and/or modify it under #
  13 # the terms of the GNU General Public License as published by the Free          #
  14 # Software Foundation; as version 2 of the License.                             #
  15 #                                                                               #
  16 # This program is distributed in the hope that it will be useful, but WITHOUT   #
  17 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS #
  18 # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.#
  19 #                                                                               #
  20 # You should have received a copy of the GNU General Public License along with  #
  21 # this program; if not, write to the Free Software Foundation, Inc., 51         #
  22 # Franklin St, Fifth Floor, Boston, MA 02110-1301 USA                           #
  23 #################################################################################
  24
  25 use strict;                             # Throw errors if there's something wrong.
  26 use warnings;                           # Write warnings to the HTTP Server Log file.
  27
  28 use utf8;
  29 use CGI::Lite;
  30
  31 eval "use CGI::Lite";
  32
  33 if ($@){
  34         print "Content-type: text/html;\r\n\r\n";
  35         print "The CGI::Lite Perl Module is not installed. Please install CGI::Lite and then run this installation script again.";
  36         exit;
  37 }
  38
  39 # Check if mod_perl is running and if it is then add a notice to say
  40 # that additional configuration has to be made.
  41
  42 my $modperlenabled = 0;
  43 my $installscriptname = "install.cgi";
  44 my $kiriwritescriptname = "kiriwrite.cgi";
  45
  46 if ($ENV{'MOD_PERL'}){
  47
  48         # MOD_PERL 2.X SPECIFIC SECTION.
  49
  50         use lib '';
  51         chdir('');
  52
  53         $modperlenabled         = 1;
  54         $installscriptname      = "install.pl";
  55         $kiriwritescriptname    = "kiriwrite.pl";
  56
  57 }
  58
  59 # Setup strings in specific languages. Style should be no spacing for
  60 # language title and one tabbed spacing for each string.
  61
  62 # Define some default settings.
  63
  64 my $default_language            = "en-GB";
  65 my $default_dbdirectory         = "db";
  66 my $default_outputdirectory     = "output";
  67 my $default_imagesuri           = "/images/kiriwrite";
  68
  69 my $default_textarearows        = "10";
  70 my $default_textareacols        = "50";
  71
  72 my $default_server              = "localhost";
  73 my $default_port                = "3306";
  74 my $default_protocol            = "tcp";
  75 my $default_name                = "database";
  76 my $default_username            = "username";
  77 my $default_prefix              = "kiriwrite";
  78
  79 my ($kiriwrite_lang, %kiriwrite_lang);
  80
  81 $kiriwrite_lang{"en-GB"}{"languagename"}        = "English (British)";
  82         $kiriwrite_lang{"en-GB"}{"testpass"}            = "OK";
  83         $kiriwrite_lang{"en-GB"}{"testfail"}            = "Error";
  84
  85         $kiriwrite_lang{"en-GB"}{"generic"}                     = "An error occured which is not known to the Kiriwrite installer.";
  86         $kiriwrite_lang{"en-GB"}{"invalidvariable"}             = "The variable given was invalid.";
  87         $kiriwrite_lang{"en-GB"}{"invalidvalue"}                = "The value given was invalid.";
  88         $kiriwrite_lang{"en-GB"}{"invalidoption"}               = "The option given was invalid.";
  89         $kiriwrite_lang{"en-GB"}{"variabletoolong"}             = "The variable given is too long.";
  90         $kiriwrite_lang{"en-GB"}{"blankdirectory"}              = "The directory name given is blank.";
  91         $kiriwrite_lang{"en-GB"}{"invaliddirectory"}            = "The directory name given is invalid.";
  92         $kiriwrite_lang{"en-GB"}{"moduleblank"}                 = "The module filename given is blank.";
  93         $kiriwrite_lang{"en-GB"}{"moduleinvalid"}               = "The module filename given is invalid.";
  94
  95         $kiriwrite_lang{"en-GB"}{"dbdirectorytoolong"}          = "The database directory name given is too long.";
  96         $kiriwrite_lang{"en-GB"}{"outputdirectorytoolong"}      = "The output directory name given is too long.";
  97         $kiriwrite_lang{"en-GB"}{"imagesuripathtoolong"}        = "The images URI path name given is too long.";
  98         $kiriwrite_lang{"en-GB"}{"dateformattoolong"}           = "The date format given is too long.";
  99         $kiriwrite_lang{"en-GB"}{"customdateformattoolong"}     = "The custom date format given is too long.";
 100         $kiriwrite_lang{"en-GB"}{"languagefilenametoolong"}     = "The language filename given is too long.";
 101
 102         $kiriwrite_lang{"en-GB"}{"dateformatblank"}             = "The date format given was blank.";
 103         $kiriwrite_lang{"en-GB"}{"dateformatinvalid"}           = "The date format given is invalid.";
 104         $kiriwrite_lang{"en-GB"}{"languagefilenameinvalid"}     = "The language filename given is invalid.";
 105
 106         $kiriwrite_lang{"en-GB"}{"dbdirectoryblank"}            = "The database directory name given is blank.";
 107         $kiriwrite_lang{"en-GB"}{"dbdirectoryinvalid"}          = "The database directory name given is invalid.";
 108
 109         $kiriwrite_lang{"en-GB"}{"outputdirectoryblank"}        = "The output directory name given is blank.";
 110         $kiriwrite_lang{"en-GB"}{"outputdirectoryinvalid"}      = "The output directory name given is invalid.";
 111
 112         $kiriwrite_lang{"en-GB"}{"textarearowblank"}            = "The text area row value given is blank.";
 113         $kiriwrite_lang{"en-GB"}{"textarearowtoolong"}          = "The text area row value given is too long.";
 114         $kiriwrite_lang{"en-GB"}{"textarearowinvalid"}          = "The text area row value given is invalid.";
 115
 116         $kiriwrite_lang{"en-GB"}{"textareacolsblank"}           = "The text area columns value given is blank.";
 117         $kiriwrite_lang{"en-GB"}{"textareacolstoolong"}         = "The text area columns value given is too long.";
 118         $kiriwrite_lang{"en-GB"}{"textareacolsinvalid"}         = "The text area columns value given is invalid.";
 119
 120         $kiriwrite_lang{"en-GB"}{"presmoduleblank"}             = "The presentation module name given is blank.";
 121         $kiriwrite_lang{"en-GB"}{"presmoduleinvalid"}           = "The presentation module name given is invalid.";
 122
 123         $kiriwrite_lang{"en-GB"}{"dbmoduleblank"}               = "The database module name given is blank.";
 124         $kiriwrite_lang{"en-GB"}{"dbmoduleinvalid"}             = "The database module name given is invalid.";
 125
 126         $kiriwrite_lang{"en-GB"}{"presmodulemissing"}           = "The presentation module with the filename given is missing.";
 127         $kiriwrite_lang{"en-GB"}{"dbmodulemissing"}             = "The database module with the filename given is missing.";
 128         $kiriwrite_lang{"en-GB"}{"languagefilenamemissing"}     = "The language file with the filename given is missing.";
 129
 130         $kiriwrite_lang{"en-GB"}{"servernametoolong"}           = "The database server name given is too long.";
 131         $kiriwrite_lang{"en-GB"}{"servernameinvalid"}           = "The database server name given is invalid.";
 132         $kiriwrite_lang{"en-GB"}{"serverportnumbertoolong"}     = "The database server port number given is too long.";
 133         $kiriwrite_lang{"en-GB"}{"serverportnumberinvalidcharacters"}   = "The database server port number given contains invalid characters.";
 134         $kiriwrite_lang{"en-GB"}{"serverportnumberinvalid"}     = "The database server port number given is invalid.";
 135         $kiriwrite_lang{"en-GB"}{"serverprotocolnametoolong"}   = "The database server protocol name given is too long.";
 136         $kiriwrite_lang{"en-GB"}{"serverprotocolinvalid"}               = "The database server protocol name is invalid.";
 137         $kiriwrite_lang{"en-GB"}{"serverdatabasenametoolong"}   = "The database name given is too long.";
 138         $kiriwrite_lang{"en-GB"}{"serverdatabasenameinvalid"}   = "The database name given is invalid.";
 139         $kiriwrite_lang{"en-GB"}{"serverdatabaseusernametoolong"}       = "The database server username given is too long.";
 140         $kiriwrite_lang{"en-GB"}{"serverdatabaseusernameinvalid"}       = "The database server username given is invalid.";
 141         $kiriwrite_lang{"en-GB"}{"serverdatabasepasswordtoolong"}       = "The database server password is too long.";
 142         $kiriwrite_lang{"en-GB"}{"serverdatabasetableprefixtoolong"}    = "The database server table prefix given is too long.";
 143         $kiriwrite_lang{"en-GB"}{"serverdatabasetableprefixinvalid"}    = "The database server table prefix given is invalid.";
 144
 145         $kiriwrite_lang{"en-GB"}{"removeinstallscripttoolong"}  = "The remove install script value given is too long.";
 146         $kiriwrite_lang{"en-GB"}{"cannotwriteconfigurationindirectory"} = "The configuration file cannot be written because the directory the install script is running from has invalid permissions.";
 147         $kiriwrite_lang{"en-GB"}{"configurationfilereadpermissionsinvalid"}     = "The configuration that currently exists has invalid read permissions set.";
 148         $kiriwrite_lang{"en-GB"}{"configurationfilewritepermissionsinvalid"}    = "The configuration that currently exists has invalid write permissions set.";
 149
 150         $kiriwrite_lang{"en-GB"}{"errormessagetext"}    = "Please press the back button on your browser or preform the command needed to return to the previous page.";
 151
 152         $kiriwrite_lang{"en-GB"}{"switch"}              = "Switch";
 153         $kiriwrite_lang{"en-GB"}{"setting"}             = "Setting";
 154         $kiriwrite_lang{"en-GB"}{"value"}               = "Value";
 155         $kiriwrite_lang{"en-GB"}{"filename"}            = "Filename";
 156         $kiriwrite_lang{"en-GB"}{"module"}              = "Module";
 157         $kiriwrite_lang{"en-GB"}{"result"}              = "Result";
 158         $kiriwrite_lang{"en-GB"}{"error"}               = "Error!";
 159         $kiriwrite_lang{"en-GB"}{"criticalerror"}       = "Critical Error!";
 160         $kiriwrite_lang{"en-GB"}{"errormessage"}        = "Error: ";
 161         $kiriwrite_lang{"en-GB"}{"warningmessage"}      = "Warning: ";
 162
 163         $kiriwrite_lang{"en-GB"}{"doesnotexist"}        = "Does not exist.";
 164         $kiriwrite_lang{"en-GB"}{"invalidpermissionsset"}       = "Invalid permissions set.";
 165
 166         $kiriwrite_lang{"en-GB"}{"dependencyperlmodulesmissing"}        = "One or more Perl modules that are needed by Kiriwrite are not installed or has problems. See the Kiriwrite documentation for more information on this.";
 167         $kiriwrite_lang{"en-GB"}{"databaseperlmodulesmissing"}  = "One or more Perl modules that are needed by the Kiriwrite database modules are not installed or has problems. See the Kiriwrite documentation for more information on this. There should however, be no problems with the database modules which use the Perl modules that have been found.";
 168         $kiriwrite_lang{"en-GB"}{"filepermissionsinvalid"}      = "One or more of the filenames checked does not exist or has invalid permissions set. See the Kiriwrite documentation for more information on this.";
 169         $kiriwrite_lang{"en-GB"}{"dependencymodulesnotinstalled"}       = "One of the required Perl modules is not installed or has errors. See the Kiriwrite documentation for more information on this.";
 170         $kiriwrite_lang{"en-GB"}{"databasemodulesnotinstalled"} = "None of Perl modules that are used by the database modules are not installed. See the Kiriwrite documentation for more information on this.";
 171         $kiriwrite_lang{"en-GB"}{"filepermissionerrors"}        = "One or more filenames checked has errors. See the Kiriwrite documentation for more information on this.",
 172
 173         $kiriwrite_lang{"en-GB"}{"installertitle"}      = "Kiriwrite Installer";
 174         $kiriwrite_lang{"en-GB"}{"installertext"}       = "This installer script will setup the configuration file used for Kiriwrite. The settings displayed here can be changed at a later date by selecting the Edit Settings link in the View Settings sub-menu.";
 175         $kiriwrite_lang{"en-GB"}{"modperlnotice"}       = "mod_perl has been detected. Please ensure that you have setup this script and the main Kiriwrite script so that mod_perl can use Kiriwrite properly. Please read the mod_perl specific part of Chapter 1: Installation in the Kiriwrite documentation.";
 176         $kiriwrite_lang{"en-GB"}{"dependencytitle"}     = "Dependency and file testing results";
 177         $kiriwrite_lang{"en-GB"}{"requiredmodules"}     = "Required Modules";
 178         $kiriwrite_lang{"en-GB"}{"perlmodules"}         = "These Perl modules are used internally by Kiriwrite.";
 179         $kiriwrite_lang{"en-GB"}{"databasemodules"}     = "Perl Database Modules";
 180         $kiriwrite_lang{"en-GB"}{"databasemodulestext"} = "These Perl modules are used by the database modules.";
 181         $kiriwrite_lang{"en-GB"}{"filepermissions"}     = "File permissions";
 182         $kiriwrite_lang{"en-GB"}{"filepermissionstext"} = "The file permissions are for file and directories that are critical to Kiriwrite such as module and language directories.";
 183
 184         $kiriwrite_lang{"en-GB"}{"settingstitle"}       = "Kiriwrite Settings";
 185         $kiriwrite_lang{"en-GB"}{"settingstext"}        = "The settings given here will be used by Kiriwrite. Some default settings are given here. Certain database modules (like SQLite) do not need the database server settings and can be left alone.";
 186         $kiriwrite_lang{"en-GB"}{"directories"}         = "Directories";
 187         $kiriwrite_lang{"en-GB"}{"databasedirectory"}   = "Database Directory";
 188         $kiriwrite_lang{"en-GB"}{"outputdirectory"}     = "Output Directory";
 189         $kiriwrite_lang{"en-GB"}{"imagesuripath"}       = "Images (URI path)";
 190         $kiriwrite_lang{"en-GB"}{"display"}             = "Display";
 191         $kiriwrite_lang{"en-GB"}{"textareacols"}        = "Text Area Columns";
 192         $kiriwrite_lang{"en-GB"}{"textarearows"}        = "Text Area Rows";
 193         $kiriwrite_lang{"en-GB"}{"date"}                = "Date";
 194         $kiriwrite_lang{"en-GB"}{"dateformat"}          = "Date Format";
 195         $kiriwrite_lang{"en-GB"}{"language"}            = "Language";
 196         $kiriwrite_lang{"en-GB"}{"systemlanguage"}      = "System Language";
 197         $kiriwrite_lang{"en-GB"}{"modules"}             = "Modules";
 198         $kiriwrite_lang{"en-GB"}{"presentationmodule"}  = "Presentation Module";
 199         $kiriwrite_lang{"en-GB"}{"databasemodule"}      = "Database Module";
 200         $kiriwrite_lang{"en-GB"}{"databaseserver"}      = "Database Server";
 201         $kiriwrite_lang{"en-GB"}{"databaseport"}        = "Database Port";
 202         $kiriwrite_lang{"en-GB"}{"databaseprotocol"}    = "Database Protocol";
 203         $kiriwrite_lang{"en-GB"}{"databasename"}        = "Database Name";
 204         $kiriwrite_lang{"en-GB"}{"databaseusername"}    = "Database Username";
 205         $kiriwrite_lang{"en-GB"}{"databasepassword"}    = "Database Password";
 206         $kiriwrite_lang{"en-GB"}{"databasetableprefix"} = "Database Table Prefix";
 207         $kiriwrite_lang{"en-GB"}{"installationoptions"} = "Installation Options";
 208         $kiriwrite_lang{"en-GB"}{"installoptions"}      = "Install Options";
 209         $kiriwrite_lang{"en-GB"}{"removeinstallscript"} = "Delete this installer script after configuration file has been written.";
 210         $kiriwrite_lang{"en-GB"}{"savesettingsbutton"}  = "Save Settings";
 211         $kiriwrite_lang{"en-GB"}{"resetsettingsbutton"} = "Reset Settings";
 212
 213         $kiriwrite_lang{"en-GB"}{"installscriptremoved"}        = "The installer script was removed.";
 214         $kiriwrite_lang{"en-GB"}{"installedmessage"}    = "The configuration file for Kiriwrite has been written. To change the settings in the configuration file at a later date use the Edit Settings link in the View Settings sub-menu at the top of the page when using Kiriwrite.";
 215         $kiriwrite_lang{"en-GB"}{"cannotremovescript"}  = "Unable to remove the installer script: %s. The installer script will have to be deleted manually.";
 216         $kiriwrite_lang{"en-GB"}{"usekiriwritetext"}    = "To use Kiriwrite click or select the link below (will not work if the Kiriwrite script is not called kiriwrite.cgi/kiriwrite.pl):";
 217         $kiriwrite_lang{"en-GB"}{"usekiriwritelink"}    = "Start using Kiriwrite.";
 218
 219 my $query_lite = new CGI::Lite;
 220 my $form_data = $query_lite->parse_form_data;
 221
 222 my $language_selected = "";
 223 my $http_query_confirm = $form_data->{'confirm'};
 224 my $http_query_installlanguage = $form_data->{'installlanguage'};
 225
 226 if (!$http_query_installlanguage){
 227
 228         $language_selected = $default_language;
 229
 230 } else {
 231
 232         $language_selected = $http_query_installlanguage;
 233
 234 }
 235
 236 # Process the list of available languages.
 237
 238 my $language_list_name;
 239 my @language_list_short;
 240 my @language_list_long;
 241
 242 foreach my $language (keys %kiriwrite_lang){
 243
 244         $language_list_name = $kiriwrite_lang{$language}{"languagename"} . " (" . $language .  ")";
 245         push(@language_list_short, $language);
 246         push(@language_list_long, $language_list_name);
 247
 248 }
 249
 250 # The CSS Stylesheet to use.
 251
 252 my $cssstyle = "
 253
 254 a {
 255         color: #FFFFFF;
 256 }
 257
 258 body {
 259         background-color: #408080;
 260         color: #FFFFFF;
 261         font-family: sans-serif;
 262         font-size: 12px;
 263 }
 264
 265 input {
 266         font-size: 12px;
 267         background-color: #408080;
 268         color: #FFFFFF;
 269         border-color: #102020;
 270         border-style: solid;
 271         border-width: 1px;
 272         padding: 3px;
 273
 274 }
 275
 276 select {
 277         font-size: 12px;
 278         padding: 3px;
 279         background-color: #408080;
 280         color: #FFFFFF;
 281         border-color: #102020;
 282         border-style: solid;
 283         border-width: 1px;
 284         padding: 3px;
 285 }
 286
 287 td,table {
 288         padding: 5px;
 289         border-spacing: 0px;
 290 }
 291
 292 .languagebar {
 293         background-color: #204040;
 294         vertical-align: top;
 295 }
 296
 297 .languagebarselect {
 298         text-align: right;
 299         background-color: #204040;
 300 }
 301
 302 .tablecellheader {
 303         background-color: #204040;
 304         font-weight: bold;
 305 }
 306
 307 .tabledata {
 308         background-color: #357070;
 309 }
 310
 311 .tablename {
 312
 313         background-color: #306060;
 314
 315 }
 316
 317 ";
 318
 319
 320 #################################################################################
 321 # Begin list of subroutines.                                                    #
 322 #################################################################################
 323
 324 sub kiriwrite_variablecheck{
 325 #################################################################################
 326 # kiriwrite_variablecheck: Check to see if the data passed is valid.            #
 327 #                                                                               #
 328 # Usage:                                                                        #
 329 #                                                                               #
 330 # kiriwrite_variablecheck(variablename, type, option, noerror);                 #
 331 #                                                                               #
 332 # variablename  Specifies the variable to be checked.                           #
 333 # type          Specifies what type the variable is.                            #
 334 # option        Specifies the maximum/minimum length of the variable            #
 335 #               (if minlength/maxlength is used) or if the filename should be   #
 336 #               checked to see if it is blank.                                  #
 337 # noerror       Specifies if Kiriwrite should return an error or not on         #
 338 #               certain values.                                                 #
 339 #################################################################################
 340
 341         # Get the values that were passed to the subroutine.
 342
 343         my ($variable_data, $variable_type, $variable_option, $variable_noerror) = @_;
 344
 345         if ($variable_type eq "numbers"){
 346
 347                 # Check for numbers and return an error if there is anything else than numebrs.
 348
 349                 my $variable_data_validated = $variable_data;   # Copy the variable_data to variable_data_validated.
 350                 $variable_data_validated =~ tr/0-9//d;          # Take away all of the numbers and from the variable.
 351                                                                 # If it only contains numbers then it should be blank.
 352
 353                 if ($variable_data_validated eq ""){
 354                         # The validated variable is blank. So continue to the end of this section where the return function should be.
 355                 } else {
 356                         # The variable is not blank, so check if the no error value is set
 357                         # to 1 or not.
 358
 359                         if ($variable_noerror eq 1){
 360
 361                                 # The validated variable is not blank and the noerror
 362                                 # value is set to 1. So return an value of 1.
 363                                 # (meaning that the data is invalid).
 364
 365                                 return 1;
 366
 367                         } elsif ($variable_noerror eq 0) {
 368
 369                                 # The validated variable is not blank and the noerror
 370                                 # value is set to 0.
 371
 372                                 kiriwrite_error("invalidvariable");
 373
 374                         } else {
 375
 376                                 # The variable noerror value is something else
 377                                 # pther than 1 or 0. So return an error.
 378
 379                                 kiriwrite_error("invalidvariable");
 380
 381                         }
 382
 383                 }
 384
 385                 return 0;
 386
 387         } elsif ($variable_type eq "lettersnumbers"){
 388
 389                 # Check for letters and numbers and return an error if there is anything else other
 390                 # than letters and numbers.
 391
 392                 my $variable_data_validated = $variable_data;   # Copy the variable_data to variable_data_validated
 393                 $variable_data_validated =~ tr/a-zA-Z0-9.//d;
 394                 $variable_data_validated =~ s/\s//g;
 395
 396                 if ($variable_data_validated eq ""){
 397                         # The validated variable is blank. So continue to the end of this section where the return function should be.
 398                 } else {
 399                         # The variable is not blank, so check if the no error value is set
 400                         # to 1 or not.
 401
 402                         if ($variable_noerror eq 1){
 403
 404                                 # The validated variable is not blank and the noerror
 405                                 # value is set to 1. So return an value of 1.
 406                                 # (meaning that the data is invalid).
 407
 408                                 return 1;
 409
 410                         } elsif ($variable_noerror eq 0) {
 411
 412                                 # The validated variable is not blank and the noerror
 413                                 # value is set to 0.
 414
 415                                 kiriwrite_error("invalidvariable");
 416
 417                         } else {
 418
 419                                 # The variable noerror value is something else
 420                                 # pther than 1 or 0. So return an error.
 421
 422                                 kiriwrite_error("invalidvariable");
 423
 424                         }
 425
 426                 }
 427
 428                 return 0;
 429
 430         } elsif ($variable_type eq "maxlength"){
 431                 # Check for the length of the variable, return an error if it is longer than the length specified.
 432
 433                 # Check if the variable_data string is blank, if it is then set the variable_data_length
 434                 # to '0'.
 435
 436                 my $variable_data_length = 0;
 437
 438                 if (!$variable_data){
 439
 440                         # Set variable_data_length to '0'.
 441                         $variable_data_length = 0;
 442
 443                 } else {
 444
 445                         # Get the length of the variable recieved.
 446                         $variable_data_length = length($variable_data);
 447
 448                 }
 449
 450
 451
 452                 if ($variable_data_length > $variable_option){
 453
 454                         # The variable length is longer than it should be so check if
 455                         # the no error value is set 1.
 456
 457                         if ($variable_noerror eq 1){
 458
 459                                 # The no error value is set to 1, so return an
 460                                 # value of 1 (meaning tha the variable is
 461                                 # too long to be used).
 462
 463                                 return 1;
 464
 465                         } elsif ($variable_noerror eq 0){
 466
 467                                 # The no error value is set to 0, so return
 468                                 # an error.
 469
 470                                 kiriwrite_error("variabletoolong");
 471
 472                         } else {
 473
 474                                 # The no error value is something else other
 475                                 # than 0 or 1, so return an error.
 476
 477                                 kiriwrite_error("variabletoolong");
 478
 479                         }
 480
 481                 } else {
 482
 483                         # The variable length is exactly or shorter than specified, so continue to end of this section where
 484                         # the return function should be.
 485
 486                 }
 487
 488                 return 0;
 489
 490         } elsif ($variable_type eq "datetime"){
 491                 # Check if the date and time setting format is valid.
 492
 493                 if ($variable_data eq ""){
 494
 495                         if ($variable_noerror eq 1){
 496
 497                                 # The no error value is set to 1 so return
 498                                 # a value of 1 (meaning that the date and
 499                                 # time format was blank).
 500
 501                                 return 1;
 502
 503                         } elsif ($variable_noerror eq 0){
 504
 505                                 # The no error value is set to 1 so return
 506                                 # an error.
 507
 508                                 kiriwrite_error("dateformatblank");
 509
 510                         } else {
 511
 512                                 # The no error value is something else other
 513                                 # than 0 or 1, so return an error.
 514
 515                                 kiriwrite_error("invalidvariable");
 516
 517                         }
 518
 519                 }
 520
 521                 my $variable_data_validated = $variable_data;
 522                 $variable_data_validated =~ tr|dDmMyYhms/():[ ]||d;
 523
 524                 if ($variable_data_validated eq ""){
 525
 526                         # The date and time format is valid. So
 527                         # skip this bit.
 528
 529                 } else {
 530
 531                         # The validated data variable is not blank, meaning
 532                         # that it contains something else, so return an error
 533                         # (or a value).
 534
 535                         if ($variable_noerror eq 1){
 536
 537                                 # The no error value is set to 1 so return
 538                                 # an value of 2. (meaning that the date and
 539                                 # time format was invalid).
 540
 541                                 return 2;
 542
 543                         } elsif ($variable_noerror eq 0){
 544
 545                                 # The no error value is set to 0 so return
 546                                 # an error.
 547
 548                                 kiriwrite_error("dateformatinvalid");
 549
 550                         } else {
 551
 552                                 # The no error value is something else other
 553                                 # than 0 or 1 so return an error.
 554
 555                                 kiriwrite_error("invalidvariable");
 556
 557                         }
 558
 559                 }
 560
 561                 return 0;
 562
 563         } elsif ($variable_type eq "directory"){
 564                 # Check if the directory only contains letters and numbers and
 565                 # return an error if anything else appears.
 566
 567                 my $variable_data_validated = $variable_data;
 568                 $variable_data_validated =~ tr/a-zA-Z0-9//d;
 569
 570                 if ($variable_data eq ""){
 571
 572                         if ($variable_noerror eq 1){
 573
 574                                 # The no error value is set to 1 so return
 575                                 # a value of 1 (meaning that the directory
 576                                 # name was blank).
 577
 578                                 return 1;
 579
 580                         } elsif ($variable_noerror eq 0){
 581
 582                                 # The no error value is set to 1 so return
 583                                 # an error.
 584
 585                                 kiriwrite_error("blankdirectory");
 586
 587                         } else {
 588
 589                                 # The no error value is something else other
 590                                 # than 0 or 1, so return an error.
 591
 592                                 kiriwrite_error("invalidvariable");
 593
 594                         }
 595
 596                 }
 597
 598                 if ($variable_data_validated eq ""){
 599
 600                         # The validated data variable is blank, meaning that
 601                         # it only contains letters and numbers.
 602
 603                 } else {
 604
 605                         # The validated data variable is not blank, meaning
 606                         # that it contains something else, so return an error
 607                         # (or a value).
 608
 609                         if ($variable_noerror eq 1){
 610
 611                                 # The no error value is set to 1 so return
 612                                 # an value of 2. (meaning that the directory
 613                                 # name is invalid).
 614
 615                                 return 2;
 616
 617                         } elsif ($variable_noerror eq 0){
 618
 619                                 # The no error value is set to 0 so return
 620                                 # an error.
 621
 622                                 kiriwrite_error("invaliddirectory");
 623
 624                         } else {
 625
 626                                 # The no error value is something else other
 627                                 # than 0 or 1 so return an error.
 628
 629                                 kiriwrite_error("invalidvariable");
 630
 631                         }
 632
 633                 }
 634
 635                 return 0;
 636
 637         } elsif ($variable_type eq "language_filename"){
 638
 639                 # The variable type is a language filename type.
 640                 # Check if the language file name is blank and
 641                 # if it is then return an error (or value).
 642
 643                 if ($variable_data eq ""){
 644
 645                         # The language filename is blank so check the
 646                         # no error value and return an error (or value).
 647
 648                         if ($variable_noerror eq 1){
 649
 650                                 # Language filename is blank and the no error value
 651                                 # is set as 1, so return a value of 1 (saying that
 652                                 # the language filename is blank).
 653
 654                                 return 1;
 655
 656                         } elsif ($variable_noerror eq 0) {
 657
 658                                 # Language filename is blank and the no error value
 659                                 # is not set as 1, so return an error.
 660
 661                                 kiriwrite_error("languagefilenameblank");
 662
 663                         } else {
 664
 665                                 # The noerror value is something else other
 666                                 # than 0 or 1 so return an error.
 667
 668                                 kiriwrite_error("invalidvariable");
 669
 670                         }
 671
 672                 }
 673
 674                 # Set the following variables for later on.
 675
 676                 my $variable_data_length = 0;
 677                 my $variable_data_char = "";
 678                 my $variable_data_seek = 0;
 679
 680                 # Get the length of the language file name.
 681
 682                 $variable_data_length = length($variable_data);
 683
 684                 do {
 685
 686                         # Get a character from the language filename passed to this
 687                         # subroutine and the character the seek counter value is set
 688                         # to.
 689
 690                         $variable_data_char = substr($variable_data, $variable_data_seek, 1);
 691
 692                         # Check if the language filename contains a forward slash or a dot,
 693                         # if the selected character is a forward slash then return an error
 694                         # (or value).
 695
 696                         if ($variable_data_char eq "/" || $variable_data_char eq "."){
 697
 698                                 # The language filename contains a forward slash or
 699                                 # a dot so depending on the no error value, return
 700                                 # an error or a value.
 701
 702                                 if ($variable_noerror eq 1){
 703
 704                                         # Language filename contains a forward slash or a dot
 705                                         # and the no error value has been set to 1, so return
 706                                         # an value of 2 (saying that the language file name is
 707                                         # invalid).
 708
 709                                         return 2;
 710
 711                                 } elsif ($variable_noerror eq 0) {
 712
 713                                         # Language filename contains a forward slash and the no
 714                                         # error value has not been set to 1, so return an error.
 715
 716                                         kiriwrite_error("languagefilenameinvalid");
 717
 718                                 } else {
 719
 720                                         # The noerror value is something else other than
 721                                         # 1 or 0 so return an error.
 722
 723                                         kiriwrite_error("invalidvariable");
 724
 725                                 }
 726
 727                         }
 728
 729                         # Increment the seek counter.
 730
 731                         $variable_data_seek++;
 732
 733                 } until ($variable_data_seek eq $variable_data_length);
 734
 735                 return 0;
 736
 737         } elsif ($variable_type eq "module"){
 738
 739                 # The variable type is a presentation module filename.
 740
 741                 # Check if the variable_data is blank and if it is
 742                 # return an error.
 743
 744                 if ($variable_data eq ""){
 745
 746                         # The presentation module is blank so check if an error
 747                         # value should be returned or a number should be
 748                         # returned.
 749
 750                         if ($variable_noerror eq 1){
 751
 752                                 # Module name is blank and the no error value
 753                                 # is set to 1 so return a value of 2 (meaning
 754                                 # that the page filename is blank).
 755
 756                                 return 1;
 757
 758                         } elsif ($variable_noerror eq 0) {
 759
 760                                 # Module name contains is blank and the no error
 761                                 # value is set to 0 so return an error.
 762
 763                                 kiriwrite_critical("moduleblank");
 764
 765                         } else {
 766
 767                                 # The no error value is something else other
 768                                 # than 0 or 1 so return an error.
 769
 770                                 kiriwrite_critical("invalidvalue");
 771
 772                         }
 773
 774                 } else {
 775
 776                 }
 777
 778                 my $variable_data_validated = $variable_data;
 779                 $variable_data_validated =~ tr/a-zA-Z0-9//d;
 780
 781                 if ($variable_data_validated eq ""){
 782
 783                 } else {
 784
 785                         if ($variable_noerror eq 1){
 786
 787                                 # Module name contains invalid characters and
 788                                 # the no error value is set to 1 so return a
 789                                 # value of 2 (meaning that the page filename
 790                                 # is invalid).
 791
 792                                 return 2;
 793
 794                         } elsif ($variable_noerror eq 0) {
 795
 796                                 # Module name contains invalid characters and
 797                                 # the no error value is set to 0 so return an
 798                                 # error.
 799
 800                                 kiriwrite_critical("moduleinvalid");
 801
 802                         } else {
 803
 804                                 # The no error value is something else other
 805                                 # than 0 or 1 so return an error.
 806
 807                                 kiriwrite_error("invalidvalue");
 808
 809                         }
 810
 811                 }
 812
 813                 return 0;
 814
 815         } elsif ($variable_type eq "serverprotocol"){
 816
 817                 # Check if the server protocol is TCP or UDP and return
 818                 # an error if it isn't.
 819
 820                 if ($variable_data ne "tcp" && $variable_data ne "udp"){
 821
 822                         # The protocol given is not valid, check if the no
 823                         # error value is set to 1 and return an error if it isn't.
 824
 825                         if ($variable_noerror eq 1){
 826
 827                                 # The no error value has been set to 1, so return a
 828                                 # value of 1 (meaning that the server protocol is
 829                                 # invalid).
 830
 831                                 return 1;
 832
 833                         } elsif ($variable_noerror eq 0){
 834
 835                                 # The no error value has been set to 0, so return
 836                                 # an error.
 837
 838                                 kiriwrite_error("serverprotocolinvalid");
 839
 840                         } else {
 841
 842                                 # The no error value is something else other than 0
 843                                 # or 1, so return an error.
 844
 845                                 kiriwrite_error("invalidoption");
 846
 847                         }
 848
 849                 }
 850
 851                 return 0;
 852
 853         } elsif ($variable_type eq "port"){
 854
 855                 # Check if the port number given is less than 0 or more than 65535
 856                 # and return an error if it is.
 857
 858                 if ($variable_data < 0 || $variable_data > 65535){
 859
 860                         # The port number is less than 0 and more than 65535 so
 861                         # check if the no error value is set to 1 and return an
 862                         # error if it isn't.
 863
 864                         if ($variable_noerror eq 1){
 865
 866                                 # The no error value has been set to 1, so return a
 867                                 # value of 1 (meaning that the port number is invalid).
 868
 869                                 return 1;
 870
 871                         } elsif ($variable_noerror eq 0){
 872
 873                                 # The no error value has been set to 0, so return
 874                                 # an error.
 875
 876                                 kiriwrite_error("serverportnumberinvalid");
 877
 878                         } else {
 879
 880                                 # The no error value is something else other than 0
 881                                 # or 1, so return an error.
 882
 883                                 kiriwrite_error("invalidoption");
 884
 885                         }
 886
 887                 }
 888
 889                 return 0;
 890
 891         }
 892
 893         # Another type than the valid ones above has been specified so return an error specifying an invalid option.
 894         kiriwrite_error("invalidoption");
 895
 896 }
 897
 898 sub kiriwrite_error{
 899 #################################################################################
 900 # kiriwrite_error: Subroutine for processing error messages.                    #
 901 #                                                                               #
 902 # Usage:                                                                        #
 903 #                                                                               #
 904 # kiriwrite_error(errortype);                                                   #
 905 #                                                                               #
 906 # errortype     Specifies the error type to use.                                #
 907 #################################################################################
 908
 909         my $error_type = shift;
 910
 911         # Load the list of error messages.
 912
 913         my (%kiriwrite_error, $kiriwrite_error);
 914
 915         %kiriwrite_error = (
 916
 917                 # Generic Error Messages
 918
 919                 "generic"                       => $kiriwrite_lang{$language_selected}{generic},
 920
 921                 "invalidvariable"               => $kiriwrite_lang{$language_selected}{invalidvariable},
 922                 "invalidvalue"                  => $kiriwrite_lang{$language_selected}{invalidvalue},
 923                 "invalidoption"                 => $kiriwrite_lang{$language_selected}{invalidoption},
 924                 "variabletoolong"               => $kiriwrite_lang{$language_selected}{variabletoolong},
 925                 "blankdirectory"                => $kiriwrite_lang{$language_selected}{blankdirectory},
 926                 "invaliddirectory"              => $kiriwrite_lang{$language_selected}{invaliddirectory},
 927                 "moduleblank"                   => $kiriwrite_lang{$language_selected}{moduleblank},
 928                 "moduleinvalid"                 => $kiriwrite_lang{$language_selected}{moduleinvalid},
 929
 930                 # Specific Error Messages
 931
 932                 "dbdirectorytoolong"            => $kiriwrite_lang{$language_selected}{dbdirectorytoolong},
 933                 "outputdirectorytoolong"        => $kiriwrite_lang{$language_selected}{outputdirectorytoolong},
 934                 "imagesuripathtoolong"          => $kiriwrite_lang{$language_selected}{imagesuripathtoolong},
 935                 "dateformattoolong"             => $kiriwrite_lang{$language_selected}{dateformattoolong},
 936                 "customdateformattoolong"       => $kiriwrite_lang{$language_selected}{customdateformattoolong},
 937                 "languagefilenametoolong"       => $kiriwrite_lang{$language_selected}{languagefilenametoolong},
 938
 939                 "dateformatblank"               => $kiriwrite_lang{$language_selected}{dateformatblank},
 940                 "dateformatinvalid"             => $kiriwrite_lang{$language_selected}{dateformatinvalid},
 941                 "languagefilenameinvalid"       => $kiriwrite_lang{$language_selected}{languagefilenameinvalid},
 942
 943                 "dbdirectoryblank"              => $kiriwrite_lang{$language_selected}{dbdirectoryblank},
 944                 "dbdirectoryinvalid"            => $kiriwrite_lang{$language_selected}{dbdirectoryinvalid},
 945
 946                 "textarearowblank"              => $kiriwrite_lang{$language_selected}{textarearowblank},
 947                 "textarearowtoolong"            => $kiriwrite_lang{$language_selected}{textarearowtoolong},
 948                 "textarearowinvalid"            => $kiriwrite_lang{$language_selected}{textarearowinvalid},
 949
 950                 "textareacolsblank"             => $kiriwrite_lang{$language_selected}{textareacolsblank},
 951                 "textareacolstoolong"           => $kiriwrite_lang{$language_selected}{textareacolstoolong},
 952                 "textareacolsinvalid"           => $kiriwrite_lang{$language_selected}{textareacolsinvalid},
 953
 954                 "outputdirectoryblank"          => $kiriwrite_lang{$language_selected}{outputdirectoryblank},
 955                 "outputdirectoryinvalid"        => $kiriwrite_lang{$language_selected}{outputdirectoryinvalid},
 956
 957                 "presmoduleblank"               => $kiriwrite_lang{$language_selected}{presmoduleblank},
 958                 "presmoduleinvalid"             => $kiriwrite_lang{$language_selected}{presmoduleinvalid},
 959
 960                 "dbmoduleblank"                 => $kiriwrite_lang{$language_selected}{dbmoduleblank},
 961                 "dbmoduleinvalid"               => $kiriwrite_lang{$language_selected}{dbmoduleinvalid},
 962
 963                 "presmodulemissing"             => $kiriwrite_lang{$language_selected}{presmodulemissing},
 964                 "dbmodulemissing"               => $kiriwrite_lang{$language_selected}{dbmodulemissing},
 965                 "languagefilenamemissing"       => $kiriwrite_lang{$language_selected}{languagefilenamemissing},
 966
 967                 "servernametoolong"             => $kiriwrite_lang{$language_selected}{servernametoolong},
 968                 "servernameinvalid"             => $kiriwrite_lang{$language_selected}{servernameinvalid},
 969                 "serverportnumbertoolong"       => $kiriwrite_lang{$language_selected}{serverportnumbertoolong},
 970                 "serverportnumberinvalidcharacters"     => $kiriwrite_lang{$language_selected}{serverportnumberinvalidcharacters},
 971                 "serverportnumberinvalid"       => $kiriwrite_lang{$language_selected}{serverportnumberinvalid},
 972                 "serverprotocolnametoolong"     => $kiriwrite_lang{$language_selected}{serverprotocolnametoolong},
 973                 "serverprotocolinvalid"         => $kiriwrite_lang{$language_selected}{serverprotocolinvalid},
 974                 "serverdatabasenametoolong"     => $kiriwrite_lang{$language_selected}{serverdatabasenametoolong},
 975                 "serverdatabasenameinvalid"     => $kiriwrite_lang{$language_selected}{serverdatabasenameinvalid},
 976                 "serverdatabaseusernametoolong" => $kiriwrite_lang{$language_selected}{serverdatabaseusernametoolong},
 977                 "serverdatabaseusernameinvalid" => $kiriwrite_lang{$language_selected}{serverdatabaseusernameinvalid},
 978                 "serverdatabasepasswordtoolong" => $kiriwrite_lang{$language_selected}{serverdatabasepasswordtoolong},
 979                 "serverdatabasetableprefixtoolong"      => $kiriwrite_lang{$language_selected}{serverdatabasetableprefixtoolong},
 980                 "serverdatabasetableprefixinvalid"      => $kiriwrite_lang{$language_selected}{serverdatabasetableprefixinvalid},
 981
 982                 "removeinstallscripttoolong"    => $kiriwrite_lang{$language_selected}{removeinstallscripttoolong},
 983                 "cannotwriteconfigurationindirectory"   => $kiriwrite_lang{$language_selected}{cannotwriteconfigurationindirectory},
 984                 "configurationfilereadpermissionsinvalid"       => $kiriwrite_lang{$language_selected}{configurationfilereadpermissionsinvalid},
 985                 "configurationfilewritepermissionsinvalid"      => $kiriwrite_lang{$language_selected}{configurationfilewritepermissionsinvalid},
 986
 987         );
 988
 989         # Check if the specified error is blank and if it is
 990         # use the generic error messsage.
 991
 992         if (!$kiriwrite_error{$error_type}){
 993                 $error_type = "generic";
 994         }
 995
 996         print "Content-type: text/html;\r\n\r\n";
 997
 998         print "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n";
 999         print "<head>\n<title>$kiriwrite_lang{$language_selected}{installertitle}</title>\n<style type=\"text/css\" media=\"screen\">$cssstyle</style>\n</head>\n<body>\n";
1000
1001         print "<h2>$kiriwrite_lang{$language_selected}{error}</h2>";
1002
1003         print $kiriwrite_error{$error_type};
1004         print "<br />\n";
1005         print $kiriwrite_lang{$language_selected}{errormessagetext};
1006
1007         print "</body>\n</html>";
1008
1009         exit;
1010
1011 }
1012
1013 sub kiriwrite_writeconfig{
1014 #################################################################################
1015 # kiriwrite_writeconfig: Writes a configuration file.                           #
1016 #                                                                               #
1017 # Usage:                                                                        #
1018 #                                                                               #
1019 # kiriwrite_writeconfig();                                                      #
1020 #################################################################################
1021
1022         my ($passedsettings) = @_;
1023
1024         # Open the configuration file for writing.
1025
1026         open (my $configfile, "> " . "kiriwrite.cfg");
1027
1028         print $configfile "[config]
1029 directory_data_db = $passedsettings->{DatabaseDirectory}
1030 directory_data_output = $passedsettings->{OutputDirectory}
1031 directory_noncgi_images = $passedsettings->{ImagesURIPath}
1032
1033 system_language = $passedsettings->{Language}
1034 system_presmodule = $passedsettings->{PresentationModule}
1035 system_dbmodule = $passedsettings->{DatabaseModule}
1036 system_datetime = $passedsettings->{DateFormat}
1037
1038 display_textareacols = $passedsettings->{TextAreaCols}
1039 display_textarearows = $passedsettings->{TextAreaRows}
1040 display_pagecount = 50
1041 display_filtercount = 50
1042 display_templatecount = 50
1043
1044 database_server = $passedsettings->{DatabaseServer}
1045 database_port = $passedsettings->{DatabasePort}
1046 database_protocol = $passedsettings->{DatabaseProtocol}
1047 database_sqldatabase = $passedsettings->{DatabaseName}
1048 database_username = $passedsettings->{DatabaseUsername}
1049 database_password = $passedsettings->{DatabasePassword}
1050 database_tableprefix = $passedsettings->{DatabaseTablePrefix}
1051         ";
1052
1053         close ($configfile);
1054
1055 }
1056
1057 sub kiriwrite_addtablerow{
1058 #################################################################################
1059 # kiriwrite_addtablerow: Adds a table row.                                      #
1060 #                                                                               #
1061 # Usage:                                                                        #
1062 #                                                                               #
1063 # kiriwrite_addtablerow(name, data);                                            #
1064 #                                                                               #
1065 # name          Specifies the name of the table row.                            #
1066 # namestyle     Specifies the style for the name of the table row.              #
1067 # data          Specifies the data to be used in the table row.                 #
1068 # datastyle     Specifies the style for the data of the table row.              #
1069 #################################################################################
1070
1071         my ($name, $namestyle, $data, $datastyle) = @_;
1072
1073         if (!$data){
1074
1075                 $data = "";
1076
1077         }
1078
1079         print "<tr>\n";
1080         print "<td class=\"$namestyle\">$name</td>\n";
1081         print "<td class=\"$datastyle\">$data</td>\n";
1082         print "</tr>\n";
1083
1084 }
1085
1086 sub kiriwrite_processconfig{
1087 #################################################################################
1088 # kiriwrite_processconfig: Processes an INI style configuration file.           #
1089 #                                                                               #
1090 # Usage:                                                                        #
1091 #                                                                               #
1092 # kiriwrite_processconfig(data);                                                #
1093 #                                                                               #
1094 # data  Specifies the data to process.                                          #
1095 #################################################################################
1096
1097         my (@settings) = @_;
1098
1099         my ($settings_line, %settings, $settings, $sectionname, $setting_name, $setting_value);
1100
1101         foreach $settings_line (@settings){
1102
1103                 next if !$settings_line;
1104
1105                 # Check if the first character is a bracket.
1106
1107                 if (substr($settings_line, 0, 1) eq "["){
1108                         $settings_line =~ s/\[//;
1109                         $settings_line =~ s/\](.*)//;
1110                         $settings_line =~ s/\n//;
1111                         $sectionname = $settings_line;
1112                         next;
1113                 }
1114
1115                 $setting_name  = $settings_line;
1116                 $setting_value = $settings_line;
1117                 $setting_name  =~ s/\=(.*)//;
1118                 $setting_name  =~ s/\n//;
1119                 $setting_value =~ s/(.*)\=//;
1120                 $setting_value =~ s/\n//;
1121
1122                 # Remove the spacing before and after the '=' sign.
1123
1124                 $setting_name =~ s/\s+$//;
1125                 $setting_value =~ s/^\s+//;
1126                 $setting_value =~ s/\r//;
1127
1128                 $settings{$sectionname}{$setting_name} = $setting_value;
1129
1130         }
1131
1132         return %settings;
1133
1134 }
1135
1136 #################################################################################
1137 # End list of subroutines.                                                      #
1138 #################################################################################
1139
1140 if (!$http_query_confirm){
1141
1142         $http_query_confirm = 0;
1143
1144 }
1145
1146 if ($http_query_confirm eq 1){
1147
1148         # The confirm value has been given so get the data from the query.
1149
1150         my $http_query_dbdirectory              = $form_data->{'dbdirectory'};
1151         my $http_query_outputdirectory          = $form_data->{'outputdirectory'};
1152         my $http_query_imagesuripath            = $form_data->{'imagesuripath'};
1153
1154         my $http_query_textarearows             = $form_data->{'textarearows'};
1155         my $http_query_textareacols             = $form_data->{'textareacols'};
1156
1157         my $http_query_dateformat               = $form_data->{'dateformat'};
1158         my $http_query_customdateformat         = $form_data->{'customdateformat'};
1159
1160         my $http_query_language                 = $form_data->{'language'};
1161
1162         my $http_query_presmodule               = $form_data->{'presmodule'};
1163         my $http_query_dbmodule                 = $form_data->{'dbmodule'};
1164
1165         my $http_query_databaseserver           = $form_data->{'databaseserver'};
1166         my $http_query_databaseport             = $form_data->{'databaseport'};
1167         my $http_query_databaseprotocol         = $form_data->{'databaseprotocol'};
1168         my $http_query_databasename             = $form_data->{'databasename'};
1169         my $http_query_databaseusername         = $form_data->{'databaseusername'};
1170         my $http_query_databasepassword         = $form_data->{'databasepassword'};
1171         my $http_query_databasetableprefix      = $form_data->{'databasetableprefix'};
1172         my $http_query_removeinstallscript      = $form_data->{'removeinstallscript'};
1173
1174         # Check if the text area rows and column values are blank.
1175
1176         if (!$http_query_textarearows){
1177
1178                 # The text area rows value is blank so return
1179                 # an error.
1180
1181                 kiriwrite_error("textarearowblank");
1182
1183         }
1184
1185         if (!$http_query_textareacols){
1186
1187                 # The text area columns value is blank so
1188                 # return an error.
1189
1190                 kiriwrite_error("textareacolsblank");
1191
1192         }
1193
1194         # Check the length of the variables.
1195
1196         my $kiriwrite_dbdirectory_length_check          = kiriwrite_variablecheck($http_query_dbdirectory, "maxlength", 64, 1);
1197         my $kiriwrite_outputdirectory_length_check      = kiriwrite_variablecheck($http_query_outputdirectory, "maxlength", 64, 1);
1198         my $kiriwrite_imagesuripath_length_check        = kiriwrite_variablecheck($http_query_imagesuripath, "maxlength", 512, 1);
1199         my $kiriwrite_textarearow_length_check          = kiriwrite_variablecheck($http_query_textarearows, "maxlength", 3, 1);
1200         my $kiriwrite_textareacols_length_check         = kiriwrite_variablecheck($http_query_textareacols, "maxlength", 3, 1);
1201         my $kiriwrite_dateformat_length_check           = kiriwrite_variablecheck($http_query_dateformat, "maxlength", 32, 1);
1202         my $kiriwrite_customdateformat_length_check     = kiriwrite_variablecheck($http_query_customdateformat, "maxlength", 32, 1);
1203         my $kiriwrite_language_length_check             = kiriwrite_variablecheck($http_query_language, "maxlength", 16, 1);
1204
1205         # Check if any errors occured while checking the
1206         # length of the variables.
1207
1208         if ($kiriwrite_dbdirectory_length_check eq 1){
1209
1210                 # The database directory given is too long
1211                 # so return an error.
1212
1213                 kiriwrite_error("dbdirectorytoolong");
1214
1215         }
1216
1217         if ($kiriwrite_outputdirectory_length_check eq 1){
1218
1219                 # The output directory given is too long
1220                 # so return an error.
1221
1222                 kiriwrite_error("outputdirectorytoolong");
1223
1224         }
1225
1226         if ($kiriwrite_imagesuripath_length_check eq 1){
1227
1228                 # The images URI path given is too long
1229                 # so return an error.
1230
1231                 kiriwrite_error("imagesuripathtoolong");
1232
1233         }
1234
1235         if ($kiriwrite_dateformat_length_check eq 1){
1236
1237                 # The date format given is too long
1238                 # so return an error.
1239
1240                 kiriwrite_error("dateformattoolong");
1241
1242         }
1243
1244         if ($kiriwrite_customdateformat_length_check eq 1){
1245
1246                 # The date format given is too long
1247                 # so return an error.
1248
1249                 kiriwrite_error("customdateformattoolong");
1250
1251         }
1252
1253         if ($kiriwrite_language_length_check eq 1){
1254
1255                 # The language filename given is too long
1256                 # so return an error.
1257
1258                 kiriwrite_error("languagefilenametoolong");
1259
1260         }
1261
1262         if ($kiriwrite_textarearow_length_check eq 1){
1263
1264                 # The text area rows length is too long
1265                 # so return an error.
1266
1267                 kiriwrite_error("textarearowtoolong");
1268
1269         }
1270
1271         if ($kiriwrite_textareacols_length_check eq 1){
1272
1273                 # The text area columns length is too long
1274                 # so return an error.
1275
1276                 kiriwrite_error("textareacolstoolong");
1277
1278         }
1279
1280         # Check if the custom date and time setting has anything
1281         # set and if it doesn't then use the predefined one set.
1282
1283         my $finaldateformat = "";
1284
1285         if ($http_query_customdateformat ne ""){
1286
1287                 $finaldateformat = $http_query_customdateformat;
1288
1289         } else {
1290
1291                 $finaldateformat = $http_query_dateformat;
1292
1293         }
1294
1295         my $kiriwrite_datetime_check            = kiriwrite_variablecheck($finaldateformat, "datetime", 0, 1);
1296
1297         if ($kiriwrite_datetime_check eq 1){
1298
1299                 # The date and time format is blank so return
1300                 # an error.
1301
1302                 kiriwrite_error("dateformatblank");
1303
1304         } elsif ($kiriwrite_datetime_check eq 2){
1305
1306                 # The date and time format is invalid so
1307                 # return an error.
1308
1309                 kiriwrite_error("dateformatinvalid");
1310
1311         }
1312
1313         # Check if the language filename given is valid.
1314
1315         my $kiriwrite_language_languagefilename_check = kiriwrite_variablecheck($http_query_language, "language_filename", "", 1);
1316
1317         if ($kiriwrite_language_languagefilename_check eq 1) {
1318
1319                 # The language filename given is blank so
1320                 # return an error.
1321
1322                 kiriwrite_error("languagefilenameblank");
1323
1324         } elsif ($kiriwrite_language_languagefilename_check eq 2){
1325
1326                 # The language filename given is invalid so
1327                 # return an error.
1328
1329                 kiriwrite_error("languagefilenameinvalid");
1330
1331         }
1332
1333         # Check if the directory names only contain letters and numbers and
1334         # return a specific error if they don't.
1335
1336         my $kiriwrite_dbdirectory_check         = kiriwrite_variablecheck($http_query_dbdirectory, "directory", 0, 1);
1337         my $kiriwrite_outputdirectory_check     = kiriwrite_variablecheck($http_query_outputdirectory, "directory", 0, 1);
1338
1339         if ($kiriwrite_dbdirectory_check eq 1){
1340
1341                 # The database directory name is blank, so return
1342                 # an error.
1343
1344                 kiriwrite_error("dbdirectoryblank");
1345
1346         } elsif ($kiriwrite_dbdirectory_check eq 2){
1347
1348                 # The database directory name is invalid, so return
1349                 # an error.
1350
1351                 kiriwrite_error("dbdirectoryinvalid");
1352
1353         }
1354
1355         if ($kiriwrite_outputdirectory_check eq 1){
1356
1357                 # The output directory name is blank, so return
1358                 # an error.
1359
1360                 kiriwrite_error("outputdirectoryblank");
1361
1362         } elsif ($kiriwrite_outputdirectory_check eq 2){
1363
1364                 # The output directory name is invalid, so return
1365                 # an error.
1366
1367                 kiriwrite_error("outputdirectoryinvalid");
1368
1369         }
1370
1371         if ($kiriwrite_dbdirectory_check eq 1){
1372
1373                 # The database directory name is blank, so return
1374                 # an error.
1375
1376                 kiriwrite_error("dbdirectoryblank");
1377
1378         } elsif ($kiriwrite_dbdirectory_check eq 2){
1379
1380                 # The database directory name is invalid, so return
1381                 # an error.
1382
1383                 kiriwrite_error("dbdirectoryinvalid");
1384
1385         }
1386
1387         if ($kiriwrite_outputdirectory_check eq 1){
1388
1389                 # The output directory name is blank, so return
1390                 # an error.
1391
1392                 kiriwrite_error("outputdirectoryblank");
1393
1394         } elsif ($kiriwrite_outputdirectory_check eq 2){
1395
1396                 # The output directory name is invalid, so return
1397                 # an error.
1398
1399                 kiriwrite_error("outputdirectoryinvalid");
1400
1401         }
1402
1403         # Check to see if the text area rows and column values
1404         # are valid.
1405
1406         my $kiriwrite_textarearow_number_check          = kiriwrite_variablecheck($http_query_textarearows, "numbers", 0, 1);
1407         my $kiriwrite_textareacols_number_check         = kiriwrite_variablecheck($http_query_textareacols, "numbers", 0, 1);
1408
1409         if ($kiriwrite_textarearow_number_check eq 1){
1410
1411                 # The text area row value is invalid so return
1412                 # an error.
1413
1414                 kiriwrite_error("textarearowinvalid");
1415
1416         }
1417
1418         if ($kiriwrite_textareacols_number_check eq 1){
1419
1420                 # The text area columns value is invalid so return
1421                 # an error.
1422
1423                 kiriwrite_error("textareacolsinvalid");
1424
1425         }
1426
1427         # Check the module names to see if they're valid.
1428
1429         my $kiriwrite_presmodule_modulename_check       = kiriwrite_variablecheck($http_query_presmodule, "module", 0, 1);
1430         my $kiriwrite_dbmodule_modulename_check         = kiriwrite_variablecheck($http_query_dbmodule, "module", 0, 1);
1431
1432         if ($kiriwrite_presmodule_modulename_check eq 1){
1433
1434                 # The presentation module name is blank, so return
1435                 # an error.
1436
1437                 kiriwrite_error("presmoduleblank");
1438
1439         }
1440
1441         if ($kiriwrite_presmodule_modulename_check eq 2){
1442
1443                 # The presentation module name is invalid, so return
1444                 # an error.
1445
1446                 kiriwrite_error("presmoduleinvalid");
1447
1448         }
1449
1450         if ($kiriwrite_dbmodule_modulename_check eq 1){
1451
1452                 # The database module name is blank, so return
1453                 # an error.
1454
1455                 kiriwrite_error("dbmoduleblank");
1456
1457         }
1458
1459         if ($kiriwrite_dbmodule_modulename_check eq 2){
1460
1461                 # The database module name is invalid, so return
1462                 # an error.
1463
1464                 kiriwrite_error("dbmoduleinvalid");
1465
1466         }
1467
1468         # Check if the database module, presentation module and
1469         # language file exists.
1470
1471         if (!-e "Modules/Presentation/" . $http_query_presmodule . ".pm"){
1472
1473                 # The presentation module is missing so return an
1474                 # error.
1475
1476                 kiriwrite_error("presmodulemissing");
1477
1478         }
1479
1480         if (!-e "Modules/Database/" . $http_query_dbmodule . ".pm"){
1481
1482                 # The database module is missing so return an
1483                 # error.
1484
1485                 kiriwrite_error("dbmodulemissing");
1486
1487         }
1488
1489         if (!-e "lang/" . $http_query_language . ".lang"){
1490
1491                 # The language file is missing so return an
1492                 # error.
1493
1494                 kiriwrite_error("languagefilenamemissing");
1495
1496         }
1497
1498         # Check the database server settings.
1499
1500         my $kiriwrite_databaseserver_length_check               = kiriwrite_variablecheck($http_query_databaseserver, "maxlength", 128, 1);
1501         my $kiriwrite_databaseserver_lettersnumbers_check       = kiriwrite_variablecheck($http_query_databaseserver, "lettersnumbers", 0, 1);
1502         my $kiriwrite_databaseport_length_check                 = kiriwrite_variablecheck($http_query_databaseport, "maxlength", 5, 1);
1503         my $kiriwrite_databaseport_numbers_check                = kiriwrite_variablecheck($http_query_databaseport, "numbers", 0, 1);
1504         my $kiriwrite_databaseport_port_check                   = kiriwrite_variablecheck($http_query_databaseport, "port", 0, 1);
1505         my $kiriwrite_databaseprotocol_length_check             = kiriwrite_variablecheck($http_query_databaseprotocol, "maxlength", 5, 1);
1506         my $kiriwrite_databaseprotocol_protocol_check           = kiriwrite_variablecheck($http_query_databaseprotocol, "serverprotocol", 0, 1);
1507         my $kiriwrite_databasename_length_check                 = kiriwrite_variablecheck($http_query_databasename, "maxlength", 32, 1);
1508         my $kiriwrite_databasename_lettersnumbers_check         = kiriwrite_variablecheck($http_query_databasename, "lettersnumbers", 0, 1);
1509         my $kiriwrite_databaseusername_length_check             = kiriwrite_variablecheck($http_query_databaseusername, "maxlength", 16, 1);
1510         my $kiriwrite_databaseusername_lettersnumbers_check     = kiriwrite_variablecheck($http_query_databaseusername, "lettersnumbers", 0, 1);
1511         my $kiriwrite_databasepassword_length_check             = kiriwrite_variablecheck($http_query_databasepassword, "maxlength", 64, 1);
1512         my $kiriwrite_databasetableprefix_length_check          = kiriwrite_variablecheck($http_query_databasetableprefix, "maxlength", 16, 1);
1513         my $kiriwrite_databasetableprefix_lettersnumbers_check  = kiriwrite_variablecheck($http_query_databasetableprefix, "lettersnumbers", 0, 1);
1514
1515         if ($kiriwrite_databaseserver_length_check eq 1){
1516
1517                 # The length of the database server name is too long so
1518                 # return an error.
1519
1520                 kiriwrite_error("servernametoolong");
1521
1522         }
1523
1524         if ($kiriwrite_databaseserver_lettersnumbers_check eq 1){
1525
1526                 # The database server name contains characters other
1527                 # than letters and numbers, so return an error.
1528
1529                 kiriwrite_error("servernameinvalid");
1530
1531         }
1532
1533         if ($kiriwrite_databaseport_length_check eq 1){
1534
1535                 # The database port number length is too long so return
1536                 # an error.
1537
1538                 kiriwrite_error("serverportnumbertoolong");
1539
1540         }
1541
1542         if ($kiriwrite_databaseport_numbers_check eq 1){
1543
1544                 # The database port number contains characters other
1545                 # than numbers so return an error.
1546
1547                 kiriwrite_error("serverportnumberinvalidcharacters");
1548
1549         }
1550
1551         if ($kiriwrite_databaseport_port_check eq 1){
1552
1553                 # The database port number given is invalid so return
1554                 # an error.
1555
1556                 kiriwrite_error("serverportnumberinvalid");
1557
1558         }
1559
1560         if ($kiriwrite_databaseprotocol_length_check eq 1){
1561
1562                 # The database protocol name given is too long so
1563                 # return an error.
1564
1565                 kiriwrite_error("serverprotocolnametoolong");
1566
1567         }
1568
1569         if ($kiriwrite_databaseprotocol_protocol_check eq 1){
1570
1571                 # The server protcol given is invalid so return
1572                 # an error.
1573
1574                 kiriwrite_error("serverprotocolinvalid");
1575
1576         }
1577
1578         if ($kiriwrite_databasename_length_check eq 1){
1579
1580                 # The SQL database name is too long so return
1581                 # an error.
1582
1583                 kiriwrite_error("serverdatabasenametoolong");
1584
1585         }
1586
1587         if ($kiriwrite_databasename_lettersnumbers_check eq 1){
1588
1589                 # The database name contains invalid characters
1590                 # so return an error.
1591
1592                 kiriwrite_error("serverdatabasenameinvalid");
1593
1594         }
1595
1596         if ($kiriwrite_databaseusername_length_check eq 1){
1597
1598                 # The database username given is too long so
1599                 # return an error.
1600
1601                 kiriwrite_error("serverdatabaseusernametoolong");
1602
1603         }
1604
1605         if ($kiriwrite_databaseusername_lettersnumbers_check eq 1){
1606
1607                 # The database username contains invalid characters
1608                 # so return an error.
1609
1610                 kiriwrite_error("serverdatabaseusernameinvalid");
1611
1612         }
1613
1614         if ($kiriwrite_databasepassword_length_check eq 1){
1615
1616                 # The database password given is too long so return
1617                 # an error.
1618
1619                 kiriwrite_error("serverdatabasepasswordtoolong");
1620
1621         }
1622
1623         if ($kiriwrite_databasetableprefix_length_check eq 1){
1624
1625                 # The database table prefix given is too long so
1626                 # return an error.
1627
1628                 kiriwrite_error("serverdatabasetableprefixtoolong");
1629
1630         }
1631
1632         if ($kiriwrite_databasetableprefix_lettersnumbers_check eq 1){
1633
1634                 # The database table prefix given contains invalid
1635                 # characters so return an error.
1636
1637                 kiriwrite_error("serverdatabasetableprefixinvalid");
1638
1639         }
1640
1641         # Check the length of value of the checkboxes.
1642
1643         my $kiriwrite_removeinstallscript_length_check  = kiriwrite_variablecheck($http_query_removeinstallscript, "maxlength", 2, 1);
1644
1645         if ($kiriwrite_removeinstallscript_length_check eq 1){
1646
1647                 # The remove install script value is too long
1648                 # so return an error.
1649
1650                 kiriwrite_error("removeinstallscripttoolong");
1651
1652         }
1653
1654         # Check if there is write permissions for the directory.
1655
1656         if (!-w '.'){
1657
1658                 # No write permissions for the directory the
1659                 # script is running from so return an error.
1660
1661                 kiriwrite_error("cannotwriteconfigurationindirectory");
1662
1663         }
1664
1665         # Check if the configuration file already exists.
1666
1667         if (-e 'kiriwrite.cfg'){
1668
1669                 # Check if the configuration file has read permissions.
1670
1671                 if (!-r 'kiriwrite.cfg'){
1672
1673                         # The configuration file has invalid read permissions
1674                         # set so return an error.
1675
1676                         kiriwrite("configurationfilereadpermissionsinvalid");
1677
1678                 }
1679
1680                 # Check if the configuration file has write permissions.
1681
1682                 if (!-w 'kiriwrite.cfg'){
1683
1684                         # The configuration file has invalid write permissions
1685                         # set so return an error.
1686
1687                         kiriwrite("configurationfilewritepermissionsinvalid");
1688
1689                 }
1690
1691         }
1692
1693         # Write the new configuration file.
1694
1695         kiriwrite_writeconfig({ DatabaseDirectory => $http_query_dbdirectory, OutputDirectory => $http_query_outputdirectory, ImagesURIPath => $http_query_imagesuripath, TextAreaCols => $http_query_textareacols, TextAreaRows => $http_query_textarearows, DateFormat => $finaldateformat, Language => $http_query_language, PresentationModule => $http_query_presmodule, DatabaseModule => $http_query_dbmodule, DatabaseServer => $http_query_databaseserver, DatabasePort => $http_query_databaseport, DatabaseProtocol => $http_query_databaseprotocol, DatabaseName => $http_query_databasename, DatabaseUsername => $http_query_databaseusername, DatabasePassword => $http_query_databasepassword, DatabaseTablePrefix => $http_query_databasetableprefix });
1696
1697         my $installscriptmessage        = "";
1698
1699         # Check if the installation script should be deleted.
1700
1701         if (!$http_query_removeinstallscript){
1702
1703                 $http_query_removeinstallscript = "off";
1704
1705         }
1706
1707         if ($http_query_removeinstallscript eq "on"){
1708
1709                 if (unlink($installscriptname)){
1710
1711                         $installscriptmessage = $kiriwrite_lang{$language_selected}{installscriptremoved};
1712
1713                 } else {
1714
1715                         $installscriptmessage = $kiriwrite_lang{$language_selected}{cannotremovescript};
1716                         $installscriptmessage =~ s/%s/$!/g;
1717
1718                 }
1719
1720         }
1721
1722         print "Content-type: text/html\r\n\r\n";
1723
1724         #print start_html({ -title => $kiriwrite_lang{$language_selected}{installertitle}, -style => { -code => $cssstyle }});
1725         print "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n";
1726         print "<head>\n<title>$kiriwrite_lang{$language_selected}{installertitle}</title>\n<style type=\"text/css\" media=\"screen\">$cssstyle</style>\n</head>\n<body>\n";
1727         print "<h2>$kiriwrite_lang{$language_selected}{installertitle}</h2>";
1728         print $kiriwrite_lang{$language_selected}{installedmessage};
1729
1730         if ($installscriptmessage){
1731
1732                 print "<br /><br />\n";
1733                 print $installscriptmessage;
1734
1735         }
1736
1737         print "<br /><br />\n";
1738         print $kiriwrite_lang{$language_selected}{usekiriwritetext};
1739         print "<br /><br />\n";
1740         print "<a href=\"" . $kiriwritescriptname . "\">$kiriwrite_lang{$language_selected}{usekiriwritelink}</a>";
1741         print "</body>\n</html>";
1742
1743         exit;
1744
1745 }
1746
1747 # Create a list of common date and time formats.
1748
1749 my @datetime_formats = (
1750         'DD/MM/YY (hh:mm:ss)', 'DD/MM/YY hh:mm:ss', 'D/M/Y (hh:mm:ss)',
1751         'D/M/Y hh:mm:ss', 'D/M/YY (hh:mm:ss)', 'D/M/YY hh:mm:ss',
1752         'DD/MM (hh:mm:ss)', 'D/M (hh:mm:ss)', 'DD/MM hh:mm:ss',
1753         'D/M hh:mm:ss', 'DD/MM hh:mm', 'D/M hh:mm',
1754         'DD/MM/YY', 'D/M/Y', 'DD/MM',
1755
1756         'YY-MM-DD (hh:mm:ss)', 'YY-MM-DD hh:mm:ss', 'Y-M-D (hh:mm:ss)',
1757         'Y-M-D hh:mm:ss', 'M-D (hh:mm:ss)', 'M-D hh:mm:ss',
1758         'YY-MM-DD', 'MM-DD'
1759 );
1760
1761 # Create the list of tests to do.
1762
1763 my ($test_list, %test_list);
1764 my %dependency_results;
1765 my %database_results;
1766 my %file_results;
1767 my $test;
1768 my $date;
1769
1770 my $dependency_error = 0;
1771 my $database_onemodule = 0;
1772 my $database_error = 0;
1773 my $file_error = 0;
1774
1775 my $language_name;
1776 my $language_xml_data;
1777 my $language_file_friendly;
1778
1779 my $presentation_file_friendly;
1780
1781 # Check to see if the needed Perl modules are installed.
1782
1783 $test_list{CheckDBI}{Name}              = "DBI";
1784 $test_list{CheckDBI}{Type}              = "dependency";
1785 $test_list{CheckDBI}{Code}              = "DBI";
1786
1787 $test_list{CheckTieHash}{Name}          = "Tie::IxHash";
1788 $test_list{CheckTieHash}{Type}          = "dependency";
1789 $test_list{CheckTieHash}{Code}          = "Tie::IxHash";
1790
1791 $test_list{CheckCGILite}{Name}          = "CGI::Lite";
1792 $test_list{CheckCGILite}{Type}          = "dependency";
1793 $test_list{CheckCGILite}{Code}          = "CGI::Lite";
1794
1795 $test_list{Encode}{Name}                = "Encode";
1796 $test_list{Encode}{Type}                = "dependency";
1797 $test_list{Encode}{Code}                = "Encode";
1798
1799 $test_list{DBDmysql}{Name}              = "DBD::mysql";
1800 $test_list{DBDmysql}{Type}              = "database";
1801 $test_list{DBDmysql}{Code}              = "DBD::mysql";
1802
1803 $test_list{DBDSQLite}{Name}             = "DBD::SQLite";
1804 $test_list{DBDSQLite}{Type}             = "database";
1805 $test_list{DBDSQLite}{Code}             = "DBD::SQLite";
1806
1807 # Check the file and directory permissions to see if they are correct.
1808
1809 $test_list{MainDirectory}{Name}         = "Kiriwrite Directory (.)";
1810 $test_list{MainDirectory}{Type}         = "file";
1811 $test_list{MainDirectory}{Code}         = ".";
1812 $test_list{MainDirectory}{Writeable}    = "1";
1813
1814 $test_list{LanguageDirectory}{Name}             = "Language Directory (lang)";
1815 $test_list{LanguageDirectory}{Type}             = "file";
1816 $test_list{LanguageDirectory}{Code}             = "lang";
1817 $test_list{LanguageDirectory}{Writeable}        = "0";
1818
1819 $test_list{ModulesDirectory}{Name}              = "Modules Directory (Modules)";
1820 $test_list{ModulesDirectory}{Type}              = "file";
1821 $test_list{ModulesDirectory}{Code}              = "Modules";
1822 $test_list{ModulesDirectory}{Writeable}         = "0";
1823
1824 $test_list{DBModulesDirectory}{Name}            = "Database Modules Directory (Modules/Database)";
1825 $test_list{DBModulesDirectory}{Type}            = "file";
1826 $test_list{DBModulesDirectory}{Code}            = "Modules/Database";
1827 $test_list{DBModulesDirectory}{Writeable}       = "0";
1828
1829 $test_list{PresModulesDirectory}{Name}          = "Presentation Modules Directory (Modules/Presentation)";
1830 $test_list{PresModulesDirectory}{Type}          = "file";
1831 $test_list{PresModulesDirectory}{Code}          = "Modules/Presentation";
1832 $test_list{PresModulesDirectory}{Writeable}     = "0";
1833
1834 $test_list{SystemModulesDirectory}{Name}                = "System Modules Directory (Modules/System)";
1835 $test_list{SystemModulesDirectory}{Type}                = "file";
1836 $test_list{SystemModulesDirectory}{Code}                = "Modules/System";
1837 $test_list{SystemModulesDirectory}{Writeable}           = "0";
1838
1839 # Preform those tests.
1840
1841 foreach $test (keys %test_list){
1842
1843         # Check the type of test.
1844
1845         if ($test_list{$test}{Type} eq "dependency"){
1846
1847                 if (eval "require " . $test_list{$test}{Code}){
1848
1849                         # The module exists and is working correctly.
1850
1851                         $dependency_results{$test_list{$test}{Name}}{result}    = $kiriwrite_lang{$language_selected}{testpass};
1852
1853                 } else {
1854
1855                         # The module does not exist or has an error.
1856
1857                         $dependency_error = 1;
1858                         $dependency_results{$test_list{$test}{Name}}{result}    = $kiriwrite_lang{$language_selected}{testfail};
1859
1860                 }
1861
1862         } elsif ($test_list{$test}{Type} eq "database"){
1863
1864                 if (eval "require " . $test_list{$test}{Code}){
1865
1866                         # The module exists and it is working correctly.
1867
1868                         $database_results{$test_list{$test}{Name}}{result}      = $kiriwrite_lang{$language_selected}{testpass};
1869                         $database_onemodule = 1;
1870
1871                 } else {
1872
1873                         # The module does not exist or has an error.
1874
1875                         $database_error = 1;
1876                         $database_results{$test_list{$test}{Name}}{result}      = $kiriwrite_lang{$language_selected}{testfail};
1877
1878                 }
1879
1880         } elsif ($test_list{$test}{Type} eq "file"){
1881
1882                 if (-e $test_list{$test}{Code}){
1883
1884                         # The filename given does exist.
1885
1886                 } else {
1887
1888                         # the filename given does not exist.
1889
1890                         $file_error = 1;
1891                         $file_results{$test_list{$test}{Name}}{result}  = $kiriwrite_lang{$language_selected}{errormessage} . $kiriwrite_lang{$language_selected}{doesnotexist};
1892
1893                 }
1894
1895                 # Test to see if the filename given has read
1896                 # permissions.
1897
1898                 if (-r $test_list{$test}{Code}){
1899
1900                         # The filename given has valid permissions set.
1901
1902                         $file_results{$test_list{$test}{Name}}{result}  = $kiriwrite_lang{$language_selected}{testpass};
1903
1904                 } else {
1905
1906                         # The filename given has invalid permissions set.
1907
1908                         $file_error = 1;
1909                         $file_results{$test_list{$test}{Name}}{result} = $kiriwrite_lang{$language_selected}{errormessage} . $kiriwrite_lang{$language_selected}{invalidpermissionsset};
1910
1911                 }
1912
1913                 if ($test_list{$test}{Writeable} eq 1){
1914
1915                         # Test to see if the filename given has write
1916                         # permissions.
1917
1918                         if (-w $test_list{$test}{Code}){
1919
1920                                 # The filename given has valid permissions set.
1921
1922                                 $file_results{$test_list{$test}{Name}}{result}  = $kiriwrite_lang{$language_selected}{testpass};
1923
1924                         } else {
1925
1926                                 # The filename given has invalid permissions set.
1927
1928                                 $file_error = 1;
1929                                 $file_results{$test_list{$test}{Name}}{result}  = $kiriwrite_lang{$language_selected}{errormessage} . $kiriwrite_lang{$language_selected}{invalidpermissionsset};
1930
1931                         }
1932
1933                 }
1934
1935         }
1936
1937 }
1938
1939 # Print the header.
1940
1941 print "Content-Type: text/html;\r\n\r\n";
1942
1943 # Print the page for installing Kiriwrite.
1944
1945 print "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n";
1946 print "<head>\n<title>$kiriwrite_lang{$language_selected}{installertitle}</title>\n";
1947 print "<style type=\"text/css\" media=\"screen\">$cssstyle</style>\n</head>\n<body>";
1948
1949 print "<table width=\"100%\">";
1950 my $language_name_short;
1951 my $language_list_seek = 0;
1952 my $installlanguage_out = "";
1953
1954 $installlanguage_out = "<select name=\"installlanguage\">\n";
1955
1956 foreach $language_name_short (@language_list_short){
1957
1958         $installlanguage_out = $installlanguage_out . "<option value=\"" . $language_name_short . "\">" . $language_list_long[$language_list_seek] . "</option>\n";
1959         $language_list_seek++;
1960
1961 }
1962
1963 $installlanguage_out = $installlanguage_out . "</select>\n";
1964
1965 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{installertitle}, "languagebar", "<form action=\"" . $installscriptname . "\" method=\"POST\">\n$installlanguage_out\n<input type=\"submit\" value=\"$kiriwrite_lang{$language_selected}{switch}\">\n</form>\n", "languagebarselect");
1966 print "</table>";
1967
1968 print "<h2>$kiriwrite_lang{$language_selected}{installertitle}</h2>\n";
1969 print $kiriwrite_lang{$language_selected}{installertext};
1970
1971 if ($modperlenabled eq 1){
1972         print "<br /><br />";
1973         print $kiriwrite_lang{$language_selected}{modperlnotice};
1974 }
1975
1976 print "<h3>$kiriwrite_lang{$language_selected}{dependencytitle}</h3>\n";
1977 print "<h4>$kiriwrite_lang{$language_selected}{requiredmodules}</h4>\n";
1978 print $kiriwrite_lang{$language_selected}{perlmodules};
1979 print "<br /><br />\n";
1980
1981 if ($dependency_error eq 1){
1982
1983         print $kiriwrite_lang{$language_selected}{errormessage};
1984         print $kiriwrite_lang{$language_selected}{dependencyperlmodulesmissing};
1985         print "<br /><br />\n";
1986
1987 }
1988
1989 print "<table>\n";
1990
1991 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{module}, "tablecellheader", $kiriwrite_lang{$language_selected}{result}, "tablecellheader");
1992
1993 foreach $test (keys %dependency_results) {
1994
1995         kiriwrite_addtablerow($test, "tablename", $dependency_results{$test}{result}, "tabledata");
1996
1997 }
1998
1999 print "</table>";
2000
2001 print "<h4>$kiriwrite_lang{$language_selected}{databasemodules}</h4>\n";
2002 print $kiriwrite_lang{$language_selected}{databasemodulestext};
2003 print "<br /><br />\n";
2004
2005 print "<table>\n";
2006
2007 if ($database_error eq 1){
2008
2009         print $kiriwrite_lang{$language_selected}{warningmessage};
2010         print $kiriwrite_lang{$language_selected}{databaseperlmodulesmissing};
2011         print "<br /><br />\n";
2012
2013 }
2014
2015 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{module}, "tablecellheader", $kiriwrite_lang{$language_selected}{result}, "tablecellheader");
2016
2017 foreach $test (keys %database_results) {
2018
2019         kiriwrite_addtablerow($test, "tablename", $database_results{$test}{result}, "tabledata");
2020
2021 }
2022
2023 print "</table>";
2024
2025 print "<h4>$kiriwrite_lang{$language_selected}{filepermissions}</h4>\n";
2026
2027 print $kiriwrite_lang{$language_selected}{filepermissionstext};
2028 print "<br /><br />\n";
2029
2030 if ($file_error eq 1){
2031
2032         print $kiriwrite_lang{$language_selected}{errormessage};
2033         print $kiriwrite_lang{$language_selected}{filepermissionsinvalid};
2034         print "<br /><br />\n";
2035
2036 }
2037
2038 print "<table>";
2039
2040 kiriwrite_addtablerow("Filename", "tablecellheader", "Result", "tablecellheader");
2041
2042 foreach $test (keys %file_results) {
2043
2044         kiriwrite_addtablerow($test, "tablename", $file_results{$test}{result}, "tabledata");
2045
2046 }
2047
2048 print "</table>";
2049
2050 if ($dependency_error eq 1){
2051
2052         print "<hr />\n";
2053         print "<h4>$kiriwrite_lang{$language_selected}{criticalerror}</h4>\n";
2054         print $kiriwrite_lang{$language_selected}{dependencymodulesnotinstalled} . "\n";
2055         print "</body>\n</html>";
2056         exit;
2057
2058 }
2059
2060 if ($database_onemodule eq 0){
2061
2062         print "<hr />\n";
2063         print "<h4>$kiriwrite_lang{$language_selected}{criticalerror}</h4>\n";
2064         print $kiriwrite_lang{$language_selected}{databasemodulesnotinstalled} . "\n";
2065         print "</body>\n</html>";
2066         exit;
2067
2068 }
2069
2070 if ($file_error eq 1){
2071
2072         print "<hr />\n";
2073         print "<h4>$kiriwrite_lang{$language_selected}{criticalerror}</h4>\n";
2074         print $kiriwrite_lang{$language_selected}{filepermissionerrors} . "\n";
2075         print "</body>\n</html>";
2076         exit;
2077
2078 }
2079
2080 my @language_short;
2081 my (%available_languages, $available_languages);
2082 my @presentation_modules;
2083 my @database_modules;
2084 my $select_data = "";
2085 my (%language_data, $language_data);
2086 my @lang_data;
2087 my $kiriwrite_languagefilehandle;
2088 my $language_out = "";
2089 my ($presmodule_name, $presmodule_out) = "";
2090 my ($dbmodule_name, $dbmodule_out) = "";
2091
2092 # Get the list of available languages.
2093
2094 tie(%available_languages, 'Tie::IxHash');
2095
2096 opendir(LANGUAGEDIR, "lang");
2097 my @language_directory = grep /m*\.lang$/, readdir(LANGUAGEDIR);
2098 closedir(LANGUAGEDIR);
2099
2100 foreach my $language_file (@language_directory){
2101
2102         # Load the language file.
2103
2104         open ($kiriwrite_languagefilehandle, "lang/" . $language_file);
2105         @lang_data = <$kiriwrite_languagefilehandle>;
2106         %language_data = kiriwrite_processconfig(@lang_data);
2107         close ($kiriwrite_languagefilehandle);
2108
2109         # Get the friendly name for the language file.
2110
2111         $language_file_friendly = $language_file;
2112         $language_file_friendly =~ s/.lang$//g;
2113
2114         $language_name = $language_data{about}{name};
2115
2116         $available_languages{$language_file_friendly} = $language_name . " (" . $language_file_friendly . ")";
2117
2118 }
2119
2120 # Get the list of presentation modules.
2121
2122 opendir(OUTPUTSYSTEMDIR, "Modules/Presentation");
2123 my @presmodule_directory = grep /m*\.pm$/, readdir(OUTPUTSYSTEMDIR);
2124 closedir(OUTPUTSYSTEMDIR);
2125
2126 foreach my $presmodule_file (@presmodule_directory){
2127
2128         # Get the friendly name for the database module.
2129
2130         $presmodule_file =~ s/.pm$//g;
2131         push(@presentation_modules, $presmodule_file);
2132
2133 }
2134
2135 # Get the list of database modules.
2136
2137 opendir(DATABASEDIR, "Modules/Database");
2138 my @dbmodule_directory = grep /m*\.pm$/, readdir(DATABASEDIR);
2139 closedir(DATABASEDIR);
2140
2141 foreach my $dbmodule_file (@dbmodule_directory){
2142
2143         # Get the friendly name for the database module.
2144
2145         $dbmodule_file =~ s/.pm$//g;
2146         push(@database_modules, $dbmodule_file);
2147
2148 }
2149
2150 print "<h3>$kiriwrite_lang{$language_selected}{settingstitle}</h3>";
2151 print $kiriwrite_lang{$language_selected}{settingstext};
2152 print "<br /><br />\n";
2153
2154 print "<form action=\"" . $installscriptname . "\" method=\"POST\">";
2155 print "<input type=\"hidden\" name=\"confirm\" value=\"1\">\n<input type=\"hidden\" name=\"installlanguage\" value=\"$language_selected\">\n";
2156
2157 print "<table width=\"100%\">";
2158 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{setting}, "tablecellheader", $kiriwrite_lang{$language_selected}{value}, "tablecellheader");
2159 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{directories}, "tablecellheader", "", "tablecellheader");
2160 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{databasedirectory}, "tablename", "<input type=\"text\" name=\"dbdirectory\" size=\"32\" maxlength=\"64\" value=\"$default_dbdirectory\">", "tabledata");
2161 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{outputdirectory}, "tablename", "<input type=\"text\" name=\"outputdirectory\" size=\"32\" maxlength=\"64\" value=\"$default_outputdirectory\">", "tabledata");
2162 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{imagesuripath}, "tablename", "<input type=\"text\" name=\"imagesuripath\" size=\"32\" maxlength=\"64\" value=\"$default_imagesuri\">", "tabledata");
2163 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{display}, "tablecellheader", "", "tablecellheader");
2164 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{textarearows}, "tablename", "<input type=\"text\" name=\"textarearows\" size=\"3\" maxlength=\"3\" value=\"$default_textarearows\">", "tabledata");
2165 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{textareacols}, "tablename", "<input type=\"text\" name=\"textareacols\" size=\"3\" maxlength=\"3\" value=\"$default_textareacols\">", "tabledata");
2166 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{date}, "tablecellheader", "", "tablecellheader");
2167
2168 foreach my $select_name (@datetime_formats){
2169         $select_data = $select_data . "<option value=\"$select_name\">" . $select_name . "</option>\n";
2170 }
2171
2172 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{dateformat}, "tablename", "<select name=\"dateformat\">$select_data</select>\n<input type=\"text\" size=\"32\" maxlength=\"64\" name=\"customdateformat\">", "tabledata");
2173 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{language}, "tablecellheader", "", "tablecellheader");
2174
2175 foreach my $language (keys %available_languages){
2176         if ($language eq $language_selected){
2177                 $language_out = $language_out . "<option value=\"" . $language . "\" selected=selected>" . $available_languages{$language} . "</option>\n";
2178         } else {
2179                 $language_out = $language_out . "<option value=\"" . $language . "\">" . $available_languages{$language} . "</option>\n";
2180         }
2181 }
2182
2183 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{systemlanguage}, "tablename", "<select name=\"language\">\r\n$language_out\r\n</select>", "tabledata");
2184 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{modules}, "tablecellheader", "", "tablecellheader");
2185 foreach $presmodule_name (@presentation_modules){
2186         $presmodule_out = $presmodule_out . "<option value=\"$presmodule_name\">$presmodule_name</option>";
2187 }
2188 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{presentationmodule}, "tablename", "<select name=\"presmodule\">$presmodule_out</select>", "tabledata");
2189 foreach $dbmodule_name (@database_modules){
2190         $dbmodule_out = $dbmodule_out . "<option value=\"$dbmodule_name\">$dbmodule_name</option>";
2191 }
2192
2193 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{databasemodule}, "tablename", "<select name=\"dbmodule\">$dbmodule_out</select>", "tabledata");
2194 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{databaseserver}, "tablename", "<input type=\"text\" name=\"databaseserver\" size=\"32\" maxlength=\"128\" value=\"$default_server\">\n", "tabledata");
2195 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{databaseport}, "tablename", "<input type=\"text\" name=\"databaseport\" maxlength=\"5\" size=\"5\" value=\"$default_port\">\n", "tabledata");
2196 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{databaseprotocol}, "tablename", "<select name=\"databaseprotocol\">\n<option value=\"tcp\">tcp</option>\n<option value=\"udp\">udp</option>\n</select>\n", "tabledata");
2197 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{databasename}, "tablename", "<input type=\"text\" name=\"databasename\" size=\"32\" maxlength=\"32\" value=\"$default_name\">\n", "tabledata");
2198 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{databaseusername}, "tablename", "<input type=\"text\" name=\"databaseusername\" size=\"16\" maxlength=\"16\" value=\"$default_username\">\n", "tabledata");
2199 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{databasepassword}, "tablename", "<input type=\"password\" name=\"databasepassword\" size=\"32\" maxlength=\"64\">\n", "tabledata");
2200 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{databasetableprefix}, "tablename", "<input type=\"text\" name=\"databasetableprefix\" size=\"32\" maxlength=\"32\" value=\"$default_prefix\">\n", "tabledata");
2201 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{installationoptions}, "tablecellheader", "", "tablecellheader");
2202 kiriwrite_addtablerow($kiriwrite_lang{$language_selected}{installoptions}, "tablename", "<input type=\"checkbox\" name=\"removeinstallscript\" checked=checked value=\"on\"> $kiriwrite_lang{$language_selected}{removeinstallscript}\n", "tabledata");
2203
2204 print "</table>\n";
2205
2206 print "<br />\n<input type=\"submit\" value=\"$kiriwrite_lang{$language_selected}{savesettingsbutton}\"> | <input type=\"reset\" value=\"$kiriwrite_lang{$language_selected}{resetsettingsbutton}\">\n";
2207
2208 print "</form>\n</body>\n</html>";
2209 exit;
2210
2211 __END__