cgi-files/kiriwrite.cgi

   1 #!/usr/bin/perl -Tw
   2
   3 #################################################################################
   4 # Kiriwrite (kiriwrite.cgi)                                                     #
   5 # Main program script                                                           #
   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(header);
  29 use CGI::Carp('fatalsToBrowser');       # Output errors to the browser.
  30 use Tie::IxHash;
  31
  32 # Declare global variables for Kiriwrite settings and languages.
  33
  34 my ($kiriwrite_config, %kiriwrite_config, $kiriwrite_lang, $kiriwrite_version, %kiriwrite_version, $kiriwrite_env, %kiriwrite_env, $kiriwrite_presmodule, $kiriwrite_dbmodule);
  35
  36 # Setup the version information for Kiriwrite.
  37
  38 %kiriwrite_version = (
  39         "major"         => 0,
  40         "minor"         => 1,
  41         "revision"      => 0
  42 );
  43
  44 sub BEGIN{
  45 #################################################################################
  46 # BEGIN: Get the enviroment stuff                                               #
  47 #################################################################################
  48
  49         # Get the script filename.
  50
  51         my $env_script_name = $ENV{'SCRIPT_NAME'};
  52
  53         # Process the script filename until there is only the
  54         # filename itself.
  55
  56         my $env_script_name_length = length($env_script_name);
  57         my $filename_seek = 0;
  58         my $filename_char = "";
  59         my $filename_last = 0;
  60
  61         do {
  62                 $filename_char = substr($env_script_name, $filename_seek, 1);
  63                 if ($filename_char eq "/"){
  64                         $filename_last = $filename_seek + 1;
  65                 }
  66                 $filename_seek++;
  67         } until ($filename_seek eq $env_script_name_length || $env_script_name_length eq 0);
  68
  69         my $env_script_name_finallength = $env_script_name_length - $filename_last;
  70         my $script_filename = substr($env_script_name, $filename_last, $env_script_name_finallength);
  71
  72         # Setup the needed enviroment variables for Kiriwrite.
  73
  74         %kiriwrite_env = (
  75                 "script_filename" => $script_filename,
  76         );
  77
  78 }
  79
  80 #################################################################################
  81 # Begin listing the functions needed.                                           #
  82 #################################################################################
  83
  84 sub kiriwrite_page_add{
  85 #################################################################################
  86 # kiriwrite_page_add: Adds a page to a database                                 #
  87 #                                                                               #
  88 # Usage:                                                                        #
  89 #                                                                               #
  90 # kiriwrite_page_add(database, pagefilename, title, description, section,       #
  91 #                       template, settings, info, confirm);                     #
  92 #                                                                               #
  93 # database      Specifies the database name.                                    #
  94 # pagefilename  Specifies the page filename.                                    #
  95 # title         Specifies the page title to be used.                            #
  96 # description   Specifies the short description of the page.                    #
  97 # section       Specifies the section assigned to the page.                     #
  98 # template      Specifies the template to use.                                  #
  99 # settings      Specifies the settings to be used on the page.                  #
 100 # data          Specifies the data which consists the page.                     #
 101 # confirm       Confirms action to add an page.                                 #
 102 #################################################################################
 103
 104         # Fetch the required variables that have been passed to the subroutine.
 105
 106         my ($pagedatabase, $pagefilename, $pagetitle, $pagedescription, $pagesection, $pagetemplate, $pagesettings, $pagefiledata, $confirm) = @_;
 107
 108         # Check if the action to add a new page has been confirmed (or not).
 109
 110         if (!$confirm){
 111
 112                 $confirm = 0;
 113
 114         }
 115
 116         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
 117
 118         # Check if the database filename is valid and return an error if
 119         # it isn't.
 120
 121         my $pagedatabase_filename_check = kiriwrite_variablecheck($pagedatabase, "filename", 0, 1);
 122
 123         if ($pagedatabase_filename_check eq 1){
 124
 125                 # The database filename is blank, so return an error.
 126
 127                 kiriwrite_error("blankdatabasepageadd");
 128
 129         } elsif ($pagedatabase_filename_check eq 2){
 130
 131                 # The database filename is invalid, so return an error.
 132
 133                 kiriwrite_error("databasefilenameinvalid");
 134
 135         }
 136
 137         # Check the length the database name and return an error if it's
 138         # too long.
 139
 140         my $pagedatabase_length_check   = kiriwrite_variablecheck($pagedatabase, "maxlength", 32, 1);
 141
 142         if ($pagedatabase_length_check eq 1){
 143
 144                 # The database name is too long, so return an error.
 145
 146                 kiriwrite_error("databasefilenametoolong");
 147
 148         }
 149
 150         if ($confirm eq "1"){
 151
 152                 # Check all the variables to see if they UTF8 valid.
 153
 154                 kiriwrite_variablecheck($pagefilename, "utf8", 0, 0);
 155                 kiriwrite_variablecheck($pagetitle, "utf8", 0, 0);
 156                 kiriwrite_variablecheck($pagedescription, "utf8", 0, 0);
 157                 kiriwrite_variablecheck($pagesection, "utf8", 0, 0);
 158                 kiriwrite_variablecheck($pagedatabase, "utf8", 0, 0);
 159                 kiriwrite_variablecheck($pagesettings, "utf8", 0, 0);
 160                 kiriwrite_variablecheck($pagetemplate, "utf8", 0, 0);
 161                 kiriwrite_variablecheck($pagefiledata, "utf8", 0, 0);
 162
 163                 # Convert the values into proper UTF8 values.
 164
 165                 $pagefilename           = kiriwrite_utf8convert($pagefilename);
 166                 $pagetitle              = kiriwrite_utf8convert($pagetitle);
 167                 $pagedescription        = kiriwrite_utf8convert($pagedescription);
 168                 $pagesection            = kiriwrite_utf8convert($pagesection);
 169                 $pagedatabase           = kiriwrite_utf8convert($pagedatabase);
 170                 $pagesettings           = kiriwrite_utf8convert($pagesettings);
 171                 $pagetemplate           = kiriwrite_utf8convert($pagetemplate);
 172                 $pagefiledata           = kiriwrite_utf8convert($pagefiledata);
 173
 174                 # Check all the variables (except for the page data, filename and settings
 175                 # will be checked more specifically later if needed) that were passed to
 176                 # the subroutine.
 177
 178                 my $pagefilename_maxlength_check                = kiriwrite_variablecheck($pagefilename, "maxlength", 256, 1);
 179                 my $pagetitle_maxlength_check                   = kiriwrite_variablecheck($pagetitle, "maxlength", 512, 1);
 180                 my $pagedescription_maxlength_check             = kiriwrite_variablecheck($pagedescription, "maxlength", 512, 1);
 181                 my $pagesection_maxlength_check                 = kiriwrite_variablecheck($pagesection, "maxlength", 256, 1);
 182                 my $pagedatabase_maxlength_check                = kiriwrite_variablecheck($pagedatabase, "maxlength", 32, 1);
 183                 my $pagesettings_maxlength_check                = kiriwrite_variablecheck($pagesettings, "maxlength", 1, 1);
 184                 my $pagetemplate_maxlength_check                = kiriwrite_variablecheck($pagetemplate, "maxlength", 64, 1);
 185
 186                 # Check if an value returned is something else other than 0.
 187
 188                 if ($pagefilename_maxlength_check eq 1){
 189
 190                         # The page filename given is too long, so return an error.
 191
 192                         kiriwrite_error("pagefilenametoolong");
 193
 194                 }
 195
 196                 if ($pagetitle_maxlength_check eq 1){
 197
 198                         # The page title given is too long, so return an error.
 199
 200                         kiriwrite_error("pagetitletoolong");
 201
 202                 }
 203
 204                 if ($pagedescription_maxlength_check eq 1){
 205
 206                         # The page description given is too long, so return an error.
 207
 208                         kiriwrite_error("pagedescriptiontoolong");
 209
 210                 }
 211
 212                 if ($pagesection_maxlength_check eq 1){
 213
 214                         # The page section given is too long, so return an error.
 215
 216                         kiriwrite_error("pagesectiontoolong");
 217
 218                 }
 219
 220                 if ($pagedatabase_maxlength_check eq 1){
 221
 222                         # The page database given is too long, so return an error.
 223
 224                         kiriwrite_error("pagedatabasefilenametoolong");
 225
 226                 }
 227
 228                 if ($pagesettings_maxlength_check eq 1){
 229
 230                         # The page settings given is too long, so return an error.
 231
 232                         kiriwrite_error("pagesettingstoolong");
 233
 234                 }
 235
 236                 if ($pagetemplate_maxlength_check eq 1){
 237
 238                         # The page template given is too long, so return an error.
 239
 240                         kiriwrite_error("pagetemplatefilenametoolong");
 241
 242                 }
 243
 244                 # The action to create a new page has been confirmed, so add the page to the
 245                 # selected database.
 246
 247                 if (!$pagefilename){
 248                         kiriwrite_error("pagefilenameblank");
 249                 }
 250
 251                 # Check the page filename and page settings.
 252
 253                 my $pagefilename_filename_check = kiriwrite_variablecheck($pagefilename, "page_filename", 0, 1);
 254                 my $pagesettings_setting_check  = kiriwrite_variablecheck($pagesettings, "pagesetting", 0, 1);
 255                 my $pagetemplate_filename_check = 0;
 256
 257                 if ($pagetemplate ne "!none"){
 258
 259                         # A template is being used so check the filename of the
 260                         # template.
 261
 262                         $pagetemplate_filename_check    = kiriwrite_variablecheck($pagetemplate, "page_filename", 0, 1);
 263
 264                 }
 265
 266                 if ($pagefilename_filename_check ne 0){
 267
 268                         # The page filename given is invalid, so return an error.
 269
 270                         kiriwrite_error("pagefilenameinvalid");
 271
 272                 }
 273
 274                 if ($pagesettings_setting_check eq 1){
 275
 276                         # The page settings given is invalid, so return an error.
 277
 278                         kiriwrite_error("pagesettingsinvalid");
 279
 280                 }
 281
 282                 if ($pagetemplate_filename_check eq 1){
 283
 284                         # The template filename given is invalid, so return an error
 285
 286                         kiriwrite_error("templatefilenameinvalid");
 287
 288                 }
 289
 290                 # Check if the database has write permissions.
 291
 292                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($pagedatabase, 1, 1);
 293
 294                 if ($database_permissions eq 1){
 295
 296                         # The database permissions are invalid so return an error.
 297
 298                         kiriwrite_error("databaseinvalidpermissions");
 299
 300                 }
 301
 302                 # Connect to the database server.
 303
 304                 $kiriwrite_dbmodule->connect();
 305
 306                 # Check if any errors occured while connecting to the database server.
 307
 308                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
 309
 310                         # A database connection error has occured so return
 311                         # an error.
 312
 313                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
 314
 315                 }
 316
 317                 # Select the database to add the page to.
 318
 319                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $pagedatabase });
 320
 321                 # Check if any errors had occured while selecting the database.
 322
 323                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
 324
 325                         # The database does not exist, so return an error.
 326
 327                         kiriwrite_error("databasemissingfile");
 328
 329                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
 330
 331                         # The database has invalid permissions set, so return
 332                         # an error.
 333
 334                         kiriwrite_error("databaseinvalidpermissions");
 335
 336                 }
 337
 338                 # Get information about the database.
 339
 340                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
 341
 342                 # Check if any error occured while getting the database information.
 343
 344                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 345
 346                         # A database error has occured so return an error and
 347                         # also the extended error information.
 348
 349                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 350
 351                 };
 352
 353                 # Add the page to the selected database.
 354
 355                 $kiriwrite_dbmodule->addpage({ PageFilename => $pagefilename, PageName => $pagetitle, PageDescription => $pagedescription, PageSection => $pagesection, PageTemplate => $pagetemplate, PageContent => $pagefiledata, PageSettings => $pagesettings });
 356
 357                 # Check if any errors occured while adding the page.
 358
 359                 if ($kiriwrite_dbmodule->geterror eq "PageExists"){
 360
 361                         # A page with the filename given already exists so
 362                         # return an error.
 363
 364                         kiriwrite_error("pagefilenameexists");
 365
 366                 } elsif ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 367
 368                         # A database error has occured so return an error
 369                         # with extended error information.
 370
 371                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 372
 373                 }
 374
 375                 my $database_name = $database_info{"DatabaseName"};
 376
 377                 # Disconnect from the database server.
 378
 379                 $kiriwrite_dbmodule->disconnect();
 380
 381                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{addpage}, { Style => "pageheader" });
 382                 $kiriwrite_presmodule->addlinebreak();
 383                 $kiriwrite_presmodule->addlinebreak();
 384                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{pageaddedmessage}, $pagetitle, $database_name));
 385                 $kiriwrite_presmodule->addlinebreak();
 386                 $kiriwrite_presmodule->addlinebreak();
 387                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $pagedatabase, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
 388
 389                 return $kiriwrite_presmodule->grab();
 390
 391         } elsif ($confirm eq 0) {
 392
 393                 # The action to create a new page has not been confirmed, so print out a form
 394                 # for adding a page to a database.
 395
 396                 my %template_list;
 397                 my %template_info;
 398                 my @templates_list;
 399                 my %database_info;
 400                 my $template_filename;
 401                 my $template_name;
 402                 my $template_data = "";
 403                 my $template_warningmessage;
 404                 my $template_warning = 0;
 405                 my $template_count = 0;
 406                 my $template;
 407
 408                 tie(%template_list, 'Tie::IxHash');
 409
 410                 # Connect to the database server.
 411
 412                 $kiriwrite_dbmodule->connect();
 413
 414                 # Check if any errors occured while connecting to the database server.
 415
 416                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
 417
 418                         # A database connection error has occured so return
 419                         # an error.
 420
 421                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
 422
 423                 }
 424
 425                 # Select the database.
 426
 427                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $pagedatabase });
 428
 429                 # Check if any errors had occured while selecting the database.
 430
 431                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
 432
 433                         # The database does not exist, so return an error.
 434
 435                         kiriwrite_error("databasemissingfile");
 436
 437                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
 438
 439                         # The database has invalid permissions set, so return
 440                         # an error.
 441
 442                         kiriwrite_error("databaseinvalidpermissions");
 443
 444                 }
 445
 446                 # Check if the database has write permissions.
 447
 448                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($pagedatabase, 1, 1);
 449
 450                 if ($database_permissions eq 1){
 451
 452                         # The database permissions are invalid so return an error.
 453
 454                         kiriwrite_error("databaseinvalidpermissions");
 455
 456                 }
 457
 458                 # Get information about the database.
 459
 460                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
 461
 462                 # Check if any error occured while getting the database information.
 463
 464                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 465
 466                         # A database error has occured so return an error and
 467                         # also the extended error information.
 468
 469                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 470
 471                 };
 472
 473                 # Connect to the template database.
 474
 475                 $kiriwrite_dbmodule->connecttemplate();
 476
 477                 # Check if any errors occured while connecting to the template database.
 478
 479                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
 480
 481                         # The template database does not exist so set the template
 482                         # warning message.
 483
 484                         $template_warningmessage = $kiriwrite_lang->{pages}->{notemplatedatabase};
 485                         $template_warning = 1;
 486
 487                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
 488
 489                         # The template database has invalid permissions set so write
 490                         # the template warning message.
 491
 492                         $template_warningmessage = $kiriwrite_lang->{pages}->{templatepermissionserror};
 493                         $template_warning = 1;
 494
 495                 }
 496
 497                 if ($template_warning eq 0){
 498
 499                         # Get the list of templates available.
 500
 501                         @templates_list = $kiriwrite_dbmodule->gettemplatelist();
 502
 503                         # Check if any errors had occured.
 504
 505                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
 506
 507                                 # A database error occured while getting the list
 508                                 # of templates so return a warning message with the
 509                                 # extended error information.
 510
 511                                 $template_warningmessage = kiriwrite_language($kiriwrite_lang->{pages}->{templatedatabaseerror}, $kiriwrite_dbmodule->geterror(1));
 512                                 $template_warning = 1;
 513
 514                         }
 515
 516                         if ($template_warning eq 0){
 517
 518                                 # Check to see if there are any templates in the templates
 519                                 # list array.
 520
 521                                 my $template_filename = "";
 522                                 my $template_name = "";
 523
 524                                 foreach $template (@templates_list){
 525
 526                                         # Get information about the template.
 527
 528                                         %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template });
 529
 530                                         # Check if any error occured while getting the template information.
 531
 532                                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
 533
 534                                                 # A database error has occured, so return an error.
 535
 536                                                 kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
 537
 538                                         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
 539
 540                                                 # The template does not exist, so process the next template.
 541
 542                                                 next;
 543
 544                                         }
 545
 546                                         # Get the template filename and name.
 547
 548                                         $template_filename = $template_info{"TemplateFilename"};
 549                                         $template_name = $template_info{"TemplateName"};
 550
 551                                         $template_list{$template_count}{Filename} = $template_filename;
 552                                         $template_list{$template_count}{Name} = $template_name;
 553
 554                                         $template_count++;
 555
 556                                 }
 557
 558                                 # Check if the final template list is blank.
 559
 560                                 if (!%template_list){
 561
 562                                         # The template list is blank so write the template
 563                                         # warning message.
 564
 565                                         $template_warningmessage = $kiriwrite_lang->{pages}->{notemplatesavailable};
 566
 567                                 }
 568
 569                         }
 570
 571                 }
 572
 573                 my $database_name       = $database_info{"DatabaseName"};
 574
 575                 # Disconnect from the template database.
 576
 577                 $kiriwrite_dbmodule->disconnecttemplate();
 578
 579                 # Disconnect from the database server.
 580
 581                 $kiriwrite_dbmodule->disconnect();
 582
 583                 # write out the form for adding a page.
 584
 585                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{addpage}, { Style => "pageheader" });
 586                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
 587                 $kiriwrite_presmodule->addhiddendata("mode", "page");
 588                 $kiriwrite_presmodule->addhiddendata("action", "add");
 589                 $kiriwrite_presmodule->addhiddendata("database", $pagedatabase);
 590                 $kiriwrite_presmodule->addhiddendata("confirm", "1");
 591                 $kiriwrite_presmodule->addlinebreak();
 592                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
 593
 594                 $kiriwrite_presmodule->startheader();
 595                 $kiriwrite_presmodule->addcell("tablecellheader");
 596                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{setting});
 597                 $kiriwrite_presmodule->endcell();
 598                 $kiriwrite_presmodule->addcell("tablecellheader");
 599                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{value});
 600                 $kiriwrite_presmodule->endcell();
 601                 $kiriwrite_presmodule->endheader();
 602
 603                 $kiriwrite_presmodule->startrow();
 604                 $kiriwrite_presmodule->addcell("tablecell1");
 605                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{database});
 606                 $kiriwrite_presmodule->endcell();
 607                 $kiriwrite_presmodule->addcell("tablecell2");
 608                 $kiriwrite_presmodule->addtext($database_name);
 609                 $kiriwrite_presmodule->endcell();
 610                 $kiriwrite_presmodule->endrow();
 611
 612                 $kiriwrite_presmodule->startrow();
 613                 $kiriwrite_presmodule->addcell("tablecell1");
 614                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagename});
 615                 $kiriwrite_presmodule->endcell();
 616                 $kiriwrite_presmodule->addcell("tablecell2");
 617                 $kiriwrite_presmodule->addinputbox("pagename", { Size => 64, MaxLength => 512 });
 618                 $kiriwrite_presmodule->endcell();
 619                 $kiriwrite_presmodule->endrow();
 620
 621                 $kiriwrite_presmodule->startrow();
 622                 $kiriwrite_presmodule->addcell("tablecell1");
 623                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagedescription});
 624                 $kiriwrite_presmodule->endcell();
 625                 $kiriwrite_presmodule->addcell("tablecell2");
 626                 $kiriwrite_presmodule->addinputbox("pagedescription", { Size => 64, MaxLength => 512 });
 627                 $kiriwrite_presmodule->endcell();
 628                 $kiriwrite_presmodule->endrow();
 629
 630                 $kiriwrite_presmodule->startrow();
 631                 $kiriwrite_presmodule->addcell("tablecell1");
 632                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesection});
 633                 $kiriwrite_presmodule->endcell();
 634                 $kiriwrite_presmodule->addcell("tablecell2");
 635                 $kiriwrite_presmodule->addinputbox("pagesection", { Size => 64, MaxLength => 256 });
 636                 $kiriwrite_presmodule->endcell();
 637                 $kiriwrite_presmodule->endrow();
 638
 639                 $kiriwrite_presmodule->startrow();
 640                 $kiriwrite_presmodule->addcell("tablecell1");
 641                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagetemplate});
 642                 $kiriwrite_presmodule->endcell();
 643                 $kiriwrite_presmodule->addcell("tablecell2");
 644
 645                 # Check if the template warning value has been set
 646                 # and write the error message in place of the templates
 647                 # list if it is.
 648
 649                 if ($template_warning eq 1){
 650
 651                         $kiriwrite_presmodule->addhiddendata("pagetemplate", "!none");
 652                         $kiriwrite_presmodule->addtext($template_warningmessage);
 653
 654                 } else {
 655
 656                         my $template_file;
 657                         my $page_filename;
 658                         my $page_name;
 659
 660                         $kiriwrite_presmodule->addselectbox("pagetemplate");
 661
 662                         foreach $template_file (keys %template_list){
 663
 664                                 $page_filename  = $template_list{$template_file}{Filename};
 665                                 $page_name      = $template_list{$template_file}{Name};
 666                                 $kiriwrite_presmodule->addoption($page_name . " (" . $page_filename . ")", { Value => $page_filename });
 667                                 $template_count++;
 668
 669                                 $template_count = 0;
 670                         }
 671
 672                         $kiriwrite_presmodule->addoption($kiriwrite_lang->{pages}->{usenotemplate}, { Value => "!none", Selected => 1 });
 673                         $kiriwrite_presmodule->endselectbox();
 674
 675                 }
 676
 677                 $kiriwrite_presmodule->endcell();
 678                 $kiriwrite_presmodule->endrow();
 679
 680                 $kiriwrite_presmodule->startrow();
 681                 $kiriwrite_presmodule->addcell("tablecell1");
 682                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagefilename});
 683                 $kiriwrite_presmodule->endcell();
 684                 $kiriwrite_presmodule->addcell("tablecell2");
 685                 $kiriwrite_presmodule->addinputbox("pagefilename", { Size => 64, MaxLength => 256 });
 686                 $kiriwrite_presmodule->endcell();
 687                 $kiriwrite_presmodule->endrow();
 688
 689                 $kiriwrite_presmodule->startrow();
 690                 $kiriwrite_presmodule->addcell("tablecell1");
 691                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagecontent});
 692                 $kiriwrite_presmodule->endcell();
 693                 $kiriwrite_presmodule->addcell("tablecell2");
 694                 $kiriwrite_presmodule->addtextbox("pagecontent", { Columns => 50, Rows => 10 });
 695                 $kiriwrite_presmodule->addlinebreak();
 696                 $kiriwrite_presmodule->addlinebreak();
 697                 $kiriwrite_presmodule->startbox("datalist");
 698                 $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{common}->{tags});
 699                 $kiriwrite_presmodule->addlinebreak();
 700                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagetitle});
 701                 $kiriwrite_presmodule->addlinebreak();
 702                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagename});
 703                 $kiriwrite_presmodule->addlinebreak();
 704                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagedescription});
 705                 $kiriwrite_presmodule->addlinebreak();
 706                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagesection});
 707                 $kiriwrite_presmodule->addlinebreak();
 708                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautosection});
 709                 $kiriwrite_presmodule->addlinebreak();
 710                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautotitle});
 711                 $kiriwrite_presmodule->addlinebreak();
 712                 $kiriwrite_presmodule->endbox();
 713                 $kiriwrite_presmodule->endcell();
 714                 $kiriwrite_presmodule->endrow();
 715
 716                 $kiriwrite_presmodule->startrow();
 717                 $kiriwrite_presmodule->addcell("tablecell1");
 718                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesettings});
 719                 $kiriwrite_presmodule->endcell();
 720                 $kiriwrite_presmodule->addcell("tablecell2");
 721                 $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepageandsection}, Value => "1", Selected => 1, LineBreak => 1});
 722                 $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepagename}, Value => "2", Selected => 0, LineBreak => 1});
 723                 $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usesectionname}, Value => "3", Selected => 0, LineBreak => 1});
 724                 $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{nopagesection}, Value => "0", Selected => 0, LineBreak => 1});
 725                 $kiriwrite_presmodule->endcell();
 726                 $kiriwrite_presmodule->endrow();
 727
 728                 $kiriwrite_presmodule->endtable();
 729
 730                 $kiriwrite_presmodule->addlinebreak();
 731                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{addpagebutton});
 732                 $kiriwrite_presmodule->addtext(" | ");
 733                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{clearvalues});
 734                 $kiriwrite_presmodule->addtext(" | ");
 735                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $pagedatabase, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
 736                 $kiriwrite_presmodule->endform();
 737
 738                 return $kiriwrite_presmodule->grab();
 739
 740         } else {
 741
 742                 # The confirm value is something else than '1' or '0' so
 743                 # return an error.
 744
 745                 kiriwrite_error("invalidvalue");
 746
 747         }
 748
 749
 750
 751 }
 752
 753 sub kiriwrite_page_delete{
 754 #################################################################################
 755 # kiriwrite_page_delete: Deletes a (single) page from a database.               #
 756 #                                                                               #
 757 # Usage:                                                                        #
 758 #                                                                               #
 759 # kiriwrite_page_delete(database, page, [confirm]);                             #
 760 #                                                                               #
 761 # database      Specifies the database to delete from.                          #
 762 # page          Specifies the page to delete.                                   #
 763 # confirm       Confirms the action to delete the page.                         #
 764 #################################################################################
 765
 766         my ($database, $page, $confirm) = @_;
 767
 768         # Check if the database filename is valid and return an error if
 769         # it isn't.
 770
 771         my $pagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
 772
 773         if ($pagedatabase_filename_check eq 1){
 774
 775                 # The database filename is blank, so return an error.
 776
 777                 kiriwrite_error("blankdatabasepageadd");
 778
 779         } elsif ($pagedatabase_filename_check eq 2){
 780
 781                 # The database filename is invalid, so return an error.
 782
 783                 kiriwrite_error("databasefilenameinvalid");
 784
 785         }
 786
 787         # Check the length the database name and return an error if it's
 788         # too long.
 789
 790         my $pagedatabase_length_check   = kiriwrite_variablecheck($database, "maxlength", 32, 1);
 791
 792         if ($pagedatabase_length_check eq 1){
 793
 794                 # The database name is too long, so return an error.
 795
 796                 kiriwrite_error("databasefilenametoolong");
 797
 798         }
 799
 800         # Check if the page name is specified is blank and return an error if
 801         # it is.
 802
 803         if (!$page){
 804
 805                 # The page name is blank, so return an error.
 806
 807                 kiriwrite_error("blankfilename");
 808
 809         }
 810
 811         # If the confirm value is blank, then set the confirm value to 0.
 812
 813         if (!$confirm){
 814
 815                 $confirm = 0;
 816
 817         }
 818
 819         if ($confirm eq 1){
 820
 821                 # The action to delete the selected page from the database
 822                 # has been confirmed.
 823
 824                 # Connect to the database server.
 825
 826                 $kiriwrite_dbmodule->connect();
 827
 828                 # Check if any errors occured while connecting to the database server.
 829
 830                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
 831
 832                         # A database connection error has occured so return
 833                         # an error.
 834
 835                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
 836
 837                 }
 838
 839                 # Select the database to delete the page from.
 840
 841                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
 842
 843                 # Check if any errors had occured while selecting the database.
 844
 845                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
 846
 847                         # The database does not exist, so return an error.
 848
 849                         kiriwrite_error("databasemissingfile");
 850
 851                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
 852
 853                         # The database has invalid permissions set, so return
 854                         # an error.
 855
 856                         kiriwrite_error("databaseinvalidpermissions");
 857
 858                 }
 859
 860                 # Check if the database has write permissions.
 861
 862                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
 863
 864                 if ($database_permissions eq 1){
 865
 866                         # The database permissions are invalid so return an error.
 867
 868                         kiriwrite_error("databaseinvalidpermissions");
 869
 870                 }
 871
 872                 # Get the information about the database.
 873
 874                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
 875
 876                 # Check if any error occured while getting the database information.
 877
 878                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 879
 880                         # A database error has occured so return an error and
 881                         # also the extended error information.
 882
 883                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 884
 885                 }
 886
 887                 # Get the information about the page that is going to be deleted.
 888
 889                 my %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page });
 890
 891                 # Check if any errors occured while getting the page information.
 892
 893                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 894
 895                         # A database error has occured so return an error and
 896                         # also the extended error information.
 897
 898                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 899
 900                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
 901
 902                         # The page does not exist, so return an error.
 903
 904                         kiriwrite_error("pagefilenamedoesnotexist");
 905
 906                 }
 907
 908                 # Delete the page from the database.
 909
 910                 $kiriwrite_dbmodule->deletepage({ PageFilename => $page });
 911
 912                 # Check if any errors occured while deleting the page from the database.
 913
 914                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 915
 916                         # A database error has occured so return an error and
 917                         # also the extended error information.
 918
 919                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 920
 921                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
 922
 923                         # The page does not exist, so return an error.
 924
 925                         kiriwrite_error("pagefilenamedoesnotexist");
 926
 927                 }
 928
 929                 # Get the database name and page name.
 930
 931                 my $database_name       = $database_info{"DatabaseName"};
 932                 my $page_name           = $page_info{"PageName"};
 933
 934                 # Disconnect from the database server.
 935
 936                 $kiriwrite_dbmodule->disconnect();
 937
 938                 # Write out a message saying that the selected page from
 939                 # the database has been deleted.
 940
 941                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagedeleted}, { Style => "pageheader" });
 942                 $kiriwrite_presmodule->addlinebreak();
 943                 $kiriwrite_presmodule->addlinebreak();
 944                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{pagedeletedmessage}, $page_name, $database_name));
 945                 $kiriwrite_presmodule->addlinebreak();
 946                 $kiriwrite_presmodule->addlinebreak();
 947                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name)});
 948
 949                 return $kiriwrite_presmodule->grab();
 950
 951         } elsif ($confirm eq 0){
 952
 953                 # Connect to the database server.
 954
 955                 $kiriwrite_dbmodule->connect();
 956
 957                 # Check if any errors occured while connecting to the database server.
 958
 959                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
 960
 961                         # A database connection error has occured so return
 962                         # an error.
 963
 964                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
 965
 966                 }
 967
 968                 # Select the database.
 969
 970                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
 971
 972                 # Check if any errors had occured while selecting the database.
 973
 974                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
 975
 976                         # The database does not exist, so return an error.
 977
 978                         kiriwrite_error("databasemissingfile");
 979
 980                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
 981
 982                         # The database has invalid permissions set, so return
 983                         # an error.
 984
 985                         kiriwrite_error("databaseinvalidpermissions");
 986
 987                 }
 988
 989                 # Get information about the database.
 990
 991                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
 992
 993                 # Check if any errors occured while getting the database information.
 994
 995                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 996
 997                         # A database error has occured so return an error and
 998                         # also the extended error information.
 999
1000                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1001
1002                 }
1003
1004                 # Get information about the page that is going to be deleted.
1005
1006                 my %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page });
1007
1008                 # Check if any errors occured while getting the page information.
1009
1010                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1011
1012                         # A database error has occured so return an error and
1013                         # also the extended error information.
1014
1015                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1016
1017                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
1018
1019                         # The page does not exist, so return an error.
1020
1021                         kiriwrite_error("pagefilenamedoesnotexist");
1022
1023                 }
1024
1025                 my $database_name       = $database_info{"DatabaseName"};
1026                 my $page_name           = $page_info{"PageName"};
1027
1028                 # Disconnect from the database server.
1029
1030                 $kiriwrite_dbmodule->disconnect();
1031
1032                 # Write a message asking the user to confirm the deletion of the
1033                 # page.
1034
1035                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{deletepage}, $page_name), { Style => "pageheader" });
1036                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
1037                 $kiriwrite_presmodule->addhiddendata("mode", "page");
1038                 $kiriwrite_presmodule->addhiddendata("action", "delete");
1039                 $kiriwrite_presmodule->addhiddendata("database", $database);
1040                 $kiriwrite_presmodule->addhiddendata("page", $page);
1041                 $kiriwrite_presmodule->addhiddendata("confirm", "1");
1042                 $kiriwrite_presmodule->addlinebreak();
1043                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{deletepagemessage}, $page_name, $database_name));
1044                 $kiriwrite_presmodule->addlinebreak();
1045                 $kiriwrite_presmodule->addlinebreak();
1046                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{deletepagebutton});
1047                 $kiriwrite_presmodule->addtext(" | ");
1048                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{deletepagesreturnlink}, $database_name)});
1049                 $kiriwrite_presmodule->endform();
1050
1051                 return $kiriwrite_presmodule->grab();
1052
1053         } else {
1054
1055                 # Another page deletion type was specified, so return an error.
1056
1057                 kiriwrite_error("invalidoption");
1058
1059         }
1060
1061 }
1062
1063 sub kiriwrite_page_edit{
1064 #################################################################################
1065 # kiriwrite_page_edit: Edits a page from a database.                            #
1066 #                                                                               #
1067 # Usage:                                                                        #
1068 #                                                                               #
1069 # kiriwrite_page_edit(database, filename, newname, newfilename, newdescription, #
1070 #                       newsection, newtemplate,  newsettings, newpagecontent   #
1071 #                       confirm);                                               #
1072 #                                                                               #
1073 # database       Specifies the database to edit from.                           #
1074 # filename       Specifies the filename to use.                                 #
1075 # newfilename    Specifies the new page filename to use.                        #
1076 # newname        Specifies the new page name to use.                            #
1077 # newdescription Specifies the new description for the page.                    #
1078 # newsection     Specifies the new section name to use.                         #
1079 # newtemplate    Specifies the new template filename to use.                    #
1080 # newsettings    Specifies the new page settings to use.                        #
1081 # newpagecontent Specifies the new page content to use.                         #
1082 # confirm        Confirms the action to edit the page.                          #
1083 #################################################################################
1084
1085         # Get the values that have been passed to the subroutine.
1086
1087         my ($database, $pagefilename, $pagenewfilename, $pagenewtitle, $pagenewdescription, $pagenewsection, $pagenewtemplate, $pagenewsettings, $pagenewcontent, $confirm) = @_;
1088
1089         # Check if the confirm value is blank and if it is, then set it to '0'.
1090
1091         if (!$confirm){
1092
1093                 $confirm = 0;
1094
1095         }
1096
1097         # Check if the confirm value is more than one character long and if it
1098         # is then return an error.
1099
1100         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
1101
1102         # Check if the database filename is valid and return an error if
1103         # it isn't.
1104
1105         my $pagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
1106
1107         if ($pagedatabase_filename_check eq 1){
1108
1109                 # The database filename is blank, so return an error.
1110
1111                 kiriwrite_error("blankdatabasepageadd");
1112
1113         } elsif ($pagedatabase_filename_check eq 2){
1114
1115                 # The database filename is invalid, so return an error.
1116
1117                 kiriwrite_error("databasefilenameinvalid");
1118
1119         }
1120
1121         # Check the length the database name and return an error if it's
1122         # too long.
1123
1124         my $pagedatabase_length_check   = kiriwrite_variablecheck($database, "maxlength", 32, 1);
1125
1126         if ($pagedatabase_length_check eq 1){
1127
1128                 # The database name is too long, so return an error.
1129
1130                 kiriwrite_error("databasefilenametoolong");
1131
1132         }
1133
1134         # Check if the page identification number is blank (which it shouldn't
1135         # be) and if it is, then return an error.
1136
1137         if (!$pagefilename){
1138
1139                 kiriwrite_error("blankfilename");
1140
1141         }
1142
1143         # Check if the confirm value is '1' and if it is, edit the specified
1144         # page in the database.
1145
1146         if ($confirm eq 1){
1147
1148                 # Check if the new page filename is blank.
1149
1150                 if (!$pagenewfilename){
1151
1152                         # The page filename is blank so return an error.
1153
1154                         kiriwrite_error("pagefilenameblank");
1155
1156                 }
1157
1158                 # The action to edit a page has been confirmed so check the
1159                 # variables recieved are UTF8 compiliant before converting.
1160
1161                 kiriwrite_variablecheck($database, "utf8", 0, 0);
1162                 kiriwrite_variablecheck($pagefilename, "utf8", 0, 0);
1163                 kiriwrite_variablecheck($pagenewfilename, "utf8", 0, 0);
1164                 kiriwrite_variablecheck($pagenewtitle, "utf8", 0, 0);
1165                 kiriwrite_variablecheck($pagenewdescription, "utf8", 0, 0);
1166                 kiriwrite_variablecheck($pagenewsection, "utf8", 0, 0);
1167                 kiriwrite_variablecheck($pagenewsettings, "utf8", 0, 0);
1168                 kiriwrite_variablecheck($pagenewtemplate, "utf8", 0, 0);
1169                 kiriwrite_variablecheck($pagenewcontent, "utf8", 0, 0);
1170
1171                 # Convert the variables into proper UTF8 variables.
1172
1173                 $database               = kiriwrite_utf8convert($database);
1174                 $pagefilename           = kiriwrite_utf8convert($pagefilename);
1175                 $pagenewfilename        = kiriwrite_utf8convert($pagenewfilename);
1176                 $pagenewtitle           = kiriwrite_utf8convert($pagenewtitle);
1177                 $pagenewdescription     = kiriwrite_utf8convert($pagenewdescription);
1178                 $pagenewsection         = kiriwrite_utf8convert($pagenewsection);
1179                 $pagenewsettings        = kiriwrite_utf8convert($pagenewsettings);
1180                 $pagenewtemplate        = kiriwrite_utf8convert($pagenewtemplate);
1181                 $pagenewcontent         = kiriwrite_utf8convert($pagenewcontent);
1182
1183                 # Check the lengths of the variables.
1184
1185                 my $pagenewfilename_maxlength_check     = kiriwrite_variablecheck($pagenewfilename, "maxlength", 256, 1);
1186                 my $pagenewtitle_maxlength_check        = kiriwrite_variablecheck($pagenewtitle, "maxlength", 512, 1);
1187                 my $pagenewdescription_maxlength_check  = kiriwrite_variablecheck($pagenewdescription, "maxlength", 512, 1);
1188                 my $pagenewsection_maxlength_check      = kiriwrite_variablecheck($pagenewsection, "maxlength", 256, 1);
1189                 my $pagenewsettings_maxlength_check     = kiriwrite_variablecheck($pagenewsettings, "maxlength", 1, 1);
1190                 my $pagenewtemplate_maxlength_check     = kiriwrite_variablecheck($pagenewtemplate, "maxlength", 64, 1);
1191
1192                 # Check each result to see if the length of the variable
1193                 # is valid and return an error if it isn't.
1194
1195                 if ($pagenewfilename_maxlength_check eq 1){
1196
1197                         # The new page filename given is too long, so return an error.
1198
1199                         kiriwrite_error("pagefilenametoolong");
1200
1201                 }
1202
1203                 if ($pagenewtitle_maxlength_check eq 1){
1204
1205                         # The new page title given is too long, so return an error.
1206
1207                         kiriwrite_error("pagetitletoolong");
1208
1209                 }
1210
1211                 if ($pagenewdescription_maxlength_check eq 1){
1212
1213                         # The new page description given is too long, so return an error.
1214
1215                         kiriwrite_error("pagedescriptiontoolong");
1216
1217                 }
1218
1219                 if ($pagenewsection_maxlength_check eq 1){
1220
1221                         # The new page section given is too long, so return an error.
1222
1223                         kiriwrite_error("pagesectiontoolong");
1224
1225                 }
1226
1227                 if ($pagenewsettings_maxlength_check eq 1){
1228
1229                         # The new page settings given is too long, so return an error.
1230
1231                         kiriwrite_error("pagesettingstoolong");
1232
1233                 }
1234
1235                 if ($pagenewtemplate_maxlength_check eq 1){
1236
1237                         # The new page template given is too long, so return an error.
1238
1239                         kiriwrite_error("pagetemplatefilenametoolong");
1240
1241                 }
1242
1243                 # Check if the new page filename and new page settings
1244                 # are valid.
1245
1246                 my $pagenewfilename_filename_check      = kiriwrite_variablecheck($pagenewfilename, "page_filename", 0, 1);
1247                 my $pagenewsettings_settings_check      = kiriwrite_variablecheck($pagenewsettings, "pagesetting", 0, 1);
1248                 my $pagetemplate_filename_check = 0;
1249
1250                 if ($pagenewtemplate ne "!none"){
1251
1252                         # A template is being used so check the filename of the
1253                         # template.
1254
1255                         $pagetemplate_filename_check    = kiriwrite_variablecheck($pagenewtemplate, "page_filename", 0, 1);
1256
1257                 }
1258
1259                 # Check each result to see if the variables have passed
1260                 # their tests and return an error if they haven't.
1261
1262                 if ($pagenewfilename_filename_check ne 0){
1263
1264                         # The new page filename is invalid, so return an error.
1265
1266                         kiriwrite_error("pagefilenameinvalid");
1267
1268                 }
1269
1270                 if ($pagenewsettings_settings_check eq 1){
1271
1272                         # The new page settings is invalid, so return an error.
1273
1274                         kiriwrite_error("pagesettingsinvalid");
1275
1276                 }
1277
1278                 if ($pagetemplate_filename_check eq 1){
1279
1280                         # The template filename given is invalid, so return an error
1281
1282                         kiriwrite_error("templatefilenameinvalid");
1283
1284                 }
1285
1286                 # Connect to the database server.
1287
1288                 $kiriwrite_dbmodule->connect();
1289
1290                 # Check if any errors occured while connecting to the database server.
1291
1292                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
1293
1294                         # A database connection error has occured so return
1295                         # an error.
1296
1297                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
1298
1299                 }
1300
1301                 # Select the database.
1302
1303                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
1304
1305                 # Check if any errors had occured while selecting the database.
1306
1307                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
1308
1309                         # The database does not exist, so return an error.
1310
1311                         kiriwrite_error("databasemissingfile");
1312
1313                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
1314
1315                         # The database has invalid permissions set, so return
1316                         # an error.
1317
1318                         kiriwrite_error("databaseinvalidpermissions");
1319
1320                 }
1321
1322                 # Check if the database has write permissions.
1323
1324                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
1325
1326                 if ($database_permissions eq 1){
1327
1328                         # The database permissions are invalid so return an error.
1329
1330                         kiriwrite_error("databaseinvalidpermissions");
1331
1332                 }
1333
1334                 # Get the database information.
1335
1336                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
1337
1338                 # Check if any errors had occured while getting the database information.
1339
1340                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1341
1342                         # A database error has occured so return an error and
1343                         # also the extended error information.
1344
1345                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1346
1347                 };
1348
1349                 my $database_name = $database_info{"DatabaseName"};
1350
1351                 # Edit the selected page.
1352
1353                 $kiriwrite_dbmodule->editpage({ PageFilename => $pagefilename, PageNewFilename => $pagenewfilename, PageNewName => $pagenewtitle, PageNewDescription => $pagenewdescription, PageNewSection => $pagenewsection, PageNewTemplate => $pagenewtemplate, PageNewContent => $pagenewcontent, PageNewSettings => $pagenewsettings });
1354
1355                 # Check if any errors occured while editing the page.
1356
1357                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1358
1359                         # A database error has occured so return an error and
1360                         # also the extended error information.
1361
1362                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1363
1364                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
1365
1366                         # The pages does not exist in the database.
1367
1368                         kiriwrite_error("pagefilenamedoesnotexist");
1369
1370                 }
1371
1372                 # Disconnect from the database server.
1373
1374                 $kiriwrite_dbmodule->disconnect();
1375
1376                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{editedpage}, { Style => "pageheader" });
1377                 $kiriwrite_presmodule->addlinebreak();
1378                 $kiriwrite_presmodule->addlinebreak();
1379                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{editedpagemessage}, $pagenewtitle));
1380                 $kiriwrite_presmodule->addlinebreak();
1381                 $kiriwrite_presmodule->addlinebreak();
1382                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
1383
1384                 return $kiriwrite_presmodule->grab();
1385
1386         } elsif ($confirm eq 0) {
1387
1388                 # Connect to the database server.
1389
1390                 $kiriwrite_dbmodule->connect();
1391
1392                 # Check if any errors occured while connecting to the database server.
1393
1394                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
1395
1396                         # A database connection error has occured so return
1397                         # an error.
1398
1399                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
1400
1401                 }
1402
1403                 # Select the database.
1404
1405                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
1406
1407                 # Check if any errors had occured while selecting the database.
1408
1409                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
1410
1411                         # The database does not exist, so return an error.
1412
1413                         kiriwrite_error("databasemissingfile");
1414
1415                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
1416
1417                         # The database has invalid permissions set, so return
1418                         # an error.
1419
1420                         kiriwrite_error("databaseinvalidpermissions");
1421
1422                 }
1423
1424                 # Get the information about the database.
1425
1426                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
1427
1428                 # Check if any errors had occured while getting the database information.
1429
1430                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1431
1432                         # A database error has occured so return an error and
1433                         # also the extended error information.
1434
1435                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1436
1437                 };
1438
1439                 my $database_name = $database_info{"DatabaseName"};
1440
1441                 # Get the page info.
1442
1443                 my %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $pagefilename });
1444
1445                 # Check if any errors occured while getting the page information.
1446
1447                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1448
1449                         # A database error has occured so return an error and
1450                         # also the extended error information.
1451
1452                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1453
1454                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
1455
1456                         # The page does not exist, so return an error.
1457
1458                         kiriwrite_error("pagefilenamedoesnotexist");
1459
1460                 }
1461
1462                 # Get the values from the hash.
1463
1464                 my $data_filename               = $page_info{"PageFilename"};
1465                 my $data_name                   = $page_info{"PageName"};
1466                 my $data_description            = $page_info{"PageDescription"};
1467                 my $data_section                = $page_info{"PageSection"};
1468                 my $data_template               = $page_info{"PageTemplate"};
1469                 my $data_content                = $page_info{"PageContent"};
1470                 my $data_settings               = $page_info{"PageSettings"};
1471                 my $data_lastmodified           = $page_info{"PageLastModified"};
1472
1473                 my $template_warning;
1474                 my $page_count = 0;
1475                 my %template_list;
1476                 my %template_info;
1477                 my @database_pages;
1478                 my @database_info;
1479                 my @database_templates;
1480                 my @template_filenames;
1481                 my $template_file;
1482                 my $template_filename;
1483                 my $template_name;
1484                 my $template_count = 0;
1485                 my $template_found = 0;
1486
1487                 tie(%template_list, 'Tie::IxHash');
1488
1489                 # Connect to the template database.
1490
1491                 $kiriwrite_dbmodule->connecttemplate();
1492
1493                 # Check if any errors occured while connecting to the template database.
1494
1495                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
1496
1497                         # The template database does not exist so set the template
1498                         # warning message.
1499
1500                         $template_warning = $kiriwrite_lang->{pages}->{notemplatedatabasekeep};
1501
1502                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
1503
1504                         # The template database has invalid permissions set so write
1505                         # the template warning message.
1506
1507                         $template_warning = $kiriwrite_lang->{pages}->{templatepermissionserrorkeep};
1508
1509                 }
1510
1511                 if (!$template_warning){
1512
1513                         # Get the list of available templates.
1514
1515                         @template_filenames = $kiriwrite_dbmodule->gettemplatelist();
1516
1517                         # Check if any errors had occured.
1518
1519                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
1520
1521                                 # A database error occured while getting the list
1522                                 # of templates so return an error with the
1523                                 # extended error information.
1524
1525                                 $template_warning = kiriwrite_language($kiriwrite_lang->{pages}->{templatedatabaseerrorkeep} , $kiriwrite_dbmodule->geterror(1));
1526
1527                         }
1528
1529                         if (!$template_warning){
1530
1531                                 foreach $template_filename (@template_filenames){
1532
1533                                         # Get the information about each template.
1534
1535                                         %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template_filename });
1536
1537                                         # Check if any errors occured while getting the template information.
1538
1539                                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
1540
1541                                                 # A template database error has occured so return a warning message
1542                                                 # with the extended error information.
1543
1544                                                 $template_warning = kiriwrite_language($kiriwrite_lang->{pages}->{templatedatabaseerrorkeep} , $kiriwrite_dbmodule->geterror(1));
1545                                                 last;
1546
1547                                         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
1548
1549                                                 # The template does not exist so process the next template.
1550
1551                                                 next;
1552
1553                                         }
1554
1555                                         # Append the template name and filename to the list of available templates.
1556
1557                                         $template_list{$template_count}{Filename} = $template_info{"TemplateFilename"};
1558                                         $template_list{$template_count}{Name}     = $template_info{"TemplateName"};
1559
1560                                         # Append the template filename and name and make it the selected
1561                                         # template if that is the template the page is using.
1562
1563                                         if ($data_template eq $template_filename && !$template_found){
1564
1565                                                 $template_list{$template_count}{Selected}       = 1;
1566                                                 $template_found = 1;
1567
1568                                         } else {
1569
1570                                                 $template_list{$template_count}{Selected}       = 0;
1571
1572                                         }
1573
1574                                         $template_count++;
1575
1576                                 }
1577
1578                         }
1579
1580                 }
1581
1582                 # Check if certain values are undefined and if they
1583                 # are then set them blank (defined).
1584
1585                 if (!$data_name){
1586                         $data_name = "";
1587                 }
1588
1589                 if (!$data_description){
1590                         $data_description = "";
1591                 }
1592
1593                 if (!$data_section){
1594                         $data_section = "";
1595                 }
1596
1597                 if (!$data_template){
1598                         $data_template = "";
1599
1600                 }
1601
1602                 if (!$data_content){
1603                         $data_content = "";
1604                 }
1605
1606                 if (!$data_settings){
1607                         $data_settings = "";
1608                 }
1609
1610                 if (!$data_lastmodified){
1611                         $data_lastmodified = "";
1612                 }
1613
1614                 # Begin writing out the form for editing the selected page.
1615
1616                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{editpage}, $data_name), { Style => "pageheader" });
1617                 $kiriwrite_presmodule->addlinebreak();
1618                 $kiriwrite_presmodule->addlinebreak();
1619
1620                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
1621                 $kiriwrite_presmodule->addhiddendata("mode", "page");
1622                 $kiriwrite_presmodule->addhiddendata("action", "edit");
1623                 $kiriwrite_presmodule->addhiddendata("database", $database);
1624                 $kiriwrite_presmodule->addhiddendata("page", $pagefilename);
1625                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
1626
1627                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
1628
1629                 $kiriwrite_presmodule->startheader();
1630                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
1631                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
1632                 $kiriwrite_presmodule->endheader();
1633
1634                 $kiriwrite_presmodule->startrow();
1635                 $kiriwrite_presmodule->addcell("tablecell1");
1636                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{database});
1637                 $kiriwrite_presmodule->endcell();
1638                 $kiriwrite_presmodule->addcell("tablecell2");
1639                 $kiriwrite_presmodule->addtext($database_name);
1640                 $kiriwrite_presmodule->endcell();
1641                 $kiriwrite_presmodule->endrow();
1642
1643                 $kiriwrite_presmodule->startrow();
1644                 $kiriwrite_presmodule->addcell("tablecell1");
1645                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagename});
1646                 $kiriwrite_presmodule->endcell();
1647                 $kiriwrite_presmodule->addcell("tablecell2");
1648                 $kiriwrite_presmodule->addinputbox("pagename", { Size => 64, MaxLength => 256, Value => $data_name });
1649                 $kiriwrite_presmodule->endcell();
1650                 $kiriwrite_presmodule->endrow();
1651
1652                 $kiriwrite_presmodule->startrow();
1653                 $kiriwrite_presmodule->addcell("tablecell1");
1654                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagedescription});
1655                 $kiriwrite_presmodule->endcell();
1656                 $kiriwrite_presmodule->addcell("tablecell2");
1657                 $kiriwrite_presmodule->addinputbox("pagedescription", { Size => 64, MaxLength => 256, Value => $data_description });
1658                 $kiriwrite_presmodule->endcell();
1659                 $kiriwrite_presmodule->endrow();
1660
1661                 $kiriwrite_presmodule->startrow();
1662                 $kiriwrite_presmodule->addcell("tablecell1");
1663                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesection});
1664                 $kiriwrite_presmodule->endcell();
1665                 $kiriwrite_presmodule->addcell("tablecell2");
1666                 $kiriwrite_presmodule->addinputbox("pagesection", { Size => 64, MaxLength => 256, Value => $data_section });
1667                 $kiriwrite_presmodule->endcell();
1668                 $kiriwrite_presmodule->endrow();
1669
1670                 $kiriwrite_presmodule->startrow();
1671                 $kiriwrite_presmodule->addcell("tablecell1");
1672                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagetemplate});
1673                 $kiriwrite_presmodule->endcell();
1674                 $kiriwrite_presmodule->addcell("tablecell2");
1675
1676                 # Check if any template warnings have occured.
1677
1678                 if ($template_warning){
1679
1680                         $kiriwrite_presmodule->addtext($template_warning);
1681                         $kiriwrite_presmodule->addlinebreak();
1682
1683                 }
1684
1685                 $kiriwrite_presmodule->addselectbox("pagetemplate");
1686
1687                 # Process the list of templates, select one if the
1688                 # template filename for the page matches, else give
1689                 # an option for the user to keep the current template
1690                 # filename.
1691
1692                 $template_count = 0;
1693
1694                 foreach $template_file (keys %template_list){
1695
1696                         if ($template_list{$template_count}{Selected}){
1697
1698                                 $kiriwrite_presmodule->addoption($template_list{$template_count}{Name} . " (" . $template_list{$template_count}{Filename} . ")", { Value => $template_list{$template_count}{Filename}, Selected => 1 });
1699
1700                         } else {
1701
1702                                 $kiriwrite_presmodule->addoption($template_list{$template_count}{Name} . " (" . $template_list{$template_count}{Filename} . ")", { Value => $template_list{$template_count}{Filename} });
1703
1704                         }
1705
1706                         $template_count++;
1707
1708                 }
1709
1710                 if ($data_template eq "!none"){
1711
1712                         $kiriwrite_presmodule->addoption($kiriwrite_lang->{pages}->{usenotemplate}, { Value => "!none", Selected => 1 });
1713                         $template_found = 1;
1714
1715                 } else {
1716
1717                         $kiriwrite_presmodule->addoption($kiriwrite_lang->{pages}->{usenotemplate}, { Value => "!none" });
1718
1719                 }
1720
1721                 if ($template_found eq 0 && $data_template ne "!none"){
1722
1723                         # The template with the filename given was not found.
1724
1725                         $kiriwrite_presmodule->addoption(kiriwrite_language($kiriwrite_lang->{pages}->{keeptemplatefilename}, $data_template), { Value => $data_template, Selected => 1, Style => "warningoption" });
1726
1727                 }
1728
1729                 # Disconnect from the template database.
1730
1731                 $kiriwrite_dbmodule->disconnecttemplate();
1732
1733                 # Disconnect from the database server.
1734
1735                 $kiriwrite_dbmodule->disconnect();
1736
1737                 $kiriwrite_presmodule->endselectbox();
1738
1739                 $kiriwrite_presmodule->endcell();
1740                 $kiriwrite_presmodule->endrow();
1741
1742                 $kiriwrite_presmodule->startrow();
1743                 $kiriwrite_presmodule->addcell("tablecell1");
1744                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagefilename});
1745                 $kiriwrite_presmodule->endcell();
1746                 $kiriwrite_presmodule->addcell("tablecell2");
1747                 $kiriwrite_presmodule->addinputbox("pagefilename", { Size => 64, MaxLength => 256, Value => $data_filename });
1748                 $kiriwrite_presmodule->endcell();
1749                 $kiriwrite_presmodule->endrow();
1750
1751                 $kiriwrite_presmodule->startrow();
1752                 $kiriwrite_presmodule->addcell("tablecell1");
1753                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagecontent});
1754                 $kiriwrite_presmodule->endcell();
1755                 $kiriwrite_presmodule->addcell("tablecell2");
1756                 $kiriwrite_presmodule->addtextbox("pagecontent", { Columns => 50, Rows => 10, Value => $data_content });
1757                 $kiriwrite_presmodule->addlinebreak();
1758                 $kiriwrite_presmodule->addlinebreak();
1759                 $kiriwrite_presmodule->startbox("datalist");
1760                 $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{common}->{tags});
1761                 $kiriwrite_presmodule->addlinebreak();
1762                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagetitle});
1763                 $kiriwrite_presmodule->addlinebreak();
1764                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagename});
1765                 $kiriwrite_presmodule->addlinebreak();
1766                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagedescription});
1767                 $kiriwrite_presmodule->addlinebreak();
1768                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagesection});
1769                 $kiriwrite_presmodule->addlinebreak();
1770                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautosection});
1771                 $kiriwrite_presmodule->addlinebreak();
1772                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautotitle});
1773                 $kiriwrite_presmodule->addlinebreak();
1774                 $kiriwrite_presmodule->endbox();
1775                 $kiriwrite_presmodule->endcell();
1776                 $kiriwrite_presmodule->endrow();
1777
1778                 $kiriwrite_presmodule->startrow();
1779                 $kiriwrite_presmodule->addcell("tablecell1");
1780                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesettings});
1781                 $kiriwrite_presmodule->endcell();
1782                 $kiriwrite_presmodule->addcell("tablecell2");
1783
1784                 # Check if the page settings value is set to a
1785                 # certain number and select that option based
1786                 # on the number else set the value to 0.
1787
1788                 if ($data_settings eq 1){
1789                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepageandsection}, Value => "1", Selected => 1, LineBreak => 1});
1790                 } else {
1791                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepageandsection}, Value => "1", LineBreak => 1});
1792                 }
1793
1794                 if ($data_settings eq 2){
1795                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepagename}, Value => "2", Selected => 1, LineBreak => 1});
1796                 } else {
1797                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepagename}, Value => "2", LineBreak => 1});
1798                 }
1799
1800                 if ($data_settings eq 3){
1801                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usesectionname}, Value => "3", Selected => 1, LineBreak => 1});
1802                 } else {
1803                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usesectionname}, Value => "3", LineBreak => 1});
1804                 }
1805
1806                 if ($data_settings eq 0 || ($data_settings ne 1 && $data_settings ne 2 && $data_settings ne 3)){
1807                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{nopagesection}, Value => "0", Selected => 1, LineBreak => 1});
1808                 } else {
1809                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{nopagesection}, Value => "0", LineBreak => 1});
1810                 }
1811
1812                 $kiriwrite_presmodule->endcell();
1813                 $kiriwrite_presmodule->endrow();
1814                 $kiriwrite_presmodule->endtable();
1815
1816                 $kiriwrite_presmodule->addlinebreak();
1817                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{editpagebutton});
1818                 $kiriwrite_presmodule->addtext(" | ");
1819                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{common}->{clearvalues});
1820                 $kiriwrite_presmodule->addtext(" | ");
1821                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) } );
1822
1823                 $kiriwrite_presmodule->endform();
1824
1825                 return $kiriwrite_presmodule->grab();
1826
1827         } else {
1828
1829                 # The confirm value is a value other than '0' and '1' so
1830                 # return an error.
1831
1832                 kiriwrite_error("invalidvalue");
1833
1834         }
1835
1836 }
1837
1838 sub kiriwrite_page_multidelete{
1839 #################################################################################
1840 # kiriwrite_page_multidelete: Delete mulitple pages from the database.          #
1841 #                                                                               #
1842 # Usage:                                                                        #
1843 #                                                                               #
1844 # kiriwrite_page_multidelete(database, confirm, filelist);                      #
1845 #                                                                               #
1846 # database      Specifies the database to delete multiple pages from.           #
1847 # confirm       Confirms the action to delete the selected pages from the       #
1848 #               database.                                                       #
1849 # filelist      The list of files to delete from the selected database.         #
1850 #################################################################################
1851
1852         # Get the information passed to the subroutine.
1853
1854         my ($database, $confirm, @filelist) = @_;
1855
1856         # Check if the database name is blank and return an error if
1857         # it is.
1858
1859         if (!$database){
1860
1861                 # The database name is blank so return an error.
1862
1863                 kiriwrite_error("databasenameblank");
1864
1865         }
1866
1867         # Check if the file list array has any values and return
1868         # an error if it doesn't.
1869
1870         if (!@filelist){
1871
1872                 # The page list really is blank so return
1873                 # an error.
1874
1875                 kiriwrite_error("nopagesselected");
1876         }
1877
1878         # Check if the database filename is valid and return an error if
1879         # it isn't.
1880
1881         my $pagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
1882
1883         if ($pagedatabase_filename_check eq 1){
1884
1885                 # The database filename is blank, so return an error.
1886
1887                 kiriwrite_error("blankdatabasepageadd");
1888
1889         } elsif ($pagedatabase_filename_check eq 2){
1890
1891                 # The database filename is invalid, so return an error.
1892
1893                 kiriwrite_error("databasefilenameinvalid");
1894
1895         }
1896
1897         # Check the length the database name and return an error if it's
1898         # too long.
1899
1900         my $pagedatabase_length_check   = kiriwrite_variablecheck($database, "maxlength", 32, 1);
1901
1902         if ($pagedatabase_length_check eq 1){
1903
1904                 # The database name is too long, so return an error.
1905
1906                 kiriwrite_error("databasefilenametoolong");
1907
1908         }
1909
1910         # Check if the confirm value is blank and if it is, then
1911         # set it to 0.
1912
1913         if (!$confirm){
1914
1915                 # The confirm value is blank so set the confirm value
1916                 # to 0.
1917
1918                 $confirm = 0;
1919
1920         }
1921
1922         if ($confirm eq 1){
1923
1924                 # The action to delete multiple pages from the database has
1925                 # been confirmed.
1926
1927                 # Connect to the database server.
1928
1929                 $kiriwrite_dbmodule->connect();
1930
1931                 # Check if any errors occured while connecting to the database server.
1932
1933                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
1934
1935                         # A database connection error has occured so return
1936                         # an error.
1937
1938                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
1939
1940                 }
1941
1942                 # Select the database.
1943
1944                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
1945
1946                 # Check if any errors occured while selecting the database.
1947
1948                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
1949
1950                         # The database does not exist, so return an error.
1951
1952                         kiriwrite_error("databasemissingfile");
1953
1954                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
1955
1956                         # The database has invalid permissions set, so return
1957                         # an error.
1958
1959                         kiriwrite_error("databaseinvalidpermissions");
1960
1961                 }
1962
1963                 # Check if the database has read and write permissions.
1964
1965                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
1966
1967                 if ($database_permissions eq 1){
1968
1969                         # The database permissions are invalid so return an error.
1970
1971                         kiriwrite_error("databaseinvalidpermissions");
1972
1973                 }
1974
1975                 # Get information about the database.
1976
1977                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
1978
1979                 # Check if any errors had occured while getting the database
1980                 # information.
1981
1982                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1983
1984                         # A database error has occured so return an error and
1985                         # also the extended error information.
1986
1987                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1988
1989                 };
1990
1991                 my $database_name       = $database_info{"DatabaseName"};
1992
1993                 # Define some variables for later.
1994
1995                 my @database_page;
1996                 my %page_info;
1997                 my $filelist_filename;
1998                 my %deleted_list;
1999                 my $page;
2000                 my $page_name;
2001                 my $page_found = 0;
2002                 my $page_count = 0;
2003
2004                 tie (%deleted_list, 'Tie::IxHash');
2005
2006                 my $deleted_list = "";
2007
2008                 foreach $filelist_filename (@filelist){
2009
2010                         # Get the page information.
2011
2012                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filelist_filename });
2013
2014                         # Check if any errors occured.
2015
2016                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2017
2018                                 # A database error has occured so return an error and
2019                                 # also the extended error information.
2020
2021                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2022
2023                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2024
2025                                 # The page does not exist, so process the next page.
2026
2027                                 next;
2028
2029                         }
2030
2031                         # Add the page to the list of deleted pages.
2032
2033                         $deleted_list{$page_count}{Filename}    = $page_info{"PageFilename"};
2034                         $deleted_list{$page_count}{Name}        = $page_info{"PageName"};
2035
2036                         # Delete the page.
2037
2038                         $kiriwrite_dbmodule->deletepage({ PageFilename => $filelist_filename });
2039
2040                         # Check if any errors occured while deleting the page from the database.
2041
2042                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2043
2044                                 # A database error has occured so return an error and
2045                                 # also the extended error information.
2046
2047                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2048
2049                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2050
2051                                 # The page does not exist, so process the next page.
2052
2053                                 next;
2054
2055                         }
2056
2057                         $page_found = 0;
2058                         $page_count++;
2059
2060                 }
2061
2062                 # Disconnect from the database server.
2063
2064                 $kiriwrite_dbmodule->disconnect();
2065
2066                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{selectedpagesdeleted}, { Style => "pageheader" });
2067                 $kiriwrite_presmodule->addlinebreak();
2068                 $kiriwrite_presmodule->addlinebreak();
2069                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{selectedpagesdeletedmessage}, $database_name));
2070                 $kiriwrite_presmodule->addlinebreak();
2071                 $kiriwrite_presmodule->addlinebreak();
2072                 $kiriwrite_presmodule->startbox("datalist");
2073
2074                 foreach $page (keys %deleted_list){
2075
2076                         if (!$deleted_list{$page}{Name}){
2077                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
2078                                 $kiriwrite_presmodule->addtext(" (" . $deleted_list{$page}{Filename} . ")");
2079
2080                         } else {
2081                                 $kiriwrite_presmodule->addtext($deleted_list{$page}{Name} . " (" . $deleted_list{$page}{Filename} . ")");
2082                         }
2083
2084                         $kiriwrite_presmodule->addlinebreak();
2085                 }
2086
2087                 $kiriwrite_presmodule->endbox();
2088                 $kiriwrite_presmodule->addlinebreak();
2089                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name)});
2090                 $kiriwrite_presmodule->endform();
2091
2092                 return $kiriwrite_presmodule->grab();
2093
2094         } elsif ($confirm eq 0){
2095
2096                 # The action to delete multiple pages from the database has
2097                 # not been confirmed, so write a form asking the user to confirm
2098                 # the deletion of those pages.
2099
2100                 # Connect to the database server.
2101
2102                 $kiriwrite_dbmodule->connect();
2103
2104                 # Check if any errors occured while connecting to the database server.
2105
2106                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
2107
2108                         # A database connection error has occured so return
2109                         # an error.
2110
2111                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
2112
2113                 }
2114
2115                 # Select the database.
2116
2117                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
2118
2119                 # Check if any errors occured while selecting the database.
2120
2121                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
2122
2123                         # The database does not exist, so return an error.
2124
2125                         kiriwrite_error("databasemissingfile");
2126
2127                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
2128
2129                         # The database has invalid permissions set, so return
2130                         # an error.
2131
2132                         kiriwrite_error("databaseinvalidpermissions");
2133
2134                 }
2135
2136                 # Check if the database has read and write permissions.
2137
2138                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
2139
2140                 if ($database_permissions eq 1){
2141
2142                         # The database permissions are invalid so return an error.
2143
2144                         kiriwrite_error("databaseinvalidpermissions");
2145
2146                 }
2147
2148                 # Get information about the database.
2149
2150                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
2151
2152                 # Check if any errors had occured while getting the database
2153                 # information.
2154
2155                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2156
2157                         # A database error has occured so return an error and
2158                         # also the extended error information.
2159
2160                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2161
2162                 };
2163
2164                 my $database_name       = $database_info{"DatabaseName"};
2165
2166                 # Define some variables for later.
2167
2168                 my %page_info;
2169                 my %delete_list;
2170                 my $pagename;
2171                 my $page = "";
2172                 my $filelist_filename;
2173                 my $filelist_filename_sql;
2174                 my $pageseek = 0;
2175
2176                 tie(%delete_list, 'Tie::IxHash');
2177
2178                 # Process each filename given.
2179
2180                 foreach $filelist_filename (@filelist){
2181
2182                         # Get the page information.
2183
2184                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filelist_filename });
2185
2186                         # Check if any errors occured.
2187
2188                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2189
2190                                 # A database error has occured so return an error and
2191                                 # also the extended error information.
2192
2193                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2194
2195                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2196
2197                                 # The page does not exist, so process the next page.
2198
2199                                 next;
2200
2201                         }
2202
2203                         # Add the page file name and name to the list
2204                         # of pages to delete.
2205
2206                         $delete_list{$pageseek}{Filename}       = $page_info{"PageFilename"};
2207                         $delete_list{$pageseek}{Name}           = $page_info{"PageName"};
2208
2209                         # Increment the page seek counter and reset the
2210                         # page found value.
2211
2212                         $pageseek++;
2213
2214                 }
2215
2216                 # Disconnect from the database server.
2217
2218                 $kiriwrite_dbmodule->disconnect();
2219
2220                 # Check if any files were selected and return
2221                 # an error if there wasn't.
2222
2223                 if ($pageseek eq 0){
2224
2225                         # No pages were selected so return an error.
2226
2227                         kiriwrite_error("nopagesselected");
2228
2229                 }
2230
2231                 # Write the form for displaying pages.
2232
2233                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{deletemultiplepages}, { Style => "pageheader" });
2234                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
2235                 $kiriwrite_presmodule->addhiddendata("mode", "page");
2236                 $kiriwrite_presmodule->addhiddendata("action", "multidelete");
2237                 $kiriwrite_presmodule->addhiddendata("database", $database);
2238                 $kiriwrite_presmodule->addhiddendata("confirm", "1");
2239                 $kiriwrite_presmodule->addhiddendata("count", $pageseek);
2240
2241                 $pageseek = 1;
2242
2243                 foreach $page (keys %delete_list){
2244
2245                         $kiriwrite_presmodule->addhiddendata("name[" . $pageseek . "]", "on");
2246                         $kiriwrite_presmodule->addhiddendata("id[" . $pageseek . "]", $delete_list{$page}{Filename});
2247
2248                         $pageseek++;
2249
2250                 }
2251
2252                 $kiriwrite_presmodule->addlinebreak();
2253                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{deletemultiplemessage}, $database_name));
2254                 $kiriwrite_presmodule->addlinebreak();
2255                 $kiriwrite_presmodule->addlinebreak();
2256                 $kiriwrite_presmodule->startbox("datalist");
2257
2258                 foreach $page (keys %delete_list){
2259
2260                         if (!$delete_list{$page}{Name}){
2261                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
2262                                 $kiriwrite_presmodule->addtext(" (" . $delete_list{$page}{Filename} . ")");
2263                         } else {
2264                                 $kiriwrite_presmodule->addtext($delete_list{$page}{Name} . " (" . $delete_list{$page}{Filename} . ")");
2265                         }
2266                         $kiriwrite_presmodule->addlinebreak();
2267
2268                 }
2269
2270                 $kiriwrite_presmodule->endbox();
2271                 $kiriwrite_presmodule->addlinebreak();
2272                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{deletepagesbutton});
2273                 $kiriwrite_presmodule->addtext(" | ");
2274                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{deletepagesreturnlink}, $database_name)});
2275                 $kiriwrite_presmodule->endform();
2276
2277                 return $kiriwrite_presmodule->grab();
2278
2279         } else {
2280
2281                 # A confirm value other than 0 or 1 is given, so
2282                 # return an error.
2283
2284                 kiriwrite_error("invaildvalue");
2285
2286         }
2287
2288 }
2289
2290 sub kiriwrite_page_multimove{
2291 #################################################################################
2292 # kiriwrite_page_multimove: Move several pages from one database to another     #
2293 # database.                                                                     #
2294 #                                                                               #
2295 # Usage:                                                                        #
2296 #                                                                               #
2297 # kiriwrite_page_multimove(database, newdatabase, confirm, filelist);           #
2298 #                                                                               #
2299 # database      Specifies the database to move the selected pages from.         #
2300 # newdatabase   Specifies the database to move the selected pages to.           #
2301 # confirm       Confirms the action to move the pages from one database to      #
2302 #               another.                                                        #
2303 # filelist      Specifies the list of pages to move.                            #
2304 #################################################################################
2305
2306         # Get the values that were passed to the subroutine.
2307
2308         my ($database, $newdatabase, $confirm, @filelist) = @_;
2309
2310         # Check if the database filename is valid and return
2311         # an error if it isn't.
2312
2313         my $newpagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
2314
2315         if ($newpagedatabase_filename_check eq 1){
2316
2317                 # The database filename is blank, so return an error.
2318
2319                 kiriwrite_error("blankdatabasepageadd");
2320
2321         } elsif ($newpagedatabase_filename_check eq 2){
2322
2323                 # The database filename is invalid, so return an error.
2324
2325                 kiriwrite_error("databasefilenameinvalid");
2326
2327         }
2328
2329         # Check if the file list is blank and return an error
2330         # if it is.
2331
2332         if (!@filelist){
2333
2334                 # The file list really is blank so return
2335                 # an error.
2336
2337                 kiriwrite_error("nopagesselected");
2338
2339         }
2340
2341         # Check if the confirm value is blank and if it is then
2342         # set the confirm value to 0.
2343
2344         if (!$confirm){
2345
2346                 $confirm = 0;
2347
2348         }
2349
2350         if ($confirm eq 1){
2351
2352                 # The action to move several pages from one database
2353                 # to another has been confirmed.
2354
2355                 # Check if the database that the pages are moving from
2356                 # is the same as the database the pages are moving to.
2357                 # Return an error if it is.
2358
2359                 if ($database eq $newdatabase){
2360
2361                         # The database that the pages are moving from
2362                         # and the database the pages are moving to
2363                         # is the same, so return an error.
2364
2365                         kiriwrite_error("databasemovesame");
2366
2367                 }
2368
2369                 # Check if the new database filename is valid and return an error if
2370                 # it isn't.
2371
2372                 my $newpagedatabase_filename_check = kiriwrite_variablecheck($newdatabase, "filename", 0, 1);
2373
2374                 if ($newpagedatabase_filename_check eq 1){
2375
2376                         # The database filename is blank, so return an error.
2377
2378                         kiriwrite_error("blankdatabasepageadd");
2379
2380                 } elsif ($newpagedatabase_filename_check eq 2){
2381
2382                         # The database filename is invalid, so return an error.
2383
2384                         kiriwrite_error("databasefilenameinvalid");
2385
2386                 }
2387
2388                 # Connect to the database server.
2389
2390                 $kiriwrite_dbmodule->connect();
2391
2392                 # Check if any errors occured while connecting to the database server.
2393
2394                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
2395
2396                         # A database connection error has occured so return
2397                         # an error.
2398
2399                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
2400
2401                 }
2402
2403                 # Select the database the pages are going to be moved from.
2404
2405                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
2406
2407                 # Check if any errors had occured while selecting the database.
2408
2409                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
2410
2411                         # The database does not exist, so return an error.
2412
2413                         kiriwrite_error("oldmovedatabasedoesnotexist");
2414
2415                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
2416
2417                         # The database has invalid permissions set, so return
2418                         # an error.
2419
2420                         kiriwrite_error("oldmovedatabasefileinvalidpermissions");
2421
2422                 }
2423
2424                 # Check if the database has read and write permissions.
2425
2426                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
2427
2428                 if ($database_permissions eq 1){
2429
2430                         # The database permissions are invalid so return an error.
2431
2432                         kiriwrite_error("databaseinvalidpermissions");
2433
2434                 }
2435
2436                 # Select the database the pages are going to be moved to.
2437
2438                 $kiriwrite_dbmodule->selectseconddb({ DatabaseName => $newdatabase });
2439
2440                 # Check if any errors had occured while selecting the database.
2441
2442                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
2443
2444                         # The database does not exist, so return an error.
2445
2446                         kiriwrite_error("newmovedatabasedoesnotexist");
2447
2448                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
2449
2450                         # The database has invalid permissions set, so return
2451                         # an error.
2452
2453                         kiriwrite_error("newmovedatabasefileinvalidpermissions");
2454
2455                 }
2456
2457                 # Check if the database has read and write permissions.
2458
2459                 $database_permissions = $kiriwrite_dbmodule->dbpermissions($newdatabase, 1, 1);
2460
2461                 if ($database_permissions eq 1){
2462
2463                         # The database permissions are invalid so return an error.
2464
2465                         kiriwrite_error("databaseinvalidpermissions");
2466
2467                 }
2468
2469                 # Define some values for later.
2470
2471                 my %moved_list;
2472                 my %warning_list;
2473                 my %page_info;
2474
2475                 my $filename;
2476
2477                 my $olddatabase_name;
2478                 my $newdatabase_name;
2479
2480                 my $page;
2481                 my $warning;
2482
2483                 my $page_found = 0;
2484                 my $move_count = 0;
2485                 my $warning_count = 0;
2486
2487                 tie(%moved_list, 'Tie::IxHash');
2488                 tie(%warning_list, 'Tie::IxHash');
2489
2490                 # Get information about the database that the selected pages are moving from.
2491
2492                 my %olddatabase_info = $kiriwrite_dbmodule->getdatabaseinfo();
2493
2494                 # Check if any errors had occured while getting the database
2495                 # information.
2496
2497                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2498
2499                         # A database error has occured so return an error and
2500                         # also the extended error information.
2501
2502                         kiriwrite_error("oldmovedatabasedatabaseerror", $kiriwrite_dbmodule->geterror(1));
2503
2504                 };
2505
2506                 $olddatabase_name = $olddatabase_info{"DatabaseName"};
2507
2508                 # Get information about the database that the selected pages are moving to.
2509
2510                 my %newdatabase_info = $kiriwrite_dbmodule->getseconddatabaseinfo();
2511
2512                 # Check if any errors had occured while getting the database
2513                 # information.
2514
2515                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2516
2517                         # A database error has occured so return an error and
2518                         # also the extended error information.
2519
2520                         kiriwrite_error("newmovedatabasedatabaseerror", $kiriwrite_dbmodule->geterror(1));
2521
2522                 };
2523
2524                 $newdatabase_name = $newdatabase_info{"DatabaseName"};
2525
2526                 # Get each file in the old database, get the page values,
2527                 # put them into the new database and delete the pages
2528                 # from the old database.
2529
2530                 foreach $filename (@filelist){
2531
2532                         # Get the page information.
2533
2534                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filename });
2535
2536                         # Check if any errors occured.
2537
2538                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2539
2540                                 # A database error has occured so write a warning message and
2541                                 # also the extended error information.
2542
2543                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
2544                                 $warning_count++;
2545                                 next;
2546
2547                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2548
2549                                 # The page does not exist, so process the next page.
2550
2551                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{pagedoesnotexist}, $filename);
2552                                 $warning_count++;
2553                                 next;
2554
2555                         }
2556
2557                         # Move the selected page.
2558
2559                         $kiriwrite_dbmodule->movepage({ PageFilename => $filename });
2560
2561                         # Check if any errors occured while moving the page.
2562
2563                         if ($kiriwrite_dbmodule->geterror eq "OldDatabaseError"){
2564
2565                                 # A database error has occured while moving the pages from
2566                                 # the old database, so write a warning message.
2567
2568                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasemovefrompageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
2569                                 $warning_count++;
2570                                 next;
2571
2572                         } elsif ($kiriwrite_dbmodule->geterror eq "NewDatabaseError"){
2573
2574                                 # A database error has occured while moving the pages to
2575                                 # the new database, so write a warning message.
2576
2577                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasemovetopageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
2578                                 $warning_count++;
2579                                 next;
2580
2581                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2582
2583                                 # The page with the filename given in the database that
2584                                 # the page is to be moved from doesn't exist so write
2585                                 # a warning message.
2586
2587                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasemovefrompagenotexist}, $filename);
2588                                 $warning_count++;
2589                                 next;
2590
2591                         } elsif ($kiriwrite_dbmodule->geterror eq "PageAlreadyExists"){
2592
2593                                 # The page with the filename given in the database that
2594                                 # the page is to be moved to already exists so write a
2595                                 # warning message.
2596
2597                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasemovetopageexists}, $filename);
2598                                 $warning_count++;
2599                                 next;
2600
2601                         }
2602
2603                         $moved_list{$move_count}{Filename}      = $page_info{"PageFilename"};
2604                         $moved_list{$move_count}{Name}          = $page_info{"PageName"};
2605
2606                         $move_count++;
2607
2608                 }
2609
2610                 # Disconnect from the database server.
2611
2612                 $kiriwrite_dbmodule->disconnect();
2613
2614                 # Write out a message saying that the pages were moved (if any)
2615                 # to the new database (and any warnings given).
2616
2617                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{movepages}, { Style => "pageheader" });
2618                 $kiriwrite_presmodule->addlinebreak();
2619                 $kiriwrite_presmodule->addlinebreak();
2620
2621                 if (%moved_list){
2622
2623                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{movedpagesmessage}, $olddatabase_name, $newdatabase_name));
2624                         $kiriwrite_presmodule->addlinebreak();
2625                         $kiriwrite_presmodule->addlinebreak();
2626
2627                         $kiriwrite_presmodule->startbox("datalist");
2628                         foreach $page (keys %moved_list){
2629                                 if (!$moved_list{$page}{Name}){
2630                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
2631                                         $kiriwrite_presmodule->addtext(" (" . $moved_list{$page}{Filename} . ")");
2632                                 } else {
2633                                         $kiriwrite_presmodule->addtext($moved_list{$page}{Name} . " (" . $moved_list{$page}{Filename} . ")");
2634                                 }
2635
2636                                 $kiriwrite_presmodule->addlinebreak();
2637                         }
2638                         $kiriwrite_presmodule->endbox();
2639
2640                 } else {
2641
2642                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{nopagesmoved}, $olddatabase_name, $newdatabase_name));
2643                         $kiriwrite_presmodule->addlinebreak();
2644                         $kiriwrite_presmodule->addlinebreak();
2645
2646                 }
2647
2648                 if (%warning_list){
2649
2650                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{errormessages});
2651                         $kiriwrite_presmodule->addlinebreak();
2652                         $kiriwrite_presmodule->addlinebreak();
2653                         $kiriwrite_presmodule->startbox("datalist");
2654                         foreach $warning (keys %warning_list){
2655                                 $kiriwrite_presmodule->addtext($warning_list{$warning}{Message});
2656                                 $kiriwrite_presmodule->addlinebreak();
2657                         }
2658                         $kiriwrite_presmodule->endbox();
2659
2660                 }
2661
2662                 $kiriwrite_presmodule->addlinebreak();
2663                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $olddatabase_name)});
2664                 $kiriwrite_presmodule->addtext(" | ");
2665                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $newdatabase, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{viewpagelist}, $newdatabase_name)});
2666
2667                 return $kiriwrite_presmodule->grab();
2668
2669         } elsif ($confirm eq 0) {
2670
2671                 # The action to move several pages from one database
2672                 # to another has not been confirmed so write a form.
2673
2674                 # Connect to the database server.
2675
2676                 $kiriwrite_dbmodule->connect();
2677
2678                 # Check if any errors occured while connecting to the database server.
2679
2680                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
2681
2682                         # A database connection error has occured so return
2683                         # an error.
2684
2685                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
2686
2687                 }
2688
2689                 # Select the database.
2690
2691                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
2692
2693                 # Check if any errors occured while selecting the database.
2694
2695                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
2696
2697                         # The database does not exist, so return an error.
2698
2699                         kiriwrite_error("databasemissingfile");
2700
2701                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
2702
2703                         # The database has invalid permissions set, so return
2704                         # an error.
2705
2706                         kiriwrite_error("databaseinvalidpermissions");
2707
2708                 }
2709
2710                 # Check if the database has read and write permissions.
2711
2712                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
2713
2714                 if ($database_permissions eq 1){
2715
2716                         # The database permissions are invalid so return an error.
2717
2718                         kiriwrite_error("databaseinvalidpermissions");
2719
2720                 }
2721
2722                 # Get information about the database.
2723
2724                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
2725
2726                 # Check if any errors had occured while getting the database
2727                 # information.
2728
2729                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2730
2731                         # A database error has occured so return an error and
2732                         # also the extended error information.
2733
2734                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2735
2736                 };
2737
2738                 my $database_name       = $database_info{"DatabaseName"};
2739
2740                 # Define some values for later.
2741
2742                 my %db_list;
2743                 my %move_list;
2744                 my %page_info;
2745                 my $page;
2746                 my $data_file;
2747                 my $db_name;
2748                 my $filename;
2749                 my $filelist_filename;
2750                 my $pagename;
2751                 my $pageseek    = 0;
2752                 my $dbseek      = 0;
2753
2754                 # Process each filename given.
2755
2756                 tie (%move_list, 'Tie::IxHash');
2757                 tie (%db_list, 'Tie::IxHash');
2758
2759                 foreach $filelist_filename (@filelist){
2760
2761                         # Get the page information.
2762
2763                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filelist_filename });
2764
2765                         # Check if any errors occured.
2766
2767                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2768
2769                                 # A database error has occured so return an error and
2770                                 # also the extended error information.
2771
2772                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2773
2774                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2775
2776                                 # The page does not exist, so process the next page.
2777
2778                                 next;
2779
2780                         }
2781
2782                         # Add the page name and file name to the list of
2783                         # pages to move.
2784
2785                         $move_list{$pageseek}{Filename} = $page_info{"PageFilename"};
2786                         $move_list{$pageseek}{Name}     = $page_info{"PageName"};
2787
2788                         # Increment the page seek counter and reset the
2789                         # page found value.
2790
2791                         $pageseek++;
2792
2793                 }
2794
2795                 # Check if any pages exust and return an error if
2796                 # there wasn't.
2797
2798                 if ($pageseek eq 0){
2799
2800                         # None of the selected pages exist, so return
2801                         # an error.
2802
2803                         kiriwrite_error("nopagesselected");
2804
2805                 }
2806
2807                 # Get the list of databases.
2808
2809                 my @database_list       = $kiriwrite_dbmodule->getdblist();
2810
2811                 # Check if any errors occured while trying to get the list of databases.
2812
2813                 if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
2814
2815                         # The database directory is missing so return an error.
2816
2817                         kiriwrite_error("datadirectorymissing");
2818
2819                 } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
2820
2821                         # The database directory has invalid permissions set so return
2822                         # an error.
2823
2824                         kiriwrite_error("datadirectoryinvalidpermissions");
2825
2826                 }
2827
2828                 # Get the information about each database (the short name and friendly name).
2829
2830                 foreach $data_file (@database_list){
2831
2832                         $kiriwrite_dbmodule->selectdb({ DatabaseName => $data_file });
2833
2834                         # Check if any errors occured while selecting the database.
2835
2836                         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
2837
2838                                 # The database does not exist, so process the next
2839                                 # database.
2840
2841                                 next;
2842
2843                         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
2844
2845                                 # The database has invalid permissions set, so process
2846                                 # the next database.
2847
2848                                 next;
2849
2850                         }
2851
2852                         # Get the database information.
2853
2854                         %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
2855
2856                         # Check if any errors had occured while getting the database
2857                         # information.
2858
2859                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2860
2861                                 # A database error has occured so process the next
2862                                 # database.
2863
2864                                 next;
2865
2866                         };
2867
2868                         # Check if the database name is undefined and if it is
2869                         # then set it blank.
2870
2871                         if (!$database_name){
2872                                 $database_name = "";
2873                         }
2874
2875                         # Append the database to the list of databases available.
2876
2877                         $db_list{$dbseek}{Filename}     = $data_file;
2878                         $db_list{$dbseek}{Name}         = $database_info{"DatabaseName"};
2879
2880                         $dbseek++;
2881
2882                 }
2883
2884                 # Disconnect from the database server.
2885
2886                 $kiriwrite_dbmodule->disconnect();
2887
2888                 # Write out the form.
2889
2890                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{movepages}, { Style => "pageheader" });
2891                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
2892                 $kiriwrite_presmodule->addhiddendata("mode", "page");
2893                 $kiriwrite_presmodule->addhiddendata("action", "multimove");
2894                 $kiriwrite_presmodule->addhiddendata("database", $database);
2895                 $kiriwrite_presmodule->addhiddendata("count", $pageseek);
2896                 $kiriwrite_presmodule->addhiddendata("confirm", "1");
2897
2898                 # Write the page form data.
2899
2900                 $pageseek = 1;
2901
2902                 foreach $page (keys %move_list){
2903                         $kiriwrite_presmodule->addhiddendata("name[" . $pageseek . "]", "on");
2904                         $kiriwrite_presmodule->addhiddendata("id[" . $pageseek . "]", $move_list{$page}{Filename});
2905                         $pageseek++;
2906                 }
2907
2908                 $kiriwrite_presmodule->addlinebreak();
2909                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{movepagesmessage}, $database_name));
2910                 $kiriwrite_presmodule->addlinebreak();
2911                 $kiriwrite_presmodule->addlinebreak();
2912                 $kiriwrite_presmodule->startbox("datalist");
2913
2914                 foreach $page (keys %move_list){
2915                         if (!$move_list{$page}{Name}){
2916                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
2917                                 $kiriwrite_presmodule->addtext(" (" . $move_list{$page}{Filename} . ")");
2918                         } else {
2919                                 $kiriwrite_presmodule->addtext($move_list{$page}{Name} . " (" . $move_list{$page}{Filename} . ")");
2920                         }
2921                         $kiriwrite_presmodule->addlinebreak();
2922                 }
2923
2924                 $kiriwrite_presmodule->endbox();
2925                 $kiriwrite_presmodule->addlinebreak();
2926                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{movepagesto});
2927
2928                 $kiriwrite_presmodule->addselectbox("newdatabase");
2929
2930                 foreach $db_name (keys %db_list){
2931                         $kiriwrite_presmodule->addoption($db_list{$db_name}{Name} . " (" . $db_list{$db_name}{Filename} . ")", { Value => $db_list{$db_name}{Filename}});
2932                 }
2933
2934                 $kiriwrite_presmodule->endselectbox();
2935                 $kiriwrite_presmodule->addlinebreak();
2936                 $kiriwrite_presmodule->addlinebreak();
2937                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{movepagesbutton});
2938                 $kiriwrite_presmodule->addtext(" | ");
2939                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name)});
2940                 $kiriwrite_presmodule->endform();
2941
2942                 return $kiriwrite_presmodule->grab();
2943
2944         } else {
2945
2946                 # The confirm value is other than 0 or 1, so return
2947                 # an error.
2948
2949                 kiriwrite_error("invalidvariable");
2950
2951         }
2952
2953
2954 }
2955
2956
2957 sub kiriwrite_page_multicopy{
2958 #################################################################################
2959 # kiriwrite_page_multicopy: Copy several pages from one database to another     #
2960 # database.                                                                     #
2961 #                                                                               #
2962 # Usage:                                                                        #
2963 #                                                                               #
2964 # kiriwrite_page_multicopy(database, newdatabase, confirm, filelist);           #
2965 #                                                                               #
2966 # database      Specifies the database to copy the selected pages from.         #
2967 # newdatabase   Specifies the database to copy the selected page to.            #
2968 # confirm       Confirms the action to copy the pages.                          #
2969 # filelist      A list of filenames to copy in an array.                        #
2970 #################################################################################
2971
2972         # Get the values that were passed to the subroutine.
2973
2974         my ($database, $newdatabase, $confirm, @filelist) = @_;
2975
2976         # Check if the file list is blank and return an error
2977         # if it is.
2978
2979         if (!@filelist){
2980
2981                 # The file list really is blank so return
2982                 # an error.
2983
2984                 kiriwrite_error("nopagesselected");
2985
2986         }
2987
2988         # Check if the confirm value is blank and if it is then
2989         # set the confirm value to 0.
2990
2991         if (!$confirm){
2992
2993                 $confirm = 0;
2994
2995         }
2996
2997         # Check if the database filename is valid and return an error if
2998         # it isn't.
2999
3000         my $pagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
3001
3002         if ($pagedatabase_filename_check eq 1){
3003
3004                 # The database filename is blank, so return an error.
3005
3006                 kiriwrite_error("blankdatabasepageadd");
3007
3008         } elsif ($pagedatabase_filename_check eq 2){
3009
3010                 # The database filename is invalid, so return an error.
3011
3012                 kiriwrite_error("databasefilenameinvalid");
3013
3014         }
3015
3016         if ($confirm eq 1){
3017
3018                 # The action to copy several pages from one database
3019                 # to another has been confirmed.
3020
3021                 # Check if the database that the pages are copied from
3022                 # is the same as the database the pages are copied to.
3023                 # Return an error if it is.
3024
3025                 if ($database eq $newdatabase){
3026
3027                         # The database that the pages are being copied from
3028                         # and the database that the pages are copied to
3029                         # is the same, so return an error.
3030
3031                         kiriwrite_error("databasecopysame");
3032
3033                 }
3034
3035                 # Check if the new database filename is valid and return an error if
3036                 # it isn't.
3037
3038                 my $pagedatabase_filename_check = kiriwrite_variablecheck($newdatabase, "filename", 0, 1);
3039
3040                 if ($pagedatabase_filename_check eq 1){
3041
3042                         # The database filename is blank, so return an error.
3043
3044                         kiriwrite_error("blankdatabasepageadd");
3045
3046                 } elsif ($pagedatabase_filename_check eq 2){
3047
3048                         # The database filename is invalid, so return an error.
3049
3050                         kiriwrite_error("databasefilenameinvalid");
3051
3052                 }
3053
3054                 # Connect to the database server.
3055
3056                 $kiriwrite_dbmodule->connect();
3057
3058                 # Check if any errors occured while connecting to the database server.
3059
3060                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
3061
3062                         # A database connection error has occured so return
3063                         # an error.
3064
3065                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
3066
3067                 }
3068
3069                 # Select the database the pages are going to be copied from.
3070
3071                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
3072
3073                 # Check if any errors had occured while selecting the database.
3074
3075                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
3076
3077                         # The database does not exist, so return an error.
3078
3079                         kiriwrite_error("oldcopydatabasedoesnotexist");
3080
3081                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
3082
3083                         # The database has invalid permissions set, so return
3084                         # an error.
3085
3086                         kiriwrite_error("oldcopydatabasefileinvalidpermissions");
3087
3088                 }
3089
3090                 # Select the database the pages are going to be copied to.
3091
3092                 $kiriwrite_dbmodule->selectseconddb({ DatabaseName => $newdatabase });
3093
3094                 # Check if any errors had occured while selecting the database.
3095
3096                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
3097
3098                         # The database does not exist, so return an error.
3099
3100                         kiriwrite_error("newcopydatabasedoesnotexist");
3101
3102                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
3103
3104                         # The database has invalid permissions set, so return
3105                         # an error.
3106
3107                         kiriwrite_error("newcopydatabasefileinvalidpermissions");
3108
3109                 }
3110
3111                 # Check if the database has read and write permissions.
3112
3113                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($newdatabase, 1, 1);
3114
3115                 if ($database_permissions eq 1){
3116
3117                         # The database permissions are invalid so return an error.
3118
3119                         kiriwrite_error("databaseinvalidpermissions");
3120
3121                 }
3122
3123                 # Define some values for later.
3124
3125                 my %copied_list;
3126                 my %warning_list;
3127                 my %page_info;
3128
3129                 my @olddatabase_info;
3130                 my @olddatabase_page;
3131                 my @newdatabase_info;
3132                 my @newdatabase_page;
3133
3134                 my $filename;
3135                 my $filename_sql;
3136                 my $filename_out;
3137
3138                 my $olddatabase_database_handle;
3139                 my $olddatabase_string_handle;
3140                 my $olddatabase_name;
3141                 my $newdatabase_database_handle;
3142                 my $newdatabase_string_handle;
3143                 my $newdatabase_name;
3144
3145                 my $page;
3146                 my $warning;
3147                 my $page_filename;
3148                 my $page_filename_sql;
3149                 my $page_name;
3150                 my $page_name_sql;
3151                 my $page_description;
3152                 my $page_description_sql;
3153                 my $page_section;
3154                 my $page_section_sql;
3155                 my $page_template;
3156                 my $page_template_sql;
3157                 my $page_data;
3158                 my $page_data_sql;
3159                 my $page_settings;
3160                 my $page_settings_sql;
3161                 my $page_lastmodified;
3162                 my $page_lastmodified_sql;
3163
3164                 my $page_seek = 0;
3165                 my $warning_count = 0;
3166
3167                 my $page_found = 0;
3168
3169                 tie(%copied_list, 'Tie::IxHash');
3170                 tie(%warning_list, 'Tie::IxHash');
3171
3172                 # Get information about the database that the selected pages are moving from.
3173
3174                 my %olddatabase_info = $kiriwrite_dbmodule->getdatabaseinfo();
3175
3176                 # Check if any errors had occured while getting the database
3177                 # information.
3178
3179                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3180
3181                         # A database error has occured so return an error and
3182                         # also the extended error information.
3183
3184                         kiriwrite_error("oldcopydatabasedatabaseerror", $kiriwrite_dbmodule->geterror(1));
3185
3186                 };
3187
3188                 $olddatabase_name = $olddatabase_info{"DatabaseName"};
3189
3190                 # Get information about the database that the selected pages are moving to.
3191
3192                 my %newdatabase_info = $kiriwrite_dbmodule->getseconddatabaseinfo();
3193
3194                 # Check if any errors had occured while getting the database
3195                 # information.
3196
3197                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3198
3199                         # A database error has occured so return an error and
3200                         # also the extended error information.
3201
3202                         kiriwrite_error("newcopydatabasedatabaseerror", $kiriwrite_dbmodule->geterror(1));
3203
3204                 };
3205
3206                 $newdatabase_name = $newdatabase_info{"DatabaseName"};
3207
3208                 # Check if the database filename is valid and return an error if
3209                 # it isn't.
3210
3211                 my $newpagedatabase_filename_check = kiriwrite_variablecheck($newdatabase, "filename", 0, 1);
3212
3213                 if ($newpagedatabase_filename_check eq 1){
3214
3215                         # The database filename is blank, so return an error.
3216
3217                         kiriwrite_error("blankdatabasepageadd");
3218
3219                 } elsif ($newpagedatabase_filename_check eq 2){
3220
3221                         # The database filename is invalid, so return an error.
3222
3223                         kiriwrite_error("databasefilenameinvalid");
3224
3225                 }
3226
3227                 foreach $filename (@filelist){
3228
3229                         # Get the page information.
3230
3231                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filename });
3232
3233                         # Check if any errors occured.
3234
3235                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3236
3237                                 # A database error has occured so return an error and
3238                                 # also the extended error information.
3239
3240                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
3241                                 $warning_count++;
3242                                 next;
3243
3244                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
3245
3246                                 # The page does not exist, so process the next page.
3247
3248                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasecopyfrompageerror}, $filename);
3249                                 $warning_count++;
3250                                 next;
3251
3252                         }
3253
3254                         $kiriwrite_dbmodule->copypage({ PageFilename => $filename });
3255
3256                         # Check if any errors occured while copying the page.
3257
3258                         if ($kiriwrite_dbmodule->geterror eq "OldDatabaseError"){
3259
3260                                 # A database error has occured while copying the pages from
3261                                 # the old database, so write a warning message.
3262
3263                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasecopyfromdatabaseerror}, $filename,  $kiriwrite_dbmodule->geterror(1));
3264                                 $warning_count++;
3265                                 next;
3266
3267                         } elsif ($kiriwrite_dbmodule->geterror eq "NewDatabaseError"){
3268
3269                                 # A database error has occured while copying the pages to
3270                                 # the new database, so write a warning message.
3271
3272                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasecopytodatabaseerror}, $filename, $kiriwrite_dbmodule->geterror(1));
3273                                 $warning_count++;
3274                                 next;
3275
3276                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
3277
3278                                 # The page with the filename given in the database that
3279                                 # the page is to be copied from doesn't exist so write
3280                                 # a warning message.
3281
3282                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasecopyfrompagenotexist}, $filename);
3283                                 $warning_count++;
3284                                 next;
3285
3286                         } elsif ($kiriwrite_dbmodule->geterror eq "PageAlreadyExists"){
3287
3288                                 # The page with the filename given in the database that
3289                                 # the page is to be copied to already exists so write a
3290                                 # warning message.
3291
3292                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasecopytopageexists}, $filename);
3293                                 $warning_count++;
3294                                 next;
3295
3296                         }
3297
3298                         # Append the copied page (filename and name) to the list of
3299                         # copied pages.
3300
3301                         $copied_list{$page_seek}{Filename}      = $filename;
3302                         $copied_list{$page_seek}{Name}          = $page_info{"PageName"};
3303                         $page_seek++;
3304
3305                 }
3306
3307                 # Disconnect from the database server.
3308
3309                 $kiriwrite_dbmodule->disconnect();
3310
3311                 # Write out a message saying that the pages were moved (if any)
3312                 # to the new database (and any warnings given).
3313
3314                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{copypages}, { Style => "pageheader" });
3315                 $kiriwrite_presmodule->addlinebreak();
3316                 $kiriwrite_presmodule->addlinebreak();
3317
3318                 if (%copied_list){
3319
3320                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{copypagesresultmessage}, $olddatabase_name, $newdatabase_name));
3321                         $kiriwrite_presmodule->addlinebreak();
3322                         $kiriwrite_presmodule->addlinebreak();
3323                         $kiriwrite_presmodule->startbox("datalist");
3324                         foreach $page (keys %copied_list){
3325                                 if (!$copied_list{$page}{Name}){
3326                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
3327                                         $kiriwrite_presmodule->addtext(" (" . $copied_list{$page}{Filename} . ")");
3328                                 } else {
3329                                         $kiriwrite_presmodule->addtext($copied_list{$page}{Name} . " (" . $copied_list{$page}{Filename} . ")");
3330                                 }
3331                                 $kiriwrite_presmodule->addlinebreak();
3332                         }
3333                         $kiriwrite_presmodule->endbox();
3334
3335                 } else {
3336
3337                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{nopagescopied}, $olddatabase_name, $newdatabase_name));
3338
3339                 }
3340
3341                 if (%warning_list){
3342
3343                         $kiriwrite_presmodule->addlinebreak();
3344                         $kiriwrite_presmodule->addlinebreak();
3345                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{copypageswarnings});
3346                         $kiriwrite_presmodule->addlinebreak();
3347                         $kiriwrite_presmodule->addlinebreak();
3348                         $kiriwrite_presmodule->startbox("datalist");
3349                         foreach $warning (keys %warning_list){
3350                                 $kiriwrite_presmodule->addtext($warning_list{$warning}{Message});
3351                                                         $kiriwrite_presmodule->addlinebreak();
3352                         }
3353                         $kiriwrite_presmodule->endbox();
3354
3355                 }
3356
3357                 $kiriwrite_presmodule->addlinebreak();
3358                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $olddatabase_name)});
3359                 $kiriwrite_presmodule->addtext(" | ");
3360                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $newdatabase, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{viewpagelist}, $newdatabase_name)});
3361                 $kiriwrite_presmodule->endform();
3362
3363                 return $kiriwrite_presmodule->grab();
3364
3365         } elsif ($confirm eq 0) {
3366
3367                 # The action to copy several pages from one database
3368                 # to another has not been confirmed so write a form.
3369
3370                 # Connect to the database server.
3371
3372                 $kiriwrite_dbmodule->connect();
3373
3374                 # Check if any errors occured while connecting to the database server.
3375
3376                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
3377
3378                         # A database connection error has occured so return
3379                         # an error.
3380
3381                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
3382
3383                 }
3384
3385                 # Select the database to copy the pages from.
3386
3387                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
3388
3389                 # Check if any errors occured while selecting the database.
3390
3391                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
3392
3393                         # The database does not exist, so return an error.
3394
3395                         kiriwrite_error("databasemissingfile");
3396
3397                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
3398
3399                         # The database has invalid permissions set, so return
3400                         # an error.
3401
3402                         kiriwrite_error("databaseinvalidpermissions");
3403
3404                 }
3405
3406                 # Get information about the database.
3407
3408                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
3409
3410                 # Check if any errors had occured while getting the database
3411                 # information.
3412
3413                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3414
3415                         # A database error has occured so return an error and
3416                         # also the extended error information.
3417
3418                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
3419
3420                 };
3421
3422                 my $database_name       = $database_info{"DatabaseName"};
3423
3424                 # Define some values for later.
3425
3426                 my %page_info;
3427                 my %copy_list;
3428                 my %db_list;
3429                 my @page_info;
3430                 my $page;
3431                 my $data_file;
3432                 my $dbname;
3433                 my $filename;
3434                 my $pageseek    = 0;
3435                 my $dbseek      = 0;
3436                 my $pagefound   = 0;
3437
3438                 tie(%copy_list, 'Tie::IxHash');
3439                 tie(%db_list, 'Tie::IxHash');
3440
3441                 # Process each filename given.
3442
3443                 foreach $filename (@filelist){
3444
3445                         # Get the page information.
3446
3447                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filename });
3448
3449                         # Check if any errors occured.
3450
3451                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3452
3453                                 # A database error has occured so return an error and
3454                                 # also the extended error information.
3455
3456                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
3457
3458                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
3459
3460                                 # The page does not exist, so process the next page.
3461
3462                                 next;
3463
3464                         }
3465
3466                         # Add the page name and file name to the list of
3467                         # pages to move.
3468
3469                         $copy_list{$pageseek}{Filename} = $page_info{"PageFilename"};
3470                         $copy_list{$pageseek}{Name}     = $page_info{"PageName"};
3471
3472                         # Increment the page seek counter.
3473
3474                         $pageseek++;
3475
3476                 }
3477
3478                 # Check if any pages exust and return an error if
3479                 # there wasn't.
3480
3481                 if ($pageseek eq 0){
3482
3483                         # None of the selected pages exist, so return
3484                         # an error.
3485
3486                         kiriwrite_error("nopagesselected");
3487
3488                 }
3489
3490                 # Get the database filenames and names.
3491
3492                 my @database_list       = $kiriwrite_dbmodule->getdblist();
3493
3494                 # Check if any errors occured while trying to get the list of databases.
3495
3496                 if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
3497
3498                         # The database directory is missing so return an error.
3499
3500                         kiriwrite_error("datadirectorymissing");
3501
3502                 } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
3503
3504                         # The database directory has invalid permissions set so return
3505                         # an error.
3506
3507                         kiriwrite_error("datadirectoryinvalidpermissions");
3508
3509                 }
3510
3511                 # Process each database to get the database name.
3512
3513                 foreach $data_file (@database_list){
3514
3515                         $kiriwrite_dbmodule->selectdb({ DatabaseName => $data_file });
3516
3517                         # Check if any errors occured while selecting the database.
3518
3519                         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
3520
3521                                 # The database does not exist, so process the next
3522                                 # database.
3523
3524                                 next;
3525
3526                         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
3527
3528                                 # The database has invalid permissions set, so process
3529                                 # the next database.
3530
3531                                 next;
3532
3533                         }
3534
3535                         # Get the database information.
3536
3537                         %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
3538
3539                         # Check if any errors had occured while getting the database
3540                         # information.
3541
3542                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3543
3544                                 # A database error has occured so process the next
3545                                 # database.
3546
3547                                 next;
3548
3549                         };
3550
3551                         # Check if the database name is undefined and if it is
3552                         # then set it blank.
3553
3554                         if (!$database_name){
3555                                 $database_name = "";
3556                         }
3557
3558                         # Append the database filename and name to the list of databases
3559                         # to move the pages to.
3560
3561                         $db_list{$dbseek}{Filename}     = $data_file;
3562                         $db_list{$dbseek}{Name}         = $database_info{"DatabaseName"};
3563
3564                         $dbseek++;
3565
3566                 }
3567
3568                 # Disconnect from the database server.
3569
3570                 $kiriwrite_dbmodule->disconnect();
3571
3572                 # Write out the form.
3573
3574                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{copypages}, { Style => "pageheader" });
3575                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
3576                 $kiriwrite_presmodule->addhiddendata("mode", "page");
3577                 $kiriwrite_presmodule->addhiddendata("action", "multicopy");
3578                 $kiriwrite_presmodule->addhiddendata("database", $database);
3579                 $kiriwrite_presmodule->addhiddendata("count", $pageseek);
3580                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
3581
3582                 $pageseek = 1;
3583
3584                 foreach $page (keys %copy_list){
3585                         $kiriwrite_presmodule->addhiddendata("name[" . $pageseek . "]", "on");
3586                         $kiriwrite_presmodule->addhiddendata("id[" . $pageseek . "]", $copy_list{$page}{Filename});
3587                         $pageseek++;
3588                 }
3589
3590                 $kiriwrite_presmodule->addlinebreak();
3591                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{copypagesmessage}, $database_name));
3592
3593                 $kiriwrite_presmodule->addlinebreak();
3594                 $kiriwrite_presmodule->addlinebreak();
3595
3596                 $kiriwrite_presmodule->startbox("datalist");
3597
3598                 foreach $page (keys %copy_list){
3599                         if (!$copy_list{$page}{Name}){
3600                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
3601                                 $kiriwrite_presmodule->addtext(" (" . $copy_list{$page}{Filename} . ")");
3602                         } else {
3603                                 $kiriwrite_presmodule->addtext($copy_list{$page}{Name} . " (" . $copy_list{$page}{Filename} . ")");
3604                         }
3605                         $kiriwrite_presmodule->addlinebreak();
3606                 }
3607
3608                 $kiriwrite_presmodule->endbox();
3609
3610                 $kiriwrite_presmodule->addlinebreak();
3611
3612                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{copypagesto});
3613                 $kiriwrite_presmodule->addselectbox("newdatabase");
3614
3615                 foreach $dbname (keys %db_list){
3616                         $kiriwrite_presmodule->addoption($db_list{$dbname}{Name} . " (" . $db_list{$dbname}{Filename} . ")", { Value => $db_list{$dbname}{Filename}});
3617                 }
3618
3619                 $kiriwrite_presmodule->endselectbox();
3620
3621                 $kiriwrite_presmodule->addlinebreak();
3622                 $kiriwrite_presmodule->addlinebreak();
3623                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{copypagesbutton});
3624                 $kiriwrite_presmodule->addtext(" | ");
3625                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
3626                 $kiriwrite_presmodule->endform();
3627
3628                 return $kiriwrite_presmodule->grab();
3629
3630         } else {
3631
3632                 # The confirm value is other than 0 or 1, so return
3633                 # an error.
3634
3635                 kiriwrite_error("invalidvariable");
3636
3637         }
3638
3639 }
3640
3641 sub kiriwrite_page_multiedit{
3642 #################################################################################
3643 # kiriwrite_page_multiedit: Edit several pages from a database.                 #
3644 #                                                                               #
3645 # Usage:                                                                        #
3646 #                                                                               #
3647 # kiriwrite_page_multiedit(database, newsection, altersection, newtemplate,     #
3648 #                               altertemplate, newsettings, altersettings       #
3649 #                               confirm, filelist);                             #
3650 #                                                                               #
3651 # database      Specifies the database to edit the pages from.                  #
3652 # newsection    Specifies the new section name to use on the selected pages.    #
3653 # altersection  Specifies if the section name should be altered.                #
3654 # newtemplate   Specifies the new template filename to use on the selected      #
3655 #               pages.                                                          #
3656 # altertemplate Specifies if the template filename should be altered.           #
3657 # newsettings   Specifies the new settings to use on the selected pages.        #
3658 # altersettings Specifies if the settings should be altered.                    #
3659 # confirm       Confirms the action to edit the selected pages.                 #
3660 # filelist      The list of file names to edit.                                 #
3661 #################################################################################
3662
3663         # Get the values that were passed to the subroutine.
3664
3665         my ($database, $newsection, $altersection, $newtemplate, $altertemplate, $newsettings, $altersettings, $confirm, @filelist) = @_;
3666
3667         # Check if the file list is blank and return an error
3668         # if it is.
3669
3670         if (!@filelist){
3671
3672                 # The file list really is blank so return
3673                 # an error.
3674
3675                 kiriwrite_error("nopagesselected");
3676
3677         }
3678
3679         # Check if certain values are undefined and define them if
3680         # they are.
3681
3682         if (!$altersection){
3683
3684                 # The alter section value is blank, so set it to
3685                 # off.
3686
3687                 $altersection   = "off";
3688
3689         }
3690
3691         if (!$altertemplate){
3692
3693                 # The alter template value is blank, so set it to
3694                 # off.
3695
3696                 $altertemplate  = "off";
3697
3698         }
3699
3700         if (!$altersettings){
3701
3702                 # The alter settings value is blank, so set it to
3703                 # off.
3704
3705                 $altersettings  = "off";
3706
3707         }
3708
3709         # Check if the database filename is valid and return an error if
3710         # it isn't.
3711
3712         my $pagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
3713
3714         if ($pagedatabase_filename_check eq 1){
3715
3716                 # The database filename is blank, so return an error.
3717
3718                 kiriwrite_error("blankdatabasepageadd");
3719
3720         } elsif ($pagedatabase_filename_check eq 2){
3721
3722                 # The database filename is invalid, so return an error.
3723
3724                 kiriwrite_error("databasefilenameinvalid");
3725
3726         }
3727
3728         # Check if the confirm value is blank and if it is then
3729         # set the confirm value to 0.
3730
3731         if (!$confirm){
3732
3733                 $confirm = 0;
3734
3735         }
3736
3737         if ($confirm eq 1){
3738
3739                 # The action to edit the template has been confirmed so
3740                 # edit the selected pages.
3741
3742                 # Check the values recieved at UTF8 compliant before
3743                 # converting.
3744
3745                 kiriwrite_variablecheck($newsection, "utf8", 0, 0);
3746                 kiriwrite_variablecheck($newtemplate, "utf8", 0, 0);
3747                 kiriwrite_variablecheck($newsettings, "utf8", 0, 0);
3748
3749                 # Convert the values into proper UTF8 values.
3750
3751                 $newsection     = kiriwrite_utf8convert($newsection);
3752                 $newtemplate    = kiriwrite_utf8convert($newtemplate);
3753                 $newsettings    = kiriwrite_utf8convert($newsettings);
3754
3755                 # Check the length of the variables.
3756
3757                 kiriwrite_variablecheck($altersection, "maxlength", 3, 0);
3758                 kiriwrite_variablecheck($altertemplate, "maxlength", 3, 0);
3759                 kiriwrite_variablecheck($altersettings, "maxlength", 3, 0);
3760                 my $newsection_maxlength_check  = kiriwrite_variablecheck($newsection, "maxlength", 256, 1);
3761                 my $newtemplate_maxlength_check = kiriwrite_variablecheck($newtemplate, "maxlength", 256, 1);
3762                 my $newtemplate_filename_check  = kiriwrite_variablecheck($newtemplate, "filename", 0, 1);
3763                 my $newsettings_maxlength_check = kiriwrite_variablecheck($newsettings, "maxlength", 1, 1);
3764                 my $newsettings_settings_check  = kiriwrite_variablecheck($newsettings, "pagesetting", 0, 1);
3765
3766                 # Check the values and return an error if needed.
3767
3768                 if ($newsection_maxlength_check eq 1 && $altersection eq "on"){
3769
3770                         # The new section name is too long, so return an
3771                         # error.
3772
3773                         kiriwrite_error("pagesectiontoolong");
3774
3775                 }
3776
3777                 if ($newtemplate_maxlength_check eq 1 && $altertemplate eq "on"){
3778
3779                         # The new template name is too long, so return an
3780                         # error.
3781
3782                         kiriwrite_error("templatefilenametoolong");
3783
3784                 }
3785
3786                 # Check if the template filename is set to !skip or !none
3787                 # and skip this check if it is.
3788
3789                 if ($newtemplate eq "!skip" || $newtemplate eq "!none"){
3790
3791                         # Skip this check as the template filename is
3792                         # !skip or !none.
3793
3794                 } else {
3795                         if ($newtemplate_filename_check eq 1 && $altertemplate eq "on" || $newtemplate_filename_check eq 2 && $altertemplate eq "on"){
3796
3797                                 # The new template filename is invalid, so return
3798                                 # an error.
3799
3800                                 kiriwrite_error("templatefilenameinvalid");
3801
3802                         }
3803                 }
3804
3805                 if ($newsettings_maxlength_check eq 1 && $altertemplate eq "on"){
3806
3807                         # The new settings value is too long, so return
3808                         # an error.
3809
3810                         kiriwrite_error("pagesettingstoolong");
3811
3812                 }
3813
3814                 if ($newsettings_settings_check eq 1 && $altersettings eq "on"){
3815
3816                         # The new settings value is invalid, so return
3817                         # an error.
3818
3819                         kiriwrite_error("pagesettingsinvalid");
3820
3821                 }
3822
3823                 # Define some values for later.
3824
3825                 my %database_info;
3826                 my %edited_list;
3827                 my %warning_list;
3828                 my %page_info;
3829                 my $page;
3830                 my $warning;
3831                 my $filename;
3832                 my $page_name;
3833                 my $pagefound = 0;
3834                 my $pageedited = 0;
3835                 my $warning_count = 0;
3836
3837                 tie(%edited_list, 'Tie::IxHash');
3838                 tie(%warning_list, 'Tie::IxHash');
3839
3840                 # Check if the template filename is !skip and
3841                 # set the alter template value to off if it
3842                 # is.
3843
3844                 if ($newtemplate eq "!skip"){
3845
3846                         $altertemplate = "off";
3847
3848                 }
3849
3850                 # Check if all values are not selected and return
3851                 # an error if they are.
3852
3853                 if ($altersection ne "on" && $altertemplate ne "on" && $altersettings ne "on"){
3854
3855                         # All values are not selected so return
3856                         # an error.
3857
3858                         kiriwrite_error("noeditvaluesselected");
3859
3860                 }
3861
3862                 # Connect to the database server.
3863
3864                 $kiriwrite_dbmodule->connect();
3865
3866                 # Check if any errors occured while connecting to the database server.
3867
3868                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
3869
3870                         # A database connection error has occured so return
3871                         # an error.
3872
3873                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
3874
3875                 }
3876
3877                 # Select the database.
3878
3879                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
3880
3881                 # Check if any errors occured while selecting the database.
3882
3883                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
3884
3885                         # The database does not exist, so return an error.
3886
3887                         kiriwrite_error("databasemissingfile");
3888
3889                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
3890
3891                         # The database has invalid permissions set, so return
3892                         # an error.
3893
3894                         kiriwrite_error("databaseinvalidpermissions");
3895
3896                 }
3897
3898                 # Check if the database has read and write permissions.
3899
3900                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
3901
3902                 if ($database_permissions eq 1){
3903
3904                         # The database permissions are invalid so return an error.
3905
3906                         kiriwrite_error("databaseinvalidpermissions");
3907
3908                 }
3909
3910                 # Get information about the database.
3911
3912                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
3913
3914                 # Check if any errors had occured while getting the database
3915                 # information.
3916
3917                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3918
3919                         # A database error has occured so return an error and
3920                         # also the extended error information.
3921
3922                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
3923
3924                 };
3925
3926                 my $database_name = $database_info{"DatabaseName"};
3927
3928                 # Edit the selected pages.
3929
3930                 foreach $filename (@filelist){
3931
3932                         # Get the page information.
3933
3934                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filename });
3935
3936                         # Check if any errors occured.
3937
3938                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3939
3940                                 # A database error has occured so write a warning message.
3941
3942                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
3943
3944                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
3945
3946                                 # The page does not exist, so write a warning message.
3947
3948                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepagedoesnotexist}, $filename);
3949                                 $warning_count++;
3950                                 next;
3951
3952                         }
3953
3954                         # Check if the page section should be altered.
3955
3956                         if ($altersection eq "on"){
3957
3958                                 # Change the section name.
3959
3960                                 $page_info{"PageSection"} = $newsection;
3961
3962                         }
3963
3964                         # Check if the page template should be altered.
3965
3966                         if ($altertemplate eq "on"){
3967
3968                                 # Change the page template filename.
3969
3970                                 $page_info{"PageTemplate"} = $newtemplate;
3971
3972                         }
3973
3974                         # Check if the page settings should be altered.
3975
3976                         if ($altersettings eq "on"){
3977
3978                                 # Change the page settings value.
3979
3980                                 $page_info{"PageSettings"} = $newsettings;
3981
3982                         }
3983
3984                         # Edit the selected page.
3985
3986                         $kiriwrite_dbmodule->editpage({ PageFilename => $page_info{"PageFilename"}, PageNewFilename => $page_info{"PageFilename"}, PageNewName => $page_info{"PageName"}, PageNewDescription => $page_info{"PageDescription"}, PageNewSection => $page_info{"PageSection"}, PageNewTemplate => $page_info{"PageTemplate"}, PageNewContent => $page_info{"PageContent"}, PageNewSettings => $page_info{"PageSettings"} });
3987
3988                         # Check if any errors occured while editing the page.
3989
3990                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3991
3992                                 # A database error has occured so write a warning message
3993                                 # with the extended error information.
3994
3995                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
3996                                 $warning_count++;
3997                                 next;
3998
3999                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
4000
4001                                 # The pages does not exist in the database.
4002
4003                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepagedoesnotexist}, $filename);
4004                                 $warning_count++;
4005                                 next;
4006
4007                         }
4008
4009                         # The page has been edited so write a message saying that the page
4010                         # has been edited.
4011
4012                         $edited_list{$pageedited}{Filename}     = $page_info{"PageFilename"};
4013                         $edited_list{$pageedited}{Name}         = $page_info{"PageName"};
4014
4015                         # Increment the counter of edited pages.
4016
4017                         $pageedited++;
4018
4019                 }
4020
4021                 # Disconnect from the database server.
4022
4023                 $kiriwrite_dbmodule->disconnect();
4024
4025                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{multiedit}, { Style => "pageheader" });
4026                 $kiriwrite_presmodule->addlinebreak();
4027                 $kiriwrite_presmodule->addlinebreak();
4028
4029                 # Check if the counter of edited pages is 0 and if it is
4030                 # then write a message saying that no pages were edited
4031                 # else write a message listing all of the pages edited.
4032
4033                 if ($pageedited eq 0){
4034
4035                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{nopagesedited}, $database_name));
4036
4037                 } else {
4038
4039                         # Write out the message saying that the selected pages
4040                         # were edited.
4041
4042                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{pagesedited}, $database_name));
4043                         $kiriwrite_presmodule->addlinebreak();
4044                         $kiriwrite_presmodule->addlinebreak();
4045                         $kiriwrite_presmodule->startbox("datalist");
4046
4047                         foreach $page (keys %edited_list){
4048
4049                                 # Check if the page name is not blank.
4050
4051                                 if (!$edited_list{$page}{Name}){
4052
4053                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{pages}->{noname});
4054                                         $kiriwrite_presmodule->addtext(" (" . $edited_list{$page}{Filename} . ")");
4055
4056                                 } else {
4057
4058                                         $kiriwrite_presmodule->addtext($edited_list{$page}{Name});
4059                                         $kiriwrite_presmodule->addtext(" (" . $edited_list{$page}{Filename} . ")");
4060
4061                                 }
4062
4063                                 $kiriwrite_presmodule->addlinebreak();
4064                         }
4065
4066                         $kiriwrite_presmodule->endbox();
4067
4068                 }
4069
4070                 # Check if any warnings have occured and write a message
4071                 # if any warnings did occur.
4072
4073                 if (%warning_list){
4074
4075                         # One or several warnings have occured so
4076                         # write a message.
4077
4078                         $kiriwrite_presmodule->addlinebreak();
4079                         $kiriwrite_presmodule->addlinebreak();
4080                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{editedpageswarnings});
4081                         $kiriwrite_presmodule->addlinebreak();
4082                         $kiriwrite_presmodule->addlinebreak();
4083                         $kiriwrite_presmodule->startbox("datalist");
4084                         foreach $warning (keys %warning_list) {
4085                                 $kiriwrite_presmodule->addtext($warning_list{$warning}{Message});
4086                                 $kiriwrite_presmodule->addlinebreak();
4087                         }
4088                         $kiriwrite_presmodule->endbox();
4089
4090                 }
4091
4092                 # Write a link going back to the page list for
4093                 # the selected database.
4094
4095                 $kiriwrite_presmodule->addlinebreak();
4096                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
4097
4098                 return $kiriwrite_presmodule->grab();
4099
4100         } elsif ($confirm eq 0){
4101
4102                 # The action to edit the template has not been confirmed
4103                 # so write a form out instead.
4104
4105                 # Connect to the database server.
4106
4107                 $kiriwrite_dbmodule->connect();
4108
4109                 # Check if any errors occured while connecting to the database server.
4110
4111                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
4112
4113                         # A database connection error has occured so return
4114                         # an error.
4115
4116                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
4117
4118                 }
4119
4120                 # Select the database.
4121
4122                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
4123
4124                 # Check if any errors occured while selecting the database.
4125
4126                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
4127
4128                         # The database does not exist, so return an error.
4129
4130                         kiriwrite_error("databasemissingfile");
4131
4132                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
4133
4134                         # The database has invalid permissions set, so return
4135                         # an error.
4136
4137                         kiriwrite_error("databaseinvalidpermissions");
4138
4139                 }
4140
4141                 # Check if the database has read and write permissions.
4142
4143                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
4144
4145                 if ($database_permissions eq 1){
4146
4147                         # The database permissions are invalid so return an error.
4148
4149                         kiriwrite_error("databaseinvalidpermissions");
4150
4151                 }
4152
4153                 # Get information about the database.
4154
4155                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
4156
4157                 # Check if any errors had occured while getting the database
4158                 # information.
4159
4160                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4161
4162                         # A database error has occured so return an error and
4163                         # also the extended error information.
4164
4165                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
4166
4167                 };
4168
4169                 my $database_name       = $database_info{"DatabaseName"};
4170
4171                 # Define some variables for later.
4172
4173                 my %edit_list;
4174                 my %template_list;
4175                 my %template_info;
4176                 my %page_info;
4177                 my @templates_list;
4178                 my @filenames;
4179                 my $filelist_filename;
4180                 my $filename;
4181                 my $page;
4182                 my $pageseek = 0;
4183                 my $page_name;
4184                 my $page_filename;
4185                 my $template;
4186                 my $template_filename;
4187                 my $template_warning;
4188                 my $templateseek = 0;
4189
4190                 tie(%edit_list, 'Tie::IxHash');
4191                 tie(%template_list, 'Tie::IxHash');
4192
4193                 # Get the information about each page that is going
4194                 # to be edited.
4195
4196                 foreach $filelist_filename (@filelist){
4197
4198                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filelist_filename });
4199
4200                         # Check if any errors occured.
4201
4202                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4203
4204                                 # A database error has occured so return an error and
4205                                 # also the extended error information.
4206
4207                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
4208
4209                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
4210
4211                                 # The page does not exist, so process the next page.
4212
4213                                 next;
4214
4215                         }
4216
4217                         # Add the page name and file name to the list of
4218                         # pages to edit.
4219
4220                         $edit_list{$pageseek}{Filename} = $page_info{"PageFilename"};
4221                         $edit_list{$pageseek}{Name}     = $page_info{"PageName"};
4222
4223                         # Increment the page seek counter and reset the
4224                         # page found value.
4225
4226                         $pageseek++;
4227
4228                 }
4229
4230                 # Check if any pages were found in the database and return
4231                 # an error if not.
4232
4233                 if ($pageseek eq 0){
4234
4235                         # No pages were found so return an error.
4236
4237                         kiriwrite_error("nopagesselected");
4238
4239                 }
4240
4241                 # Connect to the template database.
4242
4243                 $kiriwrite_dbmodule->connecttemplate();
4244
4245                 # Check if any errors had occured.
4246
4247                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
4248
4249                         # The template database does not exist so write a warning
4250                         # message.
4251
4252                         $template_warning = $kiriwrite_lang->{pages}->{templatedatabasenotexistmultieditkeep};
4253
4254                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
4255
4256                         # The template database has invalid permissions set so
4257                         # return an error.
4258
4259                         $template_warning = $kiriwrite_lang->{pages}->{templatedatabasepermissionsinvalidmultieditkeep};
4260
4261                 }
4262
4263                 if (!$template_warning){
4264
4265                         # Get the list of templates available.
4266
4267                         @templates_list = $kiriwrite_dbmodule->gettemplatelist();
4268
4269                         # Check if any errors had occured.
4270
4271                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
4272
4273                                 # A database error occured while getting the list
4274                                 # of templates so write a warning message with the
4275                                 # extended error information.
4276
4277                                 $template_warning = kiriwrite_language($kiriwrite_lang->{pages}->{templatedatabaseerrormultieditkeep}, $kiriwrite_dbmodule->geterror(1));
4278
4279                         }
4280
4281                         if (!$template_warning){
4282
4283                                 foreach $template_filename (@templates_list){
4284
4285                                         # Get the template data.
4286
4287                                         %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template_filename });
4288
4289                                         # Check if any error occured while getting the template information.
4290
4291                                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
4292
4293                                                 # A database error has occured, so write a warning message with
4294                                                 # the extended error information.
4295
4296                                                 $template_warning = kiriwrite_language($kiriwrite_lang->{pages}->{templatedatabaseerrormultieditkeep}, $kiriwrite_dbmodule->geterror(1));
4297
4298                                         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
4299
4300                                                 # The template does not exist, so process the next page.
4301
4302                                                 next;
4303
4304                                         }
4305
4306                                         # Add the template to the list of templates.
4307
4308                                         $template_list{$templateseek}{Filename} = $template_info{"TemplateFilename"};
4309                                         $template_list{$templateseek}{Name}     = $template_info{"TemplateName"};
4310
4311                                         $templateseek++;
4312
4313                                 }
4314
4315                         }
4316
4317                 }
4318
4319                 # Disconnect from the template database.
4320
4321                 $kiriwrite_dbmodule->disconnecttemplate();
4322
4323                 # Disconnect from the database server.
4324
4325                 $kiriwrite_dbmodule->disconnect();
4326
4327                 # Write a form for editing the selected pages.
4328
4329                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{multiedit}, { Style => "pageheader" });
4330                 $kiriwrite_presmodule->addlinebreak();
4331                 $kiriwrite_presmodule->addlinebreak();
4332                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
4333                 $kiriwrite_presmodule->addhiddendata("mode", "page");
4334                 $kiriwrite_presmodule->addhiddendata("action", "multiedit");
4335                 $kiriwrite_presmodule->addhiddendata("database", $database);
4336                 $kiriwrite_presmodule->addhiddendata("count", $pageseek);
4337                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
4338
4339                 $pageseek = 1;
4340
4341                 foreach $page (keys %edit_list){
4342                         $kiriwrite_presmodule->addhiddendata("name[" . $pageseek . "]", "on");
4343                         $kiriwrite_presmodule->addhiddendata("id[" . $pageseek  . "]", $edit_list{$page}{Filename});
4344                         $pageseek++;
4345                 }
4346
4347                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{multieditmessage}, $database_name));
4348                 $kiriwrite_presmodule->addlinebreak();
4349                 $kiriwrite_presmodule->addlinebreak();
4350                 $kiriwrite_presmodule->startbox("datalist");
4351
4352                 foreach $page (keys %edit_list){
4353                         if (!$edit_list{$page}{Name}){
4354                                 $kiriwrite_presmodule->additalictext("No Name");
4355                                 $kiriwrite_presmodule->addtext(" (" . $edit_list{$page}{Filename} . ")");
4356                         } else {
4357                                 $kiriwrite_presmodule->addtext($edit_list{$page}{Name} . " (" . $edit_list{$page}{Filename} . ")");
4358                         }
4359
4360                         $kiriwrite_presmodule->addlinebreak();
4361                 }
4362
4363                 $kiriwrite_presmodule->endbox();
4364                 $kiriwrite_presmodule->addlinebreak();
4365                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{multieditmessagevalues});
4366                 $kiriwrite_presmodule->addlinebreak();
4367                 $kiriwrite_presmodule->addlinebreak();
4368                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
4369
4370                 $kiriwrite_presmodule->startheader();
4371                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{alter}, { Style => "tablecellheader" });
4372                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
4373                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
4374                 $kiriwrite_presmodule->endheader();
4375
4376                 $kiriwrite_presmodule->startrow();
4377                 $kiriwrite_presmodule->addcell("tablecell1");
4378                 $kiriwrite_presmodule->addcheckbox("altersection");
4379                 $kiriwrite_presmodule->endcell();
4380                 $kiriwrite_presmodule->addcell("tablecell1");
4381                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesection});
4382                 $kiriwrite_presmodule->endcell();
4383                 $kiriwrite_presmodule->addcell("tablecell1");
4384                 $kiriwrite_presmodule->addinputbox("newsection", { Size => 64, MaxLength => 256 });
4385                 $kiriwrite_presmodule->endcell();
4386                 $kiriwrite_presmodule->endrow();
4387
4388                 $kiriwrite_presmodule->startrow();
4389                 $kiriwrite_presmodule->addcell("tablecell2");
4390                 $kiriwrite_presmodule->addcheckbox("altertemplate");
4391                 $kiriwrite_presmodule->endcell();
4392                 $kiriwrite_presmodule->addcell("tablecell2");
4393                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagetemplate});
4394                 $kiriwrite_presmodule->endcell();
4395
4396                 $kiriwrite_presmodule->addcell("tablecell2");
4397
4398                 if ($template_warning){
4399
4400                         $kiriwrite_presmodule->addhiddendata("newtemplate", "!skip");
4401                         $kiriwrite_presmodule->addtext($template_warning);
4402
4403                 } else {
4404
4405                         $kiriwrite_presmodule->addselectbox("newtemplate");
4406
4407                         foreach $template (keys %template_list){
4408
4409                                 $kiriwrite_presmodule->addoption($template_list{$template}{Name} . " (" . $template_list{$template}{Filename} . ")", { Value => $template_list{$template}{Filename}});
4410
4411                         }
4412
4413                         $kiriwrite_presmodule->addoption($kiriwrite_lang->{pages}->{usenotemplate}, { Value => "!none", Selected => 1 });
4414                         $kiriwrite_presmodule->endselectbox();
4415                 }
4416
4417                 $kiriwrite_presmodule->endcell();
4418                 $kiriwrite_presmodule->endrow();
4419
4420                 $kiriwrite_presmodule->startrow();
4421                 $kiriwrite_presmodule->addcell("tablecell1");
4422                 $kiriwrite_presmodule->addcheckbox("altersettings");
4423                 $kiriwrite_presmodule->endcell();
4424                 $kiriwrite_presmodule->addcell("tablecell1");
4425                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesettings});
4426                 $kiriwrite_presmodule->endcell();
4427                 $kiriwrite_presmodule->addcell("tablecell1");
4428                 $kiriwrite_presmodule->addradiobox("newsettings", { Description => $kiriwrite_lang->{pages}->{usepageandsection}, Value => 1 , Selected => 1});
4429                 $kiriwrite_presmodule->addlinebreak();
4430                 $kiriwrite_presmodule->addradiobox("newsettings", { Description => $kiriwrite_lang->{pages}->{usepagename}, Value => 2 });
4431                 $kiriwrite_presmodule->addlinebreak();
4432                 $kiriwrite_presmodule->addradiobox("newsettings", { Description => $kiriwrite_lang->{pages}->{usesectionname}, Value => 3 });
4433                 $kiriwrite_presmodule->addlinebreak();
4434                 $kiriwrite_presmodule->addradiobox("newsettings", { Description => $kiriwrite_lang->{pages}->{nopagesection}, Value => 0 });
4435                 $kiriwrite_presmodule->endcell();
4436                 $kiriwrite_presmodule->endrow();
4437
4438                 $kiriwrite_presmodule->endtable();
4439                 $kiriwrite_presmodule->addlinebreak();
4440                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{editpagesbutton});
4441                 $kiriwrite_presmodule->addtext(" | ");
4442                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{clearvalues});
4443                 $kiriwrite_presmodule->addtext(" | ");
4444                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
4445                 $kiriwrite_presmodule->endform();
4446
4447                 return $kiriwrite_presmodule->grab();
4448
4449         } else {
4450
4451                 # The confirm value is something else other than
4452                 # 1 or 0, so return an error.
4453
4454                 kiriwrite_error("invalidvariable");
4455
4456         }
4457
4458 }
4459
4460 sub kiriwrite_page_list{
4461 #################################################################################
4462 # kiriwrite_page_list: Lists pages from an database.                            #
4463 #                                                                               #
4464 # Usage:                                                                        #
4465 #                                                                               #
4466 # kiriwrite_page_list([database]);                                              #
4467 #                                                                               #
4468 # database      Specifies the database to retrieve the pages from.              #
4469 #################################################################################
4470
4471         # Get the database file name from what was passed to the subroutine.
4472
4473         my ($database_file) = @_;
4474
4475         # Check if the database_file variable is empty, if it is then print out a
4476         # select box asking the user to select a database from the list.
4477
4478         if (!$database_file) {
4479
4480                 # Define the variables required for this section.
4481
4482                 my %database_info;
4483                 my @database_list;
4484                 my @databasefilenames;
4485                 my @databasenames;
4486                 my $dbseek              = 0;
4487                 my $dbfilename          = "";
4488                 my $dbname              = "";
4489                 my $data_file           = "";
4490                 my $data_file_length    = 0;
4491                 my $data_file_friendly  = "";
4492                 my $database_name       = "";
4493                 my $file_permissions    = "";
4494
4495                 # Connect to the database server.
4496
4497                 $kiriwrite_dbmodule->connect();
4498
4499                 # Check if any errors occured while connecting to the database server.
4500
4501                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
4502
4503                         # A database connection error has occured so return
4504                         # an error.
4505
4506                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
4507
4508                 }
4509
4510                 # Open the data directory and get all of the databases.
4511
4512                 @database_list  = $kiriwrite_dbmodule->getdblist();
4513
4514                 # Check if any errors occured while trying to get the list of databases.
4515
4516                 if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
4517
4518                         # The database directory is missing so return an error.
4519
4520                         kiriwrite_error("datadirectorymissing");
4521
4522                 } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
4523
4524                         # The database directory has invalid permissions set so return
4525                         # an error.
4526
4527                         kiriwrite_error("datadirectoryinvalidpermissions");
4528
4529                 }
4530
4531                 # Get the information about each database (the short name and friendly name).
4532
4533                 foreach $data_file (@database_list){
4534
4535                         $kiriwrite_dbmodule->selectdb({ DatabaseName => $data_file });
4536
4537                         # Check if any errors occured while selecting the database.
4538
4539                         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
4540
4541                                 # The database does not exist, so process the next
4542                                 # database.
4543
4544                                 next;
4545
4546                         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
4547
4548                                 # The database has invalid permissions set, so process
4549                                 # the next database.
4550
4551                                 next;
4552
4553                         }
4554
4555                         # Get the database information.
4556
4557                         %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
4558
4559                         # Check if any errors had occured while getting the database
4560                         # information.
4561
4562                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4563
4564                                 # A database error has occured, so process the next
4565                                 # database.
4566
4567                                 next;
4568
4569                         };
4570
4571                         # Set the database name.
4572
4573                         $database_name          = $database_info{"DatabaseName"};
4574
4575                         # Check if the database name is undefined and if it is
4576                         # then set it blank.
4577
4578                         if (!$database_name){
4579                                 $database_name = "";
4580                         }
4581
4582                         # Append the database to the list of databases available.
4583
4584                         push(@databasefilenames, $data_file);
4585                         push(@databasenames, $database_name);
4586
4587                 }
4588
4589                 # Disconnect from the database server.
4590
4591                 $kiriwrite_dbmodule->disconnect();
4592
4593                 # Write the page data.
4594
4595                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{viewpages}, { Style => "pageheader" });
4596                 $kiriwrite_presmodule->addlinebreak();
4597                 $kiriwrite_presmodule->addlinebreak();
4598                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{nodatabaseselected});
4599                 $kiriwrite_presmodule->addlinebreak();
4600                 $kiriwrite_presmodule->addlinebreak();
4601                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"});
4602                 $kiriwrite_presmodule->addhiddendata("mode", "page");
4603                 $kiriwrite_presmodule->addhiddendata("action", "view");
4604                 $kiriwrite_presmodule->addselectbox("database");
4605                 foreach $dbfilename (@databasefilenames){
4606                         $dbname = $databasenames[$dbseek];
4607                         $dbseek++;
4608                         $kiriwrite_presmodule->addoption($dbname . " (" . $dbfilename . ")", { Value => $dbfilename });
4609                 }
4610                 $kiriwrite_presmodule->endselectbox();
4611                 $kiriwrite_presmodule->addtext(" | ");
4612                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{viewbutton});
4613                 $kiriwrite_presmodule->endform();
4614
4615                 return $kiriwrite_presmodule->grab();
4616
4617         } else {
4618
4619                 my %database_info;
4620                 my %template_info;
4621                 my @database_pages;
4622                 my $pagemultioptions    = "";
4623                 my $db_name             = "";
4624                 my $tablestyle          = "";
4625
4626                 my $page_filename       = "";
4627                 my $page_name           = "";
4628                 my $page_description    = "";
4629                 my $page_modified       = "";
4630
4631                 my $tablestyletype      = 0;
4632                 my $page_count          = 0;
4633                 my $db_file_notblank    = 0;
4634
4635                 tie(%database_info, 'Tie::IxHash');
4636                 tie(%template_info, 'Tie::IxHash');
4637
4638                 # The database_file variable is not blank, so print out a list of pages from
4639                 # the selected database.
4640
4641                 # Preform a variable check on the database filename to make sure that it is
4642                 # valid before using it.
4643
4644                 kiriwrite_variablecheck($database_file, "filename", "", 0);
4645                 kiriwrite_variablecheck($database_file, "maxlength", 32, 0);
4646
4647                 # Connect to the database server.
4648
4649                 $kiriwrite_dbmodule->connect();
4650
4651                 # Check if any errors occured while connecting to the database server.
4652
4653                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
4654
4655                         # A database connection error has occured so return
4656                         # an error.
4657
4658                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
4659
4660                 }
4661
4662                 # Select the database.
4663
4664                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database_file });
4665
4666                 # Check if any errors had occured while selecting the database.
4667
4668                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
4669
4670                         # The database does not exist, so return an error.
4671
4672                         kiriwrite_error("databasemissingfile");
4673
4674                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
4675
4676                         # The database has invalid permissions set, so return
4677                         # an error.
4678
4679                         kiriwrite_error("databaseinvalidpermissions");
4680
4681                 }
4682
4683                 # Get information about the database.
4684
4685                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
4686
4687                 $db_name = $database_info{"DatabaseName"};
4688
4689                 # Check if any errors had occured while getting the database
4690                 # information.
4691
4692                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4693
4694                         # A database error has occured so return an error and
4695                         # also the extended error information.
4696
4697                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
4698
4699                 }
4700
4701                 # Get the list of pages.
4702
4703                 @database_pages = $kiriwrite_dbmodule->getpagelist();
4704
4705                 # Check if any errors had occured while getting the list of pages.
4706
4707                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4708
4709                         # A database error has occured so return an error and
4710                         # also the extended error information.
4711
4712                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
4713
4714                 }
4715
4716                 # Check if there are any page names in the database array.
4717
4718                 if (@database_pages){
4719
4720                         # Write the start of the page.
4721
4722                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{pagelist}, $db_name), { Style => "pageheader" });
4723                         $kiriwrite_presmodule->addlinebreak();
4724                         $kiriwrite_presmodule->addlinebreak();
4725                         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
4726                         $kiriwrite_presmodule->addhiddendata("mode", "page");
4727                         $kiriwrite_presmodule->addhiddendata("database", $database_file);
4728                         $kiriwrite_presmodule->addhiddendata("type", "multiple");
4729
4730                         # Write the list of multiple selection options.
4731
4732                         $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{selectnone});
4733                         $kiriwrite_presmodule->addtext(" | ");
4734                         $kiriwrite_presmodule->addbutton("action", { Value => "multidelete", Description => $kiriwrite_lang->{pages}->{deleteselectedbutton} });
4735                         $kiriwrite_presmodule->addtext(" | ");
4736                         $kiriwrite_presmodule->addbutton("action", { Value => "multimove", Description => $kiriwrite_lang->{pages}->{moveselectedbutton} });
4737                         $kiriwrite_presmodule->addtext(" | ");
4738                         $kiriwrite_presmodule->addbutton("action", { Value => "multicopy", Description => $kiriwrite_lang->{pages}->{copyselectedbutton} });
4739                         $kiriwrite_presmodule->addtext(" | ");
4740                         $kiriwrite_presmodule->addbutton("action", { Value => "multiedit", Description => $kiriwrite_lang->{pages}->{editselectedbutton} });
4741
4742                         $kiriwrite_presmodule->addlinebreak();
4743                         $kiriwrite_presmodule->addlinebreak();
4744
4745                         # Write the table header.
4746
4747                         $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
4748                         $kiriwrite_presmodule->startheader();
4749                         $kiriwrite_presmodule->addheader("", { Style => "tablecellheader" });
4750                         $kiriwrite_presmodule->addheader($kiriwrite_lang->{pages}->{pagefilename}, { Style => "tablecellheader" });
4751                         $kiriwrite_presmodule->addheader($kiriwrite_lang->{pages}->{pagename}, { Style => "tablecellheader" });
4752                         $kiriwrite_presmodule->addheader($kiriwrite_lang->{pages}->{pagedescription}, { Style => "tablecellheader" });
4753                         $kiriwrite_presmodule->addheader($kiriwrite_lang->{pages}->{lastmodified}, { Style => "tablecellheader" });
4754                         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{options}, { Style => "tablecellheader" });
4755                         $kiriwrite_presmodule->endheader();
4756
4757                         # Process each page filename and get the page information.
4758
4759                         foreach $page_filename (@database_pages){
4760
4761                                 %template_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page_filename });
4762
4763                                 # Check if any errors have occured.
4764
4765                                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4766
4767                                         # A database error has occured so return an error and
4768                                         # also the extended error information.
4769
4770                                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
4771
4772                                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
4773
4774                                         # The page does not exist, so process the next page.
4775
4776                                         next;
4777
4778                                 }
4779
4780                                 $page_count++;
4781
4782                                 $page_filename          = $template_info{"PageFilename"};
4783                                 $page_name              = $template_info{"PageName"};
4784                                 $page_description       = $template_info{"PageDescription"};
4785                                 $page_modified          = $template_info{"PageLastModified"};
4786
4787                                 # Set the table cell style.
4788
4789                                 if ($tablestyletype eq 0){
4790
4791                                         $tablestyle = "tablecell1";
4792                                         $tablestyletype = 1;
4793
4794                                 } else {
4795
4796                                         $tablestyle = "tablecell2";
4797                                         $tablestyletype = 0;
4798
4799                                 }
4800
4801                                 # Write out the row of data.
4802
4803                                 $kiriwrite_presmodule->startrow();
4804                                 $kiriwrite_presmodule->addcell($tablestyle);
4805                                 $kiriwrite_presmodule->addhiddendata("id[" . $page_count . "]", $page_filename);
4806                                 $kiriwrite_presmodule->addcheckbox("name[" . $page_count . "]");
4807                                 $kiriwrite_presmodule->endcell();
4808                                 $kiriwrite_presmodule->addcell($tablestyle);
4809                                 $kiriwrite_presmodule->addtext($page_filename);
4810                                 $kiriwrite_presmodule->endcell();
4811                                 $kiriwrite_presmodule->addcell($tablestyle);
4812
4813                                 if (!$page_name){
4814
4815                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
4816
4817                                 } else {
4818
4819                                         $kiriwrite_presmodule->addtext($page_name);
4820
4821                                 }
4822
4823                                 $kiriwrite_presmodule->endcell();
4824                                 $kiriwrite_presmodule->addcell($tablestyle);
4825
4826                                 if (!$page_description){
4827
4828                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{nodescription});
4829
4830                                 } else {
4831
4832                                         $kiriwrite_presmodule->addtext($page_description);
4833
4834                                 }
4835
4836                                 $kiriwrite_presmodule->endcell();
4837                                 $kiriwrite_presmodule->addcell($tablestyle);
4838
4839                                 if (!$page_modified){
4840
4841                                         $kiriwrite_presmodule->additalictext("No Date");
4842
4843                                 } else {
4844
4845                                         $kiriwrite_presmodule->addtext($page_modified);
4846
4847                                 }
4848
4849                                 $kiriwrite_presmodule->endcell();
4850                                 $kiriwrite_presmodule->addcell($tablestyle);
4851                                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"}  . "?mode=page&action=edit&database=" . $database_file . "&page=" . $page_filename, { Text => $kiriwrite_lang->{options}->{edit} });
4852                                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"}  . "?mode=page&action=delete&database=" . $database_file . "&page=" . $page_filename, { Text => $kiriwrite_lang->{options}->{delete} });
4853                                 $kiriwrite_presmodule->endcell();
4854                                 $kiriwrite_presmodule->endrow();
4855
4856                                 # Increment the counter.
4857
4858                         }
4859
4860                 }
4861
4862                 # Disconnect from the database server.
4863
4864                 $kiriwrite_dbmodule->disconnect();
4865
4866                 $kiriwrite_presmodule->addhiddendata("count", $page_count);
4867                 $kiriwrite_presmodule->endtable();
4868                 $kiriwrite_presmodule->endform();
4869
4870                 if (!@database_pages || !$page_count){
4871
4872                         # There were no values in the database pages array and
4873                         # the page count had not been incremented so write a
4874                         # message saying that there were no pages in the
4875                         # database.
4876
4877                         $kiriwrite_presmodule->clear();
4878                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{pagelist}, $db_name), { Style => "pageheader" });
4879                         $kiriwrite_presmodule->addlinebreak();
4880                         $kiriwrite_presmodule->addlinebreak();
4881                         $kiriwrite_presmodule->startbox("errorbox");
4882                         $kiriwrite_presmodule->enterdata($kiriwrite_lang->{pages}->{nopagesindatabase});
4883                         $kiriwrite_presmodule->endbox();
4884
4885                 }
4886
4887                 return $kiriwrite_presmodule->grab();
4888
4889         }
4890
4891 }
4892
4893 sub kiriwrite_page_multipleselect{
4894 #################################################################################
4895 # kiriwrite_page_multipleselect: Gets the multiple page selections from a       #
4896 # database and processes them into a single which can be used in the            #
4897 # kiriwrite_page_delete.                                                        #
4898 #                                                                               #
4899 # Usage:                                                                        #
4900 #                                                                               #
4901 # kiriwrite_page_multipleselect();                                              #
4902 #################################################################################
4903
4904         # Load the required perl modules for this subroutine.
4905
4906         my $query = new CGI;
4907
4908         # Setup some variables that will be used later on.
4909
4910         my $page_select_seek = 1;
4911         my $page_current_value = "";
4912         my $selectionlist = "";
4913
4914         # Get the required variables from the HTTP query.
4915
4916         my $page_count = $query->param('count');
4917
4918         do {
4919
4920                 # Get the current value of the selected page's checkbox.
4921
4922                 $page_current_value = $query->param('name[' . $page_select_seek . ']');
4923
4924                 # If page_current_value is undefinied or blank, set page_current_value
4925                 # to off.
4926
4927                 if (!$page_current_value){
4928
4929                         $page_current_value = "off";
4930
4931                 }
4932
4933                 # Check if the page_current_value is set to 'on' if it is append the
4934                 # current page seek value to the selection list.
4935
4936                 if ($page_current_value eq "on"){
4937
4938                         # Append the current seek value to the selection list.
4939
4940                         $selectionlist = $selectionlist . $page_select_seek . "|";
4941
4942                 }
4943
4944                 # Increment the page selection seeking counter.
4945
4946                 $page_select_seek++;
4947
4948         } until ($page_select_seek eq $page_count);
4949
4950         return $selectionlist;
4951
4952 }
4953
4954 sub kiriwrite_template_add{
4955 #################################################################################
4956 # kiriwrite_template_add: Add a template to the template folder                 #
4957 #                                                                               #
4958 # Usage:                                                                        #
4959 #                                                                               #
4960 # kiriwrite_template_add(filename, name, description, layout, confirm);         #
4961 #                                                                               #
4962 # filename      The filename of the new template.                               #
4963 # name          The name of the template.                                       #
4964 # description   The description of the template.                                #
4965 # layout        The layout of the new template.                                 #
4966 # confirm       Confirm the action of creating a new template.                  #
4967 #################################################################################
4968
4969         # Get the variables that were passed to the subroutine.
4970
4971         my ($templatefilename, $templatename, $templatedescription, $templatelayout, $confirm) = @_;
4972
4973         # Check if the confirm value is blank and if it is then set confirm to 0.
4974
4975         if (!$confirm){
4976
4977                 # The confirm value is blank, so set the value of confirm to 0.
4978
4979                 $confirm = 0;
4980
4981         }
4982
4983         if ($confirm eq 1){
4984
4985                 # Check (validate) each of the values.
4986
4987                 kiriwrite_variablecheck($templatename, "utf8", 0, 0);
4988                 kiriwrite_variablecheck($templatedescription, "utf8", 0, 0);
4989                 kiriwrite_variablecheck($templatelayout, "utf8", 0, 0);
4990
4991                 # Convert the values into proper UTF8 strings that can be used.
4992
4993                 $templatename           = kiriwrite_utf8convert($templatename);
4994                 $templatedescription    = kiriwrite_utf8convert($templatedescription);
4995                 $templatelayout         = kiriwrite_utf8convert($templatelayout);
4996
4997                 # Check the length of the converted UTF8 strings.
4998
4999                 my $templatefilename_length_check       = kiriwrite_variablecheck($templatefilename, "maxlength", 64, 1);
5000                 my $templatename_length_check           = kiriwrite_variablecheck($templatename, "maxlength", 512, 1);
5001                 my $templatedescription_length_check    = kiriwrite_variablecheck($templatedescription, "maxlength", 512, 1);
5002                 kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
5003
5004                 if ($templatefilename_length_check eq 1){
5005
5006                         # The template filename length is too long, so return an error.
5007
5008                         kiriwrite_error("templatefilenametoolong");
5009
5010                 }
5011
5012                 if ($templatename_length_check eq 1){
5013
5014                         # The template name length is too long, so return an error.
5015
5016                         kiriwrite_error("templatenametoolong");
5017
5018                 }
5019
5020
5021                 if ($templatedescription_length_check eq 1){
5022
5023                         # The template description length is too long, so return an error.
5024
5025                         kiriwrite_error("templatedescriptiontoolong");
5026
5027                 }
5028
5029                 # Check if the filename specified is a valid filename.
5030
5031                 kiriwrite_variablecheck($templatefilename, "filename", "", 0);
5032
5033                 # Connect to the template server.
5034
5035                 $kiriwrite_dbmodule->connect();
5036
5037                 # Connect to the template database.
5038
5039                 $kiriwrite_dbmodule->connecttemplate(1);
5040
5041                 # Check if any errors had occured.
5042
5043                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5044
5045                         # The template database has invalid permissions set so
5046                         # return an error.
5047
5048                         kiriwrite_error("templatedatabaseinvalidpermissions");
5049
5050                 }
5051
5052                 $kiriwrite_dbmodule->addtemplate({ TemplateFilename => $templatefilename, TemplateName => $templatename, TemplateDescription => $templatedescription, TemplateLayout => $templatelayout });
5053
5054                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5055
5056                         # A database error has occured so return an error along
5057                         # with the extended error information.
5058
5059                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5060
5061                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5062
5063                         # The template database has invalid permissions set so return
5064                         # an error.
5065
5066                         kiriwrite_error("templatedatabaseinvalidpermissions");
5067
5068                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplatePageExists"){
5069
5070                         # The template page already exists so return an error.
5071
5072                         kiriwrite_error("templatefilenameexists");
5073
5074                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseUncreateable"){
5075
5076                         # The template databases is uncreatable so return an error.
5077
5078                         kiriwrite_error("templatedatabasenotcreated");
5079
5080                 }
5081
5082                 $kiriwrite_dbmodule->disconnecttemplate();
5083
5084                 # Disconnect from the template server.
5085
5086                 $kiriwrite_dbmodule->disconnect();
5087
5088                 # Print out the confirmation message.
5089
5090                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{addedtemplate}, { Style => "pageheader" });
5091                 $kiriwrite_presmodule->addlinebreak();
5092                 $kiriwrite_presmodule->addlinebreak();
5093                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{template}->{addedtemplatemessage}, $templatename));
5094                 $kiriwrite_presmodule->addlinebreak();
5095                 $kiriwrite_presmodule->addlinebreak();
5096                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template", { Text => $kiriwrite_lang->{template}->{returntemplatelist} });
5097                 return $kiriwrite_presmodule->grab();
5098
5099         } else {
5100                 # No confirmation was made, so print out a form for adding a template.
5101
5102                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{addtemplate}, { Style => "pageheader" });
5103                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
5104                 $kiriwrite_presmodule->addhiddendata("mode", "template");
5105                 $kiriwrite_presmodule->addhiddendata("action", "add");
5106                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
5107                 $kiriwrite_presmodule->addlinebreak();
5108                 $kiriwrite_presmodule->starttable("", { CellSpacing => 0, CellPadding => 5 });
5109
5110                 $kiriwrite_presmodule->startheader();
5111                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
5112                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
5113                 $kiriwrite_presmodule->endheader();
5114
5115                 $kiriwrite_presmodule->startrow();
5116                 $kiriwrite_presmodule->addcell("tablecell1");
5117                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatename});
5118                 $kiriwrite_presmodule->endcell();
5119                 $kiriwrite_presmodule->addcell("tablecell2");
5120                 $kiriwrite_presmodule->addinputbox("templatename", { Size => 64, MaxLength => 512 });
5121                 $kiriwrite_presmodule->endcell();
5122                 $kiriwrite_presmodule->endrow();
5123
5124                 $kiriwrite_presmodule->startrow();
5125                 $kiriwrite_presmodule->addcell("tablecell1");
5126                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatedescription});
5127                 $kiriwrite_presmodule->endcell();
5128                 $kiriwrite_presmodule->addcell("tablecell2");
5129                 $kiriwrite_presmodule->addinputbox("templatedescription", { Size => 64, MaxLength => 512 });
5130                 $kiriwrite_presmodule->endcell();
5131                 $kiriwrite_presmodule->endrow();
5132
5133                 $kiriwrite_presmodule->startrow();
5134                 $kiriwrite_presmodule->addcell("tablecell1");
5135                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatefilename});
5136                 $kiriwrite_presmodule->endcell();
5137                 $kiriwrite_presmodule->addcell("tablecell2");
5138                 $kiriwrite_presmodule->addinputbox("templatefilename", { Size => 32, MaxLength => 64 });
5139                 $kiriwrite_presmodule->endcell();
5140                 $kiriwrite_presmodule->endrow();
5141
5142                 $kiriwrite_presmodule->startrow();
5143                 $kiriwrite_presmodule->addcell("tablecell1");
5144                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatelayout});
5145                 $kiriwrite_presmodule->endcell();
5146                 $kiriwrite_presmodule->addcell("tablecell2");
5147                 $kiriwrite_presmodule->addtextbox("templatelayout", { Columns => 50, Rows => 10 });
5148                 $kiriwrite_presmodule->addlinebreak();
5149                 $kiriwrite_presmodule->addlinebreak();
5150                 $kiriwrite_presmodule->startbox("datalist");
5151                 $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{common}->{tags});
5152                 $kiriwrite_presmodule->addlinebreak();
5153                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagecontent});
5154                 $kiriwrite_presmodule->addlinebreak();
5155                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagetitle});
5156                 $kiriwrite_presmodule->addlinebreak();
5157                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagename});
5158                 $kiriwrite_presmodule->addlinebreak();
5159                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagedescription});
5160                 $kiriwrite_presmodule->addlinebreak();
5161                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagesection});
5162                 $kiriwrite_presmodule->addlinebreak();
5163                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautosection});
5164                 $kiriwrite_presmodule->addlinebreak();
5165                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautotitle});
5166                 $kiriwrite_presmodule->addlinebreak();
5167                 $kiriwrite_presmodule->endbox();
5168                 $kiriwrite_presmodule->endcell();
5169                 $kiriwrite_presmodule->endrow();
5170                 $kiriwrite_presmodule->endtable();
5171
5172                 $kiriwrite_presmodule->addlinebreak();
5173                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{template}->{addtemplatebutton});
5174                 $kiriwrite_presmodule->addtext(" | ");
5175                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{clearvalues});
5176                 $kiriwrite_presmodule->addtext(" | ");
5177                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template" , { Text => $kiriwrite_lang->{template}->{returntemplatelist} });
5178
5179                 $kiriwrite_presmodule->endform();
5180
5181                 return $kiriwrite_presmodule->grab();
5182
5183         }
5184
5185
5186 }
5187
5188 sub kiriwrite_template_edit{
5189 #################################################################################
5190 # kiriwrite_template_edit: Edit a template from the template folder.            #
5191 #                                                                               #
5192 # Usage:                                                                        #
5193 #                                                                               #
5194 # kiriwrite_template_edit(filename, [newfilename], [newname], [newdescription], #
5195 #                               [templatelayout], [confirm]);                   #
5196 #                                                                               #
5197 # filename              The current filename of the template to edit.           #
5198 # newfilename           The new filename of the template to edit.               #
5199 # newname               The new name of the template being edited.              #
5200 # newdescription        The new description of the template being edited.       #
5201 # templatelayout        The modified/altered template layout.                   #
5202 # confirm               Confirms the action to edit a template and its          #
5203 #                       settings.                                               #
5204 #################################################################################
5205
5206         # Get all the variables that have been passed to the subroutine.
5207
5208         my ($templatefilename, $templatenewfilename, $templatenewname, $templatenewdescription, $templatelayout, $confirm) = @_;
5209
5210         # Check if the confirm variable is blank, if it is then
5211         # set confirm to '0'
5212
5213         if (!$confirm){
5214
5215                 # confirm is uninitalised/blank, so set the value of confirm
5216                 # to '0'
5217
5218                 $confirm = 0;
5219
5220         }
5221
5222         # Check if the template filename is blank and if it is, then return
5223         # an error.
5224
5225         if (!$templatefilename){
5226
5227                 kiriwrite_error("templatefilenameblank");
5228
5229         }
5230
5231         # Connect to the database server.
5232
5233         $kiriwrite_dbmodule->connect();
5234
5235         # Check if any errors occured while connecting to the database server.
5236
5237         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
5238
5239                 # A database connection error has occured so return
5240                 # an error.
5241
5242                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
5243
5244         }
5245
5246         if ($confirm eq 1){
5247
5248                 # Check certain strings to see if they UTF8 compiliant.
5249
5250                 kiriwrite_variablecheck($templatenewname, "utf8", 0, 0);
5251                 kiriwrite_variablecheck($templatenewdescription, "utf8", 0, 0);
5252                 kiriwrite_variablecheck($templatelayout, "utf8", 0, 0);
5253
5254                 # Convert the values into proper UTF8 strings.
5255
5256                 $templatenewname        = kiriwrite_utf8convert($templatenewname);
5257                 $templatenewdescription = kiriwrite_utf8convert($templatenewdescription);
5258                 $templatelayout         = kiriwrite_utf8convert($templatelayout);
5259
5260                 # Check if the filenames recieved are valid filenames.
5261
5262                 kiriwrite_variablecheck($templatenewfilename, "maxlength", 64, 0);
5263                 kiriwrite_variablecheck($templatenewdescription, "maxlength", 512, 0);
5264                 kiriwrite_variablecheck($templatenewname, "maxlength", 512, 0);
5265                 kiriwrite_variablecheck($templatefilename, "maxlength", 64, 0);
5266                 kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
5267
5268                 kiriwrite_variablecheck($templatefilename, "filename", "", 0);
5269                 kiriwrite_variablecheck($templatenewfilename, "filename", "", 0);
5270
5271                 # Connect to the template database.
5272
5273                 $kiriwrite_dbmodule->connecttemplate();
5274
5275                 # Check if any errors had occured.
5276
5277                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5278
5279                         # The template database has invalid permissions set so
5280                         # return an error.
5281
5282                         kiriwrite_error("templatedatabaseinvalidpermissions");
5283
5284                 }
5285
5286                 # Edit the template.
5287
5288                 $kiriwrite_dbmodule->edittemplate({ TemplateFilename => $templatefilename, NewTemplateFilename => $templatenewfilename, NewTemplateName => $templatenewname, NewTemplateDescription => $templatenewdescription, NewTemplateLayout => $templatelayout });
5289
5290                 # Check if any error occured while editing the template.
5291
5292                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5293
5294                         # A database error has occured, so return an error.
5295
5296                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5297
5298                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5299
5300                         # The template database has invalid permissions set so return
5301                         # an error.
5302
5303                         kiriwrite_error("templatedatabaseinvalidpermissions");
5304
5305                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5306
5307                         # The template does not exist, so process the next template.
5308
5309                         kiriwrite_error("templatedoesnotexist");
5310
5311                 }
5312
5313                 # Disconnect from the database server.
5314
5315                 $kiriwrite_dbmodule->disconnect();
5316
5317                 # Disconnect from the template database.
5318
5319                 $kiriwrite_dbmodule->disconnecttemplate();
5320
5321                 # Append a link so that the user can return to the templates list.
5322
5323                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{editedtemplate}, { Style => "pageheader" });
5324                 $kiriwrite_presmodule->addlinebreak();
5325                 $kiriwrite_presmodule->addlinebreak();
5326                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{template}->{editedtemplatemessage}, $templatenewname));
5327                 $kiriwrite_presmodule->addlinebreak();
5328                 $kiriwrite_presmodule->addlinebreak();
5329                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template", { Text => $kiriwrite_lang->{template}->{returntemplatelist} });
5330
5331         } else {
5332
5333                 # Connect to the template database.
5334
5335                 $kiriwrite_dbmodule->connecttemplate();
5336
5337                 # Check if any errors had occured.
5338
5339                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5340
5341                         # The template database has invalid permissions set so
5342                         # return an error.
5343
5344                         kiriwrite_error("templatedatabaseinvalidpermissions");
5345
5346                 }
5347
5348                 # Get the template information.
5349
5350                 my %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $templatefilename });
5351
5352                 # Check if any error occured while getting the template information.
5353
5354                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5355
5356                         # A database error has occured, so return an error.
5357
5358                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5359
5360                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5361
5362                         # The template does not exist, so return an error.
5363
5364                         kiriwrite_error("templatedoesnotexist");
5365
5366                 }
5367
5368                 # Disconnect from the template database.
5369
5370                 $kiriwrite_dbmodule->disconnecttemplate();
5371
5372                 # Get the values from the query results.
5373
5374                 my $template_filename           = $template_info{"TemplateFilename"};
5375                 my $template_name               = $template_info{"TemplateName"};
5376                 my $template_description        = $template_info{"TemplateDescription"};
5377                 my $template_layout             = $template_info{"TemplateLayout"};
5378                 my $template_modified           = $template_info{"TemplateLastModified"};
5379
5380                 # Check if the values are undefined and set them blank
5381                 # if they are.
5382
5383                 if (!$template_name){
5384                         $template_name = "";
5385                 }
5386
5387                 if (!$template_description){
5388                         $template_description = "";
5389                 }
5390
5391                 if (!$template_layout){
5392                         $template_layout = "";
5393                 }
5394
5395                 # Write out the form for editing an template with the current template
5396                 # settings put into the correct place.
5397
5398                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{edittemplate}, { Style => "pageheader" });
5399                 $kiriwrite_presmodule->addlinebreak();
5400                 $kiriwrite_presmodule->addlinebreak();
5401                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
5402                 $kiriwrite_presmodule->addhiddendata("mode", "template");
5403                 $kiriwrite_presmodule->addhiddendata("action", "edit");
5404                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
5405                 $kiriwrite_presmodule->addhiddendata("template", $template_filename);
5406                 $kiriwrite_presmodule->starttable("", { CellSpacing => 0, CellPadding => 5});
5407
5408                 $kiriwrite_presmodule->startheader();
5409                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
5410                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
5411                 $kiriwrite_presmodule->endheader();
5412
5413                 $kiriwrite_presmodule->startrow();
5414                 $kiriwrite_presmodule->addcell("tablecell1");
5415                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatename});
5416                 $kiriwrite_presmodule->endcell();
5417                 $kiriwrite_presmodule->addcell("tablecell2");
5418                 $kiriwrite_presmodule->addinputbox("newname", { Size => 64, MaxLength => 512, Value => $template_name });
5419                 $kiriwrite_presmodule->endcell();
5420                 $kiriwrite_presmodule->endrow();
5421
5422                 $kiriwrite_presmodule->startrow();
5423                 $kiriwrite_presmodule->addcell("tablecell1");
5424                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatedescription});
5425                 $kiriwrite_presmodule->endcell();
5426                 $kiriwrite_presmodule->addcell("tablecell2");
5427                 $kiriwrite_presmodule->addinputbox("newdescription", { Size => 64, MaxLength => 512, Value => $template_description });
5428                 $kiriwrite_presmodule->endcell();
5429                 $kiriwrite_presmodule->endrow();
5430
5431                 $kiriwrite_presmodule->startrow();
5432                 $kiriwrite_presmodule->addcell("tablecell1");
5433                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatefilename});
5434                 $kiriwrite_presmodule->endcell();
5435                 $kiriwrite_presmodule->addcell("tablecell2");
5436                 $kiriwrite_presmodule->addinputbox("newfilename", { Size => 32, MaxLength => 64, Value => $template_filename });
5437                 $kiriwrite_presmodule->endcell();
5438                 $kiriwrite_presmodule->endrow();
5439
5440                 $kiriwrite_presmodule->startrow();
5441                 $kiriwrite_presmodule->addcell("tablecell1");
5442                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatelayout});
5443                 $kiriwrite_presmodule->endcell();
5444                 $kiriwrite_presmodule->addcell("tablecell2");
5445                 $kiriwrite_presmodule->addtextbox("newlayout", { Rows => 10, Columns => 50, Value => $template_layout});
5446                 $kiriwrite_presmodule->addlinebreak();
5447                 $kiriwrite_presmodule->addlinebreak();
5448                 $kiriwrite_presmodule->startbox("datalist");
5449                 $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{common}->{tags});
5450                 $kiriwrite_presmodule->addlinebreak();
5451                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagecontent});
5452                 $kiriwrite_presmodule->addlinebreak();
5453                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagetitle});
5454                 $kiriwrite_presmodule->addlinebreak();
5455                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagename});
5456                 $kiriwrite_presmodule->addlinebreak();
5457                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagedescription});
5458                 $kiriwrite_presmodule->addlinebreak();
5459                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagesection});
5460                 $kiriwrite_presmodule->addlinebreak();
5461                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautosection});
5462                 $kiriwrite_presmodule->addlinebreak();
5463                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautotitle});
5464                 $kiriwrite_presmodule->addlinebreak();
5465                 $kiriwrite_presmodule->endbox();
5466                 $kiriwrite_presmodule->endcell();
5467                 $kiriwrite_presmodule->endrow();
5468
5469                 $kiriwrite_presmodule->endtable();
5470
5471                 $kiriwrite_presmodule->addlinebreak();
5472
5473                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{template}->{edittemplatebutton});
5474                 $kiriwrite_presmodule->addtext(" | ");
5475                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{restorecurrent});
5476                 $kiriwrite_presmodule->addtext(" | ");
5477                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template", { Text => $kiriwrite_lang->{template}->{returntemplatelist} });
5478
5479                 $kiriwrite_presmodule->endform();
5480
5481         }
5482
5483         # Disconnect from the database server.
5484
5485         $kiriwrite_dbmodule->disconnect();
5486
5487         return $kiriwrite_presmodule->grab();
5488
5489 }
5490
5491 sub kiriwrite_template_delete{
5492 #################################################################################
5493 # kiriwrite_template_delete: Delete a template from the template folder.        #
5494 #                                                                               #
5495 # Usage:                                                                        #
5496 #                                                                               #
5497 # kiriwrite_template_delete(filename, confirm);                                 #
5498 #                                                                               #
5499 # filename      Specifies the filename of the database to delete.               #
5500 # confirm       Confirms the action to delete a template.                       #
5501 #################################################################################
5502
5503         # Get the parameters that were passed to the subroutine.
5504
5505         my ($template_filename, $template_confirm) = @_;
5506
5507         if (!$template_confirm){
5508                 $template_confirm = 0;
5509         }
5510
5511         # Check the length of the variables.
5512         kiriwrite_variablecheck($template_filename, "maxlength", 64, 0);
5513         kiriwrite_variablecheck($template_confirm, "maxlength", 1, 0);
5514
5515         # Check if the template_name string is blank and if it is then
5516         # return an error (as the template_name string should not be
5517         # blank.
5518
5519         if (!$template_filename){
5520
5521                 # The template_filename string really is blank,
5522                 # so return an error saying that an empty
5523                 # filename was passed (to the subroutine).
5524
5525                 kiriwrite_error("templatefilenameblank");
5526
5527         }
5528
5529         # Check if the template_confirm string is blank and if it is, write
5530         # out a form asking the user to confirm the deletion.
5531
5532         if ($template_confirm eq 1){
5533
5534                 # The action to delete the template from the template database has
5535                 # been confirmed so delete the template.
5536
5537                 # Connect to the database server.
5538
5539                 $kiriwrite_dbmodule->connect();
5540
5541                 # Check if any errors occured while connecting to the database server.
5542
5543                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
5544
5545                         # A database connection error has occured so return
5546                         # an error.
5547
5548                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
5549
5550                 }
5551
5552                 # Check if the template database exists and the file permissions
5553                 # are valid and return an error if they aren't.
5554
5555                 $kiriwrite_dbmodule->connecttemplate();
5556
5557                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
5558
5559                         # The template database does not exist so write a warning
5560                         # message.
5561
5562                         kiriwrite_error("templatedatabasemissing");
5563
5564                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5565
5566                         # The template database has invalid permissions set so
5567                         # return an error.
5568
5569                         kiriwrite_error("templatedatabaseinvalidpermissions");
5570
5571                 }
5572
5573                 my %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template_filename });
5574
5575                 # Check if any error occured while getting the template information.
5576
5577                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5578
5579                         # A database error has occured, so return an error.
5580
5581                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5582
5583                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5584
5585                         # The template does not exist, so return an error.
5586
5587                         kiriwrite_error("templatedoesnotexist");
5588
5589                 }
5590
5591                 # Delete the selected template.
5592
5593                 $kiriwrite_dbmodule->deletetemplate({ TemplateFilename => $template_filename });
5594
5595                 # Check if any error occured while deleting the template.
5596
5597                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5598
5599                         # A database error has occured, so return an error.
5600
5601                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5602
5603                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5604
5605                         # The template does not exist, so process the next template.
5606
5607                         kiriwrite_error("templatedoesnotexist");
5608
5609                 }
5610
5611                 $kiriwrite_dbmodule->disconnecttemplate();
5612
5613                 # Get the deleted database name.
5614
5615                 my $database_template_name = $template_info{"TemplateName"};
5616
5617                 # Disconnect from the database server.
5618
5619                 $kiriwrite_dbmodule->disconnect();
5620
5621                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{deletedtemplate}, { Style => "pageheader" });
5622                 $kiriwrite_presmodule->addlinebreak();
5623                 $kiriwrite_presmodule->addlinebreak();
5624                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{template}->{deletedtemplatemessage}, $database_template_name) );
5625                 $kiriwrite_presmodule->addlinebreak();
5626                 $kiriwrite_presmodule->addlinebreak();
5627                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template", { Text => $kiriwrite_lang->{template}->{returntemplatelist} });
5628
5629                 return $kiriwrite_presmodule->grab();
5630
5631         } elsif ($template_confirm eq 0) {
5632
5633                 # The template confirm value is 0 (previously blank and then set to 0), so
5634                 # write out a form asking the user to confirm the deletion of the template.
5635
5636                 # Connect to the database server.
5637
5638                 $kiriwrite_dbmodule->connect();
5639
5640                 # Check if any errors occured while connecting to the database server.
5641
5642                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
5643
5644                         # A database connection error has occured so return
5645                         # an error.
5646
5647                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
5648
5649                 }
5650
5651                 # Connect to the template database.
5652
5653                 $kiriwrite_dbmodule->connecttemplate();
5654
5655                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
5656
5657                         # The template database does not exist so write a warning
5658                         # message.
5659
5660                         kiriwrite_error("templatedatabasemissing");
5661
5662                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5663
5664                         # The template database has invalid permissions set so
5665                         # return an error.
5666
5667                         kiriwrite_error("templatedatabaseinvalidpermissions");
5668
5669                 }
5670
5671                 my %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template_filename });
5672
5673                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5674
5675                         # A database error has occured, so return an error.
5676
5677                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5678
5679                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5680
5681                         # The template does not exist, so return an error.
5682
5683                         kiriwrite_error("templatedoesnotexist");
5684
5685                 }
5686
5687                 my $template_data_filename      = $template_info{"TemplateFilename"};
5688                 my $template_data_name          = $template_info{"TemplateName"};
5689
5690                 $kiriwrite_dbmodule->disconnecttemplate();
5691
5692                 # Disconnect from the database server.
5693
5694                 $kiriwrite_dbmodule->disconnect();
5695
5696                 # Write out the confirmation form.
5697
5698                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{deletetemplate}, { Style => "pageheader" });
5699                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
5700                 $kiriwrite_presmodule->addhiddendata("mode", "template");
5701                 $kiriwrite_presmodule->addhiddendata("template", $template_filename);
5702                 $kiriwrite_presmodule->addhiddendata("action", "delete");
5703                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
5704                 $kiriwrite_presmodule->addlinebreak();
5705                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{template}->{deletetemplatemessage}, $template_data_name, $template_data_filename));
5706                 $kiriwrite_presmodule->addlinebreak();
5707                 $kiriwrite_presmodule->addlinebreak();
5708                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{template}->{deletetemplatebutton});
5709                 $kiriwrite_presmodule->addtext(" | ");
5710                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template", { Text => $kiriwrite_lang->{template}->{deletetemplatereturntolist} });
5711                 $kiriwrite_presmodule->endform();
5712
5713                 return $kiriwrite_presmodule->grab();
5714
5715         } else {
5716
5717                         kiriwrite_error("invalidvariable");
5718
5719         }
5720
5721 }
5722
5723 sub kiriwrite_template_list{
5724 #################################################################################
5725 # kiriwrite_template_list: List the templates in the template folder.           #
5726 #                                                                               #
5727 # Usage:                                                                        #
5728 #                                                                               #
5729 # kiriwrite_template_list();                                                    #
5730 #################################################################################
5731
5732         # Define certain values for later.
5733
5734         my %template_info;
5735
5736         my @templates_list;
5737
5738         my $template;
5739         my $template_filename           = "";
5740         my $template_filename_list      = "";
5741         my $template_name               = "";
5742         my $template_description        = "";
5743         my $template_data               = "";
5744
5745         my $template_count = 0;
5746
5747         my $template_style = 0;
5748         my $template_stylename = "";
5749
5750         my $templatewarning = "";
5751
5752         # Connect to the database server.
5753
5754         $kiriwrite_dbmodule->connect();
5755
5756         # Check if any errors occured while connecting to the database server.
5757
5758         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
5759
5760                 # A database connection error has occured so return
5761                 # an error.
5762
5763                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
5764
5765         }
5766
5767         # Connect to the template database.
5768
5769         $kiriwrite_dbmodule->connecttemplate();
5770
5771         # Check if any errors had occured.
5772
5773         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
5774
5775                 # The template database does not exist so write a warning
5776                 # message.
5777
5778                 $templatewarning = $kiriwrite_lang->{template}->{templatedatabasedoesnotexist};
5779
5780         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5781
5782                 # The template database has invalid permissions set so
5783                 # return an error.
5784
5785                 kiriwrite_error("templatedatabaseinvalidpermissions");
5786
5787         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5788
5789                 # A database error occured while getting the list of
5790                 # templates so return an error with the extended
5791                 # error information.
5792
5793                 kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5794
5795         }
5796
5797         # Get the list of template databases.
5798
5799         if (!$templatewarning){
5800
5801                 @templates_list = $kiriwrite_dbmodule->gettemplatelist();
5802
5803         }
5804
5805         # Check if any errors had occured.
5806
5807         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5808
5809                 # A database error occured while getting the list
5810                 # of templates so return an error with the
5811                 # extended error information.
5812
5813                 kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5814
5815         }
5816
5817         # Check if any templates are in the database and if there isn't
5818         # then write a message saying that there are no templates in the
5819         # database.
5820
5821         if (!@templates_list && !$templatewarning){
5822                 $templatewarning = $kiriwrite_lang->{template}->{notemplatesavailable};
5823         }
5824
5825         # Process the templates into a template list.
5826
5827         $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{viewtemplates}, { Style => "pageheader" });
5828         $kiriwrite_presmodule->addlinebreak();
5829         $kiriwrite_presmodule->addlinebreak();
5830
5831         if ($templatewarning){
5832
5833                 $kiriwrite_presmodule->startbox("errorbox");
5834                 $kiriwrite_presmodule->addtext($templatewarning);
5835                 $kiriwrite_presmodule->endbox();
5836
5837         } else {
5838
5839                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
5840                 $kiriwrite_presmodule->startheader();
5841                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{template}->{templatefilename}, { Style => "tablecellheader" });
5842                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{template}->{templatename}, { Style => "tablecellheader" });
5843                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{template}->{templatedescription}, { Style => "tablecellheader" });
5844                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{options}, { Style => "tablecellheader" });
5845                 $kiriwrite_presmodule->endheader();
5846
5847                 foreach $template (@templates_list){
5848
5849                         # Get the template data.
5850
5851                         %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template });
5852
5853                         # Check if any errors occured while trying to get the template
5854                         # data.
5855
5856                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5857
5858                                 # A database error has occured, so return an error.
5859
5860                                 kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5861
5862                         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5863
5864                                 # The template does not exist, so process the next template.
5865
5866                                 next;
5867
5868                         }
5869
5870                         $template_filename      = $template_info{"TemplateFileName"};
5871                         $template_name          = $template_info{"TemplateName"};
5872                         $template_description   = $template_info{"TemplateDescription"};
5873
5874                         # Check what style the row of table cells should be.
5875
5876                         if ($template_style eq 0){
5877
5878                                 $template_stylename = "tablecell1";
5879                                 $template_style = 1;
5880
5881                         } else {
5882
5883                                 $template_stylename = "tablecell2";
5884                                 $template_style = 0;
5885
5886                         }
5887
5888                         $kiriwrite_presmodule->startrow();
5889                         $kiriwrite_presmodule->addcell($template_stylename);
5890                         $kiriwrite_presmodule->addtext($template_info{"TemplateFilename"});
5891
5892                         # Check if the blank template value was set.
5893
5894                         if (!$template_info{"TemplateLayout"}){
5895                                 $kiriwrite_presmodule->additalictext(" " . "[Blank Template]");
5896                         }
5897
5898                         $kiriwrite_presmodule->endcell();
5899                         $kiriwrite_presmodule->addcell($template_stylename);
5900
5901                         # Check if the template name is blank and if it is
5902                         # write a message to say there's no name for the
5903                         # template.
5904
5905                         if (!$template_info{"TemplateName"}){
5906                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
5907                         } else {
5908                                 $kiriwrite_presmodule->addtext($template_info{"TemplateName"});
5909                         }
5910
5911                         $kiriwrite_presmodule->endcell();
5912                         $kiriwrite_presmodule->addcell($template_stylename);
5913
5914                         # Check if the template description is blank and if
5915                         # it is then write a message to say there's no
5916                         # description for the template.
5917
5918                         if (!$template_info{"TemplateDescription"}){
5919                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{nodescription});
5920                         } else {
5921                                 $kiriwrite_presmodule->addtext($template_info{"TemplateDescription"});
5922                         }
5923
5924                         $kiriwrite_presmodule->endcell();
5925                         $kiriwrite_presmodule->addcell($template_stylename);
5926                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template&action=edit&template=" . $template_info{"TemplateFilename"}, { Text => $kiriwrite_lang->{options}->{edit} });
5927                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template&action=delete&template=" . $template_info{"TemplateFilename"}, { Text => $kiriwrite_lang->{options}->{delete} });
5928                         $kiriwrite_presmodule->endcell();
5929                         $kiriwrite_presmodule->endrow();
5930
5931                 }
5932
5933                 $kiriwrite_presmodule->endtable();
5934                 $kiriwrite_presmodule->endform();
5935
5936         }
5937
5938         # Disconnect from the database server.
5939
5940         $kiriwrite_dbmodule->disconnect();
5941
5942         $kiriwrite_dbmodule->disconnecttemplate();
5943         return $kiriwrite_presmodule->grab();
5944
5945
5946 }
5947
5948 sub kiriwrite_database_add{
5949 #################################################################################
5950 # kiriwrite_database_add: Creates a new database.                               #
5951 #                                                                               #
5952 # Usage:                                                                        #
5953 #                                                                               #
5954 # kiriwrite_database_add(filename, name, description, [confirm]);               #
5955 #                                                                               #
5956 # filename      Specifies the filename for the database.                        #
5957 # name          Specifies a (friendly) name for the database.                   #
5958 # description   Specifies a description for the database.                       #
5959 # confirm       Confirms the action to create a database.                       #
5960 #################################################################################
5961
5962         # Get the variables passed from the subroutine.
5963
5964         my ($database_filename, $database_name, $database_description, $database_notes, $database_categories, $database_confirm) = @_;
5965
5966         # Check if the confirm value is blank and if it is then
5967         # set the confirm value to 0.
5968
5969         if (!$database_confirm){
5970
5971                 # The confirm value was blank so set the value to 0.
5972
5973                 $database_confirm = 0;
5974
5975         }
5976
5977         if ($database_confirm eq 1){
5978
5979                 # The action to create a new database is confirmed.
5980
5981                 # Validate the database name and database descriptions.
5982
5983                 my $database_name_check_utf8            = kiriwrite_variablecheck($database_name, "utf8", 0, 0);
5984                 my $database_description_check_utf8     = kiriwrite_variablecheck($database_description, "utf8", 0, 0);
5985                 my $database_notes_check_utf8           = kiriwrite_variablecheck($database_notes, "utf8", 0, 0);
5986                 my $database_categories_check_utf8      = kiriwrite_variablecheck($database_categories, "utf8", 0, 0);
5987
5988                 # Convert the UTF8 strings before checking the length of the strings.
5989
5990                 $database_name                  = kiriwrite_utf8convert($database_name);
5991                 $database_description           = kiriwrite_utf8convert($database_description);
5992                 $database_notes                 = kiriwrite_utf8convert($database_notes);
5993                 $database_categories            = kiriwrite_utf8convert($database_categories);
5994
5995                 my $database_name_check_blank           = kiriwrite_variablecheck($database_name, "blank", 0, 1);
5996                 my $database_name_check_length          = kiriwrite_variablecheck($database_name, "maxlength", 256, 1);
5997                 my $database_description_check_length   = kiriwrite_variablecheck($database_description, "maxlength", 512, 1);
5998                 my $database_filename_check_length      = kiriwrite_variablecheck($database_filename, "maxlength", 32, 1);
5999                 my $database_categories_check_length    = kiriwrite_variablecheck($database_categories, "maxlength", 512, 1);
6000
6001                 # Check if values returned contains any values that would
6002                 # result in a specific error message being returned.
6003
6004                 if ($database_name_check_length eq 1){
6005
6006                         # The length of the database name is too long, so return an error.
6007                         kiriwrite_error("databasenametoolong");
6008
6009                 }
6010
6011                 if ($database_description_check_length eq 1){
6012
6013                         # The database description length is too long, so return an error.
6014                         kiriwrite_error("databasedescriptiontoolong");
6015
6016                 }
6017
6018                 if ($database_name_check_blank eq 1){
6019
6020                         # The database name is blank, so return an error.
6021                         kiriwrite_error("databasenameblank");
6022
6023                 }
6024
6025                 if ($database_filename_check_length eq 1){
6026
6027                         # The database filename is to long, so return an error.
6028                         kiriwrite_error("databasefilenametoolong");
6029
6030                 }
6031
6032                 if ($database_categories_check_length eq 1){
6033
6034                         # The database categories is too long, so return an error.
6035                         kiriwrite_error("databasecategoriestoolong");
6036
6037                 }
6038
6039                 # Check if the database filename is blank and if it is then
6040                 # generate a filename.
6041
6042                 if ($database_filename eq ""){
6043
6044                         # Filename is blank so generate a file name from
6045                         # the database name.
6046
6047                         $database_filename = kiriwrite_processfilename($database_name);
6048
6049                 } else {
6050
6051                         # Filename is not blank so don't generate a filename.
6052
6053                 }
6054
6055                 kiriwrite_variablecheck($database_filename, "filename", "", 0);
6056                 kiriwrite_variablecheck($database_filename, "maxlength", 32, 0);
6057
6058                 # Connect to the database server.
6059
6060                 $kiriwrite_dbmodule->connect();
6061
6062                 # Check if any errors occured while connecting to the database server.
6063
6064                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
6065
6066                         # A database connection error has occured so return
6067                         # an error.
6068
6069                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
6070
6071                 }
6072
6073                 my $database_name_final = $database_name;
6074
6075                 # Create the database.
6076
6077                 $kiriwrite_dbmodule->adddatabase({ DatabaseFilename => $database_filename, DatabaseName => $database_name, DatabaseDescription => $database_description, DatabaseNotes => $database_notes, DatabaseCategories => $database_categories, VersionMajor => $kiriwrite_version{"major"}, VersionMinor => $kiriwrite_version{"minor"}, VersionRevision => $kiriwrite_version{"revision"} });
6078
6079                 # Check if any errors have occured.
6080
6081                 if ($kiriwrite_dbmodule->geterror eq "DatabaseExists"){
6082
6083                         # A database with the filename given already exists, so
6084                         # return an error.
6085
6086                         kiriwrite_error("fileexists");
6087
6088                 } elsif ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6089
6090                         # A database error has occured so return an error with
6091                         # the extended error information.
6092
6093                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
6094
6095                 }
6096
6097                 # Disconnect from the database server.
6098
6099                 $kiriwrite_dbmodule->disconnect();
6100
6101                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{adddatabase}, { Style => "pageheader" });
6102                 $kiriwrite_presmodule->addlinebreak();
6103                 $kiriwrite_presmodule->addlinebreak();
6104                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{database}->{databaseadded} , $database_name_final));
6105                 $kiriwrite_presmodule->addlinebreak();
6106                 $kiriwrite_presmodule->addlinebreak();
6107                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{databaselistreturnlink} });
6108
6109                 return $kiriwrite_presmodule->grab();
6110
6111         }
6112
6113         # There is confirm value is not 1, so write a form for creating a database to
6114         # store pages in.
6115
6116         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{adddatabase}, { Style => "pageheader" });
6117         $kiriwrite_presmodule->addlinebreak();
6118         $kiriwrite_presmodule->addlinebreak();
6119         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
6120         $kiriwrite_presmodule->addhiddendata("mode", "db");
6121         $kiriwrite_presmodule->addhiddendata("action", "new");
6122         $kiriwrite_presmodule->addhiddendata("confirm", "1");
6123         $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
6124
6125         $kiriwrite_presmodule->startheader();
6126         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader"});
6127         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader"});
6128         $kiriwrite_presmodule->endheader();
6129
6130         $kiriwrite_presmodule->startrow();
6131         $kiriwrite_presmodule->addcell("tablecell1");
6132         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasename});
6133         $kiriwrite_presmodule->endcell();
6134         $kiriwrite_presmodule->addcell("tablecell2");
6135         $kiriwrite_presmodule->addinputbox("databasename", { Size => 64, MaxLength => 256 });
6136         $kiriwrite_presmodule->endcell();
6137         $kiriwrite_presmodule->endrow();
6138
6139         $kiriwrite_presmodule->startrow();
6140         $kiriwrite_presmodule->addcell("tablecell1");
6141         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasedescription});
6142         $kiriwrite_presmodule->endcell();
6143         $kiriwrite_presmodule->addcell("tablecell2");
6144         $kiriwrite_presmodule->addinputbox("databasedescription", { Size => 64, MaxLength => 512 });
6145         $kiriwrite_presmodule->endcell();
6146         $kiriwrite_presmodule->endrow();
6147
6148         $kiriwrite_presmodule->startrow();
6149         $kiriwrite_presmodule->addcell("tablecell1");
6150         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasecategories});
6151         $kiriwrite_presmodule->endcell();
6152         $kiriwrite_presmodule->addcell("tablecell2");
6153         $kiriwrite_presmodule->addinputbox("databasecategories", { Size => 64, MaxLength => 512 });
6154         $kiriwrite_presmodule->endcell();
6155         $kiriwrite_presmodule->endrow();
6156
6157         $kiriwrite_presmodule->startrow();
6158         $kiriwrite_presmodule->addcell("tablecell1");
6159         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasenotes});
6160         $kiriwrite_presmodule->endcell();
6161         $kiriwrite_presmodule->addcell("tablecell2");
6162         $kiriwrite_presmodule->addtextbox("databasenotes", { Columns => 50, Rows => 10, WordWrap => 0 });
6163         $kiriwrite_presmodule->endcell();
6164         $kiriwrite_presmodule->endrow();
6165
6166         $kiriwrite_presmodule->startrow();
6167         $kiriwrite_presmodule->addcell("tablecell1");
6168         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasefilename});
6169         $kiriwrite_presmodule->endcell();
6170         $kiriwrite_presmodule->addcell("tablecell2");
6171         $kiriwrite_presmodule->addinputbox("databasefilename", { Size => 32, MaxLength => 32 });
6172         $kiriwrite_presmodule->startlist();
6173         $kiriwrite_presmodule->additem($kiriwrite_lang->{database}->{adddatabaseautogenerate});
6174         $kiriwrite_presmodule->additem($kiriwrite_lang->{database}->{adddatabasenoextensions});
6175         $kiriwrite_presmodule->additem($kiriwrite_lang->{database}->{adddatabasecharacterlength});
6176         $kiriwrite_presmodule->additem($kiriwrite_lang->{database}->{adddatabasecharacters});
6177         $kiriwrite_presmodule->endlist();
6178         $kiriwrite_presmodule->endcell();
6179         $kiriwrite_presmodule->endrow();
6180
6181         $kiriwrite_presmodule->endtable();
6182         $kiriwrite_presmodule->addlinebreak();
6183         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{database}->{adddatabasebutton});
6184         $kiriwrite_presmodule->addtext("|");
6185         $kiriwrite_presmodule->addreset($kiriwrite_lang->{database}->{clearvaluesbutton});
6186         $kiriwrite_presmodule->addtext("| ");
6187         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{databaselistreturnlink} });
6188         $kiriwrite_presmodule->endform();
6189
6190         # Exit the subroutine taking the data in the pagadata variable with it.
6191
6192         return $kiriwrite_presmodule->grab();
6193
6194 }
6195
6196 sub kiriwrite_database_edit{
6197 #################################################################################
6198 # kiriwrite_database_edit: Edits an database.                                   #
6199 #                                                                               #
6200 # Usage:                                                                        #
6201 #                                                                               #
6202 # kiriwrite_database_edit(filename, name, description, newfilename, newname,    #
6203 #                               newdescription, notes, categories, [confirm]);  #
6204 #                                                                               #
6205 # filename              Specifies the filename of the database.                 #
6206 # name                  Specifies the name of the database.                     #
6207 # description           Specifies the description of the database.              #
6208 # newfilename           Specifies the new filename of the database.             #
6209 # newname               Specifies the new name of the database.                 #
6210 # newdescription        Specifies the new description of the database.          #
6211 # notes                 Specifies the new notes of the database.                #
6212 # categories            Specifies the new categories of the database.           #
6213 # confirm               Confirms the action to edit a database.                 #
6214 #################################################################################
6215
6216         # First, get all the variables passed to the subroutine.
6217
6218         my ($database_shortname, $database_name, $database_description, $database_newfilename, $database_newname, $database_newdescription, $database_notes, $database_categories, $database_confirm) = @_;
6219
6220         # Check if the database confirm value is blank and if it is
6221         # set the confirm value to 0.
6222
6223         if (!$database_confirm){
6224
6225                 $database_confirm = 0;
6226
6227         }
6228
6229         # Check if the confirm variable has a value in it, if it has, check again to make sure it really is the correct value (Perl moans
6230         # if $database_confirm was used directly).
6231
6232         if ($database_confirm eq 1){
6233
6234                 # Check if the new data passes the validation tests below. First, check the length of the variables.
6235
6236                 my $database_name_check_utf8            = kiriwrite_variablecheck($database_newname, "utf8", 0, 0);
6237                 my $database_description_check_utf8     = kiriwrite_variablecheck($database_newdescription, "utf8", 0, 0);
6238                 my $database_notes_check_utf8           = kiriwrite_variablecheck($database_notes, "utf8", 0, 0);
6239                 my $database_categories_check_utf8      = kiriwrite_variablecheck($database_categories, "utf8", 0, 0);
6240
6241                 # Convert the UTF8 strings to make sure their length is accurate.
6242
6243                 $database_newname               = kiriwrite_utf8convert($database_newname);
6244                 $database_newdescription        = kiriwrite_utf8convert($database_newdescription);
6245                 $database_notes                 = kiriwrite_utf8convert($database_notes);
6246                 $database_categories            = kiriwrite_utf8convert($database_categories);
6247
6248                 # Check if the database filename given is valid and return an error
6249                 # if it isn't.
6250
6251                 kiriwrite_variablecheck($database_shortname, "filename", "", 0);
6252
6253                 # Preform the following tests.
6254
6255                 my $database_filename_check_length      = kiriwrite_variablecheck($database_newfilename, "maxlength", 32, 1);
6256                 my $database_filename_letnum            = kiriwrite_variablecheck($database_newfilename, "filename", 0, 0);
6257                 my $database_name_check_length          = kiriwrite_variablecheck($database_newname, "maxlength", 256, 1);
6258                 my $database_description_check_length   = kiriwrite_variablecheck($database_newdescription, "maxlength", 512, 1);
6259                 my $database_categories_check_length    = kiriwrite_variablecheck($database_categories, "maxlength", 512, 1);
6260                 my $database_name_check_blank           = kiriwrite_variablecheck($database_newname, "blank", 0, 1);
6261
6262                 # Check if the data is valid and return a specific error if it doesn't.
6263
6264                 if ($database_name_check_length eq 1){
6265
6266                         # The length of the database name is too long, so return an error.
6267                         kiriwrite_error("databasenametoolong");
6268
6269                 }
6270
6271                 if ($database_description_check_length eq 1){
6272
6273                         # The database description length is too long, so return an error.
6274                         kiriwrite_error("databasedescriptiontoolong");
6275
6276                 }
6277
6278                 if ($database_name_check_blank eq 1){
6279
6280                         # The database name is blank, so return an error.
6281                         kiriwrite_error("databasenameblank");
6282
6283                 }
6284
6285                 if ($database_filename_check_length eq 1){
6286
6287                         # The database filename is too long, so return an error.
6288                         kiriwrite_error("databasefilenametoolong");
6289
6290                 }
6291
6292                 if ($database_categories_check_length eq 1){
6293
6294                         # The database categories is too long, so return an error.
6295                         kiriwrite_error("databasecategoriestoolong");
6296
6297                 }
6298
6299                 # Connect to the database server.
6300
6301                 $kiriwrite_dbmodule->connect();
6302
6303                 # Check if any errors occured while connecting to the database server.
6304
6305                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
6306
6307                         # A database connection error has occured so return
6308                         # an error.
6309
6310                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
6311
6312                 }
6313
6314                 # Get the database.
6315
6316                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database_shortname });
6317
6318                 # Check if any errors had occured while selecting the database.
6319
6320                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6321
6322                         # The database does not exist, so return an error.
6323
6324                         kiriwrite_error("databasemissingfile");
6325
6326                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
6327
6328                         # The database has invalid permissions set, so return
6329                         # an error.
6330
6331                         kiriwrite_error("databaseinvalidpermissions");
6332
6333                 }
6334
6335                 # FIX THIS!! >O
6336
6337                 $kiriwrite_dbmodule->editdatabase({ DatabaseNewFilename => $database_newfilename, DatabaseName => $database_newname , DatabaseDescription => $database_newdescription , DatabaseNotes => $database_notes, DatabaseCategories => $database_categories });
6338
6339                 # Check if any errors had occured while using the database.
6340
6341                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6342
6343                         # The database does not exist, so return an error.
6344
6345                         kiriwrite_error("databasemissingfile");
6346
6347                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
6348
6349                         # The database has invalid permissions set, so return
6350                         # an error.
6351
6352                         kiriwrite_error("databaseinvalidpermissions");
6353
6354                 } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
6355
6356                         # The database directory has invalid permissions set, so
6357                         # return an error.
6358
6359                         kiriwrite_error("datadirectoryinvalidpermissions");
6360
6361                 } elsif ($kiriwrite_dbmodule->geterror eq "DatabaseExists"){
6362
6363                         # A database already exists with the new filename, so
6364                         # return an error.
6365
6366                         kiriwrite_error("databasealreadyexists");
6367
6368                 } elsif ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6369
6370                         # A database error has occured so return an error with
6371                         # the extended error information.
6372
6373                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
6374
6375                 }
6376
6377                 # Disconnect from the server.
6378
6379                 $kiriwrite_dbmodule->disconnect();
6380
6381                 # Write out a message saying that the database has been updated.
6382
6383                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{editeddatabase}, { Style => "pageheader" } );
6384                 $kiriwrite_presmodule->addlinebreak();
6385                 $kiriwrite_presmodule->addlinebreak();
6386                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{database}->{databaseupdated}, $database_newname));
6387                 $kiriwrite_presmodule->addlinebreak();
6388                 $kiriwrite_presmodule->addlinebreak();
6389                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{databaselistreturnlink} });
6390
6391                 return $kiriwrite_presmodule->grab();
6392
6393         } else {
6394
6395                 my (%database_info);
6396
6397                 # Check if the database filename given is valid and return an error
6398                 # if it isn't.
6399
6400                 # Connect to the database server.
6401
6402                 $kiriwrite_dbmodule->connect();
6403
6404                 # Check if any errors occured while connecting to the database server.
6405
6406                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
6407
6408                         # A database connection error has occured so return
6409                         # an error.
6410
6411                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
6412
6413                 }
6414
6415                 # Select the database.
6416
6417                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database_shortname });
6418
6419                 # Check if any errors had occured while setting the database.
6420
6421                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6422
6423                         # The database does not exist, so return an error.
6424
6425                         kiriwrite_error("databasemissingfile");
6426
6427                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
6428
6429                         # The database has invalid permissions set, so return
6430                         # an error.
6431
6432                         kiriwrite_error("databaseinvalidpermissions");
6433
6434                 }
6435
6436                 # Get the database information.
6437
6438                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
6439
6440                 # Check if any errors had occured while getting the database
6441                 # information.
6442
6443                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6444
6445                         # A database error has occured so return an error and
6446                         # also the extended error information.
6447
6448                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
6449
6450                 }
6451
6452                 # Get the values needed from the kiriwrite_database_info table.
6453
6454                 my $database_oldname            = $database_info{"DatabaseName"};
6455                 my $database_olddescription     = $database_info{"Description"};
6456                 my $database_notes              = $database_info{"Notes"};
6457                 my $database_categories         = $database_info{"Categories"};
6458
6459                 # Disconnect from the database server.
6460
6461                 $kiriwrite_dbmodule->disconnect();
6462
6463                 # Print out the form for editing a database's settings.
6464
6465                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{database}->{editdatabase}, $database_oldname), { Style => "pageheader" });
6466                 $kiriwrite_presmodule->addlinebreak();
6467                 $kiriwrite_presmodule->addlinebreak();
6468                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
6469                 $kiriwrite_presmodule->addhiddendata("mode", "db");
6470                 $kiriwrite_presmodule->addhiddendata("action", "edit");
6471                 $kiriwrite_presmodule->addhiddendata("database", $database_shortname);
6472                 $kiriwrite_presmodule->addhiddendata("confirm", "1");
6473                 $kiriwrite_presmodule->addhiddendata("olddatabasename", $database_oldname);
6474                 $kiriwrite_presmodule->addhiddendata("olddatabasedescription", $database_olddescription);
6475
6476                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
6477                 $kiriwrite_presmodule->startheader();
6478                 $kiriwrite_presmodule->addheader("Setting", { Style => "tablecellheader" });
6479                 $kiriwrite_presmodule->addheader("Value", { Style => "tablecellheader" });
6480                 $kiriwrite_presmodule->endheader();
6481
6482                 $kiriwrite_presmodule->startrow();
6483                 $kiriwrite_presmodule->addcell("tablecell1");
6484                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasename});
6485                 $kiriwrite_presmodule->endcell();
6486                 $kiriwrite_presmodule->addcell("tablecell2");
6487                 $kiriwrite_presmodule->addinputbox("databasename", { Size => 64, MaxLength => 256, Value => $database_oldname } );
6488                 $kiriwrite_presmodule->endcell();
6489                 $kiriwrite_presmodule->endrow();
6490
6491                 $kiriwrite_presmodule->startrow();
6492                 $kiriwrite_presmodule->addcell("tablecell1");
6493                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasedescription});
6494                 $kiriwrite_presmodule->endcell();
6495                 $kiriwrite_presmodule->addcell("tablecell2");
6496                 $kiriwrite_presmodule->addinputbox("databasedescription", { Size => 64, MaxLength => 512, Value => $database_olddescription } );
6497                 $kiriwrite_presmodule->endcell();
6498                 $kiriwrite_presmodule->endrow();
6499
6500                 $kiriwrite_presmodule->startrow();
6501                 $kiriwrite_presmodule->addcell("tablecell1");
6502                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasecategories});
6503                 $kiriwrite_presmodule->endcell();
6504                 $kiriwrite_presmodule->addcell("tablecell2");
6505                 $kiriwrite_presmodule->addinputbox("databasecategories", { Size => 64, MaxLength => 512, Value => $database_categories } );
6506                 $kiriwrite_presmodule->endcell();
6507                 $kiriwrite_presmodule->endrow();
6508
6509                 $kiriwrite_presmodule->startrow();
6510                 $kiriwrite_presmodule->addcell("tablecell1");
6511                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasenotes});
6512                 $kiriwrite_presmodule->endcell();
6513                 $kiriwrite_presmodule->addcell("tablecell2");
6514                 $kiriwrite_presmodule->addtextbox("databasenotes", { Columns => 50, Rows => 10, Value => $database_notes } );
6515                 $kiriwrite_presmodule->endcell();
6516                 $kiriwrite_presmodule->endrow();
6517
6518                 $kiriwrite_presmodule->startrow();
6519                 $kiriwrite_presmodule->addcell("tablecell1");
6520                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasefilename});
6521                 $kiriwrite_presmodule->endcell();
6522                 $kiriwrite_presmodule->addcell("tablecell2");
6523                 $kiriwrite_presmodule->addinputbox("databasefilename", { Size => 32, MaxLength => 32, Value => $database_shortname } );
6524                 $kiriwrite_presmodule->endcell();
6525                 $kiriwrite_presmodule->endrow();
6526
6527                 $kiriwrite_presmodule->endtable();
6528
6529                 $kiriwrite_presmodule->addlinebreak();
6530
6531                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{database}->{editdatabasebutton});
6532                 $kiriwrite_presmodule->addtext(" | ");
6533                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{restorecurrent});
6534                 $kiriwrite_presmodule->addtext(" | ");
6535                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{databaselistreturnlink} });
6536
6537                 $kiriwrite_presmodule->endform();
6538
6539                 return $kiriwrite_presmodule->grab();
6540
6541         }
6542
6543         # The interpreter should not be here. So return an error saying invalid variable.
6544
6545         kiriwrite_error("invalidvariable");
6546
6547 }
6548
6549 sub kiriwrite_database_delete{
6550 #################################################################################
6551 # kiriwrite_database_delete: Deletes an database.                               #
6552 #                                                                               #
6553 # Usage:                                                                        #
6554 #                                                                               #
6555 # kiriwrite_database_delete(filename, [confirm]);                               #
6556 #                                                                               #
6557 # filename      Specifies the filename for the database to be deleted.          #
6558 # confirm       Confirms the action to delete a database.                       #
6559 #################################################################################
6560
6561         my ($database_filename, $database_confirm) = @_;
6562
6563         # Check if the confirm value is blank and if it is then set the
6564         # confirm value to 0.
6565
6566         if (!$database_confirm){
6567
6568                 $database_confirm = 0;
6569
6570         }
6571
6572         # Connect to the database server.
6573
6574         $kiriwrite_dbmodule->connect();
6575
6576         # Check if any errors occured while connecting to the database server.
6577
6578         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
6579
6580                 # A database connection error has occured so return
6581                 # an error.
6582
6583                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
6584
6585         }
6586
6587         # Check if the database filename given is valid and return an error
6588         # if it isn't.
6589
6590         kiriwrite_variablecheck($database_filename, "filename", "", 0);
6591
6592         # Check if the request to delete a database has been confirmed. If it has,
6593         # then delete the database itself.
6594
6595         if ($database_confirm eq 1){
6596                 # There is a value in the confirm variable of the HTTP query.
6597
6598                 # Select the database to delete and get the database name.
6599
6600                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database_filename });
6601
6602                 # Check if any error occured while selecting the database.
6603
6604                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6605
6606                         # The database does not exist so return an error.
6607
6608                         kiriwrite_error("databasemissingfile");
6609
6610                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet") {
6611
6612                         # The database has invalid permissions set so return
6613                         # an error.
6614
6615                         kiriwrite_error("databaseinvalidpermissions");
6616
6617                 }
6618
6619                 my %database_info       = $kiriwrite_dbmodule->getdatabaseinfo();
6620
6621                 # Check if any errors have occured while getting the database
6622                 # name.
6623
6624                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6625
6626                         # A database error has occured so return an error with
6627                         # the extended error information.
6628
6629                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
6630
6631                 }
6632
6633                 my $database_name = $database_info{"DatabaseName"};
6634
6635                 # Delete the selected database.
6636
6637                 $kiriwrite_dbmodule->deletedatabase({ DatabaseName => $database_filename });
6638
6639                 # Check if any error occured while deleting the database.
6640
6641                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6642
6643                         # The database does not exist so return an error.
6644
6645                         kiriwrite_error("databasemissingfile");
6646
6647                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet") {
6648
6649                         # The database has invalid permissions set so return
6650                         # an error.
6651
6652                         kiriwrite_error("databaseinvalidpermissions");
6653
6654                 }
6655
6656                 # Disconnect from the database server.
6657
6658                 $kiriwrite_dbmodule->disconnect();
6659
6660                 # Write a message saying that the database has been deleted.
6661
6662                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{deleteddatabase}, { Style => "pageheader" });
6663                 $kiriwrite_presmodule->addlinebreak();
6664                 $kiriwrite_presmodule->addlinebreak();
6665                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{database}->{deleteddatabasemessage}, $database_name));
6666                 $kiriwrite_presmodule->addlinebreak();
6667                 $kiriwrite_presmodule->addlinebreak();
6668                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{databaselistreturnlink} });
6669
6670                 return $kiriwrite_presmodule->grab();
6671
6672         }
6673
6674         # The action has not been confirmed, so write out a form asking the
6675         # user to confirm.
6676
6677         # Get the database name.
6678
6679         $kiriwrite_dbmodule->selectdb({ DatabaseName => $database_filename });
6680
6681         # Check if any error occured while selecting the database.
6682
6683         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6684
6685                 # The database does not exist so return an error.
6686
6687                 kiriwrite_error("databasemissingfile");
6688
6689         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet") {
6690
6691                 # The database has invalid permissions set so return
6692                 # an error.
6693
6694                 kiriwrite_error("databaseinvalidpermissions");
6695
6696
6697         }
6698
6699         # Check if any errors have occured.
6700
6701         my %database_info       = $kiriwrite_dbmodule->getdatabaseinfo();
6702
6703         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6704
6705                 # A database error has occured so return an error with
6706                 # the extended error information.
6707
6708                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
6709
6710         }
6711
6712         my $database_name = $database_info{"DatabaseName"};
6713
6714         # Disconnect from the database server.
6715
6716         $kiriwrite_dbmodule->disconnect();
6717
6718         # Write out the form to ask the user to confirm the deletion of the
6719         # selected database.
6720
6721         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{deletedatabase}, { Style => "pageheader" });
6722         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
6723         $kiriwrite_presmodule->addhiddendata("mode", "db");
6724         $kiriwrite_presmodule->addhiddendata("action", "delete");
6725         $kiriwrite_presmodule->addhiddendata("database", $database_filename);
6726         $kiriwrite_presmodule->addhiddendata("confirm", "1");
6727         $kiriwrite_presmodule->addlinebreak();
6728         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{database}->{deletedatabasemessage}, $database_name));
6729         $kiriwrite_presmodule->addlinebreak();
6730         $kiriwrite_presmodule->addlinebreak();
6731         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{database}->{deletedatabasebutton});
6732         $kiriwrite_presmodule->addtext(" | ");
6733         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{deletedatabasereturn} });
6734         $kiriwrite_presmodule->endform();
6735
6736         return $kiriwrite_presmodule->grab();
6737
6738 }
6739
6740 sub kiriwrite_database_list{
6741 #################################################################################
6742 # kiriwrite_database_list: Lists the databases available.                       #
6743 #                                                                               #
6744 # Usage:                                                                        #
6745 #                                                                               #
6746 # kiriwrite_database_list();                                                    #
6747 #################################################################################
6748
6749         # Connect to the database server.
6750
6751         $kiriwrite_dbmodule->connect();
6752
6753         # Check if any errors occured while connecting to the database server.
6754
6755         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
6756
6757                 # A database connection error has occured so return
6758                 # an error.
6759
6760                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
6761
6762         }
6763
6764         # Get the list of available databases and process any errors that
6765         # might have occured.
6766
6767         my @database_list = $kiriwrite_dbmodule->getdblist();
6768
6769         if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
6770
6771                 # The database directory is missing so return an error.
6772
6773                 kiriwrite_error("datadirectorymissing");
6774
6775         } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
6776
6777                 # The database directory has invalid permissions set so return
6778                 # an error.
6779
6780                 kiriwrite_error("datadirectoryinvalidpermissions");
6781
6782         }
6783
6784         # Declare the following variables that are going to be used before using
6785         # the foreach function.
6786
6787         my ($database_info, %database_info);
6788         my @error_list;
6789         my @permissions_list;
6790         my $database_count = 0;
6791         my $database_filename = "";
6792         my $database_filename_friendly = "";
6793         my $database_filename_length = 0;
6794         my $database_name = "";
6795         my $database_description = "";
6796         my $database_permissions = "";
6797         my $nodescription = 0;
6798         my $noname = 0;
6799         my $data_file = "";
6800         my $table_style = 0;
6801         my $table_style_name = "";
6802
6803         # Begin creating the table for the list of databases.
6804
6805         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaselist}, { Style => "pageheader" });
6806         $kiriwrite_presmodule->addlinebreak();
6807         $kiriwrite_presmodule->addlinebreak();
6808         $kiriwrite_presmodule->starttable("", { CellPadding => "5", CellSpacing => "0" });
6809         $kiriwrite_presmodule->startheader();
6810         $kiriwrite_presmodule->addheader($kiriwrite_lang->{database}->{databasename}, { Style => "tablecellheader" });
6811         $kiriwrite_presmodule->addheader($kiriwrite_lang->{database}->{databasedescription}, { Style => "tablecellheader" });
6812         $kiriwrite_presmodule->addheader($kiriwrite_lang->{database}->{databaseoptions}, { Style => "tablecellheader" });
6813         $kiriwrite_presmodule->endheader();
6814
6815         foreach $data_file (@database_list){
6816
6817                 # Select the database.
6818
6819                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $data_file });
6820
6821                 # Check if any error occured while selecting the database.
6822
6823                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6824
6825                         # The database does not exist, so process the next
6826                         # database.
6827
6828                         next;
6829
6830                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet") {
6831
6832                         # The database has invalid permissions settings, so
6833                         # add the database to the list of databases with
6834                         # invalid permissions set and process the next
6835                         # database.
6836
6837                         push(@permissions_list, $data_file);
6838                         next;
6839
6840                 }
6841
6842                 # Get information about the database.
6843
6844                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
6845
6846                 # Check if any error occured while getting information from the
6847                 # database.
6848
6849                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6850
6851                         # A database error has occured, add the database and specific
6852                         # error message to the list of databases with errors and
6853                         # process the next database.
6854
6855                         push(@error_list, $data_file . ": " . $kiriwrite_dbmodule->geterror(1));
6856                         next;
6857
6858                 }
6859
6860                 $database_name          = $database_info{"DatabaseName"};
6861                 $database_description   = $database_info{"Description"};
6862
6863                 # Check the style to be used with.
6864
6865                 if ($table_style eq 0){
6866
6867                         # Use the first style and set the style value
6868                         # to use the next style, the next time the
6869                         # if statement is checked.
6870
6871                         $table_style_name = "tablecell1";
6872                         $table_style = 1;
6873                 } else {
6874
6875                         # Use the second style and set the style
6876                         # value to use the first style, the next
6877                         # time if statement is checked.
6878
6879                         $table_style_name = "tablecell2";
6880                         $table_style = 0;
6881                 }
6882
6883                 # Create a friendly name for the database.
6884
6885                 $database_filename_friendly = $data_file;
6886
6887                 # Append the database information to the table.
6888
6889                 $kiriwrite_presmodule->startrow();
6890                 $kiriwrite_presmodule->addcell($table_style_name);
6891
6892                 if (!$database_name){
6893                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
6894                 } else {
6895                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database_filename_friendly, { Text => $database_name });
6896                 }
6897
6898                 $kiriwrite_presmodule->endcell();
6899                 $kiriwrite_presmodule->addcell($table_style_name);
6900
6901                 if (!$database_description){
6902                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{nodescription});
6903                 } else {
6904                         $kiriwrite_presmodule->addtext($database_description);
6905                 }
6906
6907                 $kiriwrite_presmodule->endcell();
6908                 $kiriwrite_presmodule->addcell($table_style_name);
6909                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=db&action=edit&database=" . $database_filename_friendly, { Text => $kiriwrite_lang->{options}->{edit} });
6910                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=compile&action=compile&type=single&database=" . $database_filename_friendly, { Text => $kiriwrite_lang->{options}->{compile} });
6911                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=db&action=delete&database=" . $database_filename_friendly, { Text => $kiriwrite_lang->{options}->{delete} });
6912                 $kiriwrite_presmodule->endrow();
6913
6914                 $database_count++;
6915                 $nodescription = 0;
6916                 $noname = 0;
6917
6918         }
6919
6920         $kiriwrite_presmodule->endtable();
6921
6922         # Disconnect from the database server.
6923
6924         $kiriwrite_dbmodule->disconnect();
6925
6926         # Check if there are no valid databases are if there is no
6927         # valid databases then write a message saying that no
6928         # valid databases are available.
6929
6930         if ($database_count eq 0){
6931
6932                 $kiriwrite_presmodule->clear();
6933                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaselist}, { Style => "pageheader" });
6934                 $kiriwrite_presmodule->addlinebreak();
6935                 $kiriwrite_presmodule->addlinebreak();
6936                 $kiriwrite_presmodule->startbox("errorbox");
6937                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{nodatabasesavailable});
6938                 $kiriwrite_presmodule->endbox();
6939
6940         }
6941
6942         # Check if any databases with problems have appeared and if they
6943         # have, print out a message saying which databases have problems.
6944
6945         if (@permissions_list){
6946
6947                 $kiriwrite_presmodule->addlinebreak();
6948                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseinvalidpermissions}, { Style => "smallpageheader" });
6949                 $kiriwrite_presmodule->addlinebreak();
6950                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseinvalidpermissionstext});
6951                 $kiriwrite_presmodule->addlinebreak();
6952
6953                 foreach $data_file (@permissions_list){
6954                         $kiriwrite_presmodule->addlinebreak();
6955                         $kiriwrite_presmodule->addtext($data_file);
6956                 }
6957
6958                 $kiriwrite_presmodule->addlinebreak();
6959
6960         }
6961
6962         if (@error_list){
6963
6964                 $kiriwrite_presmodule->addlinebreak();
6965                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseerrors}, { Style => "smallpageheader" });
6966                 $kiriwrite_presmodule->addlinebreak();
6967                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseerrorstext});
6968                 $kiriwrite_presmodule->addlinebreak();
6969
6970                 foreach $data_file (@error_list){
6971                         $kiriwrite_presmodule->addlinebreak();
6972                         $kiriwrite_presmodule->addtext($data_file);
6973                 }
6974
6975                 $kiriwrite_presmodule->addlinebreak();
6976
6977         }
6978
6979         return $kiriwrite_presmodule->grab();   # Return to the main part of the script with the processed information.
6980
6981 }
6982
6983
6984 sub kiriwrite_filter_list{
6985 #################################################################################
6986 # kiriwrite_filter_list: Lists the filters that will be used when compiling a   #
6987 # webpage.                                                                      #
6988 #                                                                               #
6989 # Usage:                                                                        #
6990 #                                                                               #
6991 # kiriwrite_filter_list();                                                      #
6992 #################################################################################
6993
6994         my $filtersdb_notexist = 0;
6995
6996         # Connect to the database server.
6997
6998         $kiriwrite_dbmodule->connect();
6999
7000         # Check if any errors occured while connecting to the database server.
7001
7002         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
7003
7004                 # A database connection error has occured so return
7005                 # an error.
7006
7007                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
7008
7009         }
7010
7011         # Connect to the filter database.
7012
7013         $kiriwrite_dbmodule->connectfilter();
7014
7015         # Check if any error has occured while connecting to the filter
7016         # database.
7017
7018         if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
7019
7020                 # The filter database does not exist.
7021
7022                 $filtersdb_notexist = 1;
7023
7024         } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7025
7026                 # The filter database has invalid permissions set so return
7027                 # an error.
7028
7029                 kiriwrite_error("filtersdbpermissions");
7030
7031         }
7032
7033         # Define some variables required for processing the filters list.
7034
7035         my %filter_list;
7036         my %filter_info;
7037         my @database_filters;
7038         my $blankfindfilter = 0;
7039         my $filterswarning = "";
7040         my $filter;
7041         my $filter_count = 0;
7042         my $filter_style = 0;
7043         my $filter_style_name = "";
7044
7045         tie(%filter_list, 'Tie::IxHash');
7046
7047         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{viewfilters}, { Style => "pageheader" });
7048         $kiriwrite_presmodule->addlinebreak();
7049         $kiriwrite_presmodule->addlinebreak();
7050
7051         # If the filters database exists then get the list of filters,
7052         # otherwise write a message saying that the filters database
7053         # does not exist and will be created when a filter is added.
7054
7055         if ($filtersdb_notexist eq 0){
7056
7057                 # Get the list of available filters.
7058
7059                 @database_filters       = $kiriwrite_dbmodule->getfilterlist();
7060
7061                 # Check if any errors occured while getting the list of filters.
7062
7063                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7064
7065                         # A database error has occured with the filters database.
7066
7067                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7068
7069                 }
7070
7071                 # Process each filter getting the priority, find setting and
7072                 # replace setting.
7073
7074                 foreach $filter (@database_filters){
7075
7076                         # Get the information about the filter.
7077
7078                         %filter_info = $kiriwrite_dbmodule->getfilterinfo({ FilterID => $filter });
7079
7080                         # Check if any errors occured while getting the filter information.
7081
7082                         if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7083
7084                                 # A database error occured while using the filter database.
7085
7086                                 kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7087
7088                         } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
7089
7090                                 # The filter does not exist so process the next filter.
7091
7092                                 next;
7093
7094                         }
7095
7096                         # Check if the find filter is blank.
7097
7098                         if (!$filter_info{"FilterFind"}){
7099
7100                                 # The find filter is blank, so set the value to write a warning
7101                                 # message saying that a find filter given is blank.
7102
7103                                 $blankfindfilter = 1;
7104
7105                         }
7106
7107                         $filter_list{$filter_count}{ID}         = $filter_info{"FilterID"};
7108                         $filter_list{$filter_count}{Priority}   = $filter_info{"FilterPriority"};
7109                         $filter_list{$filter_count}{Find}       = $filter_info{"FilterFind"};
7110                         $filter_list{$filter_count}{Replace}    = $filter_info{"FilterReplace"};
7111                         $filter_list{$filter_count}{Notes}      = $filter_info{"FilterNotes"};
7112
7113                         $filter_count++;
7114
7115                 }
7116
7117                 # Check if there are filters in the filters database and
7118                 # write a message if there isn't.
7119
7120                 if ($filter_count eq 0){
7121
7122                         # There are no filters in the filters database.
7123
7124                         $filterswarning = $kiriwrite_lang->{filter}->{nofiltersavailable};
7125
7126                 }
7127
7128         }
7129
7130         # Check if the database wasn't found and if it
7131         # wasn't then write a message saying that the
7132         # database will be created when a filter is
7133         # added.
7134
7135         if ($filtersdb_notexist eq 1){
7136
7137                 # The filters database doesn't exist so write
7138                 # a message.
7139
7140                 $filterswarning = $kiriwrite_lang->{filter}->{filterdatabasedoesnotexist};
7141
7142
7143         }
7144
7145         # Check if there is a warning message and if
7146         # there is then write that warning message
7147         # else write the list of filters.
7148
7149         if ($filterswarning){
7150
7151                 $kiriwrite_presmodule->startbox("errorbox");
7152                 $kiriwrite_presmodule->addtext($filterswarning);
7153                 $kiriwrite_presmodule->endbox();
7154
7155         } else {
7156
7157                 # The filters database exists so write out the
7158                 # list of filters.
7159
7160                 if ($blankfindfilter eq 1){
7161
7162                         $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{filter}->{warningtitle});
7163                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{blankfindfilters});
7164                         $kiriwrite_presmodule->addtext();
7165                         $kiriwrite_presmodule->addlinebreak();
7166                         $kiriwrite_presmodule->addlinebreak();
7167
7168                 }
7169
7170                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
7171
7172                 $kiriwrite_presmodule->startheader();
7173                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{filter}->{priority}, { Style => "tablecellheader" });
7174                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{filter}->{findsetting}, { Style => "tablecellheader" });
7175                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{filter}->{replacesetting}, { Style => "tablecellheader" });
7176                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{options}, { Style => "tablecellheader" });
7177                 $kiriwrite_presmodule->endheader();
7178
7179                 foreach $filter (keys %filter_list){
7180
7181                         # Check which style should be used.
7182
7183                         if ($filter_style eq 0){
7184
7185                                 $filter_style_name = "tablecell1";
7186                                 $filter_style = 1;
7187
7188                         } else {
7189
7190                                 $filter_style_name = "tablecell2";
7191                                 $filter_style = 0;
7192
7193                         }
7194
7195                         $kiriwrite_presmodule->startrow();
7196                         $kiriwrite_presmodule->addcell($filter_style_name);
7197                         $kiriwrite_presmodule->addtext($filter_list{$filter}{Priority});
7198                         $kiriwrite_presmodule->endcell();
7199                         $kiriwrite_presmodule->addcell($filter_style_name);
7200
7201                         # Check if the find filter is blank.
7202
7203                         if (!$filter_list{$filter}{Find}){
7204
7205                                 # The find filter is blank.
7206
7207                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{filter}->{blankfindsetting});
7208
7209                         } else {
7210
7211                                 # The find filter is not blank.
7212
7213                                 $kiriwrite_presmodule->addtext($filter_list{$filter}{Find});
7214
7215                         }
7216
7217                         $kiriwrite_presmodule->endcell();
7218                         $kiriwrite_presmodule->addcell($filter_style_name);
7219
7220                         # Check if the replace filter is blank.
7221
7222                         if (!$filter_list{$filter}{Replace}){
7223
7224                                 # The replace filter is blank.
7225
7226                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{filter}->{blankreplacesetting});
7227
7228                         } else {
7229
7230                                 # The replace filter is not blank.
7231
7232                                 $kiriwrite_presmodule->addtext($filter_list{$filter}{Replace});
7233
7234                         }
7235
7236                         $kiriwrite_presmodule->endcell();
7237                         $kiriwrite_presmodule->addcell($filter_style_name);
7238                         $kiriwrite_presmodule->addlink("?mode=filter&action=edit&filter=" . $filter_list{$filter}{ID}, { Text => $kiriwrite_lang->{options}->{edit} });
7239                         $kiriwrite_presmodule->addlink("?mode=filter&action=delete&filter=" . $filter_list{$filter}{ID}, { Text => $kiriwrite_lang->{options}->{delete} });
7240                         $kiriwrite_presmodule->endcell();
7241                         $kiriwrite_presmodule->endrow();
7242
7243                 }
7244
7245                 $kiriwrite_presmodule->endtable();
7246
7247         }
7248
7249         # Disconnect from the filter database.
7250
7251         $kiriwrite_dbmodule->disconnectfilter();
7252
7253         # Disconnect from the database server.
7254
7255         $kiriwrite_dbmodule->disconnect();
7256
7257         return $kiriwrite_presmodule->grab();
7258
7259 }
7260
7261 sub kiriwrite_filter_add{
7262 #################################################################################
7263 # kiriwrite_filter_add: Adds a filter to the filter list.                       #
7264 #                                                                               #
7265 # Usage:                                                                        #
7266 #                                                                               #
7267 # kiriwrite_filter_add(filterfind, filterreplace, filterpriority,               #
7268 #                       filternotes, [confirm]);                                #
7269 #                                                                               #
7270 # filterfind            Specifies the new word(s) to find.                      #
7271 # filterreplace         Specifies the new word(s) to replace.                   #
7272 # filterpriority        Specifies the new priority to use.                      #
7273 # filternotes           Specifies the new notes to use.                         #
7274 # confirm               Confirms the action to add a filter.                    #
7275 #################################################################################
7276
7277         # Get the values that have been passed to the subroutine.
7278
7279         my ($filter_new_find, $filter_new_replace, $filter_new_priority, $filter_new_notes, $confirm) = @_;
7280
7281         # Check the confirm value to make sure it is no more than
7282         # one character long.
7283
7284         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
7285
7286         if (!$confirm){
7287
7288                 # The confirm value is undefined, so set the
7289                 # value of the confirm integer to '0'.
7290
7291                 $confirm = 0;
7292
7293         }
7294
7295         if ($confirm eq 1){
7296
7297                 # The confirm integer is '1', so add the word
7298                 # to the filter list.
7299
7300                 # First, check the variables recieved are UTF8
7301                 # copliant.
7302
7303                 kiriwrite_variablecheck($filter_new_find, "utf8", 0, 0);
7304                 kiriwrite_variablecheck($filter_new_replace, "utf8", 0, 0);
7305                 kiriwrite_variablecheck($filter_new_priority, "utf8", 0, 0);
7306                 kiriwrite_variablecheck($filter_new_notes, "utf8", 0, 0);
7307
7308                 # Convert the UTF8 values so that the length can
7309                 # checked properly.
7310
7311                 $filter_new_find        = kiriwrite_utf8convert($filter_new_find);
7312                 $filter_new_replace     = kiriwrite_utf8convert($filter_new_replace);
7313                 $filter_new_priority    = kiriwrite_utf8convert($filter_new_priority);
7314                 $filter_new_notes       = kiriwrite_utf8convert($filter_new_notes);
7315
7316                 # Check if the find filter is blank and return an error
7317                 # if it is.
7318
7319                 if (!$filter_new_find){
7320
7321                         # The find filter given is blank so return an
7322                         # error.
7323
7324                         kiriwrite_error("blankfindfilter");
7325
7326                 }
7327
7328                 if (!$filter_new_priority){
7329
7330                         # The filter priority is blank so set it
7331                         # to 1.
7332
7333                         $filter_new_priority = 1;
7334
7335                 }
7336
7337                 # Check the length and contents of the values given
7338                 # to make sure they are valid.
7339
7340                 my $filterfind_maxlength_check          = kiriwrite_variablecheck($filter_new_find, "maxlength", 1024, 1);
7341                 my $filterreplace_maxlength_check       = kiriwrite_variablecheck($filter_new_replace, "maxlength", 1024, 1);
7342                 my $filterpriority_maxlength_check      = kiriwrite_variablecheck($filter_new_priority, "maxlength", 5, 1);
7343                 my $filterpriority_numbers_check        = kiriwrite_variablecheck($filter_new_priority, "numbers", 0, 1);
7344
7345                 # Check if the result of the tests to see if they
7346                 # are valid.
7347
7348                 if ($filterfind_maxlength_check eq 1){
7349
7350                         # The find filter is too long, so return
7351                         # an error.
7352
7353                         kiriwrite_error("findfiltertoolong");
7354
7355                 }
7356
7357                 if ($filterreplace_maxlength_check eq 1){
7358
7359                         # The replace filter is too long, so
7360                         # return an error.
7361
7362                         kiriwrite_error("replacefiltertoolong");
7363
7364                 }
7365
7366                 if ($filterpriority_maxlength_check eq 1){
7367
7368                         # The length of the filter priority
7369                         # given is too long, so return an
7370                         # error.
7371
7372                         kiriwrite_error("filterprioritytoolong");
7373
7374                 }
7375
7376                 if ($filterpriority_numbers_check eq 1){
7377
7378                         # The priority of the filter given
7379                         # contains characters other than
7380                         # numbers.
7381
7382                         kiriwrite_error("filterpriorityinvalidchars");
7383
7384                 }
7385
7386                 # Check if the filter priority is less than 1
7387                 # and more than 10000 and return an error
7388                 # if it is.
7389
7390                 if ($filter_new_priority < 1 || $filter_new_priority > 50000){
7391
7392                         # The filter priority is less than 1 and
7393                         # more than 10000, so return an error.
7394
7395                         kiriwrite_error("filterpriorityinvalid");
7396
7397                 }
7398
7399                 # Connect to the database server.
7400
7401                 $kiriwrite_dbmodule->connect();
7402
7403                 # Check if any errors occured while connecting to the database server.
7404
7405                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
7406
7407                         # A database connection error has occured so return
7408                         # an error.
7409
7410                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
7411
7412                 }
7413
7414                 # Connect to the filters database.
7415
7416                 $kiriwrite_dbmodule->connectfilter(1);
7417
7418                 # Check if any error has occured while connecting to the filter
7419                 # database.
7420
7421                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
7422
7423                         # The filter database does not exist.
7424
7425                         kiriwrite_error("filtersdbmissing");
7426
7427                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7428
7429                         # The filter database has invalid permissions set so return
7430                         # an error.
7431
7432                         kiriwrite_error("filtersdbpermissions");
7433
7434                 }
7435
7436                 # Add the filter to the filter database.
7437
7438                 $kiriwrite_dbmodule->addfilter({ FindFilter => $filter_new_find, ReplaceFilter => $filter_new_replace, Priority => $filter_new_priority, Notes => $filter_new_notes});
7439
7440                 # Check if any errors have occured while adding the filter.
7441
7442                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7443
7444                         # The filter database has invalid permissions set so return
7445                         # an error.
7446
7447                         kiriwrite_error("filtersdbpermissions");
7448
7449                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseUncreatable"){
7450
7451                         # The filter database is uncreatable so return an error.
7452
7453                         kiriwrite_error("filterdatabase");
7454
7455                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7456
7457                         # A database error with the filter database has occured so return
7458                         # an error with the extended error information.
7459
7460                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7461
7462                 }
7463
7464                 # Disconnect from the filter database.
7465
7466                 $kiriwrite_dbmodule->disconnectfilter();
7467
7468                 # Disconnect from the database server.
7469
7470                 $kiriwrite_dbmodule->disconnect();
7471
7472                 # Write out a message saying that the filter was added to the
7473                 # filters database.
7474
7475                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{filteradded}, { Style => "pageheader" });
7476                 $kiriwrite_presmodule->addlinebreak();
7477                 $kiriwrite_presmodule->addlinebreak();
7478                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{filteraddedmessage});
7479                 $kiriwrite_presmodule->addlinebreak();
7480                 $kiriwrite_presmodule->addlinebreak();
7481                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{returnfilterlist} });
7482
7483                 return $kiriwrite_presmodule->grab();
7484
7485         } elsif ($confirm ne 0) {
7486
7487                 # The confirm integer is another value (which
7488                 # it shouldn't be) so return an error.
7489
7490                 kiriwrite_error("invalidvalue");
7491
7492         }
7493
7494         # The confirm integer was blank so print out a form
7495         # for adding a new filter.
7496
7497         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{addfilter}, { Style => "pageheader" });
7498         $kiriwrite_presmodule->addlinebreak();
7499         $kiriwrite_presmodule->addlinebreak();
7500         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
7501         $kiriwrite_presmodule->addhiddendata("mode", "filter");
7502         $kiriwrite_presmodule->addhiddendata("action", "add");
7503         $kiriwrite_presmodule->addhiddendata("confirm", 1);
7504         $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
7505
7506         $kiriwrite_presmodule->startheader();
7507         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
7508         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
7509         $kiriwrite_presmodule->endheader();
7510
7511         $kiriwrite_presmodule->startrow();
7512         $kiriwrite_presmodule->addcell("tablecell1");
7513         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{findfilter});
7514         $kiriwrite_presmodule->endcell();
7515         $kiriwrite_presmodule->addcell("tablecell2");
7516         $kiriwrite_presmodule->addinputbox("findword", { Size => 64, MaxLength => 1024 });
7517         $kiriwrite_presmodule->endcell();
7518         $kiriwrite_presmodule->endrow();
7519
7520         $kiriwrite_presmodule->startrow();
7521         $kiriwrite_presmodule->addcell("tablecell1");
7522         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{replacefilter});
7523         $kiriwrite_presmodule->endcell();
7524         $kiriwrite_presmodule->addcell("tablecell2");
7525         $kiriwrite_presmodule->addinputbox("replaceword", { Size => 64, MaxLength => 1024 });
7526         $kiriwrite_presmodule->endcell();
7527         $kiriwrite_presmodule->endrow();
7528
7529         $kiriwrite_presmodule->startrow();
7530         $kiriwrite_presmodule->addcell("tablecell1");
7531         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{priority});
7532         $kiriwrite_presmodule->endcell();
7533         $kiriwrite_presmodule->addcell("tablecell2");
7534         $kiriwrite_presmodule->addinputbox("priority", { Size => 5, MaxLength => 5 });
7535         $kiriwrite_presmodule->startlist();
7536         $kiriwrite_presmodule->additem($kiriwrite_lang->{filter}->{noprioritygiven});
7537         $kiriwrite_presmodule->endlist();
7538         $kiriwrite_presmodule->endcell();
7539         $kiriwrite_presmodule->endrow();
7540
7541         $kiriwrite_presmodule->startrow();
7542         $kiriwrite_presmodule->addcell("tablecell1");
7543         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{notes});
7544         $kiriwrite_presmodule->endcell();
7545         $kiriwrite_presmodule->addcell("tablecell2");
7546         $kiriwrite_presmodule->addtextbox("notes", { Columns => 50, Rows => 10 });
7547         $kiriwrite_presmodule->endcell();
7548         $kiriwrite_presmodule->endrow();
7549
7550         $kiriwrite_presmodule->endtable();
7551
7552         $kiriwrite_presmodule->addlinebreak();
7553         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{filter}->{addfilterbutton});
7554         $kiriwrite_presmodule->addtext(" | ");
7555         $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{clearvalues});
7556         $kiriwrite_presmodule->addtext(" | ");
7557         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{returnfilterlist} });
7558
7559         $kiriwrite_presmodule->endform();
7560
7561         return $kiriwrite_presmodule->grab();
7562
7563 }
7564
7565 sub kiriwrite_filter_edit{
7566 #################################################################################
7567 # kiriwrite_filter_edit: Edits a filter from the filter list.                   #
7568 #                                                                               #
7569 # Usage:                                                                        #
7570 #                                                                               #
7571 # kiriwrite_filter_edit(filternumber, newfilterfind, newfilterreplace,          #
7572 #                       newfilterpriority, newfilternotes, confirm);            #
7573 #                                                                               #
7574 # filterid              Specifies the filter number (line number) in the        #
7575 #                       filters database.                                       #
7576 # newfilterfind         Specifies the new word to find.                         #
7577 # newfilterreplace      Specifies the new word to replace.                      #
7578 # newfilterpriority     Specifies the new filter priority.                      #
7579 # newfilternotes        Specifies the new filter notes.                         #
7580 # confirm               Confirms the action to edit a filter.                   #
7581 #################################################################################
7582
7583         # Get the values that have been passed to the subroutine.
7584
7585         my ($filter_id, $filter_new_find, $filter_new_replace, $filter_new_priority, $filter_new_notes, $confirm) = @_;
7586
7587         # Check the confirm value to make sure it is no more than
7588         # one character long.
7589
7590         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
7591
7592         # Check if the confirm value is blank and if it is
7593         # srt the confirm value to 0.
7594
7595         if (!$confirm){
7596
7597                 # The confirm value does not have any value
7598                 # set so set it to 0.
7599
7600                 $confirm = 0;
7601
7602         }
7603
7604         # Check if the filter identification number is blank,
7605         # contains characters other than numbers and is more
7606         # than seven characters long.
7607
7608         if (!$filter_id){
7609
7610                 # The filter identification number is blank,
7611                 # so return an error.
7612
7613                 kiriwrite_error("filteridblank");
7614
7615         }
7616
7617         my $filter_id_numbers_check     = kiriwrite_variablecheck($filter_id, "numbers", 0, 1);
7618
7619         if ($filter_id_numbers_check eq 1){
7620
7621                 # The filter identification number contains
7622                 # characters other than numbers, so return
7623                 # an error.
7624
7625                 kiriwrite_error("filteridinvalid");
7626
7627         }
7628
7629         my $filter_id_maxlength_check   = kiriwrite_variablecheck($filter_id, "maxlength", 7, 1);
7630
7631         if ($filter_id_maxlength_check eq 1){
7632
7633                 # The filter identification number given
7634                 # is more than seven characters long, so
7635                 # return an error.
7636
7637                 kiriwrite_error("filteridtoolong");
7638
7639         }
7640
7641         my $filter_priority;
7642         my $filter_find;
7643         my $filter_replace;
7644         my $filter_notes;
7645
7646         # Check if the action to edit a filter has been
7647         # confirmed.
7648
7649         if ($confirm eq 1){
7650
7651                 # The action to edit a filter has been confirmed so
7652                 # edit the selected filter.
7653
7654                 # First, check the variables recieved are UTF8
7655                 # copliant.
7656
7657                 kiriwrite_variablecheck($filter_new_find, "utf8", 0, 0);
7658                 kiriwrite_variablecheck($filter_new_replace, "utf8", 0, 0);
7659                 kiriwrite_variablecheck($filter_new_priority, "utf8", 0, 0);
7660                 kiriwrite_variablecheck($filter_new_notes, "utf8", 0, 0);
7661
7662                 # Convert the UTF8 values so that the length can
7663                 # checked properly.
7664
7665                 $filter_find            = kiriwrite_utf8convert($filter_new_find);
7666                 $filter_replace         = kiriwrite_utf8convert($filter_new_replace);
7667                 $filter_priority        = kiriwrite_utf8convert($filter_new_priority);
7668                 $filter_notes           = kiriwrite_utf8convert($filter_new_notes);
7669
7670                 # Check if the find filter is blank and return an error
7671                 # if it is.
7672
7673                 if (!$filter_new_find){
7674
7675                         # The find filter given is blank so return an
7676                         # error.
7677
7678                         kiriwrite_error("blankfindfilter");
7679
7680                 }
7681
7682                 if (!$filter_new_priority){
7683
7684                         # The filter priority is blank so set it
7685                         # to 1.
7686
7687                         $filter_new_priority = 1;
7688
7689                 }
7690
7691                 # Check the length and contents of the values given
7692                 # to make sure they are valid.
7693
7694                 my $filterfind_maxlength_check          = kiriwrite_variablecheck($filter_new_find, "maxlength", 1024, 1);
7695                 my $filterreplace_maxlength_check       = kiriwrite_variablecheck($filter_new_replace, "maxlength", 1024, 1);
7696                 my $filterpriority_maxlength_check      = kiriwrite_variablecheck($filter_new_priority, "maxlength", 5, 1);
7697                 my $filterpriority_numbers_check        = kiriwrite_variablecheck($filter_new_priority, "numbers", 0, 1);
7698
7699                 # Check if the result of the tests to see if they
7700                 # are valid.
7701
7702                 if ($filterfind_maxlength_check eq 1){
7703
7704                         # The find filter is too long, so return
7705                         # an error.
7706
7707                         kiriwrite_error("findfiltertoolong");
7708
7709                 }
7710
7711                 if ($filterreplace_maxlength_check eq 1){
7712
7713                         # The replace filter is too long, so
7714                         # return an error.
7715
7716                         kiriwrite_error("replacefiltertoolong");
7717
7718                 }
7719
7720                 if ($filterpriority_maxlength_check eq 1){
7721
7722                         # The length of the filter priority
7723                         # given is too long, so return an
7724                         # error.
7725
7726                         kiriwrite_error("filterprioritytoolong");
7727
7728                 }
7729
7730                 if ($filterpriority_numbers_check eq 1){
7731
7732                         # The priority of the filter given
7733                         # contains characters other than
7734                         # numbers.
7735
7736                         kiriwrite_error("filterpriorityinvalidchars");
7737
7738                 }
7739
7740                 # Check if the filter priority is less than 1
7741                 # and more than 10000 and return an error
7742                 # if it is.
7743
7744                 if ($filter_new_priority < 1 || $filter_new_priority > 50000){
7745
7746                         # The filter priority is less than 1 and
7747                         # more than 10000, so return an error.
7748
7749                         kiriwrite_error("filterpriorityinvalid");
7750
7751                 }
7752
7753                 # Connect to the database server.
7754
7755                 $kiriwrite_dbmodule->connect();
7756
7757                 # Check if any errors occured while connecting to the database server.
7758
7759                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
7760
7761                         # A database connection error has occured so return
7762                         # an error.
7763
7764                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
7765
7766                 }
7767
7768                 # Connect to the filters database.
7769
7770                 $kiriwrite_dbmodule->connectfilter();
7771
7772                 # Check if any error has occured while connecting to the filter
7773                 # database.
7774
7775                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
7776
7777                         # The filter database does not exist.
7778
7779                         kiriwrite_error("filtersdbmissing");
7780
7781                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7782
7783                         # The filter database has invalid permissions set so return
7784                         # an error.
7785
7786                         kiriwrite_error("filtersdbpermissions");
7787
7788                 }
7789
7790                 # Edit the selected filter in the filter database.
7791
7792                 $kiriwrite_dbmodule->editfilter({ FilterID => $filter_id, NewFindFilter => $filter_new_find, NewReplaceFilter => $filter_new_replace, NewFilterPriority => $filter_new_priority, NewFilterNotes => $filter_new_notes });
7793
7794                 # Check if any errors occured while editing the filter.
7795
7796                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7797
7798                         # The filter database has invalid permissions set so return
7799                         # an error.
7800
7801                         kiriwrite_error("filtersdbpermissions");
7802
7803                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7804
7805                         # A database error has occured while using the filters database
7806                         # so return an error.
7807
7808                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7809
7810                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
7811
7812                         # The specified filter does not exist so return an error.
7813
7814                         kiriwrite_error("filterdoesnotexist");
7815
7816                 }
7817
7818                 # Disconnect from the filter database.
7819
7820                 $kiriwrite_dbmodule->disconnectfilter();
7821
7822                 # Disconnect from the database server.
7823
7824                 $kiriwrite_dbmodule->disconnect();
7825
7826                 # Write a message saying that the filter was edited.
7827
7828                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{editedfilter}, { Style => "pageheader" });
7829                 $kiriwrite_presmodule->addlinebreak();
7830                 $kiriwrite_presmodule->addlinebreak();
7831                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{editedfiltermessage});
7832                 $kiriwrite_presmodule->addlinebreak();
7833                 $kiriwrite_presmodule->addlinebreak();
7834                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{returnfilterlist}});
7835
7836                 return $kiriwrite_presmodule->grab();
7837
7838         } elsif ($confirm eq 0){
7839
7840                 # The action to edit a filter has not been confirmed
7841                 # so write a form for editing the filter with.
7842
7843                 # Connect to the database server.
7844
7845                 $kiriwrite_dbmodule->connect();
7846
7847                 # Check if any errors occured while connecting to the database server.
7848
7849                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
7850
7851                         # A database connection error has occured so return
7852                         # an error.
7853
7854                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
7855
7856                 }
7857
7858                 # Connect to the database server.
7859
7860                 $kiriwrite_dbmodule->connect();
7861
7862                 # Check if any errors occured while connecting to the database server.
7863
7864                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
7865
7866                         # A database connection error has occured so return
7867                         # an error.
7868
7869                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
7870
7871                 }
7872
7873                 # Connect to the filters database.
7874
7875                 $kiriwrite_dbmodule->connectfilter();
7876
7877                 # Check if any error has occured while connecting to the filter
7878                 # database.
7879
7880                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
7881
7882                         # The filter database does not exist.
7883
7884                         kiriwrite_error("filtersdbmissing");
7885
7886                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7887
7888                         # The filter database has invalid permissions set so return
7889                         # an error.
7890
7891                         kiriwrite_error("filtersdbpermissions");
7892
7893                 }
7894
7895                 # Get information about the filter.
7896
7897                 my %filter_info = $kiriwrite_dbmodule->getfilterinfo({ FilterID => $filter_id });
7898
7899                 # Check if any errors occured while getting information about the filter.
7900
7901                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7902
7903                         # A database error occured while using the filter database so
7904                         # return an error.
7905
7906                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7907
7908                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
7909
7910                         # The filter does not exist so return an error.
7911
7912                         kiriwrite_error("filterdoesnotexist");
7913
7914                 }
7915
7916                 # Get the required information.
7917
7918                 $filter_priority        = $filter_info{"FilterPriority"};
7919                 $filter_find            = $filter_info{"FilterFind"};
7920                 $filter_replace         = $filter_info{"FilterReplace"};
7921                 $filter_notes           = $filter_info{"FilterNotes"};
7922
7923                 # Disconnect from the filter database.
7924
7925                 $kiriwrite_dbmodule->disconnectfilter();
7926
7927                 # Disconnect from the database server.
7928
7929                 $kiriwrite_dbmodule->disconnect();
7930
7931                 # Write out the form.
7932
7933                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{editfilter}, { Style => "pageheader" });
7934                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
7935                 $kiriwrite_presmodule->addhiddendata("mode", "filter");
7936                 $kiriwrite_presmodule->addhiddendata("action", "edit");
7937                 $kiriwrite_presmodule->addhiddendata("filter", $filter_id);
7938                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
7939
7940                 $kiriwrite_presmodule->addlinebreak();
7941                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
7942
7943                 $kiriwrite_presmodule->startheader();
7944                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
7945                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
7946                 $kiriwrite_presmodule->endheader();
7947
7948                 $kiriwrite_presmodule->startrow();
7949                 $kiriwrite_presmodule->addcell("tablecell1");
7950                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{findfilter});
7951                 $kiriwrite_presmodule->endcell();
7952                 $kiriwrite_presmodule->addcell("tablecell2");
7953                 $kiriwrite_presmodule->addinputbox("filterfind", { Size => 64, MaxLength => 1024, Value => $filter_find });
7954                 $kiriwrite_presmodule->endcell();
7955                 $kiriwrite_presmodule->endrow();
7956
7957                 $kiriwrite_presmodule->startrow();
7958                 $kiriwrite_presmodule->addcell("tablecell1");
7959                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{replacefilter});
7960                 $kiriwrite_presmodule->endcell();
7961                 $kiriwrite_presmodule->addcell("tablecell2");
7962                 $kiriwrite_presmodule->addinputbox("filterreplace", { Size => 64, MaxLength => 1024, Value => $filter_replace });
7963                 $kiriwrite_presmodule->endcell();
7964                 $kiriwrite_presmodule->endrow();
7965
7966                 $kiriwrite_presmodule->startrow();
7967                 $kiriwrite_presmodule->addcell("tablecell1");
7968                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{priority});
7969                 $kiriwrite_presmodule->endcell();
7970                 $kiriwrite_presmodule->addcell("tablecell2");
7971                 $kiriwrite_presmodule->addinputbox("priority", { Size => 5, MaxLength => 5, Value => $filter_priority });
7972                 $kiriwrite_presmodule->startlist();
7973                 $kiriwrite_presmodule->additem($kiriwrite_lang->{filter}->{noprioritygiven});
7974                 $kiriwrite_presmodule->endlist();
7975                 $kiriwrite_presmodule->endcell();
7976                 $kiriwrite_presmodule->endrow();
7977
7978                 $kiriwrite_presmodule->startrow();
7979                 $kiriwrite_presmodule->addcell("tablecell1");
7980                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{notes});
7981                 $kiriwrite_presmodule->endcell();
7982                 $kiriwrite_presmodule->addcell("tablecell2");
7983                 $kiriwrite_presmodule->addtextbox("notes", { Columns => 50, Rows => 10});
7984                 $kiriwrite_presmodule->endcell();
7985                 $kiriwrite_presmodule->endrow();
7986
7987                 $kiriwrite_presmodule->endtable();
7988
7989                 $kiriwrite_presmodule->addlinebreak();
7990                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{filter}->{editfilterbutton});
7991                 $kiriwrite_presmodule->addtext(" | ");
7992                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{restorecurrent});
7993                 $kiriwrite_presmodule->addtext(" | ");
7994                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{returnfilterlist} });
7995
7996                 return $kiriwrite_presmodule->grab();
7997
7998         } else {
7999
8000                 # A confirm value other than 0 or 1 has been
8001                 # specified, so return an error.
8002
8003                 kiriwrite_error("invalidvalue");
8004
8005         }
8006
8007 }
8008
8009 sub kiriwrite_filter_delete{
8010 #################################################################################
8011 # kiriwrite_filter_delete: Deletes a filter from the filter list.               #
8012 #                                                                               #
8013 # Usage:                                                                        #
8014 #                                                                               #
8015 # kiriwrite_filter_delete(number, confirm);                                     #
8016 #                                                                               #
8017 # number        Specifies the filter line number to delete.                     #
8018 # confirm       Confirms the deletion of the selected filter.                   #
8019 #################################################################################
8020
8021         # Get the values that were passed to this subroutine.
8022
8023         my ($filter_id, $confirm) = @_;
8024
8025         # Check the confirm value to make sure it is no more than
8026         # one character long.
8027
8028         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
8029
8030         # Check if the confirm value is blank and if it is
8031         # srt the confirm value to 0.
8032
8033         if (!$confirm){
8034
8035                 # The confirm value does not have any value
8036                 # set so set it to 0.
8037
8038                 $confirm = 0;
8039
8040         }
8041
8042         # Check if the filter identification number is blank,
8043         # contains characters other than numbers and is more
8044         # than seven characters long.
8045
8046         if (!$filter_id){
8047
8048                 # The filter identification number is blank,
8049                 # so return an error.
8050
8051                 kiriwrite_error("filteridblank");
8052
8053         }
8054
8055         my $filter_id_numbers_check     = kiriwrite_variablecheck($filter_id, "numbers", 0, 1);
8056
8057         if ($filter_id_numbers_check eq 1){
8058
8059                 # The filter identification number contains
8060                 # characters other than numbers, so return
8061                 # an error.
8062
8063                 kiriwrite_error("filteridinvalid");
8064
8065         }
8066
8067         my $filter_id_maxlength_check   = kiriwrite_variablecheck($filter_id, "maxlength", 7, 1);
8068
8069         if ($filter_id_maxlength_check eq 1){
8070
8071                 # The filter identification number given
8072                 # is more than seven characters long, so
8073                 # return an error.
8074
8075                 kiriwrite_error("filteridtoolong");
8076
8077         }
8078
8079         # Define some values for later.
8080
8081         my @database_filter;
8082         my $filter_exists = 0;
8083
8084         # Check if the confirm integer has a value of '1'.
8085
8086         if ($confirm eq 1){
8087
8088                 # The action to delete a filter has been confirmed.
8089
8090                 # Connect to the database server.
8091
8092                 $kiriwrite_dbmodule->connect();
8093
8094                 # Check if any errors occured while connecting to the database server.
8095
8096                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
8097
8098                         # A database connection error has occured so return
8099                         # an error.
8100
8101                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
8102
8103                 }
8104
8105                 # Connect to the filter database.
8106
8107                 $kiriwrite_dbmodule->connectfilter();
8108
8109                 # Check if any error has occured while connecting to the filter
8110                 # database.
8111
8112                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
8113
8114                         # The filter database does not exist.
8115
8116                         kiriwrite_error("filtersdbmissing");
8117
8118                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
8119
8120                         # The filter database has invalid permissions set so return
8121                         # an error.
8122
8123                         kiriwrite_error("filtersdbpermissions");
8124
8125                 }
8126
8127                 # Delete the filter from the filter database.
8128
8129                 $kiriwrite_dbmodule->deletefilter({ FilterID => $filter_id });
8130
8131                 # Check if any errors occured while deleting the filter.
8132
8133                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
8134
8135                         # A database error has occured while trying to delete a filter so
8136                         # return an error.
8137
8138                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
8139
8140                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
8141
8142                         # The filter does not exist so return an error.
8143
8144                         kiriwrite_error("filterdoesnotexist");
8145
8146                 }
8147
8148                 # Disconnect from the filter database.
8149
8150                 $kiriwrite_dbmodule->disconnectfilter();
8151
8152                 # Disconnect from the database server.
8153
8154                 $kiriwrite_dbmodule->disconnect();
8155
8156                 # Write a message saying that the filter was deleted
8157                 # from the filters database.
8158
8159                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{deletedfilter}, { Style => "pageheader" });
8160                 $kiriwrite_presmodule->addlinebreak();
8161                 $kiriwrite_presmodule->addlinebreak();
8162                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{deletedfiltermessage});
8163                 $kiriwrite_presmodule->addlinebreak();
8164                 $kiriwrite_presmodule->addlinebreak();
8165                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{returnfilterlist} });
8166
8167         } elsif ($confirm eq 0) {
8168
8169                 # Connect to the database server.
8170
8171                 $kiriwrite_dbmodule->connect();
8172
8173                 # Check if any errors occured while connecting to the database server.
8174
8175                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
8176
8177                         # A database connection error has occured so return
8178                         # an error.
8179
8180                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
8181
8182                 }
8183
8184                 # Connect to the filter database.
8185
8186                 $kiriwrite_dbmodule->connectfilter();
8187
8188                 # Check if any error has occured while connecting to the filter
8189                 # database.
8190
8191                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
8192
8193                         # The filter database does not exist.
8194
8195                         kiriwrite_error("filtersdbmissing");
8196
8197                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
8198
8199                         # The filter database has invalid permissions set so return
8200                         # an error.
8201
8202                         kiriwrite_error("filtersdbpermissions");
8203
8204                 }
8205
8206                 # Get information about the filter (to check if it exists).
8207
8208                 my %filter_info = $kiriwrite_dbmodule->getfilterinfo({ FilterID => $filter_id });
8209
8210                 # Check if any errors occured while getting information about the filter.
8211
8212                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
8213
8214                         # A database error occured while using the filter database so
8215                         # return an error.
8216
8217                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
8218
8219                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
8220
8221                         # The filter does not exist so return an error.
8222
8223                         kiriwrite_error("filterdoesnotexist");
8224
8225                 }
8226
8227                 # Disconnect from the filter database.
8228
8229                 $kiriwrite_dbmodule->disconnectfilter();
8230
8231                 # Disconnect from the database
8232
8233                 # The confirm integer is '0', so continue write out
8234                 # a form asking the user to confirm the deletion
8235                 # pf the filter.
8236
8237                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{deletefilter}, { Style => "pageheader" });
8238                 $kiriwrite_presmodule->addlinebreak();
8239                 $kiriwrite_presmodule->addlinebreak();
8240                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{deletefiltermessage});
8241                 $kiriwrite_presmodule->addlinebreak();
8242                 $kiriwrite_presmodule->addlinebreak();
8243                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
8244                 $kiriwrite_presmodule->addhiddendata("mode", "filter");
8245                 $kiriwrite_presmodule->addhiddendata("action", "delete");
8246                 $kiriwrite_presmodule->addhiddendata("filter", $filter_id);
8247                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
8248                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{filter}->{deletefilterbutton});
8249                 $kiriwrite_presmodule->addtext(" | ");
8250                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{deletefilterreturn} });
8251                 $kiriwrite_presmodule->endform();
8252
8253         } else {
8254
8255                 kiriwrite_error("invalidvalue");
8256
8257         }
8258
8259         return $kiriwrite_presmodule->grab();
8260
8261 }
8262
8263 sub kiriwrite_compile_makepages{
8264 #################################################################################
8265 # kiriwrite_compile_makepages: Compile the selected pages and place them in the #
8266 # specified output directory.                                                   #
8267 #                                                                               #
8268 # Usage:                                                                        #
8269 #                                                                               #
8270 # kiriwrite_compile_makepages(type, selectedlist, confirm);                     #
8271 #                                                                               #
8272 # type          Specifies if single or multiple databases are to be compiled.   #
8273 # confirm       Specifies if the action to compile the databases should really  #
8274 #               be done.                                                        #
8275 # selectedlist  Specifies the databases to compile from as an array.            #
8276 #################################################################################
8277
8278         # Get the values that have been passed to the subroutine.
8279
8280         my ($type, $confirm, @selectedlist) = @_;
8281
8282         # Check if the confirm value is more than one
8283         # character long.
8284
8285         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
8286
8287         # Check if the confirm value is blank and if it
8288         # is then set the confirm value to 0.
8289
8290         if (!$confirm){
8291
8292                 # The confirm value is blank, so set the
8293                 # confirm value to 0.
8294
8295                 $confirm = 0;
8296
8297         }
8298
8299         # Check if there are any databases selected
8300         # and return an error if there isn't.
8301
8302         if (!@selectedlist){
8303
8304                 # There are no databases in the array
8305                 # so return an error.
8306
8307                 kiriwrite_error("nodatabaseselected");
8308
8309         }
8310
8311         # Check if the type given is no more than
8312         # 7 characters long.
8313
8314         my $type_maxlength_check = kiriwrite_variablecheck($type, "maxlength", 8, 1);
8315
8316         if ($type_maxlength_check eq 1){
8317
8318                 # The type length given is too long so
8319                 # return an error.
8320
8321                 kiriwrite_error("variabletoolong");
8322
8323         }
8324
8325         # Check if the action to compile the databases
8326         # has been confirmed.
8327
8328         if ($confirm eq 1){
8329
8330                 # The action to compile the datavases has
8331                 # been confirmed.
8332
8333                 # Define some variables for later.
8334
8335                 my %database_info;
8336                 my %filter_info;
8337                 my %template_info;
8338                 my %page_info;
8339                 my %templatefiles;
8340                 my @page_filenames;
8341                 my @databaseinfo;
8342                 my @databasepages;
8343                 my @filterslist;
8344                 my @findfilter;
8345                 my @replacefilter;
8346                 my @templateslist;
8347                 my @pagedirectories;
8348                 my @database_filters;
8349                 my $warning_count               = 0;
8350                 my $error_count                 = 0;
8351                 my $pages_count                 = 0;
8352                 my $filter;
8353                 my $filters_count               = 0;
8354                 my $filters_find_blank_warning  = 0;
8355                 my $filter_find;
8356                 my $filter_replace;
8357                 my $database;
8358                 my $database_name;
8359                 my $page_filename;
8360                 my $page_filename_check;
8361                 my $page_filename_char          = "";
8362                 my $page_filename_directory;
8363                 my $page_filename_length        = 0;
8364                 my $page_filename_seek          = 0;
8365                 my $page_filename_dircount      = 0;
8366                 my $page_filename_exists        = 0;
8367                 my $page_filename_permissions   = 0;
8368                 my $page_directory_name;
8369                 my $page_directory_path;
8370                 my $page_name;
8371                 my $page_description;
8372                 my $page_section;
8373                 my $page_template;
8374                 my $page_content;
8375                 my $page_settings;
8376                 my $page_lastmodified;
8377                 my $page_title;
8378                 my $page_final;
8379                 my $page_autosection;
8380                 my $page_autotitle;
8381                 my $page;
8382                 my $database_filename_check     = 0;
8383                 my $database_maxlength_check    = 0;
8384                 my $output_exists               = 0;
8385                 my $output_permissions          = 0;
8386                 my $filters_exists              = 0;
8387                 my $filters_permissions         = 0;
8388                 my $filters_skip                = 0;
8389                 my $template;
8390                 my $templates_skip              = 0;
8391                 my $information_prefix          = $kiriwrite_lang->{compile}->{informationprefix};
8392                 my $error_prefix                = $kiriwrite_lang->{compile}->{errorprefix};
8393                 my $warning_prefix              = $kiriwrite_lang->{compile}->{warningprefix};
8394                 my $filehandle_page;
8395
8396                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compiledatabases}, { Style => "pageheader" });
8397                 $kiriwrite_presmodule->addlinebreak();
8398                 $kiriwrite_presmodule->addlinebreak();
8399                 $kiriwrite_presmodule->startbox("datalist");
8400
8401                 # Check if the output directory exists and has
8402                 # valid permissions set.
8403
8404                 $output_exists          = kiriwrite_fileexists($kiriwrite_config{'directory_data_output'});
8405
8406                 if ($output_exists ne 0){
8407
8408                         # The output directory does not exist so
8409                         # return an error.
8410
8411                         kiriwrite_error("outputdirectorymissing");
8412
8413                 }
8414
8415                 $output_permissions     = kiriwrite_filepermissions($kiriwrite_config{'directory_data_output'}, 1, 1);
8416
8417                 if ($output_permissions ne 0){
8418
8419                         # The output directory has invalid
8420                         # permissions set so return an error.
8421
8422                         kiriwrite_error("outputdirectoryinvalidpermissions");
8423
8424                 }
8425
8426                 # Connect to the database server.
8427
8428                 $kiriwrite_dbmodule->connect();
8429
8430                 # Check if any errors occured while connecting to the database server.
8431
8432                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
8433
8434                         # A database connection error has occured so return
8435                         # an error.
8436
8437                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
8438
8439                 }
8440
8441                 # Connect to the filter database.
8442
8443                 $kiriwrite_dbmodule->connectfilter();
8444
8445                 # Check if any error has occured while connecting to the filter
8446                 # database.
8447
8448                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
8449
8450                         # The filter database does not exist so write a warning message.
8451
8452                         $kiriwrite_presmodule->addtext($warning_prefix . $kiriwrite_lang->{compile}->{filterdatabasemissing});
8453                         $kiriwrite_presmodule->addlinebreak();
8454                         $filters_skip = 1;
8455                         $warning_count++;
8456
8457                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
8458
8459                         # The filter database has invalid permissions set so write a
8460                         # an error message.
8461
8462                         $kiriwrite_presmodule->addtext($error_prefix . $kiriwrite_lang->{compile}->{filterdatabasepermissions});
8463                         $kiriwrite_presmodule->addlinebreak();
8464                         $filters_skip = 1;
8465                         $error_count++;
8466
8467                 }
8468
8469                 # Load the filters database (if the filters skip
8470                 # value isn't set to 1).
8471
8472                 if ($filters_skip eq 0){
8473
8474                         # Get the list of available filters.
8475
8476                         @database_filters       = $kiriwrite_dbmodule->getfilterlist();
8477
8478                         # Check if any errors occured while getting the list of filters.
8479
8480                         if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
8481
8482                                 # A database error has occured with the filters database.
8483
8484                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{filterdatabaseerror}, $kiriwrite_dbmodule->geterror(1)));
8485                                 $kiriwrite_presmodule->addlinebreak();
8486                                 $error_count++;
8487
8488                         }
8489
8490                         # Check if the filters skip value is set to 0
8491                         # before executing the query.
8492
8493                         if ($filters_skip eq 0){
8494
8495                                 foreach $filter (@database_filters){
8496
8497                                         # Get the filter information.
8498
8499                                         %filter_info = $kiriwrite_dbmodule->getfilterinfo({ FilterID => $filter });
8500
8501                                         # Check if any errors occured while getting the filter information.
8502
8503                                         if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
8504
8505                                                 # A database error occured while using the filter database.
8506
8507                                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{filterdatabaseerror}, $kiriwrite_dbmodule->geterror(1)));
8508                                                 $kiriwrite_presmodule->addlinebreak();
8509                                                 $error_count++;
8510                                                 next;
8511
8512                                         } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
8513
8514                                                 # The filter does not exist so process the next filter.
8515
8516                                                 next;
8517
8518                                         }
8519
8520                                         # Check if the find filter is blank and
8521                                         # if it is then write a warning message.
8522
8523                                         if (!$filter_info{"FilterFind"}){
8524
8525                                                 if ($filters_find_blank_warning ne 1){
8526
8527                                                         $kiriwrite_presmodule->addtext($warning_prefix . $kiriwrite_lang->{compile}->{findfilterblank});
8528                                                         $kiriwrite_presmodule->addlinebreak();
8529                                                         $filters_find_blank_warning = 1;
8530                                                 }
8531                                                 next;
8532
8533                                         } else {
8534
8535                                                 # Add each find and replace filter.
8536
8537                                                 $findfilter[$filters_count]     = $filter_info{"FilterFind"};
8538                                                 $replacefilter[$filters_count]  = $filter_info{"FilterReplace"};
8539
8540                                         }
8541
8542                                         $filters_count++;
8543
8544                                 }
8545
8546                                 $kiriwrite_presmodule->addtext($information_prefix . $kiriwrite_lang->{compile}->{finishfilterdatabase});
8547                                 $kiriwrite_presmodule->addlinebreak();
8548
8549                         }
8550
8551                 }
8552
8553                 # Disconnect from the filter database.
8554
8555                 $kiriwrite_dbmodule->disconnectfilter();
8556
8557                 # Connect to the template database.
8558
8559                 $kiriwrite_dbmodule->connecttemplate();
8560
8561                 # Check if any errors occured while connecting to the template database.
8562
8563                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
8564
8565                         # The template database does not exist so set the template
8566                         # warning message.
8567
8568                         $kiriwrite_presmodule->addtext($warning_prefix . $kiriwrite_lang->{compile}->{templatedatabasemissing});
8569                         $kiriwrite_presmodule->addlinebreak();
8570                         $templates_skip = 1;
8571                         $warning_count++;
8572
8573                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
8574
8575                         # The template database has invalid permissions set so write
8576                         # the template warning message.
8577
8578                         $kiriwrite_presmodule->addtext($error_prefix . $kiriwrite_lang->{compile}->{templatedatabasepermissions});
8579                         $kiriwrite_presmodule->addlinebreak();
8580                         $templates_skip = 1;
8581                         $error_count++;
8582
8583                 }
8584
8585                 # Check if the template skip value isn't set and if it isn't
8586                 # then get the list of templates.
8587
8588                 if (!$templates_skip){
8589
8590                         @templateslist = $kiriwrite_dbmodule->gettemplatelist();
8591
8592                         # Check if any errors had occured.
8593
8594                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
8595
8596                                 # A database error occured while getting the list
8597                                 # of templates so return a warning message with the
8598                                 # extended error information.
8599
8600                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{templatedatabaseerror}, $kiriwrite_dbmodule->geterror(1)));
8601                                 $templates_skip = 1;
8602                                 $error_count++;
8603
8604                         }
8605
8606                         # Check if the template skip value isn't set and if it isn't
8607                         # then process each template.
8608
8609                         if (!$templates_skip){
8610
8611                                 # Process each template.
8612
8613                                 foreach $template (@templateslist){
8614
8615                                         # Get information about the template.
8616
8617                                         %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template });
8618
8619                                         # Check if any error occured while getting the template information.
8620
8621                                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
8622
8623                                                 # A database error has occured, so return an error.
8624
8625                                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{templatedatabaseerror}, $kiriwrite_dbmodule->geterror(1)));
8626                                                 $error_count++;
8627
8628                                         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
8629
8630                                                 # The template does not exist, so process the next template.
8631
8632                                                 next;
8633
8634                                         }
8635
8636                                         # Place each template file into the hash.
8637
8638                                         $templatefiles{$template_info{"TemplateFilename"}}{template}    = $template_info{"TemplateFilename"};
8639                                         $templatefiles{$template_info{"TemplateFilename"}}{valid}       = 1;
8640
8641                                 }
8642
8643                                 $kiriwrite_presmodule->addtext($information_prefix . $kiriwrite_lang->{compile}->{finishtemplatedatabase});
8644                                 $kiriwrite_presmodule->addlinebreak();
8645
8646                         }
8647
8648                 }
8649
8650                 # Disconnect from the template database.
8651
8652                 $kiriwrite_dbmodule->disconnecttemplate();
8653
8654                 # Process each database.
8655
8656                 foreach $database (@selectedlist){
8657
8658                         # Check if the database filename and length
8659                         # are valid.
8660
8661                         $kiriwrite_presmodule->addhorizontalline();
8662
8663                         $database_filename_check        = kiriwrite_variablecheck($database, "page_filename", "", 1);
8664                         $database_maxlength_check       = kiriwrite_variablecheck($database, "maxlength", 32, 1);
8665
8666                         if ($database_filename_check ne 0){
8667
8668                                 # The database filename is invalid, so process
8669                                 # the next database.
8670
8671                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databasefilenameinvalidcharacters}, $database));
8672                                 $kiriwrite_presmodule->addlinebreak();
8673                                 $error_count++;
8674                                 next;
8675
8676                         }
8677
8678                         if ($database_maxlength_check ne 0){
8679
8680                                 # The database file is too long, so process the
8681                                 # next database.
8682
8683                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databasefilenametoolong}, $database));
8684                                 $kiriwrite_presmodule->addlinebreak();
8685                                 $error_count++;
8686                                 next;
8687
8688                         }
8689
8690                         # Select the database.
8691
8692                         $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
8693
8694                         # Check if any errors had occured while selecting the database.
8695
8696                         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
8697
8698                                 # The database does not exist, so write a warning message.
8699
8700                                 $kiriwrite_presmodule->addtext($warning_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databasemissing}, $database));
8701                                 $kiriwrite_presmodule->addlinebreak();
8702                                 $warning_count++;
8703                                 next;
8704
8705                         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
8706
8707                                 # The database has invalid permissions set, so write
8708                                 # an error message.
8709
8710                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databaseinvalidpermissions}, $database));
8711                                 $kiriwrite_presmodule->addlinebreak();
8712                                 $error_count++;
8713                                 next;
8714
8715                         }
8716
8717                         # Get information about the database.
8718
8719                         my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
8720
8721                         # Check if any error occured while getting the database information.
8722
8723                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
8724
8725                                 # A database error has occured so write an error.
8726
8727                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databaseerror}, $database, $kiriwrite_dbmodule->geterror(1)));
8728                                 $kiriwrite_presmodule->addlinebreak();
8729                                 $error_count++;
8730                                 next;
8731
8732                         };
8733
8734                         # Get the database name.
8735
8736                         $database_name = $database_info{"DatabaseName"};
8737
8738                         $kiriwrite_presmodule->addtext($information_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{compilingpages}, $database_name));
8739                         $kiriwrite_presmodule->addlinebreak();
8740
8741                         # Get the list of pages in the database.
8742
8743                         @databasepages = $kiriwrite_dbmodule->getpagelist();
8744
8745                         # Check if any errors occured while getting the list of pages.
8746
8747                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
8748
8749                                 # A database error has occured so return an error and
8750                                 # also the extended error information.
8751
8752                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databasepageerror}, $database, $kiriwrite_dbmodule->geterror(1)));
8753                                 $kiriwrite_presmodule->addlinebreak();
8754                                 $error_count++;
8755                                 next;
8756
8757                         }
8758
8759                         foreach $page (@databasepages) {
8760
8761                                 # Get information about the page.
8762
8763                                 %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page });
8764
8765                                 $page_filename          = $page_info{"PageFilename"};
8766                                 $page_name              = $page_info{"PageName"};
8767                                 $page_description       = $page_info{"PageDescription"};
8768                                 $page_section           = $page_info{"PageSection"};
8769                                 $page_template          = $page_info{"PageTemplate"};
8770                                 $page_content           = $page_info{"PageContent"};
8771                                 $page_settings          = $page_info{"PageSettings"};
8772                                 $page_lastmodified      = $page_info{"PageLastModified"};
8773
8774                                 # Check if the filename is valid.
8775
8776                                 $page_filename_check = kiriwrite_variablecheck($page_filename, "page_filename", 0, 1);
8777
8778                                 if ($page_filename_check ne 0){
8779
8780                                         # The file name is not valid so write a
8781                                         # error and process the next page.
8782
8783                                         $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{invalidpagefilename}, $page_name));
8784                                         $kiriwrite_presmodule->addlinebreak();
8785                                         $error_count++;
8786                                         next;
8787
8788                                 }
8789
8790                                 # Check if the template with the filename does not exist
8791                                 # in the template files hash and write a message and
8792                                 # process the next page.
8793
8794                                 if (!$templatefiles{$page_template}{valid} && $page_template ne "!none" && $templates_skip eq 0){
8795
8796                                         $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{templatefilemissing}, $page_template, $page_name, $page_filename));
8797                                         $kiriwrite_presmodule->addlinebreak();
8798                                         $error_count++;
8799                                         next;
8800
8801                                         $page_final = $page_content;
8802
8803                                 } elsif ($page_template eq "!none"){
8804
8805                                         $page_final = $page_content;
8806
8807                                 } else {
8808
8809                                         if ($page_content){
8810
8811                                                 $page_final = $templatefiles{$page_template}{template};
8812
8813                                                 if (!$page_final){
8814                                                         $page_final = "";
8815                                                 }
8816
8817                                                 $page_final =~ s/<kiriwrite:pagecontent>/$page_content/g;
8818
8819                                         }
8820
8821                                 }
8822
8823                                 # Create the combined page title (if needed).
8824
8825                                 if ($page_settings eq 0 || $page_settings > 3){
8826
8827                                         # Don't use page name or section name.
8828
8829                                         $page_final =~ s/<kiriwrite:pagetitle>//g;
8830
8831                                 } elsif ($page_settings eq 1){
8832
8833                                         # Use the page name and section name.
8834
8835                                         $page_autotitle = "(" . $page_section . " - " . $page_name . ")";
8836                                         $page_title = $page_section . " - " . $page_name;
8837                                         $page_final =~ s/<kiriwrite:pagetitle>/$page_title/g;
8838
8839                                 } elsif ($page_settings eq 2){
8840
8841                                         # Use the page name only.
8842
8843                                         $page_autotitle = "(" . $page_name . ")";
8844                                         $page_final =~ s/<kiriwrite:pagetitle>/$page_name/g;
8845
8846                                 } elsif ($page_settings eq 3){
8847
8848                                         # Use the section name only.
8849
8850                                         if ($page_section){
8851                                                 $page_autotitle = "(" . $page_section . ")";
8852                                         }
8853                                         $page_final =~ s/<kiriwrite:pagetitle>/$page_section/g;
8854
8855                                 }
8856
8857                                 # Check if the section name is not blank and
8858                                 # place brackets inbetween if it is.
8859
8860                                 if ($page_section){
8861
8862                                         $page_autosection = "(" . $page_section . ")";
8863
8864                                 }
8865
8866                                 # Replace each <kiriwrite> value with the apporiate page
8867                                 # values.
8868
8869                                 $page_final =~ s/<kiriwrite:pagename>/$page_name/g;
8870                                 $page_final =~ s/<kiriwrite:pagedescription>/$page_description/g;
8871                                 $page_final =~ s/<kiriwrite:pagesection>/$page_section/g;
8872                                 $page_final =~ s/<kiriwrite:autosection>/$page_autosection/g;
8873                                 $page_final =~ s/<kiriwrite:autotitle>/$page_autotitle/g;
8874
8875                                 # Process the filters on the page data.
8876
8877                                 if ($filters_skip eq 0){
8878
8879                                         $filters_count = 0;
8880
8881                                         foreach $filter_find (@findfilter){
8882
8883                                                 # Get the replace filter and process each
8884                                                 # filter on the page.
8885
8886                                                 $filter_replace = $replacefilter[$filters_count];
8887                                                 $page_final =~ s/$filter_find/$filter_replace/g;
8888                                                 $filters_count++;
8889
8890                                         }
8891
8892                                 }
8893
8894                                 # Process the page filename and check what directories
8895                                 # need to be created.
8896
8897                                 $page_filename_length = int(length($page_filename));
8898
8899                                 do {
8900
8901                                         $page_filename_char = substr($page_filename, $page_filename_seek, 1);
8902
8903                                         # Check if a forward slash appears and add it to
8904                                         # the list of directories array.
8905
8906                                         if ($page_filename_char eq '/'){
8907
8908                                                 # Append the directory name to the list of
8909                                                 # directories array.
8910
8911                                                 $pagedirectories[$page_filename_dircount] = $page_filename_directory;
8912                                                 $page_filename_directory        = "";
8913                                                 $page_filename_char             = "";
8914                                                 $page_filename_dircount++;
8915
8916                                         } else {
8917
8918                                                 # Append the character to the directory/filename.
8919
8920                                                 $page_filename_directory = $page_filename_directory . $page_filename_char;
8921
8922                                         }
8923
8924                                         $page_filename_seek++;
8925
8926                                 } until ($page_filename_length eq $page_filename_seek);
8927
8928                                 foreach $page_directory_name (@pagedirectories){
8929
8930                                         # Check if the directory name is undefined and if it
8931                                         # is then set it blank.
8932
8933                                         if (!$page_directory_name){
8934                                                 $page_directory_name = "";
8935                                         }
8936
8937                                         if (!$page_directory_path){
8938                                                 $page_directory_path = "";
8939                                         }
8940
8941                                         # Check if the directory exists and create
8942                                         # the directory if it doesn't exist.
8943
8944                                         $page_directory_path = $page_directory_path . '/' . $page_directory_name;
8945
8946                                         mkdir($kiriwrite_config{"directory_data_output"} . '/' . $page_directory_path);
8947
8948                                 }
8949
8950                                 # Check if the file already exists and if it does then check
8951                                 # the permissions of the file and return an error if the
8952                                 # permissions set are invalid.
8953
8954                                 $page_filename_exists = kiriwrite_fileexists($kiriwrite_config{"directory_data_output"} . '/' . $page_filename);
8955
8956                                 if ($page_filename_exists eq 0){
8957
8958                                         # The page filename exists, so check if the permissions given are
8959                                         # valid.
8960
8961                                         $page_filename_permissions = kiriwrite_filepermissions($kiriwrite_config{"directory_data_output"} . '/' . $page_filename, 1, 1);
8962
8963                                         if ($page_filename_permissions eq 1){
8964
8965                                                 # The file has invalid permissions set.
8966
8967                                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{pageinvalidpermissions}, $page_filename));
8968                                                 $kiriwrite_presmodule->addlinebreak();
8969                                                 $error_count++;
8970
8971                                                 # Reset certain values.
8972
8973                                                 $page_autotitle = "";
8974                                                 $page_autosection = "";
8975                                                 $page_filename_seek = 0;
8976                                                 $page_filename_dircount = 0;
8977
8978                                                 $page_filename_directory = "";
8979                                                 $page_directory_path = "";
8980                                                 $page_directory_name = "";
8981                                                 @pagedirectories = ();
8982
8983                                                 next;
8984
8985                                         }
8986
8987                                 }
8988
8989                                 # Reset certain values.
8990
8991                                 $page_autotitle = "";
8992                                 $page_autosection = "";
8993                                 $page_filename_seek = 0;
8994                                 $page_filename_dircount = 0;
8995
8996                                 $page_filename_directory = "";
8997                                 $page_directory_path = "";
8998                                 $page_directory_name = "";
8999                                 @pagedirectories = ();
9000
9001                                 # Write the file to the output directory.
9002
9003                                 ($page_filename) = $page_filename =~ m/^(.*)$/g;
9004                                 ($kiriwrite_config{"directory_data_output"}) = $kiriwrite_config{"directory_data_output"} =~ m/^(.*)$/g;
9005                                 open($filehandle_page, ">:utf8 ",  $kiriwrite_config{"directory_data_output"} . '/' . $page_filename) or ($kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{pagenotwritten}, $page_filename, $!)), $kiriwrite_presmodule->addlinebreak(), $error_count++, next);
9006
9007                                 if (!$page_final){
9008
9009                                         $page_final = "";
9010
9011                                 }
9012
9013                                 binmode $filehandle_page, ':utf8';
9014                                 print $filehandle_page $page_final;
9015                                 close($filehandle_page);
9016
9017                                 # Write a message saying the page has been compiled. Check
9018                                 # to see if the page name is blank and write a message
9019                                 # saying there's no page name.
9020
9021                                 if (!$page_name){
9022                                         $kiriwrite_presmodule->addtext($information_prefix . ' ');
9023                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
9024                                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{compile}->{compiledpageblankname}, $page_filename));
9025                                 } else {
9026                                         $kiriwrite_presmodule->addtext($information_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{compiledpage}, $page_name, $page_filename));
9027                                 }
9028
9029
9030                                 $kiriwrite_presmodule->addlinebreak();
9031                                 $pages_count++;
9032
9033                         }
9034
9035                         # Write a message saying that the database has
9036                         # been processed.
9037
9038                         $kiriwrite_presmodule->addtext($information_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databasefinish}, $database_name));
9039                         $kiriwrite_presmodule->addlinebreak();
9040
9041                 }
9042
9043                 # Disconnect from the database server.
9044
9045                 $kiriwrite_dbmodule->disconnect();
9046
9047                 $kiriwrite_presmodule->addhorizontalline();
9048                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{compile}->{compileresults}, $pages_count, $error_count, $warning_count));
9049                 $kiriwrite_presmodule->endbox();
9050                 $kiriwrite_presmodule->addlinebreak();
9051                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist} });
9052
9053                 return $kiriwrite_presmodule->grab();
9054
9055         } elsif ($confirm eq 0){
9056
9057                 # The action to compile the databases has
9058                 # not been confirmed so check what type
9059                 # is being used.
9060
9061                 if ($type eq "single"){
9062
9063                         # The type is a single database selected so
9064                         # process that database.
9065
9066                         # Define some variables for later.
9067
9068                         my %database_info;
9069                         my $database_filename_check;
9070                         my $database_maxlength_check;
9071                         my $databasefilename;
9072                         my $database_name;
9073
9074                         # Check that the database name and length are
9075                         # valid and return an error if they aren't.
9076
9077                         $databasefilename = $selectedlist[0];
9078
9079                         # Connect to the database server.
9080
9081                         $kiriwrite_dbmodule->connect();
9082
9083                         # Check if any errors occured while connecting to the database server.
9084
9085                         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
9086
9087                                 # A database connection error has occured so return
9088                                 # an error.
9089
9090                                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
9091
9092                         }
9093
9094                         # Select the database.
9095
9096                         $kiriwrite_dbmodule->selectdb({ DatabaseName => $databasefilename });
9097
9098                         # Check if any errors had occured while selecting the database.
9099
9100                         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
9101
9102                                 # The database does not exist, so return an error.
9103
9104                                 kiriwrite_error("databasemissingfile");
9105
9106                         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
9107
9108                                 # The database has invalid permissions set, so return
9109                                 # an error.
9110
9111                                 kiriwrite_error("databaseinvalidpermissions");
9112
9113                         }
9114
9115                         # Get information about the database.
9116
9117                         %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
9118
9119                         # Check if any error occured while getting the database information.
9120
9121                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
9122
9123                                 # A database error has occured so return an error and
9124                                 # also the extended error information.
9125
9126                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
9127
9128                         };
9129
9130                         $database_name = $database_info{"DatabaseName"};
9131
9132                         # Disconnect from the database server.
9133
9134                         $kiriwrite_dbmodule->disconnect();
9135
9136                         # Write out a form asking the user to confirm if the
9137                         # user wants to compile the selected database.
9138
9139                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compiledatabase}, { Style => "pageheader" });
9140                         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
9141                         $kiriwrite_presmodule->addhiddendata("mode", "compile");
9142                         $kiriwrite_presmodule->addhiddendata("action", "compile");
9143                         $kiriwrite_presmodule->addhiddendata("type", "multiple");
9144                         $kiriwrite_presmodule->addhiddendata("id[1]", $databasefilename);
9145                         $kiriwrite_presmodule->addhiddendata("name[1]", "on");
9146                         $kiriwrite_presmodule->addhiddendata("confirm", 1);
9147                         $kiriwrite_presmodule->addlinebreak();
9148                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{compile}->{compiledatabasemessage}, $database_name));
9149                         $kiriwrite_presmodule->addlinebreak();
9150                         $kiriwrite_presmodule->addlinebreak();
9151                         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{compile}->{compiledatabasebutton});
9152                         $kiriwrite_presmodule->addtext(" | ");
9153                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist} });
9154
9155                         return $kiriwrite_presmodule->grab();
9156
9157                 } elsif ($type eq "multiple"){
9158
9159                         # The type is multiple databases selected
9160                         # so process each database.
9161
9162                         # Define some variables for later.
9163
9164                         my %database_list;
9165                         my $databasename;
9166                         my $database;
9167                         my $database_filename_check;
9168                         my $database_maxlength_check;
9169                         my $database_count = 0;
9170                         my $database_info_name;
9171
9172                         # Connect to the database server.
9173
9174                         $kiriwrite_dbmodule->connect();
9175
9176                         # Check if any errors occured while connecting to the database server.
9177
9178                         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
9179
9180                                 # A database connection error has occured so return
9181                                 # an error.
9182
9183                                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
9184
9185                         }
9186
9187                         foreach $databasename (@selectedlist){
9188
9189                                 # Check if the database is in the database
9190                                 # directory and skip it if it isn't.
9191
9192                                 $database_filename_check        = kiriwrite_variablecheck($databasename, "filename", "", 1);
9193                                 $database_maxlength_check       = kiriwrite_variablecheck($databasename, "maxlength", 32, 1);
9194
9195                                 if ($database_filename_check ne 0 || $database_maxlength_check ne 0){
9196
9197                                         # The database filename given is invalid or
9198                                         # the database filename given is too long
9199                                         # so process the next database.
9200
9201                                         next;
9202
9203                                 }
9204
9205                                 # Select the database to add the page to.
9206
9207                                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $databasename });
9208
9209                                 # Check if any errors had occured while selecting the database.
9210
9211                                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
9212
9213                                         # The database does not exist, so process the next database.
9214
9215                                         next;
9216
9217                                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
9218
9219                                         # The database has invalid permissions set, so process
9220                                         # the next database.
9221
9222                                         next;
9223
9224                                 }
9225
9226                                 # Get information about the database.
9227
9228                                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
9229
9230                                 # Check if any error occured while getting the database information.
9231
9232                                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
9233
9234                                         # A database error has occured so process the next
9235                                         # database.
9236
9237                                         next;
9238
9239                                 };
9240
9241                                 $database_list{$database_count}{Name}           = $database_info{"DatabaseName"};
9242                                 $database_list{$database_count}{Filename}       = $databasename;
9243
9244                                 $database_count++;
9245
9246                         }
9247
9248                         # Check if any databases are available to be compiled.
9249
9250                         if ($database_count eq 0){
9251
9252                                 # No databases are available to be compiled.
9253
9254                                 kiriwrite_error("nodatabaseselected");
9255
9256                         }
9257
9258                         # Write out the form for compiling the database.
9259
9260                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compileselecteddatabases}, { Style => "pageheader" });
9261                         $kiriwrite_presmodule->addlinebreak();
9262                         $kiriwrite_presmodule->addlinebreak();
9263                         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
9264                         $kiriwrite_presmodule->addhiddendata("mode", "compile");
9265                         $kiriwrite_presmodule->addhiddendata("action", "compile");
9266                         $kiriwrite_presmodule->addhiddendata("type", "multiple");
9267                         $kiriwrite_presmodule->addhiddendata("count", $database_count);
9268                         $kiriwrite_presmodule->addhiddendata("confirm", 1);
9269                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compileselecteddatabasesmessage});
9270                         $kiriwrite_presmodule->addlinebreak();
9271                         $kiriwrite_presmodule->addlinebreak();
9272                         $kiriwrite_presmodule->startbox("datalist");
9273
9274                         $database_count = 0;
9275
9276                         # write out the list of databases to compile.
9277
9278                         foreach $database (keys %database_list){
9279
9280                                 $database_count++;
9281
9282                                 $kiriwrite_presmodule->addhiddendata("id[" . $database_count . "]", $database_list{$database}{Filename});
9283                                 $kiriwrite_presmodule->addhiddendata("name[" . $database_count . "]", "on");
9284
9285                                 # Check if the database name is undefined and if it is
9286                                 # then write a message saying the database name is blank.
9287
9288                                 if (!$database_list{$database}{Name}){
9289                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{compile}->{blankdatabasename});
9290                                 } else {
9291                                         $kiriwrite_presmodule->addtext($database_list{$database}{Name});
9292                                 }
9293
9294                                 $kiriwrite_presmodule->addlinebreak();
9295
9296                         }
9297
9298                         $kiriwrite_presmodule->endbox();
9299
9300                         # Disconnect from the database server.
9301
9302                         $kiriwrite_dbmodule->disconnect();
9303
9304                         $kiriwrite_presmodule->addlinebreak();
9305                         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{compile}->{compileselecteddatabasesbutton});
9306                         $kiriwrite_presmodule->addtext(" | ");
9307                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist} });
9308                         $kiriwrite_presmodule->endform();
9309
9310                         return $kiriwrite_presmodule->grab();
9311
9312                 } else {
9313
9314                         # The type is something else other than
9315                         # single or multiple, so return an error.
9316
9317                         kiriwrite_error("invalidvariable");
9318
9319                 }
9320
9321         } else {
9322
9323                 # The confirm value is neither 0 or 1, so
9324                 # return an error.
9325
9326                 kiriwrite_error("invalidvariable");
9327
9328         }
9329
9330 }
9331
9332 sub kiriwrite_compile_all{
9333 #################################################################################
9334 # kiriwrite_compile_all: Compile all of the databases in the database           #
9335 # directory.                                                                    #
9336 #                                                                               #
9337 # Usage:                                                                        #
9338 #                                                                               #
9339 # kiriwrite_compile_all();                                                      #
9340 #################################################################################
9341
9342         # Connect to the database server.
9343
9344         $kiriwrite_dbmodule->connect();
9345
9346         # Check if any errors occured while connecting to the database server.
9347
9348         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
9349
9350                 # A database connection error has occured so return
9351                 # an error.
9352
9353                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
9354
9355         }
9356
9357         # Get the list of available databases.
9358
9359         my @database_list = $kiriwrite_dbmodule->getdblist();
9360
9361         # Check if any errors occured while getting the databases.
9362
9363         if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
9364
9365                 # The database directory is missing so return an error.
9366
9367                 kiriwrite_error("datadirectorymissing");
9368
9369         } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
9370
9371                 # The database directory has invalid permissions set so return
9372                 # an error.
9373
9374                 kiriwrite_error("datadirectoryinvalidpermissions");
9375
9376         }
9377
9378         # Define some variables for later.
9379
9380         my $database;
9381         my $database_name_filename_check;
9382         my $database_count              = 0;
9383
9384         # Check the list of databases to compile to see if it is blank,
9385         # if it is then return an error.
9386
9387         if (!@database_list){
9388
9389                 # The list of database is blank so return an error.
9390
9391                 kiriwrite_error("nodatabasesavailable");
9392
9393         }
9394
9395         # Write out a form for confirming the action to compile all of the databases.
9396
9397         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compilealldatabases}, { Style => "pageheader" });
9398         $kiriwrite_presmodule->addlinebreak();
9399         $kiriwrite_presmodule->addlinebreak();
9400
9401         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
9402         $kiriwrite_presmodule->addhiddendata("mode", "compile");
9403         $kiriwrite_presmodule->addhiddendata("action", "compile");
9404         $kiriwrite_presmodule->addhiddendata("type", "multiple");
9405
9406         foreach $database (@database_list){
9407
9408                 # Check if the database filename is blank.
9409
9410                 if ($database eq ""){
9411
9412                         # The database filename is blank so process
9413                         # the next database.
9414
9415                         next;
9416
9417                 }
9418
9419                 # Check if the database filename is valid before
9420                 # using the database.
9421
9422                 $database_name_filename_check   = kiriwrite_variablecheck($database, "filename", 0, 1);
9423
9424                 if ($database_name_filename_check ne 0){
9425
9426                         # The database filename is invalid so process
9427                         # the next database.
9428
9429                         next;
9430
9431                 }
9432
9433                 $database_count++;
9434                 $kiriwrite_presmodule->addhiddendata("id[" . $database_count . "]", $database);
9435                 $kiriwrite_presmodule->addhiddendata("name[" . $database_count . "]", "on");
9436
9437         }
9438
9439         $kiriwrite_presmodule->addhiddendata("count", $database_count);
9440
9441         # Disconnect from the database server.
9442
9443         $kiriwrite_dbmodule->disconnect();
9444
9445         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compilealldatabasesmessage});
9446         $kiriwrite_presmodule->addlinebreak();
9447         $kiriwrite_presmodule->addlinebreak();
9448
9449         $kiriwrite_presmodule->addhiddendata("confirm", 1);
9450         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{compile}->{compilealldatabasesbutton});
9451         $kiriwrite_presmodule->addtext(" | ");
9452         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist} });
9453
9454         return $kiriwrite_presmodule->grab();
9455
9456 }
9457
9458 sub kiriwrite_selectedlist{
9459 #################################################################################
9460 # kiriwrite_page_selectedlist: Get the list of selected pages to use.           #
9461 #                                                                               #
9462 # Usage:                                                                        #
9463 #                                                                               #
9464 # kiriwrite_page_selectedlist();                                                #
9465 #################################################################################
9466
9467         # Load the required Perl modules.
9468
9469         my $query = new CGI;
9470
9471         my $count       = $query->param('count');
9472
9473         # Check if the list of files has a value and if not set it 0.
9474
9475         if (!$count){
9476
9477                 $count = 0;
9478
9479         }
9480
9481         # Define some values for later.
9482
9483         my @filename_list;
9484         my @selected_list;
9485         my @final_list;
9486
9487         my $filename;
9488         my $selected;
9489
9490         my $final_count = 0;
9491         my $seek = 0;
9492
9493         # Get the list of filenames.
9494
9495         do {
9496
9497                 # Get the values from id[]
9498
9499                 $seek++;
9500
9501                 $filename               = $query->param('id[' . $seek . ']');
9502                 $filename_list[$seek]   = $filename;
9503
9504         } until ($seek eq $count || $count eq 0);
9505
9506         # Get the list of selected filenames.
9507
9508         $seek = 0;
9509
9510         do {
9511
9512                 # Get the values from name[]
9513
9514                 $seek++;
9515
9516                 $selected       = $query->param('name[' . $seek . ']');
9517
9518                 if (!$selected){
9519
9520                         $selected = 'off';
9521
9522                 }
9523
9524                 $selected_list[$seek]   = $selected;
9525
9526         } until ($seek eq $count || $count eq 0);
9527
9528         # Create a final list of filenames to be used for
9529         # processing.
9530
9531         $seek = 0;
9532
9533         do {
9534
9535                 # Check if the selected value is on and include
9536                 # the filename in the final list.
9537
9538                 $seek++;
9539
9540                 $selected       = $selected_list[$seek];
9541
9542                 if ($selected eq "on"){
9543
9544                         $filename       = $filename_list[$seek];
9545                         $final_list[$final_count] = $filename;
9546                         $final_count++;
9547
9548                 }
9549
9550         } until ($seek eq $count || $count eq 0);
9551
9552         return @final_list;
9553
9554 }
9555
9556 sub kiriwrite_compile_list{
9557 #################################################################################
9558 # kiriwrite_compile_list: Shows a list of databases that can be compiled.       #
9559 #                                                                               #
9560 # Usage:                                                                        #
9561 #                                                                               #
9562 # kiriwrite_compile_list();                                                     #
9563 #################################################################################
9564
9565         # Define the following variables that are going to be used before using
9566         # the foreach function.
9567
9568         my %database_info;
9569         my %database_list;
9570         my $database_count = 0;
9571         my $database_filename = "";
9572         my $database_filename_friendly = "";
9573         my $database_permissions = "";
9574         my $database_name = "";
9575         my $database_description = "";
9576         my $data_file = "";
9577         my @permissions_list;
9578         my @error_list;
9579         my $table_style = 0;
9580         my $table_style_name = "";
9581         my $database;
9582
9583         tie(%database_list, 'Tie::IxHash');
9584
9585         # Connect to the database server.
9586
9587         $kiriwrite_dbmodule->connect();
9588
9589         # Check if any errors occured while connecting to the database server.
9590
9591         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
9592
9593                 # A database connection error has occured so return
9594                 # an error.
9595
9596                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
9597
9598         }
9599
9600         # Get the list of available databases and process any errors that
9601         # might have occured.
9602
9603         my @database_list = $kiriwrite_dbmodule->getdblist();
9604
9605         if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
9606
9607                 # The database directory is missing so return an error.
9608
9609                 kiriwrite_error("datadirectorymissing");
9610
9611         } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
9612
9613                 # The database directory has invalid permissions set so return
9614                 # an error.
9615
9616                 kiriwrite_error("datadirectoryinvalidpermissions");
9617
9618         }
9619
9620         # Begin creating the table for the list of databases.
9621
9622         foreach $data_file (@database_list){
9623
9624                 # Select the database.
9625
9626                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $data_file });
9627
9628                 # Check if any error occured while selecting the database.
9629
9630                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
9631
9632                         # The database does not exist, so process the next
9633                         # database.
9634
9635                         next;
9636
9637                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet") {
9638
9639                         # The database has invalid permissions settings, so
9640                         # add the database to the list of databases with
9641                         # invalid permissions set and process the next
9642                         # database.
9643
9644                         push(@permissions_list, $data_file);
9645                         next;
9646
9647                 }
9648
9649                 # Get information about the database.
9650
9651                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
9652
9653                 # Check if any error occured while getting information from the
9654                 # database.
9655
9656                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
9657
9658                         # A database error has occured, add the database and specific
9659                         # error message to the list of databases with errors and
9660                         # process the next database.
9661
9662                         push(@error_list, $data_file . ": " . $kiriwrite_dbmodule->geterror(1));
9663                         next;
9664
9665                 }
9666
9667                 $database_name          = $database_info{"DatabaseName"};
9668                 $database_description   = $database_info{"Description"};
9669
9670                 # Create a friendly name for the database.
9671
9672                 $database_filename_friendly = $data_file;
9673
9674                 # Append the database information to the table.
9675
9676                 $database_list{$database_count}{Filename}       = $database_filename_friendly;
9677                 $database_list{$database_count}{Name}           = $database_name;
9678                 $database_list{$database_count}{Description}    = $database_description;
9679
9680                 $database_count++;
9681
9682         }
9683
9684         # Check if there are no valid databases are if there is no
9685         # valid databases then write a message saying that no
9686         # valid databases are available.
9687
9688         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compilepages}, { Style => "pageheader" });
9689         $kiriwrite_presmodule->addlinebreak();
9690         $kiriwrite_presmodule->addlinebreak();
9691
9692         if ($database_count eq 0){
9693
9694                 # There are no databases available for compiling so
9695                 # write a message instead.
9696
9697                 $kiriwrite_presmodule->startbox("errorbox");
9698                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{nodatabasesavailable});
9699                 $kiriwrite_presmodule->endbox();
9700
9701         } else {
9702
9703                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
9704                 $kiriwrite_presmodule->addhiddendata("mode", "compile");
9705                 $kiriwrite_presmodule->addhiddendata("action", "compile");
9706                 $kiriwrite_presmodule->addhiddendata("type", "multiple");
9707
9708                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{selectnone});
9709                 $kiriwrite_presmodule->addtext(" | ");
9710                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{compile}->{compileselectedbutton});
9711                 $kiriwrite_presmodule->addlinebreak();
9712                 $kiriwrite_presmodule->addlinebreak();
9713                 $kiriwrite_presmodule->addhiddendata("count", $database_count);
9714                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
9715
9716                 $kiriwrite_presmodule->startheader();
9717                 $kiriwrite_presmodule->addheader("", { Style => "tablecellheader" });
9718                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{database}->{databasename}, { Style => "tablecellheader" });
9719                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{database}->{databasedescription}, { Style => "tablecellheader" });
9720                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{options}, { Style => "tablecellheader" });
9721                 $kiriwrite_presmodule->endheader();
9722
9723                 $database_count = 1;
9724
9725                 foreach $database (keys %database_list){
9726
9727                         # Check the style to be used with.
9728
9729                         if ($table_style eq 0){
9730
9731                                 # Use the first style and set the style value
9732                                 # to use the next style, the next time the
9733                                 # if statement is checked.
9734
9735                                 $table_style_name = "tablecell1";
9736                                 $table_style = 1;
9737
9738                         } else {
9739
9740                                 # Use the second style and set the style
9741                                 # value to use the first style, the next
9742                                 # time if statement is checked.
9743
9744                                 $table_style_name = "tablecell2";
9745                                 $table_style = 0;
9746                         }
9747
9748                         # Add the template to the list of available
9749                         # templates to compile.
9750
9751                         $kiriwrite_presmodule->startrow();
9752                         $kiriwrite_presmodule->addcell($table_style_name);
9753                         $kiriwrite_presmodule->addhiddendata("id[" . $database_count . "]", $database_list{$database}{Filename});
9754                         $kiriwrite_presmodule->addcheckbox("name[" . $database_count . "]");
9755                         $kiriwrite_presmodule->endcell();
9756                         $kiriwrite_presmodule->addcell($table_style_name);
9757
9758                         if (!$database_list{$database}{Name}){
9759                                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile&action=compile&type=single&database=" . $database_list{$database}{Filename}, { Text => $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname}) });
9760                         } else {
9761                                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database_list{$database}{Filename}, { Text => $database_list{$database}{Name} });
9762                         }
9763
9764                         $kiriwrite_presmodule->endcell();
9765                         $kiriwrite_presmodule->addcell($table_style_name);
9766
9767                         if (!$database_list{$database}{Description}){
9768                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{nodescription});
9769                         } else {
9770                                 $kiriwrite_presmodule->addtext($database_list{$database}{Description});
9771                         }
9772
9773                         $kiriwrite_presmodule->endcell();
9774                         $kiriwrite_presmodule->addcell($table_style_name);
9775                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile&action=compile&type=single&database=" . $database_list{$database}{Filename}, { Text => $kiriwrite_lang->{options}->{compile} });
9776                         $kiriwrite_presmodule->endcell();
9777                         $kiriwrite_presmodule->endrow();
9778
9779                         $database_count++;
9780
9781                 }
9782
9783                 $kiriwrite_presmodule->endtable();
9784                 $kiriwrite_presmodule->endform();
9785
9786         }
9787
9788         # Disconnect from the database server.
9789
9790         $kiriwrite_dbmodule->disconnect();
9791
9792         # Check if any databases with problems have appeared and if they
9793         # have, print out a message saying which databases have problems.
9794
9795         if (@permissions_list){
9796
9797                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseinvalidpermissions}, { Style => "smallpageheader" });
9798                 $kiriwrite_presmodule->addlinebreak();
9799                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseinvalidpermissionstext});
9800                 $kiriwrite_presmodule->addlinebreak();
9801
9802                 foreach $database (@permissions_list){
9803
9804                         $kiriwrite_presmodule->addlinebreak();
9805                         $kiriwrite_presmodule->addtext($database);
9806
9807                 }
9808
9809                 $kiriwrite_presmodule->addlinebreak();
9810                 $kiriwrite_presmodule->addlinebreak();
9811
9812         }
9813
9814         if (@error_list){
9815
9816                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseerrors}, { Style => "smallpageheader" });
9817                 $kiriwrite_presmodule->addlinebreak();
9818                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseerrorstext});
9819                 $kiriwrite_presmodule->addlinebreak();
9820
9821                 foreach $database (@error_list){
9822
9823                         $kiriwrite_presmodule->addlinebreak();
9824                         $kiriwrite_presmodule->addtext($database);
9825
9826                 }
9827
9828         }
9829
9830         return $kiriwrite_presmodule->grab();
9831
9832 }
9833
9834 sub kiriwrite_compile_clean{
9835 #################################################################################
9836 # kiriwrite_compile_clean: Deletes the contents of the output directory.        #
9837 #                                                                               #
9838 # Usage:                                                                        #
9839 #                                                                               #
9840 # kiriwrite_compile_clean(confirm);                                             #
9841 #                                                                               #
9842 # confirm       Confirms the deletion of files from the output directory.       #
9843 #################################################################################
9844
9845         # Get the values passed to the subroutine.
9846
9847         my ($confirm) = @_;
9848
9849         # Define some variables for later.
9850
9851         my $file_permissions;
9852         my $output_directory_exists;
9853         my $output_directory_permissions;
9854         my $warning_message;
9855
9856         # Check if the output directory exists.
9857
9858         $output_directory_exists         = kiriwrite_fileexists($kiriwrite_config{"directory_data_output"});
9859
9860         if ($output_directory_exists eq 1){
9861
9862                 # The output directory does not exist so return
9863                 # an error.
9864
9865                 kiriwrite_error("outputdirectorymissing");
9866
9867         }
9868
9869         # Check if the output directory has invalid
9870         # permissions set.
9871
9872         $output_directory_permissions   = kiriwrite_filepermissions($kiriwrite_config{"directory_data_output"});
9873
9874         if ($output_directory_permissions eq 1){
9875
9876                 # The output directory has invalid permissions
9877                 # set, so return an error.
9878
9879                 kiriwrite_error("outputdirectoryinvalidpermissions");
9880
9881         }
9882
9883         if ($confirm) {
9884
9885                 if ($confirm eq 1){
9886
9887                         # The action to clean the output directory has been
9888                         # confirmed.
9889
9890                         # Remove the list of files and directories from the
9891                         # output directory.
9892
9893                         $file_permissions = kiriwrite_compile_clean_helper($kiriwrite_config{"directory_data_output"}, 1);
9894
9895                         if ($file_permissions eq 1){
9896
9897                                 # One of the files or directories has invalid
9898                                 # permissions set so write a warning message.
9899
9900                         }
9901
9902                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{cleanoutputdirectory}, { Style => "pageheader" });
9903
9904                         if ($file_permissions eq 1){
9905
9906                                 $kiriwrite_presmodule->addlinebreak();
9907                                 $kiriwrite_presmodule->addlinebreak();
9908                                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{somecontentnotremoved});
9909                                 $kiriwrite_presmodule->addlinebreak();
9910                                 $kiriwrite_presmodule->addlinebreak();
9911
9912                         } else {
9913
9914                                 $kiriwrite_presmodule->addlinebreak();
9915                                 $kiriwrite_presmodule->addlinebreak();
9916                                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{contentremoved});
9917                                 $kiriwrite_presmodule->addlinebreak();
9918                                 $kiriwrite_presmodule->addlinebreak();
9919
9920                         }
9921
9922                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist} });
9923
9924                         return $kiriwrite_presmodule->grab();
9925
9926                 } else {
9927
9928                         # A value other than 1 is set for the confirm value
9929                         # (which it shouldn't be) so return an error.
9930
9931                         kiriwrite_error("invalidvariable");
9932
9933                 }
9934
9935         }
9936
9937         # Print out a form for cleaning the output directory.
9938
9939         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{cleanoutputdirectory}, { Style => "pageheader" });
9940         $kiriwrite_presmodule->addlinebreak();
9941         $kiriwrite_presmodule->addlinebreak();
9942         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
9943         $kiriwrite_presmodule->addhiddendata("mode", "compile");
9944         $kiriwrite_presmodule->addhiddendata("action", "clean");
9945         $kiriwrite_presmodule->addhiddendata("confirm", 1);
9946         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{cleanoutputdirectorymessage});
9947         $kiriwrite_presmodule->addlinebreak();
9948         $kiriwrite_presmodule->addlinebreak();
9949         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{compile}->{cleanoutputdirectorybutton});
9950         $kiriwrite_presmodule->addtext(" | ");
9951         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist}});
9952         $kiriwrite_presmodule->endform();
9953
9954         return $kiriwrite_presmodule->grab();
9955
9956 }
9957
9958 sub kiriwrite_compile_clean_helper{
9959 #################################################################################
9960 # kiriwrite_compile_clean_helper: Helper for cleaning out the output directory. #
9961 # This command sometimes is called recursively (when a directory is found).     #
9962 #                                                                               #
9963 # Usage:                                                                        #
9964 #                                                                               #
9965 # kiriwrite_compile_clean_helper(directory, removedirectory, [permissions]);    #
9966 #                                                                               #
9967 # directory             Specifies the directory to remove files (and            #
9968 #                       sub-directories) from.                                  #
9969 # keepdirectory         Keeps the directory itself after all files have been    #
9970 #                       removed.                                                #
9971 # permissions           Used recursively for error checking.                    #
9972 #################################################################################
9973
9974         # Get the values passed to the subroutine.
9975
9976         my ($directory, $directory_keep, $permissions) = @_;
9977
9978         # Check if the directory_keep is only one charater long.
9979
9980         my $directory_file = "";
9981         my @directory_list;
9982         my $file_permissions = 0;
9983         my $debug = 0;
9984
9985         # Check if the file permissions value is blank.
9986
9987         if (!$permissions){
9988
9989                 # The file permissions value is blank.
9990
9991                 $permissions = 0;
9992
9993         }
9994
9995         # Open the directory specified, read the contents of
9996         # the directory and then close the directory.
9997
9998         opendir(DIRECTORY, $directory);
9999         @directory_list = readdir(DIRECTORY);
10000         closedir(DIRECTORY);
10001
10002         # Remove each file and directory.
10003
10004         foreach $directory_file (@directory_list){
10005
10006                 # Check if the filename is '.' or '..' and if it
10007                 # is skip those files.
10008
10009                 if ($directory_file eq "." || $directory_file eq ".."){
10010
10011                         # The filename is '.' or '..' so skip processing
10012                         # these files.
10013
10014                 } else {
10015
10016                         # Check if the permissions on the file or directory has
10017                         # valid permissions set.
10018
10019                         $file_permissions = kiriwrite_filepermissions($directory . '/' . $directory_file, 1, 1);
10020
10021                         if ($file_permissions eq 1){
10022
10023                                 # The file or directory has invalid permissions set.
10024
10025                                 $permissions = 1;
10026                                 next;
10027
10028                         }
10029
10030                         # Check if the filename is a directory.
10031
10032                         if (-d $directory . '/' . $directory_file){
10033
10034                                 # The filename is a directory so send the directory name
10035                                 # and this subroutine again (recursively).
10036
10037                                 kiriwrite_compile_clean_helper($directory . '/' . $directory_file, 0, $permissions);
10038
10039                         } else {
10040
10041                                 # The file is not a directory but an actual file so
10042                                 # remove as normal (in terms of the Perl language).
10043
10044                                 ($directory) = $directory =~ m/^(.*)$/g;
10045                                 ($directory_file) = $directory_file =~ m/^(.*)$/g;
10046
10047                                 # Check if the directory is undefined and if it is then
10048                                 # set it to blank.
10049
10050                                 if (!$directory){
10051                                         $directory = "";
10052                                 }
10053
10054                                 if (!$directory_file){
10055                                         $directory_file = "";
10056                                 }
10057
10058                                 unlink($directory . '/' . $directory_file);
10059
10060                         }
10061
10062                 }
10063
10064         }
10065
10066         # Check if the directory should be kept.
10067
10068         if ($directory_keep eq 1){
10069
10070                 # The directory_keep value is set as 1 so the directory
10071                 # specified should be kept.
10072
10073         } elsif ($directory_keep eq 0) {
10074
10075                 # The directory_keep value is set as 0 so remove the
10076                 # directory specified.
10077
10078                 ($directory) = $directory =~ m/^(.*)$/g;
10079                 rmdir($directory);
10080
10081         } else {
10082
10083                 # A value other than 0 or 1 was specified so return
10084                 # an error,
10085
10086                 kiriwrite_error('invalidvalue');
10087
10088         }
10089
10090         return $permissions;
10091
10092 }
10093
10094 sub kiriwrite_settings_view{
10095 #################################################################################
10096 # kiriwrite_options_view: Writes out the list of options and variables.         #
10097 #                                                                               #
10098 # Usage:                                                                        #
10099 #                                                                               #
10100 # kiriwrite_settings_view();                                                    #
10101 #################################################################################
10102
10103         # Get the settings.
10104
10105         my $settings_directory_db               = $kiriwrite_config{"directory_data_db"};
10106         my $settings_directory_output           = $kiriwrite_config{"directory_data_output"};
10107         my $settings_noncgi_images              = $kiriwrite_config{"directory_noncgi_images"};
10108         my $settings_system_datetime            = $kiriwrite_config{"system_datetime"};
10109         my $settings_system_language            = $kiriwrite_config{"system_language"};
10110         my $settings_system_presentation        = $kiriwrite_config{"system_presmodule"};
10111         my $settings_system_database            = $kiriwrite_config{"system_dbmodule"};
10112
10113         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{viewsettings}, { Style => "pageheader" });
10114         $kiriwrite_presmodule->addlinebreak();
10115         $kiriwrite_presmodule->addlinebreak();
10116         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{currentsettings});
10117         $kiriwrite_presmodule->addlinebreak();
10118         $kiriwrite_presmodule->addlinebreak();
10119         $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
10120
10121         $kiriwrite_presmodule->startheader();
10122         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
10123         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
10124         $kiriwrite_presmodule->endheader();
10125
10126         $kiriwrite_presmodule->startrow();
10127         $kiriwrite_presmodule->addcell("tablecellheader");
10128         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{directories});
10129         $kiriwrite_presmodule->endcell();
10130         $kiriwrite_presmodule->addcell("tablecellheader");
10131         $kiriwrite_presmodule->endcell();
10132         $kiriwrite_presmodule->endrow();
10133
10134         $kiriwrite_presmodule->startrow();
10135         $kiriwrite_presmodule->addcell("tablecell1");
10136         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasedirectory});
10137         $kiriwrite_presmodule->endcell();
10138         $kiriwrite_presmodule->addcell("tablecell2");
10139         $kiriwrite_presmodule->addtext($settings_directory_db);
10140         $kiriwrite_presmodule->endcell();
10141         $kiriwrite_presmodule->endrow();
10142
10143         $kiriwrite_presmodule->startrow();
10144         $kiriwrite_presmodule->addcell("tablecell1");
10145         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{outputdirectory});
10146         $kiriwrite_presmodule->endcell();
10147         $kiriwrite_presmodule->addcell("tablecell2");
10148         $kiriwrite_presmodule->addtext($settings_directory_output);
10149         $kiriwrite_presmodule->endcell();
10150         $kiriwrite_presmodule->endrow();
10151
10152         $kiriwrite_presmodule->startrow();
10153         $kiriwrite_presmodule->addcell("tablecell1");
10154         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{imagesuripath});
10155         $kiriwrite_presmodule->endcell();
10156         $kiriwrite_presmodule->addcell("tablecell2");
10157         $kiriwrite_presmodule->addtext($settings_noncgi_images);
10158         $kiriwrite_presmodule->endcell();
10159         $kiriwrite_presmodule->endrow();
10160
10161         $kiriwrite_presmodule->startrow();
10162         $kiriwrite_presmodule->addcell("tablecellheader");
10163         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{date});
10164         $kiriwrite_presmodule->endcell();
10165         $kiriwrite_presmodule->addcell("tablecellheader");
10166         $kiriwrite_presmodule->endcell();
10167         $kiriwrite_presmodule->endrow();
10168
10169         $kiriwrite_presmodule->startrow();
10170         $kiriwrite_presmodule->addcell("tablecell1");
10171         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{dateformat});
10172         $kiriwrite_presmodule->endcell();
10173         $kiriwrite_presmodule->addcell("tablecell2");
10174         $kiriwrite_presmodule->addtext($settings_system_datetime);
10175         $kiriwrite_presmodule->endcell();
10176         $kiriwrite_presmodule->endrow();
10177
10178         $kiriwrite_presmodule->startrow();
10179         $kiriwrite_presmodule->addcell("tablecellheader");
10180         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{language});
10181         $kiriwrite_presmodule->endcell();
10182         $kiriwrite_presmodule->addcell("tablecellheader");
10183         $kiriwrite_presmodule->endcell();
10184         $kiriwrite_presmodule->endrow();
10185
10186         $kiriwrite_presmodule->startrow();
10187         $kiriwrite_presmodule->addcell("tablecell1");
10188         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{systemlanguage});
10189         $kiriwrite_presmodule->endcell();
10190         $kiriwrite_presmodule->addcell("tablecell2");
10191         $kiriwrite_presmodule->addtext($settings_system_language);
10192         $kiriwrite_presmodule->endcell();
10193         $kiriwrite_presmodule->endrow();
10194
10195         $kiriwrite_presmodule->startrow();
10196         $kiriwrite_presmodule->addcell("tablecellheader");
10197         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{modules});
10198         $kiriwrite_presmodule->endcell();
10199         $kiriwrite_presmodule->addcell("tablecellheader");
10200         $kiriwrite_presmodule->endcell();
10201         $kiriwrite_presmodule->endrow();
10202
10203         $kiriwrite_presmodule->startrow();
10204         $kiriwrite_presmodule->addcell("tablecell1");
10205         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{presentationmodule});
10206         $kiriwrite_presmodule->endcell();
10207         $kiriwrite_presmodule->addcell("tablecell2");
10208         $kiriwrite_presmodule->addtext($settings_system_presentation);
10209         $kiriwrite_presmodule->endcell();
10210         $kiriwrite_presmodule->endrow();
10211
10212         $kiriwrite_presmodule->startrow();
10213         $kiriwrite_presmodule->addcell("tablecell1");
10214         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasemodule});
10215         $kiriwrite_presmodule->endcell();
10216         $kiriwrite_presmodule->addcell("tablecell2");
10217         $kiriwrite_presmodule->addtext($settings_system_database);
10218         $kiriwrite_presmodule->endcell();
10219         $kiriwrite_presmodule->endrow();
10220
10221         $kiriwrite_presmodule->endtable();
10222
10223         $kiriwrite_presmodule->addlinebreak();
10224         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{altersettings});
10225
10226         return $kiriwrite_presmodule->grab();
10227
10228 }
10229
10230 sub kiriwrite_settings_edit{
10231 #################################################################################
10232 # kiriwrite_settings_edit: Edits the options.                                   #
10233 #                                                                               #
10234 # Usage:                                                                        #
10235 #                                                                               #
10236 # kiriwrite_settings_edit(options);                                             #
10237 #                                                                               #
10238 # options               Specifies the following options in any order.           #
10239 #                                                                               #
10240 # DatabaseDirectory     Specifies the new database directory to use.            #
10241 # OutputDirectory       Specifies the new output directory to use.              #
10242 # ImagesURIPath         Specifies the new URI path for images.                  #
10243 # DateTimeFormat        Specifies the new date and time format.                 #
10244 # SystemLanguage        Specifies the new language to use for Kiriwrite.        #
10245 # PrsentationModule     Specifies the new presentation module to use for        #
10246 #                       Kiriwrite.                                              #
10247 # DatabaseModule        Specifies the new database module to use for Kiriwrite. #
10248 #                                                                               #
10249 # Options for server-based database modules.                                    #
10250 #                                                                               #
10251 # DatabaseServer        Specifies the database server to use.                   #
10252 # DaravasePort          Specifies the port the database server is running on.   #
10253 # DatabaseProtocol      Specifies the protocol the database server is using.    #
10254 # DatabaseSQLDatabase   Specifies the SQL database name to use.                 #
10255 # DatabaseUsername      Specifies the database server username.                 #
10256 # DatabasePasswordKeep  Keeps the current password in the configuration file.   #
10257 # DatabasePassword      Specifies the password for the database server username.#
10258 # DatabaseTablePrefix   Specifies the prefix used for tables.                   #
10259 #################################################################################
10260
10261         # Get the values that have been passed to the subroutine.
10262
10263         my ($passedoptions) = @_;
10264
10265         # Get the values from the hash.
10266
10267         my $settings_dbdirectory                = $passedoptions->{"DatabaseDirectory"};
10268         my $settings_outputdirectory            = $passedoptions->{"OutputDirectory"};
10269         my $settings_imagesuri                  = $passedoptions->{"ImagesURIPath"};
10270         my $settings_datetimeformat             = $passedoptions->{"DateTimeFormat"};
10271         my $settings_languagesystem             = $passedoptions->{"SystemLanguage"};
10272         my $settings_presmodule                 = $passedoptions->{"PresentationModule"};
10273         my $settings_dbmodule                   = $passedoptions->{"DatabaseModule"};
10274
10275         my $settings_database_server            = $passedoptions->{"DatabaseServer"};
10276         my $settings_database_port              = $passedoptions->{"DatabasePort"};
10277         my $settings_database_protocol          = $passedoptions->{"DatabaseProtocol"};
10278         my $settings_database_sqldatabase       = $passedoptions->{"DatabaseSQLDatabase"};
10279         my $settings_database_username          = $passedoptions->{"DatabaseUsername"};
10280         my $settings_database_passwordkeep      = $passedoptions->{"DatabasePasswordKeep"};
10281         my $settings_database_password          = $passedoptions->{"DatabasePassword"};
10282         my $settings_database_tableprefix       = $passedoptions->{"DatabaseTablePrefix"};
10283
10284         my $confirm                             = $passedoptions->{"Confirm"};
10285
10286         # Load the required Perl modules.
10287
10288         my $xsl = XML::Simple->new();
10289
10290         if (!$confirm){
10291
10292                 # If the confirm value is blank, then set the confirm
10293                 # value to 0.
10294
10295                 $confirm = 0;
10296
10297         }
10298
10299         if ($confirm eq "1"){
10300
10301                 # The action to edit the settings has been confirmed.
10302                 # Start by checking each variable about to be placed
10303                 # in the settings file is valid.
10304
10305                 # Deinfe some variables for later.
10306
10307                 my @kiriwrite_new_settings;
10308
10309                 # Check the length of the directory names.
10310
10311                 kiriwrite_variablecheck($settings_dbdirectory, "maxlength", 64, 0);
10312                 kiriwrite_variablecheck($settings_outputdirectory, "maxlength", 64, 0);
10313                 kiriwrite_variablecheck($settings_imagesuri, "maxlength", 512, 0);
10314                 kiriwrite_variablecheck($settings_datetimeformat, "maxlength", 32, 0);
10315
10316                 kiriwrite_variablecheck($settings_languagesystem, "language_filename", "", 0);
10317
10318                 # Check the module names to see if they're valid.
10319
10320                 my $kiriwrite_presmodule_modulename_check       = kiriwrite_variablecheck($settings_presmodule, "module", 0, 1);
10321                 my $kiriwrite_dbmodule_modulename_check         = kiriwrite_variablecheck($settings_dbmodule, "module", 0, 1);
10322
10323                 if ($kiriwrite_presmodule_modulename_check eq 1){
10324
10325                         # The presentation module name is blank, so return
10326                         # an error.
10327
10328                         kiriwrite_error("presmoduleblank");
10329
10330                 }
10331
10332                 if ($kiriwrite_presmodule_modulename_check eq 2){
10333
10334                         # The presentation module name is invalid, so return
10335                         # an error.
10336
10337                         kiriwrite_error("presmoduleinvalid");
10338
10339                 }
10340
10341                 if ($kiriwrite_dbmodule_modulename_check eq 1){
10342
10343                         # The database module name is blank, so return
10344                         # an error.
10345
10346                         kiriwrite_error("dbmoduleblank");
10347
10348                 }
10349
10350                 if ($kiriwrite_dbmodule_modulename_check eq 2){
10351
10352                         # The database module name is invalid, so return
10353                         # an error.
10354
10355                         kiriwrite_error("dbmoduleinvalid");
10356
10357                 }
10358
10359                 # Check if the directory names only contain letters and numbers and
10360                 # return a specific error if they don't.
10361
10362                 my $kiriwrite_dbdirectory_check         = kiriwrite_variablecheck($settings_dbdirectory, "directory", 0, 1);
10363                 my $kiriwrite_outputdirectory_check     = kiriwrite_variablecheck($settings_outputdirectory, "directory", 0, 1);
10364                 kiriwrite_variablecheck($settings_datetimeformat, "datetime", 0, 0);
10365
10366                 if ($kiriwrite_dbdirectory_check eq 1){
10367
10368                         # The database directory name is blank, so return
10369                         # an error.
10370
10371                         kiriwrite_error("dbdirectoryblank");
10372
10373                 } elsif ($kiriwrite_dbdirectory_check eq 2){
10374
10375                         # The database directory name is invalid, so return
10376                         # an error.
10377
10378                         kiriwrite_error("dbdirectoryinvalid");
10379
10380                 }
10381
10382                 if ($kiriwrite_outputdirectory_check eq 1){
10383
10384                         # The output directory name is blank, so return
10385                         # an error.
10386
10387                         kiriwrite_error("outputdirectoryblank");
10388
10389                 } elsif ($kiriwrite_outputdirectory_check eq 2){
10390
10391                         # The output directory name is invalid, so return
10392                         # an error.
10393
10394                         kiriwrite_error("outputdirectoryinvalid");
10395
10396                 }
10397
10398                 # Check if the presentation module with the filename given exists.
10399
10400                 my $presmodule_exists = kiriwrite_fileexists("Modules/Presentation/" . $settings_presmodule . ".pm");
10401
10402                 if ($presmodule_exists eq 1){
10403
10404                         # The presentation module does not exist so return an error.
10405
10406                         kiriwrite_error("presmodulemissing");
10407
10408                 }
10409
10410                 # Check if the database module with the filename given exists.
10411
10412                 my $dbmodule_exists = kiriwrite_fileexists("Modules/Database/" . $settings_dbmodule . ".pm");
10413
10414                 if ($dbmodule_exists eq 1){
10415
10416                         # The database module does not exist so return an error.
10417
10418                         kiriwrite_error("dbmodulemissing");
10419
10420                 }
10421
10422                 # Check if the language filename given exists.
10423
10424                 my $languagefile_exists = kiriwrite_fileexists("lang/" . $settings_languagesystem . ".xml");
10425
10426                 if ($languagefile_exists eq 1){
10427
10428                         # The language filename given does not exist so return an error.
10429
10430                         kiriwrite_error("languagefilenamemissing");
10431
10432                 }
10433
10434                 # Check the database server options to see if they are valid.
10435
10436                 my $kiriwrite_databaseserver_length_check               = kiriwrite_variablecheck($settings_database_server, "maxlength", 128, 1);
10437                 my $kiriwrite_databaseserver_lettersnumbers_check       = kiriwrite_variablecheck($settings_database_server, "lettersnumbers", 0, 1);
10438                 my $kiriwrite_databaseport_length_check                 = kiriwrite_variablecheck($settings_database_port, "maxlength", 5, 1);
10439                 my $kiriwrite_databaseport_numbers_check                = kiriwrite_variablecheck($settings_database_port, "numbers", 0, 1);
10440                 my $kiriwrite_databaseport_port_check                   = kiriwrite_variablecheck($settings_database_port, "port", 0, 1);
10441                 my $kiriwrite_databaseprotocol_length_check             = kiriwrite_variablecheck($settings_database_protocol, "maxlength", 5, 1);
10442                 my $kiriwrite_databaseprotocol_protocol_check           = kiriwrite_variablecheck($settings_database_protocol, "serverprotocol", 0, 1);
10443                 my $kiriwrite_databasename_length_check                 = kiriwrite_variablecheck($settings_database_sqldatabase, "maxlength", 32, 1);
10444                 my $kiriwrite_databasename_lettersnumbers_check         = kiriwrite_variablecheck($settings_database_sqldatabase, "lettersnumbers", 0, 1);
10445                 my $kiriwrite_databaseusername_length_check             = kiriwrite_variablecheck($settings_database_username, "maxlength", 16, 1);
10446                 my $kiriwrite_databaseusername_lettersnumbers_check     = kiriwrite_variablecheck($settings_database_username, "lettersnumbers", 0, 1);
10447                 my $kiriwrite_databasepassword_length_check             = kiriwrite_variablecheck($settings_database_password, "maxlength", 64, 1);
10448                 my $kiriwrite_databasetableprefix_length_check          = kiriwrite_variablecheck($settings_database_tableprefix, "maxlength", 16, 1);
10449                 my $kiriwrite_databasetableprefix_lettersnumbers_check  = kiriwrite_variablecheck($settings_database_tableprefix, "lettersnumbers", 0, 1);
10450
10451                 if ($kiriwrite_databaseserver_length_check eq 1){
10452
10453                         # The length of the database server name is too long so
10454                         # return an error.
10455
10456                         kiriwrite_error("servernametoolong");
10457
10458                 }
10459
10460                 if ($kiriwrite_databaseserver_lettersnumbers_check eq 1){
10461
10462                         # The database server name contains characters other
10463                         # than letters and numbers, so return an error.
10464
10465                         kiriwrite_error("servernameinvalid");
10466
10467                 }
10468
10469                 if ($kiriwrite_databaseport_length_check eq 1){
10470
10471                         # The database port number length is too long so return
10472                         # an error.
10473
10474                         kiriwrite_error("serverportnumbertoolong");
10475
10476                 }
10477
10478                 if ($kiriwrite_databaseport_numbers_check eq 1){
10479
10480                         # The database port number contains characters other
10481                         # than numbers so return an error.
10482
10483                         kiriwrite_error("serverportnumberinvalidcharacters");
10484
10485                 }
10486
10487                 if ($kiriwrite_databaseport_port_check eq 1){
10488
10489                         # The database port number given is invalid so return
10490                         # an error.
10491
10492                         kiriwrite_error("serverportnumberinvalid");
10493
10494                 }
10495
10496                 if ($kiriwrite_databaseprotocol_length_check eq 1){
10497
10498                         # The database protocol name given is too long so
10499                         # return an error.
10500
10501                         kiriwrite_error("serverprotocolnametoolong");
10502
10503                 }
10504
10505                 if ($kiriwrite_databaseprotocol_protocol_check eq 1){
10506
10507                         # The server protcol given is invalid so return
10508                         # an error.
10509
10510                         kiriwrite_error("serverprotocolinvalid");
10511
10512                 }
10513
10514                 if ($kiriwrite_databasename_length_check eq 1){
10515
10516                         # The SQL database name is too long so return
10517                         # an error.
10518
10519                         kiriwrite_error("serverdatabasenametoolong");
10520
10521                 }
10522
10523                 if ($kiriwrite_databasename_lettersnumbers_check eq 1){
10524
10525                         # The database name contains invalid characters
10526                         # so return an error.
10527
10528                         kiriwrite_error("serverdatabasenameinvalid");
10529
10530                 }
10531
10532                 if ($kiriwrite_databaseusername_length_check eq 1){
10533
10534                         # The database username given is too long so
10535                         # return an error.
10536
10537                         kiriwrite_error("serverdatabaseusernametoolong");
10538
10539                 }
10540
10541                 if ($kiriwrite_databaseusername_lettersnumbers_check eq 1){
10542
10543                         # The database username contains invalid characters
10544                         # so return an error.
10545
10546                         kiriwrite_error("serverdatabaseusernameinvalid");
10547
10548                 }
10549
10550                 if ($kiriwrite_databasepassword_length_check eq 1){
10551
10552                         # The database password given is too long so return
10553                         # an error.
10554
10555                         kiriwrite_error("serverdatabasepasswordtoolong");
10556
10557                 }
10558
10559                 if ($kiriwrite_databasetableprefix_length_check eq 1){
10560
10561                         # The database table prefix given is too long so
10562                         # return an error.
10563
10564                         kiriwrite_error("serverdatabasetableprefixtoolong");
10565
10566                 }
10567
10568                 if ($kiriwrite_databasetableprefix_lettersnumbers_check eq 1){
10569
10570                         # The database table prefix given contains invalid
10571                         # characters so return an error.
10572
10573                         kiriwrite_error("serverdatabasetableprefixinvalid");
10574
10575                 }
10576
10577                 # Check if the current password should be kept.
10578
10579                 if ($settings_database_passwordkeep eq "on"){
10580
10581                         # The current password in the configuration file should be used.
10582
10583                         $settings_database_password     = $kiriwrite_config{"database_password"};
10584
10585                 }
10586
10587                 # Write the new settings to the XML file.
10588
10589                 kiriwrite_output_xml("kiriwrite.xml", "config", { DatabaseDirectory => $settings_dbdirectory, OutputDirectory => $settings_outputdirectory, ImagesURIPath => $settings_imagesuri, DateTimeFormat => $settings_datetimeformat, SystemLanguage => $settings_languagesystem, PresentationModule => $settings_presmodule, DatabaseModule => $settings_dbmodule, DatabaseServer => $settings_database_server, DatabasePort => $settings_database_port, DatabaseProtocol => $settings_database_protocol, DatabaseSQLDatabase => $settings_database_sqldatabase, DatabaseUsername => $settings_database_username, DatabasePassword => $settings_database_password, DatabaseTablePrefix => $settings_database_tableprefix });
10590
10591                 # Write a confirmation message.
10592
10593                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{settingsedited}, { Style => "pageheadeR" });
10594                 $kiriwrite_presmodule->addlinebreak();
10595                 $kiriwrite_presmodule->addlinebreak();
10596                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{settingseditedmessage});
10597                 $kiriwrite_presmodule->addlinebreak();
10598                 $kiriwrite_presmodule->addlinebreak();
10599                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=settings", { Text => $kiriwrite_lang->{setting}->{returnsettingslist} });
10600
10601                 return $kiriwrite_presmodule->grab();
10602
10603         }
10604
10605         # Get the list of languages available.
10606
10607         my %language_list;
10608         my @language_directory          = "";
10609         my $language;
10610         my $language_filename           = "";
10611         my $language_file_xml           = "";
10612         my $language_file_systemname    = "";
10613         my $language_file_localname     = "";
10614         my $language_file_seek          = 0;
10615         my $language_flie_dot           = 0;
10616         my $language_file_length        = 0;
10617         my $language_file_count         = 0;
10618         my $language_file_char          = "";
10619         my $language_file_friendly      = "";
10620         my $language_config             = $kiriwrite_config{"system_language"};
10621
10622         tie(%language_list, 'Tie::IxHash');
10623
10624         opendir(LANGUAGEDIR, "lang");
10625         @language_directory = grep /m*\.xml$/, readdir(LANGUAGEDIR);
10626         closedir(LANGUAGEDIR);
10627
10628         # Process each language by loading the XML configuration file
10629         # used for each language and then get the System name and
10630         # the local name of the language.
10631
10632         foreach $language_filename (@language_directory){
10633
10634                 # Load the language file currently selected.
10635
10636                 $language_file_xml = $xsl->XMLin("lang" . '/' . $language_filename, SuppressEmpty => 1);
10637
10638                 # Get the system name and the local name of the language.
10639
10640                 $language_file_localname = $language_file_xml -> {about} -> {name};
10641
10642                 # Check if either the system name or the local name of the language
10643                 # is blank and if it is, then don't add the language to the list.
10644
10645                 if ($language_file_localname eq ""){
10646
10647                         # The system name or the local name is blank so don't add
10648                         # the language to the list.
10649
10650                 } else {
10651
10652                         # Get the 'friendly' name of the language file name (basically
10653                         # remove the .xml part from the filename.
10654
10655                         $language_file_length = length($language_filename);
10656
10657                         do {
10658
10659                                 # Get a character from the language filename and currently
10660                                 # set by the seek counter.
10661
10662                                 $language_file_char = substr($language_filename, $language_file_seek, 1);
10663
10664                                 # Check if the character is a dot and if it is then set the
10665                                 # last dot value to the seek counter value.
10666
10667                                 if ($language_file_char eq "."){
10668
10669                                         # Current chatacter is a dot so set the last dot value
10670                                         # to what is currently the seek counter.
10671
10672                                         $language_flie_dot = $language_file_seek;
10673
10674                                 } else {
10675
10676                                         # Current character is not a dot, so do nothing.
10677
10678                                 }
10679
10680                                 # Increment the seek counter.
10681
10682                                 $language_file_seek++;
10683
10684                         } until ($language_file_seek eq $language_file_length);
10685
10686                         # Reset the seek counter.
10687
10688                         $language_file_seek = 0;
10689
10690                         # Process the file name again and this time process the file
10691                         # name until it reaches the last dot found.
10692
10693                         do {
10694
10695                                 # Get the character the seek counter is currently set at.
10696
10697                                 $language_file_char = substr($language_filename, $language_file_seek, 1);
10698
10699                                 # Append the character to the friendly file name.
10700
10701                                 $language_file_friendly = $language_file_friendly . $language_file_char;
10702
10703                                 # Increment the seek counter.
10704
10705                                 $language_file_seek++;
10706
10707                         } until ($language_file_seek eq $language_flie_dot);
10708
10709                         # Append the language to the available languages list.
10710
10711                         $language_list{$language_file_count}{Filename} = $language_file_friendly;
10712                         $language_list{$language_file_count}{Name} = $language_file_localname;
10713                         $language_file_count++;
10714
10715                         # Reset certain counters and values before continuing.
10716
10717                         $language_file_seek     = 0;
10718                         $language_flie_dot      = 0;
10719                         $language_file_length   = 0;
10720                         $language_file_char     = "";
10721                         $language_file_friendly = "";
10722
10723                 }
10724
10725         }
10726
10727         # Get the list of presentation modules available.
10728
10729         my %presmodule_list;
10730         my @presmodule_directory;
10731         my $presmodule;
10732         my $presmodule_file             = "";
10733         my $presmodule_char             = "";
10734         my $presmodule_dot              = 0;
10735         my $presmodule_firstdot         = 0;
10736         my $presmodule_firstdotfound    = "";
10737         my $presmodule_seek             = 0;
10738         my $presmodule_length           = 0;
10739         my $presmodule_count            = 0;
10740         my $presmodule_friendly         = "";
10741         my $presmodule_selectlist       = "";
10742         my $presmodule_config           = $kiriwrite_config{"system_presmodule"};
10743
10744         # Open and get the list of presentation modules (perl modules) by filtering
10745         # out the
10746
10747         opendir(OUTPUTSYSTEMDIR, "Modules/Presentation");
10748         @presmodule_directory = grep /m*\.pm$/, readdir(OUTPUTSYSTEMDIR);
10749         closedir(OUTPUTSYSTEMDIR);
10750
10751         # Process each presentation module and add them to the list of available
10752         # presentation modules.
10753
10754         foreach $presmodule_file (@presmodule_directory){
10755
10756                 # Get the length of the presentation module (perl module) filename.
10757
10758                 $presmodule_length = length($presmodule_file);
10759
10760                 # Get the friendly name of the Perl module (by getting rid of the
10761                 # .pm part of the filename).
10762
10763                 do {
10764
10765                         $presmodule_char = substr($presmodule_file, $presmodule_seek, 1);
10766
10767                         # Check if the current character is a dot and if it is then
10768                         # set the last dot found number to the current seek number.
10769
10770                         if ($presmodule_char eq "."){
10771
10772                                 # Put the seek value as the last dot found number.
10773
10774                                 $presmodule_dot = $presmodule_seek;
10775
10776                         }
10777
10778                         # Increment the seek counter.
10779
10780                         $presmodule_seek++;
10781
10782                 } until ($presmodule_seek eq $presmodule_length);
10783
10784                 # Reset the seek counter as it is going to be used again.
10785
10786                 $presmodule_seek = 0;
10787
10788                 # Get the friendly name of the Perl module by the processing the file
10789                 # name to the last dot the previous 'do' tried to find.
10790
10791                 do {
10792
10793                         # Get the character the seek counter is currently set at.
10794
10795                         $presmodule_char = substr($presmodule_file, $presmodule_seek, 1);
10796
10797                         # Append the character to the friendly name of the presentation module.
10798
10799                         $presmodule_friendly = $presmodule_friendly . $presmodule_char;
10800
10801                         # Increment the seek counter.
10802
10803                         $presmodule_seek++;
10804
10805                 } until ($presmodule_seek eq $presmodule_dot);
10806
10807                 # Append the option to tbe list of available presentation modules.
10808
10809                 $presmodule_list{$presmodule_count}{Filename} = $presmodule_friendly;
10810
10811                 # Reset the following values.
10812
10813                 $presmodule_seek        = 0;
10814                 $presmodule_length      = 0;
10815                 $presmodule_char        = "";
10816                 $presmodule_friendly    = "";
10817                 $presmodule_count++;
10818
10819         }
10820
10821         # Get the list of database modules available.
10822
10823         my %dbmodule_list;
10824         my @dbmodule_directory;
10825         my $dbmodule;
10826         my $dbmodule_file               = "";
10827         my $dbmodule_char               = "";
10828         my $dbmodule_dot                = 0;
10829         my $dbmodule_firstdot           = 0;
10830         my $dbmodule_firstdotfound      = "";
10831         my $dbmodule_seek               = 0;
10832         my $dbmodule_length             = 0;
10833         my $dbmodule_count              = 0;
10834         my $dbmodule_friendly           = "";
10835         my $dbmodule_selectlist         = "";
10836         my $dbmodule_config             = $kiriwrite_config{"system_dbmodule"};
10837
10838         # Open and get the list of presentation modules (perl modules) by filtering
10839         # out the
10840
10841         opendir(DATABASEDIR, "Modules/Database");
10842         @dbmodule_directory = grep /m*\.pm$/, readdir(DATABASEDIR);
10843         closedir(DATABASEDIR);
10844
10845         # Process each presentation module and add them to the list of available
10846         # presentation modules.
10847
10848         foreach $dbmodule_file (@dbmodule_directory){
10849
10850                 # Get the length of the database module (perl module) filename.
10851
10852                 $dbmodule_length = length($dbmodule_file);
10853
10854                 # Get the friendly name of the Perl module (by getting rid of the
10855                 # .pm part of the filename).
10856
10857                 do {
10858
10859                         $dbmodule_char = substr($dbmodule_file, $dbmodule_seek, 1);
10860
10861                         # Check if the current character is a dot and if it is then
10862                         # set the last dot found number to the current seek number.
10863
10864                         if ($dbmodule_char eq "."){
10865
10866                                 # Put the seek value as the last dot found number.
10867
10868                                 $dbmodule_dot = $dbmodule_seek;
10869
10870                         }
10871
10872                         # Increment the seek counter.
10873
10874                         $dbmodule_seek++;
10875
10876                 } until ($dbmodule_seek eq $dbmodule_length);
10877
10878                 # Reset the seek counter as it is going to be used again.
10879
10880                 $dbmodule_seek = 0;
10881
10882                 # Get the friendly name of the Perl module by the processing the file
10883                 # name to the last dot the previous 'do' tried to find.
10884
10885                 do {
10886
10887                         # Get the character the seek counter is currently set at.
10888
10889                         $dbmodule_char = substr($dbmodule_file, $dbmodule_seek, 1);
10890
10891                         # Append the character to the friendly name of the presentation module.
10892
10893                         $dbmodule_friendly = $dbmodule_friendly . $dbmodule_char;
10894
10895                         # Increment the seek counter.
10896
10897                         $dbmodule_seek++;
10898
10899                 } until ($dbmodule_seek eq $dbmodule_dot);
10900
10901                 # Append the option to tbe list of available database modules.
10902
10903                 $dbmodule_list{$dbmodule_count}{Filename} = $dbmodule_friendly;
10904
10905                 # Reset the following values.
10906
10907                 $dbmodule_seek  = 0;
10908                 $dbmodule_length        = 0;
10909                 $dbmodule_char          = "";
10910                 $dbmodule_friendly      = "";
10911                 $dbmodule_count++;
10912
10913         }
10914
10915         # Get the directory settings.
10916
10917         my $directory_settings_database         = $kiriwrite_config{"directory_data_db"};
10918         my $directory_settings_output           = $kiriwrite_config{"directory_data_output"};
10919         my $directory_settings_imagesuri        = $kiriwrite_config{"directory_noncgi_images"};
10920         my $datetime_setting                    = $kiriwrite_config{"system_datetime"};
10921
10922         my $database_server                     = $kiriwrite_config{"database_server"};
10923         my $database_port                       = $kiriwrite_config{"database_port"};
10924         my $database_protocol                   = $kiriwrite_config{"database_protocol"};
10925         my $database_sqldatabase                = $kiriwrite_config{"database_sqldatabase"};
10926         my $database_username                   = $kiriwrite_config{"database_username"};
10927         my $database_passwordhash               = $kiriwrite_config{"database_passwordhash"};
10928         my $database_password                   = $kiriwrite_config{"database_password"};
10929         my $database_prefix                     = $kiriwrite_config{"database_tableprefix"};
10930
10931         # Print out a form for editing the settings.
10932
10933         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{editsettings}, { Style => "pageheader" });
10934         $kiriwrite_presmodule->addlinebreak();
10935         $kiriwrite_presmodule->addlinebreak();
10936         $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{setting}->{warning});
10937         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{warningmessage});
10938         $kiriwrite_presmodule->addlinebreak();
10939         $kiriwrite_presmodule->addlinebreak();
10940
10941         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
10942         $kiriwrite_presmodule->addhiddendata("mode", "settings");
10943         $kiriwrite_presmodule->addhiddendata("action", "edit");
10944         $kiriwrite_presmodule->addhiddendata("confirm", 1);
10945
10946         $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
10947
10948         $kiriwrite_presmodule->startheader();
10949         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
10950         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
10951         $kiriwrite_presmodule->endheader();
10952
10953         $kiriwrite_presmodule->startrow();
10954         $kiriwrite_presmodule->addcell("tablecellheader");
10955         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{directories});
10956         $kiriwrite_presmodule->endcell();
10957         $kiriwrite_presmodule->addcell("tablecellheader");
10958         $kiriwrite_presmodule->endcell();
10959         $kiriwrite_presmodule->endrow();
10960
10961         $kiriwrite_presmodule->startrow();
10962         $kiriwrite_presmodule->addcell("tablecell1");
10963         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasedirectory});
10964         $kiriwrite_presmodule->endcell();
10965         $kiriwrite_presmodule->addcell("tablecell2");
10966         $kiriwrite_presmodule->addinputbox("databasedir", { Size => 32, MaxLength => 64, Value => $directory_settings_database });
10967         $kiriwrite_presmodule->endcell();
10968         $kiriwrite_presmodule->endrow();
10969
10970         $kiriwrite_presmodule->startrow();
10971         $kiriwrite_presmodule->addcell("tablecell1");
10972         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{outputdirectory});
10973         $kiriwrite_presmodule->endcell();
10974         $kiriwrite_presmodule->addcell("tablecell2");
10975         $kiriwrite_presmodule->addinputbox("outputdir", { Size => 32, MaxLength => 64, Value => $directory_settings_output });
10976         $kiriwrite_presmodule->endcell();
10977         $kiriwrite_presmodule->endrow();
10978
10979         $kiriwrite_presmodule->startrow();
10980         $kiriwrite_presmodule->addcell("tablecell1");
10981         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{imagesuripath});
10982         $kiriwrite_presmodule->endcell();
10983         $kiriwrite_presmodule->addcell("tablecell2");
10984         $kiriwrite_presmodule->addinputbox("imagesuripath", { Size => 32, MaxLength => 64, Value => $directory_settings_imagesuri });
10985         $kiriwrite_presmodule->endcell();
10986         $kiriwrite_presmodule->endrow();
10987
10988         $kiriwrite_presmodule->startrow();
10989         $kiriwrite_presmodule->addcell("tablecellheader");
10990         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{date});
10991         $kiriwrite_presmodule->endcell();
10992         $kiriwrite_presmodule->addcell("tablecellheader");
10993         $kiriwrite_presmodule->endcell();
10994         $kiriwrite_presmodule->endrow();
10995
10996         $kiriwrite_presmodule->startrow();
10997         $kiriwrite_presmodule->addcell("tablecell1");
10998         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{dateformat});
10999         $kiriwrite_presmodule->endcell();
11000         $kiriwrite_presmodule->addcell("tablecell2");
11001         $kiriwrite_presmodule->addinputbox("datetime", { Size => 32, MaxLength => 64, Value => $datetime_setting });
11002         $kiriwrite_presmodule->addlinebreak();
11003         $kiriwrite_presmodule->addlinebreak();
11004         $kiriwrite_presmodule->startbox("datalist");
11005
11006         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singleday});
11007         $kiriwrite_presmodule->addlinebreak();
11008         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doubleday});
11009         $kiriwrite_presmodule->addlinebreak();
11010         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singlemonth});
11011         $kiriwrite_presmodule->addlinebreak();
11012         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doublemonth});
11013         $kiriwrite_presmodule->addlinebreak();
11014         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singleyear});
11015         $kiriwrite_presmodule->addlinebreak();
11016         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doubleyear});
11017         $kiriwrite_presmodule->addlinebreak();
11018         $kiriwrite_presmodule->addlinebreak();
11019         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singlehour});
11020         $kiriwrite_presmodule->addlinebreak();
11021         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doublehour});
11022         $kiriwrite_presmodule->addlinebreak();
11023         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singleminute});
11024         $kiriwrite_presmodule->addlinebreak();
11025         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doubleminute});
11026         $kiriwrite_presmodule->addlinebreak();
11027         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singlesecond});
11028         $kiriwrite_presmodule->addlinebreak();
11029         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doublesecond});
11030         $kiriwrite_presmodule->addlinebreak();
11031         $kiriwrite_presmodule->addlinebreak();
11032         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{othercharacters});
11033         $kiriwrite_presmodule->endbox();
11034         $kiriwrite_presmodule->endcell();
11035         $kiriwrite_presmodule->endrow();
11036
11037         $kiriwrite_presmodule->startrow();
11038         $kiriwrite_presmodule->addcell("tablecellheader");
11039         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{language});
11040         $kiriwrite_presmodule->endcell();
11041         $kiriwrite_presmodule->addcell("tablecellheader");
11042         $kiriwrite_presmodule->endcell();
11043         $kiriwrite_presmodule->endrow();
11044
11045         $kiriwrite_presmodule->startrow();
11046         $kiriwrite_presmodule->addcell("tablecell1");
11047         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{systemlanguage});
11048         $kiriwrite_presmodule->endcell();
11049         $kiriwrite_presmodule->addcell("tablecell2");
11050
11051         $kiriwrite_presmodule->addselectbox("language");
11052
11053         # Process the list of available languages.
11054
11055         foreach $language (keys %language_list){
11056
11057                 # Check if the language filename matches the filename in the configuration
11058                 # file.
11059
11060                 if ($language_list{$language}{Filename} eq $language_config){
11061
11062                         $kiriwrite_presmodule->addoption($language_list{$language}{Name}, { Value => $language_list{$language}{Filename} , Selected => 1 });
11063
11064                 } else {
11065
11066                         $kiriwrite_presmodule->addoption($language_list{$language}{Name}, { Value => $language_list{$language}{Filename} });
11067
11068                 }
11069
11070         }
11071
11072         $kiriwrite_presmodule->endselectbox();
11073
11074         $kiriwrite_presmodule->startrow();
11075         $kiriwrite_presmodule->addcell("tablecellheader");
11076         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{modules});
11077         $kiriwrite_presmodule->endcell();
11078         $kiriwrite_presmodule->addcell("tablecellheader");
11079         $kiriwrite_presmodule->endcell();
11080         $kiriwrite_presmodule->endrow();
11081
11082         $kiriwrite_presmodule->startrow();
11083         $kiriwrite_presmodule->addcell("tablecell1");
11084         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{presentationmodule});
11085         $kiriwrite_presmodule->endcell();
11086         $kiriwrite_presmodule->addcell("tablecell2");
11087
11088         $kiriwrite_presmodule->addselectbox("presmodule");
11089
11090         # Process the list of available presentation modules.
11091
11092         foreach $presmodule (keys %presmodule_list){
11093
11094                 # Check if the presentation module fileanme matches the filename in the
11095                 # configuration file.
11096
11097                 if ($presmodule_list{$presmodule}{Filename} eq $presmodule_config){
11098
11099                         $kiriwrite_presmodule->addoption($presmodule_list{$presmodule}{Filename}, { Value => $presmodule_list{$presmodule}{Filename} , Selected => 1 });
11100
11101                 } else {
11102
11103                         $kiriwrite_presmodule->addoption($presmodule_list{$presmodule}{Filename}, { Value => $presmodule_list{$presmodule}{Filename} });
11104
11105                 }
11106
11107         }
11108
11109         $kiriwrite_presmodule->endselectbox();
11110
11111         $kiriwrite_presmodule->endcell();
11112         $kiriwrite_presmodule->endrow();
11113
11114         $kiriwrite_presmodule->startrow();
11115         $kiriwrite_presmodule->addcell("tablecell1");
11116         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasemodule});
11117         $kiriwrite_presmodule->endcell();
11118         $kiriwrite_presmodule->addcell("tablecell2");
11119
11120         # Process the list of available database modules.
11121
11122         $kiriwrite_presmodule->addselectbox("dbmodule");
11123
11124         foreach $dbmodule (keys %dbmodule_list){
11125
11126                 # Check if the database module fileanme matches the filename in the
11127                 # configuration file.
11128
11129                 if ($dbmodule_list{$dbmodule}{Filename} eq $dbmodule_config){
11130
11131                         $kiriwrite_presmodule->addoption($dbmodule_list{$dbmodule}{Filename}, { Value => $dbmodule_list{$dbmodule}{Filename} , Selected => 1 });
11132
11133                 } else {
11134
11135                         $kiriwrite_presmodule->addoption($dbmodule_list{$dbmodule}{Filename}, { Value => $dbmodule_list{$dbmodule}{Filename} });
11136
11137                 }
11138
11139
11140         }
11141
11142         $kiriwrite_presmodule->endselectbox();
11143
11144         $kiriwrite_presmodule->endcell();
11145         $kiriwrite_presmodule->endrow();
11146
11147         $kiriwrite_presmodule->startrow();
11148         $kiriwrite_presmodule->addcell("tablecell1");
11149         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseserver});
11150         $kiriwrite_presmodule->endcell();
11151         $kiriwrite_presmodule->addcell("tablecell2");
11152         $kiriwrite_presmodule->addinputbox("database_server", { Size => 32, MaxLength => 128, Value => $database_server });
11153         $kiriwrite_presmodule->endcell();
11154         $kiriwrite_presmodule->endrow();
11155
11156         $kiriwrite_presmodule->startrow();
11157         $kiriwrite_presmodule->addcell("tablecell1");
11158         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseport});
11159         $kiriwrite_presmodule->endcell();
11160         $kiriwrite_presmodule->addcell("tablecell2");
11161         $kiriwrite_presmodule->addinputbox("database_port", { Size => 5, MaxLength => 5, Value => $database_port });
11162         $kiriwrite_presmodule->endcell();
11163         $kiriwrite_presmodule->endrow();
11164
11165         $kiriwrite_presmodule->startrow();
11166         $kiriwrite_presmodule->addcell("tablecell1");
11167         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseprotocol});
11168         $kiriwrite_presmodule->endcell();
11169         $kiriwrite_presmodule->addcell("tablecell2");
11170
11171         # Check if TCP is being used.
11172
11173         $kiriwrite_presmodule->addselectbox("database_protocol");
11174
11175         if ($database_protocol eq "tcp"){
11176
11177                 # The TCP protocol is selected so have the TCP option selected.
11178
11179                 $kiriwrite_presmodule->addoption("TCP", { Value => "tcp", Selected => 1});
11180
11181         } else {
11182
11183                 # The TCP protocol is not selected.
11184
11185                 $kiriwrite_presmodule->addoption("TCP", { Value => "tcp"});
11186
11187         }
11188
11189         # Check if UDP is being used.
11190
11191         if ($database_protocol eq "udp"){
11192
11193                 # The UDP protocol is selected so have the UDP option selected.
11194
11195                 $kiriwrite_presmodule->addoption("UDP", { Value => "udp", Selected => 1});
11196
11197         } else {
11198
11199                 # The UDP protocol is not selected.
11200
11201                 $kiriwrite_presmodule->addoption("UDP", { Value => "udp"});
11202
11203         }
11204
11205         $kiriwrite_presmodule->endselectbox();
11206
11207         $kiriwrite_presmodule->endcell();
11208         $kiriwrite_presmodule->endrow();
11209
11210         $kiriwrite_presmodule->startrow();
11211         $kiriwrite_presmodule->addcell("tablecell1");
11212         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasename});
11213         $kiriwrite_presmodule->endcell();
11214         $kiriwrite_presmodule->addcell("tablecell2");
11215         $kiriwrite_presmodule->addinputbox("database_sqldatabase", { Size => 32, MaxLength => 32, Value => $database_sqldatabase });
11216         $kiriwrite_presmodule->endcell();
11217         $kiriwrite_presmodule->endrow();
11218
11219         $kiriwrite_presmodule->startrow();
11220         $kiriwrite_presmodule->addcell("tablecell1");
11221         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseusername});
11222         $kiriwrite_presmodule->endcell();
11223         $kiriwrite_presmodule->addcell("tablecell2");
11224         $kiriwrite_presmodule->addinputbox("database_username", { Size => 16, MaxLength => 16, Value => $database_username });
11225         $kiriwrite_presmodule->endcell();
11226         $kiriwrite_presmodule->endrow();
11227
11228         $kiriwrite_presmodule->startrow();
11229         $kiriwrite_presmodule->addcell("tablecell1");
11230         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasepassword});
11231         $kiriwrite_presmodule->endcell();
11232         $kiriwrite_presmodule->addcell("tablecell2");
11233         $kiriwrite_presmodule->addinputbox("database_password", { Size => 16, MaxLength => 64, Password => 1 });
11234         $kiriwrite_presmodule->addtext(" ");
11235         $kiriwrite_presmodule->addcheckbox("database_password_keep", { OptionDescription => "Keep the current password", Checked => 1 });
11236         $kiriwrite_presmodule->endcell();
11237         $kiriwrite_presmodule->endrow();
11238
11239         $kiriwrite_presmodule->startrow();
11240         $kiriwrite_presmodule->addcell("tablecell1");
11241         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{tableprefix});
11242         $kiriwrite_presmodule->endcell();
11243         $kiriwrite_presmodule->addcell("tablecell2");
11244         $kiriwrite_presmodule->addinputbox("database_tableprefix", { Size => 16, MaxLength => 16, Value => $database_prefix });
11245         $kiriwrite_presmodule->endcell();
11246         $kiriwrite_presmodule->endrow();
11247
11248         $kiriwrite_presmodule->endtable();
11249
11250         $kiriwrite_presmodule->addlinebreak();
11251         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{setting}->{changesettingsbutton});
11252         $kiriwrite_presmodule->addtext(" | ");
11253         $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{restorecurrent});
11254         $kiriwrite_presmodule->addtext(" | ");
11255         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=settings", { Text => $kiriwrite_lang->{setting}->{returnsettingslist} });
11256
11257         $kiriwrite_presmodule->endform();
11258
11259         return $kiriwrite_presmodule->grab();
11260
11261 }
11262
11263 sub kiriwrite_settings_load{
11264 #################################################################################
11265 # kiriwrite_settings_load: Load the configuration settings into the global      #
11266 # variables.                                                                    #
11267 #                                                                               #
11268 # Usage:                                                                        #
11269 #                                                                               #
11270 # kiriwrite_settings_load();                                                    #
11271 #################################################################################
11272
11273         # Load the required Perl modules.
11274
11275         use XML::Simple qw(XMLin);
11276         my $xsl = XML::Simple->new();
11277
11278         # Check if the Kiriwrite configuration file exists before using it and
11279         # return an critical error if it doesn't exist.
11280
11281         my $kiriwrite_conf_exist = kiriwrite_fileexists("kiriwrite.xml");
11282
11283         if ($kiriwrite_conf_exist eq 1){
11284
11285                 # The configuration really does not exist so return an critical error.
11286
11287                 kiriwrite_critical("configfilemissing");
11288
11289         }
11290
11291         # Check if the Kiriwrite configuration file has valid permission settings
11292         # before using it and return an critical error if it doesn't have the
11293         # valid permission settings.
11294
11295         my $kiriwrite_conf_permissions = kiriwrite_filepermissions("kiriwrite.xml", 1, 0);
11296
11297         if ($kiriwrite_conf_permissions eq 1){
11298
11299                 # The permission settings for the Kiriwrite configuration file are
11300                 # invalid, so return an critical error.
11301
11302                 kiriwrite_critical("configfileinvalidpermissions");
11303
11304         }
11305
11306         # Converts the XML file into meaningful data for later on in this subroutine.
11307
11308         my $kiriwrite_conf_file = 'kiriwrite.xml';
11309         my $kiriwrite_conf_data = $xsl->XMLin($kiriwrite_conf_file, SuppressEmpty => 1);
11310
11311         # Go and fetch the settings and place them into a hash (that is global).
11312
11313         %kiriwrite_config = (
11314
11315                 "directory_data_db"             => $kiriwrite_conf_data->{settings}->{directories}->{database},
11316                 "directory_data_output"         => $kiriwrite_conf_data->{settings}->{directories}->{output},
11317                 "directory_noncgi_images"       => $kiriwrite_conf_data->{settings}->{directories}->{images},
11318
11319                 "system_language"               => $kiriwrite_conf_data->{settings}->{language}->{lang},
11320                 "system_presmodule"             => $kiriwrite_conf_data->{settings}->{system}->{presentation},
11321                 "system_dbmodule"               => $kiriwrite_conf_data->{settings}->{system}->{database},
11322                 "system_datetime"               => $kiriwrite_conf_data->{settings}->{system}->{datetime},
11323
11324                 "database_server"               => $kiriwrite_conf_data->{settings}->{database}->{server},
11325                 "database_port"                 => $kiriwrite_conf_data->{settings}->{database}->{port},
11326                 "database_protocol"             => $kiriwrite_conf_data->{settings}->{database}->{protocol},
11327                 "database_sqldatabase"          => $kiriwrite_conf_data->{settings}->{database}->{database},
11328                 "database_username"             => $kiriwrite_conf_data->{settings}->{database}->{username},
11329                 "database_password"             => $kiriwrite_conf_data->{settings}->{database}->{password},
11330                 "database_tableprefix"          => $kiriwrite_conf_data->{settings}->{database}->{prefix}
11331
11332         );
11333
11334         # Do a validation check on all of the variables that were loaded into the global configuration hash.
11335
11336         kiriwrite_variablecheck($kiriwrite_config{"directory_data_db"}, "maxlength", 64, 0);
11337         kiriwrite_variablecheck($kiriwrite_config{"directory_data_output"}, "maxlength", 64, 0);
11338         kiriwrite_variablecheck($kiriwrite_config{"directory_noncgi_images"}, "maxlength", 512, 0);
11339         kiriwrite_variablecheck($kiriwrite_config{"directory_data_template"}, "maxlength", 64, 0);
11340
11341         my $kiriwrite_config_language_filename = kiriwrite_variablecheck($kiriwrite_config{"system_language"}, "language_filename", "", 1);
11342         my $kiriwrite_config_presmodule_filename = kiriwrite_variablecheck($kiriwrite_config{"system_presmodule"}, "module", 0, 1);
11343         my $kiriwrite_config_dbmodule_filename = kiriwrite_variablecheck($kiriwrite_config{"system_dbmodule"}, "module", 0, 1);
11344
11345         # Check if the language filename is valid and return an critical error if
11346         # they aren't.
11347
11348         if ($kiriwrite_config_language_filename eq 1){
11349
11350                 # The language filename is blank so return an critical error.
11351
11352                 kiriwrite_critical("languagefilenameblank");
11353
11354         } elsif ($kiriwrite_config_language_filename eq 2){
11355
11356                 # The language filename is invalid so return an critical error.
11357
11358                 kiriwrite_critical("languagefilenameinvalid");
11359
11360         }
11361
11362         # Check if the presentation and database module names are valid and return a critical
11363         # error if they aren't.
11364
11365         if ($kiriwrite_config_presmodule_filename eq 1){
11366
11367                 # The presentation module filename given is blank so return an
11368                 # critical error.
11369
11370                 kiriwrite_critical("presmoduleblank");
11371
11372         }
11373
11374         if ($kiriwrite_config_presmodule_filename eq 2){
11375
11376                 # The presentation module filename is invalid so return an
11377                 # critical error.
11378
11379                 kiriwrite_critical("presmoduleinvalid");
11380
11381         }
11382
11383         if ($kiriwrite_config_dbmodule_filename eq 1){
11384
11385                 # The database module filename given is blank so return an
11386                 # critical error.
11387
11388                 kiriwrite_critical("dbmoduleblank");
11389
11390         }
11391
11392         if ($kiriwrite_config_dbmodule_filename eq 2){
11393
11394                 # The database module filename given is invalid so return
11395                 # an critical error.
11396
11397                 kiriwrite_critical("dbmoduleinvalid");
11398
11399         }
11400
11401         # Check if the language file does exist before loading it and return an critical error
11402         # if it does not exist.
11403
11404         my $kiriwrite_config_language_fileexists = kiriwrite_fileexists("lang/" . $kiriwrite_config{"system_language"} . ".xml");
11405
11406         if ($kiriwrite_config_language_fileexists eq 1){
11407
11408                 # Language file does not exist so return an critical error.
11409
11410                 kiriwrite_critical("languagefilemissing");
11411
11412         }
11413
11414         # Check if the language file has valid permission settings and return an critical error if
11415         # the language file has invalid permissions settings.
11416
11417         my $kiriwrite_config_language_filepermissions = kiriwrite_filepermissions("lang/" . $kiriwrite_config{"system_language"} . ".xml", 1, 0);
11418
11419         if ($kiriwrite_config_language_filepermissions eq 1){
11420
11421                 # Language file contains invalid permissions so return an critical error.
11422
11423                 kiriwrite_critical("languagefilepermissions");
11424
11425         }
11426
11427         # Load the language file.
11428
11429         $kiriwrite_lang = $xsl->XMLin("lang/" . $kiriwrite_config{"system_language"} . ".xml", SuppressEmpty => 1);
11430
11431         # Check if the presentation module does exist before loading it and return an critical error
11432         # if the presentation module does not exist.
11433
11434         my $kiriwrite_config_presmodule_fileexists = kiriwrite_fileexists("Modules/Presentation/" . $kiriwrite_config{"system_presmodule"} . ".pm");
11435
11436         if ($kiriwrite_config_presmodule_fileexists eq 1){
11437
11438                 # Presentation module does not exist so return an critical error.
11439
11440                 kiriwrite_critical("presmodulemissing");
11441
11442         }
11443
11444         # Check if the presentation module does have the valid permission settings and return a
11445         # critical error if the presentation module contains invalid permission settings.
11446
11447         my $kiriwrite_config_presmodule_permissions = kiriwrite_filepermissions("Modules/Presentation/" . $kiriwrite_config{"system_presmodule"} . ".pm", 1, 0);
11448
11449         if ($kiriwrite_config_presmodule_permissions eq 1){
11450
11451                 # Presentation module contains invalid permissions so return an critical error.
11452
11453                 kiriwrite_critical("presmoduleinvalidpermissions");
11454
11455         }
11456
11457         # Check if the database module does exist before loading it and return an critical error
11458         # if the database module does not exist.
11459
11460         my $kiriwrite_config_dbmodule_fileexists = kiriwrite_fileexists("Modules/Database/" . $kiriwrite_config{"system_dbmodule"} . ".pm");
11461
11462         if ($kiriwrite_config_dbmodule_fileexists eq 1){
11463
11464                 # Database module does not exist so return an critical error.
11465
11466                 kiriwrite_critical("dbmodulemissing");
11467
11468         }
11469
11470         # Check if the database module does have the valid permission settings and return an
11471         # critical error if the database module contains invalid permission settings.
11472
11473         my $kiriwrite_config_dbmodule_permissions = kiriwrite_filepermissions("Modules/Database/" . $kiriwrite_config{"system_dbmodule"} . ".pm", 1, 0);
11474
11475         if ($kiriwrite_config_dbmodule_permissions eq 1){
11476
11477                 # Presentation module contains invalid permissions so return an critical error.
11478
11479                 kiriwrite_critical("dbmoduleinvalidpermissions");
11480
11481         }
11482
11483         # Include the Modules directory.
11484
11485         use lib "Modules/";
11486
11487         # Load the presentation module.
11488
11489         my $presmodulename = "Presentation::" . $kiriwrite_config{"system_presmodule"};
11490         ($presmodulename) = $presmodulename =~ m/^(.*)$/g;
11491         eval "use " . $presmodulename;
11492         $presmodulename = "Kiriwrite::Presentation::" . $kiriwrite_config{"system_presmodule"};
11493         $kiriwrite_presmodule = $presmodulename->new();
11494
11495         # Load the database module.
11496
11497         my $dbmodulename = "Database::" . $kiriwrite_config{"system_dbmodule"};
11498         ($dbmodulename) = $dbmodulename =~ m/^(.*)$/g;
11499         eval "use " . $dbmodulename;
11500         $dbmodulename = "Kiriwrite::Database::" . $kiriwrite_config{"system_dbmodule"};
11501         $kiriwrite_dbmodule = $dbmodulename->new();
11502
11503         # Load the following settings to the database module.
11504
11505         $kiriwrite_dbmodule->loadsettings({ Directory => $kiriwrite_config{"directory_data_db"}, DateTime => $kiriwrite_config{"system_datetime"}, Server => $kiriwrite_config{"database_server"}, Port => $kiriwrite_config{"database_port"}, Protocol => $kiriwrite_config{"database_protocol"}, Database => $kiriwrite_config{"database_sqldatabase"}, Username => $kiriwrite_config{"database_username"}, Password => $kiriwrite_config{"database_password"}, TablePrefix => $kiriwrite_config{"database_tableprefix"} });
11506
11507         return;
11508
11509 }
11510
11511 sub kiriwrite_variablecheck{
11512 #################################################################################
11513 # kiriwrite_variablecheck: Checks the variables for any invalid characters.     #
11514 #                                                                               #
11515 # Usage:                                                                        #
11516 #                                                                               #
11517 # kiriwrite_variablecheck(variablename, type, length, noerror);                 #
11518 #                                                                               #
11519 # variablename  Specifies the variable to be checked.                           #
11520 # type          Specifies what type the variable is.                            #
11521 # option        Specifies the maximum/minimum length of the variable            #
11522 #               (if minlength/maxlength is used) or if the filename should be   #
11523 #               checked to see if it is blank.                                  #
11524 # noerror       Specifies if Kiriwrite should return an error or not on         #
11525 #               certain values.                                                 #
11526 #################################################################################
11527
11528         # Get the values that were passed to the subroutine.
11529
11530         my ($variable_data, $variable_type, $variable_option, $variable_noerror) = @_;
11531
11532         if ($variable_type eq "numbers"){
11533
11534                 # Check for numbers and return an error if there is anything else than numebrs.
11535
11536                 my $variable_data_validated = $variable_data;   # Copy the variable_data to variable_data_validated.
11537                 $variable_data_validated =~ tr/0-9//d;          # Take away all of the numbers and from the variable.
11538                                                                 # If it only contains numbers then it should be blank.
11539
11540                 if ($variable_data_validated eq ""){
11541                         # The validated variable is blank. So continue to the end of this section where the return function should be.
11542                 } else {
11543                         # The variable is not blank, so check if the no error value is set
11544                         # to 1 or not.
11545
11546                         if ($variable_noerror eq 1){
11547
11548                                 # The validated variable is not blank and the noerror
11549                                 # value is set to 1. So return an value of 1.
11550                                 # (meaning that the data is invalid).
11551
11552                                 return 1;
11553
11554                         } elsif ($variable_noerror eq 0) {
11555
11556                                 # The validated variable is not blank and the noerror
11557                                 # value is set to 0.
11558
11559                                 kiriwrite_error("invalidvariable");
11560
11561                         } else {
11562
11563                                 # The variable noerror value is something else
11564                                 # pther than 1 or 0. So return an error.
11565
11566                                 kiriwrite_error("invalidvariable");
11567
11568                         }
11569
11570                 }
11571
11572                 return 0;
11573
11574         } elsif ($variable_type eq "lettersnumbers"){
11575
11576                 # Check for letters and numbers and return an error if there is anything else other
11577                 # than letters and numbers.
11578
11579                 my $variable_data_validated = $variable_data;   # Copy the variable_data to variable_data_validated
11580                 $variable_data_validated =~ tr/a-zA-Z0-9.//d;
11581                 $variable_data_validated =~ s/\s//g;
11582
11583                 if ($variable_data_validated eq ""){
11584                         # The validated variable is blank. So continue to the end of this section where the return function should be.
11585                 } else {
11586                         # The variable is not blank, so check if the no error value is set
11587                         # to 1 or not.
11588
11589                         if ($variable_noerror eq 1){
11590
11591                                 # The validated variable is not blank and the noerror
11592                                 # value is set to 1. So return an value of 1.
11593                                 # (meaning that the data is invalid).
11594
11595                                 return 1;
11596
11597                         } elsif ($variable_noerror eq 0) {
11598
11599                                 # The validated variable is not blank and the noerror
11600                                 # value is set to 0.
11601
11602                                 kiriwrite_error("invalidvariable");
11603
11604                         } else {
11605
11606                                 # The variable noerror value is something else
11607                                 # pther than 1 or 0. So return an error.
11608
11609                                 kiriwrite_error("invalidvariable");
11610
11611                         }
11612
11613                 }
11614
11615                 return 0;
11616
11617         } elsif ($variable_type eq "maxlength"){
11618                 # Check for the length of the variable, return an error if it is longer than the length specified.
11619
11620                 # Check if the variable_data string is blank, if it is then set the variable_data_length
11621                 # to '0'.
11622
11623                 my $variable_data_length = 0;
11624
11625                 if (!$variable_data){
11626
11627                         # Set variable_data_length to '0'.
11628                         $variable_data_length = 0;
11629
11630                 } else {
11631
11632                         # Get the length of the variable recieved.
11633                         $variable_data_length = length($variable_data);
11634
11635                 }
11636
11637
11638
11639                 if ($variable_data_length > $variable_option){
11640
11641                         # The variable length is longer than it should be so check if
11642                         # the no error value is set 1.
11643
11644                         if ($variable_noerror eq 1){
11645
11646                                 # The no error value is set to 1, so return an
11647                                 # value of 1 (meaning tha the variable is
11648                                 # too long to be used).
11649
11650                                 return 1;
11651
11652                         } elsif ($variable_noerror eq 0){
11653
11654                                 # The no error value is set to 0, so return
11655                                 # an error.
11656
11657                                 kiriwrite_error("variabletoolong");
11658
11659                         } else {
11660
11661                                 # The no error value is something else other
11662                                 # than 0 or 1, so return an error.
11663
11664                                 kiriwrite_error("variabletoolong");
11665
11666                         }
11667
11668                 } else {
11669
11670                         # The variable length is exactly or shorter than specified, so continue to end of this section where
11671                         # the return function should be.
11672
11673                 }
11674
11675                 return 0;
11676
11677         } elsif ($variable_type eq "blank"){
11678                 # Check if the variable is blank and if it is blank, then return an error.
11679
11680                 if (!$variable_data){
11681
11682                         # The variable data really is blank, so check what
11683                         # the no error value is set.
11684
11685                         if ($variable_noerror eq 1){
11686
11687                                 # The no error value is set to 1, so return
11688                                 # a value of 1 (saying that the variable was
11689                                 # blank).
11690
11691                                 return 1;
11692
11693                         } elsif ($variable_noerror eq 0){
11694
11695                                 # The no error value is set to 0, so return
11696                                 # an error.
11697
11698                                 kiriwrite_error("blankvariable");
11699
11700                         } else {
11701
11702                                 # The no error value is something else other
11703                                 # than 0 or 1, so return an error.
11704
11705                                 kiriwrite_error("invalidvariable");
11706
11707                         }
11708
11709                 }
11710
11711                 return 0;
11712
11713         } elsif ($variable_type eq "filename"){
11714                 # Check for letters and numbers, if anything else than letters and numbers is there (including spaces) return
11715                 # an error.
11716
11717                 # Check if the filename passed is blank, if it is then return with an error.
11718
11719                 if ($variable_data eq ""){
11720
11721                         # The filename specified is blank, so check what the
11722                         # noerror value is set.
11723
11724                         if ($variable_noerror eq 1){
11725
11726                                 # The no error value is set to 1 so return
11727                                 # a value of 1 (meaning that the filename
11728                                 # was blank).
11729
11730                                 return 1;
11731
11732                         } elsif ($variable_noerror eq 0){
11733
11734                                 # The no error value is set to 1 so return
11735                                 # an error.
11736
11737                                 kiriwrite_error("blankfilename");
11738
11739                         } else {
11740
11741                                 # The no error value is something else other
11742                                 # than 0 or 1, so return an error.
11743
11744                                 kiriwrite_error("invalidvariable");
11745
11746                         }
11747
11748                 } else {
11749
11750
11751                 }
11752
11753                 my $variable_data_validated = $variable_data;
11754                 $variable_data_validated =~ tr/a-zA-Z0-9\.//d;
11755
11756                 # Check if the validated data variable is blank, if it is
11757                 # then continue to the end of this section where the return
11758                 # function should be, otherwise return an error.
11759
11760                 if ($variable_data_validated eq ""){
11761
11762                         # The validated data variable is blank, meaning that
11763                         # it only contained letters and numbers.
11764
11765                 } else {
11766
11767                         # The validated data variable is not blank, meaning
11768                         # that it contains something else, so return an error
11769                         # (or a value).
11770
11771                         if ($variable_noerror eq 1){
11772
11773                                 # The no error value is set to 1 so return
11774                                 # an value of 2. (meaning that the filename
11775                                 # is invalid).
11776
11777
11778                                 return 2;
11779
11780                         } elsif ($variable_noerror eq 0){
11781
11782                                 # The no error value is set to 0 so return
11783                                 # an error.
11784
11785                                 kiriwrite_error("invalidfilename");
11786
11787                         } else {
11788
11789                                 # The no error value is something else other
11790                                 # than 0 or 1 so return an error.
11791
11792                                 kiriwrite_error("invalidvariable");
11793
11794                         }
11795
11796                 }
11797
11798                 return 0;
11799
11800         } elsif ($variable_type eq "filenameindir"){
11801                 # Check if the filename is in the directory and return an
11802                 # error if it isn't.
11803
11804                 if ($variable_data eq ""){
11805
11806                         # The filename specified is blank, so check what the
11807                         # noerror value is set.
11808
11809                         if ($variable_noerror eq 1){
11810
11811                                 # The no error value is set to 1 so return
11812                                 # a value of 1 (meaning that the filename
11813                                 # was blank).
11814
11815                                 return 1;
11816
11817                         } elsif ($variable_noerror eq 0){
11818
11819                                 # The no error value is set to 1 so return
11820                                 # an error.
11821
11822                                 kiriwrite_error("blankfilename");
11823
11824                         } else {
11825
11826                                 # The no error value is something else other
11827                                 # than 0 or 1, so return an error.
11828
11829                                 kiriwrite_error("invalidvariable");
11830
11831                         }
11832
11833                 } else {
11834
11835
11836                 }
11837
11838                 # Set the following variables for later on.
11839
11840                 my $variable_data_length = 0;
11841                 my $variable_data_char = "";
11842                 my $variable_data_validated = "";
11843                 my $variable_data_seek = 0;
11844                 my $variable_database_list = "";
11845                 my $variable_database_listcurrent = "";
11846                 my $variable_data_firstlevel = 1;
11847
11848                 # Get the length of the variable recieved.
11849
11850                 $variable_data_length = length($variable_data);
11851
11852                 # Check if the database filename contains the directory command
11853                 # for up a directory level and if it is, return an error
11854                 # or return with a number.
11855
11856                 do {
11857
11858                         # Get a character from the filename passed to this subroutine.
11859
11860                         $variable_data_char = substr($variable_data, $variable_data_seek, 1);
11861
11862                         # Check if the current character is the forward slash character.
11863
11864                         if ($variable_data_char eq "/"){
11865
11866                                 # Check if the current directory is blank (and on the first level), or if the
11867                                 # current directory contains two dots or one dot, if it does return an error.
11868
11869                                 if ($variable_database_listcurrent eq "" && $variable_data_firstlevel eq 1 || $variable_database_listcurrent eq ".." || $variable_database_listcurrent eq "."){
11870
11871                                         # Check if the noerror value is set to 1, if it is return an
11872                                         # number, else return an proper error.
11873
11874                                         if ($variable_noerror eq 1){
11875
11876                                                 # Page filename contains invalid characters and
11877                                                 # the no error value is set to 1 so return a
11878                                                 # value of 2 (meaning that the page filename
11879                                                 # is invalid).
11880
11881                                                 return 2;
11882
11883                                         } elsif ($variable_noerror eq 0) {
11884
11885                                                 # Page filename contains invalid characters and
11886                                                 # the no error value is set to 0 so return an
11887                                                 # error.
11888
11889                                                 kiriwrite_error("invalidfilename");
11890
11891                                         } else {
11892
11893                                                 # The no error value is something else other
11894                                                 # than 0 or 1 so return an error.
11895
11896                                                 kiriwrite_error("invalidvariable");
11897
11898                                         }
11899
11900                                 }
11901
11902                                 # Append the forward slash, clear the current directory name and set
11903                                 # the first directory level value to 0.
11904
11905                                 $variable_database_list = $variable_database_list . $variable_data_char;
11906                                 $variable_database_listcurrent = "";
11907                                 $variable_data_firstlevel = 0;
11908
11909                         } else {
11910
11911                                 # Append the current character to the directory name and to the current
11912                                 # directory name.
11913
11914                                 $variable_database_list = $variable_database_list . $variable_data_char;
11915                                 $variable_database_listcurrent = $variable_database_listcurrent . $variable_data_char;
11916
11917                         }
11918
11919                         # Increment the seek counter.
11920
11921                         $variable_data_seek++;
11922
11923                 } until ($variable_data_seek eq $variable_data_length);
11924
11925                 return 0;
11926
11927         } elsif ($variable_type eq "datetime"){
11928                 # Check if the date and time setting format is valid.
11929
11930                 if ($variable_data eq ""){
11931
11932                         if ($variable_noerror eq 1){
11933
11934                                 # The no error value is set to 1 so return
11935                                 # a value of 1 (meaning that the date and
11936                                 # time format was blank).
11937
11938                                 return 1;
11939
11940                         } elsif ($variable_noerror eq 0){
11941
11942                                 # The no error value is set to 1 so return
11943                                 # an error.
11944
11945                                 kiriwrite_error("blankdatetimeformat");
11946
11947                         } else {
11948
11949                                 # The no error value is something else other
11950                                 # than 0 or 1, so return an error.
11951
11952                                 kiriwrite_error("invalidvariable");
11953
11954                         }
11955
11956                 }
11957
11958                 my $variable_data_validated = $variable_data;
11959                 $variable_data_validated =~ tr|dDmMyYhms/():[ ]||d;
11960
11961                 if ($variable_data_validated eq ""){
11962
11963                         # The date and time format is valid. So
11964                         # skip this bit.
11965
11966                 } else {
11967
11968                         # The validated data variable is not blank, meaning
11969                         # that it contains something else, so return an error
11970                         # (or a value).
11971
11972                         if ($variable_noerror eq 1){
11973
11974                                 # The no error value is set to 1 so return
11975                                 # an value of 2. (meaning that the date and
11976                                 # time format was invalid).
11977
11978                                 return 2;
11979
11980                         } elsif ($variable_noerror eq 0){
11981
11982                                 # The no error value is set to 0 so return
11983                                 # an error.
11984
11985                                 kiriwrite_error("invaliddatetimeformat");
11986
11987                         } else {
11988
11989                                 # The no error value is something else other
11990                                 # than 0 or 1 so return an error.
11991
11992                                 kiriwrite_error("invalidvariable");
11993
11994                         }
11995
11996                 }
11997
11998                 return 0;
11999
12000         } elsif ($variable_type eq "directory"){
12001                 # Check if the directory only contains letters and numbers and
12002                 # return an error if anything else appears.
12003
12004                 my $variable_data_validated = $variable_data;
12005                 $variable_data_validated =~ tr/a-zA-Z0-9//d;
12006
12007                 if ($variable_data eq ""){
12008
12009                         if ($variable_noerror eq 1){
12010
12011                                 # The no error value is set to 1 so return
12012                                 # a value of 1 (meaning that the directory
12013                                 # name was blank).
12014
12015                                 return 1;
12016
12017                         } elsif ($variable_noerror eq 0){
12018
12019                                 # The no error value is set to 1 so return
12020                                 # an error.
12021
12022                                 kiriwrite_error("blankdirectory");
12023
12024                         } else {
12025
12026                                 # The no error value is something else other
12027                                 # than 0 or 1, so return an error.
12028
12029                                 kiriwrite_error("invalidvariable");
12030
12031                         }
12032
12033                 }
12034
12035                 if ($variable_data_validated eq ""){
12036
12037                         # The validated data variable is blank, meaning that
12038                         # it only contains letters and numbers.
12039
12040                 } else {
12041
12042                         # The validated data variable is not blank, meaning
12043                         # that it contains something else, so return an error
12044                         # (or a value).
12045
12046                         if ($variable_noerror eq 1){
12047
12048                                 # The no error value is set to 1 so return
12049                                 # an value of 2. (meaning that the directory
12050                                 # name is invalid).
12051
12052                                 return 2;
12053
12054                         } elsif ($variable_noerror eq 0){
12055
12056                                 # The no error value is set to 0 so return
12057                                 # an error.
12058
12059                                 kiriwrite_error("invaliddirectory");
12060
12061                         } else {
12062
12063                                 # The no error value is something else other
12064                                 # than 0 or 1 so return an error.
12065
12066                                 kiriwrite_error("invalidvariable");
12067
12068                         }
12069
12070                 }
12071
12072                 return 0;
12073
12074         } elsif ($variable_type eq "language_filename"){
12075
12076                 # The variable type is a language filename type.
12077                 # Check if the language file name is blank and
12078                 # if it is then return an error (or value).
12079
12080                 if ($variable_data eq ""){
12081
12082                         # The language filename is blank so check the
12083                         # no error value and return an error (or value).
12084
12085                         if ($variable_noerror eq 1){
12086
12087                                 # Language filename is blank and the no error value
12088                                 # is set as 1, so return a value of 1 (saying that
12089                                 # the language filename is blank).
12090
12091                                 return 1;
12092
12093                         } elsif ($variable_noerror eq 0) {
12094
12095                                 # Language filename is blank and the no error value
12096                                 # is not set as 1, so return an error.
12097
12098                                 kiriwrite_critical("languagefilenameblank");
12099
12100                         } else {
12101
12102                                 # The noerror value is something else other
12103                                 # than 0 or 1 so return an error.
12104
12105                                 kiriwrite_error("invalidvariable");
12106
12107                         }
12108
12109                 }
12110
12111                 # Set the following variables for later on.
12112
12113                 my $variable_data_length = 0;
12114                 my $variable_data_char = "";
12115                 my $variable_data_seek = 0;
12116
12117                 # Get the length of the language file name.
12118
12119                 $variable_data_length = length($variable_data);
12120
12121                 do {
12122
12123                         # Get a character from the language filename passed to this
12124                         # subroutine and the character the seek counter value is set
12125                         # to.
12126
12127                         $variable_data_char = substr($variable_data, $variable_data_seek, 1);
12128
12129                         # Check if the language filename contains a forward slash or a dot,
12130                         # if the selected character is a forward slash then return an error
12131                         # (or value).
12132
12133                         if ($variable_data_char eq "/" || $variable_data_char eq "."){
12134
12135                                 # The language filename contains a forward slash or
12136                                 # a dot so depending on the no error value, return
12137                                 # an error or a value.
12138
12139                                 if ($variable_noerror eq 1){
12140
12141                                         # Language filename contains a forward slash or a dot
12142                                         # and the no error value has been set to 1, so return
12143                                         # an value of 2 (saying that the language file name is
12144                                         # invalid).
12145
12146                                         return 2;
12147
12148                                 } elsif ($variable_noerror eq 0) {
12149
12150                                         # Language filename contains a forward slash and the no
12151                                         # error value has not been set to 1, so return an error.
12152
12153                                         kiriwrite_critical("languagefilenameinvalid");
12154
12155                                 } else {
12156
12157                                         # The noerror value is something else other than
12158                                         # 1 or 0 so return an error.
12159
12160                                         kiriwrite_error("invalidvariable");
12161
12162                                 }
12163
12164                         }
12165
12166                         # Increment the seek counter.
12167
12168                         $variable_data_seek++;
12169
12170                 } until ($variable_data_seek eq $variable_data_length);
12171
12172                 return 0;
12173
12174         } elsif ($variable_type eq "pagesetting"){
12175
12176                 # The variable type is a page setting, so check if the page
12177                 # setting has one of the valid options.
12178
12179                 if ($variable_data eq 0 || $variable_data eq 1 || $variable_data eq 2 || $variable_data eq 3){
12180
12181                         # The variable is one of the options above, so continue
12182                         # to the end of this section.
12183
12184                 } else {
12185
12186                         # The variable is not one of the options above, so check
12187                         # and see if a error or a value should be returned.
12188
12189                         if ($variable_noerror eq 1){
12190
12191                                 # The page setting is invalid and the no error
12192                                 # value is set 1, so return a value of 1
12193                                 # (saying that the page setting value is
12194                                 # invalid).
12195
12196                                 return 1;
12197
12198                         } elsif ($variable_noerror eq 0) {
12199
12200                                 # Page setting is invalid and the no error value
12201                                 # is not 1, so return an error.
12202
12203                                 kiriwrite_error("invalidvariable");
12204
12205                         } else {
12206
12207                                 # The no error value is something else other
12208                                 # than 0 or 1 so return an error.
12209
12210                                 kiriwrite_error("invalidvariable");
12211
12212                         }
12213
12214                 }
12215
12216                 return 0;
12217
12218         } elsif ($variable_type eq "page_filename"){
12219
12220                 # The variable type is a page filename type. Check
12221                 # if the data is empty and if it is then return an
12222                 # error (or value).
12223
12224                 if ($variable_data eq ""){
12225
12226                         # The filename is blank so check the no error
12227                         # value and depending on it return an value
12228                         # or an error.
12229
12230                         if ($variable_noerror eq 1){
12231
12232                                 # Page filename is blank and the no error value
12233                                 # is set as 1, so return a value of 1 (saying
12234                                 # the filename is blank).
12235
12236                                 return 1;
12237
12238                         } elsif ($variable_noerror eq 0) {
12239
12240                                 # Page filename is blank and the no error value
12241                                 # is not 1, so return an error.
12242
12243                                 kiriwrite_error("emptypagefilename");
12244
12245                         } else {
12246
12247                                 # The no error value is something else other
12248                                 # than 0 or 1 so return an error.
12249
12250                                 kiriwrite_error("invalidvariable");
12251
12252                         }
12253                 }
12254
12255                 # Set the following variables for later on.
12256
12257
12258                 my $variable_data_length = 0;
12259                 my $variable_data_slash = 0;
12260                 my $variable_data_char = "";
12261                 my $variable_data_validated = "";
12262                 my $variable_data_seek = 0;
12263                 my $variable_database_list = "";
12264                 my $variable_database_listcurrent = "";
12265                 my $variable_data_firstlevel = 1;
12266
12267                 # Get the length of the filename.
12268
12269                 $variable_data_length = length($variable_data);
12270
12271                 # Check that only valid characters should be appearing in
12272                 # the filename.
12273
12274                 $variable_data_validated = $variable_data;
12275                 $variable_data_validated =~ tr|a-zA-Z0-9\.\/\-_||d;
12276
12277                 if ($variable_data_validated ne ""){
12278
12279                         # The validated variable is not blank, meaning the
12280                         # variable contains invalid characters, so return
12281                         # an error.
12282
12283                         if ($variable_noerror eq 1){
12284
12285                                 # Page filename contains invalid characters and
12286                                 # the no error value is set to 1 so return a
12287                                 # value of 2 (meaning that the page filename
12288                                 # is invalid).
12289
12290                                 return 2;
12291
12292                         } elsif ($variable_noerror eq 0) {
12293
12294                                 # Page filename contains invalid characters and
12295                                 # the no error value is set to 0 so return an
12296                                 # error.
12297
12298                                 kiriwrite_error("invalidfilename");
12299
12300                         } else {
12301
12302                                 # The no error value is something else other
12303                                 # than 0 or 1 so return an error.
12304
12305                                 kiriwrite_error("invalidvariable");
12306
12307                         }
12308
12309                 }
12310
12311                 # Check if the page filename contains the directory command
12312                 # for up a directory level and if it is, return an error
12313                 # or return with a number.
12314
12315                 do {
12316
12317                         # Get a character from the filename passed to this subroutine.
12318
12319                         $variable_data_char = substr($variable_data, $variable_data_seek, 1);
12320
12321                         # Check if the current character is the forward slash character.
12322
12323                         if ($variable_data_char eq "/"){
12324
12325                                 # Check if the current directory is blank (and on the first level), or if the
12326                                 # current directory contains two dots or one dot, if it does return an error.
12327
12328                                 $variable_data_slash = 1;
12329
12330                                 if ($variable_database_listcurrent eq "" && $variable_data_firstlevel eq 1 || $variable_database_listcurrent eq ".." || $variable_database_listcurrent eq "."){
12331
12332                                         # Check if the noerror value is set to 1, if it is return an
12333                                         # number, else return an proper error.
12334
12335                                         if ($variable_noerror eq 1){
12336
12337                                                 # Page filename contains invalid characters and
12338                                                 # the no error value is set to 1 so return a
12339                                                 # value of 2 (meaning that the page filename
12340                                                 # is invalid).
12341
12342                                                 return 2;
12343
12344                                         } elsif ($variable_noerror eq 0) {
12345
12346                                                 # Page filename contains invalid characters and
12347                                                 # the no error value is set to 0 so return an
12348                                                 # error.
12349
12350                                                 kiriwrite_error("invalidfilename");
12351
12352                                         } else {
12353
12354                                                 # The no error value is something else other
12355                                                 # than 0 or 1 so return an error.
12356
12357                                                 kiriwrite_error("invalidvariable");
12358
12359                                         }
12360
12361                                 }
12362
12363                                 # Append the forward slash, clear the current directory name and set
12364                                 # the first directory level value to 0.
12365
12366                                 $variable_database_list = $variable_database_list . $variable_data_char;
12367                                 $variable_database_listcurrent = "";
12368                                 $variable_data_firstlevel = 0;
12369
12370                         } else {
12371
12372                                 # Append the current character to the directory name and to the current
12373                                 # directory name.
12374
12375                                 $variable_data_slash = 0;
12376
12377                                 $variable_database_list = $variable_database_list . $variable_data_char;
12378                                 $variable_database_listcurrent = $variable_database_listcurrent . $variable_data_char;
12379
12380                         }
12381
12382                         # Increment the seek counter.
12383
12384                         $variable_data_seek++;
12385
12386                 } until ($variable_data_seek eq $variable_data_length);
12387
12388                 # Check if the last character is a slash and return an
12389                 # error if it is.
12390
12391                 if ($variable_data_slash eq 1){
12392
12393                         if ($variable_noerror eq 1){
12394
12395                                 # Last character is a slash and the no error
12396                                 # value is set to 1 so return a value of 2
12397                                 # (meaning that the page filename is invalid).
12398
12399                                 return 2;
12400
12401                         } elsif ($variable_noerror eq 0) {
12402
12403                                 # Page filename contains a slash for the last
12404                                 # character and the no error value is set to 0
12405                                 # so return an error.
12406
12407                                 kiriwrite_error("invalidfilename");
12408
12409                         } else {
12410
12411                                 # The no error value is something else other
12412                                 # than 0 or 1 so return an error.
12413
12414                                 kiriwrite_error("invalidvariable");
12415
12416                         }
12417
12418                 }
12419
12420                 return 0;
12421
12422         } elsif ($variable_type eq "module"){
12423
12424                 # The variable type is a presentation module filename.
12425
12426                 # Check if the variable_data is blank and if it is
12427                 # return an error.
12428
12429                 if ($variable_data eq ""){
12430
12431                         # The presentation module is blank so check if an error
12432                         # value should be returned or a number should be
12433                         # returned.
12434
12435                         if ($variable_noerror eq 1){
12436
12437                                 # Module name is blank and the no error value
12438                                 # is set to 1 so return a value of 2 (meaning
12439                                 # that the page filename is blank).
12440
12441                                 return 1;
12442
12443                         } elsif ($variable_noerror eq 0) {
12444
12445                                 # Module name contains is blank and the no error
12446                                 # value is set to 0 so return an error.
12447
12448                                 kiriwrite_critical("moduleblank");
12449
12450                         } else {
12451
12452                                 # The no error value is something else other
12453                                 # than 0 or 1 so return an error.
12454
12455                                 kiriwrite_critical("invalidvalue");
12456
12457                         }
12458
12459                 } else {
12460
12461                 }
12462
12463                 my $variable_data_validated = $variable_data;
12464                 $variable_data_validated =~ tr/a-zA-Z0-9//d;
12465
12466                 if ($variable_data_validated eq ""){
12467
12468                 } else {
12469
12470                         if ($variable_noerror eq 1){
12471
12472                                 # Module name contains invalid characters and
12473                                 # the no error value is set to 1 so return a
12474                                 # value of 2 (meaning that the page filename
12475                                 # is invalid).
12476
12477                                 return 2;
12478
12479                         } elsif ($variable_noerror eq 0) {
12480
12481                                 # Module name contains invalid characters and
12482                                 # the no error value is set to 0 so return an
12483                                 # error.
12484
12485                                 kiriwrite_critical("moduleinvalid");
12486
12487                         } else {
12488
12489                                 # The no error value is something else other
12490                                 # than 0 or 1 so return an error.
12491
12492                                 kiriwrite_error("invalidvalue");
12493
12494                         }
12495
12496                 }
12497
12498                 return 0;
12499
12500         } elsif ($variable_type eq "utf8"){
12501
12502                 # The variable type is a UTF8 string.
12503
12504                 if (!$variable_data){
12505
12506                         $variable_data = "";
12507
12508                 }
12509
12510                 # Check if the string is a valid UTF8 string.
12511
12512                 if ($variable_data =~ m/^(
12513                         [\x09\x0A\x0D\x20-\x7E]              # ASCII
12514                         | [\xC2-\xDF][\x80-\xBF]             # non-overlong 2-byte
12515                         |  \xE0[\xA0-\xBF][\x80-\xBF]        # excluding overlongs
12516                         | [\xE1-\xEC\xEE\xEF][\x80-\xBF]{2}  # straight 3-byte
12517                         |  \xED[\x80-\x9F][\x80-\xBF]        # excluding surrogates
12518                         |  \xF0[\x90-\xBF][\x80-\xBF]{2}     # planes 1-3
12519                         | [\xF1-\xF3][\x80-\xBF]{3}          # planes 4-15
12520                         |  \xF4[\x80-\x8F][\x80-\xBF]{2}     # plane 16
12521                 )*$/x){
12522
12523                         # The UTF-8 string is valid.
12524
12525                 } else {
12526
12527                         # The UTF-8 string is not valid, check if the no error
12528                         # value is set to 1 and return an error if it isn't.
12529
12530                         if ($variable_noerror eq 1){
12531
12532                                 # The no error value has been set to 1, so return
12533                                 # a value of 1 (meaning that the UTF-8 string is
12534                                 # invalid).
12535
12536                                 return 1;
12537
12538                         } elsif ($variable_noerror eq 0) {
12539
12540                                 # The no error value has been set to 0, so return
12541                                 # an error.
12542
12543                                 kiriwrite_error("invalidutf8");
12544
12545                         } else {
12546
12547                                 # The no error value is something else other than 0
12548                                 # or 1, so return an error.
12549
12550                                 kiriwrite_error("invalidoption");
12551
12552                         }
12553
12554                 }
12555
12556                 return 0;
12557
12558         } elsif ($variable_type eq "serverprotocol"){
12559
12560                 # Check if the server protocol is TCP or UDP and return
12561                 # an error if it isn't.
12562
12563                 if ($variable_data ne "tcp" && $variable_data ne "udp"){
12564
12565                         # The protocol given is not valid, check if the no
12566                         # error value is set to 1 and return an error if it isn't.
12567
12568                         if ($variable_noerror eq 1){
12569
12570                                 # The no error value has been set to 1, so return a
12571                                 # value of 1 (meaning that the server protocol is
12572                                 # invalid).
12573
12574                                 return 1;
12575
12576                         } elsif ($variable_noerror eq 0){
12577
12578                                 # The no error value has been set to 0, so return
12579                                 # an error.
12580
12581                                 kiriwrite_error("serverprotocolinvalid");
12582
12583                         } else {
12584
12585                                 # The no error value is something else other than 0
12586                                 # or 1, so return an error.
12587
12588                                 kiriwrite_error("invalidoption");
12589
12590                         }
12591
12592                 }
12593
12594                 return 0;
12595
12596         } elsif ($variable_type eq "port"){
12597
12598                 # Check if the port number given is less than 0 or more than 65535
12599                 # and return an error if it is.
12600
12601                 if ($variable_data < 0 || $variable_data > 65535){
12602
12603                         # The port number is less than 0 and more than 65535 so
12604                         # check if the no error value is set to 1 and return an
12605                         # error if it isn't.
12606
12607                         if ($variable_noerror eq 1){
12608
12609                                 # The no error value has been set to 1, so return a
12610                                 # value of 1 (meaning that the port number is invalid).
12611
12612                                 return 1;
12613
12614                         } elsif ($variable_noerror eq 0){
12615
12616                                 # The no error value has been set to 0, so return
12617                                 # an error.
12618
12619                                 kiriwrite_error("serverportnumberinvalid");
12620
12621                         } else {
12622
12623                                 # The no error value is something else other than 0
12624                                 # or 1, so return an error.
12625
12626                                 kiriwrite_error("invalidoption");
12627
12628                         }
12629
12630                 }
12631
12632                 return 0;
12633
12634         }
12635
12636         # Another type than the valid ones above has been specified so return an error specifying an invalid option.
12637         kiriwrite_error("invalidoption");
12638
12639 }
12640
12641 sub kiriwrite_output_header{
12642 #################################################################################
12643 # kiriwrite_output_header: Outputs the header to the browser/stdout/console.    #
12644 #                                                                               #
12645 # Usage:                                                                        #
12646 #                                                                               #
12647 # kiriwrite_output_header(mimetype);                                            #
12648 #                                                                               #
12649 # mimetype      Specifies the mime type of the header.                          #
12650 #################################################################################
12651
12652         # Print a header saying that the page expires immediately since the
12653         # date is set in the past.
12654
12655         #print "Expires: Sunday, 01-Jan-06 00:00:00 GMT\n";
12656         #print "Content-Type: text/html; charset=utf-8\n";
12657         #print header();
12658         print header(-Expires=>'Sunday, 01-Jan-06 00:00:00 GMT', -charset=>'utf-8');
12659         return;
12660 }
12661
12662 sub kiriwrite_processfilename{
12663 #################################################################################
12664 # kiriwrite_processfilename: Processes a name and turns it into a filename that #
12665 # can be used by Kiriwrite.                                                     #
12666 #                                                                               #
12667 # Usage:                                                                        #
12668 #                                                                               #
12669 # kiriwrite_processfilename(text);                                              #
12670 #                                                                               #
12671 # text          Specifies the text to be used in the process for creating a new #
12672 #               filename.                                                       #
12673 #################################################################################
12674
12675         # Get the values that have been passed to the subroutine.
12676
12677         my ($process_text) = @_;
12678
12679         # Define some variables that will be used later on.
12680
12681         my $processed_stageone  = "";
12682         my $processed_stagetwo  = "";
12683         my $processed_length    = "";
12684         my $processed_char      = "";
12685         my $processed_seek      = 0;
12686         my $processed_filename  = "";
12687
12688         # Set the first stage value of the processed filename to the
12689         # process filename and then filter it out to only contain
12690         # numbers and letters (no spaces) and then convert the
12691         # capitals to small letters.
12692
12693         $processed_stageone = $process_text;
12694         $processed_stageone =~ tr#a-zA-Z0-9##cd;
12695         $processed_stageone =~ tr/A-Z/a-z/;
12696
12697         # Now set the second stage value of the processed filename
12698         # to the first stage value of the processed filename and
12699         # then limit the filename down to 32 characters.
12700
12701         $processed_stagetwo = $processed_stageone;
12702         $processed_length = length($processed_stagetwo);
12703
12704         # Process the second stage filename into the final
12705         # filename and do so until the seek counter is 32
12706         # or reaches the length of the second stage filename.
12707
12708         do {
12709
12710                 # Get the character that is the seek counter
12711                 # is set at.
12712
12713                 $processed_char = substr($processed_stagetwo, $processed_seek, 1);
12714
12715                 # Append to the final processed filename.
12716
12717                 $processed_filename = $processed_filename . $processed_char;
12718
12719                 # Increment the seek counter.
12720
12721                 $processed_seek++;
12722
12723         } until ($processed_seek eq 32 || $processed_seek eq $processed_length);
12724
12725         return $processed_filename;
12726
12727 }
12728
12729 sub kiriwrite_language{
12730 #################################################################################
12731 # kiriwrite_language: Process language strings that need certain text inserted. #
12732 #                                                                               #
12733 # Usage:                                                                        #
12734 #                                                                               #
12735 # kiriwrite_language(string, [text, text, ...]);                                #
12736 #                                                                               #
12737 # string        Specifies the string to process.                                #
12738 # text          Specifies the text to pass to the string (can be repeated many  #
12739 #               times).                                                         #
12740 #################################################################################
12741
12742         my $string = shift;
12743         my $item;
12744
12745         foreach $item (@_){
12746
12747                 $string =~ s/%s/$item/;
12748
12749         }
12750
12751         return $string;
12752
12753 }
12754
12755 sub kiriwrite_error{
12756 #################################################################################
12757 # kiriwrite_error: Prints out an error message.                                 #
12758 #                                                                               #
12759 # Usage:                                                                        #
12760 #                                                                               #
12761 # kiriwrite_error(errortype, errorext);                                         #
12762 #                                                                               #
12763 # errortype     Specifies the type of error that occured.                       #
12764 # errorext      Specifies the extended error information.                       #
12765 #################################################################################
12766
12767         # Get the error type from the subroutine.
12768
12769         my ($error_type, $error_extended) = @_;
12770
12771         # Disconnect from the database server.
12772
12773         if ($kiriwrite_dbmodule){
12774                 $kiriwrite_dbmodule->disconnect();
12775         }
12776
12777         # Load the list of error messages.
12778
12779         my ($kiriwrite_error, %kiriwrite_error);
12780
12781         %kiriwrite_error = (
12782
12783                 # Catch all error message.
12784                 "generic"                       => $kiriwrite_lang->{error}->{generic},
12785
12786                 # Standard error messages.
12787                 "blankfilename"                 => $kiriwrite_lang->{error}->{blankfilename},
12788                 "blankvariable"                 => $kiriwrite_lang->{error}->{blankvariable},
12789                 "fileexists"                    => $kiriwrite_lang->{error}->{fileexists},
12790                 "internalerror"                 => $kiriwrite_lang->{error}->{internalerror},
12791                 "invalidoption"                 => $kiriwrite_lang->{error}->{invalidoption},
12792                 "invalidaction"                 => $kiriwrite_lang->{error}->{invalidaction},
12793                 "invalidfilename"               => $kiriwrite_lang->{error}->{invalidfilename},
12794                 "invalidmode"                   => $kiriwrite_lang->{error}->{invalidmode},
12795                 "invalidutf8"                   => $kiriwrite_lang->{error}->{invalidutf8},
12796                 "invalidvariable"               => $kiriwrite_lang->{error}->{invalidvariable},
12797                 "variabletoolong"               => $kiriwrite_lang->{error}->{variabletoolong},
12798
12799                 # Specific error messages.
12800                 "blankcompiletype"              => $kiriwrite_lang->{error}->{blankcompiletype},
12801                 "blankdatabasepageadd"          => $kiriwrite_lang->{error}->{blankdatabasepageadd},
12802                 "blankdirectory"                => $kiriwrite_lang->{error}->{blankdirectory},
12803                 "blankfindfilter"               => $kiriwrite_lang->{error}->{blankfindfilter},
12804                 "blankdatetimeformat"           => $kiriwrite_lang->{error}->{blankdatetimeformat},
12805                 "databaseconnectionerror"       => $kiriwrite_lang->{error}->{databaseconnectionerror},
12806                 "databasecategoriestoolong"     => $kiriwrite_lang->{error}->{databasecategoriestoolong},
12807                 "databasecopysame"              => $kiriwrite_lang->{error}->{databasecopysame},
12808                 "databasealreadyexists"         => $kiriwrite_lang->{error}->{databasealreadyexists},
12809                 "datadirectorymissing"          => $kiriwrite_lang->{error}->{datadirectorymissing},
12810                 "datadirectoryinvalidpermissions"       => $kiriwrite_lang->{error}->{datadirectoryinvalidpermissions},
12811                 "databasedescriptiontoolong"    => $kiriwrite_lang->{error}->{databasedescriptiontoolong},
12812                 "databasefilenameinvalid"       => $kiriwrite_lang->{error}->{databasefilenameinvalid},
12813                 "databasefilenametoolong"       => $kiriwrite_lang->{error}->{databasefilenametoolong},
12814                 "databaseerror" => $kiriwrite_lang->{error}->{databaseerror},
12815                 "databaseinvalidpermissions"    => $kiriwrite_lang->{error}->{databaseinvalidpermissions},
12816                 "databasenameinvalid"           => $kiriwrite_lang->{error}->{databasenameinvalid},
12817                 "databasenametoolong"           => $kiriwrite_lang->{error}->{databasenametoolong},
12818                 "databasenameblank"             => $kiriwrite_lang->{error}->{databasenameblank},
12819                 "databasemissingfile"           => $kiriwrite_lang->{error}->{databasemissingfile},
12820                 "databasemovemissingfile"       => $kiriwrite_lang->{error}->{databasemovemissingfile},
12821                 "databasenorename"              => $kiriwrite_lang->{error}->{databasenorename},
12822                 "databasemovesame"              => $kiriwrite_lang->{error}->{databasemovesame},
12823                 "dbmoduleblank"                 => $kiriwrite_lang->{error}->{dbmoduleblank},
12824                 "dbmoduleinvalid"               => $kiriwrite_lang->{error}->{dbmoduleinvalid},
12825                 "dbdirectoryblank"              => $kiriwrite_lang->{error}->{dbdirectoryblank},
12826                 "dbdirectoryinvalid"            => $kiriwrite_lang->{error}->{dbdirectoryinvalid},
12827                 "dbmodulemissing"               => $kiriwrite_lang->{error}->{dbmodulemissing},
12828                 "filtersdatabasenotcreated"     => $kiriwrite_lang->{error}->{filtersdatabasenotcreated},
12829                 "filtersdbdatabaseerror"        => $kiriwrite_lang->{error}->{filtersdbdatabaseerror},
12830                 "filtersdbpermissions"          => $kiriwrite_lang->{error}->{filtersdbpermissions},
12831                 "filtersdbmissing"              => $kiriwrite_lang->{error}->{filtersdbmissing},
12832                 "filteridblank"                 => $kiriwrite_lang->{error}->{filteridblank},
12833                 "filterdoesnotexist"            => $kiriwrite_lang->{error}->{filterdoesnotexist},
12834                 "filteridinvalid"               => $kiriwrite_lang->{error}->{filteridinvalid},
12835                 "filteridtoolong"               => $kiriwrite_lang->{error}->{filteridtoolong},
12836                 "findfiltertoolong"             => $kiriwrite_lang->{error}->{findfiltertoolong},
12837                 "filterpriorityinvalid"         => $kiriwrite_lang->{error}->{filterpriorityinvalid},
12838                 "filterpriorityinvalidchars"    => $kiriwrite_lang->{error}->{filterpriorityinvalidchars},
12839                 "filterprioritytoolong"         => $kiriwrite_lang->{error}->{filterprioritytoolong},
12840                 "invalidcompiletype"            => $kiriwrite_lang->{error}->{invalidcompiletype},
12841                 "invalidpagenumber"             => $kiriwrite_lang->{error}->{invalidpagenumber},
12842                 "nopagesselected"               => $kiriwrite_lang->{error}->{nopagesselected},
12843                 "invaliddirectory"              => $kiriwrite_lang->{error}->{invaliddirectory},
12844                 "invaliddatetimeformat"         => $kiriwrite_lang->{error}->{invaliddatetimeformat},
12845                 "invalidlanguagefilename"       => $kiriwrite_lang->{error}->{invalidlanguagefilename},
12846                 "languagefilenamemissing"       => $kiriwrite_lang->{error}->{languagefilenamemissing},
12847                 "moduleblank"                   => $kiriwrite_lang->{error}->{moduleblank},
12848                 "moduleinvalid"                 => $kiriwrite_lang->{error}->{moduleinvalid},
12849                 "newcopydatabasedatabaseerror"  => $kiriwrite_lang->{error}->{newcopydatabasedatabaseerror},
12850                 "newcopydatabasedoesnotexist"   => $kiriwrite_lang->{error}->{newcopydatabasedoesnotexist},
12851                 "newcopydatabasefileinvalidpermissions" => $kiriwrite_lang->{error}->{newcopydatabasefileinvalidpermissions},
12852                 "newmovedatabasedatabaseerror"  => $kiriwrite_lang->{error}->{newmovedatabasedatabaseerror},
12853                 "newmovedatabasedoesnotexist"   => $kiriwrite_lang->{error}->{newmovedatabasedoesnotexist},
12854                 "newmovedatabasefileinvalidpermissions" => $kiriwrite_lang->{error}->{newmovedatabasefileinvalidpermissions},
12855                 "nodatabasesavailable"          => $kiriwrite_lang->{error}->{nodatabasesavailable},
12856                 "nodatabaseselected"            => $kiriwrite_lang->{error}->{nodatabaseselected},
12857                 "noeditvaluesselected"          => $kiriwrite_lang->{error}->{noeditvaluesselected},
12858                 "oldcopydatabasedatabaseerror"  => $kiriwrite_lang->{error}->{oldcopydatabasedatabaseerror},
12859                 "oldcopydatabasedoesnotexist"   => $kiriwrite_lang->{error}->{oldcopydatabasedoesnotexist},
12860                 "oldcopydatabasefileinvalidpermissions" => $kiriwrite_lang->{error}->{oldcopydatabasefileinvalidpermissions},
12861                 "oldmovedatabasedatabaseerror"  => $kiriwrite_lang->{error}->{oldmovedatabasedatabaseerror},
12862                 "oldmovedatabasedoesnotexist"   => $kiriwrite_lang->{error}->{oldmovedatabasedoesnotexist},
12863                 "oldmovedatabasefileinvalidpermissions" => $kiriwrite_lang->{error}->{oldmovedatabasefileinvalidpermissions},
12864                 "outputdirectoryblank"          => $kiriwrite_lang->{error}->{outputdirectoryblank},
12865                 "outputdirectoryinvalid"        => $kiriwrite_lang->{error}->{outputdirectoryinvalid},
12866                 "outputdirectorymissing"        => $kiriwrite_lang->{error}->{outputdirectorymissing},
12867                 "outputdirectoryinvalidpermissions"     => $kiriwrite_lang->{error}->{outputdirectoryinvalidpermissions},
12868                 "presmoduleblank"               => $kiriwrite_lang->{error}->{presmoduleblank},
12869                 "presmoduleinvalid"             => $kiriwrite_lang->{error}->{presmoduleinvalid},
12870                 "presmodulemissing"             => $kiriwrite_lang->{error}->{presmodulemissing},
12871                 "pagefilenamedoesnotexist"      => $kiriwrite_lang->{error}->{pagefilenamedoesnotexist},
12872                 "pagefilenameexists"            => $kiriwrite_lang->{error}->{pagefilenameexists},
12873                 "pagefilenameinvalid"           => $kiriwrite_lang->{error}->{pagefilenameinvalid},
12874                 "pagefilenametoolong"           => $kiriwrite_lang->{error}->{pagefilenametoolong},
12875                 "pagefilenameblank"             => $kiriwrite_lang->{error}->{pagefilenameblank},
12876                 "pagetitletoolong"              => $kiriwrite_lang->{error}->{pagetitletoolong},
12877                 "pagedescriptiontoolong"        => $kiriwrite_lang->{error}->{pagedescriptiontoolong},
12878                 "pagesectiontoolong"            => $kiriwrite_lang->{error}->{pagesectiontoolong},
12879                 "pagedatabasefilenametoolong"   => $kiriwrite_lang->{error}->{pagedatabasefilenametoolong},
12880                 "pagesettingstoolong"           => $kiriwrite_lang->{error}->{pagesettingstoolong},
12881                 "pagesettingsinvalid"           => $kiriwrite_lang->{error}->{pagesettingsinvalid},
12882                 "pagetemplatefilenametoolong"   => $kiriwrite_lang->{error}->{pagetemplatefilenametoolong},
12883                 "replacefiltertoolong"          => $kiriwrite_lang->{error}->{replacefiltertoolong},
12884                 "servernameinvalid"             => $kiriwrite_lang->{error}->{servernameinvalid},
12885                 "servernametoolong"             => $kiriwrite_lang->{error}->{servernametoolong},
12886                 "serverdatabasenameinvalid"     => $kiriwrite_lang->{error}->{serverdatabasenameinvalid},
12887                 "serverdatabasenametoolong"     => $kiriwrite_lang->{error}->{serverdatabasenametoolong},
12888                 "serverdatabaseusernameinvalid" => $kiriwrite_lang->{error}->{serverdatabaseusernameinvalid},
12889                 "serverdatabaseusernametoolong" => $kiriwrite_lang->{error}->{serverdatabaseusernametoolong},
12890                 "serverdatabasepasswordtoolong" => $kiriwrite_lang->{error}->{serverdatabasepasswordtoolong},
12891                 "serverdatabasetableprefixinvalid"      => $kiriwrite_lang->{error}->{serverdatabasetableprefixinvalid},
12892                 "serverdatabasetableprefixtoolong"      => $kiriwrite_lang->{error}->{serverdatabasetableprefixtoolong},
12893                 "serverportnumberinvalid"       => $kiriwrite_lang->{error}->{serverportnumberinvalid},
12894                 "serverportnumberinvalidcharacters"     => $kiriwrite_lang->{error}->{serverportnumberinvalidcharacters},
12895                 "serverportnumbertoolong"       => $kiriwrite_lang->{error}->{serverportnumbertoolong},
12896                 "serverprotocolnametoolong"     => $kiriwrite_lang->{error}->{serverprotocolnametoolong},
12897                 "serverprotocolinvalid"         => $kiriwrite_lang->{error}->{serverprotocolinvalid},
12898                 "templatenameblank"             => $kiriwrite_lang->{error}->{templatenameblank},
12899                 "templatefilenameexists"        => $kiriwrite_lang->{error}->{templatefilenameexists},
12900                 "templatefilenameinvalid"       => $kiriwrite_lang->{error}->{templatefilenameinvalid},
12901                 "templatedatabaseerror"         => $kiriwrite_lang->{error}->{templatedatabaseerror},
12902                 "templatedatabaseinvalidpermissions"    => $kiriwrite_lang->{error}->{templatedatabaseinvalidpermissions},
12903                 "templatedatabaseinvalidformat" => $kiriwrite_lang->{error}->{templatedatabaseinvalidformat},
12904                 "templatedirectoryblank"        => $kiriwrite_lang->{error}->{templatedirectoryblank},
12905                 "templatedirectoryinvalid"      => $kiriwrite_lang->{error}->{templatedirectoryinvalid},
12906                 "templatedatabasenotcreated"    => $kiriwrite_lang->{error}->{templatedatabasenotcreated},
12907                 "templatefilenametoolong"       => $kiriwrite_lang->{error}->{templatefilenametoolong},
12908                 "templatenametoolong"           => $kiriwrite_lang->{error}->{templatenametoolong},
12909                 "templatedescriptiontoolong"    => $kiriwrite_lang->{error}->{templatedescriptiontoolong},
12910                 "templatedatabasemissing"       => $kiriwrite_lang->{error}->{templatedatabasemissing},
12911                 "templatedoesnotexist"          => $kiriwrite_lang->{error}->{templatedoesnotexist},
12912                 "templatefilenameblank"         => $kiriwrite_lang->{error}->{templatefilenameblank},
12913
12914         );
12915
12916         # Check if the specified error is blank and if it is
12917         # use the generic error messsage.
12918
12919         if (!$kiriwrite_error{$error_type}){
12920                 $error_type = "generic";
12921         }
12922
12923         $kiriwrite_presmodule->clear();
12924
12925         $kiriwrite_presmodule->startbox("errorbox");
12926         $kiriwrite_presmodule->addtext($kiriwrite_lang->{error}->{error}, { Style => "errorheader" });
12927         $kiriwrite_presmodule->addlinebreak();
12928         $kiriwrite_presmodule->addtext($kiriwrite_error{$error_type}, { Style => "errortext" });
12929
12930         # Check to see if extended error information was passed.
12931
12932         if ($error_extended){
12933
12934                 # Write the extended error information.
12935
12936                 $kiriwrite_presmodule->addlinebreak();
12937                 $kiriwrite_presmodule->addlinebreak();
12938                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{error}->{extendederror});
12939                 $kiriwrite_presmodule->addlinebreak();
12940                 $kiriwrite_presmodule->addlinebreak();
12941                 $kiriwrite_presmodule->startbox("datalist");
12942                 $kiriwrite_presmodule->addtext($error_extended);
12943                 $kiriwrite_presmodule->endbox();
12944
12945         }
12946
12947         $kiriwrite_presmodule->endbox();
12948
12949         kiriwrite_output_header;
12950         kiriwrite_output_page($kiriwrite_lang->{error}->{error}, $kiriwrite_presmodule->grab(), "none");
12951
12952         exit;
12953
12954 }
12955
12956 sub kiriwrite_fileexists{
12957 #################################################################################
12958 # kiriwrite_fileexists: Check if a file exists and returns a value depending on #
12959 # if the file exists or not.                                                    #
12960 #                                                                               #
12961 # Usage:                                                                        #
12962 #                                                                               #
12963 # kiriwrite_fileexists(filename);                                               #
12964 #                                                                               #
12965 # filename      Specifies the file name to check if it exists or not.           #
12966 #################################################################################
12967
12968         # Get the value that was passed to the subroutine.
12969
12970         my ($filename) = @_;
12971
12972         # Check if the filename exists, if it does, return a value of 0, else
12973         # return a value of 1, meaning that the file was not found.
12974
12975         if (-e $filename){
12976
12977                 # Specified file does exist so return a value of 0.
12978
12979                 return 0;
12980
12981         } else {
12982
12983                 # Specified file does not exist so return a value of 1.
12984
12985                 return 1;
12986
12987         }
12988
12989 }
12990
12991 sub kiriwrite_filepermissions{
12992 #################################################################################
12993 # kiriwrite_filepermissions: Check if the file permissions of a file and return #
12994 # either a 1 saying that the permissions are valid or return a 0 saying that    #
12995 # the permissions are invalid.                                                  #
12996 #                                                                               #
12997 # Usage:                                                                        #
12998 #                                                                               #
12999 # kiriwrite_filepermissions(filename, [read], [write], [filemissingskip]);      #
13000 #                                                                               #
13001 # filename              Specifies the filename to check for permissions.        #
13002 # read                  Preform check that the file is readable.                #
13003 # write                 Preform check that the file is writeable.               #
13004 # filemissingskip       Skip the check of seeing if it can read or write if the #
13005 #                       file is missing.                                        #
13006 #################################################################################
13007
13008         # Get the values that was passed to the subroutine.
13009
13010         my ($filename, $readpermission, $writepermission, $ignorechecks) = @_;
13011
13012         # Check to make sure that the read permission and write permission values
13013         # are only 1 character long.
13014
13015         kiriwrite_variablecheck($readpermission, "maxlength", 1, 0);
13016         kiriwrite_variablecheck($writepermission, "maxlength", 1, 0);
13017         kiriwrite_variablecheck($ignorechecks, "maxlength", 1, 0);
13018
13019         my $ignorechecks_result = 0;
13020
13021         # Check if the file should be ignored for read and write checking if
13022         # it doesn't exist.
13023
13024         if ($ignorechecks){
13025
13026                 if (-e $filename){
13027
13028                         # The file exists so the checks are to be done.
13029
13030                         $ignorechecks_result = 0;
13031
13032                 } else {
13033
13034                         # The file does not exist so the checks don't need to
13035                         # be done to prevent false positives.
13036
13037                         $ignorechecks_result = 1;
13038
13039                 }
13040
13041         } else {
13042
13043                 $ignorechecks_result = 0;
13044
13045         }
13046
13047         # Check if the file should be checked to see if it can be read.
13048
13049         if ($readpermission && $ignorechecks_result eq 0){
13050
13051                 # The file should be checked to see if it does contain read permissions
13052                 # and return a 0 if it is invalid.
13053
13054                 if (-r $filename){
13055
13056                         # The file is readable, so do nothing.
13057
13058                 } else {
13059
13060                         # The file is not readable, so return 1.
13061
13062                         return 1;
13063
13064                 }
13065
13066         }
13067
13068         # Check if the file should be checked to see if it can be written.
13069
13070         if ($writepermission && $ignorechecks_result eq 0){
13071
13072                 # The file should be checked to see if it does contain write permissions
13073                 # and return a 0 if it is invalid.
13074
13075                 if (-w $filename){
13076
13077                         # The file is writeable, so do nothing.
13078
13079                 } else {
13080
13081                         # The file is not writeable, so return 1.
13082
13083                         return 1;
13084
13085                 }
13086
13087         }
13088
13089         # No problems have occured, so return 0.
13090
13091         return 0;
13092
13093 }
13094
13095 sub kiriwrite_utf8convert{
13096 #################################################################################
13097 # kiriwrite_utf8convert: Properly converts values into UTF-8 and make sure      #
13098 # that the size of the string is correct when doing input validation.           #
13099 #                                                                               #
13100 # Usage:                                                                        #
13101 #                                                                               #
13102 # utfstring     # The UTF-8 string to convert.                                  #
13103 #################################################################################
13104
13105         # Get the values passed to the subroutine.
13106
13107         my ($utfstring) = @_;
13108
13109         # Load the Encode perl module.
13110
13111         use Encode qw(decode_utf8);
13112
13113         # Convert the string.
13114
13115         my $finalutf8 = Encode::decode_utf8( $utfstring );
13116
13117         return $finalutf8;
13118
13119 }
13120
13121 sub kiriwrite_critical{
13122 #################################################################################
13123 # kiriwrite_critical: Displays an critical error message that cannot be         #
13124 # normally by the kiriwrite_error subroutine.                                   #
13125 #                                                                               #
13126 # Usage:                                                                        #
13127 #                                                                               #
13128 # errortype     Specifies the type of critical error that has occured.          #
13129 #################################################################################
13130
13131         # Get the value that was passed to the subroutine.
13132
13133         my ($error_type) = @_;
13134
13135         my %error_list;
13136
13137         # Get the error type from the errortype string.
13138
13139         %error_list = (
13140
13141                 # Generic critical error message.
13142
13143                 "generic"                       => "A critical error has occured but the error is not known to Kiriwrite.",
13144
13145                 # Specific critical error messages.
13146
13147                 "configfilemissing"             => "The Kiriwrite configuration file is missing! Running the installer script for Kiriwrite is recommended.",
13148                 "configfileinvalidpermissions"  => "The Kiriwrite configuration file has invalid permission settings set! Please set the valid permission settings for the configuration file.",
13149                 "dbmodulemissing"               => "The database module is missing! Running the installer script for Kiriwrite is recommended.",
13150                 "dbmoduleinvalidpermissions"    => "The database module cannot be used as it has invalid permission settings set! Please set the valid permission settings for the configuration file.",
13151                 "dbmoduleinvalid"               => "The database module name given is invalid. Running the installer script for Kiriwrite is recommended.",
13152                 "invalidvalue"                  => "An invalid value was passed.",
13153                 "languagefilenameblank"         => "The language filename given is blank! Running the installer script for Kiriwrite is recommended.",
13154                 "languagefilenameinvalid"       => "The language filename given is invalid! Running the installer script for Kiriwrite is recommended.",
13155                 "languagefilemissing"   => "The language filename given does not exist. Running the installer script for Kiriwrite is recommended.",
13156                 "languagefilenameinvalidpermissions"    => "The language file with the filename given has invalid permissions set. Please set the valid permission settings for the language file.",
13157                 "presmodulemissing"             => "The presentation module is missing! Running the installer script for Kiriwrite is recommended.",
13158                 "presmoduleinvalidpermissions"  => "The presentation module cannot be used as it has invalid permission settings set! Please set the valid permission settings for the presentation module.",
13159                 "presmoduleinvalid"             => "The presentation module name given is invalid. Running the installer script for Kiriwrite is recommended.",
13160         );
13161
13162         if (!$error_list{$error_type}){
13163
13164                 $error_type = "generic";
13165
13166         }
13167
13168         print header();
13169         print "Critical Error: " . $error_list{$error_type};
13170         exit;
13171
13172 }
13173
13174 sub kiriwrite_output_page{
13175 #################################################################################
13176 # kiriwrite_output_page: Outputs the page to the browser/stdout/console.        #
13177 #                                                                               #
13178 # Usage:                                                                        #
13179 #                                                                               #
13180 # kiriwrite_output_page(pagetitle, pagedata, menutype);                         #
13181 #                                                                               #
13182 # pagetitle     Specifies the page title.                                       #
13183 # pagedata      Specifies the page data.                                        #
13184 # menutype      Prints out which menu to use.                                   #
13185 #################################################################################
13186
13187         my ($pagetitle, $pagedata, $menutype) = @_;
13188
13189         # Open the script page template and load it into the scriptpage variable,
13190         # while declaring the variable.
13191
13192         open (my $filehandle_scriptpage, "<:utf8", 'page.html');
13193         my @scriptpage = <$filehandle_scriptpage>;
13194         binmode $filehandle_scriptpage, ':utf8';
13195         close ($filehandle_scriptpage);
13196
13197         # Define the variables required.
13198
13199         my $scriptpageline = "";
13200         my $pageoutput = "";
13201         my $menuoutput = "";
13202
13203         $kiriwrite_presmodule->clear();
13204
13205         # Print out the main menu for Kiriwrite.
13206
13207         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=db", { Text => $kiriwrite_lang->{menu}->{viewdatabases} });
13208         $kiriwrite_presmodule->addtext(" | ");
13209         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=page", { Text => $kiriwrite_lang->{menu}->{viewpages} });
13210         $kiriwrite_presmodule->addtext(" | ");
13211         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=filter", { Text => $kiriwrite_lang->{menu}->{viewfilters} });
13212         $kiriwrite_presmodule->addtext(" | ");
13213         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=template", { Text => $kiriwrite_lang->{menu}->{viewtemplates} });
13214         $kiriwrite_presmodule->addtext(" | ");
13215         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=compile", { Text => $kiriwrite_lang->{menu}->{compilepages} });
13216         $kiriwrite_presmodule->addtext(" | ");
13217         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=settings", { Text => $kiriwrite_lang->{menu}->{viewsettings} });
13218         $kiriwrite_presmodule->addlinebreak();
13219
13220         # Check what menu is going to be printed along with the default 'top' menu.
13221
13222         if ($menutype eq "database"){
13223
13224                 # If the menu type is database then print out the database sub-menu.
13225
13226                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=db", { Text => $kiriwrite_lang->{database}->{submenu}->{viewdatabases} });
13227                 $kiriwrite_presmodule->addtext(" | ");
13228                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=db&action=new", { Text => $kiriwrite_lang->{database}->{submenu}->{adddatabase} });
13229
13230         } elsif ($menutype eq "pages"){
13231                 # If the menu type is pages then print out the pages sub-menu.
13232
13233                 # First, fetch the database name from the HTTP query string.
13234
13235                 my $query = new CGI;
13236                 my $db_filename = $query->param('database');
13237
13238                 # Check if a value has been placed in the db_filename string.
13239
13240                 if (!$db_filename){
13241
13242                         # As the database filename is blank, don't add an option to add a page.
13243
13244                 } else {
13245
13246                         # A database file has been specified so add an option to add a page to
13247                         # the selected database.
13248
13249                         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=page&action=add&database="  . $db_filename, { Text => $kiriwrite_lang->{pages}->{submenu}->{addpage} });
13250
13251                 }
13252
13253         } elsif ($menutype eq "filter"){
13254
13255                 # If the menu type is filters then print out the filter sub-menu.
13256
13257                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{submenu}->{showfilters} });
13258                 $kiriwrite_presmodule->addtext(" | ");
13259                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=filter&action=add", { Text => $kiriwrite_lang->{filter}->{submenu}->{addfilter} });
13260
13261         } elsif ($menutype eq "settings"){
13262
13263                 # If the menu type is options then print out the options sub-menu.
13264
13265                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=settings", { Text => $kiriwrite_lang->{setting}->{submenu}->{viewsettings} });
13266                 $kiriwrite_presmodule->addtext(" | ");
13267                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=settings&action=edit", { Text => $kiriwrite_lang->{setting}->{submenu}->{editsettings} });
13268
13269         } elsif ($menutype eq "template"){
13270
13271                 # If the menu type is template then print out the template sub-menu.
13272
13273                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=template", { Text => $kiriwrite_lang->{template}->{submenu}->{showtemplates} });
13274                 $kiriwrite_presmodule->addtext(" | ");
13275                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=template&action=add", { Text => $kiriwrite_lang->{template}->{submenu}->{addtemplate} });
13276
13277         } elsif ($menutype eq "compile"){
13278
13279                 # If the menu type is compile then print out the compile sub-menu.
13280
13281                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{submenu}->{listdatabases} });
13282                 $kiriwrite_presmodule->addtext(" | ");
13283                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=compile&action=all", { Text => $kiriwrite_lang->{compile}->{submenu}->{compileall} });
13284                 $kiriwrite_presmodule->addtext(" | ");
13285                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=compile&action=clean", { Text => $kiriwrite_lang->{compile}->{submenu}->{cleanoutputdirectory} });
13286
13287         }
13288
13289         $menuoutput = $kiriwrite_presmodule->grab();
13290
13291         # Find <kiriwrite> tages and replace with the apporiate variables.
13292
13293         foreach $scriptpageline (@scriptpage){
13294
13295                 $scriptpageline =~ s/<kiriwrite:menu>/$menuoutput/g;
13296                 $scriptpageline =~ s/<kiriwrite:imagespath>/$kiriwrite_config{"directory_noncgi_images"}/g;
13297                 $scriptpageline =~ s/<kiriwrite:pagedata>/$pagedata/g;
13298
13299                 # Check if page title specified is blank, otherwise add a page title
13300                 # to the title.
13301
13302                 if ($pagetitle eq ""){
13303                         $scriptpageline =~ s/<kiriwrite:title>//g;
13304                 } else {
13305                         $scriptpageline =~ s/<kiriwrite:title>/ ($pagetitle)/g;
13306                 }
13307
13308
13309
13310                 # Append processed line to the pageoutput variable.
13311
13312                 $pageoutput = $pageoutput . $scriptpageline;
13313
13314         }
13315
13316         binmode STDOUT, ':utf8';
13317
13318         print $pageoutput;
13319
13320         return;
13321
13322 }
13323
13324 sub kiriwrite_output_xml{
13325 #################################################################################
13326 # kiriwrite_output_xml: Outputs several types of data to an XML file            #
13327 #                                                                               #
13328 # Usage:                                                                        #
13329 #                                                                               #
13330 # kiriwrite_output_xml(filename, type, settings);                               #
13331 #                                                                               #
13332 # filename      Specifies the filename of the XML file.                         #
13333 # type          Specifies the type of the XML file to be written.               #
13334 # settings              Specifies the following settings in any order.          #
13335 #                                                                               #
13336 # Settings for Kiriwrite configuration files:                                   #
13337 #                                                                               #
13338 # DatabaseDirectory     Specifies the new database directory to use.            #
13339 # OutputDirectory       Specifies the new output directory to use.              #
13340 # ImagesURIPath         Specifies the new URI path for images.                  #
13341 # DateTimeFormat        Specifies the new date and time format.                 #
13342 # SystemLanguage        Specifies the new language to use for Kiriwrite.        #
13343 # PrsentationModule     Specifies the new presentation module to use for        #
13344 #                       Kiriwrite.                                              #
13345 # DatabaseModule        Specifies the new database module to use for Kiriwrite. #
13346 # DatabaseServer        Specifies the database server to use.                   #
13347 # DaravasePort          Specifies the port the database server is running on.   #
13348 # DatabaseProtocol      Specifies the protocol the database server is using.    #
13349 # DatabaseSQLDatabase   Specifies the SQL database name to use.                 #
13350 # DatabaseUsername      Specifies the database server username.                 #
13351 # DatabasePassword      Specifies the password for the database server username.#
13352 # DatabaseTablePrefix   Specifies the table prefix to use.                      #
13353 #################################################################################
13354
13355         # Get the variables passed from the subroutine.
13356
13357         my $xml_filename        = shift;
13358         my $xml_type            = shift;
13359         my ($passedsettings)    = @_;
13360
13361         # Check if filename is blank, if it is then return an error.
13362
13363         if ($xml_filename eq ""){
13364                 # Filename is blank, return an error.
13365                 kiriwrite_error("blankfilename");
13366         }
13367
13368         # Validate the XML filename to make sure nothing supicious is being passed.
13369
13370         kiriwrite_variablecheck($xml_filename, "maxlength", 64, 0);
13371         kiriwrite_variablecheck($xml_filename, "filename", "", 0);
13372
13373         # Check what type of XML data to output.
13374
13375         if ($xml_type eq "config") {
13376
13377                 # The type of XML data to output is a Kiriwrite configuration file.
13378
13379                 # Get the data from the hash.
13380
13381                 my $settings_databasedir                = $passedsettings->{"DatabaseDirectory"};
13382                 my $settings_outputdir                  = $passedsettings->{"OutputDirectory"};
13383                 my $settings_imagesuri                  = $passedsettings->{"ImagesURIPath"};
13384                 my $settings_datetime                   = $passedsettings->{"DateTimeFormat"};
13385                 my $settings_systemlanguage             = $passedsettings->{"SystemLanguage"};
13386                 my $settings_presmodule                 = $passedsettings->{"PresentationModule"};
13387                 my $settings_dbmodule                   = $passedsettings->{"DatabaseModule"};
13388
13389                 my $settings_database_server            = $passedsettings->{"DatabaseServer"};
13390                 my $settings_database_port              = $passedsettings->{"DatabasePort"};
13391                 my $settings_database_protocol          = $passedsettings->{"DatabaseProtocol"};
13392                 my $settings_database_sqldatabase       = $passedsettings->{"DatabaseSQLDatabase"};
13393                 my $settings_database_username          = $passedsettings->{"DatabaseUsername"};
13394                 my $settings_database_password          = $passedsettings->{"DatabasePassword"};
13395                 my $settings_database_tableprefix       = $passedsettings->{"DatabaseTablePrefix"};
13396
13397                 # Convert the password to make sure it can be read properly.
13398
13399                 $settings_database_password =~ s/\0//g;
13400                 $settings_database_password =~ s/</&lt;/g;
13401                 $settings_database_password =~ s/>/&gt;/g;
13402
13403                 # Convert the less than and greater than characters are there and
13404                 # convert them.
13405
13406                 $settings_imagesuri =~ s/</&lt;/g;
13407                 $settings_imagesuri =~ s/>/&gt;/g;
13408
13409                 # Create the XML data layout.
13410
13411                 my $xmldata = "<?xml version=\"1.0\"?>\r\n\r\n<kiriwrite-config>\r\n";
13412
13413                 $xmldata = $xmldata . "<!-- This file was automatically generated by Kiriwrite, please feel free to edit to your own needs. -->\r\n";
13414                 $xmldata = $xmldata . "\t<settings>\r\n\t\t<directories>\r\n";
13415
13416                 $xmldata = $xmldata . "\t\t\t<database>" . $settings_databasedir . "</database>\r\n";
13417                 $xmldata = $xmldata . "\t\t\t<output>" . $settings_outputdir  . "</output>\r\n";
13418                 $xmldata = $xmldata . "\t\t\t<images>" . $settings_imagesuri . "</images>\r\n";
13419                 $xmldata = $xmldata . "\t\t</directories>\r\n";
13420
13421                 $xmldata = $xmldata . "\t\t<language>\r\n";
13422                 $xmldata = $xmldata . "\t\t\t<lang>" . $settings_systemlanguage . "</lang>\r\n";
13423                 $xmldata = $xmldata . "\t\t</language>\r\n";
13424
13425                 $xmldata = $xmldata . "\t\t<system>\r\n";
13426                 $xmldata = $xmldata . "\t\t\t<presentation>" . $settings_presmodule . "</presentation>\r\n";
13427                 $xmldata = $xmldata . "\t\t\t<database>" . $settings_dbmodule . "</database>\r\n";
13428                 $xmldata = $xmldata . "\t\t\t<datetime>" . $settings_datetime . "</datetime>\r\n";
13429                 $xmldata = $xmldata . "\t\t</system>\r\n";
13430
13431                 $xmldata = $xmldata . "\t\t<database>\r\n";
13432                 $xmldata = $xmldata . "\t\t\t<server>" . $settings_database_server . "</server>\r\n";
13433                 $xmldata = $xmldata . "\t\t\t<port>" . $settings_database_port . "</port>\r\n";
13434                 $xmldata = $xmldata . "\t\t\t<protocol>" . $settings_database_protocol . "</protocol>\r\n";
13435                 $xmldata = $xmldata . "\t\t\t<database>" . $settings_database_sqldatabase . "</database>\r\n";
13436                 $xmldata = $xmldata . "\t\t\t<username>" . $settings_database_username . "</username>\r\n";
13437                 $xmldata = $xmldata . "\t\t\t<password>" . $settings_database_password . "</password>\r\n";
13438                 $xmldata = $xmldata . "\t\t\t<prefix>" . $settings_database_tableprefix . "</prefix>\r\n";
13439                 $xmldata = $xmldata . "\t\t</database>\r\n";
13440
13441                 $xmldata = $xmldata . "\t</settings>\r\n";
13442
13443                 $xmldata = $xmldata . "</kiriwrite-config>";
13444
13445                 # Open the Kiriwrite XML configuration file and write the new settings to the
13446                 # configuration file.
13447
13448                 open(my $filehandle_xmlconfig, "> ", "kiriwrite.xml");
13449                 print $filehandle_xmlconfig $xmldata;
13450                 close($filehandle_xmlconfig);
13451
13452         } else {
13453
13454                 # The type of XML data is something else that is not supported by
13455                 # Kiriwrite, so return an error.
13456
13457                 kiriwrite_error("invalidoption");
13458
13459         }
13460
13461         return;
13462
13463 }
13464
13465 #################################################################################
13466 # End listing the functions needed.                                             #
13467 #################################################################################
13468
13469 #################################################################################
13470 # Begin proper script execution.                                                #
13471 #################################################################################
13472
13473 kiriwrite_settings_load;        # Load the configuration options.
13474
13475 my $query = new CGI;            # Easily fetch variables from the HTTP string.
13476
13477
13478
13479 # Check if a mode has been specified and if a mode has been specified, continue
13480 # and work out what mode has been specified.
13481
13482 if ($query->param('mode')){
13483         my $http_query_mode = $query->param('mode');
13484
13485         if ($http_query_mode eq "db"){
13486
13487                 # If mode is 'db' (database), then check what action is required.
13488
13489                 if ($query->param('action')){
13490                         # An action has been specified, so find out what action has been specified.
13491
13492                         my $http_query_action = $query->param('action');
13493
13494                         if ($http_query_action eq "edit"){
13495                                 # The edit action (which mean edit the settings for the selected database) has been specified,
13496                                 # get the database name and check if the action to edit an database has been confirmed.
13497
13498                                 if ($query->param('database')){
13499                                         # If there is a value in the database variable check if it is a valid database. Otherwise,
13500                                         # return an error.
13501
13502                                         my $http_query_database = $query->param('database');
13503
13504                                         # Check if a value for confirm has been specified, if there is, check if it is the correct
13505                                         # value, otherwise return an error.
13506
13507                                         if ($query->param('confirm')){
13508                                                 # A value for confirm has been specified, find out what value it is. If the value is correct
13509                                                 # then edit the database settings, otherwise return an error.
13510
13511                                                 my $http_query_confirm = $query->param('confirm');
13512
13513                                                 if ($http_query_confirm eq 1){
13514                                                         # Value is correct, collect the variables to pass onto the database variable.
13515
13516                                                         # Get the variables from the HTTP query.
13517
13518                                                         my $newdatabasename             = $query->param('databasename');
13519                                                         my $newdatabasedescription      = $query->param('databasedescription');
13520                                                         my $newdatabasefilename         = $query->param('databasefilename');
13521                                                         my $databasename                = $query->param('olddatabasename');
13522                                                         my $databasedescription         = $query->param('olddatabasedescription');
13523                                                         my $databaseshortname           = $query->param('database');
13524                                                         my $databasenotes               = $query->param('databasenotes');
13525                                                         my $databasecategories          = $query->param('databasecategories');
13526
13527                                                         # Check the permissions of the database configuration file and return
13528                                                         # an error if the database permissions are invalid.
13529
13530                                                         # Pass the variables to the database editing subroutine.
13531
13532                                                         my $pagedata = kiriwrite_database_edit($databaseshortname, $databasename, $databasedescription, $newdatabasefilename, $newdatabasename, $newdatabasedescription, $databasenotes, $databasecategories, 1);
13533
13534                                                         kiriwrite_output_header;
13535                                                         kiriwrite_output_page($kiriwrite_lang->{database}->{editdatabasetitle}, $pagedata, "database");
13536                                                         exit;
13537
13538                                                 } else {
13539                                                         # Value is incorrect, return and error.
13540                                                         kiriwrite_error("invalidvariable");
13541                                                 }
13542
13543                                         }
13544
13545                                         # Display the form for editing an database.
13546                                         my $pagedata = kiriwrite_database_edit($http_query_database);
13547
13548                                         kiriwrite_output_header;
13549                                         kiriwrite_output_page($kiriwrite_lang->{database}->{editdatabasetitle}, $pagedata, "database");
13550                                         exit;
13551
13552                                 } else {
13553
13554                                         # If there is no value in the database variable, then return an error.
13555                                         kiriwrite_error("invalidvariable");
13556
13557                                 }
13558
13559                         } elsif ($http_query_action eq "delete"){
13560
13561                                 # Action equested is to delete a database, find out if the user has already confirmed deletion of the database
13562                                 # and if the deletion of the database has been confirmed, delete the database.
13563
13564                                 if ($query->param('confirm')){
13565
13566                                         # User has confirmed to delete a database, pass the parameters to the kiriwrite_database_delete
13567                                         # subroutine.
13568
13569                                         my $database_filename = $query->param('database');
13570                                         my $database_confirm = $query->param('confirm');
13571                                         my $pagedata = kiriwrite_database_delete($database_filename, $database_confirm);
13572
13573                                         kiriwrite_output_header;
13574                                         kiriwrite_output_page($kiriwrite_lang->{database}->{deleteddatabase}, $pagedata, "database");
13575
13576                                         exit;
13577
13578                                 }
13579
13580                                 # User has clicked on the delete link (thus hasn't confirmed the action to delete a database).
13581
13582                                 my $database_filename = $query->param('database');
13583                                 my $pagedata = kiriwrite_database_delete($database_filename);
13584
13585                                 kiriwrite_output_header;
13586                                 kiriwrite_output_page($kiriwrite_lang->{database}->{deletedatabase}, $pagedata, "database");
13587
13588                                 exit;
13589
13590                         } elsif ($http_query_action eq "new"){
13591
13592                                 # Action requested is to create a new database, find out if the user has already entered the information needed
13593                                 # to create a database and see if the user has confirmed the action, otherwise printout a form for adding a
13594                                 # database.
13595
13596                                 my $http_query_confirm = $query->param('confirm');
13597
13598                                 # Check if the confirm value is correct.
13599
13600                                 if ($http_query_confirm){
13601                                         if ($http_query_confirm eq 1){
13602
13603                                                 # User has confirmed to create a database, pass the parameters to the
13604                                                 # kiriwrite_database_add subroutine.
13605
13606                                                 my $http_query_confirm = $query->param('confirm');
13607
13608                                                 my $database_name               = $query->param('databasename');
13609                                                 my $database_description        = $query->param('databasedescription');
13610                                                 my $database_filename           = $query->param('databasefilename');
13611                                                 my $database_notes              = $query->param('databasenotes');
13612                                                 my $database_categories         = $query->param('databasecategories');
13613
13614                                                 my $pagedata = kiriwrite_database_add($database_filename, $database_name, $database_description, $database_notes, $database_categories, $http_query_confirm);
13615
13616                                                 kiriwrite_output_header;
13617                                                 kiriwrite_output_page($kiriwrite_lang->{database}->{adddatabase}, $pagedata, "database");
13618                                                 exit;
13619
13620                                         } else {
13621
13622                                                 # The confirm value is something else other than 1 (which it shouldn't be), so
13623                                                 # return an error.
13624
13625                                         }
13626                                 }
13627
13628                                 # User has clicked on the 'Add Database' link.
13629
13630                                 my $pagedata = kiriwrite_database_add;
13631
13632                                 kiriwrite_output_header;
13633                                 kiriwrite_output_page($kiriwrite_lang->{database}->{adddatabase}, $pagedata, "database");
13634                                 exit;
13635
13636                         } else {
13637                                 # Another option has been specified, so return an error.
13638
13639                                 kiriwrite_error("invalidaction");
13640                         }
13641                 }
13642
13643                 # No action has been specified, do the default action of displaying a list
13644                 # of databases.
13645
13646                 my $pagedata = kiriwrite_database_list;
13647
13648                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
13649                 kiriwrite_output_page("", $pagedata, "database");       # Output the page to browser/console/stdout.
13650                 exit;                                   # End the script.
13651
13652         } elsif ($http_query_mode eq "page"){
13653
13654                 # If mode is 'page', then check what action is required.
13655
13656                 if ($query->param('action')){
13657                         my $http_query_action = $query->param('action');
13658
13659                         # Check if the action requested matches with one of the options below. If it does,
13660                         # go to that section, otherwise return an error.
13661
13662                         if ($http_query_action eq "view"){
13663
13664                                 # The action selected was to view pages from a database,
13665
13666                                 my $database_name       = $query->param('database');
13667                                 my $pagedata            = kiriwrite_page_list($database_name);
13668
13669                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13670                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{viewingdatabase}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13671                                 exit;                   # End the script.
13672
13673                         } elsif ($http_query_action eq "add"){
13674
13675                                 # The action selected was to add a page to the selected database.
13676
13677                                 my $http_query_confirm  = $query->param('confirm');
13678
13679                                 if (!$http_query_confirm){
13680
13681                                         $http_query_confirm = 0;
13682
13683                                 }
13684
13685                                 if ($http_query_confirm eq 1){
13686
13687                                         my $http_query_database         = $query->param('database');
13688                                         my $http_query_filename         = $query->param('pagefilename');
13689                                         my $http_query_name             = $query->param('pagename');
13690                                         my $http_query_description      = $query->param('pagedescription');
13691                                         my $http_query_section          = $query->param('pagesection');
13692                                         my $http_query_template         = $query->param('pagetemplate');
13693                                         my $http_query_settings         = $query->param('pagesettings');
13694                                         my $http_query_content          = $query->param('pagecontent');
13695
13696                                         my $pagedata                    = kiriwrite_page_add($http_query_database, $http_query_filename, $http_query_name, $http_query_description, $http_query_section, $http_query_template, $http_query_settings, $http_query_content, $http_query_confirm);
13697
13698                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13699                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{addpage}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13700                                         exit;                           # End the script.
13701
13702                                 }
13703
13704                                 my $http_query_database = $query->param('database');
13705                                 my $pagedata            = kiriwrite_page_add($http_query_database);
13706
13707                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13708                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{addpage}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13709                                 exit;                           # End the script.
13710
13711                         } elsif ($http_query_action eq "edit"){
13712
13713                                 # The action selected was to edit a page from a database.
13714
13715                                 my $http_query_confirm = $query->param('confirm');
13716
13717                                 if (!$http_query_confirm){
13718
13719                                         $http_query_confirm = 0;
13720
13721                                 }
13722
13723                                 if ($http_query_confirm eq 1){
13724
13725                                         # Get the needed values from the HTTP query.
13726
13727                                         my $http_query_database         = $query->param('database');
13728                                         my $http_query_filename         = $query->param('page');
13729                                         my $http_query_newfilename      = $query->param('pagefilename');
13730                                         my $http_query_name             = $query->param('pagename');
13731                                         my $http_query_description      = $query->param('pagedescription');
13732                                         my $http_query_section          = $query->param('pagesection');
13733                                         my $http_query_template         = $query->param('pagetemplate');
13734                                         my $http_query_settings         = $query->param('pagesettings');
13735                                         my $http_query_content          = $query->param('pagecontent');
13736
13737                                         # Pass the values to the editing pages subroutine.
13738
13739                                         my $pagedata = kiriwrite_page_edit($http_query_database, $http_query_filename, $http_query_newfilename, $http_query_name, $http_query_description, $http_query_section, $http_query_template, $http_query_settings, $http_query_content, $http_query_confirm);
13740
13741                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13742                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{editpagetitle}, $pagedata, "pages");   # Output the page to browser/console/stdout.
13743                                         exit;                           # End the script.
13744
13745                                 }
13746
13747                                 # Get the needed values from the HTTP query.
13748
13749                                 my $http_query_database = $query->param('database');
13750                                 my $http_query_filename = $query->param('page');
13751
13752                                 # Pass the values to the editing pages subroutine.
13753
13754                                 my $pagedata = kiriwrite_page_edit($http_query_database, $http_query_filename);
13755
13756                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13757                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{editpagetitle}, $pagedata, "pages");   # Output the page to browser/console/stdout.
13758                                 exit;                           # End the script.
13759
13760
13761                         } elsif ($http_query_action eq "delete"){
13762
13763                                 # The action selected was to delete a page from a database.
13764
13765                                 my $http_query_database = $query->param('database');
13766                                 my $http_query_page     = $query->param('page');
13767                                 my $http_query_confirm  = $query->param('confirm');
13768
13769                                 my $pagedata = "";
13770                                 my $selectionlist = "";
13771
13772                                 if ($http_query_confirm){
13773
13774                                         # The action has been confirmed, so try to delete the selected page
13775                                         # from the database.
13776
13777                                         $pagedata = kiriwrite_page_delete($http_query_database, $http_query_page, $http_query_confirm);
13778
13779                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13780                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{deletepagetitle}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13781                                         exit;                           # End the script.
13782
13783                                 }
13784
13785                                 $pagedata = kiriwrite_page_delete($http_query_database, $http_query_page);
13786
13787                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13788                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{deletepagetitle}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13789                                 exit;                           # End the script.
13790
13791
13792                         } elsif ($http_query_action eq "multidelete"){
13793
13794                                 # The action selected was to delete multiple pages from a
13795                                 # database.
13796
13797                                 my $http_query_database = $query->param('database');
13798                                 my $http_query_confirm  = $query->param('confirm');
13799
13800                                 my @filelist;
13801                                 my $pagedata;
13802
13803                                 if ($http_query_confirm){
13804
13805                                         # The action to delete multiple pages from the selected
13806                                         # database has been confirmed.
13807
13808                                         @filelist       = kiriwrite_selectedlist();
13809                                         $pagedata       = kiriwrite_page_multidelete($http_query_database, $http_query_confirm, @filelist);
13810
13811                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13812                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{deletemultiplepages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13813                                         exit;                           # End the script.
13814
13815                                 }
13816
13817                                 # Get the list of selected pages and pass them to the
13818                                 # multiple page delete subroutine.
13819
13820                                 @filelist       = kiriwrite_selectedlist();
13821                                 $pagedata       = kiriwrite_page_multidelete($http_query_database, $http_query_confirm, @filelist);
13822
13823                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13824                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{deletemultiplepages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13825                                 exit;                           # End the script.
13826
13827                         } elsif ($http_query_action eq "multimove"){
13828
13829                                 # The action selected was to move multiple pages from a
13830                                 # database.
13831
13832                                 my $http_query_database         = $query->param('database');
13833                                 my $http_query_newdatabase      = $query->param('newdatabase');
13834                                 my $http_query_confirm          = $query->param('confirm');
13835
13836                                 my @filelist;
13837                                 my $pagedata;
13838
13839                                 if ($http_query_confirm){
13840
13841                                         # The action to move multiple pages from the selected
13842                                         # database has been confirmed.
13843
13844                                         @filelist       = kiriwrite_selectedlist();
13845                                         $pagedata       = kiriwrite_page_multimove($http_query_database, $http_query_newdatabase, $http_query_confirm, @filelist);
13846
13847                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13848                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{movepages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13849                                         exit;                           # End the script.
13850
13851                                 }
13852
13853                                 # Get the list of selected pages and pass them to the
13854                                 # multiple page move subroutine.
13855
13856                                 @filelist       = kiriwrite_selectedlist();
13857                                 $pagedata       = kiriwrite_page_multimove($http_query_database, $http_query_newdatabase, $http_query_confirm, @filelist);
13858
13859                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13860                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{movepages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13861                                 exit;                           # End the script.
13862
13863                         } elsif ($http_query_action eq "multicopy"){
13864
13865                                 # The action selected was to copy multiple pages from a
13866                                 # database.
13867
13868                                 my $http_query_database         = $query->param('database');
13869                                 my $http_query_newdatabase      = $query->param('newdatabase');
13870                                 my $http_query_confirm          = $query->param('confirm');
13871
13872                                 my @filelist;
13873                                 my $pagedata;
13874
13875                                 if ($http_query_confirm){
13876
13877                                         # The action to copy multiple pages from the selected
13878                                         # database has been confirmed.
13879
13880                                         @filelist       = kiriwrite_selectedlist();
13881                                         $pagedata       = kiriwrite_page_multicopy($http_query_database, $http_query_newdatabase, $http_query_confirm, @filelist);
13882
13883                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13884                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{copypages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13885                                         exit;                           # End the script.
13886
13887                                 }
13888
13889                                 # Get the list of selected pages and pass them to the
13890                                 # multiple page copy subroutine.
13891
13892                                 @filelist       = kiriwrite_selectedlist();
13893                                 $pagedata       = kiriwrite_page_multicopy($http_query_database, $http_query_newdatabase, $http_query_confirm, @filelist);
13894
13895                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13896                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{copypages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13897                                 exit;                           # End the script.
13898
13899                         } elsif ($http_query_action eq "multiedit"){
13900
13901                                 # The action selected was to edit multiple pages from a
13902                                 # database.
13903
13904                                 my $http_query_database         = $query->param('database');
13905                                 my $http_query_newsection       = $query->param('newsection');
13906                                 my $http_query_altersection     = $query->param('altersection');
13907                                 my $http_query_newtemplate      = $query->param('newtemplate');
13908                                 my $http_query_altertemplate    = $query->param('altertemplate');
13909                                 my $http_query_newsettings      = $query->param('newsettings');
13910                                 my $http_query_altersettings    = $query->param('altersettings');
13911                                 my $http_query_confirm          = $query->param('confirm');
13912
13913                                 my @filelist;
13914                                 my $pagedata;
13915
13916                                 if (!$http_query_confirm){
13917
13918                                         @filelist       = kiriwrite_selectedlist();
13919                                         $pagedata       = kiriwrite_page_multiedit($http_query_database, $http_query_newsection, $http_query_altersection, $http_query_newtemplate, $http_query_altertemplate, $http_query_newsettings, $http_query_altersettings, $http_query_confirm, @filelist);
13920
13921                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13922                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{multiedit}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13923                                         exit;
13924
13925                                 }
13926
13927                                 # Get the list of selected pages and pass them to the
13928                                 # multiple page edit subroutine.
13929
13930                                 @filelist       = kiriwrite_selectedlist();
13931                                 $pagedata       = kiriwrite_page_multiedit($http_query_database, $http_query_newsection, $http_query_altersection, $http_query_newtemplate, $http_query_altertemplate, $http_query_newsettings, $http_query_altersettings, $http_query_confirm, @filelist);
13932
13933                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13934                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{multiedit}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13935                                 exit;                           # End the script.
13936
13937                         } else {
13938                                 kiriwrite_error("invalidaction");
13939                         }
13940
13941                 } else {
13942
13943                         # If there the action option is left blank, then print out a form where the database
13944                         # can be selected to view pages from.
13945
13946                         my $pagedata = kiriwrite_page_list;
13947
13948                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13949                         kiriwrite_output_page($kiriwrite_lang->{pages}->{databaseselecttitle}, $pagedata, "pages");     # Output the page to browser/console/stdout.
13950                         exit;                           # End the script.
13951
13952                 }
13953
13954                 # No action has been specified, do the default action of listing pages from
13955                 # the first database found in the directory.
13956
13957         } elsif ($http_query_mode eq "filter"){
13958
13959                 # If there's a value for action in the HTTP query, then
13960                 # get that value that is in the HTTP query.
13961
13962                 if ($query->param('action')){
13963
13964                         # There is a value for action in the HTTP query,
13965                         # so get the value from it.
13966
13967                         my $http_query_action = $query->param('action');
13968
13969                         if ($http_query_action eq "add"){
13970
13971                                 # The action the user requested is to add a filter to the
13972                                 # filters database.
13973
13974                                 # Check if there is a value in confirm and if there is
13975                                 # then pass it on to the new find and replace words
13976                                 # to add to the filter database.
13977
13978                                 my $http_query_confirm = $query->param('confirm');
13979
13980                                 if ($http_query_confirm){
13981
13982                                         # There is a value in http_query_confirm, so pass on the
13983                                         # new find and replace words so that they can be added
13984                                         # to the filters database.
13985
13986                                         my $http_query_findwords        = $query->param('findword');
13987                                         my $http_query_replacewords     = $query->param('replaceword');
13988                                         my $http_query_priority         = $query->param('priority');
13989                                         my $http_query_notes            = $query->param('notes');
13990
13991                                         my $pagedata = kiriwrite_filter_add($http_query_findwords, $http_query_replacewords, $http_query_priority, $http_query_notes, $http_query_confirm);
13992
13993                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13994                                         kiriwrite_output_page($kiriwrite_lang->{filter}->{addfilter}, $pagedata, "filter"); # Output the page to browser/console/stdout.
13995                                         exit;                           # End the script.
13996
13997                                 }
13998
13999                                 my $pagedata = kiriwrite_filter_add();
14000
14001                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
14002                                 kiriwrite_output_page($kiriwrite_lang->{filter}->{addfilter}, $pagedata, "filter"); # Output the page to browser/console/stdout.
14003                                 exit;                           # End the script.
14004
14005                         } elsif ($http_query_action eq "edit"){
14006
14007                                 # The action the user requested is to edit an filter from
14008                                 # the filters database.
14009
14010                                 my $http_query_number = $query->param('filter');
14011                                 my $http_query_confirm = $query->param('confirm');
14012
14013                                 if ($http_query_confirm){
14014
14015                                         # There is a value in http_query_confirm, so pass on the
14016                                         # new find and replace words so that the filters database
14017                                         # can be edited.
14018
14019                                         my $http_query_findwords        = $query->param('filterfind');
14020                                         my $http_query_replacewords     = $query->param('filterreplace');
14021                                         my $http_query_priority         = $query->param('priority');
14022                                         my $http_query_notes            = $query->param('notes');
14023
14024                                         my $pagedata = kiriwrite_filter_edit($http_query_number, $http_query_findwords, $http_query_replacewords, $http_query_priority, $http_query_notes, $http_query_confirm);
14025
14026                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14027                                         kiriwrite_output_page($kiriwrite_lang->{filter}->{editfilter}, $pagedata, "filter");    # Output the page to browser/console/stdout.
14028                                         exit;                           # End the script.
14029
14030                                 }
14031
14032                                 my $pagedata = kiriwrite_filter_edit($http_query_number);
14033
14034                                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
14035                                 kiriwrite_output_page($kiriwrite_lang->{filter}->{editfilter}, $pagedata, "filter");    # Output the page to browser/console/stdout.
14036                                 exit;                                   # End the script.
14037
14038                         } elsif ($http_query_action eq "delete"){
14039
14040                                 # The action the user requested is to delete an filter
14041                                 # from the filters database.
14042
14043                                 my $http_query_number = $query->param('filter');
14044                                 my $http_query_confirm = $query->param('confirm');
14045
14046                                 if ($http_query_confirm){
14047
14048                                         my $pagedata = kiriwrite_filter_delete($http_query_number, $http_query_confirm);
14049
14050                                         kiriwrite_output_header;                # Output the header to browser/console/stdout.
14051                                         kiriwrite_output_page($kiriwrite_lang->{filter}->{deletefilter}, $pagedata, "filter"); # Output the page to browser/console/stdout.
14052                                         exit;                                   # End the script
14053
14054                                 }
14055
14056                                 my $pagedata = kiriwrite_filter_delete($http_query_number);
14057
14058                                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
14059                                 kiriwrite_output_page($kiriwrite_lang->{filter}->{deletefilter}, $pagedata, "filter");  # Output the page to browser/console/stdout.
14060                                 exit;                                   # End the script.
14061
14062                         } else {
14063
14064                                 # Another action was requested that was not one of
14065                                 # the ones prcedding this catch all, so return
14066                                 # an error saying that an invalid option was
14067                                 # specified.
14068
14069                                 kiriwrite_error("invalidaction");
14070
14071                         }
14072
14073                 } else {
14074
14075                         my $pagedata = kiriwrite_filter_list();
14076
14077                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14078                         kiriwrite_output_page($kiriwrite_lang->{filter}->{viewfilters}, $pagedata, "filter"); # Output the page to browser/console/stdout.
14079                         exit;                           # End the script.
14080
14081                 }
14082
14083
14084
14085         } elsif ($http_query_mode eq "template"){
14086
14087                 # Check if an action has been specified in the HTTP query.
14088
14089                 if ($query->param('action')){
14090
14091                         # An action has been specified in the HTTP query.
14092
14093                         my $http_query_action = $query->param('action');
14094
14095                         if ($http_query_action eq "delete"){
14096                                 # Get the required parameters from the HTTP query.
14097
14098                                 my $http_query_template = $query->param('template');
14099                                 my $http_query_confirm  = $query->param('confirm');
14100
14101                                 # Check if a value for confirm has been specified (it shouldn't)
14102                                 # be blank.
14103
14104                                 if (!$http_query_confirm){
14105                                         # The confirm parameter of the HTTP query is blank, so
14106                                         # write out a form asking the user to confirm the deletion
14107                                         # of the selected template.
14108
14109                                         my $pagedata = kiriwrite_template_delete($http_query_template);
14110
14111                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14112                                         kiriwrite_output_page($kiriwrite_lang->{template}->{deletetemplate}, $pagedata, "template");    # Output the page to browser/console/stdout.
14113                                         exit;                           # End the script.
14114
14115                                 } else {
14116
14117                                         my $pagedata = kiriwrite_template_delete($http_query_template, $http_query_confirm);
14118
14119                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14120                                         kiriwrite_output_page($kiriwrite_lang->{template}->{deletetemplate}, $pagedata, "template");    # Output the page to browser/console/stdout.
14121                                         exit;                           # End the script.
14122
14123                                 }
14124
14125                         } elsif ($http_query_action eq "add") {
14126
14127                                 # Get the variables from the HTTP query in preperation for processing.
14128
14129                                 my $http_query_confirm  = $query->param('confirm');
14130                                 my $http_query_templatelayout   = $query->param('templatelayout');
14131                                 my $http_query_templatename     = $query->param('templatename');
14132                                 my $http_query_templatedescription = $query->param('templatedescription');
14133                                 my $http_query_templatefilename = $query->param('templatefilename');
14134
14135                                 # Check if there is a confirmed value in the http_query_confirm variable.
14136
14137                                 if (!$http_query_confirm){
14138
14139                                         # Since there is no confirm value, print out a form for creating a new
14140                                         # template.
14141
14142                                         my $pagedata = kiriwrite_template_add();
14143
14144                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14145                                         kiriwrite_output_page($kiriwrite_lang->{template}->{addtemplate}, $pagedata, "template");       # Output the page to browser/console/stdout.
14146                                         exit;                           # End the script.
14147
14148                                 } else {
14149
14150                                         # A value in the http_query_confirm value is specified, so pass the
14151                                         # variables onto the kiriwrite_template_add subroutine.
14152
14153                                         my $pagedata = kiriwrite_template_add($http_query_templatefilename, $http_query_templatename, $http_query_templatedescription, $http_query_templatelayout, $http_query_confirm);
14154
14155                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14156                                         kiriwrite_output_page($kiriwrite_lang->{template}->{addtemplate}, $pagedata, "template");       # Output the page to browser/console/stdout.
14157                                         exit;                           # End the script.
14158
14159                                 }
14160
14161                         } elsif ($http_query_action eq "edit") {
14162
14163                                 # Get the required parameters from the HTTP query.
14164
14165                                 my $http_query_templatefile     = $query->param('template');
14166                                 my $http_query_confirm          = $query->param('confirm');
14167
14168                                 # Check to see if http_query_confirm has a value of '1' in it and
14169                                 # if it does, edit the template using the settings providied.
14170
14171                                 if (!$http_query_confirm){
14172
14173                                         # Since there is no confirm value, open the template configuration
14174                                         # file and the template file itself then print out the data on to
14175                                         # the form.
14176
14177                                         my $pagedata = kiriwrite_template_edit($http_query_templatefile);
14178                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14179                                         kiriwrite_output_page($kiriwrite_lang->{template}->{edittemplate}, $pagedata, "template");      # Output the page to browser/console/stdout.
14180                                         exit;                           # End the script.
14181
14182                                 } elsif ($http_query_confirm eq 1) {
14183
14184                                         # Since there is a confirm value of 1, the user has confirm the
14185                                         # action of editing of a template so get the other variables
14186                                         # that were also sent and pass the variables to the subroutine.
14187
14188                                         my $http_query_newfilename      = $query->param('newfilename');
14189                                         my $http_query_newname          = $query->param('newname');
14190                                         my $http_query_newdescription   = $query->param('newdescription');
14191                                         my $http_query_newlayout        = $query->param('newlayout');
14192
14193                                         my $pagedata = kiriwrite_template_edit($http_query_templatefile, $http_query_newfilename, $http_query_newname, $http_query_newdescription, $http_query_newlayout, $http_query_confirm);
14194                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14195                                         kiriwrite_output_page($kiriwrite_lang->{template}->{edittemplate}, $pagedata, "template");      # Output the page to browser/console/stdout.
14196                                         exit;                           # End the script.
14197
14198                                 } else {
14199
14200                                         # Another confirm value is there instead of '0' or '1'. Return
14201                                         # an error saying it is invalid.
14202
14203                                         kiriwrite_error("invalidvariable");
14204
14205                                 }
14206
14207                         } else {
14208
14209                                 # Another action was specified and was not one of the ones above, so
14210                                 # return an error.
14211
14212                                 kiriwrite_error("invalidaction");
14213
14214                         }
14215
14216                 } else {
14217
14218                         # If the action option is left blank, then print out a form where the list
14219                         # of templates are available.
14220
14221                         my $pagedata = kiriwrite_template_list;
14222
14223                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14224                         kiriwrite_output_page($kiriwrite_lang->{template}->{viewtemplates}, $pagedata, "template");     # Output the page to browser/console/stdout.
14225                         exit;                           # End the script.
14226
14227                 }
14228
14229         } elsif ($http_query_mode eq "compile"){
14230
14231                 # The mode selected is to compile pages from databases.
14232
14233                 # If the action option is left blank, then print out a form where the list
14234                 # of databases to compile are available.
14235
14236                 if ($query->param('action')){
14237
14238                         my $http_query_action = $query->param('action');
14239
14240                         if ($http_query_action eq "compile"){
14241
14242                                 # The specified action is to compile the pages, check if the
14243                                 # action to compile the page has been confirmed.
14244
14245                                 my $http_query_confirm  = $query->param('confirm');
14246                                 my $http_query_type     = $query->param('type');
14247
14248                                 # If it is blank, set the confirm value to 0.
14249
14250                                 if (!$http_query_confirm){
14251
14252                                         # The http_query_confirm variable is uninitalised, so place a
14253                                         # '0' (meaning an unconfirmed action).
14254
14255                                         $http_query_confirm = 0;
14256
14257                                 }
14258
14259                                 # If the compile type is blank then return an error.
14260
14261                                 if (!$http_query_type){
14262
14263                                         # Compile type is blank so return an error.
14264
14265                                         kiriwrite_error("blankcompiletype");
14266
14267                                 }
14268
14269                                 if ($http_query_type eq "multiple"){
14270
14271                                         if ($http_query_confirm eq 1){
14272
14273                                                 # The action to compile the pages has been confirmed so
14274                                                 # compile the pages.
14275
14276                                                 my @selectedlist = kiriwrite_selectedlist();
14277                                                 my $pagedata = kiriwrite_compile_makepages($http_query_type, $http_query_confirm, @selectedlist);
14278
14279                                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
14280                                                 kiriwrite_output_page($kiriwrite_lang->{compile}->{compilepages}, $pagedata, "compile"); # Output the page to browser/console/stdout.
14281                                                 exit;                           # End the script.
14282
14283                                         } else {
14284
14285                                                 # The action to compile the pages has not been confirmed
14286                                                 # so write a form asking the user to confirm the action
14287                                                 # of compiling the pages.
14288
14289                                                 my @selectedlist = kiriwrite_selectedlist();
14290                                                 my $pagedata = kiriwrite_compile_makepages($http_query_type, $http_query_confirm, @selectedlist);
14291
14292                                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
14293                                                 kiriwrite_output_page($kiriwrite_lang->{compile}->{compileselecteddatabases}, $pagedata, "compile"); # Output the page to browser/console/stdout.
14294                                                 exit;                           # End the script.
14295
14296                                         }
14297
14298                                 } elsif ($http_query_type eq "single"){
14299
14300                                         my $http_query_database = $query->param('database');
14301                                         my @selectedlist;
14302                                         $selectedlist[0] = $http_query_database;
14303                                         my $pagedata = kiriwrite_compile_makepages($http_query_type, $http_query_confirm, @selectedlist);
14304
14305                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14306                                         kiriwrite_output_page($kiriwrite_lang->{compile}->{compiledatabase}, $pagedata, "compile");
14307                                         exit;                           # End the script.
14308
14309                                 } else {
14310
14311                                         kiriwrite_error("invalidcompiletype");
14312
14313                                 }
14314
14315                         } elsif ($http_query_action eq "all"){
14316
14317                                 # The selected action is to compile all of the databases
14318                                 # in the database directory. Check if the action to
14319                                 # compile all of the databases has been confirmed.
14320
14321                                 my $http_query_confirm = $query->param('confirm');
14322
14323                                 if (!$http_query_confirm){
14324
14325                                         # The http_query_confirm variable is uninitalised, so place a
14326                                         # '0' (meaning an unconfirmed action).
14327
14328                                         $http_query_confirm = 0;
14329
14330                                 }
14331
14332                                 if ($http_query_confirm eq 1){
14333
14334                                         # The action to compile all the databases has been confirmed.
14335
14336                                 }
14337
14338                                 my $pagedata = kiriwrite_compile_all();
14339
14340                                 kiriwrite_output_header;                        # Output the header to browser/console/stdout.
14341                                 kiriwrite_output_page($kiriwrite_lang->{compile}->{compilealldatabases}, $pagedata, "compile");
14342                                 exit;
14343
14344                         } elsif ($http_query_action eq "clean") {
14345
14346                                 # The selected action is to clean the output directory.
14347                                 # Check if the action to clean the output directory
14348                                 # has been confirmed.
14349
14350                                 my $http_query_confirm = $query->param('confirm');
14351
14352                                 if (!$http_query_confirm){
14353
14354                                         # The http_query_confirm variable is uninitalised, so place a
14355                                         # '0' (meaning an unconfirmed action).
14356
14357                                         $http_query_confirm = 0;
14358
14359                                 }
14360
14361                                 if ($http_query_confirm eq 1){
14362
14363                                         # The action to clean the output directory has been confirmed.
14364
14365                                         my $pagedata = kiriwrite_compile_clean($http_query_confirm);
14366
14367                                         kiriwrite_output_header;                # Output the header to browser/console/stdout.
14368                                         kiriwrite_output_page($kiriwrite_lang->{compile}->{cleanoutputdirectory}, $pagedata, "compile");        # Output the page to browser/console/stdout.
14369                                         exit;                                   # End the script.
14370
14371                                 }
14372
14373                                 # The action to clean the output directory is not
14374                                 # confirmed, so write a page asking the user
14375                                 # to confirm cleaning the output directory.
14376
14377                                 my $pagedata = kiriwrite_compile_clean();
14378
14379                                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
14380                                 kiriwrite_output_page($kiriwrite_lang->{compile}->{cleanoutputdirectory}, $pagedata, "compile");        # Output the page to browser/console/stdout.
14381                                 exit;                                   # End the script.
14382
14383                         } else {
14384
14385                                 # The action specified was something else other than those
14386                                 # above, so return an error.
14387
14388                                 kiriwrite_error("invalidaction");
14389
14390                         }
14391                 }
14392
14393                 my $pagedata = kiriwrite_compile_list;
14394
14395                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
14396                 kiriwrite_output_page($kiriwrite_lang->{compile}->{compilepages}, $pagedata, "compile");        # Output the page to browser/console/stdout.
14397                 exit;                                   # End the script.
14398
14399         } elsif ($http_query_mode eq "settings"){
14400
14401                 # The mode selected is view (and change settings).
14402
14403                 # If the action value has been left blank, then view the list of
14404                 # current settings.
14405
14406                 if ($query->param('action')){
14407                         my $http_query_action = $query->param('action');
14408
14409                         if ($http_query_action eq "edit"){
14410
14411                                 # The action specified is to edit the settings. Check if the action
14412                                 # to edit the settings has been confirmed.
14413
14414                                 my $http_query_confirm = $query->param('confirm');
14415
14416                                 if (!$http_query_confirm){
14417
14418                                         # The confirm value is blank, so set it to 0.
14419
14420                                         $http_query_confirm = 0;
14421
14422                                 }
14423
14424                                 if ($http_query_confirm eq 1){
14425
14426                                         # The action to edit the settings has been confirmed. Get the
14427                                         # required settings from the HTTP query.
14428
14429                                         my $http_query_database         = $query->param('databasedir');
14430                                         my $http_query_output           = $query->param('outputdir');
14431                                         my $http_query_imagesuri        = $query->param('imagesuripath');
14432                                         my $http_query_datetimeformat   = $query->param('datetime');
14433                                         my $http_query_systemlanguage   = $query->param('language');
14434                                         my $http_query_presmodule       = $query->param('presmodule');
14435                                         my $http_query_dbmodule         = $query->param('dbmodule');
14436
14437                                         my $http_query_database_server          = $query->param('database_server');
14438                                         my $http_query_database_port            = $query->param('database_port');
14439                                         my $http_query_database_protocol        = $query->param('database_protocol');
14440                                         my $http_query_database_sqldatabase     = $query->param('database_sqldatabase');
14441                                         my $http_query_database_username        = $query->param('database_username');
14442                                         my $http_query_database_passwordkeep    = $query->param('database_password_keep');
14443                                         my $http_query_database_password        = $query->param('database_password');
14444                                         my $http_query_database_tableprefix     = $query->param('database_tableprefix');
14445
14446                                         my $pagedata = kiriwrite_settings_edit({ DatabaseDirectory => $http_query_database, OutputDirectory => $http_query_output, ImagesURIPath => $http_query_imagesuri, DateTimeFormat => $http_query_datetimeformat, SystemLanguage => $http_query_systemlanguage, PresentationModule => $http_query_presmodule, DatabaseModule => $http_query_dbmodule, DatabaseServer => $http_query_database_server, DatabasePort => $http_query_database_port, DatabaseProtocol => $http_query_database_protocol, DatabaseSQLDatabase => $http_query_database_sqldatabase, DatabaseUsername => $http_query_database_username, DatabasePasswordKeep => $http_query_database_passwordkeep, DatabasePassword => $http_query_database_password, DatabaseTablePrefix => $http_query_database_tableprefix, Confirm => 1 });
14447
14448                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14449                                         kiriwrite_output_page($kiriwrite_lang->{setting}->{editsettings}, $pagedata, "settings");       # Output the page to browser/console/stdout.
14450                                         exit;                           # End the script.
14451
14452                                 }
14453
14454                                 # The action to edit the settings has not been confirmed.
14455
14456                                 my $pagedata = kiriwrite_settings_edit;
14457
14458                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
14459                                 kiriwrite_output_page($kiriwrite_lang->{setting}->{editsettings}, $pagedata, "settings");       # Output the page to browser/console/stdout.
14460                                 exit;                           # End the script.
14461
14462                         } else {
14463
14464                                 # The action specified was something else other than those
14465                                 # above, so return an error.
14466
14467                                 kiriwrite_error("invalidaction");
14468
14469                         }
14470
14471                 }
14472
14473                 # No action has been specified, so print out the list of settings currently being used.
14474
14475                 my $pagedata = kiriwrite_settings_view;
14476
14477                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
14478                 kiriwrite_output_page($kiriwrite_lang->{setting}->{viewsettings}, $pagedata, "settings");       # Output the page to browser/console/stdout.
14479                 exit;                                   # End the script.
14480
14481         } else {
14482                 # Another mode has been specified than the ones above, so return an error saying that
14483                 # an invalid option was specified.
14484
14485                 kiriwrite_error("invalidmode");
14486         }
14487
14488 } else {
14489
14490         # No mode has been specified, so print the default "first-run" view of the
14491         # database list.
14492
14493         my $pagedata = kiriwrite_database_list;
14494
14495         kiriwrite_output_header;                # Output the header to browser/console/stdout.
14496         kiriwrite_output_page("", $pagedata, "database");       # Output the page to browser/console/stdout.
14497         exit;                                   # End the script.
14498
14499 }
14500
14501 __END__
14502
14503 =head1 NAME
14504
14505 Kiriwrite
14506
14507 =head1 DESCRIPTION
14508
14509 Web-based webpage compiler.
14510
14511 =head1 AUTHOR
14512
14513 Steve Brokenshire <sbrokenshire@xestia.co.uk>
14514
14515 =head1 USAGE
14516
14517 This perl script is intended to be used on a web server which has CGI with Perl support or with mod_perl support.
14518
14519 =head1 DOCUMENTATION
14520
14521 For more information on how to use Kiriwrite, please see the documentation that was included with Kiriwrite.
14522
14523 - From the Xestia Documentation website: http://documentation.xestia.co.uk and click on the Kiriwrite link on the page.
14524
14525 - From the Documentation directory from the Kiriwrite source packages (.tar/.tar.gz/.tar.bz2).
14526
14527 - In the /usr/share/doc/kiriwrite directory if you installed the distribution-specific packages (and also have access to the server itself).