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 Tie::IxHash;
  30
  31 # This is commented out because it uses a fair bit of CPU usage.
  32
  33 #use CGI::Carp('fatalsToBrowser');      # Output errors to the browser.
  34
  35 # Declare global variables for Kiriwrite settings and languages.
  36
  37 my ($kiriwrite_config, %kiriwrite_config, $kiriwrite_lang, $kiriwrite_version, %kiriwrite_version, $kiriwrite_env, %kiriwrite_env, $kiriwrite_presmodule, $kiriwrite_dbmodule, $xsl);
  38
  39 # Setup the version information for Kiriwrite.
  40
  41 %kiriwrite_version = (
  42         "major"         => 0,
  43         "minor"         => 1,
  44         "revision"      => 0
  45 );
  46
  47 sub BEGIN{
  48 #################################################################################
  49 # BEGIN: Get the enviroment stuff                                               #
  50 #################################################################################
  51
  52         # Get the script filename.
  53
  54         my $env_script_name = $ENV{'SCRIPT_NAME'};
  55
  56         # Process the script filename until there is only the
  57         # filename itself.
  58
  59         my $env_script_name_length = length($env_script_name);
  60         my $filename_seek = 0;
  61         my $filename_char = "";
  62         my $filename_last = 0;
  63
  64         do {
  65                 $filename_char = substr($env_script_name, $filename_seek, 1);
  66                 if ($filename_char eq "/"){
  67                         $filename_last = $filename_seek + 1;
  68                 }
  69                 $filename_seek++;
  70         } until ($filename_seek eq $env_script_name_length || $env_script_name_length eq 0);
  71
  72         my $env_script_name_finallength = $env_script_name_length - $filename_last;
  73         my $script_filename = substr($env_script_name, $filename_last, $env_script_name_finallength);
  74
  75         # Setup the needed enviroment variables for Kiriwrite.
  76
  77         %kiriwrite_env = (
  78                 "script_filename" => $script_filename,
  79         );
  80
  81         $ENV{XML_SIMPLE_PREFERRED_PARSER} = "XML::Parser";
  82
  83 }
  84
  85 #################################################################################
  86 # Begin listing the functions needed.                                           #
  87 #################################################################################
  88
  89 sub kiriwrite_page_add{
  90 #################################################################################
  91 # kiriwrite_page_add: Adds a page to a database                                 #
  92 #                                                                               #
  93 # Usage:                                                                        #
  94 #                                                                               #
  95 # kiriwrite_page_add(database, pagefilename, title, description, section,       #
  96 #                       template, settings, info, confirm);                     #
  97 #                                                                               #
  98 # database      Specifies the database name.                                    #
  99 # pagefilename  Specifies the page filename.                                    #
 100 # title         Specifies the page title to be used.                            #
 101 # description   Specifies the short description of the page.                    #
 102 # section       Specifies the section assigned to the page.                     #
 103 # template      Specifies the template to use.                                  #
 104 # settings      Specifies the settings to be used on the page.                  #
 105 # data          Specifies the data which consists the page.                     #
 106 # confirm       Confirms action to add an page.                                 #
 107 #################################################################################
 108
 109         # Fetch the required variables that have been passed to the subroutine.
 110
 111         my ($pagedatabase, $pagefilename, $pagetitle, $pagedescription, $pagesection, $pagetemplate, $pagesettings, $pagefiledata, $confirm) = @_;
 112
 113         # Check if the action to add a new page has been confirmed (or not).
 114
 115         if (!$confirm){
 116
 117                 $confirm = 0;
 118
 119         }
 120
 121         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
 122
 123         # Check if the database filename is valid and return an error if
 124         # it isn't.
 125
 126         my $pagedatabase_filename_check = kiriwrite_variablecheck($pagedatabase, "filename", 0, 1);
 127
 128         if ($pagedatabase_filename_check eq 1){
 129
 130                 # The database filename is blank, so return an error.
 131
 132                 kiriwrite_error("blankdatabasepageadd");
 133
 134         } elsif ($pagedatabase_filename_check eq 2){
 135
 136                 # The database filename is invalid, so return an error.
 137
 138                 kiriwrite_error("databasefilenameinvalid");
 139
 140         }
 141
 142         # Check the length the database name and return an error if it's
 143         # too long.
 144
 145         my $pagedatabase_length_check   = kiriwrite_variablecheck($pagedatabase, "maxlength", 32, 1);
 146
 147         if ($pagedatabase_length_check eq 1){
 148
 149                 # The database name is too long, so return an error.
 150
 151                 kiriwrite_error("databasefilenametoolong");
 152
 153         }
 154
 155         if ($confirm eq "1"){
 156
 157                 # Check all the variables to see if they UTF8 valid.
 158
 159                 kiriwrite_variablecheck($pagefilename, "utf8", 0, 0);
 160                 kiriwrite_variablecheck($pagetitle, "utf8", 0, 0);
 161                 kiriwrite_variablecheck($pagedescription, "utf8", 0, 0);
 162                 kiriwrite_variablecheck($pagesection, "utf8", 0, 0);
 163                 kiriwrite_variablecheck($pagedatabase, "utf8", 0, 0);
 164                 kiriwrite_variablecheck($pagesettings, "utf8", 0, 0);
 165                 kiriwrite_variablecheck($pagetemplate, "utf8", 0, 0);
 166                 kiriwrite_variablecheck($pagefiledata, "utf8", 0, 0);
 167
 168                 # Convert the values into proper UTF8 values.
 169
 170                 $pagefilename           = kiriwrite_utf8convert($pagefilename);
 171                 $pagetitle              = kiriwrite_utf8convert($pagetitle);
 172                 $pagedescription        = kiriwrite_utf8convert($pagedescription);
 173                 $pagesection            = kiriwrite_utf8convert($pagesection);
 174                 $pagedatabase           = kiriwrite_utf8convert($pagedatabase);
 175                 $pagesettings           = kiriwrite_utf8convert($pagesettings);
 176                 $pagetemplate           = kiriwrite_utf8convert($pagetemplate);
 177                 $pagefiledata           = kiriwrite_utf8convert($pagefiledata);
 178
 179                 # Check all the variables (except for the page data, filename and settings
 180                 # will be checked more specifically later if needed) that were passed to
 181                 # the subroutine.
 182
 183                 my $pagefilename_maxlength_check                = kiriwrite_variablecheck($pagefilename, "maxlength", 256, 1);
 184                 my $pagetitle_maxlength_check                   = kiriwrite_variablecheck($pagetitle, "maxlength", 512, 1);
 185                 my $pagedescription_maxlength_check             = kiriwrite_variablecheck($pagedescription, "maxlength", 512, 1);
 186                 my $pagesection_maxlength_check                 = kiriwrite_variablecheck($pagesection, "maxlength", 256, 1);
 187                 my $pagedatabase_maxlength_check                = kiriwrite_variablecheck($pagedatabase, "maxlength", 32, 1);
 188                 my $pagesettings_maxlength_check                = kiriwrite_variablecheck($pagesettings, "maxlength", 1, 1);
 189                 my $pagetemplate_maxlength_check                = kiriwrite_variablecheck($pagetemplate, "maxlength", 64, 1);
 190
 191                 # Check if an value returned is something else other than 0.
 192
 193                 if ($pagefilename_maxlength_check eq 1){
 194
 195                         # The page filename given is too long, so return an error.
 196
 197                         kiriwrite_error("pagefilenametoolong");
 198
 199                 }
 200
 201                 if ($pagetitle_maxlength_check eq 1){
 202
 203                         # The page title given is too long, so return an error.
 204
 205                         kiriwrite_error("pagetitletoolong");
 206
 207                 }
 208
 209                 if ($pagedescription_maxlength_check eq 1){
 210
 211                         # The page description given is too long, so return an error.
 212
 213                         kiriwrite_error("pagedescriptiontoolong");
 214
 215                 }
 216
 217                 if ($pagesection_maxlength_check eq 1){
 218
 219                         # The page section given is too long, so return an error.
 220
 221                         kiriwrite_error("pagesectiontoolong");
 222
 223                 }
 224
 225                 if ($pagedatabase_maxlength_check eq 1){
 226
 227                         # The page database given is too long, so return an error.
 228
 229                         kiriwrite_error("pagedatabasefilenametoolong");
 230
 231                 }
 232
 233                 if ($pagesettings_maxlength_check eq 1){
 234
 235                         # The page settings given is too long, so return an error.
 236
 237                         kiriwrite_error("pagesettingstoolong");
 238
 239                 }
 240
 241                 if ($pagetemplate_maxlength_check eq 1){
 242
 243                         # The page template given is too long, so return an error.
 244
 245                         kiriwrite_error("pagetemplatefilenametoolong");
 246
 247                 }
 248
 249                 # The action to create a new page has been confirmed, so add the page to the
 250                 # selected database.
 251
 252                 if (!$pagefilename){
 253                         kiriwrite_error("pagefilenameblank");
 254                 }
 255
 256                 # Check the page filename and page settings.
 257
 258                 my $pagefilename_filename_check = kiriwrite_variablecheck($pagefilename, "page_filename", 0, 1);
 259                 my $pagesettings_setting_check  = kiriwrite_variablecheck($pagesettings, "pagesetting", 0, 1);
 260                 my $pagetemplate_filename_check = 0;
 261
 262                 if ($pagetemplate ne "!none"){
 263
 264                         # A template is being used so check the filename of the
 265                         # template.
 266
 267                         $pagetemplate_filename_check    = kiriwrite_variablecheck($pagetemplate, "page_filename", 0, 1);
 268
 269                 }
 270
 271                 if ($pagefilename_filename_check ne 0){
 272
 273                         # The page filename given is invalid, so return an error.
 274
 275                         kiriwrite_error("pagefilenameinvalid");
 276
 277                 }
 278
 279                 if ($pagesettings_setting_check eq 1){
 280
 281                         # The page settings given is invalid, so return an error.
 282
 283                         kiriwrite_error("pagesettingsinvalid");
 284
 285                 }
 286
 287                 if ($pagetemplate_filename_check eq 1){
 288
 289                         # The template filename given is invalid, so return an error
 290
 291                         kiriwrite_error("templatefilenameinvalid");
 292
 293                 }
 294
 295                 # Check if the database has write permissions.
 296
 297                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($pagedatabase, 1, 1);
 298
 299                 if ($database_permissions eq 1){
 300
 301                         # The database permissions are invalid so return an error.
 302
 303                         kiriwrite_error("databaseinvalidpermissions");
 304
 305                 }
 306
 307                 # Connect to the database server.
 308
 309                 $kiriwrite_dbmodule->connect();
 310
 311                 # Check if any errors occured while connecting to the database server.
 312
 313                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
 314
 315                         # A database connection error has occured so return
 316                         # an error.
 317
 318                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
 319
 320                 }
 321
 322                 # Select the database to add the page to.
 323
 324                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $pagedatabase });
 325
 326                 # Check if any errors had occured while selecting the database.
 327
 328                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
 329
 330                         # The database does not exist, so return an error.
 331
 332                         kiriwrite_error("databasemissingfile");
 333
 334                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
 335
 336                         # The database has invalid permissions set, so return
 337                         # an error.
 338
 339                         kiriwrite_error("databaseinvalidpermissions");
 340
 341                 }
 342
 343                 # Get information about the database.
 344
 345                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
 346
 347                 # Check if any error occured while getting the database information.
 348
 349                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 350
 351                         # A database error has occured so return an error and
 352                         # also the extended error information.
 353
 354                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 355
 356                 };
 357
 358                 # Add the page to the selected database.
 359
 360                 $kiriwrite_dbmodule->addpage({ PageFilename => $pagefilename, PageName => $pagetitle, PageDescription => $pagedescription, PageSection => $pagesection, PageTemplate => $pagetemplate, PageContent => $pagefiledata, PageSettings => $pagesettings });
 361
 362                 # Check if any errors occured while adding the page.
 363
 364                 if ($kiriwrite_dbmodule->geterror eq "PageExists"){
 365
 366                         # A page with the filename given already exists so
 367                         # return an error.
 368
 369                         kiriwrite_error("pagefilenameexists");
 370
 371                 } elsif ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 372
 373                         # A database error has occured so return an error
 374                         # with extended error information.
 375
 376                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 377
 378                 }
 379
 380                 my $database_name = $database_info{"DatabaseName"};
 381
 382                 # Disconnect from the database server.
 383
 384                 $kiriwrite_dbmodule->disconnect();
 385
 386                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{addpage}, { Style => "pageheader" });
 387                 $kiriwrite_presmodule->addlinebreak();
 388                 $kiriwrite_presmodule->addlinebreak();
 389                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{pageaddedmessage}, $pagetitle, $database_name));
 390                 $kiriwrite_presmodule->addlinebreak();
 391                 $kiriwrite_presmodule->addlinebreak();
 392                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $pagedatabase, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
 393
 394                 return $kiriwrite_presmodule->grab();
 395
 396         } elsif ($confirm eq 0) {
 397
 398                 # The action to create a new page has not been confirmed, so print out a form
 399                 # for adding a page to a database.
 400
 401                 my %template_list;
 402                 my %template_info;
 403                 my @templates_list;
 404                 my %database_info;
 405                 my $template_filename;
 406                 my $template_name;
 407                 my $template_data = "";
 408                 my $template_warningmessage;
 409                 my $template_warning = 0;
 410                 my $template_count = 0;
 411                 my $template;
 412
 413                 tie(%template_list, 'Tie::IxHash');
 414
 415                 # Connect to the database server.
 416
 417                 $kiriwrite_dbmodule->connect();
 418
 419                 # Check if any errors occured while connecting to the database server.
 420
 421                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
 422
 423                         # A database connection error has occured so return
 424                         # an error.
 425
 426                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
 427
 428                 }
 429
 430                 # Select the database.
 431
 432                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $pagedatabase });
 433
 434                 # Check if any errors had occured while selecting the database.
 435
 436                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
 437
 438                         # The database does not exist, so return an error.
 439
 440                         kiriwrite_error("databasemissingfile");
 441
 442                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
 443
 444                         # The database has invalid permissions set, so return
 445                         # an error.
 446
 447                         kiriwrite_error("databaseinvalidpermissions");
 448
 449                 }
 450
 451                 # Check if the database has write permissions.
 452
 453                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($pagedatabase, 1, 1);
 454
 455                 if ($database_permissions eq 1){
 456
 457                         # The database permissions are invalid so return an error.
 458
 459                         kiriwrite_error("databaseinvalidpermissions");
 460
 461                 }
 462
 463                 # Get information about the database.
 464
 465                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
 466
 467                 # Check if any error occured while getting the database information.
 468
 469                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 470
 471                         # A database error has occured so return an error and
 472                         # also the extended error information.
 473
 474                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 475
 476                 };
 477
 478                 # Connect to the template database.
 479
 480                 $kiriwrite_dbmodule->connecttemplate();
 481
 482                 # Check if any errors occured while connecting to the template database.
 483
 484                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
 485
 486                         # The template database does not exist so set the template
 487                         # warning message.
 488
 489                         $template_warningmessage = $kiriwrite_lang->{pages}->{notemplatedatabase};
 490                         $template_warning = 1;
 491
 492                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
 493
 494                         # The template database has invalid permissions set so write
 495                         # the template warning message.
 496
 497                         $template_warningmessage = $kiriwrite_lang->{pages}->{templatepermissionserror};
 498                         $template_warning = 1;
 499
 500                 }
 501
 502                 if ($template_warning eq 0){
 503
 504                         # Get the list of templates available.
 505
 506                         @templates_list = $kiriwrite_dbmodule->gettemplatelist();
 507
 508                         # Check if any errors had occured.
 509
 510                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
 511
 512                                 # A database error occured while getting the list
 513                                 # of templates so return a warning message with the
 514                                 # extended error information.
 515
 516                                 $template_warningmessage = kiriwrite_language($kiriwrite_lang->{pages}->{templatedatabaseerror}, $kiriwrite_dbmodule->geterror(1));
 517                                 $template_warning = 1;
 518
 519                         }
 520
 521                         if ($template_warning eq 0){
 522
 523                                 # Check to see if there are any templates in the templates
 524                                 # list array.
 525
 526                                 my $template_filename = "";
 527                                 my $template_name = "";
 528
 529                                 foreach $template (@templates_list){
 530
 531                                         # Get information about the template.
 532
 533                                         %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template });
 534
 535                                         # Check if any error occured while getting the template information.
 536
 537                                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
 538
 539                                                 # A database error has occured, so return an error.
 540
 541                                                 kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
 542
 543                                         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
 544
 545                                                 # The template does not exist, so process the next template.
 546
 547                                                 next;
 548
 549                                         }
 550
 551                                         # Get the template filename and name.
 552
 553                                         $template_filename = $template_info{"TemplateFilename"};
 554                                         $template_name = $template_info{"TemplateName"};
 555
 556                                         $template_list{$template_count}{Filename} = $template_filename;
 557                                         $template_list{$template_count}{Name} = $template_name;
 558
 559                                         $template_count++;
 560
 561                                 }
 562
 563                                 # Check if the final template list is blank.
 564
 565                                 if (!%template_list){
 566
 567                                         # The template list is blank so write the template
 568                                         # warning message.
 569
 570                                         $template_warningmessage = $kiriwrite_lang->{pages}->{notemplatesavailable};
 571
 572                                 }
 573
 574                         }
 575
 576                 }
 577
 578                 my $database_name       = $database_info{"DatabaseName"};
 579
 580                 # Disconnect from the template database.
 581
 582                 $kiriwrite_dbmodule->disconnecttemplate();
 583
 584                 # Disconnect from the database server.
 585
 586                 $kiriwrite_dbmodule->disconnect();
 587
 588                 # write out the form for adding a page.
 589
 590                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{addpage}, { Style => "pageheader" });
 591                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");#
 592                 $kiriwrite_presmodule->startbox();
 593                 $kiriwrite_presmodule->addhiddendata("mode", "page");
 594                 $kiriwrite_presmodule->addhiddendata("action", "add");
 595                 $kiriwrite_presmodule->addhiddendata("database", $pagedatabase);
 596                 $kiriwrite_presmodule->addhiddendata("confirm", "1");
 597                 $kiriwrite_presmodule->addlinebreak();
 598                 $kiriwrite_presmodule->endbox();
 599                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
 600
 601                 $kiriwrite_presmodule->startheader();
 602                 $kiriwrite_presmodule->addcell("tablecellheader");
 603                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{setting});
 604                 $kiriwrite_presmodule->endcell();
 605                 $kiriwrite_presmodule->addcell("tablecellheader");
 606                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{value});
 607                 $kiriwrite_presmodule->endcell();
 608                 $kiriwrite_presmodule->endheader();
 609
 610                 $kiriwrite_presmodule->startrow();
 611                 $kiriwrite_presmodule->addcell("tablecell1");
 612                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{database});
 613                 $kiriwrite_presmodule->endcell();
 614                 $kiriwrite_presmodule->addcell("tablecell2");
 615                 $kiriwrite_presmodule->addtext($database_name);
 616                 $kiriwrite_presmodule->endcell();
 617                 $kiriwrite_presmodule->endrow();
 618
 619                 $kiriwrite_presmodule->startrow();
 620                 $kiriwrite_presmodule->addcell("tablecell1");
 621                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagename});
 622                 $kiriwrite_presmodule->endcell();
 623                 $kiriwrite_presmodule->addcell("tablecell2");
 624                 $kiriwrite_presmodule->addinputbox("pagename", { Size => 64, MaxLength => 512 });
 625                 $kiriwrite_presmodule->endcell();
 626                 $kiriwrite_presmodule->endrow();
 627
 628                 $kiriwrite_presmodule->startrow();
 629                 $kiriwrite_presmodule->addcell("tablecell1");
 630                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagedescription});
 631                 $kiriwrite_presmodule->endcell();
 632                 $kiriwrite_presmodule->addcell("tablecell2");
 633                 $kiriwrite_presmodule->addinputbox("pagedescription", { Size => 64, MaxLength => 512 });
 634                 $kiriwrite_presmodule->endcell();
 635                 $kiriwrite_presmodule->endrow();
 636
 637                 $kiriwrite_presmodule->startrow();
 638                 $kiriwrite_presmodule->addcell("tablecell1");
 639                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesection});
 640                 $kiriwrite_presmodule->endcell();
 641                 $kiriwrite_presmodule->addcell("tablecell2");
 642                 $kiriwrite_presmodule->addinputbox("pagesection", { Size => 64, MaxLength => 256 });
 643                 $kiriwrite_presmodule->endcell();
 644                 $kiriwrite_presmodule->endrow();
 645
 646                 $kiriwrite_presmodule->startrow();
 647                 $kiriwrite_presmodule->addcell("tablecell1");
 648                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagetemplate});
 649                 $kiriwrite_presmodule->endcell();
 650                 $kiriwrite_presmodule->addcell("tablecell2");
 651
 652                 # Check if the template warning value has been set
 653                 # and write the error message in place of the templates
 654                 # list if it is.
 655
 656                 if ($template_warning eq 1){
 657
 658                         $kiriwrite_presmodule->addhiddendata("pagetemplate", "!none");
 659                         $kiriwrite_presmodule->addtext($template_warningmessage);
 660
 661                 } else {
 662
 663                         my $template_file;
 664                         my $page_filename;
 665                         my $page_name;
 666
 667                         $kiriwrite_presmodule->addselectbox("pagetemplate");
 668
 669                         foreach $template_file (keys %template_list){
 670
 671                                 $page_filename  = $template_list{$template_file}{Filename};
 672                                 $page_name      = $template_list{$template_file}{Name};
 673                                 $kiriwrite_presmodule->addoption($page_name . " (" . $page_filename . ")", { Value => $page_filename });
 674                                 $template_count++;
 675
 676                                 $template_count = 0;
 677                         }
 678
 679                         $kiriwrite_presmodule->addoption($kiriwrite_lang->{pages}->{usenotemplate}, { Value => "!none", Selected => 1 });
 680                         $kiriwrite_presmodule->endselectbox();
 681
 682                 }
 683
 684                 $kiriwrite_presmodule->endcell();
 685                 $kiriwrite_presmodule->endrow();
 686
 687                 $kiriwrite_presmodule->startrow();
 688                 $kiriwrite_presmodule->addcell("tablecell1");
 689                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagefilename});
 690                 $kiriwrite_presmodule->endcell();
 691                 $kiriwrite_presmodule->addcell("tablecell2");
 692                 $kiriwrite_presmodule->addinputbox("pagefilename", { Size => 64, MaxLength => 256 });
 693                 $kiriwrite_presmodule->endcell();
 694                 $kiriwrite_presmodule->endrow();
 695
 696                 $kiriwrite_presmodule->startrow();
 697                 $kiriwrite_presmodule->addcell("tablecell1");
 698                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagecontent});
 699                 $kiriwrite_presmodule->endcell();
 700                 $kiriwrite_presmodule->addcell("tablecell2");
 701                 $kiriwrite_presmodule->addtextbox("pagecontent", { Columns => 50, Rows => 10 });
 702                 $kiriwrite_presmodule->addlinebreak();
 703                 $kiriwrite_presmodule->addlinebreak();
 704                 $kiriwrite_presmodule->startbox("datalist");
 705                 $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{common}->{tags});
 706                 $kiriwrite_presmodule->addlinebreak();
 707                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagetitle});
 708                 $kiriwrite_presmodule->addlinebreak();
 709                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagename});
 710                 $kiriwrite_presmodule->addlinebreak();
 711                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagedescription});
 712                 $kiriwrite_presmodule->addlinebreak();
 713                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagesection});
 714                 $kiriwrite_presmodule->addlinebreak();
 715                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautosection});
 716                 $kiriwrite_presmodule->addlinebreak();
 717                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautotitle});
 718                 $kiriwrite_presmodule->addlinebreak();
 719                 $kiriwrite_presmodule->endbox();
 720                 $kiriwrite_presmodule->endcell();
 721                 $kiriwrite_presmodule->endrow();
 722
 723                 $kiriwrite_presmodule->startrow();
 724                 $kiriwrite_presmodule->addcell("tablecell1");
 725                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesettings});
 726                 $kiriwrite_presmodule->endcell();
 727                 $kiriwrite_presmodule->addcell("tablecell2");
 728                 $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepageandsection}, Value => "1", Selected => 1, LineBreak => 1});
 729                 $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepagename}, Value => "2", Selected => 0, LineBreak => 1});
 730                 $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usesectionname}, Value => "3", Selected => 0, LineBreak => 1});
 731                 $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{nopagesection}, Value => "0", Selected => 0, LineBreak => 1});
 732                 $kiriwrite_presmodule->endcell();
 733                 $kiriwrite_presmodule->endrow();
 734
 735                 $kiriwrite_presmodule->endtable();
 736
 737                 $kiriwrite_presmodule->startbox();
 738                 $kiriwrite_presmodule->addlinebreak();
 739                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{addpagebutton});
 740                 $kiriwrite_presmodule->addtext(" | ");
 741                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{clearvalues});
 742                 $kiriwrite_presmodule->addtext(" | ");
 743                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $pagedatabase, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
 744                 $kiriwrite_presmodule->endbox();
 745                 $kiriwrite_presmodule->endform();
 746
 747
 748                 return $kiriwrite_presmodule->grab();
 749
 750         } else {
 751
 752                 # The confirm value is something else than '1' or '0' so
 753                 # return an error.
 754
 755                 kiriwrite_error("invalidvalue");
 756
 757         }
 758
 759
 760
 761 }
 762
 763 sub kiriwrite_page_delete{
 764 #################################################################################
 765 # kiriwrite_page_delete: Deletes a (single) page from a database.               #
 766 #                                                                               #
 767 # Usage:                                                                        #
 768 #                                                                               #
 769 # kiriwrite_page_delete(database, page, [confirm]);                             #
 770 #                                                                               #
 771 # database      Specifies the database to delete from.                          #
 772 # page          Specifies the page to delete.                                   #
 773 # confirm       Confirms the action to delete the page.                         #
 774 #################################################################################
 775
 776         my ($database, $page, $confirm) = @_;
 777
 778         # Check if the database filename is valid and return an error if
 779         # it isn't.
 780
 781         my $pagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
 782
 783         if ($pagedatabase_filename_check eq 1){
 784
 785                 # The database filename is blank, so return an error.
 786
 787                 kiriwrite_error("blankdatabasepageadd");
 788
 789         } elsif ($pagedatabase_filename_check eq 2){
 790
 791                 # The database filename is invalid, so return an error.
 792
 793                 kiriwrite_error("databasefilenameinvalid");
 794
 795         }
 796
 797         # Check the length the database name and return an error if it's
 798         # too long.
 799
 800         my $pagedatabase_length_check   = kiriwrite_variablecheck($database, "maxlength", 32, 1);
 801
 802         if ($pagedatabase_length_check eq 1){
 803
 804                 # The database name is too long, so return an error.
 805
 806                 kiriwrite_error("databasefilenametoolong");
 807
 808         }
 809
 810         # Check if the page name is specified is blank and return an error if
 811         # it is.
 812
 813         if (!$page){
 814
 815                 # The page name is blank, so return an error.
 816
 817                 kiriwrite_error("blankfilename");
 818
 819         }
 820
 821         # If the confirm value is blank, then set the confirm value to 0.
 822
 823         if (!$confirm){
 824
 825                 $confirm = 0;
 826
 827         }
 828
 829         if ($confirm eq 1){
 830
 831                 # The action to delete the selected page from the database
 832                 # has been confirmed.
 833
 834                 # Connect to the database server.
 835
 836                 $kiriwrite_dbmodule->connect();
 837
 838                 # Check if any errors occured while connecting to the database server.
 839
 840                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
 841
 842                         # A database connection error has occured so return
 843                         # an error.
 844
 845                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
 846
 847                 }
 848
 849                 # Select the database to delete the page from.
 850
 851                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
 852
 853                 # Check if any errors had occured while selecting the database.
 854
 855                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
 856
 857                         # The database does not exist, so return an error.
 858
 859                         kiriwrite_error("databasemissingfile");
 860
 861                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
 862
 863                         # The database has invalid permissions set, so return
 864                         # an error.
 865
 866                         kiriwrite_error("databaseinvalidpermissions");
 867
 868                 }
 869
 870                 # Check if the database has write permissions.
 871
 872                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
 873
 874                 if ($database_permissions eq 1){
 875
 876                         # The database permissions are invalid so return an error.
 877
 878                         kiriwrite_error("databaseinvalidpermissions");
 879
 880                 }
 881
 882                 # Get the information about the database.
 883
 884                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
 885
 886                 # Check if any error occured while getting the database information.
 887
 888                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 889
 890                         # A database error has occured so return an error and
 891                         # also the extended error information.
 892
 893                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 894
 895                 }
 896
 897                 # Get the information about the page that is going to be deleted.
 898
 899                 my %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page });
 900
 901                 # Check if any errors occured while getting the page information.
 902
 903                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 904
 905                         # A database error has occured so return an error and
 906                         # also the extended error information.
 907
 908                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 909
 910                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
 911
 912                         # The page does not exist, so return an error.
 913
 914                         kiriwrite_error("pagefilenamedoesnotexist");
 915
 916                 }
 917
 918                 # Delete the page from the database.
 919
 920                 $kiriwrite_dbmodule->deletepage({ PageFilename => $page });
 921
 922                 # Check if any errors occured while deleting the page from the database.
 923
 924                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
 925
 926                         # A database error has occured so return an error and
 927                         # also the extended error information.
 928
 929                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
 930
 931                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
 932
 933                         # The page does not exist, so return an error.
 934
 935                         kiriwrite_error("pagefilenamedoesnotexist");
 936
 937                 }
 938
 939                 # Get the database name and page name.
 940
 941                 my $database_name       = $database_info{"DatabaseName"};
 942                 my $page_name           = $page_info{"PageName"};
 943
 944                 # Disconnect from the database server.
 945
 946                 $kiriwrite_dbmodule->disconnect();
 947
 948                 # Write out a message saying that the selected page from
 949                 # the database has been deleted.
 950
 951                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagedeleted}, { Style => "pageheader" });
 952                 $kiriwrite_presmodule->addlinebreak();
 953                 $kiriwrite_presmodule->addlinebreak();
 954                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{pagedeletedmessage}, $page_name, $database_name));
 955                 $kiriwrite_presmodule->addlinebreak();
 956                 $kiriwrite_presmodule->addlinebreak();
 957                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name)});
 958
 959                 return $kiriwrite_presmodule->grab();
 960
 961         } elsif ($confirm eq 0){
 962
 963                 # Connect to the database server.
 964
 965                 $kiriwrite_dbmodule->connect();
 966
 967                 # Check if any errors occured while connecting to the database server.
 968
 969                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
 970
 971                         # A database connection error has occured so return
 972                         # an error.
 973
 974                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
 975
 976                 }
 977
 978                 # Select the database.
 979
 980                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
 981
 982                 # Check if any errors had occured while selecting the database.
 983
 984                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
 985
 986                         # The database does not exist, so return an error.
 987
 988                         kiriwrite_error("databasemissingfile");
 989
 990                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
 991
 992                         # The database has invalid permissions set, so return
 993                         # an error.
 994
 995                         kiriwrite_error("databaseinvalidpermissions");
 996
 997                 }
 998
 999                 # Get information about the database.
1000
1001                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
1002
1003                 # Check if any errors occured while getting the database information.
1004
1005                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1006
1007                         # A database error has occured so return an error and
1008                         # also the extended error information.
1009
1010                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1011
1012                 }
1013
1014                 # Get information about the page that is going to be deleted.
1015
1016                 my %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page });
1017
1018                 # Check if any errors occured while getting the page information.
1019
1020                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1021
1022                         # A database error has occured so return an error and
1023                         # also the extended error information.
1024
1025                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1026
1027                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
1028
1029                         # The page does not exist, so return an error.
1030
1031                         kiriwrite_error("pagefilenamedoesnotexist");
1032
1033                 }
1034
1035                 my $database_name       = $database_info{"DatabaseName"};
1036                 my $page_name           = $page_info{"PageName"};
1037
1038                 # Disconnect from the database server.
1039
1040                 $kiriwrite_dbmodule->disconnect();
1041
1042                 # Write a message asking the user to confirm the deletion of the
1043                 # page.
1044
1045                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{deletepage}, $page_name), { Style => "pageheader" });
1046                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
1047                 $kiriwrite_presmodule->startbox();
1048                 $kiriwrite_presmodule->addhiddendata("mode", "page");
1049                 $kiriwrite_presmodule->addhiddendata("action", "delete");
1050                 $kiriwrite_presmodule->addhiddendata("database", $database);
1051                 $kiriwrite_presmodule->addhiddendata("page", $page);
1052                 $kiriwrite_presmodule->addhiddendata("confirm", "1");
1053                 $kiriwrite_presmodule->addlinebreak();
1054                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{deletepagemessage}, $page_name, $database_name));
1055                 $kiriwrite_presmodule->addlinebreak();
1056                 $kiriwrite_presmodule->addlinebreak();
1057                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{deletepagebutton});
1058                 $kiriwrite_presmodule->addtext(" | ");
1059                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{deletepagesreturnlink}, $database_name)});
1060                 $kiriwrite_presmodule->endbox();
1061                 $kiriwrite_presmodule->endform();
1062
1063                 return $kiriwrite_presmodule->grab();
1064
1065         } else {
1066
1067                 # Another page deletion type was specified, so return an error.
1068
1069                 kiriwrite_error("invalidoption");
1070
1071         }
1072
1073 }
1074
1075 sub kiriwrite_page_edit{
1076 #################################################################################
1077 # kiriwrite_page_edit: Edits a page from a database.                            #
1078 #                                                                               #
1079 # Usage:                                                                        #
1080 #                                                                               #
1081 # kiriwrite_page_edit(database, filename, newfilename, newname, newdescription, #
1082 #                       newsection, newtemplate,  newsettings, newpagecontent   #
1083 #                       confirm);                                               #
1084 #                                                                               #
1085 # database       Specifies the database to edit from.                           #
1086 # filename       Specifies the filename to use.                                 #
1087 # newfilename    Specifies the new page filename to use.                        #
1088 # newname        Specifies the new page name to use.                            #
1089 # newdescription Specifies the new description for the page.                    #
1090 # newsection     Specifies the new section name to use.                         #
1091 # newtemplate    Specifies the new template filename to use.                    #
1092 # newsettings    Specifies the new page settings to use.                        #
1093 # newpagecontent Specifies the new page content to use.                         #
1094 # confirm        Confirms the action to edit the page.                          #
1095 #################################################################################
1096
1097         # Get the values that have been passed to the subroutine.
1098
1099         my ($database, $pagefilename, $pagenewfilename, $pagenewtitle, $pagenewdescription, $pagenewsection, $pagenewtemplate, $pagenewsettings, $pagenewcontent, $confirm) = @_;
1100
1101         # Check if the confirm value is blank and if it is, then set it to '0'.
1102
1103         if (!$confirm){
1104
1105                 $confirm = 0;
1106
1107         }
1108
1109         # Check if the confirm value is more than one character long and if it
1110         # is then return an error.
1111
1112         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
1113
1114         # Check if the database filename is valid and return an error if
1115         # it isn't.
1116
1117         my $pagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
1118
1119         if ($pagedatabase_filename_check eq 1){
1120
1121                 # The database filename is blank, so return an error.
1122
1123                 kiriwrite_error("blankdatabasepageadd");
1124
1125         } elsif ($pagedatabase_filename_check eq 2){
1126
1127                 # The database filename is invalid, so return an error.
1128
1129                 kiriwrite_error("databasefilenameinvalid");
1130
1131         }
1132
1133         # Check the length the database name and return an error if it's
1134         # too long.
1135
1136         my $pagedatabase_length_check   = kiriwrite_variablecheck($database, "maxlength", 32, 1);
1137
1138         if ($pagedatabase_length_check eq 1){
1139
1140                 # The database name is too long, so return an error.
1141
1142                 kiriwrite_error("databasefilenametoolong");
1143
1144         }
1145
1146         # Check if the page identification number is blank (which it shouldn't
1147         # be) and if it is, then return an error.
1148
1149         if (!$pagefilename){
1150
1151                 kiriwrite_error("blankfilename");
1152
1153         }
1154
1155         # Check if the confirm value is '1' and if it is, edit the specified
1156         # page in the database.
1157
1158         if ($confirm eq 1){
1159
1160                 # Check if the new page filename is blank.
1161
1162                 if (!$pagenewfilename){
1163
1164                         # The page filename is blank so return an error.
1165
1166                         kiriwrite_error("pagefilenameblank");
1167
1168                 }
1169
1170                 # The action to edit a page has been confirmed so check the
1171                 # variables recieved are UTF8 compiliant before converting.
1172
1173                 kiriwrite_variablecheck($database, "utf8", 0, 0);
1174                 kiriwrite_variablecheck($pagefilename, "utf8", 0, 0);
1175                 kiriwrite_variablecheck($pagenewfilename, "utf8", 0, 0);
1176                 kiriwrite_variablecheck($pagenewtitle, "utf8", 0, 0);
1177                 kiriwrite_variablecheck($pagenewdescription, "utf8", 0, 0);
1178                 kiriwrite_variablecheck($pagenewsection, "utf8", 0, 0);
1179                 kiriwrite_variablecheck($pagenewsettings, "utf8", 0, 0);
1180                 kiriwrite_variablecheck($pagenewtemplate, "utf8", 0, 0);
1181                 kiriwrite_variablecheck($pagenewcontent, "utf8", 0, 0);
1182
1183                 # Convert the variables into proper UTF8 variables.
1184
1185                 $database               = kiriwrite_utf8convert($database);
1186                 $pagefilename           = kiriwrite_utf8convert($pagefilename);
1187                 $pagenewfilename        = kiriwrite_utf8convert($pagenewfilename);
1188                 $pagenewtitle           = kiriwrite_utf8convert($pagenewtitle);
1189                 $pagenewdescription     = kiriwrite_utf8convert($pagenewdescription);
1190                 $pagenewsection         = kiriwrite_utf8convert($pagenewsection);
1191                 $pagenewsettings        = kiriwrite_utf8convert($pagenewsettings);
1192                 $pagenewtemplate        = kiriwrite_utf8convert($pagenewtemplate);
1193                 $pagenewcontent         = kiriwrite_utf8convert($pagenewcontent);
1194
1195                 # Check the lengths of the variables.
1196
1197                 my $pagenewfilename_maxlength_check     = kiriwrite_variablecheck($pagenewfilename, "maxlength", 256, 1);
1198                 my $pagenewtitle_maxlength_check        = kiriwrite_variablecheck($pagenewtitle, "maxlength", 512, 1);
1199                 my $pagenewdescription_maxlength_check  = kiriwrite_variablecheck($pagenewdescription, "maxlength", 512, 1);
1200                 my $pagenewsection_maxlength_check      = kiriwrite_variablecheck($pagenewsection, "maxlength", 256, 1);
1201                 my $pagenewsettings_maxlength_check     = kiriwrite_variablecheck($pagenewsettings, "maxlength", 1, 1);
1202                 my $pagenewtemplate_maxlength_check     = kiriwrite_variablecheck($pagenewtemplate, "maxlength", 64, 1);
1203
1204                 # Check each result to see if the length of the variable
1205                 # is valid and return an error if it isn't.
1206
1207                 if ($pagenewfilename_maxlength_check eq 1){
1208
1209                         # The new page filename given is too long, so return an error.
1210
1211                         kiriwrite_error("pagefilenametoolong");
1212
1213                 }
1214
1215                 if ($pagenewtitle_maxlength_check eq 1){
1216
1217                         # The new page title given is too long, so return an error.
1218
1219                         kiriwrite_error("pagetitletoolong");
1220
1221                 }
1222
1223                 if ($pagenewdescription_maxlength_check eq 1){
1224
1225                         # The new page description given is too long, so return an error.
1226
1227                         kiriwrite_error("pagedescriptiontoolong");
1228
1229                 }
1230
1231                 if ($pagenewsection_maxlength_check eq 1){
1232
1233                         # The new page section given is too long, so return an error.
1234
1235                         kiriwrite_error("pagesectiontoolong");
1236
1237                 }
1238
1239                 if ($pagenewsettings_maxlength_check eq 1){
1240
1241                         # The new page settings given is too long, so return an error.
1242
1243                         kiriwrite_error("pagesettingstoolong");
1244
1245                 }
1246
1247                 if ($pagenewtemplate_maxlength_check eq 1){
1248
1249                         # The new page template given is too long, so return an error.
1250
1251                         kiriwrite_error("pagetemplatefilenametoolong");
1252
1253                 }
1254
1255                 # Check if the new page filename and new page settings
1256                 # are valid.
1257
1258                 my $pagenewfilename_filename_check      = kiriwrite_variablecheck($pagenewfilename, "page_filename", 0, 1);
1259                 my $pagenewsettings_settings_check      = kiriwrite_variablecheck($pagenewsettings, "pagesetting", 0, 1);
1260                 my $pagetemplate_filename_check = 0;
1261
1262                 if ($pagenewtemplate ne "!none"){
1263
1264                         # A template is being used so check the filename of the
1265                         # template.
1266
1267                         $pagetemplate_filename_check    = kiriwrite_variablecheck($pagenewtemplate, "page_filename", 0, 1);
1268
1269                 }
1270
1271                 # Check each result to see if the variables have passed
1272                 # their tests and return an error if they haven't.
1273
1274                 if ($pagenewfilename_filename_check ne 0){
1275
1276                         # The new page filename is invalid, so return an error.
1277
1278                         kiriwrite_error("pagefilenameinvalid");
1279
1280                 }
1281
1282                 if ($pagenewsettings_settings_check eq 1){
1283
1284                         # The new page settings is invalid, so return an error.
1285
1286                         kiriwrite_error("pagesettingsinvalid");
1287
1288                 }
1289
1290                 if ($pagetemplate_filename_check eq 1){
1291
1292                         # The template filename given is invalid, so return an error
1293
1294                         kiriwrite_error("templatefilenameinvalid");
1295
1296                 }
1297
1298                 # Connect to the database server.
1299
1300                 $kiriwrite_dbmodule->connect();
1301
1302                 # Check if any errors occured while connecting to the database server.
1303
1304                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
1305
1306                         # A database connection error has occured so return
1307                         # an error.
1308
1309                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
1310
1311                 }
1312
1313                 # Select the database.
1314
1315                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
1316
1317                 # Check if any errors had occured while selecting the database.
1318
1319                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
1320
1321                         # The database does not exist, so return an error.
1322
1323                         kiriwrite_error("databasemissingfile");
1324
1325                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
1326
1327                         # The database has invalid permissions set, so return
1328                         # an error.
1329
1330                         kiriwrite_error("databaseinvalidpermissions");
1331
1332                 }
1333
1334                 # Check if the database has write permissions.
1335
1336                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
1337
1338                 if ($database_permissions eq 1){
1339
1340                         # The database permissions are invalid so return an error.
1341
1342                         kiriwrite_error("databaseinvalidpermissions");
1343
1344                 }
1345
1346                 # Get the database information.
1347
1348                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
1349
1350                 # Check if any errors had occured while getting the database information.
1351
1352                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1353
1354                         # A database error has occured so return an error and
1355                         # also the extended error information.
1356
1357                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1358
1359                 };
1360
1361                 my $database_name = $database_info{"DatabaseName"};
1362
1363                 # Edit the selected page.
1364
1365                 $kiriwrite_dbmodule->editpage({ PageFilename => $pagefilename, PageNewFilename => $pagenewfilename, PageNewName => $pagenewtitle, PageNewDescription => $pagenewdescription, PageNewSection => $pagenewsection, PageNewTemplate => $pagenewtemplate, PageNewContent => $pagenewcontent, PageNewSettings => $pagenewsettings });
1366
1367                 # Check if any errors occured while editing the page.
1368
1369                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1370
1371                         # A database error has occured so return an error and
1372                         # also the extended error information.
1373
1374                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1375
1376                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
1377
1378                         # The pages does not exist in the database.
1379
1380                         kiriwrite_error("pagefilenamedoesnotexist");
1381
1382                 } elsif ($kiriwrite_dbmodule->geterror eq "PageExists"){
1383
1384                         # A page already exists with the new filename.
1385
1386                         kiriwrite_error("pagefilenameexists");
1387
1388                 }
1389
1390                 # Disconnect from the database server.
1391
1392                 $kiriwrite_dbmodule->disconnect();
1393
1394                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{editedpage}, { Style => "pageheader" });
1395                 $kiriwrite_presmodule->addlinebreak();
1396                 $kiriwrite_presmodule->addlinebreak();
1397                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{editedpagemessage}, $pagenewtitle));
1398                 $kiriwrite_presmodule->addlinebreak();
1399                 $kiriwrite_presmodule->addlinebreak();
1400                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
1401
1402                 return $kiriwrite_presmodule->grab();
1403
1404         } elsif ($confirm eq 0) {
1405
1406                 # Connect to the database server.
1407
1408                 $kiriwrite_dbmodule->connect();
1409
1410                 # Check if any errors occured while connecting to the database server.
1411
1412                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
1413
1414                         # A database connection error has occured so return
1415                         # an error.
1416
1417                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
1418
1419                 }
1420
1421                 # Select the database.
1422
1423                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
1424
1425                 # Check if any errors had occured while selecting the database.
1426
1427                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
1428
1429                         # The database does not exist, so return an error.
1430
1431                         kiriwrite_error("databasemissingfile");
1432
1433                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
1434
1435                         # The database has invalid permissions set, so return
1436                         # an error.
1437
1438                         kiriwrite_error("databaseinvalidpermissions");
1439
1440                 }
1441
1442                 # Get the information about the database.
1443
1444                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
1445
1446                 # Check if any errors had occured while getting the database information.
1447
1448                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1449
1450                         # A database error has occured so return an error and
1451                         # also the extended error information.
1452
1453                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1454
1455                 };
1456
1457                 my $database_name = $database_info{"DatabaseName"};
1458
1459                 # Get the page info.
1460
1461                 my %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $pagefilename });
1462
1463                 # Check if any errors occured while getting the page information.
1464
1465                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
1466
1467                         # A database error has occured so return an error and
1468                         # also the extended error information.
1469
1470                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
1471
1472                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
1473
1474                         # The page does not exist, so return an error.
1475
1476                         kiriwrite_error("pagefilenamedoesnotexist");
1477
1478                 }
1479
1480                 # Get the values from the hash.
1481
1482                 my $data_filename               = $page_info{"PageFilename"};
1483                 my $data_name                   = $page_info{"PageName"};
1484                 my $data_description            = $page_info{"PageDescription"};
1485                 my $data_section                = $page_info{"PageSection"};
1486                 my $data_template               = $page_info{"PageTemplate"};
1487                 my $data_content                = $page_info{"PageContent"};
1488                 my $data_settings               = $page_info{"PageSettings"};
1489                 my $data_lastmodified           = $page_info{"PageLastModified"};
1490
1491                 my $template_warning;
1492                 my $page_count = 0;
1493                 my %template_list;
1494                 my %template_info;
1495                 my @database_pages;
1496                 my @database_info;
1497                 my @database_templates;
1498                 my @template_filenames;
1499                 my $template_file;
1500                 my $template_filename;
1501                 my $template_name;
1502                 my $template_count = 0;
1503                 my $template_found = 0;
1504
1505                 tie(%template_list, 'Tie::IxHash');
1506
1507                 # Connect to the template database.
1508
1509                 $kiriwrite_dbmodule->connecttemplate();
1510
1511                 # Check if any errors occured while connecting to the template database.
1512
1513                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
1514
1515                         # The template database does not exist so set the template
1516                         # warning message.
1517
1518                         $template_warning = $kiriwrite_lang->{pages}->{notemplatedatabasekeep};
1519
1520                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
1521
1522                         # The template database has invalid permissions set so write
1523                         # the template warning message.
1524
1525                         $template_warning = $kiriwrite_lang->{pages}->{templatepermissionserrorkeep};
1526
1527                 }
1528
1529                 if (!$template_warning){
1530
1531                         # Get the list of available templates.
1532
1533                         @template_filenames = $kiriwrite_dbmodule->gettemplatelist();
1534
1535                         # Check if any errors had occured.
1536
1537                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
1538
1539                                 # A database error occured while getting the list
1540                                 # of templates so return an error with the
1541                                 # extended error information.
1542
1543                                 $template_warning = kiriwrite_language($kiriwrite_lang->{pages}->{templatedatabaseerrorkeep} , $kiriwrite_dbmodule->geterror(1));
1544
1545                         }
1546
1547                         if (!$template_warning){
1548
1549                                 foreach $template_filename (@template_filenames){
1550
1551                                         # Get the information about each template.
1552
1553                                         %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template_filename });
1554
1555                                         # Check if any errors occured while getting the template information.
1556
1557                                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
1558
1559                                                 # A template database error has occured so return a warning message
1560                                                 # with the extended error information.
1561
1562                                                 $template_warning = kiriwrite_language($kiriwrite_lang->{pages}->{templatedatabaseerrorkeep} , $kiriwrite_dbmodule->geterror(1));
1563                                                 last;
1564
1565                                         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
1566
1567                                                 # The template does not exist so process the next template.
1568
1569                                                 next;
1570
1571                                         }
1572
1573                                         # Append the template name and filename to the list of available templates.
1574
1575                                         $template_list{$template_count}{Filename} = $template_info{"TemplateFilename"};
1576                                         $template_list{$template_count}{Name}     = $template_info{"TemplateName"};
1577
1578                                         # Append the template filename and name and make it the selected
1579                                         # template if that is the template the page is using.
1580
1581                                         if ($data_template eq $template_filename && !$template_found){
1582
1583                                                 $template_list{$template_count}{Selected}       = 1;
1584                                                 $template_found = 1;
1585
1586                                         } else {
1587
1588                                                 $template_list{$template_count}{Selected}       = 0;
1589
1590                                         }
1591
1592                                         $template_count++;
1593
1594                                 }
1595
1596                         }
1597
1598                 }
1599
1600                 # Check if certain values are undefined and if they
1601                 # are then set them blank (defined).
1602
1603                 if (!$data_name){
1604                         $data_name = "";
1605                 }
1606
1607                 if (!$data_description){
1608                         $data_description = "";
1609                 }
1610
1611                 if (!$data_section){
1612                         $data_section = "";
1613                 }
1614
1615                 if (!$data_template){
1616                         $data_template = "";
1617
1618                 }
1619
1620                 if (!$data_content){
1621                         $data_content = "";
1622                 }
1623
1624                 if (!$data_settings){
1625                         $data_settings = "";
1626                 }
1627
1628                 if (!$data_lastmodified){
1629                         $data_lastmodified = "";
1630                 }
1631
1632                 # Begin writing out the form for editing the selected page.
1633
1634                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{editpage}, $data_name), { Style => "pageheader" });
1635                 $kiriwrite_presmodule->addlinebreak();
1636                 $kiriwrite_presmodule->addlinebreak();
1637
1638                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
1639                 $kiriwrite_presmodule->startbox();
1640                 $kiriwrite_presmodule->addhiddendata("mode", "page");
1641                 $kiriwrite_presmodule->addhiddendata("action", "edit");
1642                 $kiriwrite_presmodule->addhiddendata("database", $database);
1643                 $kiriwrite_presmodule->addhiddendata("page", $pagefilename);
1644                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
1645                 $kiriwrite_presmodule->endbox();
1646
1647                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
1648
1649                 $kiriwrite_presmodule->startheader();
1650                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
1651                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
1652                 $kiriwrite_presmodule->endheader();
1653
1654                 $kiriwrite_presmodule->startrow();
1655                 $kiriwrite_presmodule->addcell("tablecell1");
1656                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{database});
1657                 $kiriwrite_presmodule->endcell();
1658                 $kiriwrite_presmodule->addcell("tablecell2");
1659                 $kiriwrite_presmodule->addtext($database_name);
1660                 $kiriwrite_presmodule->endcell();
1661                 $kiriwrite_presmodule->endrow();
1662
1663                 $kiriwrite_presmodule->startrow();
1664                 $kiriwrite_presmodule->addcell("tablecell1");
1665                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagename});
1666                 $kiriwrite_presmodule->endcell();
1667                 $kiriwrite_presmodule->addcell("tablecell2");
1668                 $kiriwrite_presmodule->addinputbox("pagename", { Size => 64, MaxLength => 256, Value => $data_name });
1669                 $kiriwrite_presmodule->endcell();
1670                 $kiriwrite_presmodule->endrow();
1671
1672                 $kiriwrite_presmodule->startrow();
1673                 $kiriwrite_presmodule->addcell("tablecell1");
1674                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagedescription});
1675                 $kiriwrite_presmodule->endcell();
1676                 $kiriwrite_presmodule->addcell("tablecell2");
1677                 $kiriwrite_presmodule->addinputbox("pagedescription", { Size => 64, MaxLength => 256, Value => $data_description });
1678                 $kiriwrite_presmodule->endcell();
1679                 $kiriwrite_presmodule->endrow();
1680
1681                 $kiriwrite_presmodule->startrow();
1682                 $kiriwrite_presmodule->addcell("tablecell1");
1683                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesection});
1684                 $kiriwrite_presmodule->endcell();
1685                 $kiriwrite_presmodule->addcell("tablecell2");
1686                 $kiriwrite_presmodule->addinputbox("pagesection", { Size => 64, MaxLength => 256, Value => $data_section });
1687                 $kiriwrite_presmodule->endcell();
1688                 $kiriwrite_presmodule->endrow();
1689
1690                 $kiriwrite_presmodule->startrow();
1691                 $kiriwrite_presmodule->addcell("tablecell1");
1692                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagetemplate});
1693                 $kiriwrite_presmodule->endcell();
1694                 $kiriwrite_presmodule->addcell("tablecell2");
1695
1696                 # Check if any template warnings have occured.
1697
1698                 if ($template_warning){
1699
1700                         $kiriwrite_presmodule->addtext($template_warning);
1701                         $kiriwrite_presmodule->addlinebreak();
1702
1703                 }
1704
1705                 $kiriwrite_presmodule->addselectbox("pagetemplate");
1706
1707                 # Process the list of templates, select one if the
1708                 # template filename for the page matches, else give
1709                 # an option for the user to keep the current template
1710                 # filename.
1711
1712                 $template_count = 0;
1713
1714                 foreach $template_file (keys %template_list){
1715
1716                         if ($template_list{$template_count}{Selected}){
1717
1718                                 $kiriwrite_presmodule->addoption($template_list{$template_count}{Name} . " (" . $template_list{$template_count}{Filename} . ")", { Value => $template_list{$template_count}{Filename}, Selected => 1 });
1719
1720                         } else {
1721
1722                                 $kiriwrite_presmodule->addoption($template_list{$template_count}{Name} . " (" . $template_list{$template_count}{Filename} . ")", { Value => $template_list{$template_count}{Filename} });
1723
1724                         }
1725
1726                         $template_count++;
1727
1728                 }
1729
1730                 if ($data_template eq "!none"){
1731
1732                         $kiriwrite_presmodule->addoption($kiriwrite_lang->{pages}->{usenotemplate}, { Value => "!none", Selected => 1 });
1733                         $template_found = 1;
1734
1735                 } else {
1736
1737                         $kiriwrite_presmodule->addoption($kiriwrite_lang->{pages}->{usenotemplate}, { Value => "!none" });
1738
1739                 }
1740
1741                 if ($template_found eq 0 && $data_template ne "!none"){
1742
1743                         # The template with the filename given was not found.
1744
1745                         $kiriwrite_presmodule->addoption(kiriwrite_language($kiriwrite_lang->{pages}->{keeptemplatefilename}, $data_template), { Value => $data_template, Selected => 1, Style => "warningoption" });
1746
1747                 }
1748
1749                 # Disconnect from the template database.
1750
1751                 $kiriwrite_dbmodule->disconnecttemplate();
1752
1753                 # Disconnect from the database server.
1754
1755                 $kiriwrite_dbmodule->disconnect();
1756
1757                 $kiriwrite_presmodule->endselectbox();
1758
1759                 $kiriwrite_presmodule->endcell();
1760                 $kiriwrite_presmodule->endrow();
1761
1762                 $kiriwrite_presmodule->startrow();
1763                 $kiriwrite_presmodule->addcell("tablecell1");
1764                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagefilename});
1765                 $kiriwrite_presmodule->endcell();
1766                 $kiriwrite_presmodule->addcell("tablecell2");
1767                 $kiriwrite_presmodule->addinputbox("pagefilename", { Size => 64, MaxLength => 256, Value => $data_filename });
1768                 $kiriwrite_presmodule->endcell();
1769                 $kiriwrite_presmodule->endrow();
1770
1771                 $kiriwrite_presmodule->startrow();
1772                 $kiriwrite_presmodule->addcell("tablecell1");
1773                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagecontent});
1774                 $kiriwrite_presmodule->endcell();
1775                 $kiriwrite_presmodule->addcell("tablecell2");
1776                 $kiriwrite_presmodule->addtextbox("pagecontent", { Columns => 50, Rows => 10, Value => $data_content });
1777                 $kiriwrite_presmodule->addlinebreak();
1778                 $kiriwrite_presmodule->addlinebreak();
1779                 $kiriwrite_presmodule->startbox("datalist");
1780                 $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{common}->{tags});
1781                 $kiriwrite_presmodule->addlinebreak();
1782                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagetitle});
1783                 $kiriwrite_presmodule->addlinebreak();
1784                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagename});
1785                 $kiriwrite_presmodule->addlinebreak();
1786                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagedescription});
1787                 $kiriwrite_presmodule->addlinebreak();
1788                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagesection});
1789                 $kiriwrite_presmodule->addlinebreak();
1790                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautosection});
1791                 $kiriwrite_presmodule->addlinebreak();
1792                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautotitle});
1793                 $kiriwrite_presmodule->addlinebreak();
1794                 $kiriwrite_presmodule->endbox();
1795                 $kiriwrite_presmodule->endcell();
1796                 $kiriwrite_presmodule->endrow();
1797
1798                 $kiriwrite_presmodule->startrow();
1799                 $kiriwrite_presmodule->addcell("tablecell1");
1800                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesettings});
1801                 $kiriwrite_presmodule->endcell();
1802                 $kiriwrite_presmodule->addcell("tablecell2");
1803
1804                 # Check if the page settings value is set to a
1805                 # certain number and select that option based
1806                 # on the number else set the value to 0.
1807
1808                 if ($data_settings eq 1){
1809                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepageandsection}, Value => "1", Selected => 1, LineBreak => 1});
1810                 } else {
1811                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepageandsection}, Value => "1", LineBreak => 1});
1812                 }
1813
1814                 if ($data_settings eq 2){
1815                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepagename}, Value => "2", Selected => 1, LineBreak => 1});
1816                 } else {
1817                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usepagename}, Value => "2", LineBreak => 1});
1818                 }
1819
1820                 if ($data_settings eq 3){
1821                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usesectionname}, Value => "3", Selected => 1, LineBreak => 1});
1822                 } else {
1823                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{usesectionname}, Value => "3", LineBreak => 1});
1824                 }
1825
1826                 if ($data_settings eq 0 || ($data_settings ne 1 && $data_settings ne 2 && $data_settings ne 3)){
1827                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{nopagesection}, Value => "0", Selected => 1, LineBreak => 1});
1828                 } else {
1829                         $kiriwrite_presmodule->addradiobox("pagesettings", { Description => $kiriwrite_lang->{pages}->{nopagesection}, Value => "0", LineBreak => 1});
1830                 }
1831
1832                 $kiriwrite_presmodule->endcell();
1833                 $kiriwrite_presmodule->endrow();
1834                 $kiriwrite_presmodule->endtable();
1835
1836                 $kiriwrite_presmodule->startbox();
1837                 $kiriwrite_presmodule->addlinebreak();
1838                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{editpagebutton});
1839                 $kiriwrite_presmodule->addtext(" | ");
1840                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{restorecurrent});
1841                 $kiriwrite_presmodule->addtext(" | ");
1842                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) } );
1843                 $kiriwrite_presmodule->endbox();
1844
1845                 $kiriwrite_presmodule->endform();
1846
1847                 return $kiriwrite_presmodule->grab();
1848
1849         } else {
1850
1851                 # The confirm value is a value other than '0' and '1' so
1852                 # return an error.
1853
1854                 kiriwrite_error("invalidvalue");
1855
1856         }
1857
1858 }
1859
1860 sub kiriwrite_page_multidelete{
1861 #################################################################################
1862 # kiriwrite_page_multidelete: Delete mulitple pages from the database.          #
1863 #                                                                               #
1864 # Usage:                                                                        #
1865 #                                                                               #
1866 # kiriwrite_page_multidelete(database, confirm, filelist);                      #
1867 #                                                                               #
1868 # database      Specifies the database to delete multiple pages from.           #
1869 # confirm       Confirms the action to delete the selected pages from the       #
1870 #               database.                                                       #
1871 # filelist      The list of files to delete from the selected database.         #
1872 #################################################################################
1873
1874         # Get the information passed to the subroutine.
1875
1876         my ($database, $confirm, @filelist) = @_;
1877
1878         # Check if the database name is blank and return an error if
1879         # it is.
1880
1881         if (!$database){
1882
1883                 # The database name is blank so return an error.
1884
1885                 kiriwrite_error("databasenameblank");
1886
1887         }
1888
1889         # Check if the file list array has any values and return
1890         # an error if it doesn't.
1891
1892         if (!@filelist){
1893
1894                 # The page list really is blank so return
1895                 # an error.
1896
1897                 kiriwrite_error("nopagesselected");
1898         }
1899
1900         # Check if the database filename is valid and return an error if
1901         # it isn't.
1902
1903         my $pagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
1904
1905         if ($pagedatabase_filename_check eq 1){
1906
1907                 # The database filename is blank, so return an error.
1908
1909                 kiriwrite_error("blankdatabasepageadd");
1910
1911         } elsif ($pagedatabase_filename_check eq 2){
1912
1913                 # The database filename is invalid, so return an error.
1914
1915                 kiriwrite_error("databasefilenameinvalid");
1916
1917         }
1918
1919         # Check the length the database name and return an error if it's
1920         # too long.
1921
1922         my $pagedatabase_length_check   = kiriwrite_variablecheck($database, "maxlength", 32, 1);
1923
1924         if ($pagedatabase_length_check eq 1){
1925
1926                 # The database name is too long, so return an error.
1927
1928                 kiriwrite_error("databasefilenametoolong");
1929
1930         }
1931
1932         # Check if the confirm value is blank and if it is, then
1933         # set it to 0.
1934
1935         if (!$confirm){
1936
1937                 # The confirm value is blank so set the confirm value
1938                 # to 0.
1939
1940                 $confirm = 0;
1941
1942         }
1943
1944         if ($confirm eq 1){
1945
1946                 # The action to delete multiple pages from the database has
1947                 # been confirmed.
1948
1949                 # Connect to the database server.
1950
1951                 $kiriwrite_dbmodule->connect();
1952
1953                 # Check if any errors occured while connecting to the database server.
1954
1955                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
1956
1957                         # A database connection error has occured so return
1958                         # an error.
1959
1960                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
1961
1962                 }
1963
1964                 # Select the database.
1965
1966                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
1967
1968                 # Check if any errors occured while selecting the database.
1969
1970                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
1971
1972                         # The database does not exist, so return an error.
1973
1974                         kiriwrite_error("databasemissingfile");
1975
1976                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
1977
1978                         # The database has invalid permissions set, so return
1979                         # an error.
1980
1981                         kiriwrite_error("databaseinvalidpermissions");
1982
1983                 }
1984
1985                 # Check if the database has read and write permissions.
1986
1987                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
1988
1989                 if ($database_permissions eq 1){
1990
1991                         # The database permissions are invalid so return an error.
1992
1993                         kiriwrite_error("databaseinvalidpermissions");
1994
1995                 }
1996
1997                 # Get information about the database.
1998
1999                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
2000
2001                 # Check if any errors had occured while getting the database
2002                 # information.
2003
2004                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2005
2006                         # A database error has occured so return an error and
2007                         # also the extended error information.
2008
2009                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2010
2011                 };
2012
2013                 my $database_name       = $database_info{"DatabaseName"};
2014
2015                 # Define some variables for later.
2016
2017                 my @database_page;
2018                 my %page_info;
2019                 my $filelist_filename;
2020                 my %deleted_list;
2021                 my $page;
2022                 my $page_name;
2023                 my $page_found = 0;
2024                 my $page_count = 0;
2025
2026                 tie (%deleted_list, 'Tie::IxHash');
2027
2028                 my $deleted_list = "";
2029
2030                 foreach $filelist_filename (@filelist){
2031
2032                         # Get the page information.
2033
2034                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filelist_filename });
2035
2036                         # Check if any errors occured.
2037
2038                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2039
2040                                 # A database error has occured so return an error and
2041                                 # also the extended error information.
2042
2043                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2044
2045                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2046
2047                                 # The page does not exist, so process the next page.
2048
2049                                 next;
2050
2051                         }
2052
2053                         # Add the page to the list of deleted pages.
2054
2055                         $deleted_list{$page_count}{Filename}    = $page_info{"PageFilename"};
2056                         $deleted_list{$page_count}{Name}        = $page_info{"PageName"};
2057
2058                         # Delete the page.
2059
2060                         $kiriwrite_dbmodule->deletepage({ PageFilename => $filelist_filename });
2061
2062                         # Check if any errors occured while deleting the page from the database.
2063
2064                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2065
2066                                 # A database error has occured so return an error and
2067                                 # also the extended error information.
2068
2069                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2070
2071                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2072
2073                                 # The page does not exist, so process the next page.
2074
2075                                 next;
2076
2077                         }
2078
2079                         $page_found = 0;
2080                         $page_count++;
2081
2082                 }
2083
2084                 # Disconnect from the database server.
2085
2086                 $kiriwrite_dbmodule->disconnect();
2087
2088                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{selectedpagesdeleted}, { Style => "pageheader" });
2089                 $kiriwrite_presmodule->addlinebreak();
2090                 $kiriwrite_presmodule->addlinebreak();
2091                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{selectedpagesdeletedmessage}, $database_name));
2092                 $kiriwrite_presmodule->addlinebreak();
2093                 $kiriwrite_presmodule->addlinebreak();
2094                 $kiriwrite_presmodule->startbox("datalist");
2095
2096                 foreach $page (keys %deleted_list){
2097
2098                         if (!$deleted_list{$page}{Name}){
2099                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
2100                                 $kiriwrite_presmodule->addtext(" (" . $deleted_list{$page}{Filename} . ")");
2101
2102                         } else {
2103                                 $kiriwrite_presmodule->addtext($deleted_list{$page}{Name} . " (" . $deleted_list{$page}{Filename} . ")");
2104                         }
2105
2106                         $kiriwrite_presmodule->addlinebreak();
2107                 }
2108
2109                 $kiriwrite_presmodule->endbox();
2110                 $kiriwrite_presmodule->addlinebreak();
2111                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name)});
2112
2113                 return $kiriwrite_presmodule->grab();
2114
2115         } elsif ($confirm eq 0){
2116
2117                 # The action to delete multiple pages from the database has
2118                 # not been confirmed, so write a form asking the user to confirm
2119                 # the deletion of those pages.
2120
2121                 # Connect to the database server.
2122
2123                 $kiriwrite_dbmodule->connect();
2124
2125                 # Check if any errors occured while connecting to the database server.
2126
2127                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
2128
2129                         # A database connection error has occured so return
2130                         # an error.
2131
2132                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
2133
2134                 }
2135
2136                 # Select the database.
2137
2138                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
2139
2140                 # Check if any errors occured while selecting the database.
2141
2142                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
2143
2144                         # The database does not exist, so return an error.
2145
2146                         kiriwrite_error("databasemissingfile");
2147
2148                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
2149
2150                         # The database has invalid permissions set, so return
2151                         # an error.
2152
2153                         kiriwrite_error("databaseinvalidpermissions");
2154
2155                 }
2156
2157                 # Check if the database has read and write permissions.
2158
2159                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
2160
2161                 if ($database_permissions eq 1){
2162
2163                         # The database permissions are invalid so return an error.
2164
2165                         kiriwrite_error("databaseinvalidpermissions");
2166
2167                 }
2168
2169                 # Get information about the database.
2170
2171                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
2172
2173                 # Check if any errors had occured while getting the database
2174                 # information.
2175
2176                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2177
2178                         # A database error has occured so return an error and
2179                         # also the extended error information.
2180
2181                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2182
2183                 };
2184
2185                 my $database_name       = $database_info{"DatabaseName"};
2186
2187                 # Define some variables for later.
2188
2189                 my %page_info;
2190                 my %delete_list;
2191                 my $pagename;
2192                 my $page = "";
2193                 my $filelist_filename;
2194                 my $filelist_filename_sql;
2195                 my $pageseek = 0;
2196
2197                 tie(%delete_list, 'Tie::IxHash');
2198
2199                 # Process each filename given.
2200
2201                 foreach $filelist_filename (@filelist){
2202
2203                         # Get the page information.
2204
2205                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filelist_filename });
2206
2207                         # Check if any errors occured.
2208
2209                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2210
2211                                 # A database error has occured so return an error and
2212                                 # also the extended error information.
2213
2214                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2215
2216                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2217
2218                                 # The page does not exist, so process the next page.
2219
2220                                 next;
2221
2222                         }
2223
2224                         # Add the page file name and name to the list
2225                         # of pages to delete.
2226
2227                         $delete_list{$pageseek}{Filename}       = $page_info{"PageFilename"};
2228                         $delete_list{$pageseek}{Name}           = $page_info{"PageName"};
2229
2230                         # Increment the page seek counter and reset the
2231                         # page found value.
2232
2233                         $pageseek++;
2234
2235                 }
2236
2237                 # Disconnect from the database server.
2238
2239                 $kiriwrite_dbmodule->disconnect();
2240
2241                 # Check if any files were selected and return
2242                 # an error if there wasn't.
2243
2244                 if ($pageseek eq 0){
2245
2246                         # No pages were selected so return an error.
2247
2248                         kiriwrite_error("nopagesselected");
2249
2250                 }
2251
2252                 # Write the form for displaying pages.
2253
2254                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{deletemultiplepages}, { Style => "pageheader" });
2255                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
2256                 $kiriwrite_presmodule->startbox();
2257                 $kiriwrite_presmodule->addhiddendata("mode", "page");
2258                 $kiriwrite_presmodule->addhiddendata("action", "multidelete");
2259                 $kiriwrite_presmodule->addhiddendata("database", $database);
2260                 $kiriwrite_presmodule->addhiddendata("confirm", "1");
2261                 $kiriwrite_presmodule->addhiddendata("count", $pageseek);
2262
2263                 $pageseek = 1;
2264
2265                 foreach $page (keys %delete_list){
2266
2267                         $kiriwrite_presmodule->addhiddendata("name[" . $pageseek . "]", "on");
2268                         $kiriwrite_presmodule->addhiddendata("id[" . $pageseek . "]", $delete_list{$page}{Filename});
2269
2270                         $pageseek++;
2271
2272                 }
2273
2274                 $kiriwrite_presmodule->addlinebreak();
2275                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{deletemultiplemessage}, $database_name));
2276                 $kiriwrite_presmodule->addlinebreak();
2277                 $kiriwrite_presmodule->addlinebreak();
2278                 $kiriwrite_presmodule->startbox("datalist");
2279
2280                 foreach $page (keys %delete_list){
2281
2282                         if (!$delete_list{$page}{Name}){
2283                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
2284                                 $kiriwrite_presmodule->addtext(" (" . $delete_list{$page}{Filename} . ")");
2285                         } else {
2286                                 $kiriwrite_presmodule->addtext($delete_list{$page}{Name} . " (" . $delete_list{$page}{Filename} . ")");
2287                         }
2288                         $kiriwrite_presmodule->addlinebreak();
2289
2290                 }
2291
2292                 $kiriwrite_presmodule->endbox();
2293                 $kiriwrite_presmodule->addlinebreak();
2294                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{deletepagesbutton});
2295                 $kiriwrite_presmodule->addtext(" | ");
2296                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{deletepagesreturnlink}, $database_name)});
2297                 $kiriwrite_presmodule->endbox();
2298                 $kiriwrite_presmodule->endform();
2299
2300                 return $kiriwrite_presmodule->grab();
2301
2302         } else {
2303
2304                 # A confirm value other than 0 or 1 is given, so
2305                 # return an error.
2306
2307                 kiriwrite_error("invaildvalue");
2308
2309         }
2310
2311 }
2312
2313 sub kiriwrite_page_multimove{
2314 #################################################################################
2315 # kiriwrite_page_multimove: Move several pages from one database to another     #
2316 # database.                                                                     #
2317 #                                                                               #
2318 # Usage:                                                                        #
2319 #                                                                               #
2320 # kiriwrite_page_multimove(database, newdatabase, confirm, filelist);           #
2321 #                                                                               #
2322 # database      Specifies the database to move the selected pages from.         #
2323 # newdatabase   Specifies the database to move the selected pages to.           #
2324 # confirm       Confirms the action to move the pages from one database to      #
2325 #               another.                                                        #
2326 # filelist      Specifies the list of pages to move.                            #
2327 #################################################################################
2328
2329         # Get the values that were passed to the subroutine.
2330
2331         my ($database, $newdatabase, $confirm, @filelist) = @_;
2332
2333         # Check if the database filename is valid and return
2334         # an error if it isn't.
2335
2336         my $newpagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
2337
2338         if ($newpagedatabase_filename_check eq 1){
2339
2340                 # The database filename is blank, so return an error.
2341
2342                 kiriwrite_error("blankdatabasepageadd");
2343
2344         } elsif ($newpagedatabase_filename_check eq 2){
2345
2346                 # The database filename is invalid, so return an error.
2347
2348                 kiriwrite_error("databasefilenameinvalid");
2349
2350         }
2351
2352         # Check if the file list is blank and return an error
2353         # if it is.
2354
2355         if (!@filelist){
2356
2357                 # The file list really is blank so return
2358                 # an error.
2359
2360                 kiriwrite_error("nopagesselected");
2361
2362         }
2363
2364         # Check if the confirm value is blank and if it is then
2365         # set the confirm value to 0.
2366
2367         if (!$confirm){
2368
2369                 $confirm = 0;
2370
2371         }
2372
2373         if ($confirm eq 1){
2374
2375                 # The action to move several pages from one database
2376                 # to another has been confirmed.
2377
2378                 # Check if the database that the pages are moving from
2379                 # is the same as the database the pages are moving to.
2380                 # Return an error if it is.
2381
2382                 if ($database eq $newdatabase){
2383
2384                         # The database that the pages are moving from
2385                         # and the database the pages are moving to
2386                         # is the same, so return an error.
2387
2388                         kiriwrite_error("databasemovesame");
2389
2390                 }
2391
2392                 # Check if the new database filename is valid and return an error if
2393                 # it isn't.
2394
2395                 my $newpagedatabase_filename_check = kiriwrite_variablecheck($newdatabase, "filename", 0, 1);
2396
2397                 if ($newpagedatabase_filename_check eq 1){
2398
2399                         # The database filename is blank, so return an error.
2400
2401                         kiriwrite_error("blankdatabasepageadd");
2402
2403                 } elsif ($newpagedatabase_filename_check eq 2){
2404
2405                         # The database filename is invalid, so return an error.
2406
2407                         kiriwrite_error("databasefilenameinvalid");
2408
2409                 }
2410
2411                 # Connect to the database server.
2412
2413                 $kiriwrite_dbmodule->connect();
2414
2415                 # Check if any errors occured while connecting to the database server.
2416
2417                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
2418
2419                         # A database connection error has occured so return
2420                         # an error.
2421
2422                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
2423
2424                 }
2425
2426                 # Select the database the pages are going to be moved from.
2427
2428                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
2429
2430                 # Check if any errors had occured while selecting the database.
2431
2432                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
2433
2434                         # The database does not exist, so return an error.
2435
2436                         kiriwrite_error("oldmovedatabasedoesnotexist");
2437
2438                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
2439
2440                         # The database has invalid permissions set, so return
2441                         # an error.
2442
2443                         kiriwrite_error("oldmovedatabasefileinvalidpermissions");
2444
2445                 }
2446
2447                 # Check if the database has read and write permissions.
2448
2449                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
2450
2451                 if ($database_permissions eq 1){
2452
2453                         # The database permissions are invalid so return an error.
2454
2455                         kiriwrite_error("databaseinvalidpermissions");
2456
2457                 }
2458
2459                 # Select the database the pages are going to be moved to.
2460
2461                 $kiriwrite_dbmodule->selectseconddb({ DatabaseName => $newdatabase });
2462
2463                 # Check if any errors had occured while selecting the database.
2464
2465                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
2466
2467                         # The database does not exist, so return an error.
2468
2469                         kiriwrite_error("newmovedatabasedoesnotexist");
2470
2471                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
2472
2473                         # The database has invalid permissions set, so return
2474                         # an error.
2475
2476                         kiriwrite_error("newmovedatabasefileinvalidpermissions");
2477
2478                 }
2479
2480                 # Check if the database has read and write permissions.
2481
2482                 $database_permissions = $kiriwrite_dbmodule->dbpermissions($newdatabase, 1, 1);
2483
2484                 if ($database_permissions eq 1){
2485
2486                         # The database permissions are invalid so return an error.
2487
2488                         kiriwrite_error("databaseinvalidpermissions");
2489
2490                 }
2491
2492                 # Define some values for later.
2493
2494                 my %moved_list;
2495                 my %warning_list;
2496                 my %page_info;
2497
2498                 my $filename;
2499
2500                 my $olddatabase_name;
2501                 my $newdatabase_name;
2502
2503                 my $page;
2504                 my $warning;
2505
2506                 my $page_found = 0;
2507                 my $move_count = 0;
2508                 my $warning_count = 0;
2509
2510                 tie(%moved_list, 'Tie::IxHash');
2511                 tie(%warning_list, 'Tie::IxHash');
2512
2513                 # Get information about the database that the selected pages are moving from.
2514
2515                 my %olddatabase_info = $kiriwrite_dbmodule->getdatabaseinfo();
2516
2517                 # Check if any errors had occured while getting the database
2518                 # information.
2519
2520                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2521
2522                         # A database error has occured so return an error and
2523                         # also the extended error information.
2524
2525                         kiriwrite_error("oldmovedatabasedatabaseerror", $kiriwrite_dbmodule->geterror(1));
2526
2527                 };
2528
2529                 $olddatabase_name = $olddatabase_info{"DatabaseName"};
2530
2531                 # Get information about the database that the selected pages are moving to.
2532
2533                 my %newdatabase_info = $kiriwrite_dbmodule->getseconddatabaseinfo();
2534
2535                 # Check if any errors had occured while getting the database
2536                 # information.
2537
2538                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2539
2540                         # A database error has occured so return an error and
2541                         # also the extended error information.
2542
2543                         kiriwrite_error("newmovedatabasedatabaseerror", $kiriwrite_dbmodule->geterror(1));
2544
2545                 };
2546
2547                 $newdatabase_name = $newdatabase_info{"DatabaseName"};
2548
2549                 # Get each file in the old database, get the page values,
2550                 # put them into the new database and delete the pages
2551                 # from the old database.
2552
2553                 foreach $filename (@filelist){
2554
2555                         # Get the page information.
2556
2557                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filename });
2558
2559                         # Check if any errors occured.
2560
2561                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2562
2563                                 # A database error has occured so write a warning message and
2564                                 # also the extended error information.
2565
2566                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
2567                                 $warning_count++;
2568                                 next;
2569
2570                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2571
2572                                 # The page does not exist, so process the next page.
2573
2574                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{pagedoesnotexist}, $filename);
2575                                 $warning_count++;
2576                                 next;
2577
2578                         }
2579
2580                         # Move the selected page.
2581
2582                         $kiriwrite_dbmodule->movepage({ PageFilename => $filename });
2583
2584                         # Check if any errors occured while moving the page.
2585
2586                         if ($kiriwrite_dbmodule->geterror eq "OldDatabaseError"){
2587
2588                                 # A database error has occured while moving the pages from
2589                                 # the old database, so write a warning message.
2590
2591                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasemovefrompageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
2592                                 $warning_count++;
2593                                 next;
2594
2595                         } elsif ($kiriwrite_dbmodule->geterror eq "NewDatabaseError"){
2596
2597                                 # A database error has occured while moving the pages to
2598                                 # the new database, so write a warning message.
2599
2600                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasemovetopageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
2601                                 $warning_count++;
2602                                 next;
2603
2604                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2605
2606                                 # The page with the filename given in the database that
2607                                 # the page is to be moved from doesn't exist so write
2608                                 # a warning message.
2609
2610                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasemovefrompagenotexist}, $filename);
2611                                 $warning_count++;
2612                                 next;
2613
2614                         } elsif ($kiriwrite_dbmodule->geterror eq "PageAlreadyExists"){
2615
2616                                 # The page with the filename given in the database that
2617                                 # the page is to be moved to already exists so write a
2618                                 # warning message.
2619
2620                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasemovetopageexists}, $filename);
2621                                 $warning_count++;
2622                                 next;
2623
2624                         }
2625
2626                         $moved_list{$move_count}{Filename}      = $page_info{"PageFilename"};
2627                         $moved_list{$move_count}{Name}          = $page_info{"PageName"};
2628
2629                         $move_count++;
2630
2631                 }
2632
2633                 # Disconnect from the database server.
2634
2635                 $kiriwrite_dbmodule->disconnect();
2636
2637                 # Write out a message saying that the pages were moved (if any)
2638                 # to the new database (and any warnings given).
2639
2640                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{movepages}, { Style => "pageheader" });
2641                 $kiriwrite_presmodule->addlinebreak();
2642                 $kiriwrite_presmodule->addlinebreak();
2643
2644                 if (%moved_list){
2645
2646                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{movedpagesmessage}, $olddatabase_name, $newdatabase_name));
2647                         $kiriwrite_presmodule->addlinebreak();
2648                         $kiriwrite_presmodule->addlinebreak();
2649
2650                         $kiriwrite_presmodule->startbox("datalist");
2651                         foreach $page (keys %moved_list){
2652                                 if (!$moved_list{$page}{Name}){
2653                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
2654                                         $kiriwrite_presmodule->addtext(" (" . $moved_list{$page}{Filename} . ")");
2655                                 } else {
2656                                         $kiriwrite_presmodule->addtext($moved_list{$page}{Name} . " (" . $moved_list{$page}{Filename} . ")");
2657                                 }
2658
2659                                 $kiriwrite_presmodule->addlinebreak();
2660                         }
2661                         $kiriwrite_presmodule->endbox();
2662
2663                 } else {
2664
2665                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{nopagesmoved}, $olddatabase_name, $newdatabase_name));
2666                         $kiriwrite_presmodule->addlinebreak();
2667                         $kiriwrite_presmodule->addlinebreak();
2668
2669                 }
2670
2671                 if (%warning_list){
2672
2673                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{errormessages});
2674                         $kiriwrite_presmodule->addlinebreak();
2675                         $kiriwrite_presmodule->addlinebreak();
2676                         $kiriwrite_presmodule->startbox("datalist");
2677                         foreach $warning (keys %warning_list){
2678                                 $kiriwrite_presmodule->addtext($warning_list{$warning}{Message});
2679                                 $kiriwrite_presmodule->addlinebreak();
2680                         }
2681                         $kiriwrite_presmodule->endbox();
2682
2683                 }
2684
2685                 $kiriwrite_presmodule->addlinebreak();
2686                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $olddatabase_name)});
2687                 $kiriwrite_presmodule->addtext(" | ");
2688                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $newdatabase, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{viewpagelist}, $newdatabase_name)});
2689
2690                 return $kiriwrite_presmodule->grab();
2691
2692         } elsif ($confirm eq 0) {
2693
2694                 # The action to move several pages from one database
2695                 # to another has not been confirmed so write a form.
2696
2697                 # Connect to the database server.
2698
2699                 $kiriwrite_dbmodule->connect();
2700
2701                 # Check if any errors occured while connecting to the database server.
2702
2703                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
2704
2705                         # A database connection error has occured so return
2706                         # an error.
2707
2708                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
2709
2710                 }
2711
2712                 # Select the database.
2713
2714                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
2715
2716                 # Check if any errors occured while selecting the database.
2717
2718                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
2719
2720                         # The database does not exist, so return an error.
2721
2722                         kiriwrite_error("databasemissingfile");
2723
2724                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
2725
2726                         # The database has invalid permissions set, so return
2727                         # an error.
2728
2729                         kiriwrite_error("databaseinvalidpermissions");
2730
2731                 }
2732
2733                 # Check if the database has read and write permissions.
2734
2735                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
2736
2737                 if ($database_permissions eq 1){
2738
2739                         # The database permissions are invalid so return an error.
2740
2741                         kiriwrite_error("databaseinvalidpermissions");
2742
2743                 }
2744
2745                 # Get information about the database.
2746
2747                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
2748
2749                 # Check if any errors had occured while getting the database
2750                 # information.
2751
2752                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2753
2754                         # A database error has occured so return an error and
2755                         # also the extended error information.
2756
2757                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2758
2759                 };
2760
2761                 my $database_name       = $database_info{"DatabaseName"};
2762
2763                 # Define some values for later.
2764
2765                 my %db_list;
2766                 my %move_list;
2767                 my %page_info;
2768                 my $page;
2769                 my $data_file;
2770                 my $db_name;
2771                 my $filename;
2772                 my $filelist_filename;
2773                 my $pagename;
2774                 my $pageseek    = 0;
2775                 my $dbseek      = 0;
2776
2777                 # Process each filename given.
2778
2779                 tie (%move_list, 'Tie::IxHash');
2780                 tie (%db_list, 'Tie::IxHash');
2781
2782                 foreach $filelist_filename (@filelist){
2783
2784                         # Get the page information.
2785
2786                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filelist_filename });
2787
2788                         # Check if any errors occured.
2789
2790                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2791
2792                                 # A database error has occured so return an error and
2793                                 # also the extended error information.
2794
2795                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
2796
2797                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
2798
2799                                 # The page does not exist, so process the next page.
2800
2801                                 next;
2802
2803                         }
2804
2805                         # Add the page name and file name to the list of
2806                         # pages to move.
2807
2808                         $move_list{$pageseek}{Filename} = $page_info{"PageFilename"};
2809                         $move_list{$pageseek}{Name}     = $page_info{"PageName"};
2810
2811                         # Increment the page seek counter and reset the
2812                         # page found value.
2813
2814                         $pageseek++;
2815
2816                 }
2817
2818                 # Check if any pages exust and return an error if
2819                 # there wasn't.
2820
2821                 if ($pageseek eq 0){
2822
2823                         # None of the selected pages exist, so return
2824                         # an error.
2825
2826                         kiriwrite_error("nopagesselected");
2827
2828                 }
2829
2830                 # Get the list of databases.
2831
2832                 my @database_list       = $kiriwrite_dbmodule->getdblist();
2833
2834                 # Check if any errors occured while trying to get the list of databases.
2835
2836                 if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
2837
2838                         # The database directory is missing so return an error.
2839
2840                         kiriwrite_error("datadirectorymissing");
2841
2842                 } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
2843
2844                         # The database directory has invalid permissions set so return
2845                         # an error.
2846
2847                         kiriwrite_error("datadirectoryinvalidpermissions");
2848
2849                 }
2850
2851                 # Get the information about each database (the short name and friendly name).
2852
2853                 foreach $data_file (@database_list){
2854
2855                         $kiriwrite_dbmodule->selectdb({ DatabaseName => $data_file });
2856
2857                         # Check if any errors occured while selecting the database.
2858
2859                         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
2860
2861                                 # The database does not exist, so process the next
2862                                 # database.
2863
2864                                 next;
2865
2866                         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
2867
2868                                 # The database has invalid permissions set, so process
2869                                 # the next database.
2870
2871                                 next;
2872
2873                         }
2874
2875                         # Get the database information.
2876
2877                         %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
2878
2879                         # Check if any errors had occured while getting the database
2880                         # information.
2881
2882                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
2883
2884                                 # A database error has occured so process the next
2885                                 # database.
2886
2887                                 next;
2888
2889                         };
2890
2891                         # Check if the database name is undefined and if it is
2892                         # then set it blank.
2893
2894                         if (!$database_name){
2895                                 $database_name = "";
2896                         }
2897
2898                         # Append the database to the list of databases available.
2899
2900                         $db_list{$dbseek}{Filename}     = $data_file;
2901                         $db_list{$dbseek}{Name}         = $database_info{"DatabaseName"};
2902
2903                         $dbseek++;
2904
2905                 }
2906
2907                 # Disconnect from the database server.
2908
2909                 $kiriwrite_dbmodule->disconnect();
2910
2911                 # Write out the form.
2912
2913                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{movepages}, { Style => "pageheader" });
2914                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
2915                 $kiriwrite_presmodule->startbox();
2916                 $kiriwrite_presmodule->addhiddendata("mode", "page");
2917                 $kiriwrite_presmodule->addhiddendata("action", "multimove");
2918                 $kiriwrite_presmodule->addhiddendata("database", $database);
2919                 $kiriwrite_presmodule->addhiddendata("count", $pageseek);
2920                 $kiriwrite_presmodule->addhiddendata("confirm", "1");
2921
2922                 # Write the page form data.
2923
2924                 $pageseek = 1;
2925
2926                 foreach $page (keys %move_list){
2927                         $kiriwrite_presmodule->addhiddendata("name[" . $pageseek . "]", "on");
2928                         $kiriwrite_presmodule->addhiddendata("id[" . $pageseek . "]", $move_list{$page}{Filename});
2929                         $pageseek++;
2930                 }
2931
2932                 $kiriwrite_presmodule->addlinebreak();
2933                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{movepagesmessage}, $database_name));
2934                 $kiriwrite_presmodule->addlinebreak();
2935                 $kiriwrite_presmodule->addlinebreak();
2936                 $kiriwrite_presmodule->startbox("datalist");
2937
2938                 foreach $page (keys %move_list){
2939                         if (!$move_list{$page}{Name}){
2940                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
2941                                 $kiriwrite_presmodule->addtext(" (" . $move_list{$page}{Filename} . ")");
2942                         } else {
2943                                 $kiriwrite_presmodule->addtext($move_list{$page}{Name} . " (" . $move_list{$page}{Filename} . ")");
2944                         }
2945                         $kiriwrite_presmodule->addlinebreak();
2946                 }
2947
2948                 $kiriwrite_presmodule->endbox();
2949                 $kiriwrite_presmodule->addlinebreak();
2950                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{movepagesto});
2951
2952                 $kiriwrite_presmodule->addselectbox("newdatabase");
2953
2954                 foreach $db_name (keys %db_list){
2955                         $kiriwrite_presmodule->addoption($db_list{$db_name}{Name} . " (" . $db_list{$db_name}{Filename} . ")", { Value => $db_list{$db_name}{Filename}});
2956                 }
2957
2958                 $kiriwrite_presmodule->endselectbox();
2959                 $kiriwrite_presmodule->addlinebreak();
2960                 $kiriwrite_presmodule->addlinebreak();
2961                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{movepagesbutton});
2962                 $kiriwrite_presmodule->addtext(" | ");
2963                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name)});
2964                 $kiriwrite_presmodule->endbox();
2965                 $kiriwrite_presmodule->endform();
2966
2967                 return $kiriwrite_presmodule->grab();
2968
2969         } else {
2970
2971                 # The confirm value is other than 0 or 1, so return
2972                 # an error.
2973
2974                 kiriwrite_error("invalidvariable");
2975
2976         }
2977
2978
2979 }
2980
2981
2982 sub kiriwrite_page_multicopy{
2983 #################################################################################
2984 # kiriwrite_page_multicopy: Copy several pages from one database to another     #
2985 # database.                                                                     #
2986 #                                                                               #
2987 # Usage:                                                                        #
2988 #                                                                               #
2989 # kiriwrite_page_multicopy(database, newdatabase, confirm, filelist);           #
2990 #                                                                               #
2991 # database      Specifies the database to copy the selected pages from.         #
2992 # newdatabase   Specifies the database to copy the selected page to.            #
2993 # confirm       Confirms the action to copy the pages.                          #
2994 # filelist      A list of filenames to copy in an array.                        #
2995 #################################################################################
2996
2997         # Get the values that were passed to the subroutine.
2998
2999         my ($database, $newdatabase, $confirm, @filelist) = @_;
3000
3001         # Check if the file list is blank and return an error
3002         # if it is.
3003
3004         if (!@filelist){
3005
3006                 # The file list really is blank so return
3007                 # an error.
3008
3009                 kiriwrite_error("nopagesselected");
3010
3011         }
3012
3013         # Check if the confirm value is blank and if it is then
3014         # set the confirm value to 0.
3015
3016         if (!$confirm){
3017
3018                 $confirm = 0;
3019
3020         }
3021
3022         # Check if the database filename is valid and return an error if
3023         # it isn't.
3024
3025         my $pagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
3026
3027         if ($pagedatabase_filename_check eq 1){
3028
3029                 # The database filename is blank, so return an error.
3030
3031                 kiriwrite_error("blankdatabasepageadd");
3032
3033         } elsif ($pagedatabase_filename_check eq 2){
3034
3035                 # The database filename is invalid, so return an error.
3036
3037                 kiriwrite_error("databasefilenameinvalid");
3038
3039         }
3040
3041         if ($confirm eq 1){
3042
3043                 # The action to copy several pages from one database
3044                 # to another has been confirmed.
3045
3046                 # Check if the database that the pages are copied from
3047                 # is the same as the database the pages are copied to.
3048                 # Return an error if it is.
3049
3050                 if ($database eq $newdatabase){
3051
3052                         # The database that the pages are being copied from
3053                         # and the database that the pages are copied to
3054                         # is the same, so return an error.
3055
3056                         kiriwrite_error("databasecopysame");
3057
3058                 }
3059
3060                 # Check if the new database filename is valid and return an error if
3061                 # it isn't.
3062
3063                 my $pagedatabase_filename_check = kiriwrite_variablecheck($newdatabase, "filename", 0, 1);
3064
3065                 if ($pagedatabase_filename_check eq 1){
3066
3067                         # The database filename is blank, so return an error.
3068
3069                         kiriwrite_error("blankdatabasepageadd");
3070
3071                 } elsif ($pagedatabase_filename_check eq 2){
3072
3073                         # The database filename is invalid, so return an error.
3074
3075                         kiriwrite_error("databasefilenameinvalid");
3076
3077                 }
3078
3079                 # Connect to the database server.
3080
3081                 $kiriwrite_dbmodule->connect();
3082
3083                 # Check if any errors occured while connecting to the database server.
3084
3085                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
3086
3087                         # A database connection error has occured so return
3088                         # an error.
3089
3090                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
3091
3092                 }
3093
3094                 # Select the database the pages are going to be copied from.
3095
3096                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
3097
3098                 # Check if any errors had occured while selecting the database.
3099
3100                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
3101
3102                         # The database does not exist, so return an error.
3103
3104                         kiriwrite_error("oldcopydatabasedoesnotexist");
3105
3106                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
3107
3108                         # The database has invalid permissions set, so return
3109                         # an error.
3110
3111                         kiriwrite_error("oldcopydatabasefileinvalidpermissions");
3112
3113                 }
3114
3115                 # Select the database the pages are going to be copied to.
3116
3117                 $kiriwrite_dbmodule->selectseconddb({ DatabaseName => $newdatabase });
3118
3119                 # Check if any errors had occured while selecting the database.
3120
3121                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
3122
3123                         # The database does not exist, so return an error.
3124
3125                         kiriwrite_error("newcopydatabasedoesnotexist");
3126
3127                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
3128
3129                         # The database has invalid permissions set, so return
3130                         # an error.
3131
3132                         kiriwrite_error("newcopydatabasefileinvalidpermissions");
3133
3134                 }
3135
3136                 # Check if the database has read and write permissions.
3137
3138                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($newdatabase, 1, 1);
3139
3140                 if ($database_permissions eq 1){
3141
3142                         # The database permissions are invalid so return an error.
3143
3144                         kiriwrite_error("databaseinvalidpermissions");
3145
3146                 }
3147
3148                 # Define some values for later.
3149
3150                 my %copied_list;
3151                 my %warning_list;
3152                 my %page_info;
3153
3154                 my @olddatabase_info;
3155                 my @olddatabase_page;
3156                 my @newdatabase_info;
3157                 my @newdatabase_page;
3158
3159                 my $filename;
3160
3161                 my $olddatabase_name;
3162                 my $newdatabase_name;
3163
3164                 my $page;
3165                 my $warning;
3166                 my $page_filename;
3167                 my $page_name;
3168                 my $page_description;
3169                 my $page_section;
3170                 my $page_template;
3171                 my $page_data;
3172                 my $page_settings;
3173                 my $page_lastmodified;
3174
3175                 my $page_seek = 0;
3176                 my $warning_count = 0;
3177
3178                 my $page_found = 0;
3179
3180                 tie(%copied_list, 'Tie::IxHash');
3181                 tie(%warning_list, 'Tie::IxHash');
3182
3183                 # Get information about the database that the selected pages are moving from.
3184
3185                 my %olddatabase_info = $kiriwrite_dbmodule->getdatabaseinfo();
3186
3187                 # Check if any errors had occured while getting the database
3188                 # information.
3189
3190                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3191
3192                         # A database error has occured so return an error and
3193                         # also the extended error information.
3194
3195                         kiriwrite_error("oldcopydatabasedatabaseerror", $kiriwrite_dbmodule->geterror(1));
3196
3197                 };
3198
3199                 $olddatabase_name = $olddatabase_info{"DatabaseName"};
3200
3201                 # Get information about the database that the selected pages are moving to.
3202
3203                 my %newdatabase_info = $kiriwrite_dbmodule->getseconddatabaseinfo();
3204
3205                 # Check if any errors had occured while getting the database
3206                 # information.
3207
3208                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3209
3210                         # A database error has occured so return an error and
3211                         # also the extended error information.
3212
3213                         kiriwrite_error("newcopydatabasedatabaseerror", $kiriwrite_dbmodule->geterror(1));
3214
3215                 };
3216
3217                 $newdatabase_name = $newdatabase_info{"DatabaseName"};
3218
3219                 # Check if the database filename is valid and return an error if
3220                 # it isn't.
3221
3222                 my $newpagedatabase_filename_check = kiriwrite_variablecheck($newdatabase, "filename", 0, 1);
3223
3224                 if ($newpagedatabase_filename_check eq 1){
3225
3226                         # The database filename is blank, so return an error.
3227
3228                         kiriwrite_error("blankdatabasepageadd");
3229
3230                 } elsif ($newpagedatabase_filename_check eq 2){
3231
3232                         # The database filename is invalid, so return an error.
3233
3234                         kiriwrite_error("databasefilenameinvalid");
3235
3236                 }
3237
3238                 foreach $filename (@filelist){
3239
3240                         # Get the page information.
3241
3242                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filename });
3243
3244                         # Check if any errors occured.
3245
3246                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3247
3248                                 # A database error has occured so return an error and
3249                                 # also the extended error information.
3250
3251                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
3252                                 $warning_count++;
3253                                 next;
3254
3255                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
3256
3257                                 # The page does not exist, so process the next page.
3258
3259                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasecopyfrompageerror}, $filename);
3260                                 $warning_count++;
3261                                 next;
3262
3263                         }
3264
3265                         $kiriwrite_dbmodule->copypage({ PageFilename => $filename });
3266
3267                         # Check if any errors occured while copying the page.
3268
3269                         if ($kiriwrite_dbmodule->geterror eq "OldDatabaseError"){
3270
3271                                 # A database error has occured while copying the pages from
3272                                 # the old database, so write a warning message.
3273
3274                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasecopyfromdatabaseerror}, $filename,  $kiriwrite_dbmodule->geterror(1));
3275                                 $warning_count++;
3276                                 next;
3277
3278                         } elsif ($kiriwrite_dbmodule->geterror eq "NewDatabaseError"){
3279
3280                                 # A database error has occured while copying the pages to
3281                                 # the new database, so write a warning message.
3282
3283                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasecopytodatabaseerror}, $filename, $kiriwrite_dbmodule->geterror(1));
3284                                 $warning_count++;
3285                                 next;
3286
3287                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
3288
3289                                 # The page with the filename given in the database that
3290                                 # the page is to be copied from doesn't exist so write
3291                                 # a warning message.
3292
3293                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasecopyfrompagenotexist}, $filename);
3294                                 $warning_count++;
3295                                 next;
3296
3297                         } elsif ($kiriwrite_dbmodule->geterror eq "PageAlreadyExists"){
3298
3299                                 # The page with the filename given in the database that
3300                                 # the page is to be copied to already exists so write a
3301                                 # warning message.
3302
3303                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasecopytopageexists}, $filename);
3304                                 $warning_count++;
3305                                 next;
3306
3307                         }
3308
3309                         # Append the copied page (filename and name) to the list of
3310                         # copied pages.
3311
3312                         $copied_list{$page_seek}{Filename}      = $filename;
3313                         $copied_list{$page_seek}{Name}          = $page_info{"PageName"};
3314                         $page_seek++;
3315
3316                 }
3317
3318                 # Disconnect from the database server.
3319
3320                 $kiriwrite_dbmodule->disconnect();
3321
3322                 # Write out a message saying that the pages were moved (if any)
3323                 # to the new database (and any warnings given).
3324
3325                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{copypages}, { Style => "pageheader" });
3326                 $kiriwrite_presmodule->addlinebreak();
3327                 $kiriwrite_presmodule->addlinebreak();
3328
3329                 if (%copied_list){
3330
3331                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{copypagesresultmessage}, $olddatabase_name, $newdatabase_name));
3332                         $kiriwrite_presmodule->addlinebreak();
3333                         $kiriwrite_presmodule->addlinebreak();
3334                         $kiriwrite_presmodule->startbox("datalist");
3335                         foreach $page (keys %copied_list){
3336                                 if (!$copied_list{$page}{Name}){
3337                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
3338                                         $kiriwrite_presmodule->addtext(" (" . $copied_list{$page}{Filename} . ")");
3339                                 } else {
3340                                         $kiriwrite_presmodule->addtext($copied_list{$page}{Name} . " (" . $copied_list{$page}{Filename} . ")");
3341                                 }
3342                                 $kiriwrite_presmodule->addlinebreak();
3343                         }
3344                         $kiriwrite_presmodule->endbox();
3345
3346                 } else {
3347
3348                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{nopagescopied}, $olddatabase_name, $newdatabase_name));
3349
3350                 }
3351
3352                 if (%warning_list){
3353
3354                         $kiriwrite_presmodule->addlinebreak();
3355                         $kiriwrite_presmodule->addlinebreak();
3356                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{copypageswarnings});
3357                         $kiriwrite_presmodule->addlinebreak();
3358                         $kiriwrite_presmodule->addlinebreak();
3359                         $kiriwrite_presmodule->startbox("datalist");
3360                         foreach $warning (keys %warning_list){
3361                                 $kiriwrite_presmodule->addtext($warning_list{$warning}{Message});
3362                                                         $kiriwrite_presmodule->addlinebreak();
3363                         }
3364                         $kiriwrite_presmodule->endbox();
3365
3366                 }
3367
3368                 $kiriwrite_presmodule->addlinebreak();
3369                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $olddatabase_name)});
3370                 $kiriwrite_presmodule->addtext(" | ");
3371                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $newdatabase, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{viewpagelist}, $newdatabase_name)});
3372
3373                 return $kiriwrite_presmodule->grab();
3374
3375         } elsif ($confirm eq 0) {
3376
3377                 # The action to copy several pages from one database
3378                 # to another has not been confirmed so write a form.
3379
3380                 # Connect to the database server.
3381
3382                 $kiriwrite_dbmodule->connect();
3383
3384                 # Check if any errors occured while connecting to the database server.
3385
3386                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
3387
3388                         # A database connection error has occured so return
3389                         # an error.
3390
3391                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
3392
3393                 }
3394
3395                 # Select the database to copy the pages from.
3396
3397                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
3398
3399                 # Check if any errors occured while selecting the database.
3400
3401                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
3402
3403                         # The database does not exist, so return an error.
3404
3405                         kiriwrite_error("databasemissingfile");
3406
3407                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
3408
3409                         # The database has invalid permissions set, so return
3410                         # an error.
3411
3412                         kiriwrite_error("databaseinvalidpermissions");
3413
3414                 }
3415
3416                 # Get information about the database.
3417
3418                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
3419
3420                 # Check if any errors had occured while getting the database
3421                 # information.
3422
3423                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3424
3425                         # A database error has occured so return an error and
3426                         # also the extended error information.
3427
3428                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
3429
3430                 };
3431
3432                 my $database_name       = $database_info{"DatabaseName"};
3433
3434                 # Define some values for later.
3435
3436                 my %page_info;
3437                 my %copy_list;
3438                 my %db_list;
3439                 my @page_info;
3440                 my $page;
3441                 my $data_file;
3442                 my $dbname;
3443                 my $filename;
3444                 my $pageseek    = 0;
3445                 my $dbseek      = 0;
3446                 my $pagefound   = 0;
3447
3448                 tie(%copy_list, 'Tie::IxHash');
3449                 tie(%db_list, 'Tie::IxHash');
3450
3451                 # Process each filename given.
3452
3453                 foreach $filename (@filelist){
3454
3455                         # Get the page information.
3456
3457                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filename });
3458
3459                         # Check if any errors occured.
3460
3461                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3462
3463                                 # A database error has occured so return an error and
3464                                 # also the extended error information.
3465
3466                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
3467
3468                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
3469
3470                                 # The page does not exist, so process the next page.
3471
3472                                 next;
3473
3474                         }
3475
3476                         # Add the page name and file name to the list of
3477                         # pages to move.
3478
3479                         $copy_list{$pageseek}{Filename} = $page_info{"PageFilename"};
3480                         $copy_list{$pageseek}{Name}     = $page_info{"PageName"};
3481
3482                         # Increment the page seek counter.
3483
3484                         $pageseek++;
3485
3486                 }
3487
3488                 # Check if any pages exust and return an error if
3489                 # there wasn't.
3490
3491                 if ($pageseek eq 0){
3492
3493                         # None of the selected pages exist, so return
3494                         # an error.
3495
3496                         kiriwrite_error("nopagesselected");
3497
3498                 }
3499
3500                 # Get the database filenames and names.
3501
3502                 my @database_list       = $kiriwrite_dbmodule->getdblist();
3503
3504                 # Check if any errors occured while trying to get the list of databases.
3505
3506                 if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
3507
3508                         # The database directory is missing so return an error.
3509
3510                         kiriwrite_error("datadirectorymissing");
3511
3512                 } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
3513
3514                         # The database directory has invalid permissions set so return
3515                         # an error.
3516
3517                         kiriwrite_error("datadirectoryinvalidpermissions");
3518
3519                 }
3520
3521                 # Process each database to get the database name.
3522
3523                 foreach $data_file (@database_list){
3524
3525                         $kiriwrite_dbmodule->selectdb({ DatabaseName => $data_file });
3526
3527                         # Check if any errors occured while selecting the database.
3528
3529                         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
3530
3531                                 # The database does not exist, so process the next
3532                                 # database.
3533
3534                                 next;
3535
3536                         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
3537
3538                                 # The database has invalid permissions set, so process
3539                                 # the next database.
3540
3541                                 next;
3542
3543                         }
3544
3545                         # Get the database information.
3546
3547                         %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
3548
3549                         # Check if any errors had occured while getting the database
3550                         # information.
3551
3552                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3553
3554                                 # A database error has occured so process the next
3555                                 # database.
3556
3557                                 next;
3558
3559                         };
3560
3561                         # Check if the database name is undefined and if it is
3562                         # then set it blank.
3563
3564                         if (!$database_name){
3565                                 $database_name = "";
3566                         }
3567
3568                         # Append the database filename and name to the list of databases
3569                         # to move the pages to.
3570
3571                         $db_list{$dbseek}{Filename}     = $data_file;
3572                         $db_list{$dbseek}{Name}         = $database_info{"DatabaseName"};
3573
3574                         $dbseek++;
3575
3576                 }
3577
3578                 # Disconnect from the database server.
3579
3580                 $kiriwrite_dbmodule->disconnect();
3581
3582                 # Write out the form.
3583
3584                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{copypages}, { Style => "pageheader" });
3585                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
3586                 $kiriwrite_presmodule->startbox();
3587                 $kiriwrite_presmodule->addhiddendata("mode", "page");
3588                 $kiriwrite_presmodule->addhiddendata("action", "multicopy");
3589                 $kiriwrite_presmodule->addhiddendata("database", $database);
3590                 $kiriwrite_presmodule->addhiddendata("count", $pageseek);
3591                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
3592
3593                 $pageseek = 1;
3594
3595                 foreach $page (keys %copy_list){
3596                         $kiriwrite_presmodule->addhiddendata("name[" . $pageseek . "]", "on");
3597                         $kiriwrite_presmodule->addhiddendata("id[" . $pageseek . "]", $copy_list{$page}{Filename});
3598                         $pageseek++;
3599                 }
3600
3601                 $kiriwrite_presmodule->addlinebreak();
3602                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{copypagesmessage}, $database_name));
3603
3604                 $kiriwrite_presmodule->addlinebreak();
3605                 $kiriwrite_presmodule->addlinebreak();
3606
3607                 $kiriwrite_presmodule->startbox("datalist");
3608
3609                 foreach $page (keys %copy_list){
3610                         if (!$copy_list{$page}{Name}){
3611                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
3612                                 $kiriwrite_presmodule->addtext(" (" . $copy_list{$page}{Filename} . ")");
3613                         } else {
3614                                 $kiriwrite_presmodule->addtext($copy_list{$page}{Name} . " (" . $copy_list{$page}{Filename} . ")");
3615                         }
3616                         $kiriwrite_presmodule->addlinebreak();
3617                 }
3618
3619                 $kiriwrite_presmodule->endbox();
3620
3621                 $kiriwrite_presmodule->addlinebreak();
3622
3623                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{copypagesto});
3624                 $kiriwrite_presmodule->addselectbox("newdatabase");
3625
3626                 foreach $dbname (keys %db_list){
3627                         $kiriwrite_presmodule->addoption($db_list{$dbname}{Name} . " (" . $db_list{$dbname}{Filename} . ")", { Value => $db_list{$dbname}{Filename}});
3628                 }
3629
3630                 $kiriwrite_presmodule->endselectbox();
3631
3632                 $kiriwrite_presmodule->addlinebreak();
3633                 $kiriwrite_presmodule->addlinebreak();
3634                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{copypagesbutton});
3635                 $kiriwrite_presmodule->addtext(" | ");
3636                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
3637
3638                 $kiriwrite_presmodule->endbox();
3639                 $kiriwrite_presmodule->endform();
3640
3641                 return $kiriwrite_presmodule->grab();
3642
3643         } else {
3644
3645                 # The confirm value is other than 0 or 1, so return
3646                 # an error.
3647
3648                 kiriwrite_error("invalidvariable");
3649
3650         }
3651
3652 }
3653
3654 sub kiriwrite_page_multiedit{
3655 #################################################################################
3656 # kiriwrite_page_multiedit: Edit several pages from a database.                 #
3657 #                                                                               #
3658 # Usage:                                                                        #
3659 #                                                                               #
3660 # kiriwrite_page_multiedit(database, newsection, altersection, newtemplate,     #
3661 #                               altertemplate, newsettings, altersettings       #
3662 #                               confirm, filelist);                             #
3663 #                                                                               #
3664 # database      Specifies the database to edit the pages from.                  #
3665 # newsection    Specifies the new section name to use on the selected pages.    #
3666 # altersection  Specifies if the section name should be altered.                #
3667 # newtemplate   Specifies the new template filename to use on the selected      #
3668 #               pages.                                                          #
3669 # altertemplate Specifies if the template filename should be altered.           #
3670 # newsettings   Specifies the new settings to use on the selected pages.        #
3671 # altersettings Specifies if the settings should be altered.                    #
3672 # confirm       Confirms the action to edit the selected pages.                 #
3673 # filelist      The list of file names to edit.                                 #
3674 #################################################################################
3675
3676         # Get the values that were passed to the subroutine.
3677
3678         my ($database, $newsection, $altersection, $newtemplate, $altertemplate, $newsettings, $altersettings, $confirm, @filelist) = @_;
3679
3680         # Check if the file list is blank and return an error
3681         # if it is.
3682
3683         if (!@filelist){
3684
3685                 # The file list really is blank so return
3686                 # an error.
3687
3688                 kiriwrite_error("nopagesselected");
3689
3690         }
3691
3692         # Check if certain values are undefined and define them if
3693         # they are.
3694
3695         if (!$altersection){
3696
3697                 # The alter section value is blank, so set it to
3698                 # off.
3699
3700                 $altersection   = "off";
3701
3702         }
3703
3704         if (!$altertemplate){
3705
3706                 # The alter template value is blank, so set it to
3707                 # off.
3708
3709                 $altertemplate  = "off";
3710
3711         }
3712
3713         if (!$altersettings){
3714
3715                 # The alter settings value is blank, so set it to
3716                 # off.
3717
3718                 $altersettings  = "off";
3719
3720         }
3721
3722         # Check if the database filename is valid and return an error if
3723         # it isn't.
3724
3725         my $pagedatabase_filename_check = kiriwrite_variablecheck($database, "filename", 0, 1);
3726
3727         if ($pagedatabase_filename_check eq 1){
3728
3729                 # The database filename is blank, so return an error.
3730
3731                 kiriwrite_error("blankdatabasepageadd");
3732
3733         } elsif ($pagedatabase_filename_check eq 2){
3734
3735                 # The database filename is invalid, so return an error.
3736
3737                 kiriwrite_error("databasefilenameinvalid");
3738
3739         }
3740
3741         # Check if the confirm value is blank and if it is then
3742         # set the confirm value to 0.
3743
3744         if (!$confirm){
3745
3746                 $confirm = 0;
3747
3748         }
3749
3750         if ($confirm eq 1){
3751
3752                 # The action to edit the template has been confirmed so
3753                 # edit the selected pages.
3754
3755                 # Check the values recieved at UTF8 compliant before
3756                 # converting.
3757
3758                 kiriwrite_variablecheck($newsection, "utf8", 0, 0);
3759                 kiriwrite_variablecheck($newtemplate, "utf8", 0, 0);
3760                 kiriwrite_variablecheck($newsettings, "utf8", 0, 0);
3761
3762                 # Convert the values into proper UTF8 values.
3763
3764                 $newsection     = kiriwrite_utf8convert($newsection);
3765                 $newtemplate    = kiriwrite_utf8convert($newtemplate);
3766                 $newsettings    = kiriwrite_utf8convert($newsettings);
3767
3768                 # Check the length of the variables.
3769
3770                 kiriwrite_variablecheck($altersection, "maxlength", 3, 0);
3771                 kiriwrite_variablecheck($altertemplate, "maxlength", 3, 0);
3772                 kiriwrite_variablecheck($altersettings, "maxlength", 3, 0);
3773                 my $newsection_maxlength_check  = kiriwrite_variablecheck($newsection, "maxlength", 256, 1);
3774                 my $newtemplate_maxlength_check = kiriwrite_variablecheck($newtemplate, "maxlength", 256, 1);
3775                 my $newtemplate_filename_check  = kiriwrite_variablecheck($newtemplate, "filename", 0, 1);
3776                 my $newsettings_maxlength_check = kiriwrite_variablecheck($newsettings, "maxlength", 1, 1);
3777                 my $newsettings_settings_check  = kiriwrite_variablecheck($newsettings, "pagesetting", 0, 1);
3778
3779                 # Check the values and return an error if needed.
3780
3781                 if ($newsection_maxlength_check eq 1 && $altersection eq "on"){
3782
3783                         # The new section name is too long, so return an
3784                         # error.
3785
3786                         kiriwrite_error("pagesectiontoolong");
3787
3788                 }
3789
3790                 if ($newtemplate_maxlength_check eq 1 && $altertemplate eq "on"){
3791
3792                         # The new template name is too long, so return an
3793                         # error.
3794
3795                         kiriwrite_error("templatefilenametoolong");
3796
3797                 }
3798
3799                 # Check if the template filename is set to !skip or !none
3800                 # and skip this check if it is.
3801
3802                 if ($newtemplate eq "!skip" || $newtemplate eq "!none"){
3803
3804                         # Skip this check as the template filename is
3805                         # !skip or !none.
3806
3807                 } else {
3808                         if ($newtemplate_filename_check eq 1 && $altertemplate eq "on" || $newtemplate_filename_check eq 2 && $altertemplate eq "on"){
3809
3810                                 # The new template filename is invalid, so return
3811                                 # an error.
3812
3813                                 kiriwrite_error("templatefilenameinvalid");
3814
3815                         }
3816                 }
3817
3818                 if ($newsettings_maxlength_check eq 1 && $altertemplate eq "on"){
3819
3820                         # The new settings value is too long, so return
3821                         # an error.
3822
3823                         kiriwrite_error("pagesettingstoolong");
3824
3825                 }
3826
3827                 if ($newsettings_settings_check eq 1 && $altersettings eq "on"){
3828
3829                         # The new settings value is invalid, so return
3830                         # an error.
3831
3832                         kiriwrite_error("pagesettingsinvalid");
3833
3834                 }
3835
3836                 # Define some values for later.
3837
3838                 my %database_info;
3839                 my %edited_list;
3840                 my %warning_list;
3841                 my %page_info;
3842                 my $page;
3843                 my $warning;
3844                 my $filename;
3845                 my $page_name;
3846                 my $pagefound = 0;
3847                 my $pageedited = 0;
3848                 my $warning_count = 0;
3849
3850                 tie(%edited_list, 'Tie::IxHash');
3851                 tie(%warning_list, 'Tie::IxHash');
3852
3853                 # Check if the template filename is !skip and
3854                 # set the alter template value to off if it
3855                 # is.
3856
3857                 if ($newtemplate eq "!skip"){
3858
3859                         $altertemplate = "off";
3860
3861                 }
3862
3863                 # Check if all values are not selected and return
3864                 # an error if they are.
3865
3866                 if ($altersection ne "on" && $altertemplate ne "on" && $altersettings ne "on"){
3867
3868                         # All values are not selected so return
3869                         # an error.
3870
3871                         kiriwrite_error("noeditvaluesselected");
3872
3873                 }
3874
3875                 # Connect to the database server.
3876
3877                 $kiriwrite_dbmodule->connect();
3878
3879                 # Check if any errors occured while connecting to the database server.
3880
3881                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
3882
3883                         # A database connection error has occured so return
3884                         # an error.
3885
3886                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
3887
3888                 }
3889
3890                 # Select the database.
3891
3892                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
3893
3894                 # Check if any errors occured while selecting the database.
3895
3896                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
3897
3898                         # The database does not exist, so return an error.
3899
3900                         kiriwrite_error("databasemissingfile");
3901
3902                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
3903
3904                         # The database has invalid permissions set, so return
3905                         # an error.
3906
3907                         kiriwrite_error("databaseinvalidpermissions");
3908
3909                 }
3910
3911                 # Check if the database has read and write permissions.
3912
3913                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
3914
3915                 if ($database_permissions eq 1){
3916
3917                         # The database permissions are invalid so return an error.
3918
3919                         kiriwrite_error("databaseinvalidpermissions");
3920
3921                 }
3922
3923                 # Get information about the database.
3924
3925                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
3926
3927                 # Check if any errors had occured while getting the database
3928                 # information.
3929
3930                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3931
3932                         # A database error has occured so return an error and
3933                         # also the extended error information.
3934
3935                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
3936
3937                 };
3938
3939                 my $database_name = $database_info{"DatabaseName"};
3940
3941                 # Edit the selected pages.
3942
3943                 foreach $filename (@filelist){
3944
3945                         # Get the page information.
3946
3947                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filename });
3948
3949                         # Check if any errors occured.
3950
3951                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
3952
3953                                 # A database error has occured so write a warning message.
3954
3955                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
3956
3957                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
3958
3959                                 # The page does not exist, so write a warning message.
3960
3961                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepagedoesnotexist}, $filename);
3962                                 $warning_count++;
3963                                 next;
3964
3965                         }
3966
3967                         # Check if the page section should be altered.
3968
3969                         if ($altersection eq "on"){
3970
3971                                 # Change the section name.
3972
3973                                 $page_info{"PageSection"} = $newsection;
3974
3975                         }
3976
3977                         # Check if the page template should be altered.
3978
3979                         if ($altertemplate eq "on"){
3980
3981                                 # Change the page template filename.
3982
3983                                 $page_info{"PageTemplate"} = $newtemplate;
3984
3985                         }
3986
3987                         # Check if the page settings should be altered.
3988
3989                         if ($altersettings eq "on"){
3990
3991                                 # Change the page settings value.
3992
3993                                 $page_info{"PageSettings"} = $newsettings;
3994
3995                         }
3996
3997                         # Edit the selected page.
3998
3999                         $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"} });
4000
4001                         # Check if any errors occured while editing the page.
4002
4003                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4004
4005                                 # A database error has occured so write a warning message
4006                                 # with the extended error information.
4007
4008                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepageerror}, $filename, $kiriwrite_dbmodule->geterror(1));
4009                                 $warning_count++;
4010                                 next;
4011
4012                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
4013
4014                                 # The pages does not exist in the database.
4015
4016                                 $warning_list{$warning_count}{Message} = kiriwrite_language($kiriwrite_lang->{pages}->{databasepagedoesnotexist}, $filename);
4017                                 $warning_count++;
4018                                 next;
4019
4020                         } elsif ($kiriwrite_dbmodule->geterror eq "PageExists"){
4021
4022                                 # A page already exists with the new filename.
4023
4024                                 kiriwrite_error("pagefilenameexists");
4025
4026                         }
4027
4028                         # The page has been edited so write a message saying that the page
4029                         # has been edited.
4030
4031                         $edited_list{$pageedited}{Filename}     = $page_info{"PageFilename"};
4032                         $edited_list{$pageedited}{Name}         = $page_info{"PageName"};
4033
4034                         # Increment the counter of edited pages.
4035
4036                         $pageedited++;
4037
4038                 }
4039
4040                 # Disconnect from the database server.
4041
4042                 $kiriwrite_dbmodule->disconnect();
4043
4044                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{multiedit}, { Style => "pageheader" });
4045                 $kiriwrite_presmodule->addlinebreak();
4046                 $kiriwrite_presmodule->addlinebreak();
4047
4048                 # Check if the counter of edited pages is 0 and if it is
4049                 # then write a message saying that no pages were edited
4050                 # else write a message listing all of the pages edited.
4051
4052                 if ($pageedited eq 0){
4053
4054                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{nopagesedited}, $database_name));
4055
4056                 } else {
4057
4058                         # Write out the message saying that the selected pages
4059                         # were edited.
4060
4061                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{pagesedited}, $database_name));
4062                         $kiriwrite_presmodule->addlinebreak();
4063                         $kiriwrite_presmodule->addlinebreak();
4064                         $kiriwrite_presmodule->startbox("datalist");
4065
4066                         foreach $page (keys %edited_list){
4067
4068                                 # Check if the page name is not blank.
4069
4070                                 if (!$edited_list{$page}{Name}){
4071
4072                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
4073                                         $kiriwrite_presmodule->addtext(" (" . $edited_list{$page}{Filename} . ")");
4074
4075                                 } else {
4076
4077                                         $kiriwrite_presmodule->addtext($edited_list{$page}{Name});
4078                                         $kiriwrite_presmodule->addtext(" (" . $edited_list{$page}{Filename} . ")");
4079
4080                                 }
4081
4082                                 $kiriwrite_presmodule->addlinebreak();
4083                         }
4084
4085                         $kiriwrite_presmodule->endbox();
4086
4087                 }
4088
4089                 # Check if any warnings have occured and write a message
4090                 # if any warnings did occur.
4091
4092                 if (%warning_list){
4093
4094                         # One or several warnings have occured so
4095                         # write a message.
4096
4097                         $kiriwrite_presmodule->addlinebreak();
4098                         $kiriwrite_presmodule->addlinebreak();
4099                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{editedpageswarnings});
4100                         $kiriwrite_presmodule->addlinebreak();
4101                         $kiriwrite_presmodule->addlinebreak();
4102                         $kiriwrite_presmodule->startbox("datalist");
4103                         foreach $warning (keys %warning_list) {
4104                                 $kiriwrite_presmodule->addtext($warning_list{$warning}{Message});
4105                                 $kiriwrite_presmodule->addlinebreak();
4106                         }
4107                         $kiriwrite_presmodule->endbox();
4108
4109                 }
4110
4111                 # Write a link going back to the page list for
4112                 # the selected database.
4113
4114                 $kiriwrite_presmodule->addlinebreak();
4115                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
4116
4117                 return $kiriwrite_presmodule->grab();
4118
4119         } elsif ($confirm eq 0){
4120
4121                 # The action to edit the template has not been confirmed
4122                 # so write a form out instead.
4123
4124                 # Connect to the database server.
4125
4126                 $kiriwrite_dbmodule->connect();
4127
4128                 # Check if any errors occured while connecting to the database server.
4129
4130                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
4131
4132                         # A database connection error has occured so return
4133                         # an error.
4134
4135                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
4136
4137                 }
4138
4139                 # Select the database.
4140
4141                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
4142
4143                 # Check if any errors occured while selecting the database.
4144
4145                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
4146
4147                         # The database does not exist, so return an error.
4148
4149                         kiriwrite_error("databasemissingfile");
4150
4151                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
4152
4153                         # The database has invalid permissions set, so return
4154                         # an error.
4155
4156                         kiriwrite_error("databaseinvalidpermissions");
4157
4158                 }
4159
4160                 # Check if the database has read and write permissions.
4161
4162                 my $database_permissions = $kiriwrite_dbmodule->dbpermissions($database, 1, 1);
4163
4164                 if ($database_permissions eq 1){
4165
4166                         # The database permissions are invalid so return an error.
4167
4168                         kiriwrite_error("databaseinvalidpermissions");
4169
4170                 }
4171
4172                 # Get information about the database.
4173
4174                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
4175
4176                 # Check if any errors had occured while getting the database
4177                 # information.
4178
4179                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4180
4181                         # A database error has occured so return an error and
4182                         # also the extended error information.
4183
4184                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
4185
4186                 };
4187
4188                 my $database_name       = $database_info{"DatabaseName"};
4189
4190                 # Define some variables for later.
4191
4192                 my %edit_list;
4193                 my %template_list;
4194                 my %template_info;
4195                 my %page_info;
4196                 my @templates_list;
4197                 my @filenames;
4198                 my $filelist_filename;
4199                 my $filename;
4200                 my $page;
4201                 my $pageseek = 0;
4202                 my $page_name;
4203                 my $page_filename;
4204                 my $template;
4205                 my $template_filename;
4206                 my $template_warning;
4207                 my $templateseek = 0;
4208
4209                 tie(%edit_list, 'Tie::IxHash');
4210                 tie(%template_list, 'Tie::IxHash');
4211
4212                 # Get the information about each page that is going
4213                 # to be edited.
4214
4215                 foreach $filelist_filename (@filelist){
4216
4217                         %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $filelist_filename });
4218
4219                         # Check if any errors occured.
4220
4221                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4222
4223                                 # A database error has occured so return an error and
4224                                 # also the extended error information.
4225
4226                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
4227
4228                         } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
4229
4230                                 # The page does not exist, so process the next page.
4231
4232                                 next;
4233
4234                         }
4235
4236                         # Add the page name and file name to the list of
4237                         # pages to edit.
4238
4239                         $edit_list{$pageseek}{Filename} = $page_info{"PageFilename"};
4240                         $edit_list{$pageseek}{Name}     = $page_info{"PageName"};
4241
4242                         # Increment the page seek counter and reset the
4243                         # page found value.
4244
4245                         $pageseek++;
4246
4247                 }
4248
4249                 # Check if any pages were found in the database and return
4250                 # an error if not.
4251
4252                 if ($pageseek eq 0){
4253
4254                         # No pages were found so return an error.
4255
4256                         kiriwrite_error("nopagesselected");
4257
4258                 }
4259
4260                 # Connect to the template database.
4261
4262                 $kiriwrite_dbmodule->connecttemplate();
4263
4264                 # Check if any errors had occured.
4265
4266                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
4267
4268                         # The template database does not exist so write a warning
4269                         # message.
4270
4271                         $template_warning = $kiriwrite_lang->{pages}->{templatedatabasenotexistmultieditkeep};
4272
4273                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
4274
4275                         # The template database has invalid permissions set so
4276                         # return an error.
4277
4278                         $template_warning = $kiriwrite_lang->{pages}->{templatedatabasepermissionsinvalidmultieditkeep};
4279
4280                 }
4281
4282                 if (!$template_warning){
4283
4284                         # Get the list of templates available.
4285
4286                         @templates_list = $kiriwrite_dbmodule->gettemplatelist();
4287
4288                         # Check if any errors had occured.
4289
4290                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
4291
4292                                 # A database error occured while getting the list
4293                                 # of templates so write a warning message with the
4294                                 # extended error information.
4295
4296                                 $template_warning = kiriwrite_language($kiriwrite_lang->{pages}->{templatedatabaseerrormultieditkeep}, $kiriwrite_dbmodule->geterror(1));
4297
4298                         }
4299
4300                         if (!$template_warning){
4301
4302                                 foreach $template_filename (@templates_list){
4303
4304                                         # Get the template data.
4305
4306                                         %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template_filename });
4307
4308                                         # Check if any error occured while getting the template information.
4309
4310                                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
4311
4312                                                 # A database error has occured, so write a warning message with
4313                                                 # the extended error information.
4314
4315                                                 $template_warning = kiriwrite_language($kiriwrite_lang->{pages}->{templatedatabaseerrormultieditkeep}, $kiriwrite_dbmodule->geterror(1));
4316
4317                                         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
4318
4319                                                 # The template does not exist, so process the next page.
4320
4321                                                 next;
4322
4323                                         }
4324
4325                                         # Add the template to the list of templates.
4326
4327                                         $template_list{$templateseek}{Filename} = $template_info{"TemplateFilename"};
4328                                         $template_list{$templateseek}{Name}     = $template_info{"TemplateName"};
4329
4330                                         $templateseek++;
4331
4332                                 }
4333
4334                         }
4335
4336                 }
4337
4338                 # Disconnect from the template database.
4339
4340                 $kiriwrite_dbmodule->disconnecttemplate();
4341
4342                 # Disconnect from the database server.
4343
4344                 $kiriwrite_dbmodule->disconnect();
4345
4346                 # Write a form for editing the selected pages.
4347
4348                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{multiedit}, { Style => "pageheader" });
4349                 $kiriwrite_presmodule->addlinebreak();
4350                 $kiriwrite_presmodule->addlinebreak();
4351                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
4352                 $kiriwrite_presmodule->startbox();
4353                 $kiriwrite_presmodule->addhiddendata("mode", "page");
4354                 $kiriwrite_presmodule->addhiddendata("action", "multiedit");
4355                 $kiriwrite_presmodule->addhiddendata("database", $database);
4356                 $kiriwrite_presmodule->addhiddendata("count", $pageseek);
4357                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
4358
4359                 $pageseek = 1;
4360
4361                 foreach $page (keys %edit_list){
4362                         $kiriwrite_presmodule->addhiddendata("name[" . $pageseek . "]", "on");
4363                         $kiriwrite_presmodule->addhiddendata("id[" . $pageseek  . "]", $edit_list{$page}{Filename});
4364                         $pageseek++;
4365                 }
4366
4367                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{multieditmessage}, $database_name));
4368                 $kiriwrite_presmodule->addlinebreak();
4369                 $kiriwrite_presmodule->addlinebreak();
4370                 $kiriwrite_presmodule->startbox("datalist");
4371
4372                 foreach $page (keys %edit_list){
4373                         if (!$edit_list{$page}{Name}){
4374                                 $kiriwrite_presmodule->additalictext("No Name");
4375                                 $kiriwrite_presmodule->addtext(" (" . $edit_list{$page}{Filename} . ")");
4376                         } else {
4377                                 $kiriwrite_presmodule->addtext($edit_list{$page}{Name} . " (" . $edit_list{$page}{Filename} . ")");
4378                         }
4379
4380                         $kiriwrite_presmodule->addlinebreak();
4381                 }
4382
4383                 $kiriwrite_presmodule->endbox();
4384                 $kiriwrite_presmodule->addlinebreak();
4385                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{multieditmessagevalues});
4386                 $kiriwrite_presmodule->addlinebreak();
4387                 $kiriwrite_presmodule->addlinebreak();
4388                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
4389
4390                 $kiriwrite_presmodule->startheader();
4391                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{alter}, { Style => "tablecellheader" });
4392                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
4393                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
4394                 $kiriwrite_presmodule->endheader();
4395
4396                 $kiriwrite_presmodule->startrow();
4397                 $kiriwrite_presmodule->addcell("tablecell1");
4398                 $kiriwrite_presmodule->addcheckbox("altersection");
4399                 $kiriwrite_presmodule->endcell();
4400                 $kiriwrite_presmodule->addcell("tablecell1");
4401                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesection});
4402                 $kiriwrite_presmodule->endcell();
4403                 $kiriwrite_presmodule->addcell("tablecell1");
4404                 $kiriwrite_presmodule->addinputbox("newsection", { Size => 64, MaxLength => 256 });
4405                 $kiriwrite_presmodule->endcell();
4406                 $kiriwrite_presmodule->endrow();
4407
4408                 $kiriwrite_presmodule->startrow();
4409                 $kiriwrite_presmodule->addcell("tablecell2");
4410                 $kiriwrite_presmodule->addcheckbox("altertemplate");
4411                 $kiriwrite_presmodule->endcell();
4412                 $kiriwrite_presmodule->addcell("tablecell2");
4413                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagetemplate});
4414                 $kiriwrite_presmodule->endcell();
4415
4416                 $kiriwrite_presmodule->addcell("tablecell2");
4417
4418                 if ($template_warning){
4419
4420                         $kiriwrite_presmodule->addhiddendata("newtemplate", "!skip");
4421                         $kiriwrite_presmodule->addtext($template_warning);
4422
4423                 } else {
4424
4425                         $kiriwrite_presmodule->addselectbox("newtemplate");
4426
4427                         foreach $template (keys %template_list){
4428
4429                                 $kiriwrite_presmodule->addoption($template_list{$template}{Name} . " (" . $template_list{$template}{Filename} . ")", { Value => $template_list{$template}{Filename}});
4430
4431                         }
4432
4433                         $kiriwrite_presmodule->addoption($kiriwrite_lang->{pages}->{usenotemplate}, { Value => "!none", Selected => 1 });
4434                         $kiriwrite_presmodule->endselectbox();
4435                 }
4436
4437                 $kiriwrite_presmodule->endcell();
4438                 $kiriwrite_presmodule->endrow();
4439
4440                 $kiriwrite_presmodule->startrow();
4441                 $kiriwrite_presmodule->addcell("tablecell1");
4442                 $kiriwrite_presmodule->addcheckbox("altersettings");
4443                 $kiriwrite_presmodule->endcell();
4444                 $kiriwrite_presmodule->addcell("tablecell1");
4445                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{pagesettings});
4446                 $kiriwrite_presmodule->endcell();
4447                 $kiriwrite_presmodule->addcell("tablecell1");
4448                 $kiriwrite_presmodule->addradiobox("newsettings", { Description => $kiriwrite_lang->{pages}->{usepageandsection}, Value => 1 , Selected => 1});
4449                 $kiriwrite_presmodule->addlinebreak();
4450                 $kiriwrite_presmodule->addradiobox("newsettings", { Description => $kiriwrite_lang->{pages}->{usepagename}, Value => 2 });
4451                 $kiriwrite_presmodule->addlinebreak();
4452                 $kiriwrite_presmodule->addradiobox("newsettings", { Description => $kiriwrite_lang->{pages}->{usesectionname}, Value => 3 });
4453                 $kiriwrite_presmodule->addlinebreak();
4454                 $kiriwrite_presmodule->addradiobox("newsettings", { Description => $kiriwrite_lang->{pages}->{nopagesection}, Value => 0 });
4455                 $kiriwrite_presmodule->endcell();
4456                 $kiriwrite_presmodule->endrow();
4457
4458                 $kiriwrite_presmodule->endtable();
4459                 $kiriwrite_presmodule->addlinebreak();
4460                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{editpagesbutton});
4461                 $kiriwrite_presmodule->addtext(" | ");
4462                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{clearvalues});
4463                 $kiriwrite_presmodule->addtext(" | ");
4464                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database, { Text => kiriwrite_language($kiriwrite_lang->{pages}->{returnpagelist}, $database_name) });
4465                 $kiriwrite_presmodule->endbox();
4466                 $kiriwrite_presmodule->endform();
4467
4468                 return $kiriwrite_presmodule->grab();
4469
4470         } else {
4471
4472                 # The confirm value is something else other than
4473                 # 1 or 0, so return an error.
4474
4475                 kiriwrite_error("invalidvariable");
4476
4477         }
4478
4479 }
4480
4481 sub kiriwrite_page_list{
4482 #################################################################################
4483 # kiriwrite_page_list: Lists pages from an database.                            #
4484 #                                                                               #
4485 # Usage:                                                                        #
4486 #                                                                               #
4487 # kiriwrite_page_list([database]);                                              #
4488 #                                                                               #
4489 # database      Specifies the database to retrieve the pages from.              #
4490 #################################################################################
4491
4492         # Get the database file name from what was passed to the subroutine.
4493
4494         my ($database_file) = @_;
4495
4496         # Check if the database_file variable is empty, if it is then print out a
4497         # select box asking the user to select a database from the list.
4498
4499         if (!$database_file) {
4500
4501                 # Define the variables required for this section.
4502
4503                 my %database_info;
4504                 my @database_list;
4505                 my @databasefilenames;
4506                 my @databasenames;
4507                 my $dbseek              = 0;
4508                 my $dbfilename          = "";
4509                 my $dbname              = "";
4510                 my $data_file           = "";
4511                 my $data_file_length    = 0;
4512                 my $data_file_friendly  = "";
4513                 my $database_name       = "";
4514                 my $file_permissions    = "";
4515
4516                 # Connect to the database server.
4517
4518                 $kiriwrite_dbmodule->connect();
4519
4520                 # Check if any errors occured while connecting to the database server.
4521
4522                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
4523
4524                         # A database connection error has occured so return
4525                         # an error.
4526
4527                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
4528
4529                 }
4530
4531                 # Open the data directory and get all of the databases.
4532
4533                 @database_list  = $kiriwrite_dbmodule->getdblist();
4534
4535                 # Check if any errors occured while trying to get the list of databases.
4536
4537                 if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
4538
4539                         # The database directory is missing so return an error.
4540
4541                         kiriwrite_error("datadirectorymissing");
4542
4543                 } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
4544
4545                         # The database directory has invalid permissions set so return
4546                         # an error.
4547
4548                         kiriwrite_error("datadirectoryinvalidpermissions");
4549
4550                 }
4551
4552                 # Get the information about each database (the short name and friendly name).
4553
4554                 foreach $data_file (@database_list){
4555
4556                         $kiriwrite_dbmodule->selectdb({ DatabaseName => $data_file });
4557
4558                         # Check if any errors occured while selecting the database.
4559
4560                         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
4561
4562                                 # The database does not exist, so process the next
4563                                 # database.
4564
4565                                 next;
4566
4567                         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
4568
4569                                 # The database has invalid permissions set, so process
4570                                 # the next database.
4571
4572                                 next;
4573
4574                         }
4575
4576                         # Get the database information.
4577
4578                         %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
4579
4580                         # Check if any errors had occured while getting the database
4581                         # information.
4582
4583                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4584
4585                                 # A database error has occured, so process the next
4586                                 # database.
4587
4588                                 next;
4589
4590                         };
4591
4592                         # Set the database name.
4593
4594                         $database_name          = $database_info{"DatabaseName"};
4595
4596                         # Check if the database name is undefined and if it is
4597                         # then set it blank.
4598
4599                         if (!$database_name){
4600                                 $database_name = "";
4601                         }
4602
4603                         # Append the database to the list of databases available.
4604
4605                         push(@databasefilenames, $data_file);
4606                         push(@databasenames, $database_name);
4607
4608                 }
4609
4610                 # Disconnect from the database server.
4611
4612                 $kiriwrite_dbmodule->disconnect();
4613
4614                 # Write the page data.
4615
4616                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{viewpages}, { Style => "pageheader" });
4617                 $kiriwrite_presmodule->addlinebreak();
4618                 $kiriwrite_presmodule->addlinebreak();
4619                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{pages}->{nodatabaseselected});
4620                 $kiriwrite_presmodule->addlinebreak();
4621                 $kiriwrite_presmodule->addlinebreak();
4622                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"});
4623                 $kiriwrite_presmodule->startbox();
4624                 $kiriwrite_presmodule->addhiddendata("mode", "page");
4625                 $kiriwrite_presmodule->addhiddendata("action", "view");
4626                 $kiriwrite_presmodule->addselectbox("database");
4627                 foreach $dbfilename (@databasefilenames){
4628                         $dbname = $databasenames[$dbseek];
4629                         $dbseek++;
4630                         $kiriwrite_presmodule->addoption($dbname . " (" . $dbfilename . ")", { Value => $dbfilename });
4631                 }
4632                 $kiriwrite_presmodule->endselectbox();
4633                 $kiriwrite_presmodule->addtext(" | ");
4634                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{pages}->{viewbutton});
4635                 $kiriwrite_presmodule->endbox();
4636                 $kiriwrite_presmodule->endform();
4637
4638                 return $kiriwrite_presmodule->grab();
4639
4640         } else {
4641
4642                 my %database_info;
4643                 my %page_info;
4644                 my @database_pages;
4645                 my $pagemultioptions    = "";
4646                 my $db_name             = "";
4647                 my $tablestyle          = "";
4648
4649                 my $page_filename       = "";
4650                 my $page_name           = "";
4651                 my $page_description    = "";
4652                 my $page_modified       = "";
4653
4654                 my $tablestyletype      = 0;
4655                 my $page_count          = 0;
4656                 my $db_file_notblank    = 0;
4657
4658                 tie(%database_info, 'Tie::IxHash');
4659                 tie(%page_info, 'Tie::IxHash');
4660
4661                 # The database_file variable is not blank, so print out a list of pages from
4662                 # the selected database.
4663
4664                 # Preform a variable check on the database filename to make sure that it is
4665                 # valid before using it.
4666
4667                 kiriwrite_variablecheck($database_file, "filename", "", 0);
4668                 kiriwrite_variablecheck($database_file, "maxlength", 32, 0);
4669
4670                 # Connect to the database server.
4671
4672                 $kiriwrite_dbmodule->connect();
4673
4674                 # Check if any errors occured while connecting to the database server.
4675
4676                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
4677
4678                         # A database connection error has occured so return
4679                         # an error.
4680
4681                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
4682
4683                 }
4684
4685                 # Select the database.
4686
4687                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database_file });
4688
4689                 # Check if any errors had occured while selecting the database.
4690
4691                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
4692
4693                         # The database does not exist, so return an error.
4694
4695                         kiriwrite_error("databasemissingfile");
4696
4697                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
4698
4699                         # The database has invalid permissions set, so return
4700                         # an error.
4701
4702                         kiriwrite_error("databaseinvalidpermissions");
4703
4704                 }
4705
4706                 # Get information about the database.
4707
4708                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
4709
4710                 $db_name = $database_info{"DatabaseName"};
4711
4712                 # Check if any errors had occured while getting the database
4713                 # information.
4714
4715                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4716
4717                         # A database error has occured so return an error and
4718                         # also the extended error information.
4719
4720                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
4721
4722                 }
4723
4724                 # Get the list of pages.
4725
4726                 @database_pages = $kiriwrite_dbmodule->getpagelist();
4727
4728                 # Check if any errors had occured while getting the list of pages.
4729
4730                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4731
4732                         # A database error has occured so return an error and
4733                         # also the extended error information.
4734
4735                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
4736
4737                 }
4738
4739                 # Check if there are any page names in the database array.
4740
4741                 if (@database_pages){
4742
4743                         # Write the start of the page.
4744
4745                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{pagelist}, $db_name), { Style => "pageheader" });
4746                         $kiriwrite_presmodule->addlinebreak();
4747                         $kiriwrite_presmodule->addlinebreak();
4748                         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
4749                         $kiriwrite_presmodule->startbox();
4750                         $kiriwrite_presmodule->addhiddendata("mode", "page");
4751                         $kiriwrite_presmodule->addhiddendata("database", $database_file);
4752                         $kiriwrite_presmodule->addhiddendata("type", "multiple");
4753
4754                         # Write the list of multiple selection options.
4755
4756                         $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{selectnone});
4757                         $kiriwrite_presmodule->addtext(" | ");
4758                         $kiriwrite_presmodule->addbutton("action", { Value => "multidelete", Description => $kiriwrite_lang->{pages}->{deleteselectedbutton} });
4759                         $kiriwrite_presmodule->addtext(" | ");
4760                         $kiriwrite_presmodule->addbutton("action", { Value => "multimove", Description => $kiriwrite_lang->{pages}->{moveselectedbutton} });
4761                         $kiriwrite_presmodule->addtext(" | ");
4762                         $kiriwrite_presmodule->addbutton("action", { Value => "multicopy", Description => $kiriwrite_lang->{pages}->{copyselectedbutton} });
4763                         $kiriwrite_presmodule->addtext(" | ");
4764                         $kiriwrite_presmodule->addbutton("action", { Value => "multiedit", Description => $kiriwrite_lang->{pages}->{editselectedbutton} });
4765
4766                         $kiriwrite_presmodule->addlinebreak();
4767                         $kiriwrite_presmodule->addlinebreak();
4768                         $kiriwrite_presmodule->endbox();
4769
4770                         # Write the table header.
4771
4772                         $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
4773                         $kiriwrite_presmodule->startheader();
4774                         $kiriwrite_presmodule->addheader("", { Style => "tablecellheader" });
4775                         $kiriwrite_presmodule->addheader($kiriwrite_lang->{pages}->{pagefilename}, { Style => "tablecellheader" });
4776                         $kiriwrite_presmodule->addheader($kiriwrite_lang->{pages}->{pagename}, { Style => "tablecellheader" });
4777                         $kiriwrite_presmodule->addheader($kiriwrite_lang->{pages}->{pagedescription}, { Style => "tablecellheader" });
4778                         $kiriwrite_presmodule->addheader($kiriwrite_lang->{pages}->{lastmodified}, { Style => "tablecellheader" });
4779                         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{options}, { Style => "tablecellheader" });
4780                         $kiriwrite_presmodule->endheader();
4781
4782                         # Process each page filename and get the page information.
4783
4784                         foreach $page_filename (@database_pages){
4785
4786                                 %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page_filename, Reduced => 1 });
4787
4788                                 # Check if any errors have occured.
4789
4790                                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
4791
4792                                         # A database error has occured so return an error and
4793                                         # also the extended error information.
4794
4795                                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
4796
4797                                 } elsif ($kiriwrite_dbmodule->geterror eq "PageDoesNotExist"){
4798
4799                                         # The page does not exist, so process the next page.
4800
4801                                         next;
4802
4803                                 }
4804
4805                                 $page_count++;
4806
4807                                 $page_filename          = $page_info{"PageFilename"};
4808                                 $page_name              = $page_info{"PageName"};
4809                                 $page_description       = $page_info{"PageDescription"};
4810                                 $page_modified          = $page_info{"PageLastModified"};
4811
4812                                 # Set the table cell style.
4813
4814                                 if ($tablestyletype eq 0){
4815
4816                                         $tablestyle = "tablecell1";
4817                                         $tablestyletype = 1;
4818
4819                                 } else {
4820
4821                                         $tablestyle = "tablecell2";
4822                                         $tablestyletype = 0;
4823
4824                                 }
4825
4826                                 # Write out the row of data.
4827
4828                                 $kiriwrite_presmodule->startrow();
4829                                 $kiriwrite_presmodule->addcell($tablestyle);
4830                                 $kiriwrite_presmodule->addhiddendata("id[" . $page_count . "]", $page_filename);
4831                                 $kiriwrite_presmodule->addcheckbox("name[" . $page_count . "]");
4832                                 $kiriwrite_presmodule->endcell();
4833                                 $kiriwrite_presmodule->addcell($tablestyle);
4834                                 $kiriwrite_presmodule->addtext($page_filename);
4835                                 $kiriwrite_presmodule->endcell();
4836                                 $kiriwrite_presmodule->addcell($tablestyle);
4837
4838                                 if (!$page_name){
4839
4840                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
4841
4842                                 } else {
4843
4844                                         $kiriwrite_presmodule->addtext($page_name);
4845
4846                                 }
4847
4848                                 $kiriwrite_presmodule->endcell();
4849                                 $kiriwrite_presmodule->addcell($tablestyle);
4850
4851                                 if (!$page_description){
4852
4853                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{nodescription});
4854
4855                                 } else {
4856
4857                                         $kiriwrite_presmodule->addtext($page_description);
4858
4859                                 }
4860
4861                                 $kiriwrite_presmodule->endcell();
4862                                 $kiriwrite_presmodule->addcell($tablestyle);
4863
4864                                 if (!$page_modified){
4865
4866                                         $kiriwrite_presmodule->additalictext("No Date");
4867
4868                                 } else {
4869
4870                                         $kiriwrite_presmodule->addtext($page_modified);
4871
4872                                 }
4873
4874                                 $kiriwrite_presmodule->endcell();
4875                                 $kiriwrite_presmodule->addcell($tablestyle);
4876                                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"}  . "?mode=page&action=edit&database=" . $database_file . "&page=" . $page_filename, { Text => $kiriwrite_lang->{options}->{edit} });
4877                                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"}  . "?mode=page&action=delete&database=" . $database_file . "&page=" . $page_filename, { Text => $kiriwrite_lang->{options}->{delete} });
4878                                 $kiriwrite_presmodule->endcell();
4879                                 $kiriwrite_presmodule->endrow();
4880
4881                                 # Increment the counter.
4882
4883                         }
4884
4885                 }
4886
4887                 # Disconnect from the database server.
4888
4889                 $kiriwrite_dbmodule->disconnect();
4890
4891                 $kiriwrite_presmodule->endtable();
4892                 $kiriwrite_presmodule->startbox();
4893                 $kiriwrite_presmodule->addhiddendata("count", $page_count);
4894                 $kiriwrite_presmodule->endbox();
4895                 $kiriwrite_presmodule->endform();
4896
4897                 if (!@database_pages || !$page_count){
4898
4899                         # There were no values in the database pages array and
4900                         # the page count had not been incremented so write a
4901                         # message saying that there were no pages in the
4902                         # database.
4903
4904                         $kiriwrite_presmodule->clear();
4905                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{pages}->{pagelist}, $db_name), { Style => "pageheader" });
4906                         $kiriwrite_presmodule->addlinebreak();
4907                         $kiriwrite_presmodule->addlinebreak();
4908                         $kiriwrite_presmodule->startbox("errorbox");
4909                         $kiriwrite_presmodule->enterdata($kiriwrite_lang->{pages}->{nopagesindatabase});
4910                         $kiriwrite_presmodule->endbox();
4911
4912                 }
4913
4914                 return $kiriwrite_presmodule->grab();
4915
4916         }
4917
4918 }
4919
4920 sub kiriwrite_template_add{
4921 #################################################################################
4922 # kiriwrite_template_add: Add a template to the template folder                 #
4923 #                                                                               #
4924 # Usage:                                                                        #
4925 #                                                                               #
4926 # kiriwrite_template_add(filename, name, description, layout, confirm);         #
4927 #                                                                               #
4928 # filename      The filename of the new template.                               #
4929 # name          The name of the template.                                       #
4930 # description   The description of the template.                                #
4931 # layout        The layout of the new template.                                 #
4932 # confirm       Confirm the action of creating a new template.                  #
4933 #################################################################################
4934
4935         # Get the variables that were passed to the subroutine.
4936
4937         my ($templatefilename, $templatename, $templatedescription, $templatelayout, $confirm) = @_;
4938
4939         # Check if the confirm value is blank and if it is then set confirm to 0.
4940
4941         if (!$confirm){
4942
4943                 # The confirm value is blank, so set the value of confirm to 0.
4944
4945                 $confirm = 0;
4946
4947         }
4948
4949         if ($confirm eq 1){
4950
4951                 # Check (validate) each of the values.
4952
4953                 kiriwrite_variablecheck($templatename, "utf8", 0, 0);
4954                 kiriwrite_variablecheck($templatedescription, "utf8", 0, 0);
4955                 kiriwrite_variablecheck($templatelayout, "utf8", 0, 0);
4956
4957                 # Convert the values into proper UTF8 strings that can be used.
4958
4959                 $templatename           = kiriwrite_utf8convert($templatename);
4960                 $templatedescription    = kiriwrite_utf8convert($templatedescription);
4961                 $templatelayout         = kiriwrite_utf8convert($templatelayout);
4962
4963                 # Check the length of the converted UTF8 strings.
4964
4965                 my $templatefilename_length_check       = kiriwrite_variablecheck($templatefilename, "maxlength", 64, 1);
4966                 my $templatename_length_check           = kiriwrite_variablecheck($templatename, "maxlength", 512, 1);
4967                 my $templatedescription_length_check    = kiriwrite_variablecheck($templatedescription, "maxlength", 512, 1);
4968                 kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
4969
4970                 if ($templatefilename_length_check eq 1){
4971
4972                         # The template filename length is too long, so return an error.
4973
4974                         kiriwrite_error("templatefilenametoolong");
4975
4976                 }
4977
4978                 if ($templatename_length_check eq 1){
4979
4980                         # The template name length is too long, so return an error.
4981
4982                         kiriwrite_error("templatenametoolong");
4983
4984                 }
4985
4986
4987                 if ($templatedescription_length_check eq 1){
4988
4989                         # The template description length is too long, so return an error.
4990
4991                         kiriwrite_error("templatedescriptiontoolong");
4992
4993                 }
4994
4995                 # Check if the filename specified is a valid filename.
4996
4997                 kiriwrite_variablecheck($templatefilename, "filename", "", 0);
4998
4999                 # Connect to the template server.
5000
5001                 $kiriwrite_dbmodule->connect();
5002
5003                 # Connect to the template database.
5004
5005                 $kiriwrite_dbmodule->connecttemplate(1);
5006
5007                 # Check if any errors had occured.
5008
5009                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5010
5011                         # The template database has invalid permissions set so
5012                         # return an error.
5013
5014                         kiriwrite_error("templatedatabaseinvalidpermissions");
5015
5016                 }
5017
5018                 $kiriwrite_dbmodule->addtemplate({ TemplateFilename => $templatefilename, TemplateName => $templatename, TemplateDescription => $templatedescription, TemplateLayout => $templatelayout });
5019
5020                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5021
5022                         # A database error has occured so return an error along
5023                         # with the extended error information.
5024
5025                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5026
5027                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5028
5029                         # The template database has invalid permissions set so return
5030                         # an error.
5031
5032                         kiriwrite_error("templatedatabaseinvalidpermissions");
5033
5034                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplatePageExists"){
5035
5036                         # The template page already exists so return an error.
5037
5038                         kiriwrite_error("templatefilenameexists");
5039
5040                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseUncreateable"){
5041
5042                         # The template databases is uncreatable so return an error.
5043
5044                         kiriwrite_error("templatedatabasenotcreated");
5045
5046                 }
5047
5048                 $kiriwrite_dbmodule->disconnecttemplate();
5049
5050                 # Disconnect from the template server.
5051
5052                 $kiriwrite_dbmodule->disconnect();
5053
5054                 # Print out the confirmation message.
5055
5056                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{addedtemplate}, { Style => "pageheader" });
5057                 $kiriwrite_presmodule->addlinebreak();
5058                 $kiriwrite_presmodule->addlinebreak();
5059                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{template}->{addedtemplatemessage}, $templatename));
5060                 $kiriwrite_presmodule->addlinebreak();
5061                 $kiriwrite_presmodule->addlinebreak();
5062                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template", { Text => $kiriwrite_lang->{template}->{returntemplatelist} });
5063                 return $kiriwrite_presmodule->grab();
5064
5065         } else {
5066                 # No confirmation was made, so print out a form for adding a template.
5067
5068                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{addtemplate}, { Style => "pageheader" });
5069                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
5070                 $kiriwrite_presmodule->startbox();
5071                 $kiriwrite_presmodule->addhiddendata("mode", "template");
5072                 $kiriwrite_presmodule->addhiddendata("action", "add");
5073                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
5074                 $kiriwrite_presmodule->addlinebreak();
5075                 $kiriwrite_presmodule->starttable("", { CellSpacing => 0, CellPadding => 5 });
5076
5077                 $kiriwrite_presmodule->startheader();
5078                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
5079                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
5080                 $kiriwrite_presmodule->endheader();
5081
5082                 $kiriwrite_presmodule->startrow();
5083                 $kiriwrite_presmodule->addcell("tablecell1");
5084                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatename});
5085                 $kiriwrite_presmodule->endcell();
5086                 $kiriwrite_presmodule->addcell("tablecell2");
5087                 $kiriwrite_presmodule->addinputbox("templatename", { Size => 64, MaxLength => 512 });
5088                 $kiriwrite_presmodule->endcell();
5089                 $kiriwrite_presmodule->endrow();
5090
5091                 $kiriwrite_presmodule->startrow();
5092                 $kiriwrite_presmodule->addcell("tablecell1");
5093                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatedescription});
5094                 $kiriwrite_presmodule->endcell();
5095                 $kiriwrite_presmodule->addcell("tablecell2");
5096                 $kiriwrite_presmodule->addinputbox("templatedescription", { Size => 64, MaxLength => 512 });
5097                 $kiriwrite_presmodule->endcell();
5098                 $kiriwrite_presmodule->endrow();
5099
5100                 $kiriwrite_presmodule->startrow();
5101                 $kiriwrite_presmodule->addcell("tablecell1");
5102                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatefilename});
5103                 $kiriwrite_presmodule->endcell();
5104                 $kiriwrite_presmodule->addcell("tablecell2");
5105                 $kiriwrite_presmodule->addinputbox("templatefilename", { Size => 32, MaxLength => 64 });
5106                 $kiriwrite_presmodule->endcell();
5107                 $kiriwrite_presmodule->endrow();
5108
5109                 $kiriwrite_presmodule->startrow();
5110                 $kiriwrite_presmodule->addcell("tablecell1");
5111                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatelayout});
5112                 $kiriwrite_presmodule->endcell();
5113                 $kiriwrite_presmodule->addcell("tablecell2");
5114                 $kiriwrite_presmodule->addtextbox("templatelayout", { Columns => 50, Rows => 10 });
5115                 $kiriwrite_presmodule->addlinebreak();
5116                 $kiriwrite_presmodule->addlinebreak();
5117                 $kiriwrite_presmodule->startbox("datalist");
5118                 $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{common}->{tags});
5119                 $kiriwrite_presmodule->addlinebreak();
5120                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagecontent});
5121                 $kiriwrite_presmodule->addlinebreak();
5122                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagetitle});
5123                 $kiriwrite_presmodule->addlinebreak();
5124                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagename});
5125                 $kiriwrite_presmodule->addlinebreak();
5126                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagedescription});
5127                 $kiriwrite_presmodule->addlinebreak();
5128                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagesection});
5129                 $kiriwrite_presmodule->addlinebreak();
5130                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautosection});
5131                 $kiriwrite_presmodule->addlinebreak();
5132                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautotitle});
5133                 $kiriwrite_presmodule->addlinebreak();
5134                 $kiriwrite_presmodule->endbox();
5135                 $kiriwrite_presmodule->endcell();
5136                 $kiriwrite_presmodule->endrow();
5137                 $kiriwrite_presmodule->endtable();
5138
5139                 $kiriwrite_presmodule->addlinebreak();
5140                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{template}->{addtemplatebutton});
5141                 $kiriwrite_presmodule->addtext(" | ");
5142                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{clearvalues});
5143                 $kiriwrite_presmodule->addtext(" | ");
5144                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template" , { Text => $kiriwrite_lang->{template}->{returntemplatelist} });
5145
5146                 $kiriwrite_presmodule->endbox();
5147                 $kiriwrite_presmodule->endform();
5148
5149                 return $kiriwrite_presmodule->grab();
5150
5151         }
5152
5153
5154 }
5155
5156 sub kiriwrite_template_edit{
5157 #################################################################################
5158 # kiriwrite_template_edit: Edit a template from the template folder.            #
5159 #                                                                               #
5160 # Usage:                                                                        #
5161 #                                                                               #
5162 # kiriwrite_template_edit(filename, [newfilename], [newname], [newdescription], #
5163 #                               [templatelayout], [confirm]);                   #
5164 #                                                                               #
5165 # filename              The current filename of the template to edit.           #
5166 # newfilename           The new filename of the template to edit.               #
5167 # newname               The new name of the template being edited.              #
5168 # newdescription        The new description of the template being edited.       #
5169 # templatelayout        The modified/altered template layout.                   #
5170 # confirm               Confirms the action to edit a template and its          #
5171 #                       settings.                                               #
5172 #################################################################################
5173
5174         # Get all the variables that have been passed to the subroutine.
5175
5176         my ($templatefilename, $templatenewfilename, $templatenewname, $templatenewdescription, $templatelayout, $confirm) = @_;
5177
5178         # Check if the confirm variable is blank, if it is then
5179         # set confirm to '0'
5180
5181         if (!$confirm){
5182
5183                 # confirm is uninitalised/blank, so set the value of confirm
5184                 # to '0'
5185
5186                 $confirm = 0;
5187
5188         }
5189
5190         # Check if the template filename is blank and if it is, then return
5191         # an error.
5192
5193         if (!$templatefilename){
5194
5195                 kiriwrite_error("templatefilenameblank");
5196
5197         }
5198
5199         # Connect to the database server.
5200
5201         $kiriwrite_dbmodule->connect();
5202
5203         # Check if any errors occured while connecting to the database server.
5204
5205         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
5206
5207                 # A database connection error has occured so return
5208                 # an error.
5209
5210                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
5211
5212         }
5213
5214         if ($confirm eq 1){
5215
5216                 # Check certain strings to see if they UTF8 compiliant.
5217
5218                 kiriwrite_variablecheck($templatenewname, "utf8", 0, 0);
5219                 kiriwrite_variablecheck($templatenewdescription, "utf8", 0, 0);
5220                 kiriwrite_variablecheck($templatelayout, "utf8", 0, 0);
5221
5222                 # Convert the values into proper UTF8 strings.
5223
5224                 $templatenewname        = kiriwrite_utf8convert($templatenewname);
5225                 $templatenewdescription = kiriwrite_utf8convert($templatenewdescription);
5226                 $templatelayout         = kiriwrite_utf8convert($templatelayout);
5227
5228                 # Check if the filenames recieved are valid filenames.
5229
5230                 kiriwrite_variablecheck($templatenewfilename, "maxlength", 64, 0);
5231                 kiriwrite_variablecheck($templatenewdescription, "maxlength", 512, 0);
5232                 kiriwrite_variablecheck($templatenewname, "maxlength", 512, 0);
5233                 kiriwrite_variablecheck($templatefilename, "maxlength", 64, 0);
5234                 kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
5235
5236                 kiriwrite_variablecheck($templatefilename, "filename", "", 0);
5237                 kiriwrite_variablecheck($templatenewfilename, "filename", "", 0);
5238
5239                 # Connect to the template database.
5240
5241                 $kiriwrite_dbmodule->connecttemplate();
5242
5243                 # Check if any errors had occured.
5244
5245                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5246
5247                         # The template database has invalid permissions set so
5248                         # return an error.
5249
5250                         kiriwrite_error("templatedatabaseinvalidpermissions");
5251
5252                 }
5253
5254                 # Edit the template.
5255
5256                 $kiriwrite_dbmodule->edittemplate({ TemplateFilename => $templatefilename, NewTemplateFilename => $templatenewfilename, NewTemplateName => $templatenewname, NewTemplateDescription => $templatenewdescription, NewTemplateLayout => $templatelayout });
5257
5258                 # Check if any error occured while editing the template.
5259
5260                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5261
5262                         # A database error has occured, so return an error.
5263
5264                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5265
5266                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5267
5268                         # The template database has invalid permissions set so return
5269                         # an error.
5270
5271                         kiriwrite_error("templatedatabaseinvalidpermissions");
5272
5273                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5274
5275                         # The template does not exist, so process the next template.
5276
5277                         kiriwrite_error("templatedoesnotexist");
5278
5279                 }
5280
5281                 # Disconnect from the database server.
5282
5283                 $kiriwrite_dbmodule->disconnect();
5284
5285                 # Disconnect from the template database.
5286
5287                 $kiriwrite_dbmodule->disconnecttemplate();
5288
5289                 # Append a link so that the user can return to the templates list.
5290
5291                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{editedtemplate}, { Style => "pageheader" });
5292                 $kiriwrite_presmodule->addlinebreak();
5293                 $kiriwrite_presmodule->addlinebreak();
5294                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{template}->{editedtemplatemessage}, $templatenewname));
5295                 $kiriwrite_presmodule->addlinebreak();
5296                 $kiriwrite_presmodule->addlinebreak();
5297                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template", { Text => $kiriwrite_lang->{template}->{returntemplatelist} });
5298
5299         } else {
5300
5301                 # Connect to the template database.
5302
5303                 $kiriwrite_dbmodule->connecttemplate();
5304
5305                 # Check if any errors had occured.
5306
5307                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5308
5309                         # The template database has invalid permissions set so
5310                         # return an error.
5311
5312                         kiriwrite_error("templatedatabaseinvalidpermissions");
5313
5314                 }
5315
5316                 # Get the template information.
5317
5318                 my %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $templatefilename });
5319
5320                 # Check if any error occured while getting the template information.
5321
5322                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5323
5324                         # A database error has occured, so return an error.
5325
5326                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5327
5328                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5329
5330                         # The template does not exist, so return an error.
5331
5332                         kiriwrite_error("templatedoesnotexist");
5333
5334                 }
5335
5336                 # Disconnect from the template database.
5337
5338                 $kiriwrite_dbmodule->disconnecttemplate();
5339
5340                 # Get the values from the query results.
5341
5342                 my $template_filename           = $template_info{"TemplateFilename"};
5343                 my $template_name               = $template_info{"TemplateName"};
5344                 my $template_description        = $template_info{"TemplateDescription"};
5345                 my $template_layout             = $template_info{"TemplateLayout"};
5346                 my $template_modified           = $template_info{"TemplateLastModified"};
5347
5348                 # Check if the values are undefined and set them blank
5349                 # if they are.
5350
5351                 if (!$template_name){
5352                         $template_name = "";
5353                 }
5354
5355                 if (!$template_description){
5356                         $template_description = "";
5357                 }
5358
5359                 if (!$template_layout){
5360                         $template_layout = "";
5361                 }
5362
5363                 # Write out the form for editing an template with the current template
5364                 # settings put into the correct place.
5365
5366                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{edittemplate}, { Style => "pageheader" });
5367                 $kiriwrite_presmodule->addlinebreak();
5368                 $kiriwrite_presmodule->addlinebreak();
5369                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
5370                 $kiriwrite_presmodule->startbox();
5371                 $kiriwrite_presmodule->addhiddendata("mode", "template");
5372                 $kiriwrite_presmodule->addhiddendata("action", "edit");
5373                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
5374                 $kiriwrite_presmodule->addhiddendata("template", $template_filename);
5375                 $kiriwrite_presmodule->starttable("", { CellSpacing => 0, CellPadding => 5});
5376
5377                 $kiriwrite_presmodule->startheader();
5378                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
5379                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
5380                 $kiriwrite_presmodule->endheader();
5381
5382                 $kiriwrite_presmodule->startrow();
5383                 $kiriwrite_presmodule->addcell("tablecell1");
5384                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatename});
5385                 $kiriwrite_presmodule->endcell();
5386                 $kiriwrite_presmodule->addcell("tablecell2");
5387                 $kiriwrite_presmodule->addinputbox("newname", { Size => 64, MaxLength => 512, Value => $template_name });
5388                 $kiriwrite_presmodule->endcell();
5389                 $kiriwrite_presmodule->endrow();
5390
5391                 $kiriwrite_presmodule->startrow();
5392                 $kiriwrite_presmodule->addcell("tablecell1");
5393                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatedescription});
5394                 $kiriwrite_presmodule->endcell();
5395                 $kiriwrite_presmodule->addcell("tablecell2");
5396                 $kiriwrite_presmodule->addinputbox("newdescription", { Size => 64, MaxLength => 512, Value => $template_description });
5397                 $kiriwrite_presmodule->endcell();
5398                 $kiriwrite_presmodule->endrow();
5399
5400                 $kiriwrite_presmodule->startrow();
5401                 $kiriwrite_presmodule->addcell("tablecell1");
5402                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatefilename});
5403                 $kiriwrite_presmodule->endcell();
5404                 $kiriwrite_presmodule->addcell("tablecell2");
5405                 $kiriwrite_presmodule->addinputbox("newfilename", { Size => 32, MaxLength => 64, Value => $template_filename });
5406                 $kiriwrite_presmodule->endcell();
5407                 $kiriwrite_presmodule->endrow();
5408
5409                 $kiriwrite_presmodule->startrow();
5410                 $kiriwrite_presmodule->addcell("tablecell1");
5411                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{templatelayout});
5412                 $kiriwrite_presmodule->endcell();
5413                 $kiriwrite_presmodule->addcell("tablecell2");
5414                 $kiriwrite_presmodule->addtextbox("newlayout", { Rows => 10, Columns => 50, Value => $template_layout});
5415                 $kiriwrite_presmodule->addlinebreak();
5416                 $kiriwrite_presmodule->addlinebreak();
5417                 $kiriwrite_presmodule->startbox("datalist");
5418                 $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{common}->{tags});
5419                 $kiriwrite_presmodule->addlinebreak();
5420                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagecontent});
5421                 $kiriwrite_presmodule->addlinebreak();
5422                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagetitle});
5423                 $kiriwrite_presmodule->addlinebreak();
5424                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagename});
5425                 $kiriwrite_presmodule->addlinebreak();
5426                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagedescription});
5427                 $kiriwrite_presmodule->addlinebreak();
5428                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pagesection});
5429                 $kiriwrite_presmodule->addlinebreak();
5430                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautosection});
5431                 $kiriwrite_presmodule->addlinebreak();
5432                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{common}->{pageautotitle});
5433                 $kiriwrite_presmodule->addlinebreak();
5434                 $kiriwrite_presmodule->endbox();
5435                 $kiriwrite_presmodule->endcell();
5436                 $kiriwrite_presmodule->endrow();
5437
5438                 $kiriwrite_presmodule->endtable();
5439
5440                 $kiriwrite_presmodule->addlinebreak();
5441
5442                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{template}->{edittemplatebutton});
5443                 $kiriwrite_presmodule->addtext(" | ");
5444                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{restorecurrent});
5445                 $kiriwrite_presmodule->addtext(" | ");
5446                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template", { Text => $kiriwrite_lang->{template}->{returntemplatelist} });
5447
5448                 $kiriwrite_presmodule->endbox();
5449                 $kiriwrite_presmodule->endform();
5450
5451         }
5452
5453         # Disconnect from the database server.
5454
5455         $kiriwrite_dbmodule->disconnect();
5456
5457         return $kiriwrite_presmodule->grab();
5458
5459 }
5460
5461 sub kiriwrite_template_delete{
5462 #################################################################################
5463 # kiriwrite_template_delete: Delete a template from the template folder.        #
5464 #                                                                               #
5465 # Usage:                                                                        #
5466 #                                                                               #
5467 # kiriwrite_template_delete(filename, confirm);                                 #
5468 #                                                                               #
5469 # filename      Specifies the filename of the database to delete.               #
5470 # confirm       Confirms the action to delete a template.                       #
5471 #################################################################################
5472
5473         # Get the parameters that were passed to the subroutine.
5474
5475         my ($template_filename, $template_confirm) = @_;
5476
5477         if (!$template_confirm){
5478                 $template_confirm = 0;
5479         }
5480
5481         # Check the length of the variables.
5482         kiriwrite_variablecheck($template_filename, "maxlength", 64, 0);
5483         kiriwrite_variablecheck($template_confirm, "maxlength", 1, 0);
5484
5485         # Check if the template_name string is blank and if it is then
5486         # return an error (as the template_name string should not be
5487         # blank.
5488
5489         if (!$template_filename){
5490
5491                 # The template_filename string really is blank,
5492                 # so return an error saying that an empty
5493                 # filename was passed (to the subroutine).
5494
5495                 kiriwrite_error("templatefilenameblank");
5496
5497         }
5498
5499         # Check if the template_confirm string is blank and if it is, write
5500         # out a form asking the user to confirm the deletion.
5501
5502         if ($template_confirm eq 1){
5503
5504                 # The action to delete the template from the template database has
5505                 # been confirmed so delete the template.
5506
5507                 # Connect to the database server.
5508
5509                 $kiriwrite_dbmodule->connect();
5510
5511                 # Check if any errors occured while connecting to the database server.
5512
5513                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
5514
5515                         # A database connection error has occured so return
5516                         # an error.
5517
5518                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
5519
5520                 }
5521
5522                 # Check if the template database exists and the file permissions
5523                 # are valid and return an error if they aren't.
5524
5525                 $kiriwrite_dbmodule->connecttemplate();
5526
5527                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
5528
5529                         # The template database does not exist so write a warning
5530                         # message.
5531
5532                         kiriwrite_error("templatedatabasemissing");
5533
5534                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5535
5536                         # The template database has invalid permissions set so
5537                         # return an error.
5538
5539                         kiriwrite_error("templatedatabaseinvalidpermissions");
5540
5541                 }
5542
5543                 my %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template_filename });
5544
5545                 # Check if any error occured while getting the template information.
5546
5547                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5548
5549                         # A database error has occured, so return an error.
5550
5551                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5552
5553                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5554
5555                         # The template does not exist, so return an error.
5556
5557                         kiriwrite_error("templatedoesnotexist");
5558
5559                 }
5560
5561                 # Delete the selected template.
5562
5563                 $kiriwrite_dbmodule->deletetemplate({ TemplateFilename => $template_filename });
5564
5565                 # Check if any error occured while deleting the template.
5566
5567                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5568
5569                         # A database error has occured, so return an error.
5570
5571                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5572
5573                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5574
5575                         # The template does not exist, so process the next template.
5576
5577                         kiriwrite_error("templatedoesnotexist");
5578
5579                 }
5580
5581                 $kiriwrite_dbmodule->disconnecttemplate();
5582
5583                 # Get the deleted database name.
5584
5585                 my $database_template_name = $template_info{"TemplateName"};
5586
5587                 # Disconnect from the database server.
5588
5589                 $kiriwrite_dbmodule->disconnect();
5590
5591                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{deletedtemplate}, { Style => "pageheader" });
5592                 $kiriwrite_presmodule->addlinebreak();
5593                 $kiriwrite_presmodule->addlinebreak();
5594                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{template}->{deletedtemplatemessage}, $database_template_name) );
5595                 $kiriwrite_presmodule->addlinebreak();
5596                 $kiriwrite_presmodule->addlinebreak();
5597                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template", { Text => $kiriwrite_lang->{template}->{returntemplatelist} });
5598
5599                 return $kiriwrite_presmodule->grab();
5600
5601         } elsif ($template_confirm eq 0) {
5602
5603                 # The template confirm value is 0 (previously blank and then set to 0), so
5604                 # write out a form asking the user to confirm the deletion of the template.
5605
5606                 # Connect to the database server.
5607
5608                 $kiriwrite_dbmodule->connect();
5609
5610                 # Check if any errors occured while connecting to the database server.
5611
5612                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
5613
5614                         # A database connection error has occured so return
5615                         # an error.
5616
5617                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
5618
5619                 }
5620
5621                 # Connect to the template database.
5622
5623                 $kiriwrite_dbmodule->connecttemplate();
5624
5625                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
5626
5627                         # The template database does not exist so write a warning
5628                         # message.
5629
5630                         kiriwrite_error("templatedatabasemissing");
5631
5632                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5633
5634                         # The template database has invalid permissions set so
5635                         # return an error.
5636
5637                         kiriwrite_error("templatedatabaseinvalidpermissions");
5638
5639                 }
5640
5641                 my %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template_filename });
5642
5643                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5644
5645                         # A database error has occured, so return an error.
5646
5647                         kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5648
5649                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5650
5651                         # The template does not exist, so return an error.
5652
5653                         kiriwrite_error("templatedoesnotexist");
5654
5655                 }
5656
5657                 my $template_data_filename      = $template_info{"TemplateFilename"};
5658                 my $template_data_name          = $template_info{"TemplateName"};
5659
5660                 $kiriwrite_dbmodule->disconnecttemplate();
5661
5662                 # Disconnect from the database server.
5663
5664                 $kiriwrite_dbmodule->disconnect();
5665
5666                 # Write out the confirmation form.
5667
5668                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{deletetemplate}, { Style => "pageheader" });
5669                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
5670                 $kiriwrite_presmodule->startbox();
5671                 $kiriwrite_presmodule->addhiddendata("mode", "template");
5672                 $kiriwrite_presmodule->addhiddendata("template", $template_filename);
5673                 $kiriwrite_presmodule->addhiddendata("action", "delete");
5674                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
5675                 $kiriwrite_presmodule->addlinebreak();
5676                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{template}->{deletetemplatemessage}, $template_data_name, $template_data_filename));
5677                 $kiriwrite_presmodule->addlinebreak();
5678                 $kiriwrite_presmodule->addlinebreak();
5679                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{template}->{deletetemplatebutton});
5680                 $kiriwrite_presmodule->addtext(" | ");
5681                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template", { Text => $kiriwrite_lang->{template}->{deletetemplatereturntolist} });
5682                 $kiriwrite_presmodule->endbox();
5683                 $kiriwrite_presmodule->endform();
5684
5685                 return $kiriwrite_presmodule->grab();
5686
5687         } else {
5688
5689                         kiriwrite_error("invalidvariable");
5690
5691         }
5692
5693 }
5694
5695 sub kiriwrite_template_list{
5696 #################################################################################
5697 # kiriwrite_template_list: List the templates in the template folder.           #
5698 #                                                                               #
5699 # Usage:                                                                        #
5700 #                                                                               #
5701 # kiriwrite_template_list();                                                    #
5702 #################################################################################
5703
5704         # Define certain values for later.
5705
5706         my %template_info;
5707
5708         my @templates_list;
5709
5710         my $template;
5711         my $template_filename           = "";
5712         my $template_filename_list      = "";
5713         my $template_name               = "";
5714         my $template_description        = "";
5715         my $template_data               = "";
5716
5717         my $template_count = 0;
5718
5719         my $template_style = 0;
5720         my $template_stylename = "";
5721
5722         my $templatewarning = "";
5723
5724         # Connect to the database server.
5725
5726         $kiriwrite_dbmodule->connect();
5727
5728         # Check if any errors occured while connecting to the database server.
5729
5730         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
5731
5732                 # A database connection error has occured so return
5733                 # an error.
5734
5735                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
5736
5737         }
5738
5739         # Connect to the template database.
5740
5741         $kiriwrite_dbmodule->connecttemplate();
5742
5743         # Check if any errors had occured.
5744
5745         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
5746
5747                 # The template database does not exist so write a warning
5748                 # message.
5749
5750                 $templatewarning = $kiriwrite_lang->{template}->{templatedatabasedoesnotexist};
5751
5752         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
5753
5754                 # The template database has invalid permissions set so
5755                 # return an error.
5756
5757                 kiriwrite_error("templatedatabaseinvalidpermissions");
5758
5759         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5760
5761                 # A database error occured while getting the list of
5762                 # templates so return an error with the extended
5763                 # error information.
5764
5765                 kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5766
5767         }
5768
5769         # Get the list of template databases.
5770
5771         if (!$templatewarning){
5772
5773                 @templates_list = $kiriwrite_dbmodule->gettemplatelist();
5774
5775         }
5776
5777         # Check if any errors had occured.
5778
5779         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5780
5781                 # A database error occured while getting the list
5782                 # of templates so return an error with the
5783                 # extended error information.
5784
5785                 kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5786
5787         }
5788
5789         # Check if any templates are in the database and if there isn't
5790         # then write a message saying that there are no templates in the
5791         # database.
5792
5793         if (!@templates_list && !$templatewarning){
5794                 $templatewarning = $kiriwrite_lang->{template}->{notemplatesavailable};
5795         }
5796
5797         # Process the templates into a template list.
5798
5799         $kiriwrite_presmodule->addtext($kiriwrite_lang->{template}->{viewtemplates}, { Style => "pageheader" });
5800         $kiriwrite_presmodule->addlinebreak();
5801         $kiriwrite_presmodule->addlinebreak();
5802
5803         if ($templatewarning){
5804
5805                 $kiriwrite_presmodule->startbox("errorbox");
5806                 $kiriwrite_presmodule->addtext($templatewarning);
5807                 $kiriwrite_presmodule->endbox();
5808
5809         } else {
5810
5811                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
5812                 $kiriwrite_presmodule->startheader();
5813                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{template}->{templatefilename}, { Style => "tablecellheader" });
5814                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{template}->{templatename}, { Style => "tablecellheader" });
5815                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{template}->{templatedescription}, { Style => "tablecellheader" });
5816                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{options}, { Style => "tablecellheader" });
5817                 $kiriwrite_presmodule->endheader();
5818
5819                 foreach $template (@templates_list){
5820
5821                         # Get the template data.
5822
5823                         %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template });
5824
5825                         # Check if any errors occured while trying to get the template
5826                         # data.
5827
5828                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
5829
5830                                 # A database error has occured, so return an error.
5831
5832                                 kiriwrite_error("templatedatabaseerror", $kiriwrite_dbmodule->geterror(1));
5833
5834                         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
5835
5836                                 # The template does not exist, so process the next template.
5837
5838                                 next;
5839
5840                         }
5841
5842                         $template_filename      = $template_info{"TemplateFileName"};
5843                         $template_name          = $template_info{"TemplateName"};
5844                         $template_description   = $template_info{"TemplateDescription"};
5845
5846                         # Check what style the row of table cells should be.
5847
5848                         if ($template_style eq 0){
5849
5850                                 $template_stylename = "tablecell1";
5851                                 $template_style = 1;
5852
5853                         } else {
5854
5855                                 $template_stylename = "tablecell2";
5856                                 $template_style = 0;
5857
5858                         }
5859
5860                         $kiriwrite_presmodule->startrow();
5861                         $kiriwrite_presmodule->addcell($template_stylename);
5862                         $kiriwrite_presmodule->addtext($template_info{"TemplateFilename"});
5863
5864                         # Check if the blank template value was set.
5865
5866                         if (!$template_info{"TemplateLayout"}){
5867                                 $kiriwrite_presmodule->additalictext(" " . "[Blank Template]");
5868                         }
5869
5870                         $kiriwrite_presmodule->endcell();
5871                         $kiriwrite_presmodule->addcell($template_stylename);
5872
5873                         # Check if the template name is blank and if it is
5874                         # write a message to say there's no name for the
5875                         # template.
5876
5877                         if (!$template_info{"TemplateName"}){
5878                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
5879                         } else {
5880                                 $kiriwrite_presmodule->addtext($template_info{"TemplateName"});
5881                         }
5882
5883                         $kiriwrite_presmodule->endcell();
5884                         $kiriwrite_presmodule->addcell($template_stylename);
5885
5886                         # Check if the template description is blank and if
5887                         # it is then write a message to say there's no
5888                         # description for the template.
5889
5890                         if (!$template_info{"TemplateDescription"}){
5891                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{nodescription});
5892                         } else {
5893                                 $kiriwrite_presmodule->addtext($template_info{"TemplateDescription"});
5894                         }
5895
5896                         $kiriwrite_presmodule->endcell();
5897                         $kiriwrite_presmodule->addcell($template_stylename);
5898                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template&action=edit&template=" . $template_info{"TemplateFilename"}, { Text => $kiriwrite_lang->{options}->{edit} });
5899                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=template&action=delete&template=" . $template_info{"TemplateFilename"}, { Text => $kiriwrite_lang->{options}->{delete} });
5900                         $kiriwrite_presmodule->endcell();
5901                         $kiriwrite_presmodule->endrow();
5902
5903                 }
5904
5905                 $kiriwrite_presmodule->endtable();
5906
5907         }
5908
5909         # Disconnect from the database server.
5910
5911         $kiriwrite_dbmodule->disconnect();
5912
5913         $kiriwrite_dbmodule->disconnecttemplate();
5914         return $kiriwrite_presmodule->grab();
5915
5916
5917 }
5918
5919 sub kiriwrite_database_add{
5920 #################################################################################
5921 # kiriwrite_database_add: Creates a new database.                               #
5922 #                                                                               #
5923 # Usage:                                                                        #
5924 #                                                                               #
5925 # kiriwrite_database_add(filename, name, description, notes, categories,        #
5926 #                               [confirm]);                                     #
5927 #                                                                               #
5928 # filename      Specifies the filename for the database.                        #
5929 # name          Specifies a (friendly) name for the database.                   #
5930 # description   Specifies a description for the database.                       #
5931 # notes         Specifies the notes for the database.                           #
5932 # categories    Specifies the categories for the database.                      #
5933 # confirm       Confirms the action to create a database.                       #
5934 #################################################################################
5935
5936         # Get the variables passed from the subroutine.
5937
5938         my ($database_filename, $database_name, $database_description, $database_notes, $database_categories, $database_confirm) = @_;
5939
5940         # Check if the confirm value is blank and if it is then
5941         # set the confirm value to 0.
5942
5943         if (!$database_confirm){
5944
5945                 # The confirm value was blank so set the value to 0.
5946
5947                 $database_confirm = 0;
5948
5949         }
5950
5951         if ($database_confirm eq 1){
5952
5953                 # The action to create a new database is confirmed.
5954
5955                 # Validate the database name and database descriptions.
5956
5957                 my $database_name_check_utf8            = kiriwrite_variablecheck($database_name, "utf8", 0, 0);
5958                 my $database_description_check_utf8     = kiriwrite_variablecheck($database_description, "utf8", 0, 0);
5959                 my $database_notes_check_utf8           = kiriwrite_variablecheck($database_notes, "utf8", 0, 0);
5960                 my $database_categories_check_utf8      = kiriwrite_variablecheck($database_categories, "utf8", 0, 0);
5961
5962                 # Convert the UTF8 strings before checking the length of the strings.
5963
5964                 $database_name                  = kiriwrite_utf8convert($database_name);
5965                 $database_description           = kiriwrite_utf8convert($database_description);
5966                 $database_notes                 = kiriwrite_utf8convert($database_notes);
5967                 $database_categories            = kiriwrite_utf8convert($database_categories);
5968
5969                 my $database_name_check_blank           = kiriwrite_variablecheck($database_name, "blank", 0, 1);
5970                 my $database_name_check_length          = kiriwrite_variablecheck($database_name, "maxlength", 256, 1);
5971                 my $database_description_check_length   = kiriwrite_variablecheck($database_description, "maxlength", 512, 1);
5972                 my $database_filename_check_length      = kiriwrite_variablecheck($database_filename, "maxlength", 32, 1);
5973                 my $database_categories_check_length    = kiriwrite_variablecheck($database_categories, "maxlength", 512, 1);
5974
5975                 # Check if values returned contains any values that would
5976                 # result in a specific error message being returned.
5977
5978                 if ($database_name_check_length eq 1){
5979
5980                         # The length of the database name is too long, so return an error.
5981                         kiriwrite_error("databasenametoolong");
5982
5983                 }
5984
5985                 if ($database_description_check_length eq 1){
5986
5987                         # The database description length is too long, so return an error.
5988                         kiriwrite_error("databasedescriptiontoolong");
5989
5990                 }
5991
5992                 if ($database_name_check_blank eq 1){
5993
5994                         # The database name is blank, so return an error.
5995                         kiriwrite_error("databasenameblank");
5996
5997                 }
5998
5999                 if ($database_filename_check_length eq 1){
6000
6001                         # The database filename is to long, so return an error.
6002                         kiriwrite_error("databasefilenametoolong");
6003
6004                 }
6005
6006                 if ($database_categories_check_length eq 1){
6007
6008                         # The database categories is too long, so return an error.
6009                         kiriwrite_error("databasecategoriestoolong");
6010
6011                 }
6012
6013                 # Check if the database filename is blank and if it is then
6014                 # generate a filename.
6015
6016                 if ($database_filename eq ""){
6017
6018                         # Filename is blank so generate a file name from
6019                         # the database name.
6020
6021                         $database_filename = kiriwrite_processfilename($database_name);
6022
6023                 } else {
6024
6025                         # Filename is not blank so don't generate a filename.
6026
6027                 }
6028
6029                 kiriwrite_variablecheck($database_filename, "filename", "", 0);
6030                 kiriwrite_variablecheck($database_filename, "maxlength", 32, 0);
6031
6032                 # Connect to the database server.
6033
6034                 $kiriwrite_dbmodule->connect();
6035
6036                 # Check if any errors occured while connecting to the database server.
6037
6038                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
6039
6040                         # A database connection error has occured so return
6041                         # an error.
6042
6043                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
6044
6045                 }
6046
6047                 my $database_name_final = $database_name;
6048
6049                 # Create the database.
6050
6051                 $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"} });
6052
6053                 # Check if any errors have occured.
6054
6055                 if ($kiriwrite_dbmodule->geterror eq "DatabaseExists"){
6056
6057                         # A database with the filename given already exists, so
6058                         # return an error.
6059
6060                         kiriwrite_error("fileexists");
6061
6062                 } elsif ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6063
6064                         # A database error has occured so return an error with
6065                         # the extended error information.
6066
6067                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
6068
6069                 }
6070
6071                 # Disconnect from the database server.
6072
6073                 $kiriwrite_dbmodule->disconnect();
6074
6075                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{adddatabase}, { Style => "pageheader" });
6076                 $kiriwrite_presmodule->addlinebreak();
6077                 $kiriwrite_presmodule->addlinebreak();
6078                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{database}->{databaseadded} , $database_name_final));
6079                 $kiriwrite_presmodule->addlinebreak();
6080                 $kiriwrite_presmodule->addlinebreak();
6081                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{databaselistreturnlink} });
6082
6083                 return $kiriwrite_presmodule->grab();
6084
6085         }
6086
6087         # There is confirm value is not 1, so write a form for creating a database to
6088         # store pages in.
6089
6090         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{adddatabase}, { Style => "pageheader" });
6091         $kiriwrite_presmodule->addlinebreak();
6092         $kiriwrite_presmodule->addlinebreak();
6093         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
6094         $kiriwrite_presmodule->startbox();
6095         $kiriwrite_presmodule->addhiddendata("mode", "db");
6096         $kiriwrite_presmodule->addhiddendata("action", "new");
6097         $kiriwrite_presmodule->addhiddendata("confirm", "1");
6098         $kiriwrite_presmodule->endbox();
6099         $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
6100
6101         $kiriwrite_presmodule->startheader();
6102         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader"});
6103         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader"});
6104         $kiriwrite_presmodule->endheader();
6105
6106         $kiriwrite_presmodule->startrow();
6107         $kiriwrite_presmodule->addcell("tablecell1");
6108         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasename});
6109         $kiriwrite_presmodule->endcell();
6110         $kiriwrite_presmodule->addcell("tablecell2");
6111         $kiriwrite_presmodule->addinputbox("databasename", { Size => 64, MaxLength => 256 });
6112         $kiriwrite_presmodule->endcell();
6113         $kiriwrite_presmodule->endrow();
6114
6115         $kiriwrite_presmodule->startrow();
6116         $kiriwrite_presmodule->addcell("tablecell1");
6117         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasedescription});
6118         $kiriwrite_presmodule->endcell();
6119         $kiriwrite_presmodule->addcell("tablecell2");
6120         $kiriwrite_presmodule->addinputbox("databasedescription", { Size => 64, MaxLength => 512 });
6121         $kiriwrite_presmodule->endcell();
6122         $kiriwrite_presmodule->endrow();
6123
6124         $kiriwrite_presmodule->startrow();
6125         $kiriwrite_presmodule->addcell("tablecell1");
6126         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasecategories});
6127         $kiriwrite_presmodule->endcell();
6128         $kiriwrite_presmodule->addcell("tablecell2");
6129         $kiriwrite_presmodule->addinputbox("databasecategories", { Size => 64, MaxLength => 512 });
6130         $kiriwrite_presmodule->endcell();
6131         $kiriwrite_presmodule->endrow();
6132
6133         $kiriwrite_presmodule->startrow();
6134         $kiriwrite_presmodule->addcell("tablecell1");
6135         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasenotes});
6136         $kiriwrite_presmodule->endcell();
6137         $kiriwrite_presmodule->addcell("tablecell2");
6138         $kiriwrite_presmodule->addtextbox("databasenotes", { Columns => 50, Rows => 10, WordWrap => 0 });
6139         $kiriwrite_presmodule->endcell();
6140         $kiriwrite_presmodule->endrow();
6141
6142         $kiriwrite_presmodule->startrow();
6143         $kiriwrite_presmodule->addcell("tablecell1");
6144         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasefilename});
6145         $kiriwrite_presmodule->endcell();
6146         $kiriwrite_presmodule->addcell("tablecell2");
6147         $kiriwrite_presmodule->addinputbox("databasefilename", { Size => 32, MaxLength => 32 });
6148         $kiriwrite_presmodule->startlist();
6149         $kiriwrite_presmodule->additem($kiriwrite_lang->{database}->{adddatabaseautogenerate});
6150         $kiriwrite_presmodule->additem($kiriwrite_lang->{database}->{adddatabasenoextensions});
6151         $kiriwrite_presmodule->additem($kiriwrite_lang->{database}->{adddatabasecharacterlength});
6152         $kiriwrite_presmodule->additem($kiriwrite_lang->{database}->{adddatabasecharacters});
6153         $kiriwrite_presmodule->endlist();
6154         $kiriwrite_presmodule->endcell();
6155         $kiriwrite_presmodule->endrow();
6156
6157         $kiriwrite_presmodule->endtable();
6158         $kiriwrite_presmodule->startbox();
6159         $kiriwrite_presmodule->addlinebreak();
6160         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{database}->{adddatabasebutton});
6161         $kiriwrite_presmodule->addtext("|");
6162         $kiriwrite_presmodule->addreset($kiriwrite_lang->{database}->{clearvaluesbutton});
6163         $kiriwrite_presmodule->addtext("| ");
6164         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{databaselistreturnlink} });
6165         $kiriwrite_presmodule->endbox();
6166         $kiriwrite_presmodule->endform();
6167
6168         # Exit the subroutine taking the data in the pagadata variable with it.
6169
6170         return $kiriwrite_presmodule->grab();
6171
6172 }
6173
6174 sub kiriwrite_database_edit{
6175 #################################################################################
6176 # kiriwrite_database_edit: Edits an database.                                   #
6177 #                                                                               #
6178 # Usage:                                                                        #
6179 #                                                                               #
6180 # kiriwrite_database_edit(filename, newfilename, newname, newdescription,       #
6181 #                               notes, categories, [confirm]);                  #
6182 #                                                                               #
6183 # filename              Specifies the filename of the database.                 #
6184 # newfilename           Specifies the new filename of the database.             #
6185 # newname               Specifies the new name of the database.                 #
6186 # newdescription        Specifies the new description of the database.          #
6187 # notes                 Specifies the new notes of the database.                #
6188 # categories            Specifies the new categories of the database.           #
6189 # confirm               Confirms the action to edit a database.                 #
6190 #################################################################################
6191
6192         # First, get all the variables passed to the subroutine.
6193
6194         my ($database_shortname, $database_newfilename, $database_newname, $database_newdescription, $database_notes, $database_categories, $database_confirm) = @_;
6195
6196         # Check if the database confirm value is blank and if it is
6197         # set the confirm value to 0.
6198
6199         if (!$database_confirm){
6200
6201                 $database_confirm = 0;
6202
6203         }
6204
6205         # Check if the database filename given is valid and return an error
6206         # if it isn't.
6207
6208         kiriwrite_variablecheck($database_shortname, "filename", "", 0);
6209
6210         # 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
6211         # if $database_confirm was used directly).
6212
6213         if ($database_confirm eq 1){
6214
6215                 # Check if the new data passes the validation tests below. First, check the length of the variables.
6216
6217                 my $database_name_check_utf8            = kiriwrite_variablecheck($database_newname, "utf8", 0, 0);
6218                 my $database_description_check_utf8     = kiriwrite_variablecheck($database_newdescription, "utf8", 0, 0);
6219                 my $database_notes_check_utf8           = kiriwrite_variablecheck($database_notes, "utf8", 0, 0);
6220                 my $database_categories_check_utf8      = kiriwrite_variablecheck($database_categories, "utf8", 0, 0);
6221
6222                 # Convert the UTF8 strings to make sure their length is accurate.
6223
6224                 $database_newname               = kiriwrite_utf8convert($database_newname);
6225                 $database_newdescription        = kiriwrite_utf8convert($database_newdescription);
6226                 $database_notes                 = kiriwrite_utf8convert($database_notes);
6227                 $database_categories            = kiriwrite_utf8convert($database_categories);
6228
6229                 # Preform the following tests.
6230
6231                 my $database_filename_check_length      = kiriwrite_variablecheck($database_newfilename, "maxlength", 32, 1);
6232                 my $database_filename_letnum            = kiriwrite_variablecheck($database_newfilename, "filename", 0, 0);
6233                 my $database_name_check_length          = kiriwrite_variablecheck($database_newname, "maxlength", 256, 1);
6234                 my $database_description_check_length   = kiriwrite_variablecheck($database_newdescription, "maxlength", 512, 1);
6235                 my $database_categories_check_length    = kiriwrite_variablecheck($database_categories, "maxlength", 512, 1);
6236                 my $database_name_check_blank           = kiriwrite_variablecheck($database_newname, "blank", 0, 1);
6237
6238                 # Check if the data is valid and return a specific error if it doesn't.
6239
6240                 if ($database_name_check_length eq 1){
6241
6242                         # The length of the database name is too long, so return an error.
6243                         kiriwrite_error("databasenametoolong");
6244
6245                 }
6246
6247                 if ($database_description_check_length eq 1){
6248
6249                         # The database description length is too long, so return an error.
6250                         kiriwrite_error("databasedescriptiontoolong");
6251
6252                 }
6253
6254                 if ($database_name_check_blank eq 1){
6255
6256                         # The database name is blank, so return an error.
6257                         kiriwrite_error("databasenameblank");
6258
6259                 }
6260
6261                 if ($database_filename_check_length eq 1){
6262
6263                         # The database filename is too long, so return an error.
6264                         kiriwrite_error("databasefilenametoolong");
6265
6266                 }
6267
6268                 if ($database_categories_check_length eq 1){
6269
6270                         # The database categories is too long, so return an error.
6271                         kiriwrite_error("databasecategoriestoolong");
6272
6273                 }
6274
6275                 # Connect to the database server.
6276
6277                 $kiriwrite_dbmodule->connect();
6278
6279                 # Check if any errors occured while connecting to the database server.
6280
6281                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
6282
6283                         # A database connection error has occured so return
6284                         # an error.
6285
6286                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
6287
6288                 }
6289
6290                 # Get the database.
6291
6292                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database_shortname });
6293
6294                 # Check if any errors had occured while selecting the database.
6295
6296                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6297
6298                         # The database does not exist, so return an error.
6299
6300                         kiriwrite_error("databasemissingfile");
6301
6302                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
6303
6304                         # The database has invalid permissions set, so return
6305                         # an error.
6306
6307                         kiriwrite_error("databaseinvalidpermissions");
6308
6309                 }
6310
6311                 # FIX THIS!! >O
6312
6313                 $kiriwrite_dbmodule->editdatabase({ DatabaseNewFilename => $database_newfilename, DatabaseName => $database_newname , DatabaseDescription => $database_newdescription , DatabaseNotes => $database_notes, DatabaseCategories => $database_categories });
6314
6315                 # Check if any errors had occured while using the database.
6316
6317                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6318
6319                         # The database does not exist, so return an error.
6320
6321                         kiriwrite_error("databasemissingfile");
6322
6323                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
6324
6325                         # The database has invalid permissions set, so return
6326                         # an error.
6327
6328                         kiriwrite_error("databaseinvalidpermissions");
6329
6330                 } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
6331
6332                         # The database directory has invalid permissions set, so
6333                         # return an error.
6334
6335                         kiriwrite_error("datadirectoryinvalidpermissions");
6336
6337                 } elsif ($kiriwrite_dbmodule->geterror eq "DatabaseExists"){
6338
6339                         # A database already exists with the new filename, so
6340                         # return an error.
6341
6342                         kiriwrite_error("databasealreadyexists");
6343
6344                 } elsif ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6345
6346                         # A database error has occured so return an error with
6347                         # the extended error information.
6348
6349                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
6350
6351                 }
6352
6353                 # Disconnect from the server.
6354
6355                 $kiriwrite_dbmodule->disconnect();
6356
6357                 # Write out a message saying that the database has been updated.
6358
6359                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{editeddatabase}, { Style => "pageheader" } );
6360                 $kiriwrite_presmodule->addlinebreak();
6361                 $kiriwrite_presmodule->addlinebreak();
6362                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{database}->{databaseupdated}, $database_newname));
6363                 $kiriwrite_presmodule->addlinebreak();
6364                 $kiriwrite_presmodule->addlinebreak();
6365                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{databaselistreturnlink} });
6366
6367                 return $kiriwrite_presmodule->grab();
6368
6369         } else {
6370
6371                 my (%database_info);
6372
6373                 # Check if the database filename given is valid and return an error
6374                 # if it isn't.
6375
6376                 # Connect to the database server.
6377
6378                 $kiriwrite_dbmodule->connect();
6379
6380                 # Check if any errors occured while connecting to the database server.
6381
6382                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
6383
6384                         # A database connection error has occured so return
6385                         # an error.
6386
6387                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
6388
6389                 }
6390
6391                 # Select the database.
6392
6393                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database_shortname });
6394
6395                 # Check if any errors had occured while setting the database.
6396
6397                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6398
6399                         # The database does not exist, so return an error.
6400
6401                         kiriwrite_error("databasemissingfile");
6402
6403                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
6404
6405                         # The database has invalid permissions set, so return
6406                         # an error.
6407
6408                         kiriwrite_error("databaseinvalidpermissions");
6409
6410                 }
6411
6412                 # Get the database information.
6413
6414                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
6415
6416                 # Check if any errors had occured while getting the database
6417                 # information.
6418
6419                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6420
6421                         # A database error has occured so return an error and
6422                         # also the extended error information.
6423
6424                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
6425
6426                 }
6427
6428                 # Get the values needed from the kiriwrite_database_info table.
6429
6430                 my $database_oldname            = $database_info{"DatabaseName"};
6431                 my $database_olddescription     = $database_info{"Description"};
6432                 my $database_notes              = $database_info{"Notes"};
6433                 my $database_categories         = $database_info{"Categories"};
6434
6435                 # Disconnect from the database server.
6436
6437                 $kiriwrite_dbmodule->disconnect();
6438
6439                 # Print out the form for editing a database's settings.
6440
6441                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{database}->{editdatabase}, $database_oldname), { Style => "pageheader" });
6442                 $kiriwrite_presmodule->addlinebreak();
6443                 $kiriwrite_presmodule->addlinebreak();
6444                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
6445                 $kiriwrite_presmodule->startbox();
6446                 $kiriwrite_presmodule->addhiddendata("mode", "db");
6447                 $kiriwrite_presmodule->addhiddendata("action", "edit");
6448                 $kiriwrite_presmodule->addhiddendata("database", $database_shortname);
6449                 $kiriwrite_presmodule->addhiddendata("confirm", "1");
6450                 $kiriwrite_presmodule->endbox();
6451
6452                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
6453                 $kiriwrite_presmodule->startheader();
6454                 $kiriwrite_presmodule->addheader("Setting", { Style => "tablecellheader" });
6455                 $kiriwrite_presmodule->addheader("Value", { Style => "tablecellheader" });
6456                 $kiriwrite_presmodule->endheader();
6457
6458                 $kiriwrite_presmodule->startrow();
6459                 $kiriwrite_presmodule->addcell("tablecell1");
6460                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasename});
6461                 $kiriwrite_presmodule->endcell();
6462                 $kiriwrite_presmodule->addcell("tablecell2");
6463                 $kiriwrite_presmodule->addinputbox("databasename", { Size => 64, MaxLength => 256, Value => $database_oldname } );
6464                 $kiriwrite_presmodule->endcell();
6465                 $kiriwrite_presmodule->endrow();
6466
6467                 $kiriwrite_presmodule->startrow();
6468                 $kiriwrite_presmodule->addcell("tablecell1");
6469                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasedescription});
6470                 $kiriwrite_presmodule->endcell();
6471                 $kiriwrite_presmodule->addcell("tablecell2");
6472                 $kiriwrite_presmodule->addinputbox("databasedescription", { Size => 64, MaxLength => 512, Value => $database_olddescription } );
6473                 $kiriwrite_presmodule->endcell();
6474                 $kiriwrite_presmodule->endrow();
6475
6476                 $kiriwrite_presmodule->startrow();
6477                 $kiriwrite_presmodule->addcell("tablecell1");
6478                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasecategories});
6479                 $kiriwrite_presmodule->endcell();
6480                 $kiriwrite_presmodule->addcell("tablecell2");
6481                 $kiriwrite_presmodule->addinputbox("databasecategories", { Size => 64, MaxLength => 512, Value => $database_categories } );
6482                 $kiriwrite_presmodule->endcell();
6483                 $kiriwrite_presmodule->endrow();
6484
6485                 $kiriwrite_presmodule->startrow();
6486                 $kiriwrite_presmodule->addcell("tablecell1");
6487                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasenotes});
6488                 $kiriwrite_presmodule->endcell();
6489                 $kiriwrite_presmodule->addcell("tablecell2");
6490                 $kiriwrite_presmodule->addtextbox("databasenotes", { Columns => 50, Rows => 10, Value => $database_notes } );
6491                 $kiriwrite_presmodule->endcell();
6492                 $kiriwrite_presmodule->endrow();
6493
6494                 $kiriwrite_presmodule->startrow();
6495                 $kiriwrite_presmodule->addcell("tablecell1");
6496                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databasefilename});
6497                 $kiriwrite_presmodule->endcell();
6498                 $kiriwrite_presmodule->addcell("tablecell2");
6499                 $kiriwrite_presmodule->addinputbox("databasefilename", { Size => 32, MaxLength => 32, Value => $database_shortname } );
6500                 $kiriwrite_presmodule->endcell();
6501                 $kiriwrite_presmodule->endrow();
6502
6503                 $kiriwrite_presmodule->endtable();
6504
6505                 $kiriwrite_presmodule->startbox();
6506                 $kiriwrite_presmodule->addlinebreak();
6507                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{database}->{editdatabasebutton});
6508                 $kiriwrite_presmodule->addtext(" | ");
6509                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{restorecurrent});
6510                 $kiriwrite_presmodule->addtext(" | ");
6511                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{databaselistreturnlink} });
6512                 $kiriwrite_presmodule->endbox();
6513                 $kiriwrite_presmodule->endform();
6514
6515                 return $kiriwrite_presmodule->grab();
6516
6517         }
6518
6519         # The interpreter should not be here. So return an error saying invalid variable.
6520
6521         kiriwrite_error("invalidvariable");
6522
6523 }
6524
6525 sub kiriwrite_database_delete{
6526 #################################################################################
6527 # kiriwrite_database_delete: Deletes an database.                               #
6528 #                                                                               #
6529 # Usage:                                                                        #
6530 #                                                                               #
6531 # kiriwrite_database_delete(filename, [confirm]);                               #
6532 #                                                                               #
6533 # filename      Specifies the filename for the database to be deleted.          #
6534 # confirm       Confirms the action to delete a database.                       #
6535 #################################################################################
6536
6537         my ($database_filename, $database_confirm) = @_;
6538
6539         # Check if the confirm value is blank and if it is then set the
6540         # confirm value to 0.
6541
6542         if (!$database_confirm){
6543
6544                 $database_confirm = 0;
6545
6546         }
6547
6548         # Connect to the database server.
6549
6550         $kiriwrite_dbmodule->connect();
6551
6552         # Check if any errors occured while connecting to the database server.
6553
6554         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
6555
6556                 # A database connection error has occured so return
6557                 # an error.
6558
6559                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
6560
6561         }
6562
6563         # Check if the database filename given is valid and return an error
6564         # if it isn't.
6565
6566         kiriwrite_variablecheck($database_filename, "filename", "", 0);
6567
6568         # Check if the request to delete a database has been confirmed. If it has,
6569         # then delete the database itself.
6570
6571         if ($database_confirm eq 1){
6572                 # There is a value in the confirm variable of the HTTP query.
6573
6574                 # Select the database to delete and get the database name.
6575
6576                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $database_filename });
6577
6578                 # Check if any error occured while selecting the database.
6579
6580                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6581
6582                         # The database does not exist so return an error.
6583
6584                         kiriwrite_error("databasemissingfile");
6585
6586                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet") {
6587
6588                         # The database has invalid permissions set so return
6589                         # an error.
6590
6591                         kiriwrite_error("databaseinvalidpermissions");
6592
6593                 }
6594
6595                 my %database_info       = $kiriwrite_dbmodule->getdatabaseinfo();
6596
6597                 # Check if any errors have occured while getting the database
6598                 # name.
6599
6600                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6601
6602                         # A database error has occured so return an error with
6603                         # the extended error information.
6604
6605                         kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
6606
6607                 }
6608
6609                 my $database_name = $database_info{"DatabaseName"};
6610
6611                 # Delete the selected database.
6612
6613                 $kiriwrite_dbmodule->deletedatabase({ DatabaseName => $database_filename });
6614
6615                 # Check if any error occured while deleting the database.
6616
6617                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6618
6619                         # The database does not exist so return an error.
6620
6621                         kiriwrite_error("databasemissingfile");
6622
6623                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet") {
6624
6625                         # The database has invalid permissions set so return
6626                         # an error.
6627
6628                         kiriwrite_error("databaseinvalidpermissions");
6629
6630                 }
6631
6632                 # Disconnect from the database server.
6633
6634                 $kiriwrite_dbmodule->disconnect();
6635
6636                 # Write a message saying that the database has been deleted.
6637
6638                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{deleteddatabase}, { Style => "pageheader" });
6639                 $kiriwrite_presmodule->addlinebreak();
6640                 $kiriwrite_presmodule->addlinebreak();
6641                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{database}->{deleteddatabasemessage}, $database_name));
6642                 $kiriwrite_presmodule->addlinebreak();
6643                 $kiriwrite_presmodule->addlinebreak();
6644                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{databaselistreturnlink} });
6645
6646                 return $kiriwrite_presmodule->grab();
6647
6648         }
6649
6650         # The action has not been confirmed, so write out a form asking the
6651         # user to confirm.
6652
6653         # Get the database name.
6654
6655         $kiriwrite_dbmodule->selectdb({ DatabaseName => $database_filename });
6656
6657         # Check if any error occured while selecting the database.
6658
6659         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6660
6661                 # The database does not exist so return an error.
6662
6663                 kiriwrite_error("databasemissingfile");
6664
6665         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet") {
6666
6667                 # The database has invalid permissions set so return
6668                 # an error.
6669
6670                 kiriwrite_error("databaseinvalidpermissions");
6671
6672
6673         }
6674
6675         # Check if any errors have occured.
6676
6677         my %database_info       = $kiriwrite_dbmodule->getdatabaseinfo();
6678
6679         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6680
6681                 # A database error has occured so return an error with
6682                 # the extended error information.
6683
6684                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
6685
6686         }
6687
6688         my $database_name = $database_info{"DatabaseName"};
6689
6690         # Disconnect from the database server.
6691
6692         $kiriwrite_dbmodule->disconnect();
6693
6694         # Write out the form to ask the user to confirm the deletion of the
6695         # selected database.
6696
6697         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{deletedatabase}, { Style => "pageheader" });
6698         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
6699         $kiriwrite_presmodule->startbox();
6700         $kiriwrite_presmodule->addhiddendata("mode", "db");
6701         $kiriwrite_presmodule->addhiddendata("action", "delete");
6702         $kiriwrite_presmodule->addhiddendata("database", $database_filename);
6703         $kiriwrite_presmodule->addhiddendata("confirm", "1");
6704         $kiriwrite_presmodule->addlinebreak();
6705         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{database}->{deletedatabasemessage}, $database_name));
6706         $kiriwrite_presmodule->addlinebreak();
6707         $kiriwrite_presmodule->addlinebreak();
6708         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{database}->{deletedatabasebutton});
6709         $kiriwrite_presmodule->addtext(" | ");
6710         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=db", { Text => $kiriwrite_lang->{database}->{deletedatabasereturn} });
6711         $kiriwrite_presmodule->endbox();
6712         $kiriwrite_presmodule->endform();
6713
6714         return $kiriwrite_presmodule->grab();
6715
6716 }
6717
6718 sub kiriwrite_database_list{
6719 #################################################################################
6720 # kiriwrite_database_list: Lists the databases available.                       #
6721 #                                                                               #
6722 # Usage:                                                                        #
6723 #                                                                               #
6724 # kiriwrite_database_list();                                                    #
6725 #################################################################################
6726
6727         # Connect to the database server.
6728
6729         $kiriwrite_dbmodule->connect();
6730
6731         # Check if any errors occured while connecting to the database server.
6732
6733         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
6734
6735                 # A database connection error has occured so return
6736                 # an error.
6737
6738                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
6739
6740         }
6741
6742         # Get the list of available databases and process any errors that
6743         # might have occured.
6744
6745         my @database_list = $kiriwrite_dbmodule->getdblist();
6746
6747         if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
6748
6749                 # The database directory is missing so return an error.
6750
6751                 kiriwrite_error("datadirectorymissing");
6752
6753         } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
6754
6755                 # The database directory has invalid permissions set so return
6756                 # an error.
6757
6758                 kiriwrite_error("datadirectoryinvalidpermissions");
6759
6760         }
6761
6762         # Declare the following variables that are going to be used before using
6763         # the foreach function.
6764
6765         my ($database_info, %database_info);
6766         my @error_list;
6767         my @permissions_list;
6768         my $database_count = 0;
6769         my $database_filename = "";
6770         my $database_filename_friendly = "";
6771         my $database_filename_length = 0;
6772         my $database_name = "";
6773         my $database_description = "";
6774         my $database_permissions = "";
6775         my $nodescription = 0;
6776         my $noname = 0;
6777         my $data_file = "";
6778         my $table_style = 0;
6779         my $table_style_name = "";
6780
6781         # Begin creating the table for the list of databases.
6782
6783         $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaselist}, { Style => "pageheader" });
6784         $kiriwrite_presmodule->addlinebreak();
6785         $kiriwrite_presmodule->addlinebreak();
6786         $kiriwrite_presmodule->starttable("", { CellPadding => "5", CellSpacing => "0" });
6787         $kiriwrite_presmodule->startheader();
6788         $kiriwrite_presmodule->addheader($kiriwrite_lang->{database}->{databasename}, { Style => "tablecellheader" });
6789         $kiriwrite_presmodule->addheader($kiriwrite_lang->{database}->{databasedescription}, { Style => "tablecellheader" });
6790         $kiriwrite_presmodule->addheader($kiriwrite_lang->{database}->{databaseoptions}, { Style => "tablecellheader" });
6791         $kiriwrite_presmodule->endheader();
6792
6793         foreach $data_file (@database_list){
6794
6795                 # Select the database.
6796
6797                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $data_file });
6798
6799                 # Check if any error occured while selecting the database.
6800
6801                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
6802
6803                         # The database does not exist, so process the next
6804                         # database.
6805
6806                         next;
6807
6808                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet") {
6809
6810                         # The database has invalid permissions settings, so
6811                         # add the database to the list of databases with
6812                         # invalid permissions set and process the next
6813                         # database.
6814
6815                         push(@permissions_list, $data_file);
6816                         next;
6817
6818                 }
6819
6820                 # Get information about the database.
6821
6822                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
6823
6824                 # Check if any error occured while getting information from the
6825                 # database.
6826
6827                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
6828
6829                         # A database error has occured, add the database and specific
6830                         # error message to the list of databases with errors and
6831                         # process the next database.
6832
6833                         push(@error_list, $data_file . ": " . $kiriwrite_dbmodule->geterror(1));
6834                         next;
6835
6836                 }
6837
6838                 $database_name          = $database_info{"DatabaseName"};
6839                 $database_description   = $database_info{"Description"};
6840
6841                 # Check the style to be used with.
6842
6843                 if ($table_style eq 0){
6844
6845                         # Use the first style and set the style value
6846                         # to use the next style, the next time the
6847                         # if statement is checked.
6848
6849                         $table_style_name = "tablecell1";
6850                         $table_style = 1;
6851                 } else {
6852
6853                         # Use the second style and set the style
6854                         # value to use the first style, the next
6855                         # time if statement is checked.
6856
6857                         $table_style_name = "tablecell2";
6858                         $table_style = 0;
6859                 }
6860
6861                 # Create a friendly name for the database.
6862
6863                 $database_filename_friendly = $data_file;
6864
6865                 # Append the database information to the table.
6866
6867                 $kiriwrite_presmodule->startrow();
6868                 $kiriwrite_presmodule->addcell($table_style_name);
6869
6870                 if (!$database_name){
6871                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
6872                 } else {
6873                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database_filename_friendly, { Text => $database_name });
6874                 }
6875
6876                 $kiriwrite_presmodule->endcell();
6877                 $kiriwrite_presmodule->addcell($table_style_name);
6878
6879                 if (!$database_description){
6880                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{nodescription});
6881                 } else {
6882                         $kiriwrite_presmodule->addtext($database_description);
6883                 }
6884
6885                 $kiriwrite_presmodule->endcell();
6886                 $kiriwrite_presmodule->addcell($table_style_name);
6887                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=db&action=edit&database=" . $database_filename_friendly, { Text => $kiriwrite_lang->{options}->{edit} });
6888                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=compile&action=compile&type=single&database=" . $database_filename_friendly, { Text => $kiriwrite_lang->{options}->{compile} });
6889                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=db&action=delete&database=" . $database_filename_friendly, { Text => $kiriwrite_lang->{options}->{delete} });
6890                 $kiriwrite_presmodule->endrow();
6891
6892                 $database_count++;
6893                 $nodescription = 0;
6894                 $noname = 0;
6895
6896         }
6897
6898         $kiriwrite_presmodule->endtable();
6899
6900         # Disconnect from the database server.
6901
6902         $kiriwrite_dbmodule->disconnect();
6903
6904         # Check if there are no valid databases are if there is no
6905         # valid databases then write a message saying that no
6906         # valid databases are available.
6907
6908         if ($database_count eq 0){
6909
6910                 $kiriwrite_presmodule->clear();
6911                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaselist}, { Style => "pageheader" });
6912                 $kiriwrite_presmodule->addlinebreak();
6913                 $kiriwrite_presmodule->addlinebreak();
6914                 $kiriwrite_presmodule->startbox("errorbox");
6915                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{nodatabasesavailable});
6916                 $kiriwrite_presmodule->endbox();
6917
6918         }
6919
6920         # Check if any databases with problems have appeared and if they
6921         # have, print out a message saying which databases have problems.
6922
6923         if (@permissions_list){
6924
6925                 $kiriwrite_presmodule->addlinebreak();
6926                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseinvalidpermissions}, { Style => "smallpageheader" });
6927                 $kiriwrite_presmodule->addlinebreak();
6928                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseinvalidpermissionstext});
6929                 $kiriwrite_presmodule->addlinebreak();
6930
6931                 foreach $data_file (@permissions_list){
6932                         $kiriwrite_presmodule->addlinebreak();
6933                         $kiriwrite_presmodule->addtext($data_file);
6934                 }
6935
6936                 $kiriwrite_presmodule->addlinebreak();
6937
6938         }
6939
6940         if (@error_list){
6941
6942                 $kiriwrite_presmodule->addlinebreak();
6943                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseerrors}, { Style => "smallpageheader" });
6944                 $kiriwrite_presmodule->addlinebreak();
6945                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseerrorstext});
6946                 $kiriwrite_presmodule->addlinebreak();
6947
6948                 foreach $data_file (@error_list){
6949                         $kiriwrite_presmodule->addlinebreak();
6950                         $kiriwrite_presmodule->addtext($data_file);
6951                 }
6952
6953                 $kiriwrite_presmodule->addlinebreak();
6954
6955         }
6956
6957         return $kiriwrite_presmodule->grab();   # Return to the main part of the script with the processed information.
6958
6959 }
6960
6961
6962 sub kiriwrite_filter_list{
6963 #################################################################################
6964 # kiriwrite_filter_list: Lists the filters that will be used when compiling a   #
6965 # webpage.                                                                      #
6966 #                                                                               #
6967 # Usage:                                                                        #
6968 #                                                                               #
6969 # kiriwrite_filter_list();                                                      #
6970 #################################################################################
6971
6972         my $filtersdb_notexist = 0;
6973
6974         # Connect to the database server.
6975
6976         $kiriwrite_dbmodule->connect();
6977
6978         # Check if any errors occured while connecting to the database server.
6979
6980         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
6981
6982                 # A database connection error has occured so return
6983                 # an error.
6984
6985                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
6986
6987         }
6988
6989         # Connect to the filter database.
6990
6991         $kiriwrite_dbmodule->connectfilter();
6992
6993         # Check if any error has occured while connecting to the filter
6994         # database.
6995
6996         if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
6997
6998                 # The filter database does not exist.
6999
7000                 $filtersdb_notexist = 1;
7001
7002         } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7003
7004                 # The filter database has invalid permissions set so return
7005                 # an error.
7006
7007                 kiriwrite_error("filtersdbpermissions");
7008
7009         } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7010
7011                 # A database error has occured with the filter database.
7012
7013                 kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7014
7015         }
7016
7017         # Define some variables required for processing the filters list.
7018
7019         my %filter_list;
7020         my %filter_info;
7021         my @database_filters;
7022         my $blankfindfilter = 0;
7023         my $filterswarning = "";
7024         my $filter;
7025         my $filter_count = 0;
7026         my $filter_style = 0;
7027         my $filter_style_name = "";
7028
7029         tie(%filter_list, 'Tie::IxHash');
7030
7031         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{viewfilters}, { Style => "pageheader" });
7032         $kiriwrite_presmodule->addlinebreak();
7033         $kiriwrite_presmodule->addlinebreak();
7034
7035         # If the filter database exists then get the list of filters,
7036         # otherwise write a message saying that the filter database
7037         # does not exist and will be created when a filter is added.
7038
7039         if ($filtersdb_notexist eq 0){
7040
7041                 # Get the list of available filters.
7042
7043                 @database_filters       = $kiriwrite_dbmodule->getfilterlist();
7044
7045                 # Check if any errors occured while getting the list of filters.
7046
7047                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7048
7049                         # A database error has occured with the filter database.
7050
7051                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7052
7053                 }
7054
7055                 # Process each filter getting the priority, find setting and
7056                 # replace setting.
7057
7058                 foreach $filter (@database_filters){
7059
7060                         # Get the information about the filter.
7061
7062                         %filter_info = $kiriwrite_dbmodule->getfilterinfo({ FilterID => $filter });
7063
7064                         # Check if any errors occured while getting the filter information.
7065
7066                         if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7067
7068                                 # A database error occured while using the filter database.
7069
7070                                 kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7071
7072                         } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
7073
7074                                 # The filter does not exist so process the next filter.
7075
7076                                 next;
7077
7078                         }
7079
7080                         # Check if the find filter is blank.
7081
7082                         if (!$filter_info{"FilterFind"}){
7083
7084                                 # The find filter is blank, so set the value to write a warning
7085                                 # message saying that a find filter given is blank.
7086
7087                                 $blankfindfilter = 1;
7088
7089                         }
7090
7091                         $filter_list{$filter_count}{ID}         = $filter_info{"FilterID"};
7092                         $filter_list{$filter_count}{Priority}   = $filter_info{"FilterPriority"};
7093                         $filter_list{$filter_count}{Find}       = $filter_info{"FilterFind"};
7094                         $filter_list{$filter_count}{Replace}    = $filter_info{"FilterReplace"};
7095                         $filter_list{$filter_count}{Notes}      = $filter_info{"FilterNotes"};
7096
7097                         $filter_count++;
7098
7099                 }
7100
7101                 # Check if there are filters in the filter database and
7102                 # write a message if there isn't.
7103
7104                 if ($filter_count eq 0){
7105
7106                         # There are no filters in the filter database.
7107
7108                         $filterswarning = $kiriwrite_lang->{filter}->{nofiltersavailable};
7109
7110                 }
7111
7112         }
7113
7114         # Check if the database wasn't found and if it
7115         # wasn't then write a message saying that the
7116         # database will be created when a filter is
7117         # added.
7118
7119         if ($filtersdb_notexist eq 1){
7120
7121                 # The filter database doesn't exist so write
7122                 # a message.
7123
7124                 $filterswarning = $kiriwrite_lang->{filter}->{filterdatabasedoesnotexist};
7125
7126
7127         }
7128
7129         # Check if there is a warning message and if
7130         # there is then write that warning message
7131         # else write the list of filters.
7132
7133         if ($filterswarning){
7134
7135                 $kiriwrite_presmodule->startbox("errorbox");
7136                 $kiriwrite_presmodule->addtext($filterswarning);
7137                 $kiriwrite_presmodule->endbox();
7138
7139         } else {
7140
7141                 # The filter database exists so write out the
7142                 # list of filters.
7143
7144                 if ($blankfindfilter eq 1){
7145
7146                         $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{filter}->{warningtitle});
7147                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{blankfindfilters});
7148                         $kiriwrite_presmodule->addtext();
7149                         $kiriwrite_presmodule->addlinebreak();
7150                         $kiriwrite_presmodule->addlinebreak();
7151
7152                 }
7153
7154                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
7155
7156                 $kiriwrite_presmodule->startheader();
7157                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{filter}->{priority}, { Style => "tablecellheader" });
7158                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{filter}->{findsetting}, { Style => "tablecellheader" });
7159                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{filter}->{replacesetting}, { Style => "tablecellheader" });
7160                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{options}, { Style => "tablecellheader" });
7161                 $kiriwrite_presmodule->endheader();
7162
7163                 foreach $filter (keys %filter_list){
7164
7165                         # Check which style should be used.
7166
7167                         if ($filter_style eq 0){
7168
7169                                 $filter_style_name = "tablecell1";
7170                                 $filter_style = 1;
7171
7172                         } else {
7173
7174                                 $filter_style_name = "tablecell2";
7175                                 $filter_style = 0;
7176
7177                         }
7178
7179                         $kiriwrite_presmodule->startrow();
7180                         $kiriwrite_presmodule->addcell($filter_style_name);
7181                         $kiriwrite_presmodule->addtext($filter_list{$filter}{Priority});
7182                         $kiriwrite_presmodule->endcell();
7183                         $kiriwrite_presmodule->addcell($filter_style_name);
7184
7185                         # Check if the find filter is blank.
7186
7187                         if (!$filter_list{$filter}{Find}){
7188
7189                                 # The find filter is blank.
7190
7191                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{filter}->{blankfindsetting});
7192
7193                         } else {
7194
7195                                 # The find filter is not blank.
7196
7197                                 $kiriwrite_presmodule->addtext($filter_list{$filter}{Find});
7198
7199                         }
7200
7201                         $kiriwrite_presmodule->endcell();
7202                         $kiriwrite_presmodule->addcell($filter_style_name);
7203
7204                         # Check if the replace filter is blank.
7205
7206                         if (!$filter_list{$filter}{Replace}){
7207
7208                                 # The replace filter is blank.
7209
7210                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{filter}->{blankreplacesetting});
7211
7212                         } else {
7213
7214                                 # The replace filter is not blank.
7215
7216                                 $kiriwrite_presmodule->addtext($filter_list{$filter}{Replace});
7217
7218                         }
7219
7220                         $kiriwrite_presmodule->endcell();
7221                         $kiriwrite_presmodule->addcell($filter_style_name);
7222                         $kiriwrite_presmodule->addlink("?mode=filter&action=edit&filter=" . $filter_list{$filter}{ID}, { Text => $kiriwrite_lang->{options}->{edit} });
7223                         $kiriwrite_presmodule->addlink("?mode=filter&action=delete&filter=" . $filter_list{$filter}{ID}, { Text => $kiriwrite_lang->{options}->{delete} });
7224                         $kiriwrite_presmodule->endcell();
7225                         $kiriwrite_presmodule->endrow();
7226
7227                 }
7228
7229                 $kiriwrite_presmodule->endtable();
7230
7231         }
7232
7233         # Disconnect from the filter database.
7234
7235         $kiriwrite_dbmodule->disconnectfilter();
7236
7237         # Disconnect from the database server.
7238
7239         $kiriwrite_dbmodule->disconnect();
7240
7241         return $kiriwrite_presmodule->grab();
7242
7243 }
7244
7245 sub kiriwrite_filter_add{
7246 #################################################################################
7247 # kiriwrite_filter_add: Adds a filter to the filter list.                       #
7248 #                                                                               #
7249 # Usage:                                                                        #
7250 #                                                                               #
7251 # kiriwrite_filter_add(filterfind, filterreplace, filterpriority,               #
7252 #                       filternotes, [confirm]);                                #
7253 #                                                                               #
7254 # filterfind            Specifies the new word(s) to find.                      #
7255 # filterreplace         Specifies the new word(s) to replace.                   #
7256 # filterpriority        Specifies the new priority to use.                      #
7257 # filternotes           Specifies the new notes to use.                         #
7258 # confirm               Confirms the action to add a filter.                    #
7259 #################################################################################
7260
7261         # Get the values that have been passed to the subroutine.
7262
7263         my ($filter_new_find, $filter_new_replace, $filter_new_priority, $filter_new_notes, $confirm) = @_;
7264
7265         # Check the confirm value to make sure it is no more than
7266         # one character long.
7267
7268         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
7269
7270         if (!$confirm){
7271
7272                 # The confirm value is undefined, so set the
7273                 # value of the confirm integer to '0'.
7274
7275                 $confirm = 0;
7276
7277         }
7278
7279         if ($confirm eq 1){
7280
7281                 # The confirm integer is '1', so add the word
7282                 # to the filter list.
7283
7284                 # First, check the variables recieved are UTF8
7285                 # copliant.
7286
7287                 kiriwrite_variablecheck($filter_new_find, "utf8", 0, 0);
7288                 kiriwrite_variablecheck($filter_new_replace, "utf8", 0, 0);
7289                 kiriwrite_variablecheck($filter_new_priority, "utf8", 0, 0);
7290                 kiriwrite_variablecheck($filter_new_notes, "utf8", 0, 0);
7291
7292                 # Convert the UTF8 values so that the length can
7293                 # checked properly.
7294
7295                 $filter_new_find        = kiriwrite_utf8convert($filter_new_find);
7296                 $filter_new_replace     = kiriwrite_utf8convert($filter_new_replace);
7297                 $filter_new_priority    = kiriwrite_utf8convert($filter_new_priority);
7298                 $filter_new_notes       = kiriwrite_utf8convert($filter_new_notes);
7299
7300                 # Check if the find filter is blank and return an error
7301                 # if it is.
7302
7303                 if (!$filter_new_find){
7304
7305                         # The find filter given is blank so return an
7306                         # error.
7307
7308                         kiriwrite_error("blankfindfilter");
7309
7310                 }
7311
7312                 if (!$filter_new_priority){
7313
7314                         # The filter priority is blank so set it
7315                         # to 1.
7316
7317                         $filter_new_priority = 1;
7318
7319                 }
7320
7321                 # Check the length and contents of the values given
7322                 # to make sure they are valid.
7323
7324                 my $filterfind_maxlength_check          = kiriwrite_variablecheck($filter_new_find, "maxlength", 1024, 1);
7325                 my $filterreplace_maxlength_check       = kiriwrite_variablecheck($filter_new_replace, "maxlength", 1024, 1);
7326                 my $filterpriority_maxlength_check      = kiriwrite_variablecheck($filter_new_priority, "maxlength", 5, 1);
7327                 my $filterpriority_numbers_check        = kiriwrite_variablecheck($filter_new_priority, "numbers", 0, 1);
7328
7329                 # Check if the result of the tests to see if they
7330                 # are valid.
7331
7332                 if ($filterfind_maxlength_check eq 1){
7333
7334                         # The find filter is too long, so return
7335                         # an error.
7336
7337                         kiriwrite_error("findfiltertoolong");
7338
7339                 }
7340
7341                 if ($filterreplace_maxlength_check eq 1){
7342
7343                         # The replace filter is too long, so
7344                         # return an error.
7345
7346                         kiriwrite_error("replacefiltertoolong");
7347
7348                 }
7349
7350                 if ($filterpriority_maxlength_check eq 1){
7351
7352                         # The length of the filter priority
7353                         # given is too long, so return an
7354                         # error.
7355
7356                         kiriwrite_error("filterprioritytoolong");
7357
7358                 }
7359
7360                 if ($filterpriority_numbers_check eq 1){
7361
7362                         # The priority of the filter given
7363                         # contains characters other than
7364                         # numbers.
7365
7366                         kiriwrite_error("filterpriorityinvalidchars");
7367
7368                 }
7369
7370                 # Check if the filter priority is less than 1
7371                 # and more than 10000 and return an error
7372                 # if it is.
7373
7374                 if ($filter_new_priority < 1 || $filter_new_priority > 50000){
7375
7376                         # The filter priority is less than 1 and
7377                         # more than 10000, so return an error.
7378
7379                         kiriwrite_error("filterpriorityinvalid");
7380
7381                 }
7382
7383                 # Connect to the database server.
7384
7385                 $kiriwrite_dbmodule->connect();
7386
7387                 # Check if any errors occured while connecting to the database server.
7388
7389                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
7390
7391                         # A database connection error has occured so return
7392                         # an error.
7393
7394                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
7395
7396                 }
7397
7398                 # Connect to the filter database.
7399
7400                 $kiriwrite_dbmodule->connectfilter(1);
7401
7402                 # Check if any error has occured while connecting to the filter
7403                 # database.
7404
7405                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
7406
7407                         # The filter database does not exist.
7408
7409                         kiriwrite_error("filtersdbmissing");
7410
7411                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7412
7413                         # The filter database has invalid permissions set so return
7414                         # an error.
7415
7416                         kiriwrite_error("filtersdbpermissions");
7417
7418                 }
7419
7420                 # Add the filter to the filter database.
7421
7422                 $kiriwrite_dbmodule->addfilter({ FindFilter => $filter_new_find, ReplaceFilter => $filter_new_replace, Priority => $filter_new_priority, Notes => $filter_new_notes});
7423
7424                 # Check if any errors have occured while adding the filter.
7425
7426                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7427
7428                         # The filter database has invalid permissions set so return
7429                         # an error.
7430
7431                         kiriwrite_error("filtersdbpermissions");
7432
7433                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseUncreatable"){
7434
7435                         # The filter database is uncreatable so return an error.
7436
7437                         kiriwrite_error("filterdatabase");
7438
7439                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7440
7441                         # A database error with the filter database has occured so return
7442                         # an error with the extended error information.
7443
7444                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7445
7446                 }
7447
7448                 # Disconnect from the filter database.
7449
7450                 $kiriwrite_dbmodule->disconnectfilter();
7451
7452                 # Disconnect from the database server.
7453
7454                 $kiriwrite_dbmodule->disconnect();
7455
7456                 # Write out a message saying that the filter was added to the
7457                 # filter database.
7458
7459                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{filteradded}, { Style => "pageheader" });
7460                 $kiriwrite_presmodule->addlinebreak();
7461                 $kiriwrite_presmodule->addlinebreak();
7462                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{filteraddedmessage});
7463                 $kiriwrite_presmodule->addlinebreak();
7464                 $kiriwrite_presmodule->addlinebreak();
7465                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{returnfilterlist} });
7466
7467                 return $kiriwrite_presmodule->grab();
7468
7469         } elsif ($confirm ne 0) {
7470
7471                 # The confirm integer is another value (which
7472                 # it shouldn't be) so return an error.
7473
7474                 kiriwrite_error("invalidvalue");
7475
7476         }
7477
7478         # The confirm integer was blank so print out a form
7479         # for adding a new filter.
7480
7481         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{addfilter}, { Style => "pageheader" });
7482         $kiriwrite_presmodule->addlinebreak();
7483         $kiriwrite_presmodule->addlinebreak();
7484         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
7485         $kiriwrite_presmodule->startbox();
7486         $kiriwrite_presmodule->addhiddendata("mode", "filter");
7487         $kiriwrite_presmodule->addhiddendata("action", "add");
7488         $kiriwrite_presmodule->addhiddendata("confirm", 1);
7489         $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
7490
7491         $kiriwrite_presmodule->startheader();
7492         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
7493         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
7494         $kiriwrite_presmodule->endheader();
7495
7496         $kiriwrite_presmodule->startrow();
7497         $kiriwrite_presmodule->addcell("tablecell1");
7498         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{findfilter});
7499         $kiriwrite_presmodule->endcell();
7500         $kiriwrite_presmodule->addcell("tablecell2");
7501         $kiriwrite_presmodule->addinputbox("findword", { Size => 64, MaxLength => 1024 });
7502         $kiriwrite_presmodule->endcell();
7503         $kiriwrite_presmodule->endrow();
7504
7505         $kiriwrite_presmodule->startrow();
7506         $kiriwrite_presmodule->addcell("tablecell1");
7507         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{replacefilter});
7508         $kiriwrite_presmodule->endcell();
7509         $kiriwrite_presmodule->addcell("tablecell2");
7510         $kiriwrite_presmodule->addinputbox("replaceword", { Size => 64, MaxLength => 1024 });
7511         $kiriwrite_presmodule->endcell();
7512         $kiriwrite_presmodule->endrow();
7513
7514         $kiriwrite_presmodule->startrow();
7515         $kiriwrite_presmodule->addcell("tablecell1");
7516         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{priority});
7517         $kiriwrite_presmodule->endcell();
7518         $kiriwrite_presmodule->addcell("tablecell2");
7519         $kiriwrite_presmodule->addinputbox("priority", { Size => 5, MaxLength => 5 });
7520         $kiriwrite_presmodule->startlist();
7521         $kiriwrite_presmodule->additem($kiriwrite_lang->{filter}->{noprioritygiven});
7522         $kiriwrite_presmodule->endlist();
7523         $kiriwrite_presmodule->endcell();
7524         $kiriwrite_presmodule->endrow();
7525
7526         $kiriwrite_presmodule->startrow();
7527         $kiriwrite_presmodule->addcell("tablecell1");
7528         $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{notes});
7529         $kiriwrite_presmodule->endcell();
7530         $kiriwrite_presmodule->addcell("tablecell2");
7531         $kiriwrite_presmodule->addtextbox("notes", { Columns => 50, Rows => 10 });
7532         $kiriwrite_presmodule->endcell();
7533         $kiriwrite_presmodule->endrow();
7534
7535         $kiriwrite_presmodule->endtable();
7536
7537         $kiriwrite_presmodule->addlinebreak();
7538         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{filter}->{addfilterbutton});
7539         $kiriwrite_presmodule->addtext(" | ");
7540         $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{clearvalues});
7541         $kiriwrite_presmodule->addtext(" | ");
7542         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{returnfilterlist} });
7543
7544         $kiriwrite_presmodule->endbox();
7545         $kiriwrite_presmodule->endform();
7546
7547         return $kiriwrite_presmodule->grab();
7548
7549 }
7550
7551 sub kiriwrite_filter_edit{
7552 #################################################################################
7553 # kiriwrite_filter_edit: Edits a filter from the filter list.                   #
7554 #                                                                               #
7555 # Usage:                                                                        #
7556 #                                                                               #
7557 # kiriwrite_filter_edit(filternumber, newfilterfind, newfilterreplace,          #
7558 #                       newfilterpriority, newfilternotes, confirm);            #
7559 #                                                                               #
7560 # filterid              Specifies the filter number (line number) in the        #
7561 #                       filter database.                                        #
7562 # newfilterfind         Specifies the new word to find.                         #
7563 # newfilterreplace      Specifies the new word to replace.                      #
7564 # newfilterpriority     Specifies the new filter priority.                      #
7565 # newfilternotes        Specifies the new filter notes.                         #
7566 # confirm               Confirms the action to edit a filter.                   #
7567 #################################################################################
7568
7569         # Get the values that have been passed to the subroutine.
7570
7571         my ($filter_id, $filter_new_find, $filter_new_replace, $filter_new_priority, $filter_new_notes, $confirm) = @_;
7572
7573         # Check the confirm value to make sure it is no more than
7574         # one character long.
7575
7576         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
7577
7578         # Check if the confirm value is blank and if it is
7579         # srt the confirm value to 0.
7580
7581         if (!$confirm){
7582
7583                 # The confirm value does not have any value
7584                 # set so set it to 0.
7585
7586                 $confirm = 0;
7587
7588         }
7589
7590         # Check if the filter identification number is blank,
7591         # contains characters other than numbers and is more
7592         # than seven characters long.
7593
7594         if (!$filter_id){
7595
7596                 # The filter identification number is blank,
7597                 # so return an error.
7598
7599                 kiriwrite_error("filteridblank");
7600
7601         }
7602
7603         my $filter_id_numbers_check     = kiriwrite_variablecheck($filter_id, "numbers", 0, 1);
7604
7605         if ($filter_id_numbers_check eq 1){
7606
7607                 # The filter identification number contains
7608                 # characters other than numbers, so return
7609                 # an error.
7610
7611                 kiriwrite_error("filteridinvalid");
7612
7613         }
7614
7615         my $filter_id_maxlength_check   = kiriwrite_variablecheck($filter_id, "maxlength", 7, 1);
7616
7617         if ($filter_id_maxlength_check eq 1){
7618
7619                 # The filter identification number given
7620                 # is more than seven characters long, so
7621                 # return an error.
7622
7623                 kiriwrite_error("filteridtoolong");
7624
7625         }
7626
7627         my $filter_priority;
7628         my $filter_find;
7629         my $filter_replace;
7630         my $filter_notes;
7631
7632         # Check if the action to edit a filter has been
7633         # confirmed.
7634
7635         if ($confirm eq 1){
7636
7637                 # The action to edit a filter has been confirmed so
7638                 # edit the selected filter.
7639
7640                 # First, check the variables recieved are UTF8
7641                 # copliant.
7642
7643                 kiriwrite_variablecheck($filter_new_find, "utf8", 0, 0);
7644                 kiriwrite_variablecheck($filter_new_replace, "utf8", 0, 0);
7645                 kiriwrite_variablecheck($filter_new_priority, "utf8", 0, 0);
7646                 kiriwrite_variablecheck($filter_new_notes, "utf8", 0, 0);
7647
7648                 # Convert the UTF8 values so that the length can
7649                 # checked properly.
7650
7651                 $filter_find            = kiriwrite_utf8convert($filter_new_find);
7652                 $filter_replace         = kiriwrite_utf8convert($filter_new_replace);
7653                 $filter_priority        = kiriwrite_utf8convert($filter_new_priority);
7654                 $filter_notes           = kiriwrite_utf8convert($filter_new_notes);
7655
7656                 # Check if the find filter is blank and return an error
7657                 # if it is.
7658
7659                 if (!$filter_new_find){
7660
7661                         # The find filter given is blank so return an
7662                         # error.
7663
7664                         kiriwrite_error("blankfindfilter");
7665
7666                 }
7667
7668                 if (!$filter_new_priority){
7669
7670                         # The filter priority is blank so set it
7671                         # to 1.
7672
7673                         $filter_new_priority = 1;
7674
7675                 }
7676
7677                 # Check the length and contents of the values given
7678                 # to make sure they are valid.
7679
7680                 my $filterfind_maxlength_check          = kiriwrite_variablecheck($filter_new_find, "maxlength", 1024, 1);
7681                 my $filterreplace_maxlength_check       = kiriwrite_variablecheck($filter_new_replace, "maxlength", 1024, 1);
7682                 my $filterpriority_maxlength_check      = kiriwrite_variablecheck($filter_new_priority, "maxlength", 5, 1);
7683                 my $filterpriority_numbers_check        = kiriwrite_variablecheck($filter_new_priority, "numbers", 0, 1);
7684
7685                 # Check if the result of the tests to see if they
7686                 # are valid.
7687
7688                 if ($filterfind_maxlength_check eq 1){
7689
7690                         # The find filter is too long, so return
7691                         # an error.
7692
7693                         kiriwrite_error("findfiltertoolong");
7694
7695                 }
7696
7697                 if ($filterreplace_maxlength_check eq 1){
7698
7699                         # The replace filter is too long, so
7700                         # return an error.
7701
7702                         kiriwrite_error("replacefiltertoolong");
7703
7704                 }
7705
7706                 if ($filterpriority_maxlength_check eq 1){
7707
7708                         # The length of the filter priority
7709                         # given is too long, so return an
7710                         # error.
7711
7712                         kiriwrite_error("filterprioritytoolong");
7713
7714                 }
7715
7716                 if ($filterpriority_numbers_check eq 1){
7717
7718                         # The priority of the filter given
7719                         # contains characters other than
7720                         # numbers.
7721
7722                         kiriwrite_error("filterpriorityinvalidchars");
7723
7724                 }
7725
7726                 # Check if the filter priority is less than 1
7727                 # and more than 10000 and return an error
7728                 # if it is.
7729
7730                 if ($filter_new_priority < 1 || $filter_new_priority > 50000){
7731
7732                         # The filter priority is less than 1 and
7733                         # more than 10000, so return an error.
7734
7735                         kiriwrite_error("filterpriorityinvalid");
7736
7737                 }
7738
7739                 # Connect to the database server.
7740
7741                 $kiriwrite_dbmodule->connect();
7742
7743                 # Check if any errors occured while connecting to the database server.
7744
7745                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
7746
7747                         # A database connection error has occured so return
7748                         # an error.
7749
7750                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
7751
7752                 }
7753
7754                 # Connect to the filter database.
7755
7756                 $kiriwrite_dbmodule->connectfilter();
7757
7758                 # Check if any error has occured while connecting to the filter
7759                 # database.
7760
7761                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
7762
7763                         # The filter database does not exist.
7764
7765                         kiriwrite_error("filtersdbmissing");
7766
7767                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7768
7769                         # The filter database has invalid permissions set so return
7770                         # an error.
7771
7772                         kiriwrite_error("filtersdbpermissions");
7773
7774                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7775
7776                         # A database error has occured with the filter database.
7777
7778                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7779
7780                 }
7781
7782                 # Edit the selected filter in the filter database.
7783
7784                 $kiriwrite_dbmodule->editfilter({ FilterID => $filter_id, NewFindFilter => $filter_new_find, NewReplaceFilter => $filter_new_replace, NewFilterPriority => $filter_new_priority, NewFilterNotes => $filter_new_notes });
7785
7786                 # Check if any errors occured while editing the filter.
7787
7788                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7789
7790                         # The filter database has invalid permissions set so return
7791                         # an error.
7792
7793                         kiriwrite_error("filtersdbpermissions");
7794
7795                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7796
7797                         # A database error has occured while using the filter database
7798                         # so return an error.
7799
7800                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7801
7802                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
7803
7804                         # The specified filter does not exist so return an error.
7805
7806                         kiriwrite_error("filterdoesnotexist");
7807
7808                 }
7809
7810                 # Disconnect from the filter database.
7811
7812                 $kiriwrite_dbmodule->disconnectfilter();
7813
7814                 # Disconnect from the database server.
7815
7816                 $kiriwrite_dbmodule->disconnect();
7817
7818                 # Write a message saying that the filter was edited.
7819
7820                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{editedfilter}, { Style => "pageheader" });
7821                 $kiriwrite_presmodule->addlinebreak();
7822                 $kiriwrite_presmodule->addlinebreak();
7823                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{editedfiltermessage});
7824                 $kiriwrite_presmodule->addlinebreak();
7825                 $kiriwrite_presmodule->addlinebreak();
7826                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{returnfilterlist}});
7827
7828                 return $kiriwrite_presmodule->grab();
7829
7830         } elsif ($confirm eq 0){
7831
7832                 # The action to edit a filter has not been confirmed
7833                 # so write a form for editing the filter with.
7834
7835                 # Connect to the database server.
7836
7837                 $kiriwrite_dbmodule->connect();
7838
7839                 # Check if any errors occured while connecting to the database server.
7840
7841                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
7842
7843                         # A database connection error has occured so return
7844                         # an error.
7845
7846                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
7847
7848                 }
7849
7850                 # Connect to the database server.
7851
7852                 $kiriwrite_dbmodule->connect();
7853
7854                 # Check if any errors occured while connecting to the database server.
7855
7856                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
7857
7858                         # A database connection error has occured so return
7859                         # an error.
7860
7861                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
7862
7863                 }
7864
7865                 # Connect to the filter database.
7866
7867                 $kiriwrite_dbmodule->connectfilter();
7868
7869                 # Check if any error has occured while connecting to the filter
7870                 # database.
7871
7872                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
7873
7874                         # The filter database does not exist.
7875
7876                         kiriwrite_error("filtersdbmissing");
7877
7878                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
7879
7880                         # The filter database has invalid permissions set so return
7881                         # an error.
7882
7883                         kiriwrite_error("filtersdbpermissions");
7884
7885                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7886
7887                         # A database error has occured with the filter database.
7888
7889                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7890
7891                 }
7892
7893                 # Get information about the filter.
7894
7895                 my %filter_info = $kiriwrite_dbmodule->getfilterinfo({ FilterID => $filter_id });
7896
7897                 # Check if any errors occured while getting information about the filter.
7898
7899                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
7900
7901                         # A database error occured while using the filter database so
7902                         # return an error.
7903
7904                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
7905
7906                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
7907
7908                         # The filter does not exist so return an error.
7909
7910                         kiriwrite_error("filterdoesnotexist");
7911
7912                 }
7913
7914                 # Get the required information.
7915
7916                 $filter_priority        = $filter_info{"FilterPriority"};
7917                 $filter_find            = $filter_info{"FilterFind"};
7918                 $filter_replace         = $filter_info{"FilterReplace"};
7919                 $filter_notes           = $filter_info{"FilterNotes"};
7920
7921                 # Disconnect from the filter database.
7922
7923                 $kiriwrite_dbmodule->disconnectfilter();
7924
7925                 # Disconnect from the database server.
7926
7927                 $kiriwrite_dbmodule->disconnect();
7928
7929                 # Write out the form.
7930
7931                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{editfilter}, { Style => "pageheader" });
7932                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
7933                 $kiriwrite_presmodule->startbox();
7934                 $kiriwrite_presmodule->addhiddendata("mode", "filter");
7935                 $kiriwrite_presmodule->addhiddendata("action", "edit");
7936                 $kiriwrite_presmodule->addhiddendata("filter", $filter_id);
7937                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
7938
7939                 $kiriwrite_presmodule->addlinebreak();
7940                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
7941
7942                 $kiriwrite_presmodule->startheader();
7943                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
7944                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
7945                 $kiriwrite_presmodule->endheader();
7946
7947                 $kiriwrite_presmodule->startrow();
7948                 $kiriwrite_presmodule->addcell("tablecell1");
7949                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{findfilter});
7950                 $kiriwrite_presmodule->endcell();
7951                 $kiriwrite_presmodule->addcell("tablecell2");
7952                 $kiriwrite_presmodule->addinputbox("filterfind", { Size => 64, MaxLength => 1024, Value => $filter_find });
7953                 $kiriwrite_presmodule->endcell();
7954                 $kiriwrite_presmodule->endrow();
7955
7956                 $kiriwrite_presmodule->startrow();
7957                 $kiriwrite_presmodule->addcell("tablecell1");
7958                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{replacefilter});
7959                 $kiriwrite_presmodule->endcell();
7960                 $kiriwrite_presmodule->addcell("tablecell2");
7961                 $kiriwrite_presmodule->addinputbox("filterreplace", { Size => 64, MaxLength => 1024, Value => $filter_replace });
7962                 $kiriwrite_presmodule->endcell();
7963                 $kiriwrite_presmodule->endrow();
7964
7965                 $kiriwrite_presmodule->startrow();
7966                 $kiriwrite_presmodule->addcell("tablecell1");
7967                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{priority});
7968                 $kiriwrite_presmodule->endcell();
7969                 $kiriwrite_presmodule->addcell("tablecell2");
7970                 $kiriwrite_presmodule->addinputbox("priority", { Size => 5, MaxLength => 5, Value => $filter_priority });
7971                 $kiriwrite_presmodule->startlist();
7972                 $kiriwrite_presmodule->additem($kiriwrite_lang->{filter}->{noprioritygiven});
7973                 $kiriwrite_presmodule->endlist();
7974                 $kiriwrite_presmodule->endcell();
7975                 $kiriwrite_presmodule->endrow();
7976
7977                 $kiriwrite_presmodule->startrow();
7978                 $kiriwrite_presmodule->addcell("tablecell1");
7979                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{notes});
7980                 $kiriwrite_presmodule->endcell();
7981                 $kiriwrite_presmodule->addcell("tablecell2");
7982                 $kiriwrite_presmodule->addtextbox("notes", { Columns => 50, Rows => 10});
7983                 $kiriwrite_presmodule->endcell();
7984                 $kiriwrite_presmodule->endrow();
7985
7986                 $kiriwrite_presmodule->endtable();
7987
7988                 $kiriwrite_presmodule->addlinebreak();
7989                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{filter}->{editfilterbutton});
7990                 $kiriwrite_presmodule->addtext(" | ");
7991                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{restorecurrent});
7992                 $kiriwrite_presmodule->addtext(" | ");
7993                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{returnfilterlist} });
7994                 $kiriwrite_presmodule->endbox();
7995                 $kiriwrite_presmodule->endform();
7996
7997                 return $kiriwrite_presmodule->grab();
7998
7999         } else {
8000
8001                 # A confirm value other than 0 or 1 has been
8002                 # specified, so return an error.
8003
8004                 kiriwrite_error("invalidvalue");
8005
8006         }
8007
8008 }
8009
8010 sub kiriwrite_filter_delete{
8011 #################################################################################
8012 # kiriwrite_filter_delete: Deletes a filter from the filter list.               #
8013 #                                                                               #
8014 # Usage:                                                                        #
8015 #                                                                               #
8016 # kiriwrite_filter_delete(filterid, confirm);                                   #
8017 #                                                                               #
8018 # filterid      Specifies the filter line number to delete.                     #
8019 # confirm       Confirms the deletion of the selected filter.                   #
8020 #################################################################################
8021
8022         # Get the values that were passed to this subroutine.
8023
8024         my ($filter_id, $confirm) = @_;
8025
8026         # Check the confirm value to make sure it is no more than
8027         # one character long.
8028
8029         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
8030
8031         # Check if the confirm value is blank and if it is
8032         # srt the confirm value to 0.
8033
8034         if (!$confirm){
8035
8036                 # The confirm value does not have any value
8037                 # set so set it to 0.
8038
8039                 $confirm = 0;
8040
8041         }
8042
8043         # Check if the filter identification number is blank,
8044         # contains characters other than numbers and is more
8045         # than seven characters long.
8046
8047         if (!$filter_id){
8048
8049                 # The filter identification number is blank,
8050                 # so return an error.
8051
8052                 kiriwrite_error("filteridblank");
8053
8054         }
8055
8056         my $filter_id_numbers_check     = kiriwrite_variablecheck($filter_id, "numbers", 0, 1);
8057
8058         if ($filter_id_numbers_check eq 1){
8059
8060                 # The filter identification number contains
8061                 # characters other than numbers, so return
8062                 # an error.
8063
8064                 kiriwrite_error("filteridinvalid");
8065
8066         }
8067
8068         my $filter_id_maxlength_check   = kiriwrite_variablecheck($filter_id, "maxlength", 7, 1);
8069
8070         if ($filter_id_maxlength_check eq 1){
8071
8072                 # The filter identification number given
8073                 # is more than seven characters long, so
8074                 # return an error.
8075
8076                 kiriwrite_error("filteridtoolong");
8077
8078         }
8079
8080         # Define some values for later.
8081
8082         my @database_filter;
8083         my $filter_exists = 0;
8084
8085         # Check if the confirm integer has a value of '1'.
8086
8087         if ($confirm eq 1){
8088
8089                 # The action to delete a filter has been confirmed.
8090
8091                 # Connect to the database server.
8092
8093                 $kiriwrite_dbmodule->connect();
8094
8095                 # Check if any errors occured while connecting to the database server.
8096
8097                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
8098
8099                         # A database connection error has occured so return
8100                         # an error.
8101
8102                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
8103
8104                 }
8105
8106                 # Connect to the filter database.
8107
8108                 $kiriwrite_dbmodule->connectfilter();
8109
8110                 # Check if any error has occured while connecting to the filter
8111                 # database.
8112
8113                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
8114
8115                         # The filter database does not exist.
8116
8117                         kiriwrite_error("filtersdbmissing");
8118
8119                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
8120
8121                         # The filter database has invalid permissions set so return
8122                         # an error.
8123
8124                         kiriwrite_error("filtersdbpermissions");
8125
8126                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
8127
8128                         # A database error has occured with the filter database.
8129
8130                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
8131
8132                 }
8133
8134                 # Delete the filter from the filter database.
8135
8136                 $kiriwrite_dbmodule->deletefilter({ FilterID => $filter_id });
8137
8138                 # Check if any errors occured while deleting the filter.
8139
8140                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
8141
8142                         # A database error has occured while trying to delete a filter so
8143                         # return an error.
8144
8145                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
8146
8147                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
8148
8149                         # The filter does not exist so return an error.
8150
8151                         kiriwrite_error("filterdoesnotexist");
8152
8153                 }
8154
8155                 # Disconnect from the filter database.
8156
8157                 $kiriwrite_dbmodule->disconnectfilter();
8158
8159                 # Disconnect from the database server.
8160
8161                 $kiriwrite_dbmodule->disconnect();
8162
8163                 # Write a message saying that the filter was deleted
8164                 # from the filter database.
8165
8166                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{deletedfilter}, { Style => "pageheader" });
8167                 $kiriwrite_presmodule->addlinebreak();
8168                 $kiriwrite_presmodule->addlinebreak();
8169                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{deletedfiltermessage});
8170                 $kiriwrite_presmodule->addlinebreak();
8171                 $kiriwrite_presmodule->addlinebreak();
8172                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{returnfilterlist} });
8173
8174         } elsif ($confirm eq 0) {
8175
8176                 # Connect to the database server.
8177
8178                 $kiriwrite_dbmodule->connect();
8179
8180                 # Check if any errors occured while connecting to the database server.
8181
8182                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
8183
8184                         # A database connection error has occured so return
8185                         # an error.
8186
8187                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
8188
8189                 }
8190
8191                 # Connect to the filter database.
8192
8193                 $kiriwrite_dbmodule->connectfilter();
8194
8195                 # Check if any error has occured while connecting to the filter
8196                 # database.
8197
8198                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
8199
8200                         # The filter database does not exist.
8201
8202                         kiriwrite_error("filtersdbmissing");
8203
8204                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
8205
8206                         # The filter database has invalid permissions set so return
8207                         # an error.
8208
8209                         kiriwrite_error("filtersdbpermissions");
8210
8211                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
8212
8213                         # A database error has occured with the filter database.
8214
8215                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
8216
8217                 }
8218
8219                 # Get information about the filter (to check if it exists).
8220
8221                 my %filter_info = $kiriwrite_dbmodule->getfilterinfo({ FilterID => $filter_id });
8222
8223                 # Check if any errors occured while getting information about the filter.
8224
8225                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
8226
8227                         # A database error occured while using the filter database so
8228                         # return an error.
8229
8230                         kiriwrite_error("filtersdbdatabaseerror", $kiriwrite_dbmodule->geterror(1));
8231
8232                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
8233
8234                         # The filter does not exist so return an error.
8235
8236                         kiriwrite_error("filterdoesnotexist");
8237
8238                 }
8239
8240                 # Disconnect from the filter database.
8241
8242                 $kiriwrite_dbmodule->disconnectfilter();
8243
8244                 # Disconnect from the database
8245
8246                 # The confirm integer is '0', so continue write out
8247                 # a form asking the user to confirm the deletion
8248                 # pf the filter.
8249
8250                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{deletefilter}, { Style => "pageheader" });
8251                 $kiriwrite_presmodule->addlinebreak();
8252                 $kiriwrite_presmodule->addlinebreak();
8253                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{filter}->{deletefiltermessage});
8254                 $kiriwrite_presmodule->addlinebreak();
8255                 $kiriwrite_presmodule->addlinebreak();
8256                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
8257                 $kiriwrite_presmodule->startbox();
8258                 $kiriwrite_presmodule->addhiddendata("mode", "filter");
8259                 $kiriwrite_presmodule->addhiddendata("action", "delete");
8260                 $kiriwrite_presmodule->addhiddendata("filter", $filter_id);
8261                 $kiriwrite_presmodule->addhiddendata("confirm", 1);
8262                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{filter}->{deletefilterbutton});
8263                 $kiriwrite_presmodule->addtext(" | ");
8264                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{deletefilterreturn} });
8265                 $kiriwrite_presmodule->endbox();
8266                 $kiriwrite_presmodule->endform();
8267
8268         } else {
8269
8270                 kiriwrite_error("invalidvalue");
8271
8272         }
8273
8274         return $kiriwrite_presmodule->grab();
8275
8276 }
8277
8278 sub kiriwrite_compile_makepages{
8279 #################################################################################
8280 # kiriwrite_compile_makepages: Compile the selected pages and place them in the #
8281 # specified output directory.                                                   #
8282 #                                                                               #
8283 # Usage:                                                                        #
8284 #                                                                               #
8285 # kiriwrite_compile_makepages(type, selectedlist, confirm);                     #
8286 #                                                                               #
8287 # type          Specifies if single or multiple databases are to be compiled.   #
8288 # confirm       Specifies if the action to compile the databases should really  #
8289 #               be done.                                                        #
8290 # selectedlist  Specifies the databases to compile from as an array.            #
8291 #################################################################################
8292
8293         # Get the values that have been passed to the subroutine.
8294
8295         my ($type, $confirm, @selectedlist) = @_;
8296
8297         # Check if the confirm value is more than one
8298         # character long.
8299
8300         kiriwrite_variablecheck($confirm, "maxlength", 1, 0);
8301
8302         # Check if the confirm value is blank and if it
8303         # is then set the confirm value to 0.
8304
8305         if (!$confirm){
8306
8307                 # The confirm value is blank, so set the
8308                 # confirm value to 0.
8309
8310                 $confirm = 0;
8311
8312         }
8313
8314         # Check if there are any databases selected
8315         # and return an error if there isn't.
8316
8317         if (!@selectedlist){
8318
8319                 # There are no databases in the array
8320                 # so return an error.
8321
8322                 kiriwrite_error("nodatabaseselected");
8323
8324         }
8325
8326         # Check if the type given is no more than
8327         # 7 characters long.
8328
8329         my $type_maxlength_check = kiriwrite_variablecheck($type, "maxlength", 8, 1);
8330
8331         if ($type_maxlength_check eq 1){
8332
8333                 # The type length given is too long so
8334                 # return an error.
8335
8336                 kiriwrite_error("variabletoolong");
8337
8338         }
8339
8340         # Check if the action to compile the databases
8341         # has been confirmed.
8342
8343         if ($confirm eq 1){
8344
8345                 # The action to compile the datavases has
8346                 # been confirmed.
8347
8348                 # Define some variables for later.
8349
8350                 my %database_info;
8351                 my %filter_info;
8352                 my %template_info;
8353                 my %page_info;
8354                 my %templatefiles;
8355                 my @page_filenames;
8356                 my @databaseinfo;
8357                 my @databasepages;
8358                 my @filterslist;
8359                 my @findfilter;
8360                 my @replacefilter;
8361                 my @templateslist;
8362                 my @pagedirectories;
8363                 my @database_filters;
8364                 my $warning_count               = 0;
8365                 my $error_count                 = 0;
8366                 my $pages_count                 = 0;
8367                 my $filter;
8368                 my $filters_count               = 0;
8369                 my $filters_find_blank_warning  = 0;
8370                 my $filter_find;
8371                 my $filter_replace;
8372                 my $database;
8373                 my $database_name;
8374                 my $page_filename;
8375                 my $page_filename_check;
8376                 my $page_filename_char          = "";
8377                 my $page_filename_directory;
8378                 my $page_filename_length        = 0;
8379                 my $page_filename_seek          = 0;
8380                 my $page_filename_dircount      = 0;
8381                 my $page_filename_exists        = 0;
8382                 my $page_filename_permissions   = 0;
8383                 my $page_directory_name;
8384                 my $page_directory_path;
8385                 my $page_name;
8386                 my $page_description;
8387                 my $page_section;
8388                 my $page_template;
8389                 my $page_content;
8390                 my $page_settings;
8391                 my $page_lastmodified;
8392                 my $page_title;
8393                 my $page_final;
8394                 my $page_autosection;
8395                 my $page_autotitle;
8396                 my $page;
8397                 my $database_filename_check     = 0;
8398                 my $database_maxlength_check    = 0;
8399                 my $output_exists               = 0;
8400                 my $output_permissions          = 0;
8401                 my $filters_exists              = 0;
8402                 my $filters_permissions         = 0;
8403                 my $filters_skip                = 0;
8404                 my $template;
8405                 my $templates_skip              = 0;
8406                 my $information_prefix          = $kiriwrite_lang->{compile}->{informationprefix};
8407                 my $error_prefix                = $kiriwrite_lang->{compile}->{errorprefix};
8408                 my $warning_prefix              = $kiriwrite_lang->{compile}->{warningprefix};
8409                 my $filehandle_page;
8410
8411                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compiledatabases}, { Style => "pageheader" });
8412                 $kiriwrite_presmodule->addlinebreak();
8413                 $kiriwrite_presmodule->addlinebreak();
8414                 $kiriwrite_presmodule->startbox("datalist");
8415
8416                 # Check if the output directory exists and has
8417                 # valid permissions set.
8418
8419                 $output_exists          = kiriwrite_fileexists($kiriwrite_config{'directory_data_output'});
8420
8421                 if ($output_exists ne 0){
8422
8423                         # The output directory does not exist so
8424                         # return an error.
8425
8426                         kiriwrite_error("outputdirectorymissing");
8427
8428                 }
8429
8430                 $output_permissions     = kiriwrite_filepermissions($kiriwrite_config{'directory_data_output'}, 1, 1);
8431
8432                 if ($output_permissions ne 0){
8433
8434                         # The output directory has invalid
8435                         # permissions set so return an error.
8436
8437                         kiriwrite_error("outputdirectoryinvalidpermissions");
8438
8439                 }
8440
8441                 # Connect to the database server.
8442
8443                 $kiriwrite_dbmodule->connect();
8444
8445                 # Check if any errors occured while connecting to the database server.
8446
8447                 if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
8448
8449                         # A database connection error has occured so return
8450                         # an error.
8451
8452                         kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
8453
8454                 }
8455
8456                 # Connect to the filter database.
8457
8458                 $kiriwrite_dbmodule->connectfilter();
8459
8460                 # Check if any error has occured while connecting to the filter
8461                 # database.
8462
8463                 if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseDoesNotExist"){
8464
8465                         # The filter database does not exist so write a warning message.
8466
8467                         $kiriwrite_presmodule->addtext($warning_prefix . $kiriwrite_lang->{compile}->{filterdatabasemissing});
8468                         $kiriwrite_presmodule->addlinebreak();
8469                         $filters_skip = 1;
8470                         $warning_count++;
8471
8472                 } elsif ($kiriwrite_dbmodule->geterror eq "FilterDatabaseInvalidPermissionsSet"){
8473
8474                         # The filter database has invalid permissions set so write a
8475                         # an error message.
8476
8477                         $kiriwrite_presmodule->addtext($error_prefix . $kiriwrite_lang->{compile}->{filterdatabasepermissions});
8478                         $kiriwrite_presmodule->addlinebreak();
8479                         $filters_skip = 1;
8480                         $error_count++;
8481
8482                 }
8483
8484                 # Load the filter database (if the filters skip
8485                 # value isn't set to 1).
8486
8487                 if ($filters_skip eq 0){
8488
8489                         # Get the list of available filters.
8490
8491                         @database_filters       = $kiriwrite_dbmodule->getfilterlist();
8492
8493                         # Check if any errors occured while getting the list of filters.
8494
8495                         if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
8496
8497                                 # A database error has occured with the filter database.
8498
8499                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{filterdatabaseerror}, $kiriwrite_dbmodule->geterror(1)));
8500                                 $kiriwrite_presmodule->addlinebreak();
8501                                 $error_count++;
8502
8503                         }
8504
8505                         # Check if the filters skip value is set to 0
8506                         # before executing the query.
8507
8508                         if ($filters_skip eq 0){
8509
8510                                 foreach $filter (@database_filters){
8511
8512                                         # Get the filter information.
8513
8514                                         %filter_info = $kiriwrite_dbmodule->getfilterinfo({ FilterID => $filter });
8515
8516                                         # Check if any errors occured while getting the filter information.
8517
8518                                         if ($kiriwrite_dbmodule->geterror eq "FilterDatabaseError"){
8519
8520                                                 # A database error occured while using the filter database.
8521
8522                                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{filterdatabaseerror}, $kiriwrite_dbmodule->geterror(1)));
8523                                                 $kiriwrite_presmodule->addlinebreak();
8524                                                 $error_count++;
8525                                                 next;
8526
8527                                         } elsif ($kiriwrite_dbmodule->geterror eq "FilterDoesNotExist"){
8528
8529                                                 # The filter does not exist so process the next filter.
8530
8531                                                 next;
8532
8533                                         }
8534
8535                                         # Check if the find filter is blank and
8536                                         # if it is then write a warning message.
8537
8538                                         if (!$filter_info{"FilterFind"}){
8539
8540                                                 if ($filters_find_blank_warning ne 1){
8541
8542                                                         $kiriwrite_presmodule->addtext($warning_prefix . $kiriwrite_lang->{compile}->{findfilterblank});
8543                                                         $kiriwrite_presmodule->addlinebreak();
8544                                                         $filters_find_blank_warning = 1;
8545                                                 }
8546                                                 next;
8547
8548                                         } else {
8549
8550                                                 # Add each find and replace filter.
8551
8552                                                 $findfilter[$filters_count]     = $filter_info{"FilterFind"};
8553                                                 $replacefilter[$filters_count]  = $filter_info{"FilterReplace"};
8554
8555                                         }
8556
8557                                         $filters_count++;
8558
8559                                 }
8560
8561                                 $kiriwrite_presmodule->addtext($information_prefix . $kiriwrite_lang->{compile}->{finishfilterdatabase});
8562                                 $kiriwrite_presmodule->addlinebreak();
8563
8564                         }
8565
8566                 }
8567
8568                 # Disconnect from the filter database.
8569
8570                 $kiriwrite_dbmodule->disconnectfilter();
8571
8572                 # Connect to the template database.
8573
8574                 $kiriwrite_dbmodule->connecttemplate();
8575
8576                 # Check if any errors occured while connecting to the template database.
8577
8578                 if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseDoesNotExist"){
8579
8580                         # The template database does not exist so set the template
8581                         # warning message.
8582
8583                         $kiriwrite_presmodule->addtext($warning_prefix . $kiriwrite_lang->{compile}->{templatedatabasemissing});
8584                         $kiriwrite_presmodule->addlinebreak();
8585                         $templates_skip = 1;
8586                         $warning_count++;
8587
8588                 } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseInvalidPermissionsSet"){
8589
8590                         # The template database has invalid permissions set so write
8591                         # the template warning message.
8592
8593                         $kiriwrite_presmodule->addtext($error_prefix . $kiriwrite_lang->{compile}->{templatedatabasepermissions});
8594                         $kiriwrite_presmodule->addlinebreak();
8595                         $templates_skip = 1;
8596                         $error_count++;
8597
8598                 }
8599
8600                 # Check if the template skip value isn't set and if it isn't
8601                 # then get the list of templates.
8602
8603                 if (!$templates_skip){
8604
8605                         @templateslist = $kiriwrite_dbmodule->gettemplatelist();
8606
8607                         # Check if any errors had occured.
8608
8609                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
8610
8611                                 # A database error occured while getting the list
8612                                 # of templates so return a warning message with the
8613                                 # extended error information.
8614
8615                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{templatedatabaseerror}, $kiriwrite_dbmodule->geterror(1)));
8616                                 $templates_skip = 1;
8617                                 $error_count++;
8618
8619                         }
8620
8621                         # Check if the template skip value isn't set and if it isn't
8622                         # then process each template.
8623
8624                         if (!$templates_skip){
8625
8626                                 # Process each template.
8627
8628                                 foreach $template (@templateslist){
8629
8630                                         # Get information about the template.
8631
8632                                         %template_info = $kiriwrite_dbmodule->gettemplateinfo({ TemplateFilename => $template });
8633
8634                                         # Check if any error occured while getting the template information.
8635
8636                                         if ($kiriwrite_dbmodule->geterror eq "TemplateDatabaseError"){
8637
8638                                                 # A database error has occured, so return an error.
8639
8640                                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{templatedatabaseerror}, $kiriwrite_dbmodule->geterror(1)));
8641                                                 $error_count++;
8642
8643                                         } elsif ($kiriwrite_dbmodule->geterror eq "TemplateDoesNotExist"){
8644
8645                                                 # The template does not exist, so process the next template.
8646
8647                                                 next;
8648
8649                                         }
8650
8651                                         # Place each template file into the hash.
8652
8653                                         $templatefiles{$template_info{"TemplateFilename"}}{template}    = $template_info{"TemplateLayout"};
8654                                         $templatefiles{$template_info{"TemplateFilename"}}{valid}       = 1;
8655
8656                                 }
8657
8658                                 $kiriwrite_presmodule->addtext($information_prefix . $kiriwrite_lang->{compile}->{finishtemplatedatabase});
8659                                 $kiriwrite_presmodule->addlinebreak();
8660
8661                         }
8662
8663                 }
8664
8665                 # Disconnect from the template database.
8666
8667                 $kiriwrite_dbmodule->disconnecttemplate();
8668
8669                 # Process each database.
8670
8671                 foreach $database (@selectedlist){
8672
8673                         # Check if the database filename and length
8674                         # are valid.
8675
8676                         $kiriwrite_presmodule->addhorizontalline();
8677
8678                         $database_filename_check        = kiriwrite_variablecheck($database, "page_filename", "", 1);
8679                         $database_maxlength_check       = kiriwrite_variablecheck($database, "maxlength", 32, 1);
8680
8681                         if ($database_filename_check ne 0){
8682
8683                                 # The database filename is invalid, so process
8684                                 # the next database.
8685
8686                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databasefilenameinvalidcharacters}, $database));
8687                                 $kiriwrite_presmodule->addlinebreak();
8688                                 $error_count++;
8689                                 next;
8690
8691                         }
8692
8693                         if ($database_maxlength_check ne 0){
8694
8695                                 # The database file is too long, so process the
8696                                 # next database.
8697
8698                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databasefilenametoolong}, $database));
8699                                 $kiriwrite_presmodule->addlinebreak();
8700                                 $error_count++;
8701                                 next;
8702
8703                         }
8704
8705                         # Select the database.
8706
8707                         $kiriwrite_dbmodule->selectdb({ DatabaseName => $database });
8708
8709                         # Check if any errors had occured while selecting the database.
8710
8711                         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
8712
8713                                 # The database does not exist, so write a warning message.
8714
8715                                 $kiriwrite_presmodule->addtext($warning_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databasemissing}, $database));
8716                                 $kiriwrite_presmodule->addlinebreak();
8717                                 $warning_count++;
8718                                 next;
8719
8720                         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
8721
8722                                 # The database has invalid permissions set, so write
8723                                 # an error message.
8724
8725                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databaseinvalidpermissions}, $database));
8726                                 $kiriwrite_presmodule->addlinebreak();
8727                                 $error_count++;
8728                                 next;
8729
8730                         }
8731
8732                         # Get information about the database.
8733
8734                         my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
8735
8736                         # Check if any error occured while getting the database information.
8737
8738                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
8739
8740                                 # A database error has occured so write an error.
8741
8742                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databaseerror}, $database, $kiriwrite_dbmodule->geterror(1)));
8743                                 $kiriwrite_presmodule->addlinebreak();
8744                                 $error_count++;
8745                                 next;
8746
8747                         };
8748
8749                         # Get the database name.
8750
8751                         $database_name = $database_info{"DatabaseName"};
8752
8753                         $kiriwrite_presmodule->addtext($information_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{compilingpages}, $database_name));
8754                         $kiriwrite_presmodule->addlinebreak();
8755
8756                         # Get the list of pages in the database.
8757
8758                         @databasepages = $kiriwrite_dbmodule->getpagelist();
8759
8760                         # Check if any errors occured while getting the list of pages.
8761
8762                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
8763
8764                                 # A database error has occured so return an error and
8765                                 # also the extended error information.
8766
8767                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databasepageerror}, $database, $kiriwrite_dbmodule->geterror(1)));
8768                                 $kiriwrite_presmodule->addlinebreak();
8769                                 $error_count++;
8770                                 next;
8771
8772                         }
8773
8774                         foreach $page (@databasepages) {
8775
8776                                 # Get information about the page.
8777
8778                                 %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page });
8779
8780                                 $page_filename          = $page_info{"PageFilename"};
8781                                 $page_name              = $page_info{"PageName"};
8782                                 $page_description       = $page_info{"PageDescription"};
8783                                 $page_section           = $page_info{"PageSection"};
8784                                 $page_template          = $page_info{"PageTemplate"};
8785                                 $page_content           = $page_info{"PageContent"};
8786                                 $page_settings          = $page_info{"PageSettings"};
8787                                 $page_lastmodified      = $page_info{"PageLastModified"};
8788
8789                                 # Check if the filename is valid.
8790
8791                                 $page_filename_check = kiriwrite_variablecheck($page_filename, "page_filename", 0, 1);
8792
8793                                 if ($page_filename_check ne 0){
8794
8795                                         # The file name is not valid so write a
8796                                         # error and process the next page.
8797
8798                                         $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{invalidpagefilename}, $page_name));
8799                                         $kiriwrite_presmodule->addlinebreak();
8800                                         $error_count++;
8801                                         next;
8802
8803                                 }
8804
8805                                 # Check if the template with the filename does not exist
8806                                 # in the template files hash and write a message and
8807                                 # process the next page.
8808
8809                                 if (!$templatefiles{$page_template}{valid} && $page_template ne "!none" && $templates_skip eq 0){
8810
8811                                         $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{templatefilemissing}, $page_template, $page_name, $page_filename));
8812                                         $kiriwrite_presmodule->addlinebreak();
8813                                         $error_count++;
8814                                         next;
8815
8816                                         $page_final = $page_content;
8817
8818                                 } elsif ($page_template eq "!none"){
8819
8820                                         $page_final = $page_content;
8821
8822                                 } else {
8823
8824                                         $page_final = $templatefiles{$page_template}{template};
8825
8826                                         if (!$page_final){
8827                                                 $page_final = "";
8828                                         }
8829
8830                                         $page_final =~ s/<kiriwrite:pagecontent>/$page_content/g;
8831
8832                                 }
8833
8834                                 # Create the combined page title (if needed).
8835
8836                                 if ($page_settings eq 0 || $page_settings > 3){
8837
8838                                         # Don't use page name or section name.
8839
8840                                         $page_final =~ s/<kiriwrite:pagetitle>//g;
8841
8842                                 } elsif ($page_settings eq 1){
8843
8844                                         # Use the page name and section name.
8845
8846                                         $page_autotitle = "(" . $page_section . " - " . $page_name . ")";
8847                                         $page_title = $page_section . " - " . $page_name;
8848                                         $page_final =~ s/<kiriwrite:pagetitle>/$page_title/g;
8849
8850                                 } elsif ($page_settings eq 2){
8851
8852                                         # Use the page name only.
8853
8854                                         $page_autotitle = "(" . $page_name . ")";
8855                                         $page_final =~ s/<kiriwrite:pagetitle>/$page_name/g;
8856
8857                                 } elsif ($page_settings eq 3){
8858
8859                                         # Use the section name only.
8860
8861                                         if ($page_section){
8862                                                 $page_autotitle = "(" . $page_section . ")";
8863                                         }
8864                                         $page_final =~ s/<kiriwrite:pagetitle>/$page_section/g;
8865
8866                                 }
8867
8868                                 # Check if the section name is not blank and
8869                                 # place brackets inbetween if it is.
8870
8871                                 if ($page_section){
8872
8873                                         $page_autosection = "(" . $page_section . ")";
8874
8875                                 }
8876
8877                                 # Replace each <kiriwrite> value with the apporiate page
8878                                 # values.
8879
8880                                 $page_final =~ s/<kiriwrite:pagename>/$page_name/g;
8881                                 $page_final =~ s/<kiriwrite:pagedescription>/$page_description/g;
8882                                 $page_final =~ s/<kiriwrite:pagesection>/$page_section/g;
8883                                 $page_final =~ s/<kiriwrite:autosection>/$page_autosection/g;
8884                                 $page_final =~ s/<kiriwrite:autotitle>/$page_autotitle/g;
8885
8886                                 # Process the filters on the page data.
8887
8888                                 if ($filters_skip eq 0){
8889
8890                                         $filters_count = 0;
8891
8892                                         foreach $filter_find (@findfilter){
8893
8894                                                 # Get the replace filter and process each
8895                                                 # filter on the page.
8896
8897                                                 $filter_replace = $replacefilter[$filters_count];
8898                                                 $page_final =~ s/$filter_find/$filter_replace/g;
8899                                                 $filters_count++;
8900
8901                                         }
8902
8903                                 }
8904
8905                                 # Process the page filename and check what directories
8906                                 # need to be created.
8907
8908                                 $page_filename_length = int(length($page_filename));
8909
8910                                 do {
8911
8912                                         $page_filename_char = substr($page_filename, $page_filename_seek, 1);
8913
8914                                         # Check if a forward slash appears and add it to
8915                                         # the list of directories array.
8916
8917                                         if ($page_filename_char eq '/'){
8918
8919                                                 # Append the directory name to the list of
8920                                                 # directories array.
8921
8922                                                 $pagedirectories[$page_filename_dircount] = $page_filename_directory;
8923                                                 $page_filename_directory        = "";
8924                                                 $page_filename_char             = "";
8925                                                 $page_filename_dircount++;
8926
8927                                         } else {
8928
8929                                                 # Append the character to the directory/filename.
8930
8931                                                 $page_filename_directory = $page_filename_directory . $page_filename_char;
8932
8933                                         }
8934
8935                                         $page_filename_seek++;
8936
8937                                 } until ($page_filename_length eq $page_filename_seek);
8938
8939                                 foreach $page_directory_name (@pagedirectories){
8940
8941                                         # Check if the directory name is undefined and if it
8942                                         # is then set it blank.
8943
8944                                         if (!$page_directory_name){
8945                                                 $page_directory_name = "";
8946                                         }
8947
8948                                         if (!$page_directory_path){
8949                                                 $page_directory_path = "";
8950                                         }
8951
8952                                         # Check if the directory exists and create
8953                                         # the directory if it doesn't exist.
8954
8955                                         $page_directory_path = $page_directory_path . '/' . $page_directory_name;
8956
8957                                         mkdir($kiriwrite_config{"directory_data_output"} . '/' . $page_directory_path);
8958
8959                                 }
8960
8961                                 # Check if the file already exists and if it does then check
8962                                 # the permissions of the file and return an error if the
8963                                 # permissions set are invalid.
8964
8965                                 $page_filename_exists = kiriwrite_fileexists($kiriwrite_config{"directory_data_output"} . '/' . $page_filename);
8966
8967                                 if ($page_filename_exists eq 0){
8968
8969                                         # The page filename exists, so check if the permissions given are
8970                                         # valid.
8971
8972                                         $page_filename_permissions = kiriwrite_filepermissions($kiriwrite_config{"directory_data_output"} . '/' . $page_filename, 1, 1);
8973
8974                                         if ($page_filename_permissions eq 1){
8975
8976                                                 # The file has invalid permissions set.
8977
8978                                                 $kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{pageinvalidpermissions}, $page_filename));
8979                                                 $kiriwrite_presmodule->addlinebreak();
8980                                                 $error_count++;
8981
8982                                                 # Reset certain values.
8983
8984                                                 $page_autotitle = "";
8985                                                 $page_autosection = "";
8986                                                 $page_filename_seek = 0;
8987                                                 $page_filename_dircount = 0;
8988
8989                                                 $page_filename_directory = "";
8990                                                 $page_directory_path = "";
8991                                                 $page_directory_name = "";
8992                                                 @pagedirectories = ();
8993
8994                                                 next;
8995
8996                                         }
8997
8998                                 }
8999
9000                                 # Reset certain values.
9001
9002                                 $page_autotitle = "";
9003                                 $page_autosection = "";
9004                                 $page_filename_seek = 0;
9005                                 $page_filename_dircount = 0;
9006
9007                                 $page_filename_directory = "";
9008                                 $page_directory_path = "";
9009                                 $page_directory_name = "";
9010                                 @pagedirectories = ();
9011
9012                                 # Write the file to the output directory.
9013
9014                                 ($page_filename) = $page_filename =~ m/^(.*)$/g;
9015                                 ($kiriwrite_config{"directory_data_output"}) = $kiriwrite_config{"directory_data_output"} =~ m/^(.*)$/g;
9016
9017                                 open($filehandle_page, "> ",  $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);
9018
9019                                 if (!$page_final){
9020
9021                                         $page_final = "";
9022
9023                                 }
9024
9025                                 binmode $filehandle_page, ':utf8';
9026                                 print $filehandle_page $page_final;
9027                                 close($filehandle_page);
9028
9029                                 # Write a message saying the page has been compiled. Check
9030                                 # to see if the page name is blank and write a message
9031                                 # saying there's no page name.
9032
9033                                 if (!$page_name){
9034                                         $kiriwrite_presmodule->addtext($information_prefix . ' ');
9035                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{noname});
9036                                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{compile}->{compiledpageblankname}, $page_filename));
9037                                 } else {
9038                                         $kiriwrite_presmodule->addtext($information_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{compiledpage}, $page_name, $page_filename));
9039                                 }
9040
9041
9042                                 $kiriwrite_presmodule->addlinebreak();
9043                                 $pages_count++;
9044
9045                         }
9046
9047                         # Write a message saying that the database has
9048                         # been processed.
9049
9050                         $kiriwrite_presmodule->addtext($information_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{databasefinish}, $database_name));
9051                         $kiriwrite_presmodule->addlinebreak();
9052
9053                 }
9054
9055                 # Disconnect from the database server.
9056
9057                 $kiriwrite_dbmodule->disconnect();
9058
9059                 $kiriwrite_presmodule->addhorizontalline();
9060                 $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{compile}->{compileresults}, $pages_count, $error_count, $warning_count));
9061                 $kiriwrite_presmodule->endbox();
9062                 $kiriwrite_presmodule->addlinebreak();
9063                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist} });
9064
9065                 return $kiriwrite_presmodule->grab();
9066
9067         } elsif ($confirm eq 0){
9068
9069                 # The action to compile the databases has
9070                 # not been confirmed so check what type
9071                 # is being used.
9072
9073                 if ($type eq "single"){
9074
9075                         # The type is a single database selected so
9076                         # process that database.
9077
9078                         # Define some variables for later.
9079
9080                         my %database_info;
9081                         my $database_filename_check;
9082                         my $database_maxlength_check;
9083                         my $databasefilename;
9084                         my $database_name;
9085
9086                         # Check that the database name and length are
9087                         # valid and return an error if they aren't.
9088
9089                         $databasefilename = $selectedlist[0];
9090
9091                         # Connect to the database server.
9092
9093                         $kiriwrite_dbmodule->connect();
9094
9095                         # Check if any errors occured while connecting to the database server.
9096
9097                         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
9098
9099                                 # A database connection error has occured so return
9100                                 # an error.
9101
9102                                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
9103
9104                         }
9105
9106                         # Select the database.
9107
9108                         $kiriwrite_dbmodule->selectdb({ DatabaseName => $databasefilename });
9109
9110                         # Check if any errors had occured while selecting the database.
9111
9112                         if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
9113
9114                                 # The database does not exist, so return an error.
9115
9116                                 kiriwrite_error("databasemissingfile");
9117
9118                         } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
9119
9120                                 # The database has invalid permissions set, so return
9121                                 # an error.
9122
9123                                 kiriwrite_error("databaseinvalidpermissions");
9124
9125                         }
9126
9127                         # Get information about the database.
9128
9129                         %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
9130
9131                         # Check if any error occured while getting the database information.
9132
9133                         if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
9134
9135                                 # A database error has occured so return an error and
9136                                 # also the extended error information.
9137
9138                                 kiriwrite_error("databaseerror", $kiriwrite_dbmodule->geterror(1));
9139
9140                         };
9141
9142                         $database_name = $database_info{"DatabaseName"};
9143
9144                         # Disconnect from the database server.
9145
9146                         $kiriwrite_dbmodule->disconnect();
9147
9148                         # Write out a form asking the user to confirm if the
9149                         # user wants to compile the selected database.
9150
9151                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compiledatabase}, { Style => "pageheader" });
9152                         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
9153                         $kiriwrite_presmodule->startbox();
9154                         $kiriwrite_presmodule->addhiddendata("mode", "compile");
9155                         $kiriwrite_presmodule->addhiddendata("action", "compile");
9156                         $kiriwrite_presmodule->addhiddendata("type", "multiple");
9157                         $kiriwrite_presmodule->addhiddendata("id[1]", $databasefilename);
9158                         $kiriwrite_presmodule->addhiddendata("name[1]", "on");
9159                         $kiriwrite_presmodule->addhiddendata("confirm", 1);
9160                         $kiriwrite_presmodule->addlinebreak();
9161                         $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{compile}->{compiledatabasemessage}, $database_name));
9162                         $kiriwrite_presmodule->addlinebreak();
9163                         $kiriwrite_presmodule->addlinebreak();
9164                         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{compile}->{compiledatabasebutton});
9165                         $kiriwrite_presmodule->addtext(" | ");
9166                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist} });
9167                         $kiriwrite_presmodule->endbox();
9168                         $kiriwrite_presmodule->endform();
9169
9170                         return $kiriwrite_presmodule->grab();
9171
9172                 } elsif ($type eq "multiple"){
9173
9174                         # The type is multiple databases selected
9175                         # so process each database.
9176
9177                         # Define some variables for later.
9178
9179                         my %database_list;
9180                         my $databasename;
9181                         my $database;
9182                         my $database_filename_check;
9183                         my $database_maxlength_check;
9184                         my $database_count = 0;
9185                         my $database_info_name;
9186
9187                         # Connect to the database server.
9188
9189                         $kiriwrite_dbmodule->connect();
9190
9191                         # Check if any errors occured while connecting to the database server.
9192
9193                         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
9194
9195                                 # A database connection error has occured so return
9196                                 # an error.
9197
9198                                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
9199
9200                         }
9201
9202                         foreach $databasename (@selectedlist){
9203
9204                                 # Check if the database is in the database
9205                                 # directory and skip it if it isn't.
9206
9207                                 $database_filename_check        = kiriwrite_variablecheck($databasename, "filename", "", 1);
9208                                 $database_maxlength_check       = kiriwrite_variablecheck($databasename, "maxlength", 32, 1);
9209
9210                                 if ($database_filename_check ne 0 || $database_maxlength_check ne 0){
9211
9212                                         # The database filename given is invalid or
9213                                         # the database filename given is too long
9214                                         # so process the next database.
9215
9216                                         next;
9217
9218                                 }
9219
9220                                 # Select the database to add the page to.
9221
9222                                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $databasename });
9223
9224                                 # Check if any errors had occured while selecting the database.
9225
9226                                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
9227
9228                                         # The database does not exist, so process the next database.
9229
9230                                         next;
9231
9232                                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet"){
9233
9234                                         # The database has invalid permissions set, so process
9235                                         # the next database.
9236
9237                                         next;
9238
9239                                 }
9240
9241                                 # Get information about the database.
9242
9243                                 my %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
9244
9245                                 # Check if any error occured while getting the database information.
9246
9247                                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
9248
9249                                         # A database error has occured so process the next
9250                                         # database.
9251
9252                                         next;
9253
9254                                 };
9255
9256                                 $database_list{$database_count}{Name}           = $database_info{"DatabaseName"};
9257                                 $database_list{$database_count}{Filename}       = $databasename;
9258
9259                                 $database_count++;
9260
9261                         }
9262
9263                         # Check if any databases are available to be compiled.
9264
9265                         if ($database_count eq 0){
9266
9267                                 # No databases are available to be compiled.
9268
9269                                 kiriwrite_error("nodatabaseselected");
9270
9271                         }
9272
9273                         # Write out the form for compiling the database.
9274
9275                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compileselecteddatabases}, { Style => "pageheader" });
9276                         $kiriwrite_presmodule->addlinebreak();
9277                         $kiriwrite_presmodule->addlinebreak();
9278                         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
9279                         $kiriwrite_presmodule->startbox();
9280                         $kiriwrite_presmodule->addhiddendata("mode", "compile");
9281                         $kiriwrite_presmodule->addhiddendata("action", "compile");
9282                         $kiriwrite_presmodule->addhiddendata("type", "multiple");
9283                         $kiriwrite_presmodule->addhiddendata("count", $database_count);
9284                         $kiriwrite_presmodule->addhiddendata("confirm", 1);
9285                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compileselecteddatabasesmessage});
9286                         $kiriwrite_presmodule->addlinebreak();
9287                         $kiriwrite_presmodule->addlinebreak();
9288                         $kiriwrite_presmodule->startbox("datalist");
9289
9290                         $database_count = 0;
9291
9292                         # write out the list of databases to compile.
9293
9294                         foreach $database (keys %database_list){
9295
9296                                 $database_count++;
9297
9298                                 $kiriwrite_presmodule->addhiddendata("id[" . $database_count . "]", $database_list{$database}{Filename});
9299                                 $kiriwrite_presmodule->addhiddendata("name[" . $database_count . "]", "on");
9300
9301                                 # Check if the database name is undefined and if it is
9302                                 # then write a message saying the database name is blank.
9303
9304                                 if (!$database_list{$database}{Name}){
9305                                         $kiriwrite_presmodule->additalictext($kiriwrite_lang->{compile}->{blankdatabasename});
9306                                 } else {
9307                                         $kiriwrite_presmodule->addtext($database_list{$database}{Name});
9308                                 }
9309
9310                                 $kiriwrite_presmodule->addlinebreak();
9311
9312                         }
9313
9314                         $kiriwrite_presmodule->endbox();
9315
9316                         # Disconnect from the database server.
9317
9318                         $kiriwrite_dbmodule->disconnect();
9319
9320                         $kiriwrite_presmodule->addlinebreak();
9321                         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{compile}->{compileselecteddatabasesbutton});
9322                         $kiriwrite_presmodule->addtext(" | ");
9323                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist} });
9324                         $kiriwrite_presmodule->endbox();
9325                         $kiriwrite_presmodule->endform();
9326
9327                         return $kiriwrite_presmodule->grab();
9328
9329                 } else {
9330
9331                         # The type is something else other than
9332                         # single or multiple, so return an error.
9333
9334                         kiriwrite_error("invalidvariable");
9335
9336                 }
9337
9338         } else {
9339
9340                 # The confirm value is neither 0 or 1, so
9341                 # return an error.
9342
9343                 kiriwrite_error("invalidvariable");
9344
9345         }
9346
9347 }
9348
9349 sub kiriwrite_compile_all{
9350 #################################################################################
9351 # kiriwrite_compile_all: Compile all of the databases in the database           #
9352 # directory.                                                                    #
9353 #                                                                               #
9354 # Usage:                                                                        #
9355 #                                                                               #
9356 # kiriwrite_compile_all();                                                      #
9357 #################################################################################
9358
9359         # Connect to the database server.
9360
9361         $kiriwrite_dbmodule->connect();
9362
9363         # Check if any errors occured while connecting to the database server.
9364
9365         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
9366
9367                 # A database connection error has occured so return
9368                 # an error.
9369
9370                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
9371
9372         }
9373
9374         # Get the list of available databases.
9375
9376         my @database_list = $kiriwrite_dbmodule->getdblist();
9377
9378         # Check if any errors occured while getting the databases.
9379
9380         if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
9381
9382                 # The database directory is missing so return an error.
9383
9384                 kiriwrite_error("datadirectorymissing");
9385
9386         } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
9387
9388                 # The database directory has invalid permissions set so return
9389                 # an error.
9390
9391                 kiriwrite_error("datadirectoryinvalidpermissions");
9392
9393         }
9394
9395         # Define some variables for later.
9396
9397         my $database;
9398         my $database_name_filename_check;
9399         my $database_count              = 0;
9400
9401         # Check the list of databases to compile to see if it is blank,
9402         # if it is then return an error.
9403
9404         if (!@database_list){
9405
9406                 # The list of database is blank so return an error.
9407
9408                 kiriwrite_error("nodatabasesavailable");
9409
9410         }
9411
9412         # Write out a form for confirming the action to compile all of the databases.
9413
9414         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compilealldatabases}, { Style => "pageheader" });
9415         $kiriwrite_presmodule->addlinebreak();
9416         $kiriwrite_presmodule->addlinebreak();
9417
9418         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
9419         $kiriwrite_presmodule->startbox();
9420         $kiriwrite_presmodule->addhiddendata("mode", "compile");
9421         $kiriwrite_presmodule->addhiddendata("action", "compile");
9422         $kiriwrite_presmodule->addhiddendata("type", "multiple");
9423
9424         foreach $database (@database_list){
9425
9426                 # Check if the database filename is blank.
9427
9428                 if ($database eq ""){
9429
9430                         # The database filename is blank so process
9431                         # the next database.
9432
9433                         next;
9434
9435                 }
9436
9437                 # Check if the database filename is valid before
9438                 # using the database.
9439
9440                 $database_name_filename_check   = kiriwrite_variablecheck($database, "filename", 0, 1);
9441
9442                 if ($database_name_filename_check ne 0){
9443
9444                         # The database filename is invalid so process
9445                         # the next database.
9446
9447                         next;
9448
9449                 }
9450
9451                 $database_count++;
9452                 $kiriwrite_presmodule->addhiddendata("id[" . $database_count . "]", $database);
9453                 $kiriwrite_presmodule->addhiddendata("name[" . $database_count . "]", "on");
9454
9455         }
9456
9457         $kiriwrite_presmodule->addhiddendata("count", $database_count);
9458
9459         # Disconnect from the database server.
9460
9461         $kiriwrite_dbmodule->disconnect();
9462
9463         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compilealldatabasesmessage});
9464         $kiriwrite_presmodule->addlinebreak();
9465         $kiriwrite_presmodule->addlinebreak();
9466
9467         $kiriwrite_presmodule->addhiddendata("confirm", 1);
9468         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{compile}->{compilealldatabasesbutton});
9469         $kiriwrite_presmodule->addtext(" | ");
9470         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist} });
9471         $kiriwrite_presmodule->endbox();
9472         $kiriwrite_presmodule->endform();
9473
9474         return $kiriwrite_presmodule->grab();
9475
9476 }
9477
9478 sub kiriwrite_selectedlist{
9479 #################################################################################
9480 # kiriwrite_page_selectedlist: Get the list of selected pages to use.           #
9481 #                                                                               #
9482 # Usage:                                                                        #
9483 #                                                                               #
9484 # kiriwrite_page_selectedlist();                                                #
9485 #################################################################################
9486
9487         # Load the required Perl modules.
9488
9489         my $query = new CGI;
9490
9491         my $count       = $query->param('count');
9492
9493         # Check if the list of files has a value and if not set it 0.
9494
9495         if (!$count){
9496
9497                 $count = 0;
9498
9499         }
9500
9501         # Define some values for later.
9502
9503         my @filename_list;
9504         my @selected_list;
9505         my @final_list;
9506
9507         my $filename;
9508         my $selected;
9509
9510         my $final_count = 0;
9511         my $seek = 0;
9512
9513         # Get the list of filenames.
9514
9515         do {
9516
9517                 # Get the values from id[]
9518
9519                 $seek++;
9520
9521                 $filename               = $query->param('id[' . $seek . ']');
9522                 $filename_list[$seek]   = $filename;
9523
9524         } until ($seek eq $count || $count eq 0);
9525
9526         # Get the list of selected filenames.
9527
9528         $seek = 0;
9529
9530         do {
9531
9532                 # Get the values from name[]
9533
9534                 $seek++;
9535
9536                 $selected       = $query->param('name[' . $seek . ']');
9537
9538                 if (!$selected){
9539
9540                         $selected = 'off';
9541
9542                 }
9543
9544                 $selected_list[$seek]   = $selected;
9545
9546         } until ($seek eq $count || $count eq 0);
9547
9548         # Create a final list of filenames to be used for
9549         # processing.
9550
9551         $seek = 0;
9552
9553         do {
9554
9555                 # Check if the selected value is on and include
9556                 # the filename in the final list.
9557
9558                 $seek++;
9559
9560                 $selected       = $selected_list[$seek];
9561
9562                 if ($selected eq "on"){
9563
9564                         $filename       = $filename_list[$seek];
9565                         $final_list[$final_count] = $filename;
9566                         $final_count++;
9567
9568                 }
9569
9570         } until ($seek eq $count || $count eq 0);
9571
9572         return @final_list;
9573
9574 }
9575
9576 sub kiriwrite_compile_list{
9577 #################################################################################
9578 # kiriwrite_compile_list: Shows a list of databases that can be compiled.       #
9579 #                                                                               #
9580 # Usage:                                                                        #
9581 #                                                                               #
9582 # kiriwrite_compile_list();                                                     #
9583 #################################################################################
9584
9585         # Define the following variables that are going to be used before using
9586         # the foreach function.
9587
9588         my %database_info;
9589         my %database_list;
9590         my $database_count = 0;
9591         my $database_filename = "";
9592         my $database_filename_friendly = "";
9593         my $database_permissions = "";
9594         my $database_name = "";
9595         my $database_description = "";
9596         my $data_file = "";
9597         my @permissions_list;
9598         my @error_list;
9599         my $table_style = 0;
9600         my $table_style_name = "";
9601         my $database;
9602
9603         tie(%database_list, 'Tie::IxHash');
9604
9605         # Connect to the database server.
9606
9607         $kiriwrite_dbmodule->connect();
9608
9609         # Check if any errors occured while connecting to the database server.
9610
9611         if ($kiriwrite_dbmodule->geterror eq "DatabaseConnectionError"){
9612
9613                 # A database connection error has occured so return
9614                 # an error.
9615
9616                 kiriwrite_error("databaseconnectionerror", $kiriwrite_dbmodule->geterror(1));
9617
9618         }
9619
9620         # Get the list of available databases and process any errors that
9621         # might have occured.
9622
9623         my @database_list = $kiriwrite_dbmodule->getdblist();
9624
9625         if ($kiriwrite_dbmodule->geterror eq "DataDirMissing"){
9626
9627                 # The database directory is missing so return an error.
9628
9629                 kiriwrite_error("datadirectorymissing");
9630
9631         } elsif ($kiriwrite_dbmodule->geterror eq "DataDirInvalidPermissions"){
9632
9633                 # The database directory has invalid permissions set so return
9634                 # an error.
9635
9636                 kiriwrite_error("datadirectoryinvalidpermissions");
9637
9638         }
9639
9640         # Begin creating the table for the list of databases.
9641
9642         foreach $data_file (@database_list){
9643
9644                 # Select the database.
9645
9646                 $kiriwrite_dbmodule->selectdb({ DatabaseName => $data_file });
9647
9648                 # Check if any error occured while selecting the database.
9649
9650                 if ($kiriwrite_dbmodule->geterror eq "DoesNotExist"){
9651
9652                         # The database does not exist, so process the next
9653                         # database.
9654
9655                         next;
9656
9657                 } elsif ($kiriwrite_dbmodule->geterror eq "InvalidPermissionsSet") {
9658
9659                         # The database has invalid permissions settings, so
9660                         # add the database to the list of databases with
9661                         # invalid permissions set and process the next
9662                         # database.
9663
9664                         push(@permissions_list, $data_file);
9665                         next;
9666
9667                 }
9668
9669                 # Get information about the database.
9670
9671                 %database_info = $kiriwrite_dbmodule->getdatabaseinfo();
9672
9673                 # Check if any error occured while getting information from the
9674                 # database.
9675
9676                 if ($kiriwrite_dbmodule->geterror eq "DatabaseError"){
9677
9678                         # A database error has occured, add the database and specific
9679                         # error message to the list of databases with errors and
9680                         # process the next database.
9681
9682                         push(@error_list, $data_file . ": " . $kiriwrite_dbmodule->geterror(1));
9683                         next;
9684
9685                 }
9686
9687                 $database_name          = $database_info{"DatabaseName"};
9688                 $database_description   = $database_info{"Description"};
9689
9690                 # Create a friendly name for the database.
9691
9692                 $database_filename_friendly = $data_file;
9693
9694                 # Append the database information to the table.
9695
9696                 $database_list{$database_count}{Filename}       = $database_filename_friendly;
9697                 $database_list{$database_count}{Name}           = $database_name;
9698                 $database_list{$database_count}{Description}    = $database_description;
9699
9700                 $database_count++;
9701
9702         }
9703
9704         # Check if there are no valid databases are if there is no
9705         # valid databases then write a message saying that no
9706         # valid databases are available.
9707
9708         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{compilepages}, { Style => "pageheader" });
9709         $kiriwrite_presmodule->addlinebreak();
9710         $kiriwrite_presmodule->addlinebreak();
9711
9712         if ($database_count eq 0){
9713
9714                 # There are no databases available for compiling so
9715                 # write a message instead.
9716
9717                 $kiriwrite_presmodule->startbox("errorbox");
9718                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{nodatabasesavailable});
9719                 $kiriwrite_presmodule->endbox();
9720
9721         } else {
9722
9723                 $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
9724                 $kiriwrite_presmodule->startbox();
9725                 $kiriwrite_presmodule->addhiddendata("mode", "compile");
9726                 $kiriwrite_presmodule->addhiddendata("action", "compile");
9727                 $kiriwrite_presmodule->addhiddendata("type", "multiple");
9728
9729                 $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{selectnone});
9730                 $kiriwrite_presmodule->addtext(" | ");
9731                 $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{compile}->{compileselectedbutton});
9732                 $kiriwrite_presmodule->addlinebreak();
9733                 $kiriwrite_presmodule->addlinebreak();
9734                 $kiriwrite_presmodule->addhiddendata("count", $database_count);
9735                 $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
9736
9737                 $kiriwrite_presmodule->startheader();
9738                 $kiriwrite_presmodule->addheader("", { Style => "tablecellheader" });
9739                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{database}->{databasename}, { Style => "tablecellheader" });
9740                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{database}->{databasedescription}, { Style => "tablecellheader" });
9741                 $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{options}, { Style => "tablecellheader" });
9742                 $kiriwrite_presmodule->endheader();
9743
9744                 $database_count = 1;
9745
9746                 foreach $database (keys %database_list){
9747
9748                         # Check the style to be used with.
9749
9750                         if ($table_style eq 0){
9751
9752                                 # Use the first style and set the style value
9753                                 # to use the next style, the next time the
9754                                 # if statement is checked.
9755
9756                                 $table_style_name = "tablecell1";
9757                                 $table_style = 1;
9758
9759                         } else {
9760
9761                                 # Use the second style and set the style
9762                                 # value to use the first style, the next
9763                                 # time if statement is checked.
9764
9765                                 $table_style_name = "tablecell2";
9766                                 $table_style = 0;
9767                         }
9768
9769                         # Add the template to the list of available
9770                         # templates to compile.
9771
9772                         $kiriwrite_presmodule->startrow();
9773                         $kiriwrite_presmodule->addcell($table_style_name);
9774                         $kiriwrite_presmodule->addhiddendata("id[" . $database_count . "]", $database_list{$database}{Filename});
9775                         $kiriwrite_presmodule->addcheckbox("name[" . $database_count . "]");
9776                         $kiriwrite_presmodule->endcell();
9777                         $kiriwrite_presmodule->addcell($table_style_name);
9778
9779                         if (!$database_list{$database}{Name}){
9780                                 $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}) });
9781                         } else {
9782                                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=page&action=view&database=" . $database_list{$database}{Filename}, { Text => $database_list{$database}{Name} });
9783                         }
9784
9785                         $kiriwrite_presmodule->endcell();
9786                         $kiriwrite_presmodule->addcell($table_style_name);
9787
9788                         if (!$database_list{$database}{Description}){
9789                                 $kiriwrite_presmodule->additalictext($kiriwrite_lang->{blank}->{nodescription});
9790                         } else {
9791                                 $kiriwrite_presmodule->addtext($database_list{$database}{Description});
9792                         }
9793
9794                         $kiriwrite_presmodule->endcell();
9795                         $kiriwrite_presmodule->addcell($table_style_name);
9796                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile&action=compile&type=single&database=" . $database_list{$database}{Filename}, { Text => $kiriwrite_lang->{options}->{compile} });
9797                         $kiriwrite_presmodule->endcell();
9798                         $kiriwrite_presmodule->endrow();
9799
9800                         $database_count++;
9801
9802                 }
9803
9804                 $kiriwrite_presmodule->endtable();
9805                 $kiriwrite_presmodule->endbox();
9806                 $kiriwrite_presmodule->endform();
9807
9808         }
9809
9810         # Disconnect from the database server.
9811
9812         $kiriwrite_dbmodule->disconnect();
9813
9814         # Check if any databases with problems have appeared and if they
9815         # have, print out a message saying which databases have problems.
9816
9817         if (@permissions_list){
9818
9819                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseinvalidpermissions}, { Style => "smallpageheader" });
9820                 $kiriwrite_presmodule->addlinebreak();
9821                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseinvalidpermissionstext});
9822                 $kiriwrite_presmodule->addlinebreak();
9823
9824                 foreach $database (@permissions_list){
9825
9826                         $kiriwrite_presmodule->addlinebreak();
9827                         $kiriwrite_presmodule->addtext($database);
9828
9829                 }
9830
9831                 $kiriwrite_presmodule->addlinebreak();
9832                 $kiriwrite_presmodule->addlinebreak();
9833
9834         }
9835
9836         if (@error_list){
9837
9838                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseerrors}, { Style => "smallpageheader" });
9839                 $kiriwrite_presmodule->addlinebreak();
9840                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{database}->{databaseerrorstext});
9841                 $kiriwrite_presmodule->addlinebreak();
9842
9843                 foreach $database (@error_list){
9844
9845                         $kiriwrite_presmodule->addlinebreak();
9846                         $kiriwrite_presmodule->addtext($database);
9847
9848                 }
9849
9850         }
9851
9852         return $kiriwrite_presmodule->grab();
9853
9854 }
9855
9856 sub kiriwrite_compile_clean{
9857 #################################################################################
9858 # kiriwrite_compile_clean: Deletes the contents of the output directory.        #
9859 #                                                                               #
9860 # Usage:                                                                        #
9861 #                                                                               #
9862 # kiriwrite_compile_clean(confirm);                                             #
9863 #                                                                               #
9864 # confirm       Confirms the deletion of files from the output directory.       #
9865 #################################################################################
9866
9867         # Get the values passed to the subroutine.
9868
9869         my ($confirm) = @_;
9870
9871         # Define some variables for later.
9872
9873         my $file_permissions;
9874         my $output_directory_exists;
9875         my $output_directory_permissions;
9876         my $warning_message;
9877
9878         # Check if the output directory exists.
9879
9880         $output_directory_exists         = kiriwrite_fileexists($kiriwrite_config{"directory_data_output"});
9881
9882         if ($output_directory_exists eq 1){
9883
9884                 # The output directory does not exist so return
9885                 # an error.
9886
9887                 kiriwrite_error("outputdirectorymissing");
9888
9889         }
9890
9891         # Check if the output directory has invalid
9892         # permissions set.
9893
9894         $output_directory_permissions   = kiriwrite_filepermissions($kiriwrite_config{"directory_data_output"});
9895
9896         if ($output_directory_permissions eq 1){
9897
9898                 # The output directory has invalid permissions
9899                 # set, so return an error.
9900
9901                 kiriwrite_error("outputdirectoryinvalidpermissions");
9902
9903         }
9904
9905         if ($confirm) {
9906
9907                 if ($confirm eq 1){
9908
9909                         # The action to clean the output directory has been
9910                         # confirmed.
9911
9912                         # Remove the list of files and directories from the
9913                         # output directory.
9914
9915                         $file_permissions = kiriwrite_compile_clean_helper($kiriwrite_config{"directory_data_output"}, 1);
9916
9917                         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{cleanoutputdirectory}, { Style => "pageheader" });
9918
9919                         if ($file_permissions eq 1){
9920
9921                                 $kiriwrite_presmodule->addlinebreak();
9922                                 $kiriwrite_presmodule->addlinebreak();
9923                                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{somecontentnotremoved});
9924                                 $kiriwrite_presmodule->addlinebreak();
9925                                 $kiriwrite_presmodule->addlinebreak();
9926
9927                         } else {
9928
9929                                 $kiriwrite_presmodule->addlinebreak();
9930                                 $kiriwrite_presmodule->addlinebreak();
9931                                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{contentremoved});
9932                                 $kiriwrite_presmodule->addlinebreak();
9933                                 $kiriwrite_presmodule->addlinebreak();
9934
9935                         }
9936
9937                         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist} });
9938
9939                         return $kiriwrite_presmodule->grab();
9940
9941                 } else {
9942
9943                         # A value other than 1 is set for the confirm value
9944                         # (which it shouldn't be) so return an error.
9945
9946                         kiriwrite_error("invalidvariable");
9947
9948                 }
9949
9950         }
9951
9952         # Print out a form for cleaning the output directory.
9953
9954         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{cleanoutputdirectory}, { Style => "pageheader" });
9955         $kiriwrite_presmodule->addlinebreak();
9956         $kiriwrite_presmodule->addlinebreak();
9957         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
9958         $kiriwrite_presmodule->startbox();
9959         $kiriwrite_presmodule->addhiddendata("mode", "compile");
9960         $kiriwrite_presmodule->addhiddendata("action", "clean");
9961         $kiriwrite_presmodule->addhiddendata("confirm", 1);
9962         $kiriwrite_presmodule->addtext($kiriwrite_lang->{compile}->{cleanoutputdirectorymessage});
9963         $kiriwrite_presmodule->addlinebreak();
9964         $kiriwrite_presmodule->addlinebreak();
9965         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{compile}->{cleanoutputdirectorybutton});
9966         $kiriwrite_presmodule->addtext(" | ");
9967         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{returncompilelist}});
9968         $kiriwrite_presmodule->endbox();
9969         $kiriwrite_presmodule->endform();
9970
9971         return $kiriwrite_presmodule->grab();
9972
9973 }
9974
9975 sub kiriwrite_compile_clean_helper{
9976 #################################################################################
9977 # kiriwrite_compile_clean_helper: Helper for cleaning out the output directory. #
9978 # This command sometimes is called recursively (when a directory is found).     #
9979 #                                                                               #
9980 # Usage:                                                                        #
9981 #                                                                               #
9982 # kiriwrite_compile_clean_helper(directory, removedirectory, [permissions]);    #
9983 #                                                                               #
9984 # directory             Specifies the directory to remove files (and            #
9985 #                       sub-directories) from.                                  #
9986 # keepdirectory         Keeps the directory itself after all files have been    #
9987 #                       removed.                                                #
9988 # permissions           Used recursively for error checking.                    #
9989 #################################################################################
9990
9991         # Get the values passed to the subroutine.
9992
9993         my ($directory, $directory_keep, $permissions) = @_;
9994
9995         # Check if the directory_keep is only one charater long.
9996
9997         my $directory_file = "";
9998         my @directory_list;
9999         my $file_permissions = 0;
10000         my $debug = 0;
10001
10002         # Check if the file permissions value is blank.
10003
10004         if (!$permissions){
10005
10006                 # The file permissions value is blank.
10007
10008                 $permissions = 0;
10009
10010         }
10011
10012         # Open the directory specified, read the contents of
10013         # the directory and then close the directory.
10014
10015         opendir(DIRECTORY, $directory);
10016         @directory_list = readdir(DIRECTORY);
10017         closedir(DIRECTORY);
10018
10019         # Remove each file and directory.
10020
10021         foreach $directory_file (@directory_list){
10022
10023                 # Check if the filename is '.' or '..' and if it
10024                 # is skip those files.
10025
10026                 if ($directory_file eq "." || $directory_file eq ".."){
10027
10028                         # The filename is '.' or '..' so skip processing
10029                         # these files.
10030
10031                 } else {
10032
10033                         # Check if the permissions on the file or directory has
10034                         # valid permissions set.
10035
10036                         $file_permissions = kiriwrite_filepermissions($directory . '/' . $directory_file, 1, 1);
10037
10038                         if ($file_permissions eq 1){
10039
10040                                 # The file or directory has invalid permissions set.
10041
10042                                 $permissions = 1;
10043                                 next;
10044
10045                         }
10046
10047                         # Check if the filename is a directory.
10048
10049                         if (-d $directory . '/' . $directory_file){
10050
10051                                 # The filename is a directory so send the directory name
10052                                 # and this subroutine again (recursively).
10053
10054                                 kiriwrite_compile_clean_helper($directory . '/' . $directory_file, 0, $permissions);
10055
10056                         } else {
10057
10058                                 # The file is not a directory but an actual file so
10059                                 # remove as normal (in terms of the Perl language).
10060
10061                                 ($directory) = $directory =~ m/^(.*)$/g;
10062                                 ($directory_file) = $directory_file =~ m/^(.*)$/g;
10063
10064                                 # Check if the directory is undefined and if it is then
10065                                 # set it to blank.
10066
10067                                 if (!$directory){
10068                                         $directory = "";
10069                                 }
10070
10071                                 if (!$directory_file){
10072                                         $directory_file = "";
10073                                 }
10074
10075                                 unlink($directory . '/' . $directory_file);
10076
10077                         }
10078
10079                 }
10080
10081         }
10082
10083         # Check if the directory should be kept.
10084
10085         if ($directory_keep eq 1){
10086
10087                 # The directory_keep value is set as 1 so the directory
10088                 # specified should be kept.
10089
10090         } elsif ($directory_keep eq 0) {
10091
10092                 # The directory_keep value is set as 0 so remove the
10093                 # directory specified.
10094
10095                 ($directory) = $directory =~ m/^(.*)$/g;
10096                 rmdir($directory);
10097
10098         } else {
10099
10100                 # A value other than 0 or 1 was specified so return
10101                 # an error,
10102
10103                 kiriwrite_error('invalidvalue');
10104
10105         }
10106
10107         return $permissions;
10108
10109 }
10110
10111 sub kiriwrite_settings_view{
10112 #################################################################################
10113 # kiriwrite_options_view: Writes out the list of options and variables.         #
10114 #                                                                               #
10115 # Usage:                                                                        #
10116 #                                                                               #
10117 # kiriwrite_settings_view();                                                    #
10118 #################################################################################
10119
10120         # Get the settings.
10121
10122         my $settings_directory_db               = $kiriwrite_config{"directory_data_db"};
10123         my $settings_directory_output           = $kiriwrite_config{"directory_data_output"};
10124         my $settings_noncgi_images              = $kiriwrite_config{"directory_noncgi_images"};
10125         my $settings_system_datetime            = $kiriwrite_config{"system_datetime"};
10126         my $settings_system_language            = $kiriwrite_config{"system_language"};
10127         my $settings_system_presentation        = $kiriwrite_config{"system_presmodule"};
10128         my $settings_system_database            = $kiriwrite_config{"system_dbmodule"};
10129
10130         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{viewsettings}, { Style => "pageheader" });
10131         $kiriwrite_presmodule->addlinebreak();
10132         $kiriwrite_presmodule->addlinebreak();
10133         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{currentsettings});
10134         $kiriwrite_presmodule->addlinebreak();
10135         $kiriwrite_presmodule->addlinebreak();
10136         $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
10137
10138         $kiriwrite_presmodule->startheader();
10139         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
10140         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
10141         $kiriwrite_presmodule->endheader();
10142
10143         $kiriwrite_presmodule->startrow();
10144         $kiriwrite_presmodule->addcell("tablecellheader");
10145         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{directories});
10146         $kiriwrite_presmodule->endcell();
10147         $kiriwrite_presmodule->addcell("tablecellheader");
10148         $kiriwrite_presmodule->endcell();
10149         $kiriwrite_presmodule->endrow();
10150
10151         $kiriwrite_presmodule->startrow();
10152         $kiriwrite_presmodule->addcell("tablecell1");
10153         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasedirectory});
10154         $kiriwrite_presmodule->endcell();
10155         $kiriwrite_presmodule->addcell("tablecell2");
10156         $kiriwrite_presmodule->addtext($settings_directory_db);
10157         $kiriwrite_presmodule->endcell();
10158         $kiriwrite_presmodule->endrow();
10159
10160         $kiriwrite_presmodule->startrow();
10161         $kiriwrite_presmodule->addcell("tablecell1");
10162         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{outputdirectory});
10163         $kiriwrite_presmodule->endcell();
10164         $kiriwrite_presmodule->addcell("tablecell2");
10165         $kiriwrite_presmodule->addtext($settings_directory_output);
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}->{imagesuripath});
10172         $kiriwrite_presmodule->endcell();
10173         $kiriwrite_presmodule->addcell("tablecell2");
10174         $kiriwrite_presmodule->addtext($settings_noncgi_images);
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}->{date});
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}->{dateformat});
10189         $kiriwrite_presmodule->endcell();
10190         $kiriwrite_presmodule->addcell("tablecell2");
10191         $kiriwrite_presmodule->addtext($settings_system_datetime);
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}->{language});
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}->{systemlanguage});
10206         $kiriwrite_presmodule->endcell();
10207         $kiriwrite_presmodule->addcell("tablecell2");
10208         $kiriwrite_presmodule->addtext($settings_system_language);
10209         $kiriwrite_presmodule->endcell();
10210         $kiriwrite_presmodule->endrow();
10211
10212         $kiriwrite_presmodule->startrow();
10213         $kiriwrite_presmodule->addcell("tablecellheader");
10214         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{modules});
10215         $kiriwrite_presmodule->endcell();
10216         $kiriwrite_presmodule->addcell("tablecellheader");
10217         $kiriwrite_presmodule->endcell();
10218         $kiriwrite_presmodule->endrow();
10219
10220         $kiriwrite_presmodule->startrow();
10221         $kiriwrite_presmodule->addcell("tablecell1");
10222         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{presentationmodule});
10223         $kiriwrite_presmodule->endcell();
10224         $kiriwrite_presmodule->addcell("tablecell2");
10225         $kiriwrite_presmodule->addtext($settings_system_presentation);
10226         $kiriwrite_presmodule->endcell();
10227         $kiriwrite_presmodule->endrow();
10228
10229         $kiriwrite_presmodule->startrow();
10230         $kiriwrite_presmodule->addcell("tablecell1");
10231         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasemodule});
10232         $kiriwrite_presmodule->endcell();
10233         $kiriwrite_presmodule->addcell("tablecell2");
10234         $kiriwrite_presmodule->addtext($settings_system_database);
10235         $kiriwrite_presmodule->endcell();
10236         $kiriwrite_presmodule->endrow();
10237
10238         $kiriwrite_presmodule->endtable();
10239
10240         $kiriwrite_presmodule->addlinebreak();
10241         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{altersettings});
10242
10243         return $kiriwrite_presmodule->grab();
10244
10245 }
10246
10247 sub kiriwrite_settings_edit{
10248 #################################################################################
10249 # kiriwrite_settings_edit: Edits the options.                                   #
10250 #                                                                               #
10251 # Usage:                                                                        #
10252 #                                                                               #
10253 # kiriwrite_settings_edit(options);                                             #
10254 #                                                                               #
10255 # options               Specifies the following options in any order.           #
10256 #                                                                               #
10257 # DatabaseDirectory     Specifies the new database directory to use.            #
10258 # OutputDirectory       Specifies the new output directory to use.              #
10259 # ImagesURIPath         Specifies the new URI path for images.                  #
10260 # DateTimeFormat        Specifies the new date and time format.                 #
10261 # SystemLanguage        Specifies the new language to use for Kiriwrite.        #
10262 # PrsentationModule     Specifies the new presentation module to use for        #
10263 #                       Kiriwrite.                                              #
10264 # DatabaseModule        Specifies the new database module to use for Kiriwrite. #
10265 #                                                                               #
10266 # Options for server-based database modules.                                    #
10267 #                                                                               #
10268 # DatabaseServer        Specifies the database server to use.                   #
10269 # DaravasePort          Specifies the port the database server is running on.   #
10270 # DatabaseProtocol      Specifies the protocol the database server is using.    #
10271 # DatabaseSQLDatabase   Specifies the SQL database name to use.                 #
10272 # DatabaseUsername      Specifies the database server username.                 #
10273 # DatabasePasswordKeep  Keeps the current password in the configuration file.   #
10274 # DatabasePassword      Specifies the password for the database server username.#
10275 # DatabaseTablePrefix   Specifies the prefix used for tables.                   #
10276 #################################################################################
10277
10278         # Get the values that have been passed to the subroutine.
10279
10280         my ($passedoptions) = @_;
10281
10282         # Get the values from the hash.
10283
10284         my $settings_dbdirectory                = $passedoptions->{"DatabaseDirectory"};
10285         my $settings_outputdirectory            = $passedoptions->{"OutputDirectory"};
10286         my $settings_imagesuri                  = $passedoptions->{"ImagesURIPath"};
10287         my $settings_datetimeformat             = $passedoptions->{"DateTimeFormat"};
10288         my $settings_languagesystem             = $passedoptions->{"SystemLanguage"};
10289         my $settings_presmodule                 = $passedoptions->{"PresentationModule"};
10290         my $settings_dbmodule                   = $passedoptions->{"DatabaseModule"};
10291
10292         my $settings_database_server            = $passedoptions->{"DatabaseServer"};
10293         my $settings_database_port              = $passedoptions->{"DatabasePort"};
10294         my $settings_database_protocol          = $passedoptions->{"DatabaseProtocol"};
10295         my $settings_database_sqldatabase       = $passedoptions->{"DatabaseSQLDatabase"};
10296         my $settings_database_username          = $passedoptions->{"DatabaseUsername"};
10297         my $settings_database_passwordkeep      = $passedoptions->{"DatabasePasswordKeep"};
10298         my $settings_database_password          = $passedoptions->{"DatabasePassword"};
10299         my $settings_database_tableprefix       = $passedoptions->{"DatabaseTablePrefix"};
10300
10301         my $confirm                             = $passedoptions->{"Confirm"};
10302
10303         if (!$confirm){
10304
10305                 # If the confirm value is blank, then set the confirm
10306                 # value to 0.
10307
10308                 $confirm = 0;
10309
10310         }
10311
10312         if ($confirm eq "1"){
10313
10314                 # The action to edit the settings has been confirmed.
10315                 # Start by checking each variable about to be placed
10316                 # in the settings file is valid.
10317
10318                 # Deinfe some variables for later.
10319
10320                 my @kiriwrite_new_settings;
10321
10322                 # Check the length of the directory names.
10323
10324                 kiriwrite_variablecheck($settings_dbdirectory, "maxlength", 64, 0);
10325                 kiriwrite_variablecheck($settings_outputdirectory, "maxlength", 64, 0);
10326                 kiriwrite_variablecheck($settings_imagesuri, "maxlength", 512, 0);
10327                 kiriwrite_variablecheck($settings_datetimeformat, "maxlength", 32, 0);
10328
10329                 kiriwrite_variablecheck($settings_languagesystem, "language_filename", "", 0);
10330
10331                 # Check the module names to see if they're valid.
10332
10333                 my $kiriwrite_presmodule_modulename_check       = kiriwrite_variablecheck($settings_presmodule, "module", 0, 1);
10334                 my $kiriwrite_dbmodule_modulename_check         = kiriwrite_variablecheck($settings_dbmodule, "module", 0, 1);
10335
10336                 if ($kiriwrite_presmodule_modulename_check eq 1){
10337
10338                         # The presentation module name is blank, so return
10339                         # an error.
10340
10341                         kiriwrite_error("presmoduleblank");
10342
10343                 }
10344
10345                 if ($kiriwrite_presmodule_modulename_check eq 2){
10346
10347                         # The presentation module name is invalid, so return
10348                         # an error.
10349
10350                         kiriwrite_error("presmoduleinvalid");
10351
10352                 }
10353
10354                 if ($kiriwrite_dbmodule_modulename_check eq 1){
10355
10356                         # The database module name is blank, so return
10357                         # an error.
10358
10359                         kiriwrite_error("dbmoduleblank");
10360
10361                 }
10362
10363                 if ($kiriwrite_dbmodule_modulename_check eq 2){
10364
10365                         # The database module name is invalid, so return
10366                         # an error.
10367
10368                         kiriwrite_error("dbmoduleinvalid");
10369
10370                 }
10371
10372                 # Check if the directory names only contain letters and numbers and
10373                 # return a specific error if they don't.
10374
10375                 my $kiriwrite_dbdirectory_check         = kiriwrite_variablecheck($settings_dbdirectory, "directory", 0, 1);
10376                 my $kiriwrite_outputdirectory_check     = kiriwrite_variablecheck($settings_outputdirectory, "directory", 0, 1);
10377                 kiriwrite_variablecheck($settings_datetimeformat, "datetime", 0, 0);
10378
10379                 if ($kiriwrite_dbdirectory_check eq 1){
10380
10381                         # The database directory name is blank, so return
10382                         # an error.
10383
10384                         kiriwrite_error("dbdirectoryblank");
10385
10386                 } elsif ($kiriwrite_dbdirectory_check eq 2){
10387
10388                         # The database directory name is invalid, so return
10389                         # an error.
10390
10391                         kiriwrite_error("dbdirectoryinvalid");
10392
10393                 }
10394
10395                 if ($kiriwrite_outputdirectory_check eq 1){
10396
10397                         # The output directory name is blank, so return
10398                         # an error.
10399
10400                         kiriwrite_error("outputdirectoryblank");
10401
10402                 } elsif ($kiriwrite_outputdirectory_check eq 2){
10403
10404                         # The output directory name is invalid, so return
10405                         # an error.
10406
10407                         kiriwrite_error("outputdirectoryinvalid");
10408
10409                 }
10410
10411                 # Check if the presentation module with the filename given exists.
10412
10413                 my $presmodule_exists = kiriwrite_fileexists("Modules/Presentation/" . $settings_presmodule . ".pm");
10414
10415                 if ($presmodule_exists eq 1){
10416
10417                         # The presentation module does not exist so return an error.
10418
10419                         kiriwrite_error("presmodulemissing");
10420
10421                 }
10422
10423                 # Check if the database module with the filename given exists.
10424
10425                 my $dbmodule_exists = kiriwrite_fileexists("Modules/Database/" . $settings_dbmodule . ".pm");
10426
10427                 if ($dbmodule_exists eq 1){
10428
10429                         # The database module does not exist so return an error.
10430
10431                         kiriwrite_error("dbmodulemissing");
10432
10433                 }
10434
10435                 # Check if the language filename given exists.
10436
10437                 my $languagefile_exists = kiriwrite_fileexists("lang/" . $settings_languagesystem . ".xml");
10438
10439                 if ($languagefile_exists eq 1){
10440
10441                         # The language filename given does not exist so return an error.
10442
10443                         kiriwrite_error("languagefilenamemissing");
10444
10445                 }
10446
10447                 # Check the database server options to see if they are valid.
10448
10449                 my $kiriwrite_databaseserver_length_check               = kiriwrite_variablecheck($settings_database_server, "maxlength", 128, 1);
10450                 my $kiriwrite_databaseserver_lettersnumbers_check       = kiriwrite_variablecheck($settings_database_server, "lettersnumbers", 0, 1);
10451                 my $kiriwrite_databaseport_length_check                 = kiriwrite_variablecheck($settings_database_port, "maxlength", 5, 1);
10452                 my $kiriwrite_databaseport_numbers_check                = kiriwrite_variablecheck($settings_database_port, "numbers", 0, 1);
10453                 my $kiriwrite_databaseport_port_check                   = kiriwrite_variablecheck($settings_database_port, "port", 0, 1);
10454                 my $kiriwrite_databaseprotocol_length_check             = kiriwrite_variablecheck($settings_database_protocol, "maxlength", 5, 1);
10455                 my $kiriwrite_databaseprotocol_protocol_check           = kiriwrite_variablecheck($settings_database_protocol, "serverprotocol", 0, 1);
10456                 my $kiriwrite_databasename_length_check                 = kiriwrite_variablecheck($settings_database_sqldatabase, "maxlength", 32, 1);
10457                 my $kiriwrite_databasename_lettersnumbers_check         = kiriwrite_variablecheck($settings_database_sqldatabase, "lettersnumbers", 0, 1);
10458                 my $kiriwrite_databaseusername_length_check             = kiriwrite_variablecheck($settings_database_username, "maxlength", 16, 1);
10459                 my $kiriwrite_databaseusername_lettersnumbers_check     = kiriwrite_variablecheck($settings_database_username, "lettersnumbers", 0, 1);
10460                 my $kiriwrite_databasepassword_length_check             = kiriwrite_variablecheck($settings_database_password, "maxlength", 64, 1);
10461                 my $kiriwrite_databasetableprefix_length_check          = kiriwrite_variablecheck($settings_database_tableprefix, "maxlength", 16, 1);
10462                 my $kiriwrite_databasetableprefix_lettersnumbers_check  = kiriwrite_variablecheck($settings_database_tableprefix, "lettersnumbers", 0, 1);
10463
10464                 if ($kiriwrite_databaseserver_length_check eq 1){
10465
10466                         # The length of the database server name is too long so
10467                         # return an error.
10468
10469                         kiriwrite_error("servernametoolong");
10470
10471                 }
10472
10473                 if ($kiriwrite_databaseserver_lettersnumbers_check eq 1){
10474
10475                         # The database server name contains characters other
10476                         # than letters and numbers, so return an error.
10477
10478                         kiriwrite_error("servernameinvalid");
10479
10480                 }
10481
10482                 if ($kiriwrite_databaseport_length_check eq 1){
10483
10484                         # The database port number length is too long so return
10485                         # an error.
10486
10487                         kiriwrite_error("serverportnumbertoolong");
10488
10489                 }
10490
10491                 if ($kiriwrite_databaseport_numbers_check eq 1){
10492
10493                         # The database port number contains characters other
10494                         # than numbers so return an error.
10495
10496                         kiriwrite_error("serverportnumberinvalidcharacters");
10497
10498                 }
10499
10500                 if ($kiriwrite_databaseport_port_check eq 1){
10501
10502                         # The database port number given is invalid so return
10503                         # an error.
10504
10505                         kiriwrite_error("serverportnumberinvalid");
10506
10507                 }
10508
10509                 if ($kiriwrite_databaseprotocol_length_check eq 1){
10510
10511                         # The database protocol name given is too long so
10512                         # return an error.
10513
10514                         kiriwrite_error("serverprotocolnametoolong");
10515
10516                 }
10517
10518                 if ($kiriwrite_databaseprotocol_protocol_check eq 1){
10519
10520                         # The server protcol given is invalid so return
10521                         # an error.
10522
10523                         kiriwrite_error("serverprotocolinvalid");
10524
10525                 }
10526
10527                 if ($kiriwrite_databasename_length_check eq 1){
10528
10529                         # The SQL database name is too long so return
10530                         # an error.
10531
10532                         kiriwrite_error("serverdatabasenametoolong");
10533
10534                 }
10535
10536                 if ($kiriwrite_databasename_lettersnumbers_check eq 1){
10537
10538                         # The database name contains invalid characters
10539                         # so return an error.
10540
10541                         kiriwrite_error("serverdatabasenameinvalid");
10542
10543                 }
10544
10545                 if ($kiriwrite_databaseusername_length_check eq 1){
10546
10547                         # The database username given is too long so
10548                         # return an error.
10549
10550                         kiriwrite_error("serverdatabaseusernametoolong");
10551
10552                 }
10553
10554                 if ($kiriwrite_databaseusername_lettersnumbers_check eq 1){
10555
10556                         # The database username contains invalid characters
10557                         # so return an error.
10558
10559                         kiriwrite_error("serverdatabaseusernameinvalid");
10560
10561                 }
10562
10563                 if ($kiriwrite_databasepassword_length_check eq 1){
10564
10565                         # The database password given is too long so return
10566                         # an error.
10567
10568                         kiriwrite_error("serverdatabasepasswordtoolong");
10569
10570                 }
10571
10572                 if ($kiriwrite_databasetableprefix_length_check eq 1){
10573
10574                         # The database table prefix given is too long so
10575                         # return an error.
10576
10577                         kiriwrite_error("serverdatabasetableprefixtoolong");
10578
10579                 }
10580
10581                 if ($kiriwrite_databasetableprefix_lettersnumbers_check eq 1){
10582
10583                         # The database table prefix given contains invalid
10584                         # characters so return an error.
10585
10586                         kiriwrite_error("serverdatabasetableprefixinvalid");
10587
10588                 }
10589
10590                 # Check if the current password should be kept.
10591
10592                 if ($settings_database_passwordkeep eq "on"){
10593
10594                         # The current password in the configuration file should be used.
10595
10596                         $settings_database_password     = $kiriwrite_config{"database_password"};
10597
10598                 }
10599
10600                 # Write the new settings to the XML file.
10601
10602                 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 });
10603
10604                 # Write a confirmation message.
10605
10606                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{settingsedited}, { Style => "pageheader" });
10607                 $kiriwrite_presmodule->addlinebreak();
10608                 $kiriwrite_presmodule->addlinebreak();
10609                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{settingseditedmessage});
10610                 $kiriwrite_presmodule->addlinebreak();
10611                 $kiriwrite_presmodule->addlinebreak();
10612                 $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=settings", { Text => $kiriwrite_lang->{setting}->{returnsettingslist} });
10613
10614                 return $kiriwrite_presmodule->grab();
10615
10616         }
10617
10618         # Get the list of languages available.
10619
10620         my %language_list;
10621         my @language_directory          = "";
10622         my $language;
10623         my $language_filename           = "";
10624         my $language_file_xml           = "";
10625         my $language_file_systemname    = "";
10626         my $language_file_localname     = "";
10627         my $language_file_seek          = 0;
10628         my $language_flie_dot           = 0;
10629         my $language_file_length        = 0;
10630         my $language_file_count         = 0;
10631         my $language_file_char          = "";
10632         my $language_file_friendly      = "";
10633         my $language_config             = $kiriwrite_config{"system_language"};
10634
10635         tie(%language_list, 'Tie::IxHash');
10636
10637         opendir(LANGUAGEDIR, "lang");
10638         @language_directory = grep /m*\.xml$/, readdir(LANGUAGEDIR);
10639         closedir(LANGUAGEDIR);
10640
10641         # Process each language by loading the XML configuration file
10642         # used for each language and then get the System name and
10643         # the local name of the language.
10644
10645         foreach $language_filename (@language_directory){
10646
10647                 # Load the language file currently selected.
10648
10649                 $language_file_xml = $xsl->XMLin("lang" . '/' . $language_filename, SuppressEmpty => 1);
10650
10651                 # Get the system name and the local name of the language.
10652
10653                 $language_file_localname = $language_file_xml -> {about} -> {name};
10654
10655                 # Check if either the system name or the local name of the language
10656                 # is blank and if it is, then don't add the language to the list.
10657
10658                 if ($language_file_localname eq ""){
10659
10660                         # The system name or the local name is blank so don't add
10661                         # the language to the list.
10662
10663                 } else {
10664
10665                         # Get the 'friendly' name of the language file name (basically
10666                         # remove the .xml part from the filename.
10667
10668                         $language_file_length = length($language_filename);
10669
10670                         do {
10671
10672                                 # Get a character from the language filename and currently
10673                                 # set by the seek counter.
10674
10675                                 $language_file_char = substr($language_filename, $language_file_seek, 1);
10676
10677                                 # Check if the character is a dot and if it is then set the
10678                                 # last dot value to the seek counter value.
10679
10680                                 if ($language_file_char eq "."){
10681
10682                                         # Current chatacter is a dot so set the last dot value
10683                                         # to what is currently the seek counter.
10684
10685                                         $language_flie_dot = $language_file_seek;
10686
10687                                 } else {
10688
10689                                         # Current character is not a dot, so do nothing.
10690
10691                                 }
10692
10693                                 # Increment the seek counter.
10694
10695                                 $language_file_seek++;
10696
10697                         } until ($language_file_seek eq $language_file_length);
10698
10699                         # Reset the seek counter.
10700
10701                         $language_file_seek = 0;
10702
10703                         # Process the file name again and this time process the file
10704                         # name until it reaches the last dot found.
10705
10706                         do {
10707
10708                                 # Get the character the seek counter is currently set at.
10709
10710                                 $language_file_char = substr($language_filename, $language_file_seek, 1);
10711
10712                                 # Append the character to the friendly file name.
10713
10714                                 $language_file_friendly = $language_file_friendly . $language_file_char;
10715
10716                                 # Increment the seek counter.
10717
10718                                 $language_file_seek++;
10719
10720                         } until ($language_file_seek eq $language_flie_dot);
10721
10722                         # Append the language to the available languages list.
10723
10724                         $language_list{$language_file_count}{Filename} = $language_file_friendly;
10725                         $language_list{$language_file_count}{Name} = $language_file_localname;
10726                         $language_file_count++;
10727
10728                         # Reset certain counters and values before continuing.
10729
10730                         $language_file_seek     = 0;
10731                         $language_flie_dot      = 0;
10732                         $language_file_length   = 0;
10733                         $language_file_char     = "";
10734                         $language_file_friendly = "";
10735
10736                 }
10737
10738         }
10739
10740         # Get the list of presentation modules available.
10741
10742         my %presmodule_list;
10743         my @presmodule_directory;
10744         my $presmodule;
10745         my $presmodule_file             = "";
10746         my $presmodule_char             = "";
10747         my $presmodule_dot              = 0;
10748         my $presmodule_firstdot         = 0;
10749         my $presmodule_firstdotfound    = "";
10750         my $presmodule_seek             = 0;
10751         my $presmodule_length           = 0;
10752         my $presmodule_count            = 0;
10753         my $presmodule_friendly         = "";
10754         my $presmodule_selectlist       = "";
10755         my $presmodule_config           = $kiriwrite_config{"system_presmodule"};
10756
10757         # Open and get the list of presentation modules (perl modules) by filtering
10758         # out the
10759
10760         opendir(OUTPUTSYSTEMDIR, "Modules/Presentation");
10761         @presmodule_directory = grep /m*\.pm$/, readdir(OUTPUTSYSTEMDIR);
10762         closedir(OUTPUTSYSTEMDIR);
10763
10764         # Process each presentation module and add them to the list of available
10765         # presentation modules.
10766
10767         foreach $presmodule_file (@presmodule_directory){
10768
10769                 # Get the length of the presentation module (perl module) filename.
10770
10771                 $presmodule_length = length($presmodule_file);
10772
10773                 # Get the friendly name of the Perl module (by getting rid of the
10774                 # .pm part of the filename).
10775
10776                 do {
10777
10778                         $presmodule_char = substr($presmodule_file, $presmodule_seek, 1);
10779
10780                         # Check if the current character is a dot and if it is then
10781                         # set the last dot found number to the current seek number.
10782
10783                         if ($presmodule_char eq "."){
10784
10785                                 # Put the seek value as the last dot found number.
10786
10787                                 $presmodule_dot = $presmodule_seek;
10788
10789                         }
10790
10791                         # Increment the seek counter.
10792
10793                         $presmodule_seek++;
10794
10795                 } until ($presmodule_seek eq $presmodule_length);
10796
10797                 # Reset the seek counter as it is going to be used again.
10798
10799                 $presmodule_seek = 0;
10800
10801                 # Get the friendly name of the Perl module by the processing the file
10802                 # name to the last dot the previous 'do' tried to find.
10803
10804                 do {
10805
10806                         # Get the character the seek counter is currently set at.
10807
10808                         $presmodule_char = substr($presmodule_file, $presmodule_seek, 1);
10809
10810                         # Append the character to the friendly name of the presentation module.
10811
10812                         $presmodule_friendly = $presmodule_friendly . $presmodule_char;
10813
10814                         # Increment the seek counter.
10815
10816                         $presmodule_seek++;
10817
10818                 } until ($presmodule_seek eq $presmodule_dot);
10819
10820                 # Append the option to tbe list of available presentation modules.
10821
10822                 $presmodule_list{$presmodule_count}{Filename} = $presmodule_friendly;
10823
10824                 # Reset the following values.
10825
10826                 $presmodule_seek        = 0;
10827                 $presmodule_length      = 0;
10828                 $presmodule_char        = "";
10829                 $presmodule_friendly    = "";
10830                 $presmodule_count++;
10831
10832         }
10833
10834         # Get the list of database modules available.
10835
10836         my %dbmodule_list;
10837         my @dbmodule_directory;
10838         my $dbmodule;
10839         my $dbmodule_file               = "";
10840         my $dbmodule_char               = "";
10841         my $dbmodule_dot                = 0;
10842         my $dbmodule_firstdot           = 0;
10843         my $dbmodule_firstdotfound      = "";
10844         my $dbmodule_seek               = 0;
10845         my $dbmodule_length             = 0;
10846         my $dbmodule_count              = 0;
10847         my $dbmodule_friendly           = "";
10848         my $dbmodule_selectlist         = "";
10849         my $dbmodule_config             = $kiriwrite_config{"system_dbmodule"};
10850
10851         # Open and get the list of presentation modules (perl modules) by filtering
10852         # out the
10853
10854         opendir(DATABASEDIR, "Modules/Database");
10855         @dbmodule_directory = grep /m*\.pm$/, readdir(DATABASEDIR);
10856         closedir(DATABASEDIR);
10857
10858         # Process each presentation module and add them to the list of available
10859         # presentation modules.
10860
10861         foreach $dbmodule_file (@dbmodule_directory){
10862
10863                 # Get the length of the database module (perl module) filename.
10864
10865                 $dbmodule_length = length($dbmodule_file);
10866
10867                 # Get the friendly name of the Perl module (by getting rid of the
10868                 # .pm part of the filename).
10869
10870                 do {
10871
10872                         $dbmodule_char = substr($dbmodule_file, $dbmodule_seek, 1);
10873
10874                         # Check if the current character is a dot and if it is then
10875                         # set the last dot found number to the current seek number.
10876
10877                         if ($dbmodule_char eq "."){
10878
10879                                 # Put the seek value as the last dot found number.
10880
10881                                 $dbmodule_dot = $dbmodule_seek;
10882
10883                         }
10884
10885                         # Increment the seek counter.
10886
10887                         $dbmodule_seek++;
10888
10889                 } until ($dbmodule_seek eq $dbmodule_length);
10890
10891                 # Reset the seek counter as it is going to be used again.
10892
10893                 $dbmodule_seek = 0;
10894
10895                 # Get the friendly name of the Perl module by the processing the file
10896                 # name to the last dot the previous 'do' tried to find.
10897
10898                 do {
10899
10900                         # Get the character the seek counter is currently set at.
10901
10902                         $dbmodule_char = substr($dbmodule_file, $dbmodule_seek, 1);
10903
10904                         # Append the character to the friendly name of the presentation module.
10905
10906                         $dbmodule_friendly = $dbmodule_friendly . $dbmodule_char;
10907
10908                         # Increment the seek counter.
10909
10910                         $dbmodule_seek++;
10911
10912                 } until ($dbmodule_seek eq $dbmodule_dot);
10913
10914                 # Append the option to tbe list of available database modules.
10915
10916                 $dbmodule_list{$dbmodule_count}{Filename} = $dbmodule_friendly;
10917
10918                 # Reset the following values.
10919
10920                 $dbmodule_seek  = 0;
10921                 $dbmodule_length        = 0;
10922                 $dbmodule_char          = "";
10923                 $dbmodule_friendly      = "";
10924                 $dbmodule_count++;
10925
10926         }
10927
10928         # Get the directory settings.
10929
10930         my $directory_settings_database         = $kiriwrite_config{"directory_data_db"};
10931         my $directory_settings_output           = $kiriwrite_config{"directory_data_output"};
10932         my $directory_settings_imagesuri        = $kiriwrite_config{"directory_noncgi_images"};
10933         my $datetime_setting                    = $kiriwrite_config{"system_datetime"};
10934
10935         my $database_server                     = $kiriwrite_config{"database_server"};
10936         my $database_port                       = $kiriwrite_config{"database_port"};
10937         my $database_protocol                   = $kiriwrite_config{"database_protocol"};
10938         my $database_sqldatabase                = $kiriwrite_config{"database_sqldatabase"};
10939         my $database_username                   = $kiriwrite_config{"database_username"};
10940         my $database_passwordhash               = $kiriwrite_config{"database_passwordhash"};
10941         my $database_password                   = $kiriwrite_config{"database_password"};
10942         my $database_prefix                     = $kiriwrite_config{"database_tableprefix"};
10943
10944         # Print out a form for editing the settings.
10945
10946         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{editsettings}, { Style => "pageheader" });
10947         $kiriwrite_presmodule->addlinebreak();
10948         $kiriwrite_presmodule->addlinebreak();
10949         $kiriwrite_presmodule->addboldtext($kiriwrite_lang->{setting}->{warning});
10950         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{warningmessage});
10951         $kiriwrite_presmodule->addlinebreak();
10952         $kiriwrite_presmodule->addlinebreak();
10953
10954         $kiriwrite_presmodule->startform($kiriwrite_env{"script_filename"}, "POST");
10955         $kiriwrite_presmodule->startbox();
10956         $kiriwrite_presmodule->addhiddendata("mode", "settings");
10957         $kiriwrite_presmodule->addhiddendata("action", "edit");
10958         $kiriwrite_presmodule->addhiddendata("confirm", 1);
10959
10960         $kiriwrite_presmodule->starttable("", { CellPadding => 5, CellSpacing => 0 });
10961
10962         $kiriwrite_presmodule->startheader();
10963         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{setting}, { Style => "tablecellheader" });
10964         $kiriwrite_presmodule->addheader($kiriwrite_lang->{common}->{value}, { Style => "tablecellheader" });
10965         $kiriwrite_presmodule->endheader();
10966
10967         $kiriwrite_presmodule->startrow();
10968         $kiriwrite_presmodule->addcell("tablecellheader");
10969         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{directories});
10970         $kiriwrite_presmodule->endcell();
10971         $kiriwrite_presmodule->addcell("tablecellheader");
10972         $kiriwrite_presmodule->endcell();
10973         $kiriwrite_presmodule->endrow();
10974
10975         $kiriwrite_presmodule->startrow();
10976         $kiriwrite_presmodule->addcell("tablecell1");
10977         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasedirectory});
10978         $kiriwrite_presmodule->endcell();
10979         $kiriwrite_presmodule->addcell("tablecell2");
10980         $kiriwrite_presmodule->addinputbox("databasedir", { Size => 32, MaxLength => 64, Value => $directory_settings_database });
10981         $kiriwrite_presmodule->endcell();
10982         $kiriwrite_presmodule->endrow();
10983
10984         $kiriwrite_presmodule->startrow();
10985         $kiriwrite_presmodule->addcell("tablecell1");
10986         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{outputdirectory});
10987         $kiriwrite_presmodule->endcell();
10988         $kiriwrite_presmodule->addcell("tablecell2");
10989         $kiriwrite_presmodule->addinputbox("outputdir", { Size => 32, MaxLength => 64, Value => $directory_settings_output });
10990         $kiriwrite_presmodule->endcell();
10991         $kiriwrite_presmodule->endrow();
10992
10993         $kiriwrite_presmodule->startrow();
10994         $kiriwrite_presmodule->addcell("tablecell1");
10995         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{imagesuripath});
10996         $kiriwrite_presmodule->endcell();
10997         $kiriwrite_presmodule->addcell("tablecell2");
10998         $kiriwrite_presmodule->addinputbox("imagesuripath", { Size => 32, MaxLength => 64, Value => $directory_settings_imagesuri });
10999         $kiriwrite_presmodule->endcell();
11000         $kiriwrite_presmodule->endrow();
11001
11002         $kiriwrite_presmodule->startrow();
11003         $kiriwrite_presmodule->addcell("tablecellheader");
11004         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{date});
11005         $kiriwrite_presmodule->endcell();
11006         $kiriwrite_presmodule->addcell("tablecellheader");
11007         $kiriwrite_presmodule->endcell();
11008         $kiriwrite_presmodule->endrow();
11009
11010         $kiriwrite_presmodule->startrow();
11011         $kiriwrite_presmodule->addcell("tablecell1");
11012         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{dateformat});
11013         $kiriwrite_presmodule->endcell();
11014         $kiriwrite_presmodule->addcell("tablecell2");
11015         $kiriwrite_presmodule->addinputbox("datetime", { Size => 32, MaxLength => 64, Value => $datetime_setting });
11016         $kiriwrite_presmodule->addlinebreak();
11017         $kiriwrite_presmodule->addlinebreak();
11018         $kiriwrite_presmodule->startbox("datalist");
11019
11020         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singleday});
11021         $kiriwrite_presmodule->addlinebreak();
11022         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doubleday});
11023         $kiriwrite_presmodule->addlinebreak();
11024         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singlemonth});
11025         $kiriwrite_presmodule->addlinebreak();
11026         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doublemonth});
11027         $kiriwrite_presmodule->addlinebreak();
11028         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singleyear});
11029         $kiriwrite_presmodule->addlinebreak();
11030         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doubleyear});
11031         $kiriwrite_presmodule->addlinebreak();
11032         $kiriwrite_presmodule->addlinebreak();
11033         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singlehour});
11034         $kiriwrite_presmodule->addlinebreak();
11035         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doublehour});
11036         $kiriwrite_presmodule->addlinebreak();
11037         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singleminute});
11038         $kiriwrite_presmodule->addlinebreak();
11039         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doubleminute});
11040         $kiriwrite_presmodule->addlinebreak();
11041         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{singlesecond});
11042         $kiriwrite_presmodule->addlinebreak();
11043         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{doublesecond});
11044         $kiriwrite_presmodule->addlinebreak();
11045         $kiriwrite_presmodule->addlinebreak();
11046         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{othercharacters});
11047         $kiriwrite_presmodule->endbox();
11048         $kiriwrite_presmodule->endcell();
11049         $kiriwrite_presmodule->endrow();
11050
11051         $kiriwrite_presmodule->startrow();
11052         $kiriwrite_presmodule->addcell("tablecellheader");
11053         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{language});
11054         $kiriwrite_presmodule->endcell();
11055         $kiriwrite_presmodule->addcell("tablecellheader");
11056         $kiriwrite_presmodule->endcell();
11057         $kiriwrite_presmodule->endrow();
11058
11059         $kiriwrite_presmodule->startrow();
11060         $kiriwrite_presmodule->addcell("tablecell1");
11061         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{systemlanguage});
11062         $kiriwrite_presmodule->endcell();
11063         $kiriwrite_presmodule->addcell("tablecell2");
11064
11065         $kiriwrite_presmodule->addselectbox("language");
11066
11067         # Process the list of available languages.
11068
11069         foreach $language (keys %language_list){
11070
11071                 # Check if the language filename matches the filename in the configuration
11072                 # file.
11073
11074                 if ($language_list{$language}{Filename} eq $language_config){
11075
11076                         $kiriwrite_presmodule->addoption($language_list{$language}{Name}, { Value => $language_list{$language}{Filename} , Selected => 1 });
11077
11078                 } else {
11079
11080                         $kiriwrite_presmodule->addoption($language_list{$language}{Name}, { Value => $language_list{$language}{Filename} });
11081
11082                 }
11083
11084         }
11085
11086         $kiriwrite_presmodule->endselectbox();
11087
11088         $kiriwrite_presmodule->startrow();
11089         $kiriwrite_presmodule->addcell("tablecellheader");
11090         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{modules});
11091         $kiriwrite_presmodule->endcell();
11092         $kiriwrite_presmodule->addcell("tablecellheader");
11093         $kiriwrite_presmodule->endcell();
11094         $kiriwrite_presmodule->endrow();
11095
11096         $kiriwrite_presmodule->startrow();
11097         $kiriwrite_presmodule->addcell("tablecell1");
11098         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{presentationmodule});
11099         $kiriwrite_presmodule->endcell();
11100         $kiriwrite_presmodule->addcell("tablecell2");
11101
11102         $kiriwrite_presmodule->addselectbox("presmodule");
11103
11104         # Process the list of available presentation modules.
11105
11106         foreach $presmodule (keys %presmodule_list){
11107
11108                 # Check if the presentation module fileanme matches the filename in the
11109                 # configuration file.
11110
11111                 if ($presmodule_list{$presmodule}{Filename} eq $presmodule_config){
11112
11113                         $kiriwrite_presmodule->addoption($presmodule_list{$presmodule}{Filename}, { Value => $presmodule_list{$presmodule}{Filename} , Selected => 1 });
11114
11115                 } else {
11116
11117                         $kiriwrite_presmodule->addoption($presmodule_list{$presmodule}{Filename}, { Value => $presmodule_list{$presmodule}{Filename} });
11118
11119                 }
11120
11121         }
11122
11123         $kiriwrite_presmodule->endselectbox();
11124
11125         $kiriwrite_presmodule->endcell();
11126         $kiriwrite_presmodule->endrow();
11127
11128         $kiriwrite_presmodule->startrow();
11129         $kiriwrite_presmodule->addcell("tablecell1");
11130         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasemodule});
11131         $kiriwrite_presmodule->endcell();
11132         $kiriwrite_presmodule->addcell("tablecell2");
11133
11134         # Process the list of available database modules.
11135
11136         $kiriwrite_presmodule->addselectbox("dbmodule");
11137
11138         foreach $dbmodule (keys %dbmodule_list){
11139
11140                 # Check if the database module fileanme matches the filename in the
11141                 # configuration file.
11142
11143                 if ($dbmodule_list{$dbmodule}{Filename} eq $dbmodule_config){
11144
11145                         $kiriwrite_presmodule->addoption($dbmodule_list{$dbmodule}{Filename}, { Value => $dbmodule_list{$dbmodule}{Filename} , Selected => 1 });
11146
11147                 } else {
11148
11149                         $kiriwrite_presmodule->addoption($dbmodule_list{$dbmodule}{Filename}, { Value => $dbmodule_list{$dbmodule}{Filename} });
11150
11151                 }
11152
11153
11154         }
11155
11156         $kiriwrite_presmodule->endselectbox();
11157
11158         $kiriwrite_presmodule->endcell();
11159         $kiriwrite_presmodule->endrow();
11160
11161         $kiriwrite_presmodule->startrow();
11162         $kiriwrite_presmodule->addcell("tablecell1");
11163         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseserver});
11164         $kiriwrite_presmodule->endcell();
11165         $kiriwrite_presmodule->addcell("tablecell2");
11166         $kiriwrite_presmodule->addinputbox("database_server", { Size => 32, MaxLength => 128, Value => $database_server });
11167         $kiriwrite_presmodule->endcell();
11168         $kiriwrite_presmodule->endrow();
11169
11170         $kiriwrite_presmodule->startrow();
11171         $kiriwrite_presmodule->addcell("tablecell1");
11172         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseport});
11173         $kiriwrite_presmodule->endcell();
11174         $kiriwrite_presmodule->addcell("tablecell2");
11175         $kiriwrite_presmodule->addinputbox("database_port", { Size => 5, MaxLength => 5, Value => $database_port });
11176         $kiriwrite_presmodule->endcell();
11177         $kiriwrite_presmodule->endrow();
11178
11179         $kiriwrite_presmodule->startrow();
11180         $kiriwrite_presmodule->addcell("tablecell1");
11181         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseprotocol});
11182         $kiriwrite_presmodule->endcell();
11183         $kiriwrite_presmodule->addcell("tablecell2");
11184
11185         # Check if TCP is being used.
11186
11187         $kiriwrite_presmodule->addselectbox("database_protocol");
11188
11189         if ($database_protocol eq "tcp"){
11190
11191                 # The TCP protocol is selected so have the TCP option selected.
11192
11193                 $kiriwrite_presmodule->addoption("TCP", { Value => "tcp", Selected => 1});
11194
11195         } else {
11196
11197                 # The TCP protocol is not selected.
11198
11199                 $kiriwrite_presmodule->addoption("TCP", { Value => "tcp"});
11200
11201         }
11202
11203         # Check if UDP is being used.
11204
11205         if ($database_protocol eq "udp"){
11206
11207                 # The UDP protocol is selected so have the UDP option selected.
11208
11209                 $kiriwrite_presmodule->addoption("UDP", { Value => "udp", Selected => 1});
11210
11211         } else {
11212
11213                 # The UDP protocol is not selected.
11214
11215                 $kiriwrite_presmodule->addoption("UDP", { Value => "udp"});
11216
11217         }
11218
11219         $kiriwrite_presmodule->endselectbox();
11220
11221         $kiriwrite_presmodule->endcell();
11222         $kiriwrite_presmodule->endrow();
11223
11224         $kiriwrite_presmodule->startrow();
11225         $kiriwrite_presmodule->addcell("tablecell1");
11226         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasename});
11227         $kiriwrite_presmodule->endcell();
11228         $kiriwrite_presmodule->addcell("tablecell2");
11229         $kiriwrite_presmodule->addinputbox("database_sqldatabase", { Size => 32, MaxLength => 32, Value => $database_sqldatabase });
11230         $kiriwrite_presmodule->endcell();
11231         $kiriwrite_presmodule->endrow();
11232
11233         $kiriwrite_presmodule->startrow();
11234         $kiriwrite_presmodule->addcell("tablecell1");
11235         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databaseusername});
11236         $kiriwrite_presmodule->endcell();
11237         $kiriwrite_presmodule->addcell("tablecell2");
11238         $kiriwrite_presmodule->addinputbox("database_username", { Size => 16, MaxLength => 16, Value => $database_username });
11239         $kiriwrite_presmodule->endcell();
11240         $kiriwrite_presmodule->endrow();
11241
11242         $kiriwrite_presmodule->startrow();
11243         $kiriwrite_presmodule->addcell("tablecell1");
11244         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{databasepassword});
11245         $kiriwrite_presmodule->endcell();
11246         $kiriwrite_presmodule->addcell("tablecell2");
11247         $kiriwrite_presmodule->addinputbox("database_password", { Size => 16, MaxLength => 64, Password => 1 });
11248         $kiriwrite_presmodule->addtext(" ");
11249         $kiriwrite_presmodule->addcheckbox("database_password_keep", { OptionDescription => "Keep the current password", Checked => 1 });
11250         $kiriwrite_presmodule->endcell();
11251         $kiriwrite_presmodule->endrow();
11252
11253         $kiriwrite_presmodule->startrow();
11254         $kiriwrite_presmodule->addcell("tablecell1");
11255         $kiriwrite_presmodule->addtext($kiriwrite_lang->{setting}->{tableprefix});
11256         $kiriwrite_presmodule->endcell();
11257         $kiriwrite_presmodule->addcell("tablecell2");
11258         $kiriwrite_presmodule->addinputbox("database_tableprefix", { Size => 16, MaxLength => 16, Value => $database_prefix });
11259         $kiriwrite_presmodule->endcell();
11260         $kiriwrite_presmodule->endrow();
11261
11262         $kiriwrite_presmodule->endtable();
11263
11264         $kiriwrite_presmodule->addlinebreak();
11265         $kiriwrite_presmodule->addsubmit($kiriwrite_lang->{setting}->{changesettingsbutton});
11266         $kiriwrite_presmodule->addtext(" | ");
11267         $kiriwrite_presmodule->addreset($kiriwrite_lang->{common}->{restorecurrent});
11268         $kiriwrite_presmodule->addtext(" | ");
11269         $kiriwrite_presmodule->addlink($kiriwrite_env{"script_filename"} . "?mode=settings", { Text => $kiriwrite_lang->{setting}->{returnsettingslist} });
11270         $kiriwrite_presmodule->endbox();
11271         $kiriwrite_presmodule->endform();
11272
11273         return $kiriwrite_presmodule->grab();
11274
11275 }
11276
11277 sub kiriwrite_settings_load{
11278 #################################################################################
11279 # kiriwrite_settings_load: Load the configuration settings into the global      #
11280 # variables.                                                                    #
11281 #                                                                               #
11282 # Usage:                                                                        #
11283 #                                                                               #
11284 # kiriwrite_settings_load();                                                    #
11285 #################################################################################
11286
11287         # Load the required Perl modules.
11288
11289         use XML::Simple qw(XMLin);
11290         $xsl = XML::Simple->new();
11291
11292         # Check if the Kiriwrite configuration file exists before using it and
11293         # return an critical error if it doesn't exist.
11294
11295         my $kiriwrite_conf_exist = kiriwrite_fileexists("kiriwrite.xml");
11296
11297         if ($kiriwrite_conf_exist eq 1){
11298
11299                 # The configuration really does not exist so return an critical error.
11300
11301                 kiriwrite_critical("configfilemissing");
11302
11303         }
11304
11305         # Check if the Kiriwrite configuration file has valid permission settings
11306         # before using it and return an critical error if it doesn't have the
11307         # valid permission settings.
11308
11309         my $kiriwrite_conf_permissions = kiriwrite_filepermissions("kiriwrite.xml", 1, 0);
11310
11311         if ($kiriwrite_conf_permissions eq 1){
11312
11313                 # The permission settings for the Kiriwrite configuration file are
11314                 # invalid, so return an critical error.
11315
11316                 kiriwrite_critical("configfileinvalidpermissions");
11317
11318         }
11319
11320         # Converts the XML file into meaningful data for later on in this subroutine.
11321
11322         my $kiriwrite_conf_file = 'kiriwrite.xml';
11323         my $kiriwrite_conf_data = $xsl->XMLin($kiriwrite_conf_file, SuppressEmpty => 1);
11324
11325         # Go and fetch the settings and place them into a hash (that is global).
11326
11327         %kiriwrite_config = (
11328
11329                 "directory_data_db"             => $kiriwrite_conf_data->{settings}->{directories}->{database},
11330                 "directory_data_output"         => $kiriwrite_conf_data->{settings}->{directories}->{output},
11331                 "directory_noncgi_images"       => $kiriwrite_conf_data->{settings}->{directories}->{images},
11332
11333                 "system_language"               => $kiriwrite_conf_data->{settings}->{language}->{lang},
11334                 "system_presmodule"             => $kiriwrite_conf_data->{settings}->{system}->{presentation},
11335                 "system_dbmodule"               => $kiriwrite_conf_data->{settings}->{system}->{database},
11336                 "system_datetime"               => $kiriwrite_conf_data->{settings}->{system}->{datetime},
11337
11338                 "database_server"               => $kiriwrite_conf_data->{settings}->{database}->{server},
11339                 "database_port"                 => $kiriwrite_conf_data->{settings}->{database}->{port},
11340                 "database_protocol"             => $kiriwrite_conf_data->{settings}->{database}->{protocol},
11341                 "database_sqldatabase"          => $kiriwrite_conf_data->{settings}->{database}->{database},
11342                 "database_username"             => $kiriwrite_conf_data->{settings}->{database}->{username},
11343                 "database_password"             => $kiriwrite_conf_data->{settings}->{database}->{password},
11344                 "database_tableprefix"          => $kiriwrite_conf_data->{settings}->{database}->{prefix}
11345
11346         );
11347
11348         # Do a validation check on all of the variables that were loaded into the global configuration hash.
11349
11350         kiriwrite_variablecheck($kiriwrite_config{"directory_data_db"}, "maxlength", 64, 0);
11351         kiriwrite_variablecheck($kiriwrite_config{"directory_data_output"}, "maxlength", 64, 0);
11352         kiriwrite_variablecheck($kiriwrite_config{"directory_noncgi_images"}, "maxlength", 512, 0);
11353         kiriwrite_variablecheck($kiriwrite_config{"directory_data_template"}, "maxlength", 64, 0);
11354
11355         my $kiriwrite_config_language_filename = kiriwrite_variablecheck($kiriwrite_config{"system_language"}, "language_filename", "", 1);
11356         my $kiriwrite_config_presmodule_filename = kiriwrite_variablecheck($kiriwrite_config{"system_presmodule"}, "module", 0, 1);
11357         my $kiriwrite_config_dbmodule_filename = kiriwrite_variablecheck($kiriwrite_config{"system_dbmodule"}, "module", 0, 1);
11358
11359         # Check if the language filename is valid and return an critical error if
11360         # they aren't.
11361
11362         if ($kiriwrite_config_language_filename eq 1){
11363
11364                 # The language filename is blank so return an critical error.
11365
11366                 kiriwrite_critical("languagefilenameblank");
11367
11368         } elsif ($kiriwrite_config_language_filename eq 2){
11369
11370                 # The language filename is invalid so return an critical error.
11371
11372                 kiriwrite_critical("languagefilenameinvalid");
11373
11374         }
11375
11376         # Check if the presentation and database module names are valid and return a critical
11377         # error if they aren't.
11378
11379         if ($kiriwrite_config_presmodule_filename eq 1){
11380
11381                 # The presentation module filename given is blank so return an
11382                 # critical error.
11383
11384                 kiriwrite_critical("presmoduleblank");
11385
11386         }
11387
11388         if ($kiriwrite_config_presmodule_filename eq 2){
11389
11390                 # The presentation module filename is invalid so return an
11391                 # critical error.
11392
11393                 kiriwrite_critical("presmoduleinvalid");
11394
11395         }
11396
11397         if ($kiriwrite_config_dbmodule_filename eq 1){
11398
11399                 # The database module filename given is blank so return an
11400                 # critical error.
11401
11402                 kiriwrite_critical("dbmoduleblank");
11403
11404         }
11405
11406         if ($kiriwrite_config_dbmodule_filename eq 2){
11407
11408                 # The database module filename given is invalid so return
11409                 # an critical error.
11410
11411                 kiriwrite_critical("dbmoduleinvalid");
11412
11413         }
11414
11415         # Check if the language file does exist before loading it and return an critical error
11416         # if it does not exist.
11417
11418         my $kiriwrite_config_language_fileexists = kiriwrite_fileexists("lang/" . $kiriwrite_config{"system_language"} . ".xml");
11419
11420         if ($kiriwrite_config_language_fileexists eq 1){
11421
11422                 # Language file does not exist so return an critical error.
11423
11424                 kiriwrite_critical("languagefilemissing");
11425
11426         }
11427
11428         # Check if the language file has valid permission settings and return an critical error if
11429         # the language file has invalid permissions settings.
11430
11431         my $kiriwrite_config_language_filepermissions = kiriwrite_filepermissions("lang/" . $kiriwrite_config{"system_language"} . ".xml", 1, 0);
11432
11433         if ($kiriwrite_config_language_filepermissions eq 1){
11434
11435                 # Language file contains invalid permissions so return an critical error.
11436
11437                 kiriwrite_critical("languagefilepermissions");
11438
11439         }
11440
11441         # Load the language file.
11442
11443         $kiriwrite_lang = $xsl->XMLin("lang/" . $kiriwrite_config{"system_language"} . ".xml", SuppressEmpty => 1);
11444
11445         # Check if the presentation module does exist before loading it and return an critical error
11446         # if the presentation module does not exist.
11447
11448         my $kiriwrite_config_presmodule_fileexists = kiriwrite_fileexists("Modules/Presentation/" . $kiriwrite_config{"system_presmodule"} . ".pm");
11449
11450         if ($kiriwrite_config_presmodule_fileexists eq 1){
11451
11452                 # Presentation module does not exist so return an critical error.
11453
11454                 kiriwrite_critical("presmodulemissing");
11455
11456         }
11457
11458         # Check if the presentation module does have the valid permission settings and return a
11459         # critical error if the presentation module contains invalid permission settings.
11460
11461         my $kiriwrite_config_presmodule_permissions = kiriwrite_filepermissions("Modules/Presentation/" . $kiriwrite_config{"system_presmodule"} . ".pm", 1, 0);
11462
11463         if ($kiriwrite_config_presmodule_permissions eq 1){
11464
11465                 # Presentation module contains invalid permissions so return an critical error.
11466
11467                 kiriwrite_critical("presmoduleinvalidpermissions");
11468
11469         }
11470
11471         # Check if the database module does exist before loading it and return an critical error
11472         # if the database module does not exist.
11473
11474         my $kiriwrite_config_dbmodule_fileexists = kiriwrite_fileexists("Modules/Database/" . $kiriwrite_config{"system_dbmodule"} . ".pm");
11475
11476         if ($kiriwrite_config_dbmodule_fileexists eq 1){
11477
11478                 # Database module does not exist so return an critical error.
11479
11480                 kiriwrite_critical("dbmodulemissing");
11481
11482         }
11483
11484         # Check if the database module does have the valid permission settings and return an
11485         # critical error if the database module contains invalid permission settings.
11486
11487         my $kiriwrite_config_dbmodule_permissions = kiriwrite_filepermissions("Modules/Database/" . $kiriwrite_config{"system_dbmodule"} . ".pm", 1, 0);
11488
11489         if ($kiriwrite_config_dbmodule_permissions eq 1){
11490
11491                 # Presentation module contains invalid permissions so return an critical error.
11492
11493                 kiriwrite_critical("dbmoduleinvalidpermissions");
11494
11495         }
11496
11497         # Include the Modules directory.
11498
11499         use lib "Modules/";
11500
11501         # Load the presentation module.
11502
11503         my $presmodulename = "Presentation::" . $kiriwrite_config{"system_presmodule"};
11504         ($presmodulename) = $presmodulename =~ m/^(.*)$/g;
11505         eval "use " . $presmodulename;
11506         $presmodulename = "Kiriwrite::Presentation::" . $kiriwrite_config{"system_presmodule"};
11507         $kiriwrite_presmodule = $presmodulename->new();
11508
11509         # Load the database module.
11510
11511         my $dbmodulename = "Database::" . $kiriwrite_config{"system_dbmodule"};
11512         ($dbmodulename) = $dbmodulename =~ m/^(.*)$/g;
11513         eval "use " . $dbmodulename;
11514         $dbmodulename = "Kiriwrite::Database::" . $kiriwrite_config{"system_dbmodule"};
11515         $kiriwrite_dbmodule = $dbmodulename->new();
11516
11517         # Load the following settings to the database module.
11518
11519         $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"} });
11520
11521         return;
11522
11523 }
11524
11525 sub kiriwrite_variablecheck{
11526 #################################################################################
11527 # kiriwrite_variablecheck: Checks the variables for any invalid characters.     #
11528 #                                                                               #
11529 # Usage:                                                                        #
11530 #                                                                               #
11531 # kiriwrite_variablecheck(variable, type, length, noerror);                     #
11532 #                                                                               #
11533 # variable      Specifies the variable to be checked.                           #
11534 # type          Specifies what type the variable is.                            #
11535 # option        Specifies the maximum/minimum length of the variable            #
11536 #               (if minlength/maxlength is used) or if the filename should be   #
11537 #               checked to see if it is blank.                                  #
11538 # noerror       Specifies if Kiriwrite should return an error or not on         #
11539 #               certain values.                                                 #
11540 #################################################################################
11541
11542         # Get the values that were passed to the subroutine.
11543
11544         my ($variable_data, $variable_type, $variable_option, $variable_noerror) = @_;
11545
11546         if ($variable_type eq "numbers"){
11547
11548                 # Check for numbers and return an error if there is anything else than numebrs.
11549
11550                 my $variable_data_validated = $variable_data;   # Copy the variable_data to variable_data_validated.
11551                 $variable_data_validated =~ tr/0-9//d;          # Take away all of the numbers and from the variable.
11552                                                                 # If it only contains numbers then it should be blank.
11553
11554                 if ($variable_data_validated eq ""){
11555                         # The validated variable is blank. So continue to the end of this section where the return function should be.
11556                 } else {
11557                         # The variable is not blank, so check if the no error value is set
11558                         # to 1 or not.
11559
11560                         if ($variable_noerror eq 1){
11561
11562                                 # The validated variable is not blank and the noerror
11563                                 # value is set to 1. So return an value of 1.
11564                                 # (meaning that the data is invalid).
11565
11566                                 return 1;
11567
11568                         } elsif ($variable_noerror eq 0) {
11569
11570                                 # The validated variable is not blank and the noerror
11571                                 # value is set to 0.
11572
11573                                 kiriwrite_error("invalidvariable");
11574
11575                         } else {
11576
11577                                 # The variable noerror value is something else
11578                                 # pther than 1 or 0. So return an error.
11579
11580                                 kiriwrite_error("invalidvariable");
11581
11582                         }
11583
11584                 }
11585
11586                 return 0;
11587
11588         } elsif ($variable_type eq "lettersnumbers"){
11589
11590                 # Check for letters and numbers and return an error if there is anything else other
11591                 # than letters and numbers.
11592
11593                 my $variable_data_validated = $variable_data;   # Copy the variable_data to variable_data_validated
11594                 $variable_data_validated =~ tr/a-zA-Z0-9.//d;
11595                 $variable_data_validated =~ s/\s//g;
11596
11597                 if ($variable_data_validated eq ""){
11598                         # The validated variable is blank. So continue to the end of this section where the return function should be.
11599                 } else {
11600                         # The variable is not blank, so check if the no error value is set
11601                         # to 1 or not.
11602
11603                         if ($variable_noerror eq 1){
11604
11605                                 # The validated variable is not blank and the noerror
11606                                 # value is set to 1. So return an value of 1.
11607                                 # (meaning that the data is invalid).
11608
11609                                 return 1;
11610
11611                         } elsif ($variable_noerror eq 0) {
11612
11613                                 # The validated variable is not blank and the noerror
11614                                 # value is set to 0.
11615
11616                                 kiriwrite_error("invalidvariable");
11617
11618                         } else {
11619
11620                                 # The variable noerror value is something else
11621                                 # pther than 1 or 0. So return an error.
11622
11623                                 kiriwrite_error("invalidvariable");
11624
11625                         }
11626
11627                 }
11628
11629                 return 0;
11630
11631         } elsif ($variable_type eq "maxlength"){
11632                 # Check for the length of the variable, return an error if it is longer than the length specified.
11633
11634                 # Check if the variable_data string is blank, if it is then set the variable_data_length
11635                 # to '0'.
11636
11637                 my $variable_data_length = 0;
11638
11639                 if (!$variable_data){
11640
11641                         # Set variable_data_length to '0'.
11642                         $variable_data_length = 0;
11643
11644                 } else {
11645
11646                         # Get the length of the variable recieved.
11647                         $variable_data_length = length($variable_data);
11648
11649                 }
11650
11651
11652
11653                 if ($variable_data_length > $variable_option){
11654
11655                         # The variable length is longer than it should be so check if
11656                         # the no error value is set 1.
11657
11658                         if ($variable_noerror eq 1){
11659
11660                                 # The no error value is set to 1, so return an
11661                                 # value of 1 (meaning tha the variable is
11662                                 # too long to be used).
11663
11664                                 return 1;
11665
11666                         } elsif ($variable_noerror eq 0){
11667
11668                                 # The no error value is set to 0, so return
11669                                 # an error.
11670
11671                                 kiriwrite_error("variabletoolong");
11672
11673                         } else {
11674
11675                                 # The no error value is something else other
11676                                 # than 0 or 1, so return an error.
11677
11678                                 kiriwrite_error("variabletoolong");
11679
11680                         }
11681
11682                 } else {
11683
11684                         # The variable length is exactly or shorter than specified, so continue to end of this section where
11685                         # the return function should be.
11686
11687                 }
11688
11689                 return 0;
11690
11691         } elsif ($variable_type eq "blank"){
11692                 # Check if the variable is blank and if it is blank, then return an error.
11693
11694                 if (!$variable_data){
11695
11696                         # The variable data really is blank, so check what
11697                         # the no error value is set.
11698
11699                         if ($variable_noerror eq 1){
11700
11701                                 # The no error value is set to 1, so return
11702                                 # a value of 1 (saying that the variable was
11703                                 # blank).
11704
11705                                 return 1;
11706
11707                         } elsif ($variable_noerror eq 0){
11708
11709                                 # The no error value is set to 0, so return
11710                                 # an error.
11711
11712                                 kiriwrite_error("blankvariable");
11713
11714                         } else {
11715
11716                                 # The no error value is something else other
11717                                 # than 0 or 1, so return an error.
11718
11719                                 kiriwrite_error("invalidvariable");
11720
11721                         }
11722
11723                 }
11724
11725                 return 0;
11726
11727         } elsif ($variable_type eq "filename"){
11728                 # Check for letters and numbers, if anything else than letters and numbers is there (including spaces) return
11729                 # an error.
11730
11731                 # Check if the filename passed is blank, if it is then return with an error.
11732
11733                 if ($variable_data eq ""){
11734
11735                         # The filename specified is blank, so check what the
11736                         # noerror value is set.
11737
11738                         if ($variable_noerror eq 1){
11739
11740                                 # The no error value is set to 1 so return
11741                                 # a value of 1 (meaning that the filename
11742                                 # was blank).
11743
11744                                 return 1;
11745
11746                         } elsif ($variable_noerror eq 0){
11747
11748                                 # The no error value is set to 1 so return
11749                                 # an error.
11750
11751                                 kiriwrite_error("blankfilename");
11752
11753                         } else {
11754
11755                                 # The no error value is something else other
11756                                 # than 0 or 1, so return an error.
11757
11758                                 kiriwrite_error("invalidvariable");
11759
11760                         }
11761
11762                 } else {
11763
11764
11765                 }
11766
11767                 my $variable_data_validated = $variable_data;
11768                 $variable_data_validated =~ tr/a-zA-Z0-9\.//d;
11769
11770                 # Check if the validated data variable is blank, if it is
11771                 # then continue to the end of this section where the return
11772                 # function should be, otherwise return an error.
11773
11774                 if ($variable_data_validated eq ""){
11775
11776                         # The validated data variable is blank, meaning that
11777                         # it only contained letters and numbers.
11778
11779                 } else {
11780
11781                         # The validated data variable is not blank, meaning
11782                         # that it contains something else, so return an error
11783                         # (or a value).
11784
11785                         if ($variable_noerror eq 1){
11786
11787                                 # The no error value is set to 1 so return
11788                                 # an value of 2. (meaning that the filename
11789                                 # is invalid).
11790
11791
11792                                 return 2;
11793
11794                         } elsif ($variable_noerror eq 0){
11795
11796                                 # The no error value is set to 0 so return
11797                                 # an error.
11798
11799                                 kiriwrite_error("invalidfilename");
11800
11801                         } else {
11802
11803                                 # The no error value is something else other
11804                                 # than 0 or 1 so return an error.
11805
11806                                 kiriwrite_error("invalidvariable");
11807
11808                         }
11809
11810                 }
11811
11812                 return 0;
11813
11814         } elsif ($variable_type eq "filenameindir"){
11815                 # Check if the filename is in the directory and return an
11816                 # error if it isn't.
11817
11818                 if ($variable_data eq ""){
11819
11820                         # The filename specified is blank, so check what the
11821                         # noerror value is set.
11822
11823                         if ($variable_noerror eq 1){
11824
11825                                 # The no error value is set to 1 so return
11826                                 # a value of 1 (meaning that the filename
11827                                 # was blank).
11828
11829                                 return 1;
11830
11831                         } elsif ($variable_noerror eq 0){
11832
11833                                 # The no error value is set to 1 so return
11834                                 # an error.
11835
11836                                 kiriwrite_error("blankfilename");
11837
11838                         } else {
11839
11840                                 # The no error value is something else other
11841                                 # than 0 or 1, so return an error.
11842
11843                                 kiriwrite_error("invalidvariable");
11844
11845                         }
11846
11847                 } else {
11848
11849
11850                 }
11851
11852                 # Set the following variables for later on.
11853
11854                 my $variable_data_length = 0;
11855                 my $variable_data_char = "";
11856                 my $variable_data_validated = "";
11857                 my $variable_data_seek = 0;
11858                 my $variable_database_list = "";
11859                 my $variable_database_listcurrent = "";
11860                 my $variable_data_firstlevel = 1;
11861
11862                 # Get the length of the variable recieved.
11863
11864                 $variable_data_length = length($variable_data);
11865
11866                 # Check if the database filename contains the directory command
11867                 # for up a directory level and if it is, return an error
11868                 # or return with a number.
11869
11870                 do {
11871
11872                         # Get a character from the filename passed to this subroutine.
11873
11874                         $variable_data_char = substr($variable_data, $variable_data_seek, 1);
11875
11876                         # Check if the current character is the forward slash character.
11877
11878                         if ($variable_data_char eq "/"){
11879
11880                                 # Check if the current directory is blank (and on the first level), or if the
11881                                 # current directory contains two dots or one dot, if it does return an error.
11882
11883                                 if ($variable_database_listcurrent eq "" && $variable_data_firstlevel eq 1 || $variable_database_listcurrent eq ".." || $variable_database_listcurrent eq "."){
11884
11885                                         # Check if the noerror value is set to 1, if it is return an
11886                                         # number, else return an proper error.
11887
11888                                         if ($variable_noerror eq 1){
11889
11890                                                 # Page filename contains invalid characters and
11891                                                 # the no error value is set to 1 so return a
11892                                                 # value of 2 (meaning that the page filename
11893                                                 # is invalid).
11894
11895                                                 return 2;
11896
11897                                         } elsif ($variable_noerror eq 0) {
11898
11899                                                 # Page filename contains invalid characters and
11900                                                 # the no error value is set to 0 so return an
11901                                                 # error.
11902
11903                                                 kiriwrite_error("invalidfilename");
11904
11905                                         } else {
11906
11907                                                 # The no error value is something else other
11908                                                 # than 0 or 1 so return an error.
11909
11910                                                 kiriwrite_error("invalidvariable");
11911
11912                                         }
11913
11914                                 }
11915
11916                                 # Append the forward slash, clear the current directory name and set
11917                                 # the first directory level value to 0.
11918
11919                                 $variable_database_list = $variable_database_list . $variable_data_char;
11920                                 $variable_database_listcurrent = "";
11921                                 $variable_data_firstlevel = 0;
11922
11923                         } else {
11924
11925                                 # Append the current character to the directory name and to the current
11926                                 # directory name.
11927
11928                                 $variable_database_list = $variable_database_list . $variable_data_char;
11929                                 $variable_database_listcurrent = $variable_database_listcurrent . $variable_data_char;
11930
11931                         }
11932
11933                         # Increment the seek counter.
11934
11935                         $variable_data_seek++;
11936
11937                 } until ($variable_data_seek eq $variable_data_length);
11938
11939                 return 0;
11940
11941         } elsif ($variable_type eq "datetime"){
11942                 # Check if the date and time setting format is valid.
11943
11944                 if ($variable_data eq ""){
11945
11946                         if ($variable_noerror eq 1){
11947
11948                                 # The no error value is set to 1 so return
11949                                 # a value of 1 (meaning that the date and
11950                                 # time format was blank).
11951
11952                                 return 1;
11953
11954                         } elsif ($variable_noerror eq 0){
11955
11956                                 # The no error value is set to 1 so return
11957                                 # an error.
11958
11959                                 kiriwrite_error("blankdatetimeformat");
11960
11961                         } else {
11962
11963                                 # The no error value is something else other
11964                                 # than 0 or 1, so return an error.
11965
11966                                 kiriwrite_error("invalidvariable");
11967
11968                         }
11969
11970                 }
11971
11972                 my $variable_data_validated = $variable_data;
11973                 $variable_data_validated =~ tr|dDmMyYhms/():[ ]||d;
11974
11975                 if ($variable_data_validated eq ""){
11976
11977                         # The date and time format is valid. So
11978                         # skip this bit.
11979
11980                 } else {
11981
11982                         # The validated data variable is not blank, meaning
11983                         # that it contains something else, so return an error
11984                         # (or a value).
11985
11986                         if ($variable_noerror eq 1){
11987
11988                                 # The no error value is set to 1 so return
11989                                 # an value of 2. (meaning that the date and
11990                                 # time format was invalid).
11991
11992                                 return 2;
11993
11994                         } elsif ($variable_noerror eq 0){
11995
11996                                 # The no error value is set to 0 so return
11997                                 # an error.
11998
11999                                 kiriwrite_error("invaliddatetimeformat");
12000
12001                         } else {
12002
12003                                 # The no error value is something else other
12004                                 # than 0 or 1 so return an error.
12005
12006                                 kiriwrite_error("invalidvariable");
12007
12008                         }
12009
12010                 }
12011
12012                 return 0;
12013
12014         } elsif ($variable_type eq "directory"){
12015                 # Check if the directory only contains letters and numbers and
12016                 # return an error if anything else appears.
12017
12018                 my $variable_data_validated = $variable_data;
12019                 $variable_data_validated =~ tr/a-zA-Z0-9//d;
12020
12021                 if ($variable_data eq ""){
12022
12023                         if ($variable_noerror eq 1){
12024
12025                                 # The no error value is set to 1 so return
12026                                 # a value of 1 (meaning that the directory
12027                                 # name was blank).
12028
12029                                 return 1;
12030
12031                         } elsif ($variable_noerror eq 0){
12032
12033                                 # The no error value is set to 1 so return
12034                                 # an error.
12035
12036                                 kiriwrite_error("blankdirectory");
12037
12038                         } else {
12039
12040                                 # The no error value is something else other
12041                                 # than 0 or 1, so return an error.
12042
12043                                 kiriwrite_error("invalidvariable");
12044
12045                         }
12046
12047                 }
12048
12049                 if ($variable_data_validated eq ""){
12050
12051                         # The validated data variable is blank, meaning that
12052                         # it only contains letters and numbers.
12053
12054                 } else {
12055
12056                         # The validated data variable is not blank, meaning
12057                         # that it contains something else, so return an error
12058                         # (or a value).
12059
12060                         if ($variable_noerror eq 1){
12061
12062                                 # The no error value is set to 1 so return
12063                                 # an value of 2. (meaning that the directory
12064                                 # name is invalid).
12065
12066                                 return 2;
12067
12068                         } elsif ($variable_noerror eq 0){
12069
12070                                 # The no error value is set to 0 so return
12071                                 # an error.
12072
12073                                 kiriwrite_error("invaliddirectory");
12074
12075                         } else {
12076
12077                                 # The no error value is something else other
12078                                 # than 0 or 1 so return an error.
12079
12080                                 kiriwrite_error("invalidvariable");
12081
12082                         }
12083
12084                 }
12085
12086                 return 0;
12087
12088         } elsif ($variable_type eq "language_filename"){
12089
12090                 # The variable type is a language filename type.
12091                 # Check if the language file name is blank and
12092                 # if it is then return an error (or value).
12093
12094                 if ($variable_data eq ""){
12095
12096                         # The language filename is blank so check the
12097                         # no error value and return an error (or value).
12098
12099                         if ($variable_noerror eq 1){
12100
12101                                 # Language filename is blank and the no error value
12102                                 # is set as 1, so return a value of 1 (saying that
12103                                 # the language filename is blank).
12104
12105                                 return 1;
12106
12107                         } elsif ($variable_noerror eq 0) {
12108
12109                                 # Language filename is blank and the no error value
12110                                 # is not set as 1, so return an error.
12111
12112                                 kiriwrite_critical("languagefilenameblank");
12113
12114                         } else {
12115
12116                                 # The noerror value is something else other
12117                                 # than 0 or 1 so return an error.
12118
12119                                 kiriwrite_error("invalidvariable");
12120
12121                         }
12122
12123                 }
12124
12125                 # Set the following variables for later on.
12126
12127                 my $variable_data_length = 0;
12128                 my $variable_data_char = "";
12129                 my $variable_data_seek = 0;
12130
12131                 # Get the length of the language file name.
12132
12133                 $variable_data_length = length($variable_data);
12134
12135                 do {
12136
12137                         # Get a character from the language filename passed to this
12138                         # subroutine and the character the seek counter value is set
12139                         # to.
12140
12141                         $variable_data_char = substr($variable_data, $variable_data_seek, 1);
12142
12143                         # Check if the language filename contains a forward slash or a dot,
12144                         # if the selected character is a forward slash then return an error
12145                         # (or value).
12146
12147                         if ($variable_data_char eq "/" || $variable_data_char eq "."){
12148
12149                                 # The language filename contains a forward slash or
12150                                 # a dot so depending on the no error value, return
12151                                 # an error or a value.
12152
12153                                 if ($variable_noerror eq 1){
12154
12155                                         # Language filename contains a forward slash or a dot
12156                                         # and the no error value has been set to 1, so return
12157                                         # an value of 2 (saying that the language file name is
12158                                         # invalid).
12159
12160                                         return 2;
12161
12162                                 } elsif ($variable_noerror eq 0) {
12163
12164                                         # Language filename contains a forward slash and the no
12165                                         # error value has not been set to 1, so return an error.
12166
12167                                         kiriwrite_critical("languagefilenameinvalid");
12168
12169                                 } else {
12170
12171                                         # The noerror value is something else other than
12172                                         # 1 or 0 so return an error.
12173
12174                                         kiriwrite_error("invalidvariable");
12175
12176                                 }
12177
12178                         }
12179
12180                         # Increment the seek counter.
12181
12182                         $variable_data_seek++;
12183
12184                 } until ($variable_data_seek eq $variable_data_length);
12185
12186                 return 0;
12187
12188         } elsif ($variable_type eq "pagesetting"){
12189
12190                 # The variable type is a page setting, so check if the page
12191                 # setting has one of the valid options.
12192
12193                 if ($variable_data eq 0 || $variable_data eq 1 || $variable_data eq 2 || $variable_data eq 3){
12194
12195                         # The variable is one of the options above, so continue
12196                         # to the end of this section.
12197
12198                 } else {
12199
12200                         # The variable is not one of the options above, so check
12201                         # and see if a error or a value should be returned.
12202
12203                         if ($variable_noerror eq 1){
12204
12205                                 # The page setting is invalid and the no error
12206                                 # value is set 1, so return a value of 1
12207                                 # (saying that the page setting value is
12208                                 # invalid).
12209
12210                                 return 1;
12211
12212                         } elsif ($variable_noerror eq 0) {
12213
12214                                 # Page setting is invalid and the no error value
12215                                 # is not 1, so return an error.
12216
12217                                 kiriwrite_error("invalidvariable");
12218
12219                         } else {
12220
12221                                 # The no error value is something else other
12222                                 # than 0 or 1 so return an error.
12223
12224                                 kiriwrite_error("invalidvariable");
12225
12226                         }
12227
12228                 }
12229
12230                 return 0;
12231
12232         } elsif ($variable_type eq "page_filename"){
12233
12234                 # The variable type is a page filename type. Check
12235                 # if the data is empty and if it is then return an
12236                 # error (or value).
12237
12238                 if ($variable_data eq ""){
12239
12240                         # The filename is blank so check the no error
12241                         # value and depending on it return an value
12242                         # or an error.
12243
12244                         if ($variable_noerror eq 1){
12245
12246                                 # Page filename is blank and the no error value
12247                                 # is set as 1, so return a value of 1 (saying
12248                                 # the filename is blank).
12249
12250                                 return 1;
12251
12252                         } elsif ($variable_noerror eq 0) {
12253
12254                                 # Page filename is blank and the no error value
12255                                 # is not 1, so return an error.
12256
12257                                 kiriwrite_error("emptypagefilename");
12258
12259                         } else {
12260
12261                                 # The no error value is something else other
12262                                 # than 0 or 1 so return an error.
12263
12264                                 kiriwrite_error("invalidvariable");
12265
12266                         }
12267                 }
12268
12269                 # Set the following variables for later on.
12270
12271
12272                 my $variable_data_length = 0;
12273                 my $variable_data_slash = 0;
12274                 my $variable_data_char = "";
12275                 my $variable_data_validated = "";
12276                 my $variable_data_seek = 0;
12277                 my $variable_database_list = "";
12278                 my $variable_database_listcurrent = "";
12279                 my $variable_data_firstlevel = 1;
12280
12281                 # Get the length of the filename.
12282
12283                 $variable_data_length = length($variable_data);
12284
12285                 # Check that only valid characters should be appearing in
12286                 # the filename.
12287
12288                 $variable_data_validated = $variable_data;
12289                 $variable_data_validated =~ tr|a-zA-Z0-9\.\/\-_||d;
12290
12291                 if ($variable_data_validated ne ""){
12292
12293                         # The validated variable is not blank, meaning the
12294                         # variable contains invalid characters, so return
12295                         # an error.
12296
12297                         if ($variable_noerror eq 1){
12298
12299                                 # Page filename contains invalid characters and
12300                                 # the no error value is set to 1 so return a
12301                                 # value of 2 (meaning that the page filename
12302                                 # is invalid).
12303
12304                                 return 2;
12305
12306                         } elsif ($variable_noerror eq 0) {
12307
12308                                 # Page filename contains invalid characters and
12309                                 # the no error value is set to 0 so return an
12310                                 # error.
12311
12312                                 kiriwrite_error("invalidfilename");
12313
12314                         } else {
12315
12316                                 # The no error value is something else other
12317                                 # than 0 or 1 so return an error.
12318
12319                                 kiriwrite_error("invalidvariable");
12320
12321                         }
12322
12323                 }
12324
12325                 # Check if the page filename contains the directory command
12326                 # for up a directory level and if it is, return an error
12327                 # or return with a number.
12328
12329                 do {
12330
12331                         # Get a character from the filename passed to this subroutine.
12332
12333                         $variable_data_char = substr($variable_data, $variable_data_seek, 1);
12334
12335                         # Check if the current character is the forward slash character.
12336
12337                         if ($variable_data_char eq "/"){
12338
12339                                 # Check if the current directory is blank (and on the first level), or if the
12340                                 # current directory contains two dots or one dot, if it does return an error.
12341
12342                                 $variable_data_slash = 1;
12343
12344                                 if ($variable_database_listcurrent eq "" && $variable_data_firstlevel eq 1 || $variable_database_listcurrent eq ".." || $variable_database_listcurrent eq "."){
12345
12346                                         # Check if the noerror value is set to 1, if it is return an
12347                                         # number, else return an proper error.
12348
12349                                         if ($variable_noerror eq 1){
12350
12351                                                 # Page filename contains invalid characters and
12352                                                 # the no error value is set to 1 so return a
12353                                                 # value of 2 (meaning that the page filename
12354                                                 # is invalid).
12355
12356                                                 return 2;
12357
12358                                         } elsif ($variable_noerror eq 0) {
12359
12360                                                 # Page filename contains invalid characters and
12361                                                 # the no error value is set to 0 so return an
12362                                                 # error.
12363
12364                                                 kiriwrite_error("invalidfilename");
12365
12366                                         } else {
12367
12368                                                 # The no error value is something else other
12369                                                 # than 0 or 1 so return an error.
12370
12371                                                 kiriwrite_error("invalidvariable");
12372
12373                                         }
12374
12375                                 }
12376
12377                                 # Append the forward slash, clear the current directory name and set
12378                                 # the first directory level value to 0.
12379
12380                                 $variable_database_list = $variable_database_list . $variable_data_char;
12381                                 $variable_database_listcurrent = "";
12382                                 $variable_data_firstlevel = 0;
12383
12384                         } else {
12385
12386                                 # Append the current character to the directory name and to the current
12387                                 # directory name.
12388
12389                                 $variable_data_slash = 0;
12390
12391                                 $variable_database_list = $variable_database_list . $variable_data_char;
12392                                 $variable_database_listcurrent = $variable_database_listcurrent . $variable_data_char;
12393
12394                         }
12395
12396                         # Increment the seek counter.
12397
12398                         $variable_data_seek++;
12399
12400                 } until ($variable_data_seek eq $variable_data_length);
12401
12402                 # Check if the last character is a slash and return an
12403                 # error if it is.
12404
12405                 if ($variable_data_slash eq 1){
12406
12407                         if ($variable_noerror eq 1){
12408
12409                                 # Last character is a slash and the no error
12410                                 # value is set to 1 so return a value of 2
12411                                 # (meaning that the page filename is invalid).
12412
12413                                 return 2;
12414
12415                         } elsif ($variable_noerror eq 0) {
12416
12417                                 # Page filename contains a slash for the last
12418                                 # character and the no error value is set to 0
12419                                 # so return an error.
12420
12421                                 kiriwrite_error("invalidfilename");
12422
12423                         } else {
12424
12425                                 # The no error value is something else other
12426                                 # than 0 or 1 so return an error.
12427
12428                                 kiriwrite_error("invalidvariable");
12429
12430                         }
12431
12432                 }
12433
12434                 return 0;
12435
12436         } elsif ($variable_type eq "module"){
12437
12438                 # The variable type is a presentation module filename.
12439
12440                 # Check if the variable_data is blank and if it is
12441                 # return an error.
12442
12443                 if ($variable_data eq ""){
12444
12445                         # The presentation module is blank so check if an error
12446                         # value should be returned or a number should be
12447                         # returned.
12448
12449                         if ($variable_noerror eq 1){
12450
12451                                 # Module name is blank and the no error value
12452                                 # is set to 1 so return a value of 2 (meaning
12453                                 # that the page filename is blank).
12454
12455                                 return 1;
12456
12457                         } elsif ($variable_noerror eq 0) {
12458
12459                                 # Module name contains is blank and the no error
12460                                 # value is set to 0 so return an error.
12461
12462                                 kiriwrite_critical("moduleblank");
12463
12464                         } else {
12465
12466                                 # The no error value is something else other
12467                                 # than 0 or 1 so return an error.
12468
12469                                 kiriwrite_critical("invalidvalue");
12470
12471                         }
12472
12473                 } else {
12474
12475                 }
12476
12477                 my $variable_data_validated = $variable_data;
12478                 $variable_data_validated =~ tr/a-zA-Z0-9//d;
12479
12480                 if ($variable_data_validated eq ""){
12481
12482                 } else {
12483
12484                         if ($variable_noerror eq 1){
12485
12486                                 # Module name contains invalid characters and
12487                                 # the no error value is set to 1 so return a
12488                                 # value of 2 (meaning that the page filename
12489                                 # is invalid).
12490
12491                                 return 2;
12492
12493                         } elsif ($variable_noerror eq 0) {
12494
12495                                 # Module name contains invalid characters and
12496                                 # the no error value is set to 0 so return an
12497                                 # error.
12498
12499                                 kiriwrite_critical("moduleinvalid");
12500
12501                         } else {
12502
12503                                 # The no error value is something else other
12504                                 # than 0 or 1 so return an error.
12505
12506                                 kiriwrite_error("invalidvalue");
12507
12508                         }
12509
12510                 }
12511
12512                 return 0;
12513
12514         } elsif ($variable_type eq "utf8"){
12515
12516                 # The variable type is a UTF8 string.
12517
12518                 if (!$variable_data){
12519
12520                         $variable_data = "";
12521
12522                 }
12523
12524                 # Check if the string is a valid UTF8 string.
12525
12526                 if ($variable_data =~ m/^(
12527                         [\x09\x0A\x0D\x20-\x7E]              # ASCII
12528                         | [\xC2-\xDF][\x80-\xBF]             # non-overlong 2-byte
12529                         |  \xE0[\xA0-\xBF][\x80-\xBF]        # excluding overlongs
12530                         | [\xE1-\xEC\xEE\xEF][\x80-\xBF]{2}  # straight 3-byte
12531                         |  \xED[\x80-\x9F][\x80-\xBF]        # excluding surrogates
12532                         |  \xF0[\x90-\xBF][\x80-\xBF]{2}     # planes 1-3
12533                         | [\xF1-\xF3][\x80-\xBF]{3}          # planes 4-15
12534                         |  \xF4[\x80-\x8F][\x80-\xBF]{2}     # plane 16
12535                 )*$/x){
12536
12537                         # The UTF-8 string is valid.
12538
12539                 } else {
12540
12541                         # The UTF-8 string is not valid, check if the no error
12542                         # value is set to 1 and return an error if it isn't.
12543
12544                         if ($variable_noerror eq 1){
12545
12546                                 # The no error value has been set to 1, so return
12547                                 # a value of 1 (meaning that the UTF-8 string is
12548                                 # invalid).
12549
12550                                 return 1;
12551
12552                         } elsif ($variable_noerror eq 0) {
12553
12554                                 # The no error value has been set to 0, so return
12555                                 # an error.
12556
12557                                 kiriwrite_error("invalidutf8");
12558
12559                         } else {
12560
12561                                 # The no error value is something else other than 0
12562                                 # or 1, so return an error.
12563
12564                                 kiriwrite_error("invalidoption");
12565
12566                         }
12567
12568                 }
12569
12570                 return 0;
12571
12572         } elsif ($variable_type eq "serverprotocol"){
12573
12574                 # Check if the server protocol is TCP or UDP and return
12575                 # an error if it isn't.
12576
12577                 if ($variable_data ne "tcp" && $variable_data ne "udp"){
12578
12579                         # The protocol given is not valid, check if the no
12580                         # error value is set to 1 and return an error if it isn't.
12581
12582                         if ($variable_noerror eq 1){
12583
12584                                 # The no error value has been set to 1, so return a
12585                                 # value of 1 (meaning that the server protocol is
12586                                 # invalid).
12587
12588                                 return 1;
12589
12590                         } elsif ($variable_noerror eq 0){
12591
12592                                 # The no error value has been set to 0, so return
12593                                 # an error.
12594
12595                                 kiriwrite_error("serverprotocolinvalid");
12596
12597                         } else {
12598
12599                                 # The no error value is something else other than 0
12600                                 # or 1, so return an error.
12601
12602                                 kiriwrite_error("invalidoption");
12603
12604                         }
12605
12606                 }
12607
12608                 return 0;
12609
12610         } elsif ($variable_type eq "port"){
12611
12612                 # Check if the port number given is less than 0 or more than 65535
12613                 # and return an error if it is.
12614
12615                 if ($variable_data < 0 || $variable_data > 65535){
12616
12617                         # The port number is less than 0 and more than 65535 so
12618                         # check if the no error value is set to 1 and return an
12619                         # error if it isn't.
12620
12621                         if ($variable_noerror eq 1){
12622
12623                                 # The no error value has been set to 1, so return a
12624                                 # value of 1 (meaning that the port number is invalid).
12625
12626                                 return 1;
12627
12628                         } elsif ($variable_noerror eq 0){
12629
12630                                 # The no error value has been set to 0, so return
12631                                 # an error.
12632
12633                                 kiriwrite_error("serverportnumberinvalid");
12634
12635                         } else {
12636
12637                                 # The no error value is something else other than 0
12638                                 # or 1, so return an error.
12639
12640                                 kiriwrite_error("invalidoption");
12641
12642                         }
12643
12644                 }
12645
12646                 return 0;
12647
12648         }
12649
12650         # Another type than the valid ones above has been specified so return an error specifying an invalid option.
12651         kiriwrite_error("invalidoption");
12652
12653 }
12654
12655 sub kiriwrite_output_header{
12656 #################################################################################
12657 # kiriwrite_output_header: Outputs the header to the browser/stdout/console.    #
12658 #                                                                               #
12659 # Usage:                                                                        #
12660 #                                                                               #
12661 # kiriwrite_output_header();                                                    #
12662 #################################################################################
12663
12664         # Print a header saying that the page expires immediately since the
12665         # date is set in the past.
12666
12667         print header(-Expires=>'Sunday, 01-Jan-06 00:00:00 GMT', -charset=>'utf-8');
12668         return;
12669 }
12670
12671 sub kiriwrite_processfilename{
12672 #################################################################################
12673 # kiriwrite_processfilename: Processes a name and turns it into a filename that #
12674 # can be used by Kiriwrite.                                                     #
12675 #                                                                               #
12676 # Usage:                                                                        #
12677 #                                                                               #
12678 # kiriwrite_processfilename(text);                                              #
12679 #                                                                               #
12680 # text          Specifies the text to be used in the process for creating a new #
12681 #               filename.                                                       #
12682 #################################################################################
12683
12684         # Get the values that have been passed to the subroutine.
12685
12686         my ($process_text) = @_;
12687
12688         # Define some variables that will be used later on.
12689
12690         my $processed_stageone  = "";
12691         my $processed_stagetwo  = "";
12692         my $processed_length    = "";
12693         my $processed_char      = "";
12694         my $processed_seek      = 0;
12695         my $processed_filename  = "";
12696
12697         # Set the first stage value of the processed filename to the
12698         # process filename and then filter it out to only contain
12699         # numbers and letters (no spaces) and then convert the
12700         # capitals to small letters.
12701
12702         $processed_stageone = $process_text;
12703         $processed_stageone =~ tr#a-zA-Z0-9##cd;
12704         $processed_stageone =~ tr/A-Z/a-z/;
12705
12706         # Now set the second stage value of the processed filename
12707         # to the first stage value of the processed filename and
12708         # then limit the filename down to 32 characters.
12709
12710         $processed_stagetwo = $processed_stageone;
12711         $processed_length = length($processed_stagetwo);
12712
12713         # Process the second stage filename into the final
12714         # filename and do so until the seek counter is 32
12715         # or reaches the length of the second stage filename.
12716
12717         do {
12718
12719                 # Get the character that is the seek counter
12720                 # is set at.
12721
12722                 $processed_char = substr($processed_stagetwo, $processed_seek, 1);
12723
12724                 # Append to the final processed filename.
12725
12726                 $processed_filename = $processed_filename . $processed_char;
12727
12728                 # Increment the seek counter.
12729
12730                 $processed_seek++;
12731
12732         } until ($processed_seek eq 32 || $processed_seek eq $processed_length);
12733
12734         return $processed_filename;
12735
12736 }
12737
12738 sub kiriwrite_language{
12739 #################################################################################
12740 # kiriwrite_language: Process language strings that needs certain text inserted.#
12741 #                                                                               #
12742 # Usage:                                                                        #
12743 #                                                                               #
12744 # kiriwrite_language(string, [text, text, ...]);                                #
12745 #                                                                               #
12746 # string        Specifies the string to process.                                #
12747 # text          Specifies the text to pass to the string (can be repeated many  #
12748 #               times).                                                         #
12749 #################################################################################
12750
12751         my $string = shift;
12752         my $item;
12753
12754         foreach $item (@_){
12755
12756                 $string =~ s/%s/$item/;
12757
12758         }
12759
12760         return $string;
12761
12762 }
12763
12764 sub kiriwrite_error{
12765 #################################################################################
12766 # kiriwrite_error: Prints out an error message.                                 #
12767 #                                                                               #
12768 # Usage:                                                                        #
12769 #                                                                               #
12770 # kiriwrite_error(errortype, errorext);                                         #
12771 #                                                                               #
12772 # errortype     Specifies the type of error that occured.                       #
12773 # errorext      Specifies the extended error information.                       #
12774 #################################################################################
12775
12776         # Get the error type from the subroutine.
12777
12778         my ($error_type, $error_extended) = @_;
12779
12780         # Disconnect from the database server.
12781
12782         if ($kiriwrite_dbmodule){
12783                 $kiriwrite_dbmodule->disconnect();
12784         }
12785
12786         # Load the list of error messages.
12787
12788         my ($kiriwrite_error, %kiriwrite_error);
12789
12790         %kiriwrite_error = (
12791
12792                 # Catch all error message.
12793                 "generic"                       => $kiriwrite_lang->{error}->{generic},
12794
12795                 # Standard error messages.
12796                 "blankfilename"                 => $kiriwrite_lang->{error}->{blankfilename},
12797                 "blankvariable"                 => $kiriwrite_lang->{error}->{blankvariable},
12798                 "fileexists"                    => $kiriwrite_lang->{error}->{fileexists},
12799                 "internalerror"                 => $kiriwrite_lang->{error}->{internalerror},
12800                 "invalidoption"                 => $kiriwrite_lang->{error}->{invalidoption},
12801                 "invalidaction"                 => $kiriwrite_lang->{error}->{invalidaction},
12802                 "invalidfilename"               => $kiriwrite_lang->{error}->{invalidfilename},
12803                 "invalidmode"                   => $kiriwrite_lang->{error}->{invalidmode},
12804                 "invalidutf8"                   => $kiriwrite_lang->{error}->{invalidutf8},
12805                 "invalidvariable"               => $kiriwrite_lang->{error}->{invalidvariable},
12806                 "variabletoolong"               => $kiriwrite_lang->{error}->{variabletoolong},
12807
12808                 # Specific error messages.
12809                 "blankcompiletype"              => $kiriwrite_lang->{error}->{blankcompiletype},
12810                 "blankdatabasepageadd"          => $kiriwrite_lang->{error}->{blankdatabasepageadd},
12811                 "blankdirectory"                => $kiriwrite_lang->{error}->{blankdirectory},
12812                 "blankfindfilter"               => $kiriwrite_lang->{error}->{blankfindfilter},
12813                 "blankdatetimeformat"           => $kiriwrite_lang->{error}->{blankdatetimeformat},
12814                 "databaseconnectionerror"       => $kiriwrite_lang->{error}->{databaseconnectionerror},
12815                 "databasecategoriestoolong"     => $kiriwrite_lang->{error}->{databasecategoriestoolong},
12816                 "databasecopysame"              => $kiriwrite_lang->{error}->{databasecopysame},
12817                 "databasealreadyexists"         => $kiriwrite_lang->{error}->{databasealreadyexists},
12818                 "datadirectorymissing"          => $kiriwrite_lang->{error}->{datadirectorymissing},
12819                 "datadirectoryinvalidpermissions"       => $kiriwrite_lang->{error}->{datadirectoryinvalidpermissions},
12820                 "databasedescriptiontoolong"    => $kiriwrite_lang->{error}->{databasedescriptiontoolong},
12821                 "databasefilenameinvalid"       => $kiriwrite_lang->{error}->{databasefilenameinvalid},
12822                 "databasefilenametoolong"       => $kiriwrite_lang->{error}->{databasefilenametoolong},
12823                 "databaseerror" => $kiriwrite_lang->{error}->{databaseerror},
12824                 "databaseinvalidpermissions"    => $kiriwrite_lang->{error}->{databaseinvalidpermissions},
12825                 "databasenameinvalid"           => $kiriwrite_lang->{error}->{databasenameinvalid},
12826                 "databasenametoolong"           => $kiriwrite_lang->{error}->{databasenametoolong},
12827                 "databasenameblank"             => $kiriwrite_lang->{error}->{databasenameblank},
12828                 "databasemissingfile"           => $kiriwrite_lang->{error}->{databasemissingfile},
12829                 "databasemovemissingfile"       => $kiriwrite_lang->{error}->{databasemovemissingfile},
12830                 "databasenorename"              => $kiriwrite_lang->{error}->{databasenorename},
12831                 "databasemovesame"              => $kiriwrite_lang->{error}->{databasemovesame},
12832                 "dbmoduleblank"                 => $kiriwrite_lang->{error}->{dbmoduleblank},
12833                 "dbmoduleinvalid"               => $kiriwrite_lang->{error}->{dbmoduleinvalid},
12834                 "dbdirectoryblank"              => $kiriwrite_lang->{error}->{dbdirectoryblank},
12835                 "dbdirectoryinvalid"            => $kiriwrite_lang->{error}->{dbdirectoryinvalid},
12836                 "dbmodulemissing"               => $kiriwrite_lang->{error}->{dbmodulemissing},
12837                 "filtersdatabasenotcreated"     => $kiriwrite_lang->{error}->{filtersdatabasenotcreated},
12838                 "filtersdbdatabaseerror"        => $kiriwrite_lang->{error}->{filtersdbdatabaseerror},
12839                 "filtersdbpermissions"          => $kiriwrite_lang->{error}->{filtersdbpermissions},
12840                 "filtersdbmissing"              => $kiriwrite_lang->{error}->{filtersdbmissing},
12841                 "filteridblank"                 => $kiriwrite_lang->{error}->{filteridblank},
12842                 "filterdoesnotexist"            => $kiriwrite_lang->{error}->{filterdoesnotexist},
12843                 "filteridinvalid"               => $kiriwrite_lang->{error}->{filteridinvalid},
12844                 "filteridtoolong"               => $kiriwrite_lang->{error}->{filteridtoolong},
12845                 "findfiltertoolong"             => $kiriwrite_lang->{error}->{findfiltertoolong},
12846                 "filterpriorityinvalid"         => $kiriwrite_lang->{error}->{filterpriorityinvalid},
12847                 "filterpriorityinvalidchars"    => $kiriwrite_lang->{error}->{filterpriorityinvalidchars},
12848                 "filterprioritytoolong"         => $kiriwrite_lang->{error}->{filterprioritytoolong},
12849                 "invalidcompiletype"            => $kiriwrite_lang->{error}->{invalidcompiletype},
12850                 "invalidpagenumber"             => $kiriwrite_lang->{error}->{invalidpagenumber},
12851                 "nopagesselected"               => $kiriwrite_lang->{error}->{nopagesselected},
12852                 "invaliddirectory"              => $kiriwrite_lang->{error}->{invaliddirectory},
12853                 "invaliddatetimeformat"         => $kiriwrite_lang->{error}->{invaliddatetimeformat},
12854                 "invalidlanguagefilename"       => $kiriwrite_lang->{error}->{invalidlanguagefilename},
12855                 "languagefilenamemissing"       => $kiriwrite_lang->{error}->{languagefilenamemissing},
12856                 "moduleblank"                   => $kiriwrite_lang->{error}->{moduleblank},
12857                 "moduleinvalid"                 => $kiriwrite_lang->{error}->{moduleinvalid},
12858                 "newcopydatabasedatabaseerror"  => $kiriwrite_lang->{error}->{newcopydatabasedatabaseerror},
12859                 "newcopydatabasedoesnotexist"   => $kiriwrite_lang->{error}->{newcopydatabasedoesnotexist},
12860                 "newcopydatabasefileinvalidpermissions" => $kiriwrite_lang->{error}->{newcopydatabasefileinvalidpermissions},
12861                 "newmovedatabasedatabaseerror"  => $kiriwrite_lang->{error}->{newmovedatabasedatabaseerror},
12862                 "newmovedatabasedoesnotexist"   => $kiriwrite_lang->{error}->{newmovedatabasedoesnotexist},
12863                 "newmovedatabasefileinvalidpermissions" => $kiriwrite_lang->{error}->{newmovedatabasefileinvalidpermissions},
12864                 "nodatabasesavailable"          => $kiriwrite_lang->{error}->{nodatabasesavailable},
12865                 "nodatabaseselected"            => $kiriwrite_lang->{error}->{nodatabaseselected},
12866                 "noeditvaluesselected"          => $kiriwrite_lang->{error}->{noeditvaluesselected},
12867                 "oldcopydatabasedatabaseerror"  => $kiriwrite_lang->{error}->{oldcopydatabasedatabaseerror},
12868                 "oldcopydatabasedoesnotexist"   => $kiriwrite_lang->{error}->{oldcopydatabasedoesnotexist},
12869                 "oldcopydatabasefileinvalidpermissions" => $kiriwrite_lang->{error}->{oldcopydatabasefileinvalidpermissions},
12870                 "oldmovedatabasedatabaseerror"  => $kiriwrite_lang->{error}->{oldmovedatabasedatabaseerror},
12871                 "oldmovedatabasedoesnotexist"   => $kiriwrite_lang->{error}->{oldmovedatabasedoesnotexist},
12872                 "oldmovedatabasefileinvalidpermissions" => $kiriwrite_lang->{error}->{oldmovedatabasefileinvalidpermissions},
12873                 "outputdirectoryblank"          => $kiriwrite_lang->{error}->{outputdirectoryblank},
12874                 "outputdirectoryinvalid"        => $kiriwrite_lang->{error}->{outputdirectoryinvalid},
12875                 "outputdirectorymissing"        => $kiriwrite_lang->{error}->{outputdirectorymissing},
12876                 "outputdirectoryinvalidpermissions"     => $kiriwrite_lang->{error}->{outputdirectoryinvalidpermissions},
12877                 "presmoduleblank"               => $kiriwrite_lang->{error}->{presmoduleblank},
12878                 "presmoduleinvalid"             => $kiriwrite_lang->{error}->{presmoduleinvalid},
12879                 "presmodulemissing"             => $kiriwrite_lang->{error}->{presmodulemissing},
12880                 "pagefilenamedoesnotexist"      => $kiriwrite_lang->{error}->{pagefilenamedoesnotexist},
12881                 "pagefilenameexists"            => $kiriwrite_lang->{error}->{pagefilenameexists},
12882                 "pagefilenameinvalid"           => $kiriwrite_lang->{error}->{pagefilenameinvalid},
12883                 "pagefilenametoolong"           => $kiriwrite_lang->{error}->{pagefilenametoolong},
12884                 "pagefilenameblank"             => $kiriwrite_lang->{error}->{pagefilenameblank},
12885                 "pagetitletoolong"              => $kiriwrite_lang->{error}->{pagetitletoolong},
12886                 "pagedescriptiontoolong"        => $kiriwrite_lang->{error}->{pagedescriptiontoolong},
12887                 "pagesectiontoolong"            => $kiriwrite_lang->{error}->{pagesectiontoolong},
12888                 "pagedatabasefilenametoolong"   => $kiriwrite_lang->{error}->{pagedatabasefilenametoolong},
12889                 "pagesettingstoolong"           => $kiriwrite_lang->{error}->{pagesettingstoolong},
12890                 "pagesettingsinvalid"           => $kiriwrite_lang->{error}->{pagesettingsinvalid},
12891                 "pagetemplatefilenametoolong"   => $kiriwrite_lang->{error}->{pagetemplatefilenametoolong},
12892                 "replacefiltertoolong"          => $kiriwrite_lang->{error}->{replacefiltertoolong},
12893                 "servernameinvalid"             => $kiriwrite_lang->{error}->{servernameinvalid},
12894                 "servernametoolong"             => $kiriwrite_lang->{error}->{servernametoolong},
12895                 "serverdatabasenameinvalid"     => $kiriwrite_lang->{error}->{serverdatabasenameinvalid},
12896                 "serverdatabasenametoolong"     => $kiriwrite_lang->{error}->{serverdatabasenametoolong},
12897                 "serverdatabaseusernameinvalid" => $kiriwrite_lang->{error}->{serverdatabaseusernameinvalid},
12898                 "serverdatabaseusernametoolong" => $kiriwrite_lang->{error}->{serverdatabaseusernametoolong},
12899                 "serverdatabasepasswordtoolong" => $kiriwrite_lang->{error}->{serverdatabasepasswordtoolong},
12900                 "serverdatabasetableprefixinvalid"      => $kiriwrite_lang->{error}->{serverdatabasetableprefixinvalid},
12901                 "serverdatabasetableprefixtoolong"      => $kiriwrite_lang->{error}->{serverdatabasetableprefixtoolong},
12902                 "serverportnumberinvalid"       => $kiriwrite_lang->{error}->{serverportnumberinvalid},
12903                 "serverportnumberinvalidcharacters"     => $kiriwrite_lang->{error}->{serverportnumberinvalidcharacters},
12904                 "serverportnumbertoolong"       => $kiriwrite_lang->{error}->{serverportnumbertoolong},
12905                 "serverprotocolnametoolong"     => $kiriwrite_lang->{error}->{serverprotocolnametoolong},
12906                 "serverprotocolinvalid"         => $kiriwrite_lang->{error}->{serverprotocolinvalid},
12907                 "templatenameblank"             => $kiriwrite_lang->{error}->{templatenameblank},
12908                 "templatefilenameexists"        => $kiriwrite_lang->{error}->{templatefilenameexists},
12909                 "templatefilenameinvalid"       => $kiriwrite_lang->{error}->{templatefilenameinvalid},
12910                 "templatedatabaseerror"         => $kiriwrite_lang->{error}->{templatedatabaseerror},
12911                 "templatedatabaseinvalidpermissions"    => $kiriwrite_lang->{error}->{templatedatabaseinvalidpermissions},
12912                 "templatedatabaseinvalidformat" => $kiriwrite_lang->{error}->{templatedatabaseinvalidformat},
12913                 "templatedirectoryblank"        => $kiriwrite_lang->{error}->{templatedirectoryblank},
12914                 "templatedirectoryinvalid"      => $kiriwrite_lang->{error}->{templatedirectoryinvalid},
12915                 "templatedatabasenotcreated"    => $kiriwrite_lang->{error}->{templatedatabasenotcreated},
12916                 "templatefilenametoolong"       => $kiriwrite_lang->{error}->{templatefilenametoolong},
12917                 "templatenametoolong"           => $kiriwrite_lang->{error}->{templatenametoolong},
12918                 "templatedescriptiontoolong"    => $kiriwrite_lang->{error}->{templatedescriptiontoolong},
12919                 "templatedatabasemissing"       => $kiriwrite_lang->{error}->{templatedatabasemissing},
12920                 "templatedoesnotexist"          => $kiriwrite_lang->{error}->{templatedoesnotexist},
12921                 "templatefilenameblank"         => $kiriwrite_lang->{error}->{templatefilenameblank},
12922
12923         );
12924
12925         # Check if the specified error is blank and if it is
12926         # use the generic error messsage.
12927
12928         if (!$kiriwrite_error{$error_type}){
12929                 $error_type = "generic";
12930         }
12931
12932         $kiriwrite_presmodule->clear();
12933
12934         $kiriwrite_presmodule->startbox("errorbox");
12935         $kiriwrite_presmodule->addtext($kiriwrite_lang->{error}->{error}, { Style => "errorheader" });
12936         $kiriwrite_presmodule->addlinebreak();
12937         $kiriwrite_presmodule->addtext($kiriwrite_error{$error_type}, { Style => "errortext" });
12938
12939         # Check to see if extended error information was passed.
12940
12941         if ($error_extended){
12942
12943                 # Write the extended error information.
12944
12945                 $kiriwrite_presmodule->addlinebreak();
12946                 $kiriwrite_presmodule->addlinebreak();
12947                 $kiriwrite_presmodule->addtext($kiriwrite_lang->{error}->{extendederror});
12948                 $kiriwrite_presmodule->addlinebreak();
12949                 $kiriwrite_presmodule->addlinebreak();
12950                 $kiriwrite_presmodule->startbox("datalist");
12951                 $kiriwrite_presmodule->addtext($error_extended);
12952                 $kiriwrite_presmodule->endbox();
12953
12954         }
12955
12956         $kiriwrite_presmodule->endbox();
12957
12958         kiriwrite_output_header;
12959         kiriwrite_output_page($kiriwrite_lang->{error}->{error}, $kiriwrite_presmodule->grab(), "none");
12960
12961         exit;
12962
12963 }
12964
12965 sub kiriwrite_fileexists{
12966 #################################################################################
12967 # kiriwrite_fileexists: Check if a file exists and returns a value depending on #
12968 # if the file exists or not.                                                    #
12969 #                                                                               #
12970 # Usage:                                                                        #
12971 #                                                                               #
12972 # kiriwrite_fileexists(filename);                                               #
12973 #                                                                               #
12974 # filename      Specifies the file name to check if it exists or not.           #
12975 #################################################################################
12976
12977         # Get the value that was passed to the subroutine.
12978
12979         my ($filename) = @_;
12980
12981         # Check if the filename exists, if it does, return a value of 0, else
12982         # return a value of 1, meaning that the file was not found.
12983
12984         if (-e $filename){
12985
12986                 # Specified file does exist so return a value of 0.
12987
12988                 return 0;
12989
12990         } else {
12991
12992                 # Specified file does not exist so return a value of 1.
12993
12994                 return 1;
12995
12996         }
12997
12998 }
12999
13000 sub kiriwrite_filepermissions{
13001 #################################################################################
13002 # kiriwrite_filepermissions: Check if the file permissions of a file and return #
13003 # either a 1 saying that the permissions are valid or return a 0 saying that    #
13004 # the permissions are invalid.                                                  #
13005 #                                                                               #
13006 # Usage:                                                                        #
13007 #                                                                               #
13008 # kiriwrite_filepermissions(filename, [read], [write], [filemissingskip]);      #
13009 #                                                                               #
13010 # filename              Specifies the filename to check for permissions.        #
13011 # read                  Preform check that the file is readable.                #
13012 # write                 Preform check that the file is writeable.               #
13013 # filemissingskip       Skip the check of seeing if it can read or write if the #
13014 #                       file is missing.                                        #
13015 #################################################################################
13016
13017         # Get the values that was passed to the subroutine.
13018
13019         my ($filename, $readpermission, $writepermission, $ignorechecks) = @_;
13020
13021         # Check to make sure that the read permission and write permission values
13022         # are only 1 character long.
13023
13024         kiriwrite_variablecheck($readpermission, "maxlength", 1, 0);
13025         kiriwrite_variablecheck($writepermission, "maxlength", 1, 0);
13026         kiriwrite_variablecheck($ignorechecks, "maxlength", 1, 0);
13027
13028         my $ignorechecks_result = 0;
13029
13030         # Check if the file should be ignored for read and write checking if
13031         # it doesn't exist.
13032
13033         if ($ignorechecks){
13034
13035                 if (-e $filename){
13036
13037                         # The file exists so the checks are to be done.
13038
13039                         $ignorechecks_result = 0;
13040
13041                 } else {
13042
13043                         # The file does not exist so the checks don't need to
13044                         # be done to prevent false positives.
13045
13046                         $ignorechecks_result = 1;
13047
13048                 }
13049
13050         } else {
13051
13052                 $ignorechecks_result = 0;
13053
13054         }
13055
13056         # Check if the file should be checked to see if it can be read.
13057
13058         if ($readpermission && $ignorechecks_result eq 0){
13059
13060                 # The file should be checked to see if it does contain read permissions
13061                 # and return a 0 if it is invalid.
13062
13063                 if (-r $filename){
13064
13065                         # The file is readable, so do nothing.
13066
13067                 } else {
13068
13069                         # The file is not readable, so return 1.
13070
13071                         return 1;
13072
13073                 }
13074
13075         }
13076
13077         # Check if the file should be checked to see if it can be written.
13078
13079         if ($writepermission && $ignorechecks_result eq 0){
13080
13081                 # The file should be checked to see if it does contain write permissions
13082                 # and return a 0 if it is invalid.
13083
13084                 if (-w $filename){
13085
13086                         # The file is writeable, so do nothing.
13087
13088                 } else {
13089
13090                         # The file is not writeable, so return 1.
13091
13092                         return 1;
13093
13094                 }
13095
13096         }
13097
13098         # No problems have occured, so return 0.
13099
13100         return 0;
13101
13102 }
13103
13104 sub kiriwrite_utf8convert{
13105 #################################################################################
13106 # kiriwrite_utf8convert: Properly converts values into UTF-8 values.            #
13107 #                                                                               #
13108 # Usage:                                                                        #
13109 #                                                                               #
13110 # utfstring     # The UTF-8 string to convert.                                  #
13111 #################################################################################
13112
13113         # Get the values passed to the subroutine.
13114
13115         my ($utfstring) = @_;
13116
13117         # Load the Encode perl module.
13118
13119         use Encode qw(decode_utf8);
13120
13121         # Convert the string.
13122
13123         my $finalutf8 = Encode::decode_utf8( $utfstring );
13124
13125         return $finalutf8;
13126
13127 }
13128
13129 sub kiriwrite_critical{
13130 #################################################################################
13131 # kiriwrite_critical: Displays an critical error message that cannot be         #
13132 # normally by the kiriwrite_error subroutine.                                   #
13133 #                                                                               #
13134 # Usage:                                                                        #
13135 #                                                                               #
13136 # errortype     Specifies the type of critical error that has occured.          #
13137 #################################################################################
13138
13139         # Get the value that was passed to the subroutine.
13140
13141         my ($error_type) = @_;
13142
13143         my %error_list;
13144
13145         # Get the error type from the errortype string.
13146
13147         %error_list = (
13148
13149                 # Generic critical error message.
13150
13151                 "generic"                       => "A critical error has occured but the error is not known to Kiriwrite.",
13152
13153                 # Specific critical error messages.
13154
13155                 "configfilemissing"             => "The Kiriwrite configuration file is missing! Running the installer script for Kiriwrite is recommended.",
13156                 "configfileinvalidpermissions"  => "The Kiriwrite configuration file has invalid permission settings set! Please set the valid permission settings for the configuration file.",
13157                 "dbmodulemissing"               => "The database module is missing! Running the installer script for Kiriwrite is recommended.",
13158                 "dbmoduleinvalidpermissions"    => "The database module cannot be used as it has invalid permission settings set! Please set the valid permission settings for the configuration file.",
13159                 "dbmoduleinvalid"               => "The database module name given is invalid. Running the installer script for Kiriwrite is recommended.",
13160                 "invalidvalue"                  => "An invalid value was passed.",
13161                 "languagefilenameblank"         => "The language filename given is blank! Running the installer script for Kiriwrite is recommended.",
13162                 "languagefilenameinvalid"       => "The language filename given is invalid! Running the installer script for Kiriwrite is recommended.",
13163                 "languagefilemissing"   => "The language filename given does not exist. Running the installer script for Kiriwrite is recommended.",
13164                 "languagefilenameinvalidpermissions"    => "The language file with the filename given has invalid permissions set. Please set the valid permission settings for the language file.",
13165                 "presmodulemissing"             => "The presentation module is missing! Running the installer script for Kiriwrite is recommended.",
13166                 "presmoduleinvalidpermissions"  => "The presentation module cannot be used as it has invalid permission settings set! Please set the valid permission settings for the presentation module.",
13167                 "presmoduleinvalid"             => "The presentation module name given is invalid. Running the installer script for Kiriwrite is recommended.",
13168         );
13169
13170         if (!$error_list{$error_type}){
13171
13172                 $error_type = "generic";
13173
13174         }
13175
13176         print header();
13177         print "Critical Error: " . $error_list{$error_type};
13178         exit;
13179
13180 }
13181
13182 sub kiriwrite_output_page{
13183 #################################################################################
13184 # kiriwrite_output_page: Outputs the page to the browser/stdout/console.        #
13185 #                                                                               #
13186 # Usage:                                                                        #
13187 #                                                                               #
13188 # kiriwrite_output_page(pagetitle, pagedata, menutype);                         #
13189 #                                                                               #
13190 # pagetitle     Specifies the page title.                                       #
13191 # pagedata      Specifies the page data.                                        #
13192 # menutype      Prints out which menu to use.                                   #
13193 #################################################################################
13194
13195         my ($pagetitle, $pagedata, $menutype) = @_;
13196
13197         # Open the script page template and load it into the scriptpage variable,
13198         # while declaring the variable.
13199
13200         open (my $filehandle_scriptpage, "<:utf8", 'page.html');
13201         my @scriptpage = <$filehandle_scriptpage>;
13202         binmode $filehandle_scriptpage, ':utf8';
13203         close ($filehandle_scriptpage);
13204
13205         # Define the variables required.
13206
13207         my $scriptpageline = "";
13208         my $pageoutput = "";
13209         my $menuoutput = "";
13210
13211         $kiriwrite_presmodule->clear();
13212
13213         # Print out the main menu for Kiriwrite.
13214
13215         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=db", { Text => $kiriwrite_lang->{menu}->{viewdatabases} });
13216         $kiriwrite_presmodule->addtext(" | ");
13217         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=page", { Text => $kiriwrite_lang->{menu}->{viewpages} });
13218         $kiriwrite_presmodule->addtext(" | ");
13219         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=filter", { Text => $kiriwrite_lang->{menu}->{viewfilters} });
13220         $kiriwrite_presmodule->addtext(" | ");
13221         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=template", { Text => $kiriwrite_lang->{menu}->{viewtemplates} });
13222         $kiriwrite_presmodule->addtext(" | ");
13223         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=compile", { Text => $kiriwrite_lang->{menu}->{compilepages} });
13224         $kiriwrite_presmodule->addtext(" | ");
13225         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=settings", { Text => $kiriwrite_lang->{menu}->{viewsettings} });
13226         $kiriwrite_presmodule->addlinebreak();
13227
13228         # Check what menu is going to be printed along with the default 'top' menu.
13229
13230         if ($menutype eq "database"){
13231
13232                 # If the menu type is database then print out the database sub-menu.
13233
13234                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=db", { Text => $kiriwrite_lang->{database}->{submenu}->{viewdatabases} });
13235                 $kiriwrite_presmodule->addtext(" | ");
13236                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=db&action=new", { Text => $kiriwrite_lang->{database}->{submenu}->{adddatabase} });
13237
13238         } elsif ($menutype eq "pages"){
13239                 # If the menu type is pages then print out the pages sub-menu.
13240
13241                 # First, fetch the database name from the HTTP query string.
13242
13243                 my $query = new CGI;
13244                 my $db_filename = $query->param('database');
13245
13246                 # Check if a value has been placed in the db_filename string.
13247
13248                 if (!$db_filename){
13249
13250                         # As the database filename is blank, don't add an option to add a page.
13251
13252                 } else {
13253
13254                         # A database file has been specified so add an option to add a page to
13255                         # the selected database.
13256
13257                         $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=page&action=add&database="  . $db_filename, { Text => $kiriwrite_lang->{pages}->{submenu}->{addpage} });
13258
13259                 }
13260
13261         } elsif ($menutype eq "filter"){
13262
13263                 # If the menu type is filters then print out the filter sub-menu.
13264
13265                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=filter", { Text => $kiriwrite_lang->{filter}->{submenu}->{showfilters} });
13266                 $kiriwrite_presmodule->addtext(" | ");
13267                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=filter&action=add", { Text => $kiriwrite_lang->{filter}->{submenu}->{addfilter} });
13268
13269         } elsif ($menutype eq "settings"){
13270
13271                 # If the menu type is options then print out the options sub-menu.
13272
13273                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=settings", { Text => $kiriwrite_lang->{setting}->{submenu}->{viewsettings} });
13274                 $kiriwrite_presmodule->addtext(" | ");
13275                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=settings&action=edit", { Text => $kiriwrite_lang->{setting}->{submenu}->{editsettings} });
13276
13277         } elsif ($menutype eq "template"){
13278
13279                 # If the menu type is template then print out the template sub-menu.
13280
13281                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=template", { Text => $kiriwrite_lang->{template}->{submenu}->{showtemplates} });
13282                 $kiriwrite_presmodule->addtext(" | ");
13283                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=template&action=add", { Text => $kiriwrite_lang->{template}->{submenu}->{addtemplate} });
13284
13285         } elsif ($menutype eq "compile"){
13286
13287                 # If the menu type is compile then print out the compile sub-menu.
13288
13289                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=compile", { Text => $kiriwrite_lang->{compile}->{submenu}->{listdatabases} });
13290                 $kiriwrite_presmodule->addtext(" | ");
13291                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=compile&action=all", { Text => $kiriwrite_lang->{compile}->{submenu}->{compileall} });
13292                 $kiriwrite_presmodule->addtext(" | ");
13293                 $kiriwrite_presmodule->addlink($kiriwrite_env{'script_filename'} . "?mode=compile&action=clean", { Text => $kiriwrite_lang->{compile}->{submenu}->{cleanoutputdirectory} });
13294
13295         }
13296
13297         $menuoutput = $kiriwrite_presmodule->grab();
13298
13299         # Find <kiriwrite> tages and replace with the apporiate variables.
13300
13301         foreach $scriptpageline (@scriptpage){
13302
13303                 $scriptpageline =~ s/<kiriwrite:menu>/$menuoutput/g;
13304                 $scriptpageline =~ s/<kiriwrite:imagespath>/$kiriwrite_config{"directory_noncgi_images"}/g;
13305                 $scriptpageline =~ s/<kiriwrite:pagedata>/$pagedata/g;
13306
13307                 # Check if page title specified is blank, otherwise add a page title
13308                 # to the title.
13309
13310                 if ($pagetitle eq ""){
13311                         $scriptpageline =~ s/<kiriwrite:title>//g;
13312                 } else {
13313                         $scriptpageline =~ s/<kiriwrite:title>/ ($pagetitle)/g;
13314                 }
13315
13316
13317
13318                 # Append processed line to the pageoutput variable.
13319
13320                 $pageoutput = $pageoutput . $scriptpageline;
13321
13322         }
13323
13324         binmode STDOUT, ':utf8';
13325
13326         print $pageoutput;
13327
13328         return;
13329
13330 }
13331
13332 sub kiriwrite_output_xml{
13333 #################################################################################
13334 # kiriwrite_output_xml: Outputs several types of data to an XML file            #
13335 #                                                                               #
13336 # Usage:                                                                        #
13337 #                                                                               #
13338 # kiriwrite_output_xml(filename, type, settings);                               #
13339 #                                                                               #
13340 # filename      Specifies the filename of the XML file.                         #
13341 # type          Specifies the type of the XML file to be written.               #
13342 # settings              Specifies the following settings in any order.          #
13343 #                                                                               #
13344 # Settings for Kiriwrite configuration files:                                   #
13345 #                                                                               #
13346 # DatabaseDirectory     Specifies the new database directory to use.            #
13347 # OutputDirectory       Specifies the new output directory to use.              #
13348 # ImagesURIPath         Specifies the new URI path for images.                  #
13349 # DateTimeFormat        Specifies the new date and time format.                 #
13350 # SystemLanguage        Specifies the new language to use for Kiriwrite.        #
13351 # PrsentationModule     Specifies the new presentation module to use for        #
13352 #                       Kiriwrite.                                              #
13353 # DatabaseModule        Specifies the new database module to use for Kiriwrite. #
13354 # DatabaseServer        Specifies the database server to use.                   #
13355 # DaravasePort          Specifies the port the database server is running on.   #
13356 # DatabaseProtocol      Specifies the protocol the database server is using.    #
13357 # DatabaseSQLDatabase   Specifies the SQL database name to use.                 #
13358 # DatabaseUsername      Specifies the database server username.                 #
13359 # DatabasePassword      Specifies the password for the database server username.#
13360 # DatabaseTablePrefix   Specifies the table prefix to use.                      #
13361 #################################################################################
13362
13363         # Get the variables passed from the subroutine.
13364
13365         my $xml_filename        = shift;
13366         my $xml_type            = shift;
13367         my ($passedsettings)    = @_;
13368
13369         # Check if filename is blank, if it is then return an error.
13370
13371         if ($xml_filename eq ""){
13372                 # Filename is blank, return an error.
13373                 kiriwrite_error("blankfilename");
13374         }
13375
13376         # Validate the XML filename to make sure nothing supicious is being passed.
13377
13378         kiriwrite_variablecheck($xml_filename, "maxlength", 64, 0);
13379         kiriwrite_variablecheck($xml_filename, "filename", "", 0);
13380
13381         # Check what type of XML data to output.
13382
13383         if ($xml_type eq "config") {
13384
13385                 # The type of XML data to output is a Kiriwrite configuration file.
13386
13387                 # Get the data from the hash.
13388
13389                 my $settings_databasedir                = $passedsettings->{"DatabaseDirectory"};
13390                 my $settings_outputdir                  = $passedsettings->{"OutputDirectory"};
13391                 my $settings_imagesuri                  = $passedsettings->{"ImagesURIPath"};
13392                 my $settings_datetime                   = $passedsettings->{"DateTimeFormat"};
13393                 my $settings_systemlanguage             = $passedsettings->{"SystemLanguage"};
13394                 my $settings_presmodule                 = $passedsettings->{"PresentationModule"};
13395                 my $settings_dbmodule                   = $passedsettings->{"DatabaseModule"};
13396
13397                 my $settings_database_server            = $passedsettings->{"DatabaseServer"};
13398                 my $settings_database_port              = $passedsettings->{"DatabasePort"};
13399                 my $settings_database_protocol          = $passedsettings->{"DatabaseProtocol"};
13400                 my $settings_database_sqldatabase       = $passedsettings->{"DatabaseSQLDatabase"};
13401                 my $settings_database_username          = $passedsettings->{"DatabaseUsername"};
13402                 my $settings_database_password          = $passedsettings->{"DatabasePassword"};
13403                 my $settings_database_tableprefix       = $passedsettings->{"DatabaseTablePrefix"};
13404
13405                 # Convert the password to make sure it can be read properly.
13406
13407                 if ($settings_database_password){
13408
13409                         $settings_database_password =~ s/\0//g;
13410                         $settings_database_password =~ s/</&lt;/g;
13411                         $settings_database_password =~ s/>/&gt;/g;
13412
13413                 }
13414
13415                 # Convert the less than and greater than characters are there and
13416                 # convert them.
13417
13418                 if ($settings_imagesuri){
13419
13420                         $settings_imagesuri =~ s/</&lt;/g;
13421                         $settings_imagesuri =~ s/>/&gt;/g;
13422
13423                 }
13424
13425                 # Check if the database password value is undefined and if it is then
13426                 # set it blank.
13427
13428                 if (!$settings_database_password){
13429
13430                         $settings_database_password = "";
13431
13432                 }
13433
13434                 # Create the XML data layout.
13435
13436                 my $xmldata = "<?xml version=\"1.0\"?>\r\n\r\n<kiriwrite-config>\r\n";
13437
13438                 $xmldata = $xmldata . "<!-- This file was automatically generated by Kiriwrite, please feel free to edit to your own needs. -->\r\n";
13439                 $xmldata = $xmldata . "\t<settings>\r\n\t\t<directories>\r\n";
13440
13441                 $xmldata = $xmldata . "\t\t\t<database>" . $settings_databasedir . "</database>\r\n";
13442                 $xmldata = $xmldata . "\t\t\t<output>" . $settings_outputdir  . "</output>\r\n";
13443                 $xmldata = $xmldata . "\t\t\t<images>" . $settings_imagesuri . "</images>\r\n";
13444                 $xmldata = $xmldata . "\t\t</directories>\r\n";
13445
13446                 $xmldata = $xmldata . "\t\t<language>\r\n";
13447                 $xmldata = $xmldata . "\t\t\t<lang>" . $settings_systemlanguage . "</lang>\r\n";
13448                 $xmldata = $xmldata . "\t\t</language>\r\n";
13449
13450                 $xmldata = $xmldata . "\t\t<system>\r\n";
13451                 $xmldata = $xmldata . "\t\t\t<presentation>" . $settings_presmodule . "</presentation>\r\n";
13452                 $xmldata = $xmldata . "\t\t\t<database>" . $settings_dbmodule . "</database>\r\n";
13453                 $xmldata = $xmldata . "\t\t\t<datetime>" . $settings_datetime . "</datetime>\r\n";
13454                 $xmldata = $xmldata . "\t\t</system>\r\n";
13455
13456                 $xmldata = $xmldata . "\t\t<database>\r\n";
13457                 $xmldata = $xmldata . "\t\t\t<server>" . $settings_database_server . "</server>\r\n";
13458                 $xmldata = $xmldata . "\t\t\t<port>" . $settings_database_port . "</port>\r\n";
13459                 $xmldata = $xmldata . "\t\t\t<protocol>" . $settings_database_protocol . "</protocol>\r\n";
13460                 $xmldata = $xmldata . "\t\t\t<database>" . $settings_database_sqldatabase . "</database>\r\n";
13461                 $xmldata = $xmldata . "\t\t\t<username>" . $settings_database_username . "</username>\r\n";
13462                 $xmldata = $xmldata . "\t\t\t<password>" . $settings_database_password . "</password>\r\n";
13463                 $xmldata = $xmldata . "\t\t\t<prefix>" . $settings_database_tableprefix . "</prefix>\r\n";
13464                 $xmldata = $xmldata . "\t\t</database>\r\n";
13465
13466                 $xmldata = $xmldata . "\t</settings>\r\n";
13467
13468                 $xmldata = $xmldata . "</kiriwrite-config>";
13469
13470                 # Open the Kiriwrite XML configuration file and write the new settings to the
13471                 # configuration file.
13472
13473                 open(my $filehandle_xmlconfig, "> ", "kiriwrite.xml");
13474                 print $filehandle_xmlconfig $xmldata;
13475                 close($filehandle_xmlconfig);
13476
13477         } else {
13478
13479                 # The type of XML data is something else that is not supported by
13480                 # Kiriwrite, so return an error.
13481
13482                 kiriwrite_error("invalidoption");
13483
13484         }
13485
13486         return;
13487
13488 }
13489
13490 #################################################################################
13491 # End listing the functions needed.                                             #
13492 #################################################################################
13493
13494 #################################################################################
13495 # Begin proper script execution.                                                #
13496 #################################################################################
13497
13498 kiriwrite_settings_load;        # Load the configuration options.
13499
13500 my $query = new CGI;            # Easily fetch variables from the HTTP string.
13501
13502
13503
13504 # Check if a mode has been specified and if a mode has been specified, continue
13505 # and work out what mode has been specified.
13506
13507 if ($query->param('mode')){
13508         my $http_query_mode = $query->param('mode');
13509
13510         if ($http_query_mode eq "db"){
13511
13512                 # If mode is 'db' (database), then check what action is required.
13513
13514                 if ($query->param('action')){
13515                         # An action has been specified, so find out what action has been specified.
13516
13517                         my $http_query_action = $query->param('action');
13518
13519                         if ($http_query_action eq "edit"){
13520                                 # The edit action (which mean edit the settings for the selected database) has been specified,
13521                                 # get the database name and check if the action to edit an database has been confirmed.
13522
13523                                 if ($query->param('database')){
13524                                         # If there is a value in the database variable check if it is a valid database. Otherwise,
13525                                         # return an error.
13526
13527                                         my $http_query_database = $query->param('database');
13528
13529                                         # Check if a value for confirm has been specified, if there is, check if it is the correct
13530                                         # value, otherwise return an error.
13531
13532                                         if ($query->param('confirm')){
13533                                                 # A value for confirm has been specified, find out what value it is. If the value is correct
13534                                                 # then edit the database settings, otherwise return an error.
13535
13536                                                 my $http_query_confirm = $query->param('confirm');
13537
13538                                                 if ($http_query_confirm eq 1){
13539                                                         # Value is correct, collect the variables to pass onto the database variable.
13540
13541                                                         # Get the variables from the HTTP query.
13542
13543                                                         my $newdatabasename             = $query->param('databasename');
13544                                                         my $newdatabasedescription      = $query->param('databasedescription');
13545                                                         my $newdatabasefilename         = $query->param('databasefilename');
13546                                                         my $databaseshortname           = $query->param('database');
13547                                                         my $databasenotes               = $query->param('databasenotes');
13548                                                         my $databasecategories          = $query->param('databasecategories');
13549
13550                                                         # Check the permissions of the database configuration file and return
13551                                                         # an error if the database permissions are invalid.
13552
13553                                                         # Pass the variables to the database editing subroutine.
13554
13555                                                         my $pagedata = kiriwrite_database_edit($databaseshortname, $newdatabasefilename, $newdatabasename, $newdatabasedescription, $databasenotes, $databasecategories, 1);
13556
13557                                                         kiriwrite_output_header;
13558                                                         kiriwrite_output_page($kiriwrite_lang->{database}->{editdatabasetitle}, $pagedata, "database");
13559                                                         exit;
13560
13561                                                 } else {
13562                                                         # Value is incorrect, return and error.
13563                                                         kiriwrite_error("invalidvariable");
13564                                                 }
13565
13566                                         }
13567
13568                                         # Display the form for editing an database.
13569                                         my $pagedata = kiriwrite_database_edit($http_query_database);
13570
13571                                         kiriwrite_output_header;
13572                                         kiriwrite_output_page($kiriwrite_lang->{database}->{editdatabasetitle}, $pagedata, "database");
13573                                         exit;
13574
13575                                 } else {
13576
13577                                         # If there is no value in the database variable, then return an error.
13578                                         kiriwrite_error("invalidvariable");
13579
13580                                 }
13581
13582                         } elsif ($http_query_action eq "delete"){
13583
13584                                 # Action equested is to delete a database, find out if the user has already confirmed deletion of the database
13585                                 # and if the deletion of the database has been confirmed, delete the database.
13586
13587                                 if ($query->param('confirm')){
13588
13589                                         # User has confirmed to delete a database, pass the parameters to the kiriwrite_database_delete
13590                                         # subroutine.
13591
13592                                         my $database_filename = $query->param('database');
13593                                         my $database_confirm = $query->param('confirm');
13594                                         my $pagedata = kiriwrite_database_delete($database_filename, $database_confirm);
13595
13596                                         kiriwrite_output_header;
13597                                         kiriwrite_output_page($kiriwrite_lang->{database}->{deleteddatabase}, $pagedata, "database");
13598
13599                                         exit;
13600
13601                                 }
13602
13603                                 # User has clicked on the delete link (thus hasn't confirmed the action to delete a database).
13604
13605                                 my $database_filename = $query->param('database');
13606                                 my $pagedata = kiriwrite_database_delete($database_filename);
13607
13608                                 kiriwrite_output_header;
13609                                 kiriwrite_output_page($kiriwrite_lang->{database}->{deletedatabase}, $pagedata, "database");
13610
13611                                 exit;
13612
13613                         } elsif ($http_query_action eq "new"){
13614
13615                                 # Action requested is to create a new database, find out if the user has already entered the information needed
13616                                 # to create a database and see if the user has confirmed the action, otherwise printout a form for adding a
13617                                 # database.
13618
13619                                 my $http_query_confirm = $query->param('confirm');
13620
13621                                 # Check if the confirm value is correct.
13622
13623                                 if ($http_query_confirm){
13624                                         if ($http_query_confirm eq 1){
13625
13626                                                 # User has confirmed to create a database, pass the parameters to the
13627                                                 # kiriwrite_database_add subroutine.
13628
13629                                                 my $http_query_confirm = $query->param('confirm');
13630
13631                                                 my $database_name               = $query->param('databasename');
13632                                                 my $database_description        = $query->param('databasedescription');
13633                                                 my $database_filename           = $query->param('databasefilename');
13634                                                 my $database_notes              = $query->param('databasenotes');
13635                                                 my $database_categories         = $query->param('databasecategories');
13636
13637                                                 my $pagedata = kiriwrite_database_add($database_filename, $database_name, $database_description, $database_notes, $database_categories, $http_query_confirm);
13638
13639                                                 kiriwrite_output_header;
13640                                                 kiriwrite_output_page($kiriwrite_lang->{database}->{adddatabase}, $pagedata, "database");
13641                                                 exit;
13642
13643                                         } else {
13644
13645                                                 # The confirm value is something else other than 1 (which it shouldn't be), so
13646                                                 # return an error.
13647
13648                                         }
13649                                 }
13650
13651                                 # User has clicked on the 'Add Database' link.
13652
13653                                 my $pagedata = kiriwrite_database_add;
13654
13655                                 kiriwrite_output_header;
13656                                 kiriwrite_output_page($kiriwrite_lang->{database}->{adddatabase}, $pagedata, "database");
13657                                 exit;
13658
13659                         } else {
13660                                 # Another option has been specified, so return an error.
13661
13662                                 kiriwrite_error("invalidaction");
13663                         }
13664                 }
13665
13666                 # No action has been specified, do the default action of displaying a list
13667                 # of databases.
13668
13669                 my $pagedata = kiriwrite_database_list;
13670
13671                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
13672                 kiriwrite_output_page("", $pagedata, "database");       # Output the page to browser/console/stdout.
13673                 exit;                                   # End the script.
13674
13675         } elsif ($http_query_mode eq "page"){
13676
13677                 # If mode is 'page', then check what action is required.
13678
13679                 if ($query->param('action')){
13680                         my $http_query_action = $query->param('action');
13681
13682                         # Check if the action requested matches with one of the options below. If it does,
13683                         # go to that section, otherwise return an error.
13684
13685                         if ($http_query_action eq "view"){
13686
13687                                 # The action selected was to view pages from a database,
13688
13689                                 my $database_name       = $query->param('database');
13690                                 my $pagedata            = kiriwrite_page_list($database_name);
13691
13692                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13693                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{viewingdatabase}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13694                                 exit;                   # End the script.
13695
13696                         } elsif ($http_query_action eq "add"){
13697
13698                                 # The action selected was to add a page to the selected database.
13699
13700                                 my $http_query_confirm  = $query->param('confirm');
13701
13702                                 if (!$http_query_confirm){
13703
13704                                         $http_query_confirm = 0;
13705
13706                                 }
13707
13708                                 if ($http_query_confirm eq 1){
13709
13710                                         my $http_query_database         = $query->param('database');
13711                                         my $http_query_filename         = $query->param('pagefilename');
13712                                         my $http_query_name             = $query->param('pagename');
13713                                         my $http_query_description      = $query->param('pagedescription');
13714                                         my $http_query_section          = $query->param('pagesection');
13715                                         my $http_query_template         = $query->param('pagetemplate');
13716                                         my $http_query_settings         = $query->param('pagesettings');
13717                                         my $http_query_content          = $query->param('pagecontent');
13718
13719                                         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);
13720
13721                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13722                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{addpage}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13723                                         exit;                           # End the script.
13724
13725                                 }
13726
13727                                 my $http_query_database = $query->param('database');
13728                                 my $pagedata            = kiriwrite_page_add($http_query_database);
13729
13730                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13731                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{addpage}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13732                                 exit;                           # End the script.
13733
13734                         } elsif ($http_query_action eq "edit"){
13735
13736                                 # The action selected was to edit a page from a database.
13737
13738                                 my $http_query_confirm = $query->param('confirm');
13739
13740                                 if (!$http_query_confirm){
13741
13742                                         $http_query_confirm = 0;
13743
13744                                 }
13745
13746                                 if ($http_query_confirm eq 1){
13747
13748                                         # Get the needed values from the HTTP query.
13749
13750                                         my $http_query_database         = $query->param('database');
13751                                         my $http_query_filename         = $query->param('page');
13752                                         my $http_query_newfilename      = $query->param('pagefilename');
13753                                         my $http_query_name             = $query->param('pagename');
13754                                         my $http_query_description      = $query->param('pagedescription');
13755                                         my $http_query_section          = $query->param('pagesection');
13756                                         my $http_query_template         = $query->param('pagetemplate');
13757                                         my $http_query_settings         = $query->param('pagesettings');
13758                                         my $http_query_content          = $query->param('pagecontent');
13759
13760                                         # Pass the values to the editing pages subroutine.
13761
13762                                         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);
13763
13764                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13765                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{editpagetitle}, $pagedata, "pages");   # Output the page to browser/console/stdout.
13766                                         exit;                           # End the script.
13767
13768                                 }
13769
13770                                 # Get the needed values from the HTTP query.
13771
13772                                 my $http_query_database = $query->param('database');
13773                                 my $http_query_filename = $query->param('page');
13774
13775                                 # Pass the values to the editing pages subroutine.
13776
13777                                 my $pagedata = kiriwrite_page_edit($http_query_database, $http_query_filename);
13778
13779                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13780                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{editpagetitle}, $pagedata, "pages");   # Output the page to browser/console/stdout.
13781                                 exit;                           # End the script.
13782
13783
13784                         } elsif ($http_query_action eq "delete"){
13785
13786                                 # The action selected was to delete a page from a database.
13787
13788                                 my $http_query_database = $query->param('database');
13789                                 my $http_query_page     = $query->param('page');
13790                                 my $http_query_confirm  = $query->param('confirm');
13791
13792                                 my $pagedata = "";
13793                                 my $selectionlist = "";
13794
13795                                 if ($http_query_confirm){
13796
13797                                         # The action has been confirmed, so try to delete the selected page
13798                                         # from the database.
13799
13800                                         $pagedata = kiriwrite_page_delete($http_query_database, $http_query_page, $http_query_confirm);
13801
13802                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13803                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{deletepagetitle}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13804                                         exit;                           # End the script.
13805
13806                                 }
13807
13808                                 $pagedata = kiriwrite_page_delete($http_query_database, $http_query_page);
13809
13810                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13811                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{deletepagetitle}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13812                                 exit;                           # End the script.
13813
13814
13815                         } elsif ($http_query_action eq "multidelete"){
13816
13817                                 # The action selected was to delete multiple pages from a
13818                                 # database.
13819
13820                                 my $http_query_database = $query->param('database');
13821                                 my $http_query_confirm  = $query->param('confirm');
13822
13823                                 my @filelist;
13824                                 my $pagedata;
13825
13826                                 if ($http_query_confirm){
13827
13828                                         # The action to delete multiple pages from the selected
13829                                         # database has been confirmed.
13830
13831                                         @filelist       = kiriwrite_selectedlist();
13832                                         $pagedata       = kiriwrite_page_multidelete($http_query_database, $http_query_confirm, @filelist);
13833
13834                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13835                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{deletemultiplepages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13836                                         exit;                           # End the script.
13837
13838                                 }
13839
13840                                 # Get the list of selected pages and pass them to the
13841                                 # multiple page delete subroutine.
13842
13843                                 @filelist       = kiriwrite_selectedlist();
13844                                 $pagedata       = kiriwrite_page_multidelete($http_query_database, $http_query_confirm, @filelist);
13845
13846                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13847                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{deletemultiplepages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13848                                 exit;                           # End the script.
13849
13850                         } elsif ($http_query_action eq "multimove"){
13851
13852                                 # The action selected was to move multiple pages from a
13853                                 # database.
13854
13855                                 my $http_query_database         = $query->param('database');
13856                                 my $http_query_newdatabase      = $query->param('newdatabase');
13857                                 my $http_query_confirm          = $query->param('confirm');
13858
13859                                 my @filelist;
13860                                 my $pagedata;
13861
13862                                 if ($http_query_confirm){
13863
13864                                         # The action to move multiple pages from the selected
13865                                         # database has been confirmed.
13866
13867                                         @filelist       = kiriwrite_selectedlist();
13868                                         $pagedata       = kiriwrite_page_multimove($http_query_database, $http_query_newdatabase, $http_query_confirm, @filelist);
13869
13870                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13871                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{movepages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13872                                         exit;                           # End the script.
13873
13874                                 }
13875
13876                                 # Get the list of selected pages and pass them to the
13877                                 # multiple page move subroutine.
13878
13879                                 @filelist       = kiriwrite_selectedlist();
13880                                 $pagedata       = kiriwrite_page_multimove($http_query_database, $http_query_newdatabase, $http_query_confirm, @filelist);
13881
13882                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13883                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{movepages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13884                                 exit;                           # End the script.
13885
13886                         } elsif ($http_query_action eq "multicopy"){
13887
13888                                 # The action selected was to copy multiple pages from a
13889                                 # database.
13890
13891                                 my $http_query_database         = $query->param('database');
13892                                 my $http_query_newdatabase      = $query->param('newdatabase');
13893                                 my $http_query_confirm          = $query->param('confirm');
13894
13895                                 my @filelist;
13896                                 my $pagedata;
13897
13898                                 if ($http_query_confirm){
13899
13900                                         # The action to copy multiple pages from the selected
13901                                         # database has been confirmed.
13902
13903                                         @filelist       = kiriwrite_selectedlist();
13904                                         $pagedata       = kiriwrite_page_multicopy($http_query_database, $http_query_newdatabase, $http_query_confirm, @filelist);
13905
13906                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13907                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{copypages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13908                                         exit;                           # End the script.
13909
13910                                 }
13911
13912                                 # Get the list of selected pages and pass them to the
13913                                 # multiple page copy subroutine.
13914
13915                                 @filelist       = kiriwrite_selectedlist();
13916                                 $pagedata       = kiriwrite_page_multicopy($http_query_database, $http_query_newdatabase, $http_query_confirm, @filelist);
13917
13918                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13919                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{copypages}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13920                                 exit;                           # End the script.
13921
13922                         } elsif ($http_query_action eq "multiedit"){
13923
13924                                 # The action selected was to edit multiple pages from a
13925                                 # database.
13926
13927                                 my $http_query_database         = $query->param('database');
13928                                 my $http_query_newsection       = $query->param('newsection');
13929                                 my $http_query_altersection     = $query->param('altersection');
13930                                 my $http_query_newtemplate      = $query->param('newtemplate');
13931                                 my $http_query_altertemplate    = $query->param('altertemplate');
13932                                 my $http_query_newsettings      = $query->param('newsettings');
13933                                 my $http_query_altersettings    = $query->param('altersettings');
13934                                 my $http_query_confirm          = $query->param('confirm');
13935
13936                                 my @filelist;
13937                                 my $pagedata;
13938
13939                                 if (!$http_query_confirm){
13940
13941                                         @filelist       = kiriwrite_selectedlist();
13942                                         $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);
13943
13944                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13945                                         kiriwrite_output_page($kiriwrite_lang->{pages}->{multiedit}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13946                                         exit;
13947
13948                                 }
13949
13950                                 # Get the list of selected pages and pass them to the
13951                                 # multiple page edit subroutine.
13952
13953                                 @filelist       = kiriwrite_selectedlist();
13954                                 $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);
13955
13956                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
13957                                 kiriwrite_output_page($kiriwrite_lang->{pages}->{multiedit}, $pagedata, "pages"); # Output the page to browser/console/stdout.
13958                                 exit;                           # End the script.
13959
13960                         } else {
13961                                 kiriwrite_error("invalidaction");
13962                         }
13963
13964                 } else {
13965
13966                         # If there the action option is left blank, then print out a form where the database
13967                         # can be selected to view pages from.
13968
13969                         my $pagedata = kiriwrite_page_list;
13970
13971                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
13972                         kiriwrite_output_page($kiriwrite_lang->{pages}->{databaseselecttitle}, $pagedata, "pages");     # Output the page to browser/console/stdout.
13973                         exit;                           # End the script.
13974
13975                 }
13976
13977                 # No action has been specified, do the default action of listing pages from
13978                 # the first database found in the directory.
13979
13980         } elsif ($http_query_mode eq "filter"){
13981
13982                 # If there's a value for action in the HTTP query, then
13983                 # get that value that is in the HTTP query.
13984
13985                 if ($query->param('action')){
13986
13987                         # There is a value for action in the HTTP query,
13988                         # so get the value from it.
13989
13990                         my $http_query_action = $query->param('action');
13991
13992                         if ($http_query_action eq "add"){
13993
13994                                 # The action the user requested is to add a filter to the
13995                                 # filter database.
13996
13997                                 # Check if there is a value in confirm and if there is
13998                                 # then pass it on to the new find and replace words
13999                                 # to add to the filter database.
14000
14001                                 my $http_query_confirm = $query->param('confirm');
14002
14003                                 if ($http_query_confirm){
14004
14005                                         # There is a value in http_query_confirm, so pass on the
14006                                         # new find and replace words so that they can be added
14007                                         # to the filter database.
14008
14009                                         my $http_query_findwords        = $query->param('findword');
14010                                         my $http_query_replacewords     = $query->param('replaceword');
14011                                         my $http_query_priority         = $query->param('priority');
14012                                         my $http_query_notes            = $query->param('notes');
14013
14014                                         my $pagedata = kiriwrite_filter_add($http_query_findwords, $http_query_replacewords, $http_query_priority, $http_query_notes, $http_query_confirm);
14015
14016                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14017                                         kiriwrite_output_page($kiriwrite_lang->{filter}->{addfilter}, $pagedata, "filter"); # Output the page to browser/console/stdout.
14018                                         exit;                           # End the script.
14019
14020                                 }
14021
14022                                 my $pagedata = kiriwrite_filter_add();
14023
14024                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
14025                                 kiriwrite_output_page($kiriwrite_lang->{filter}->{addfilter}, $pagedata, "filter"); # Output the page to browser/console/stdout.
14026                                 exit;                           # End the script.
14027
14028                         } elsif ($http_query_action eq "edit"){
14029
14030                                 # The action the user requested is to edit an filter from
14031                                 # the filter database.
14032
14033                                 my $http_query_number = $query->param('filter');
14034                                 my $http_query_confirm = $query->param('confirm');
14035
14036                                 if ($http_query_confirm){
14037
14038                                         # There is a value in http_query_confirm, so pass on the
14039                                         # new find and replace words so that the filter database
14040                                         # can be edited.
14041
14042                                         my $http_query_findwords        = $query->param('filterfind');
14043                                         my $http_query_replacewords     = $query->param('filterreplace');
14044                                         my $http_query_priority         = $query->param('priority');
14045                                         my $http_query_notes            = $query->param('notes');
14046
14047                                         my $pagedata = kiriwrite_filter_edit($http_query_number, $http_query_findwords, $http_query_replacewords, $http_query_priority, $http_query_notes, $http_query_confirm);
14048
14049                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14050                                         kiriwrite_output_page($kiriwrite_lang->{filter}->{editfilter}, $pagedata, "filter");    # Output the page to browser/console/stdout.
14051                                         exit;                           # End the script.
14052
14053                                 }
14054
14055                                 my $pagedata = kiriwrite_filter_edit($http_query_number);
14056
14057                                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
14058                                 kiriwrite_output_page($kiriwrite_lang->{filter}->{editfilter}, $pagedata, "filter");    # Output the page to browser/console/stdout.
14059                                 exit;                                   # End the script.
14060
14061                         } elsif ($http_query_action eq "delete"){
14062
14063                                 # The action the user requested is to delete an filter
14064                                 # from the filter database.
14065
14066                                 my $http_query_number = $query->param('filter');
14067                                 my $http_query_confirm = $query->param('confirm');
14068
14069                                 if ($http_query_confirm){
14070
14071                                         my $pagedata = kiriwrite_filter_delete($http_query_number, $http_query_confirm);
14072
14073                                         kiriwrite_output_header;                # Output the header to browser/console/stdout.
14074                                         kiriwrite_output_page($kiriwrite_lang->{filter}->{deletefilter}, $pagedata, "filter"); # Output the page to browser/console/stdout.
14075                                         exit;                                   # End the script
14076
14077                                 }
14078
14079                                 my $pagedata = kiriwrite_filter_delete($http_query_number);
14080
14081                                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
14082                                 kiriwrite_output_page($kiriwrite_lang->{filter}->{deletefilter}, $pagedata, "filter");  # Output the page to browser/console/stdout.
14083                                 exit;                                   # End the script.
14084
14085                         } else {
14086
14087                                 # Another action was requested that was not one of
14088                                 # the ones prcedding this catch all, so return
14089                                 # an error saying that an invalid option was
14090                                 # specified.
14091
14092                                 kiriwrite_error("invalidaction");
14093
14094                         }
14095
14096                 } else {
14097
14098                         my $pagedata = kiriwrite_filter_list();
14099
14100                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14101                         kiriwrite_output_page($kiriwrite_lang->{filter}->{viewfilters}, $pagedata, "filter"); # Output the page to browser/console/stdout.
14102                         exit;                           # End the script.
14103
14104                 }
14105
14106
14107
14108         } elsif ($http_query_mode eq "template"){
14109
14110                 # Check if an action has been specified in the HTTP query.
14111
14112                 if ($query->param('action')){
14113
14114                         # An action has been specified in the HTTP query.
14115
14116                         my $http_query_action = $query->param('action');
14117
14118                         if ($http_query_action eq "delete"){
14119                                 # Get the required parameters from the HTTP query.
14120
14121                                 my $http_query_template = $query->param('template');
14122                                 my $http_query_confirm  = $query->param('confirm');
14123
14124                                 # Check if a value for confirm has been specified (it shouldn't)
14125                                 # be blank.
14126
14127                                 if (!$http_query_confirm){
14128                                         # The confirm parameter of the HTTP query is blank, so
14129                                         # write out a form asking the user to confirm the deletion
14130                                         # of the selected template.
14131
14132                                         my $pagedata = kiriwrite_template_delete($http_query_template);
14133
14134                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14135                                         kiriwrite_output_page($kiriwrite_lang->{template}->{deletetemplate}, $pagedata, "template");    # Output the page to browser/console/stdout.
14136                                         exit;                           # End the script.
14137
14138                                 } else {
14139
14140                                         my $pagedata = kiriwrite_template_delete($http_query_template, $http_query_confirm);
14141
14142                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14143                                         kiriwrite_output_page($kiriwrite_lang->{template}->{deletetemplate}, $pagedata, "template");    # Output the page to browser/console/stdout.
14144                                         exit;                           # End the script.
14145
14146                                 }
14147
14148                         } elsif ($http_query_action eq "add") {
14149
14150                                 # Get the variables from the HTTP query in preperation for processing.
14151
14152                                 my $http_query_confirm  = $query->param('confirm');
14153                                 my $http_query_templatelayout   = $query->param('templatelayout');
14154                                 my $http_query_templatename     = $query->param('templatename');
14155                                 my $http_query_templatedescription = $query->param('templatedescription');
14156                                 my $http_query_templatefilename = $query->param('templatefilename');
14157
14158                                 # Check if there is a confirmed value in the http_query_confirm variable.
14159
14160                                 if (!$http_query_confirm){
14161
14162                                         # Since there is no confirm value, print out a form for creating a new
14163                                         # template.
14164
14165                                         my $pagedata = kiriwrite_template_add();
14166
14167                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14168                                         kiriwrite_output_page($kiriwrite_lang->{template}->{addtemplate}, $pagedata, "template");       # Output the page to browser/console/stdout.
14169                                         exit;                           # End the script.
14170
14171                                 } else {
14172
14173                                         # A value in the http_query_confirm value is specified, so pass the
14174                                         # variables onto the kiriwrite_template_add subroutine.
14175
14176                                         my $pagedata = kiriwrite_template_add($http_query_templatefilename, $http_query_templatename, $http_query_templatedescription, $http_query_templatelayout, $http_query_confirm);
14177
14178                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14179                                         kiriwrite_output_page($kiriwrite_lang->{template}->{addtemplate}, $pagedata, "template");       # Output the page to browser/console/stdout.
14180                                         exit;                           # End the script.
14181
14182                                 }
14183
14184                         } elsif ($http_query_action eq "edit") {
14185
14186                                 # Get the required parameters from the HTTP query.
14187
14188                                 my $http_query_templatefile     = $query->param('template');
14189                                 my $http_query_confirm          = $query->param('confirm');
14190
14191                                 # Check to see if http_query_confirm has a value of '1' in it and
14192                                 # if it does, edit the template using the settings providied.
14193
14194                                 if (!$http_query_confirm){
14195
14196                                         # Since there is no confirm value, open the template configuration
14197                                         # file and the template file itself then print out the data on to
14198                                         # the form.
14199
14200                                         my $pagedata = kiriwrite_template_edit($http_query_templatefile);
14201                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14202                                         kiriwrite_output_page($kiriwrite_lang->{template}->{edittemplate}, $pagedata, "template");      # Output the page to browser/console/stdout.
14203                                         exit;                           # End the script.
14204
14205                                 } elsif ($http_query_confirm eq 1) {
14206
14207                                         # Since there is a confirm value of 1, the user has confirm the
14208                                         # action of editing of a template so get the other variables
14209                                         # that were also sent and pass the variables to the subroutine.
14210
14211                                         my $http_query_newfilename      = $query->param('newfilename');
14212                                         my $http_query_newname          = $query->param('newname');
14213                                         my $http_query_newdescription   = $query->param('newdescription');
14214                                         my $http_query_newlayout        = $query->param('newlayout');
14215
14216                                         my $pagedata = kiriwrite_template_edit($http_query_templatefile, $http_query_newfilename, $http_query_newname, $http_query_newdescription, $http_query_newlayout, $http_query_confirm);
14217                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14218                                         kiriwrite_output_page($kiriwrite_lang->{template}->{edittemplate}, $pagedata, "template");      # Output the page to browser/console/stdout.
14219                                         exit;                           # End the script.
14220
14221                                 } else {
14222
14223                                         # Another confirm value is there instead of '0' or '1'. Return
14224                                         # an error saying it is invalid.
14225
14226                                         kiriwrite_error("invalidvariable");
14227
14228                                 }
14229
14230                         } else {
14231
14232                                 # Another action was specified and was not one of the ones above, so
14233                                 # return an error.
14234
14235                                 kiriwrite_error("invalidaction");
14236
14237                         }
14238
14239                 } else {
14240
14241                         # If the action option is left blank, then print out a form where the list
14242                         # of templates are available.
14243
14244                         my $pagedata = kiriwrite_template_list;
14245
14246                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14247                         kiriwrite_output_page($kiriwrite_lang->{template}->{viewtemplates}, $pagedata, "template");     # Output the page to browser/console/stdout.
14248                         exit;                           # End the script.
14249
14250                 }
14251
14252         } elsif ($http_query_mode eq "compile"){
14253
14254                 # The mode selected is to compile pages from databases.
14255
14256                 # If the action option is left blank, then print out a form where the list
14257                 # of databases to compile are available.
14258
14259                 if ($query->param('action')){
14260
14261                         my $http_query_action = $query->param('action');
14262
14263                         if ($http_query_action eq "compile"){
14264
14265                                 # The specified action is to compile the pages, check if the
14266                                 # action to compile the page has been confirmed.
14267
14268                                 my $http_query_confirm  = $query->param('confirm');
14269                                 my $http_query_type     = $query->param('type');
14270
14271                                 # If it is blank, set the confirm value to 0.
14272
14273                                 if (!$http_query_confirm){
14274
14275                                         # The http_query_confirm variable is uninitalised, so place a
14276                                         # '0' (meaning an unconfirmed action).
14277
14278                                         $http_query_confirm = 0;
14279
14280                                 }
14281
14282                                 # If the compile type is blank then return an error.
14283
14284                                 if (!$http_query_type){
14285
14286                                         # Compile type is blank so return an error.
14287
14288                                         kiriwrite_error("blankcompiletype");
14289
14290                                 }
14291
14292                                 if ($http_query_type eq "multiple"){
14293
14294                                         if ($http_query_confirm eq 1){
14295
14296                                                 # The action to compile the pages has been confirmed so
14297                                                 # compile the pages.
14298
14299                                                 my @selectedlist = kiriwrite_selectedlist();
14300                                                 my $pagedata = kiriwrite_compile_makepages($http_query_type, $http_query_confirm, @selectedlist);
14301
14302                                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
14303                                                 kiriwrite_output_page($kiriwrite_lang->{compile}->{compilepages}, $pagedata, "compile"); # Output the page to browser/console/stdout.
14304                                                 exit;                           # End the script.
14305
14306                                         } else {
14307
14308                                                 # The action to compile the pages has not been confirmed
14309                                                 # so write a form asking the user to confirm the action
14310                                                 # of compiling the pages.
14311
14312                                                 my @selectedlist = kiriwrite_selectedlist();
14313                                                 my $pagedata = kiriwrite_compile_makepages($http_query_type, $http_query_confirm, @selectedlist);
14314
14315                                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
14316                                                 kiriwrite_output_page($kiriwrite_lang->{compile}->{compileselecteddatabases}, $pagedata, "compile"); # Output the page to browser/console/stdout.
14317                                                 exit;                           # End the script.
14318
14319                                         }
14320
14321                                 } elsif ($http_query_type eq "single"){
14322
14323                                         my $http_query_database = $query->param('database');
14324                                         my @selectedlist;
14325                                         $selectedlist[0] = $http_query_database;
14326                                         my $pagedata = kiriwrite_compile_makepages($http_query_type, $http_query_confirm, @selectedlist);
14327
14328                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14329                                         kiriwrite_output_page($kiriwrite_lang->{compile}->{compiledatabase}, $pagedata, "compile");
14330                                         exit;                           # End the script.
14331
14332                                 } else {
14333
14334                                         kiriwrite_error("invalidcompiletype");
14335
14336                                 }
14337
14338                         } elsif ($http_query_action eq "all"){
14339
14340                                 # The selected action is to compile all of the databases
14341                                 # in the database directory. Check if the action to
14342                                 # compile all of the databases has been confirmed.
14343
14344                                 my $http_query_confirm = $query->param('confirm');
14345
14346                                 if (!$http_query_confirm){
14347
14348                                         # The http_query_confirm variable is uninitalised, so place a
14349                                         # '0' (meaning an unconfirmed action).
14350
14351                                         $http_query_confirm = 0;
14352
14353                                 }
14354
14355                                 if ($http_query_confirm eq 1){
14356
14357                                         # The action to compile all the databases has been confirmed.
14358
14359                                 }
14360
14361                                 my $pagedata = kiriwrite_compile_all();
14362
14363                                 kiriwrite_output_header;                        # Output the header to browser/console/stdout.
14364                                 kiriwrite_output_page($kiriwrite_lang->{compile}->{compilealldatabases}, $pagedata, "compile");
14365                                 exit;
14366
14367                         } elsif ($http_query_action eq "clean") {
14368
14369                                 # The selected action is to clean the output directory.
14370                                 # Check if the action to clean the output directory
14371                                 # has been confirmed.
14372
14373                                 my $http_query_confirm = $query->param('confirm');
14374
14375                                 if (!$http_query_confirm){
14376
14377                                         # The http_query_confirm variable is uninitalised, so place a
14378                                         # '0' (meaning an unconfirmed action).
14379
14380                                         $http_query_confirm = 0;
14381
14382                                 }
14383
14384                                 if ($http_query_confirm eq 1){
14385
14386                                         # The action to clean the output directory has been confirmed.
14387
14388                                         my $pagedata = kiriwrite_compile_clean($http_query_confirm);
14389
14390                                         kiriwrite_output_header;                # Output the header to browser/console/stdout.
14391                                         kiriwrite_output_page($kiriwrite_lang->{compile}->{cleanoutputdirectory}, $pagedata, "compile");        # Output the page to browser/console/stdout.
14392                                         exit;                                   # End the script.
14393
14394                                 }
14395
14396                                 # The action to clean the output directory is not
14397                                 # confirmed, so write a page asking the user
14398                                 # to confirm cleaning the output directory.
14399
14400                                 my $pagedata = kiriwrite_compile_clean();
14401
14402                                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
14403                                 kiriwrite_output_page($kiriwrite_lang->{compile}->{cleanoutputdirectory}, $pagedata, "compile");        # Output the page to browser/console/stdout.
14404                                 exit;                                   # End the script.
14405
14406                         } else {
14407
14408                                 # The action specified was something else other than those
14409                                 # above, so return an error.
14410
14411                                 kiriwrite_error("invalidaction");
14412
14413                         }
14414                 }
14415
14416                 my $pagedata = kiriwrite_compile_list;
14417
14418                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
14419                 kiriwrite_output_page($kiriwrite_lang->{compile}->{compilepages}, $pagedata, "compile");        # Output the page to browser/console/stdout.
14420                 exit;                                   # End the script.
14421
14422         } elsif ($http_query_mode eq "settings"){
14423
14424                 # The mode selected is view (and change settings).
14425
14426                 # If the action value has been left blank, then view the list of
14427                 # current settings.
14428
14429                 if ($query->param('action')){
14430                         my $http_query_action = $query->param('action');
14431
14432                         if ($http_query_action eq "edit"){
14433
14434                                 # The action specified is to edit the settings. Check if the action
14435                                 # to edit the settings has been confirmed.
14436
14437                                 my $http_query_confirm = $query->param('confirm');
14438
14439                                 if (!$http_query_confirm){
14440
14441                                         # The confirm value is blank, so set it to 0.
14442
14443                                         $http_query_confirm = 0;
14444
14445                                 }
14446
14447                                 if ($http_query_confirm eq 1){
14448
14449                                         # The action to edit the settings has been confirmed. Get the
14450                                         # required settings from the HTTP query.
14451
14452                                         my $http_query_database         = $query->param('databasedir');
14453                                         my $http_query_output           = $query->param('outputdir');
14454                                         my $http_query_imagesuri        = $query->param('imagesuripath');
14455                                         my $http_query_datetimeformat   = $query->param('datetime');
14456                                         my $http_query_systemlanguage   = $query->param('language');
14457                                         my $http_query_presmodule       = $query->param('presmodule');
14458                                         my $http_query_dbmodule         = $query->param('dbmodule');
14459
14460                                         my $http_query_database_server          = $query->param('database_server');
14461                                         my $http_query_database_port            = $query->param('database_port');
14462                                         my $http_query_database_protocol        = $query->param('database_protocol');
14463                                         my $http_query_database_sqldatabase     = $query->param('database_sqldatabase');
14464                                         my $http_query_database_username        = $query->param('database_username');
14465                                         my $http_query_database_passwordkeep    = $query->param('database_password_keep');
14466                                         my $http_query_database_password        = $query->param('database_password');
14467                                         my $http_query_database_tableprefix     = $query->param('database_tableprefix');
14468
14469                                         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 });
14470
14471                                         kiriwrite_output_header;        # Output the header to browser/console/stdout.
14472                                         kiriwrite_output_page($kiriwrite_lang->{setting}->{editsettings}, $pagedata, "settings");       # Output the page to browser/console/stdout.
14473                                         exit;                           # End the script.
14474
14475                                 }
14476
14477                                 # The action to edit the settings has not been confirmed.
14478
14479                                 my $pagedata = kiriwrite_settings_edit;
14480
14481                                 kiriwrite_output_header;        # Output the header to browser/console/stdout.
14482                                 kiriwrite_output_page($kiriwrite_lang->{setting}->{editsettings}, $pagedata, "settings");       # Output the page to browser/console/stdout.
14483                                 exit;                           # End the script.
14484
14485                         } else {
14486
14487                                 # The action specified was something else other than those
14488                                 # above, so return an error.
14489
14490                                 kiriwrite_error("invalidaction");
14491
14492                         }
14493
14494                 }
14495
14496                 # No action has been specified, so print out the list of settings currently being used.
14497
14498                 my $pagedata = kiriwrite_settings_view;
14499
14500                 kiriwrite_output_header;                # Output the header to browser/console/stdout.
14501                 kiriwrite_output_page($kiriwrite_lang->{setting}->{viewsettings}, $pagedata, "settings");       # Output the page to browser/console/stdout.
14502                 exit;                                   # End the script.
14503
14504         } else {
14505                 # Another mode has been specified than the ones above, so return an error saying that
14506                 # an invalid option was specified.
14507
14508                 kiriwrite_error("invalidmode");
14509         }
14510
14511 } else {
14512
14513         # No mode has been specified, so print the default "first-run" view of the
14514         # database list.
14515
14516         my $pagedata = kiriwrite_database_list;
14517
14518         kiriwrite_output_header;                # Output the header to browser/console/stdout.
14519         kiriwrite_output_page("", $pagedata, "database");       # Output the page to browser/console/stdout.
14520         exit;                                   # End the script.
14521
14522 }
14523
14524 __END__
14525
14526 =head1 NAME
14527
14528 Kiriwrite
14529
14530 =head1 DESCRIPTION
14531
14532 Web-based webpage compiler.
14533
14534 =head1 AUTHOR
14535
14536 Steve Brokenshire <sbrokenshire@xestia.co.uk>
14537
14538 =head1 USAGE
14539
14540 This perl script is intended to be used on a web server which has CGI with Perl support or with mod_perl support.
14541
14542 =head1 DOCUMENTATION
14543
14544 For more information on how to use Kiriwrite, please see the documentation that was included with Kiriwrite.
14545
14546 - From the Xestia Documentation website: http://documentation.xestia.co.uk and click on the Kiriwrite link on the page.
14547
14548 - From the Documentation directory from the Kiriwrite source packages (.tar/.tar.gz/.tar.bz2).
14549
14550 - In the /usr/share/doc/kiriwrite directory if you installed the distribution-specific packages (and also have access to the server itself).