cgi-files/install.cgi

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