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