cgi-files/Modules/Database/MySQL5.pm

   1 #################################################################################
   2 # Kiriwrite Database Module - MySQL 5.x Database Module (MySQL5.pm)             #
   3 # Database module for mainipulating data in a MySQL 5.x database.               #
   4 #                                                                               #
   5 # Copyright (C) 2007 Steve Brokenshire <sbrokenshire@xestia.co.uk>              #
   6 #                                                                               #
   7 # This module is licensed under the same license as Kiriwrite which is the GPL. #
   8 #                                                                               #
   9 # This program is free software; you can redistribute it and/or modify it under #
  10 # the terms of the GNU General Public License as published by the Free          #
  11 # Software Foundation; as version 2 of the License.                             #
  12 #                                                                               #
  13 # This program is distributed in the hope that it will be useful, but WITHOUT   #
  14 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS #
  15 # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.#
  16 #                                                                               #
  17 # You should have received a copy of the GNU General Public License along with  #
  18 # this program; if not, write to the Free Software Foundation, Inc., 51         #
  19 # Franklin St, Fifth Floor, Boston, MA 02110-1301 USA                           #
  20 #################################################################################
  21
  22 # Define the package (perl module) name.
  23
  24 package Modules::Database::MySQL5;
  25
  26 # Enable strict and use warnings.
  27
  28 use strict;
  29 use warnings;
  30 use Encode qw(decode_utf8);
  31
  32 # Load the following Perl modules.
  33
  34 use DBI qw(:sql_types);
  35
  36 # Set the following values.
  37
  38 our $VERSION    = "0.1.0";
  39 my ($options, %options);
  40 my $database_handle;
  41 my $statement_handle;
  42 my $error;
  43 my $errorext;
  44 my $database_filename;
  45 my $second_database_filename;
  46
  47 #################################################################################
  48 # Generic Subroutines.                                                          #
  49 #################################################################################
  50
  51 sub new{
  52 #################################################################################
  53 # new: Create an instance of Kiriwrite::Database::MySQL                         #
  54 #                                                                               #
  55 # Usage:                                                                        #
  56 #                                                                               #
  57 # $dbmodule = Kiriwrite::Database::SQLite->new();                               #
  58 #################################################################################
  59
  60         # Get the perl module name.
  61
  62         my $class = shift;
  63         my $self = {};
  64
  65         return bless($self, $class);
  66
  67 }
  68
  69 sub loadsettings{
  70 #################################################################################
  71 # loadsettings: Loads settings into the SQLite database module                  #
  72 #                                                                               #
  73 # Usage:                                                                        #
  74 #                                                                               #
  75 # $dbmodule->loadsettings(Directory, options);                                  #
  76 #                                                                               #
  77 # options       Specifies the following options (in any order).                 #
  78 #                                                                               #
  79 # Directory     Specifies the directory to use for getting databases.           #
  80 # DateTime      Specifies the date and time format to use.                      #
  81 # Server        Specifies the server to use.                                    #
  82 # Database      Specifies the database to use.                                  #
  83 # Username      Specifies the username to use.                                  #
  84 # Password      Specifies the password to use.                                  #
  85 # Port          Specifies the server port to use.                               #
  86 # Protocol      Specifies the protocol to use.                                  #
  87 # TablePrefix   Specifies the table prefix to use.                              #
  88 #################################################################################
  89
  90         # Get the data passed to the subroutine.
  91
  92         my $class = shift;
  93         my ($passedoptions)     = @_;
  94
  95         # Add the directory setting to the list of options (as it's the only
  96         # one needed for this database module).
  97
  98         %options = (
  99                 "Directory"     => $passedoptions->{"Directory"},
 100                 "DateTime"      => $passedoptions->{"DateTime"},
 101                 "Server"        => $passedoptions->{"Server"},
 102                 "Database"      => $passedoptions->{"Database"},
 103                 "Username"      => $passedoptions->{"Username"},
 104                 "Password"      => $passedoptions->{"Password"},
 105                 "Port"          => $passedoptions->{"Port"},
 106                 "Protocol"      => $passedoptions->{"Protocol"},
 107                 "TablePrefix"   => $passedoptions->{"TablePrefix"}
 108         );
 109
 110 }
 111
 112 sub convert{
 113 #################################################################################
 114 # convert: Converts data into SQL formatted data.                               #
 115 #                                                                               #
 116 # Usage:                                                                        #
 117 #                                                                               #
 118 # $dbmodule->convert(data);                                                     #
 119 #                                                                               #
 120 # data          Specifies the data to convert.                                  #
 121 #################################################################################
 122
 123         # Get the data passed to the subroutine.
 124
 125         my $class       = shift;
 126         my $data        = shift;
 127
 128         if (!$data){
 129                 $data = "";
 130         }
 131
 132         $data =~ s/'/''/g;
 133         $data =~ s/\b//g;
 134
 135         return $data;
 136
 137 }
 138
 139 sub dateconvert{
 140 #################################################################################
 141 # dateconvert: Converts a SQL date into a proper date.                          #
 142 #                                                                               #
 143 # Usage:                                                                        #
 144 #                                                                               #
 145 # $dbmodule->dateconvert(date);                                                 #
 146 #                                                                               #
 147 # date          Specifies the date to convert.                                  #
 148 #################################################################################
 149
 150         # Get the date passed to the subroutine.
 151
 152         my $class       = shift;
 153         my $data        = shift;
 154
 155         # Convert the date given into the proper date.
 156
 157         # Create the following varialbes to be used later.
 158
 159         my $date;
 160         my $time;
 161         my $day;
 162         my $day_full;
 163         my $month;
 164         my $month_check;
 165         my $month_full;
 166         my $year;
 167         my $year_short;
 168         my $hour;
 169         my $hour_full;
 170         my $minute;
 171         my $minute_full;
 172         my $second;
 173         my $second_full;
 174         my $seek = 0;
 175         my $timelength;
 176         my $datelength;
 177         my $daylength;
 178         my $secondlength;
 179         my $startchar = 0;
 180         my $char;
 181         my $length;
 182         my $count = 0;
 183
 184         # Split the date and time.
 185
 186         $length = length($data);
 187
 188         if ($length > 0){
 189
 190                 do {
 191
 192                         # Get the character and check if it is a space.
 193
 194                         $char = substr($data, $seek, 1);
 195
 196                         if ($char eq ' '){
 197
 198                                 # The character is a space, so get the date and time.
 199
 200                                 $date           = substr($data, 0, $seek);
 201                                 $timelength     = $length - $seek - 1;
 202                                 $time           = substr($data, $seek + 1, $timelength);
 203
 204                         }
 205
 206                         $seek++;
 207
 208                 } until ($seek eq $length);
 209
 210                 # Get the year, month and date.
 211
 212                 $length = length($date);
 213                 $seek = 0;
 214
 215                 do {
 216
 217                         # Get the character and check if it is a dash.
 218
 219                         $char = substr($date, $seek, 1);
 220
 221                         if ($char eq '-'){
 222
 223                                 # The character is a dash, so get the year, month or day.
 224
 225                                 $datelength = $seek - $startchar;
 226
 227                                 if ($count eq 0){
 228
 229                                         # Get the year from the date.
 230
 231                                         $year           = substr($date, 0, $datelength) + 1900;
 232                                         $startchar      = $seek;
 233                                         $count = 1;
 234
 235                                         # Get the last two characters to get the short year
 236                                         # version.
 237
 238                                         $year_short     = substr($year, 2, 2);
 239
 240                                 } elsif ($count eq 1){
 241
 242                                         # Get the month and day from the date.
 243
 244                                         $month  = substr($date, $startchar + 1, $datelength - 1) + 1;
 245
 246                                         # Check if the month is less then 10, if it is
 247                                         # add a zero to the value.
 248
 249                                         if ($month < 10){
 250
 251                                                 $month_full = '0' . $month;
 252
 253                                         } else {
 254
 255                                                 $month_full = $month;
 256
 257                                         }
 258
 259                                         $startchar      = $seek;
 260                                         $count = 2;
 261
 262                                         $daylength      = $length - $seek + 1;
 263                                         $day            = substr($date, $startchar + 1, $daylength);
 264
 265                                         $day =~ s/^0//;
 266
 267                                         # Check if the day is less than 10, if it is
 268                                         # add a zero to the value.
 269
 270                                         if ($day < 10){
 271
 272                                                 $day_full       = '0' . $day;
 273
 274                                         } else {
 275
 276                                                 $day_full       = $day;
 277
 278                                         }
 279
 280                                 }
 281
 282                         }
 283
 284                         $seek++;
 285
 286                 } until ($seek eq $length);
 287
 288                 # Get the length of the time value and reset certain
 289                 # values to 0.
 290
 291                 $length = length($time);
 292                 $seek = 0;
 293                 $count = 0;
 294                 $startchar = 0;
 295
 296                 do {
 297
 298                         # Get the character and check if it is a colon.
 299
 300                         $char = substr($time, $seek, 1);
 301
 302                         if ($char eq ':'){
 303
 304                                 # The character is a colon, so get the hour, minute and day.
 305
 306                                 $timelength = $seek - $startchar;
 307
 308                                 if ($count eq 0){
 309
 310                                         # Get the hour from the time.
 311
 312                                         $hour = substr($time, 0, $timelength);
 313                                         $hour =~ s/^0//;
 314                                         $count = 1;
 315                                         $startchar = $seek;
 316
 317                                         # If the hour is less than ten then add a
 318                                         # zero.
 319
 320                                         if ($hour < 10){
 321
 322                                                 $hour_full = '0' . $hour;
 323
 324                                         } else {
 325
 326                                                 $hour_full = $hour;
 327
 328                                         }
 329
 330                                 } elsif ($count eq 1){
 331
 332                                         # Get the minute and second from the time.
 333
 334                                         $minute = substr($time, $startchar + 1, $timelength - 1);
 335                                         $minute =~ s/^0//;
 336                                         $count = 2;
 337
 338                                         # If the minute is less than ten then add a
 339                                         # zero.
 340
 341                                         if ($minute < 10){
 342
 343                                                 $minute_full = '0' . $minute;
 344
 345                                         } else {
 346
 347                                                 $minute_full = $minute;
 348
 349                                         }
 350
 351                                         $startchar = $seek;
 352
 353                                         $secondlength = $length - $seek + 1;
 354                                         $second = substr($time, $startchar + 1, $secondlength);
 355                                         $second =~ s/^0//;
 356
 357                                         # If the second is less than ten then add a
 358                                         # zero.
 359
 360                                         if ($second < 10){
 361
 362                                                 $second_full = '0' . $second;
 363
 364                                         } else {
 365
 366                                                 $second_full = $second;
 367
 368                                         }
 369
 370                                 }
 371
 372                         }
 373
 374                         $seek++;
 375
 376                 } until ($seek eq $length);
 377
 378                 # Get the setting for displaying the date and time.
 379
 380                 $data = $options{"DateTime"};
 381
 382                 # Process the setting for displaying the date and time
 383                 # using regular expressions
 384
 385                 $data =~ s/DD/$day_full/g;
 386                 $data =~ s/D/$day/g;
 387                 $data =~ s/MM/$month_full/g;
 388                 $data =~ s/M/$month/g;
 389                 $data =~ s/YY/$year/g;
 390                 $data =~ s/Y/$year_short/g;
 391
 392                 $data =~ s/hh/$hour_full/g;
 393                 $data =~ s/h/$hour/g;
 394                 $data =~ s/mm/$minute_full/g;
 395                 $data =~ s/m/$minute/g;
 396                 $data =~ s/ss/$second_full/g;
 397                 $data =~ s/s/$second/g;
 398
 399         }
 400
 401         return $data;
 402
 403 }
 404
 405 sub geterror{
 406 #################################################################################
 407 # geterror: Gets the error message (or extended error message).                 #
 408 #                                                                               #
 409 # Usage:                                                                        #
 410 #                                                                               #
 411 # $dbmodule->geterror(extended);                                                #
 412 #                                                                               #
 413 # Extended      Specifies if the extended error should be retrieved.            #
 414 #################################################################################
 415
 416         # Get the data passed to the subroutine.
 417
 418         my $class       = shift;
 419         my $extended    = shift;
 420
 421         if (!$extended){
 422                 $extended = 0;
 423         }
 424
 425         if (!$errorext){
 426                 $errorext = "";
 427         }
 428
 429         if (!$error){
 430                 $error = "";
 431         }
 432
 433         # Check to see if extended information should be returned.
 434
 435         if ($extended eq 1){
 436
 437                 # Extended information should be returned.
 438
 439                 return $errorext;
 440
 441         } else {
 442
 443                 # Basic information should be returned.
 444
 445                 return $error;
 446
 447         }
 448
 449 }
 450
 451 sub dbpermissions{
 452 #################################################################################
 453 # dbpermissions: Check if the permissions for the database are valid.           #
 454 #                                                                               #
 455 # Usage:                                                                        #
 456 #                                                                               #
 457 # $database->dbpermissions(dbname, read, write);                                #
 458 #                                                                               #
 459 # dbname        Specifies the database name to check.                           #
 460 # read          Check to see if the database can be read.                       #
 461 # write         Check to see if the database can be written.                    #
 462 #################################################################################
 463
 464         # This subroutine is not needed for this database module.
 465
 466         return 0;
 467
 468 }
 469
 470 sub dbexists{
 471 #################################################################################
 472 # dbexists: Check if the database exists.                                       #
 473 #                                                                               #
 474 # Usage:                                                                        #
 475 #                                                                               #
 476 # $dbmodule->dbexists(dbname);                                                  #
 477 #                                                                               #
 478 # dbname        Specifies the database name to check.                           #
 479 #################################################################################
 480
 481         $error = "";
 482         $errorext = "";
 483
 484         # Get the value that was passed to the subroutine.
 485
 486         my $class       = shift;
 487         my ($filename)  = @_;
 488
 489         my @table_data;
 490         my $table_exists = 0;
 491
 492         # Check if the table exists.
 493
 494         $statement_handle = $database_handle->prepare('SHOW TABLES LIKE \'' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($filename) . '_database_info\'') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
 495         $statement_handle->execute();
 496
 497         while (@table_data = $statement_handle->fetchrow_array()){
 498
 499                 $table_exists = 1;
 500
 501         }
 502
 503         # Check if the table really does exist.
 504
 505         if ($table_exists eq 1){
 506
 507                 # The table exists so return a value of 0.
 508
 509                 return 0;
 510
 511         } else {
 512
 513                 # The table does not exist so return a value of 1.
 514
 515                 return 1;
 516
 517         }
 518
 519 }
 520
 521
 522 #################################################################################
 523 # General subroutines.                                                          #
 524 #################################################################################
 525
 526 sub connect{
 527 #################################################################################
 528 # connect: Connect to the server.                                               #
 529 #                                                                               #
 530 # Usage:                                                                        #
 531 #                                                                               #
 532 # $dbmodule->connect();                                                         #
 533 #################################################################################
 534
 535         $error = "";
 536         $errorext = "";
 537
 538         # Connect to the server.
 539
 540         $database_handle = DBI->connect("DBI:mysql:database=" . $options{"Database"} . ";host=" . $options{"Server"} . ";protocol=" . $options{"Protocol"} . "port=" . $options{"Port"}, $options{"Username"}, $options{"Password"}, { "mysql_enable_utf8" => 1 }) or ( $error = "DatabaseConnectionError", $errorext = DBI->errstr, return );
 541         $database_handle->do('SET CHARACTER SET utf8');
 542         $database_handle->do('SET NAMES utf8');
 543
 544 }
 545
 546 sub disconnect{
 547 #################################################################################
 548 # connect: Disconnect from the server.                                          #
 549 #                                                                               #
 550 # Usage:                                                                        #
 551 #                                                                               #
 552 # $dbmodule->disconnect();                                                      #
 553 #################################################################################
 554
 555         # Disconnect from the server.
 556
 557         if ($statement_handle){
 558
 559                 $statement_handle->finish();
 560
 561         }
 562
 563         if ($database_handle){
 564
 565                 $database_handle->disconnect();
 566
 567         }
 568
 569 }
 570
 571 #################################################################################
 572 # Database Subroutines.                                                         #
 573 #################################################################################
 574
 575 sub getdblist{
 576 #################################################################################
 577 # getdblist: Gets the list of available databases.                              #
 578 #                                                                               #
 579 # Usage:                                                                        #
 580 #                                                                               #
 581 # $dbmodule->getdblist();                                                       #
 582 #################################################################################
 583
 584         $error = "";
 585         $errorext = "";
 586
 587         # Get the list of databases.
 588
 589         $statement_handle = $database_handle->prepare("SHOW TABLES") or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
 590         $statement_handle->execute();
 591
 592         my @final_table_list;
 593         my @database_table_list;
 594         my @table_name;
 595         my $table;
 596
 597         while (@table_name = $statement_handle->fetchrow_array()){
 598
 599                 push(@database_table_list, decode_utf8($table_name[0]));
 600
 601         }
 602
 603         my $table_prefix = $options{"TablePrefix"};
 604
 605         # Find all the database information tables with the correct table prefix.
 606
 607         @database_table_list = grep /^$table_prefix/ , @database_table_list;
 608         @database_table_list = grep /m*database_info$/ , @database_table_list;
 609
 610         foreach $table (@database_table_list){
 611
 612                 # Process each table name removing the table prefix name and
 613                 # the _database_info part.
 614
 615                 $table =~ s/^$table_prefix(_)//g;
 616                 $table =~ s/_database_info$//g;
 617
 618                 push (@final_table_list, $table);
 619
 620         }
 621
 622         # Return the final list of databases.
 623
 624         return @final_table_list;
 625
 626 }
 627
 628 sub selectdb{
 629 #################################################################################
 630 # selectdb: Selects the Kiriwrite database.                                     #
 631 #                                                                               #
 632 # Usage:                                                                        #
 633 #                                                                               #
 634 # $dbmodule->connect(options);                                                  #
 635 #                                                                               #
 636 # options       Specifies the following options in any order.                   #
 637 #                                                                               #
 638 # DatabaseName  Specifies the Kiriwrite database to use.                        #
 639 #################################################################################
 640
 641         # Get the database name.
 642
 643         $error = "";
 644         $errorext = "";
 645
 646         my $class = shift;
 647         my ($passedoptions) = @_;
 648
 649         my $dbname = $passedoptions->{"DatabaseName"};
 650
 651         my $database_exists = $class->dbexists($dbname);
 652
 653         if ($database_exists eq 1){
 654
 655                 # The database does not exist so return an error value
 656                 # saying that the database does not exist.
 657
 658                 $error = "DoesNotExist";
 659
 660                 return;
 661
 662         }
 663
 664         $database_filename = $dbname;
 665
 666 }
 667
 668 sub getdatabaseinfo{
 669 #################################################################################
 670 # getdatabaseinfo: Get information about the database.                          #
 671 #                                                                               #
 672 # Usage:                                                                        #
 673 #                                                                               #
 674 # $dbmodule->getdatabaseinfo();                                                 #
 675 #################################################################################
 676
 677         # Get the database information.
 678
 679         $error = "";
 680         $errorext = "";
 681
 682         my $class = shift;
 683         my ($databaseinfo, %databaseinfo);
 684         my ($sqldata, @sqldata);
 685
 686         $statement_handle = $database_handle->prepare('SELECT name, description, notes, categories, kiriwrite_version_major, kiriwrite_version_minor, kiriwrite_version_revision FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_info LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
 687         $statement_handle->execute();
 688
 689         @sqldata = $statement_handle->fetchrow_array();
 690
 691         # Process the database information into a hash.
 692
 693         %databaseinfo = (
 694
 695                 "DatabaseName"  => decode_utf8($sqldata[0]),
 696                 "Description"   => decode_utf8($sqldata[1]),
 697                 "Notes"         => decode_utf8($sqldata[2]),
 698                 "Categories"    => decode_utf8($sqldata[3]),
 699                 "Major"         => decode_utf8($sqldata[4]),
 700                 "Minor"         => decode_utf8($sqldata[5]),
 701                 "Revision"      => decode_utf8($sqldata[6])
 702         );
 703
 704         $statement_handle->finish();
 705
 706         return %databaseinfo;
 707
 708 }
 709
 710 sub selectseconddb{
 711 #################################################################################
 712 # selectseconddb: Selects a second Kiriwrite database for moving and copying    #
 713 # pages to.                                                                     #
 714 #                                                                               #
 715 # Usage:                                                                        #
 716 #                                                                               #
 717 # $dbmodule->selectseconddb(options);                                           #
 718 #                                                                               #
 719 # options       Specifies the following options in any order.                   #
 720 #                                                                               #
 721 # DatabaseName  Specifies the Kiriwrite database to use.                        #
 722 #################################################################################
 723
 724         # Get the database name.
 725
 726         $error = "";
 727         $errorext = "";
 728
 729         my $class = shift;
 730         my ($passedoptions) = @_;
 731         my (%database, $database);
 732
 733         my $dbname = $passedoptions->{"DatabaseName"};
 734
 735         # Check if the database exists.
 736
 737         my $database_exists = $class->dbexists($dbname);
 738
 739         if ($database_exists eq 1){
 740
 741                 # The database does not exist so return an error value
 742                 # saying that the database does not exist.
 743
 744                 $error = "DoesNotExist";
 745
 746                 return;
 747
 748         }
 749
 750         # Set the second database filename.
 751
 752         $second_database_filename = $dbname;
 753
 754 }
 755
 756 sub getseconddatabaseinfo{
 757 #################################################################################
 758 # getseconddatabaseinfo: Get information about the database that pages will be  #
 759 # moved or copied to.                                                           #
 760 #                                                                               #
 761 # Usage:                                                                        #
 762 #                                                                               #
 763 # $dbmodule->getseconddatabaseinfo();                                           #
 764 #################################################################################
 765
 766
 767         # Get the database information.
 768
 769         my $class = shift;
 770         my ($databaseinfo, %databaseinfo);
 771         my ($sqldata, @sqldata);
 772
 773         $error = "";
 774         $errorext = "";
 775
 776         $statement_handle = $database_handle->prepare('SELECT name, description, notes, categories, kiriwrite_version_major, kiriwrite_version_minor, kiriwrite_version_revision FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($second_database_filename) . '_database_info LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
 777         $statement_handle->execute();
 778
 779         @sqldata = $statement_handle->fetchrow_array();
 780
 781         # Process the database information into a hash.
 782
 783         %databaseinfo = (
 784                 "DatabaseName"  => decode_utf8($sqldata[0]),
 785                 "Description"   => decode_utf8($sqldata[1]),
 786                 "Notes"         => decode_utf8($sqldata[2]),
 787                 "Categories"    => decode_utf8($sqldata[3]),
 788                 "Major"         => decode_utf8($sqldata[4]),
 789                 "Minor"         => decode_utf8($sqldata[5]),
 790                 "Revision"      => decode_utf8($sqldata[6])
 791         );
 792
 793         $statement_handle->finish();
 794
 795         return %databaseinfo;
 796
 797 }
 798
 799 sub adddatabase{
 800 #################################################################################
 801 # adddatabase: Adds a Kiriwrite database.                                       #
 802 #                                                                               #
 803 # Usage:                                                                        #
 804 #                                                                               #
 805 # $dbmodule->adddatabase(options);                                              #
 806 #                                                                               #
 807 # options       Specifies the following options in any order.                   #
 808 #                                                                               #
 809 # DatabaseFilename      Specifies the database file/shortname to use.           #
 810 # DatabaseName          Specifies the database name to use.                     #
 811 # DatabaseDescription   Specifies the database description to use.              #
 812 # DatabaseNotes         Specifies the database notes to use.                    #
 813 # DatabaseCategories    Specifies the database categories to use.               #
 814 # VersionMajor          Specifies the major version.                            #
 815 # VersionMinor          Specifies the minor version.                            #
 816 # VersionRevision       Specifies the revision version.                         #
 817 #################################################################################
 818
 819         # Get the database that was passed to the subroutine.
 820
 821         $error  = "";
 822         $errorext = "";
 823
 824         my $class       = shift;
 825         my ($passedoptions) = @_;
 826
 827         my $dbfilename          = $passedoptions->{"DatabaseFilename"};
 828         my $dbname              = $passedoptions->{"DatabaseName"};
 829         my $dbdescription       = $passedoptions->{"DatabaseDescription"};
 830         my $dbnotes             = $passedoptions->{"DatabaseNotes"};
 831         my $dbcategories        = $passedoptions->{"DatabaseCategories"};
 832         my $dbmajorver          = $passedoptions->{"VersionMajor"};
 833         my $dbminorver          = $passedoptions->{"VersionMinor"};
 834         my $dbrevisionver       = $passedoptions->{"VersionRevision"};
 835
 836         # Check if the database with the filename given already exists.
 837
 838         my $database_exists     = $class->dbexists($dbfilename);
 839
 840         if ($database_exists eq 0){
 841
 842                 # The database filename exists so set the error value.
 843
 844                 $error = "DatabaseExists";
 845                 return;
 846
 847         }
 848
 849         # Create the database structure (info and page tables);
 850
 851         $statement_handle       = $database_handle->prepare('CREATE TABLE ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($dbfilename) . '_database_info (
 852                         name varchar(256) primary key,
 853                         description varchar(512),
 854                         notes mediumtext,
 855                         categories varchar(512),
 856                         kiriwrite_version_major int(4),
 857                         kiriwrite_version_minor int(4),
 858                         kiriwrite_version_revision int(4)
 859         ) DEFAULT CHARSET=utf8') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
 860         $statement_handle->execute();
 861
 862         $statement_handle       = $database_handle->prepare('CREATE TABLE ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($dbfilename) . '_database_pages (
 863                         filename varchar(256) primary key,
 864                         pagename varchar(512),
 865                         pagedescription varchar(512),
 866                         pagesection varchar(256),
 867                         pagetemplate varchar(64),
 868                         pagedata mediumtext,
 869                         pagesettings int(1),
 870                         lastmodified datetime
 871         ) DEFAULT CHARSET=utf8') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
 872         $statement_handle->execute();
 873
 874         # Convert the values into SQL query formatted values and add an entry
 875         # to the kiriwrite_database_info table.
 876
 877         $statement_handle = $database_handle->prepare('INSERT INTO ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($dbfilename) . '_database_info (name, description, notes, categories, kiriwrite_version_major, kiriwrite_version_minor, kiriwrite_version_revision) VALUES(
 878                 \'' . $class->convert($dbname) . '\',
 879                 \'' . $class->convert($dbdescription) . '\',
 880                 \'' . $class->convert($dbnotes) . '\',
 881                 \'' . $class->convert($dbcategories) . '\',
 882                 \'' . $class->convert($dbmajorver) . '\',
 883                 \'' . $class->convert($dbminorver) . '\',
 884                 \'' . $class->convert($dbrevisionver) . '\'
 885         )') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
 886         $statement_handle->execute();
 887
 888 }
 889
 890 sub editdatabase{
 891 #################################################################################
 892 # editdatabase: Edits a Kiriwrite Database.                                     #
 893 #                                                                               #
 894 # Usage:                                                                        #
 895 #                                                                               #
 896 # $dbmodule->editdatabase(options);                                             #
 897 #                                                                               #
 898 # options               Specifies the following options in any order.           #
 899 #                                                                               #
 900 # NewDatabaseFilename   Specifies the new database filename to use.             #
 901 # DatabaseName          Specifies the new database name.                        #
 902 # DatabaseDescription   Specifies the new database description.                 #
 903 # DatabaseNotes         Specifies the new database notes.                       #
 904 # DatabaseCategories    Specifies the new database categories.                  #
 905 #################################################################################
 906
 907         $error          = "";
 908         $errorext       = "";
 909
 910         my $class       = shift;
 911         my ($passedoptions) = @_;
 912
 913         my $dbnewfilename       = $passedoptions->{"DatabaseNewFilename"};
 914         my $dbname              = $passedoptions->{"DatabaseName"};
 915         my $dbdescription       = $passedoptions->{"DatabaseDescription"};
 916         my $dbnotes             = $passedoptions->{"DatabaseNotes"};
 917         my $dbcategories        = $passedoptions->{"DatabaseCategories"};
 918
 919         # Check if a new database filename has been specified and if a
 920         # new database filename has been specified then change the
 921         # database filename.
 922
 923         if ($database_filename ne $dbnewfilename){
 924
 925                 # Check if a table with the filename already exists before using the
 926                 # new filename.
 927
 928                 my $database_newexists          = $class->dbexists($dbnewfilename);
 929
 930                 if ($database_newexists eq 0){
 931
 932                         # The database filename exists so set the error value.
 933
 934                         $error = "DatabaseExists";
 935                         return;
 936
 937                 }
 938
 939                 # Rename the tables.
 940
 941                 $statement_handle = $database_handle->prepare('RENAME TABLE ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_info TO ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($dbnewfilename) . '_database_info, ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages TO ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($dbnewfilename) . '_database_pages');
 942                 $statement_handle->execute();
 943
 944         }
 945
 946         # Get the current database information.
 947
 948         $statement_handle = $database_handle->prepare('SELECT name FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($dbnewfilename) . '_database_info LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
 949         $statement_handle->execute();
 950
 951         my @database_oldinfo    = $statement_handle->fetchrow_array();
 952
 953         my $dboldname           = decode_utf8($database_oldinfo[0]);
 954
 955         # Update the database information.
 956
 957         $statement_handle = $database_handle->prepare('UPDATE ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($dbnewfilename) . '_database_info SET name = \'' . $class->convert($dbname) . '\',
 958         description = \'' . $class->convert($dbdescription) . '\',
 959         notes = \'' . $class->convert($dbnotes) . '\',
 960         categories = \'' . $class->convert($dbcategories) . '\'') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
 961         $statement_handle->execute();
 962
 963 }
 964
 965 sub deletedatabase{
 966 #################################################################################
 967 # deletedatabase: Deletes a Kiriwrite database.                                 #
 968 #                                                                               #
 969 # Usage:                                                                        #
 970 #                                                                               #
 971 # $dbmodule->deletedatabase(options);                                           #
 972 #                                                                               #
 973 # options       Specifies the following options in any order.                   #
 974 #                                                                               #
 975 # DatabaseName  Specifies the Kiriwrite database to delete.                     #
 976 #################################################################################
 977
 978         $error          = "";
 979         $errorext       = "";
 980
 981         # Get the database filename.
 982
 983         my $class               = shift;
 984         my ($passedoptions)     = shift;
 985
 986         my $databasename        = $passedoptions->{"DatabaseName"};
 987
 988         my @table_data;
 989         my $table_exists;
 990
 991         # Check if the database with the filename given already exists.
 992
 993         my $database_exists     = $class->dbexists($databasename);
 994
 995         if ($database_exists eq 1){
 996
 997                 # The database does not exist so set the error value.
 998
 999                 $error = "DoesNotExist";
1000                 return;
1001
1002         }
1003
1004
1005
1006         # Delete the database tables.
1007
1008         $statement_handle = $database_handle->prepare('DROP TABLE ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($databasename) . '_database_info')  or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1009         $statement_handle->execute();
1010
1011         # Check if the _database_pages table exists and delete it if it exists.
1012
1013         $statement_handle = $database_handle->prepare('SHOW TABLES LIKE \'' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($databasename) . '_database_pages\'')  or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1014         $statement_handle->execute();
1015
1016         while (@table_data = $statement_handle->fetchrow_array()){
1017
1018                 $table_exists = 1;
1019
1020         }
1021
1022         # Check if the _database_pages table really does exist.
1023
1024         if ($table_exists eq 1){
1025
1026                 # the _database_pages table really does exist so delete it.
1027
1028                 $statement_handle = $database_handle->prepare('DROP TABLE ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($databasename) . '_database_pages')  or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1029                 $statement_handle->execute();
1030
1031         }
1032
1033 }
1034
1035 #################################################################################
1036 # Template subroutines.                                                         #
1037 #################################################################################
1038
1039 sub connecttemplate{
1040 #################################################################################
1041 # connecttemplate: Connect to the template database.                            #
1042 #                                                                               #
1043 # Usage:                                                                        #
1044 #                                                                               #
1045 # $dbmodule->connecttemplate(missingignore);                                    #
1046 #                                                                               #
1047 # missingignore Ignore errror about database being missing.                     #
1048 #################################################################################
1049
1050         $error = "";
1051         $errorext = "";
1052
1053         my $class = shift;
1054         my $ignoremissing = shift;
1055         my $templatedb_exists = 0;
1056         my @templatedb_check;
1057
1058         # Check if the template database exists.
1059
1060         $statement_handle = $database_handle->prepare('SHOW TABLES LIKE \'' . $class->convert($options{"TablePrefix"}) . '_templates\'') or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1061         $statement_handle->execute();
1062
1063         while (@templatedb_check = $statement_handle->fetchrow_array()){
1064
1065                 $templatedb_exists = 1;
1066
1067         }
1068
1069         if (!$templatedb_exists){
1070
1071                 if (!$ignoremissing){
1072
1073                         $error = "TemplateDatabaseDoesNotExist";
1074                         return;
1075
1076                 }
1077
1078         }
1079
1080 }
1081
1082 sub disconnecttemplate{
1083 #################################################################################
1084 # disconnecttemplate: Disconnect from the template database.                    #
1085 #                                                                               #
1086 # Usage:                                                                        #
1087 #                                                                               #
1088 # $dbmodule->disconnecttemplate();                                              #
1089 #################################################################################
1090
1091         # This subroutine is not used.
1092
1093 }
1094
1095 sub gettemplatelist{
1096 #################################################################################
1097 # gettemplatelist: Gets the list of templates.                                  #
1098 #                                                                               #
1099 # Usage:                                                                        #
1100 #                                                                               #
1101 # $dbmodule->gettemplatelist(options);                                          #
1102 #                                                                               #
1103 # options       Specifies the following options as a hash (in any order).       #
1104 #                                                                               #
1105 # StartFrom     Specifies where the list of templates will start from.          #
1106 # Limit         Specifies how many templates should be retrieved.               #
1107 #################################################################################
1108
1109         $error = "";
1110         $errorext = "";
1111
1112         my $class               = shift;
1113         my ($passedoptions)     = @_;
1114
1115         my $start_from          = $passedoptions->{"StartFrom"};
1116         my $limit               = $passedoptions->{"Limit"};
1117
1118         if (defined($start_from)){
1119
1120                 if (!$limit){
1121
1122                         $limit = 0;
1123
1124                 }
1125
1126                 $statement_handle = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_templates ORDER BY filename ASC LIMIT ' . $start_from . ',' .  $limit ) or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1127                 $statement_handle->execute();
1128
1129         } else {
1130
1131                 $statement_handle = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_templates ORDER BY filename ASC') or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1132                 $statement_handle->execute();
1133
1134         }
1135
1136         my @database_template;
1137         my @templates_list;
1138         my $template_filename;
1139
1140         while (@database_template = $statement_handle->fetchrow_array()){
1141
1142                 # Get certain values from the array.
1143
1144                 $template_filename      = $database_template[0];
1145
1146                 # Add the template to the list of templates.
1147
1148                 push(@templates_list, $template_filename);
1149
1150         }
1151
1152         return @templates_list;
1153
1154 }
1155
1156 sub gettemplateinfo{
1157 #################################################################################
1158 # gettemplateinfo: Get information on a template.                               #
1159 #                                                                               #
1160 # Usage:                                                                        #
1161 #                                                                               #
1162 # $dbmodule->gettemplateinfo(options);                                          #
1163 #                                                                               #
1164 # options       Specifies the following options in any order.                   #
1165 #                                                                               #
1166 # TemplateFilename      Specifies the template filename to use.                 #
1167 # Reduced               Specifies if the reduced version of the template        #
1168 #                       information should be retrieved.                        #
1169 #################################################################################
1170
1171         $error = "";
1172         $errorext = "";
1173
1174         # Get the data passed to the subroutine.
1175
1176         my $class = shift;
1177         my ($passedoptions) = @_;
1178
1179         my %page_info;
1180         my @template_data;
1181
1182         my $template_filename;
1183         my $template_name;
1184         my $template_description;
1185         my $template_datemodified;
1186         my $template_layout;
1187
1188         my $template_found = 0;
1189
1190         my $filename    = $passedoptions->{"TemplateFilename"};
1191         my $reduced     = $passedoptions->{"Reduced"};
1192
1193         if ($reduced && $reduced eq 1){
1194
1195                 $statement_handle = $database_handle->prepare('SELECT filename, templatename, templatedescription, datemodified FROM ' . $class->convert($options{"TablePrefix"}) . '_templates WHERE filename = \'' . $class->convert($filename) . '\'') or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1196                 $statement_handle->execute();
1197
1198         } else {
1199
1200                 $statement_handle = $database_handle->prepare('SELECT filename, templatename, templatedescription, templatelayout, datemodified FROM ' . $class->convert($options{"TablePrefix"}) . '_templates WHERE filename = \'' . $class->convert($filename) . '\'') or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1201                 $statement_handle->execute();
1202
1203         }
1204
1205         while (@template_data = $statement_handle->fetchrow_array()){
1206
1207                 # Get certain values from the array.
1208
1209                 $template_filename      = decode_utf8($template_data[0]);
1210                 $template_name          = decode_utf8($template_data[1]);
1211                 $template_description   = decode_utf8($template_data[2]);
1212                 $template_layout        = decode_utf8($template_data[3]);
1213                 $template_datemodified  = decode_utf8($template_data[4]);
1214
1215                 # Process them into the hash.
1216
1217                 %page_info = (
1218                         "TemplateFilename" => $template_filename,
1219                         "TemplateName" => $template_name,
1220                         "TemplateDescription" => $template_description,
1221                         "TemplateLayout" => $template_layout,
1222                         "TemplateLastModified" => $template_datemodified
1223                 );
1224
1225                 $template_found = 1;
1226
1227         }
1228
1229         if ($template_found eq 0){
1230
1231                 # The template was not found in the template database so
1232                 # write an error value.
1233
1234                 $error = "TemplateDoesNotExist";
1235                 return;
1236
1237         }
1238
1239         return %page_info;
1240
1241 }
1242
1243 sub gettemplatecount{
1244 #################################################################################
1245 # gettemplatecount: Gets the count of templates in the template database.       #
1246 #                                                                               #
1247 # Usage:                                                                        #
1248 #                                                                               #
1249 # $dbmodule->gettemplatecount();                                                #
1250 #################################################################################
1251
1252         $error = "";
1253         $errorext = "";
1254
1255         my $class       = shift;
1256
1257         $statement_handle       = $database_handle->prepare('SELECT COUNT(*) FROM ' . $class->convert($options{"TablePrefix"}) . '_templates') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return);
1258         $statement_handle->execute();
1259
1260         my $count = $statement_handle->fetchrow_array();
1261
1262         return $count;
1263
1264 }
1265
1266 sub addtemplate{
1267 #################################################################################
1268 # addtemplate: Adds a template to the template database.                        #
1269 #                                                                               #
1270 # Usage:                                                                        #
1271 #                                                                               #
1272 # $dbmodule->addtemplate(options);                                              #
1273 #                                                                               #
1274 # options       Specifies the following options in any order.                   #
1275 #                                                                               #
1276 # TemplateFilename      Specifies the new template filename.                    #
1277 # TemplateName          Specifies the new template name.                        #
1278 # TemplateDescription   Specifies the new template description.                 #
1279 # TemplateLayout        Specifies the new template layout.                      #
1280 #################################################################################
1281
1282         $error = "";
1283         $errorext = "";
1284
1285         # Get the data passed to the subroutine.
1286
1287         my $class = shift;
1288         my ($passedoptions) = @_;
1289
1290         my @page_exists;
1291         my @templatedb_check;
1292         my $templatedb_exists;
1293         my $blankfile = 0;
1294
1295         my $template_filename           = $passedoptions->{"TemplateFilename"};
1296         my $template_name               = $passedoptions->{"TemplateName"};
1297         my $template_description        = $passedoptions->{"TemplateDescription"};
1298         my $template_layout             = $passedoptions->{"TemplateLayout"};
1299
1300         # Check if the template database exists.
1301
1302         $statement_handle = $database_handle->prepare('SHOW TABLES LIKE \'' . $class->convert($options{"TablePrefix"}) . '_templates\'') or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1303         $statement_handle->execute();
1304
1305         while (@templatedb_check = $statement_handle->fetchrow_array()){
1306
1307                 $templatedb_exists = 1;
1308
1309         }
1310
1311         # Check if the template database table exists and if it doesn't
1312         # then create the template database table.
1313
1314         if (!$templatedb_exists){
1315
1316                 $statement_handle = $database_handle->prepare('CREATE TABLE ' . $class->convert($options{"TablePrefix"}) . '_templates (
1317                         filename varchar(256) primary key,
1318                         templatename varchar(512),
1319                         templatedescription varchar(512),
1320                         templatelayout mediumtext,
1321                         datemodified datetime
1322                 ) DEFAULT CHARSET=utf8') or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1323                 $statement_handle->execute();
1324
1325         }
1326
1327         # Check if the template already exists before adding.
1328
1329         if (!$templatedb_exists){
1330
1331                 $statement_handle = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_templates WHERE filename = \'' . $class->convert($template_filename) . '\' LIMIT 1') or ($blankfile = 1);
1332
1333                 if ($blankfile eq 0){
1334
1335                         $statement_handle->execute();
1336
1337                         while (@page_exists = $statement_handle->fetchrow_array()){
1338
1339                                 $error = "TemplatePageExists";
1340                                 return;
1341
1342                         }
1343
1344                 }
1345
1346         }
1347
1348         # Get the current date.
1349
1350         my ($created_second, $created_minute, $created_hour, $created_day, $created_month, $created_year, $created_weekday, $created_yearday, $created_dst) = localtime;
1351
1352         my $template_date = $created_year . '-' . $created_month . '-' . $created_day . ' ' . $created_hour . ':' . $created_minute . ':' . $created_second;
1353
1354         # Check if certain values are undefined and if they
1355         # are then set them blank.
1356
1357         if (!$template_name){
1358
1359                 $template_name = "";
1360
1361         }
1362
1363         if (!$template_description){
1364
1365                 $template_description = "";
1366
1367         }
1368
1369         if (!$template_layout){
1370
1371                 $template_layout = "";
1372
1373         }
1374
1375         $statement_handle = $database_handle->prepare('INSERT INTO ' . $class->convert($options{"TablePrefix"}) . '_templates (filename, templatename, templatedescription, templatelayout, datemodified) VALUES(
1376                         \'' . $class->convert($template_filename) . '\',
1377                         \'' . $class->convert($template_name) . '\',
1378                         \'' . $class->convert($template_description) . '\',
1379                         \'' . $class->convert($template_layout) . '\',
1380                         \'' . $class->convert($template_date) . '\'
1381         )') or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1382         $statement_handle->execute();
1383
1384 }
1385
1386 sub edittemplate{
1387 #################################################################################
1388 # editttemplate: Edits a Kiriwrite template.                                    #
1389 #                                                                               #
1390 # Usage:                                                                        #
1391 #                                                                               #
1392 # $dbmodule->edittemplate(options);                                             #
1393 #                                                                               #
1394 # options       Specifies the following options in any order.                   #
1395 #                                                                               #
1396 # TemplateFilename              Specifies the template filename to edit.        #
1397 # NewTemplateFilename           Specifies the new template filename.            #
1398 # NewTemplateName               Specifies the new template name.                #
1399 # NewTemplateDescription        Specifies the new template description.         #
1400 # NewTemplateLayout             Specifies the new template layout.              #
1401 #################################################################################
1402
1403         # Get the values passed.
1404
1405         my $class = shift;
1406         my ($passedoptions) = @_;
1407         my $template_found = 0;
1408         my @template_info;
1409
1410         # Process the values passed.
1411
1412         my $template_filename           = $passedoptions->{"TemplateFilename"};
1413         my $new_template_filename       = $passedoptions->{"NewTemplateFilename"};
1414         my $new_template_name           = $passedoptions->{"NewTemplateName"};
1415         my $new_template_description    = $passedoptions->{"NewTemplateDescription"};
1416         my $new_template_layout         = $passedoptions->{"NewTemplateLayout"};
1417
1418         # Check if the template exists.
1419
1420         $statement_handle = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_templates WHERE filename = \'' . $class->convert($template_filename) . '\' LIMIT 1') or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1421         $statement_handle->execute();
1422
1423         while (@template_info = $statement_handle->fetchrow_array()){
1424
1425                 $template_found = 1;
1426
1427         }
1428
1429         # Check to see if the template was found and set an error value if
1430         # it wasn't.
1431
1432         if ($template_found eq 0){
1433
1434                 $error = "TemplateDoesNotExist";
1435                 return;
1436
1437         }
1438
1439         # Get the date and time.
1440
1441         my ($created_second, $created_minute, $created_hour, $created_day, $created_month, $created_year, $created_weekday, $created_yearday, $created_dst) = localtime;
1442         my $templatenewdate = $created_year . '-' . $created_month . '-' . $created_day . ' ' . $created_hour . ':' . $created_minute . ':' . $created_second;
1443
1444         # Update the template information.
1445
1446         $statement_handle = $database_handle->prepare('UPDATE ' . $class->convert($options{"TablePrefix"}) . '_templates SET
1447                 filename = \'' . $class->convert($new_template_filename) . '\',
1448                 templatename = \'' . $class->convert($new_template_name) . '\',
1449                 templatedescription = \'' . $class->convert($new_template_description) . '\',
1450                 templatelayout = \'' . $class->convert($new_template_layout) . '\',
1451                 datemodified = \'' . $class->convert($templatenewdate) . '\'
1452                 WHERE filename = \'' . $class->convert($template_filename) . '\'
1453         ') or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1454         $statement_handle->execute();
1455
1456 }
1457
1458 sub deletetemplate{
1459 #################################################################################
1460 # deletetemplate: Deletes a template from the template database.                #
1461 #                                                                               #
1462 # Usage:                                                                        #
1463 #                                                                               #
1464 # $dbmodule->deletetemplate(options);                                           #
1465 #                                                                               #
1466 # options       Specifies the following options in any order.                   #
1467 #                                                                               #
1468 # TemplateFilename      Specifies the template filename to delete.              #
1469 #################################################################################
1470
1471         $error = "";
1472         $errorext = "";
1473
1474         # Get the data passed to the subroutine.
1475
1476         my $class = shift;
1477         my ($passedoptions) = @_;
1478
1479         my @pagedata;
1480         my $template_filename = $passedoptions->{"TemplateFilename"};
1481         my $template_count = 0;
1482
1483         # Check if the template exists.
1484
1485         $statement_handle = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_templates WHERE filename = \'' . $class->convert($template_filename) . '\' LIMIT 1') or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1486         $statement_handle->execute();
1487
1488         while (@pagedata = $statement_handle->fetchrow_array()){
1489
1490                 $template_count++;
1491
1492         }
1493
1494         if ($template_count eq 0){
1495
1496                 # No pages were returned so return an error value.
1497
1498                 $error = "TemplateDoesNotExist";
1499                 return;
1500
1501         }
1502
1503         # Delete the template from the template database.
1504
1505         $statement_handle = $database_handle->prepare('DELETE FROM ' . $class->convert($options{"TablePrefix"}) . '_templates WHERE filename = \'' . $class->convert($template_filename) . '\'') or ( $error = "TemplateDatabaseError", $errorext = $database_handle->errstr, return );
1506         $statement_handle->execute();
1507
1508 }
1509
1510 #################################################################################
1511 # Page subroutines.                                                             #
1512 #################################################################################
1513
1514 sub getpagecount{
1515 #################################################################################
1516 # getpagecount: Get the count of pages that are in the database.                #
1517 #                                                                               #
1518 # Usage:                                                                        #
1519 #                                                                               #
1520 # $dbmodule->getpagecount();                                                    #
1521 #################################################################################
1522
1523         $error = "";
1524         $errorext = "";
1525
1526         my $class       = shift;
1527
1528         $statement_handle       = $database_handle->prepare('SELECT COUNT(*) FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return);
1529         $statement_handle->execute();
1530
1531         my $count = $statement_handle->fetchrow_array();
1532
1533         return $count;
1534
1535 }
1536
1537 sub getpagelist{
1538 #################################################################################
1539 # getpagelist: Gets the list of pages from the database.                        #
1540 #                                                                               #
1541 # Usage:                                                                        #
1542 #                                                                               #
1543 # $dbmodule->getpagelist(options);                                              #
1544 #                                                                               #
1545 # options       Specifies the following options as a hash (in any order).       #
1546 #                                                                               #
1547 # StartFrom     Start from the specified page in the database.                  #
1548 # Limit         Get the amount of pages given.                                  #
1549 #################################################################################
1550
1551         $error = "";
1552         $errorext = "";
1553
1554         my $class       = shift;
1555         my ($passedoptions)     = shift;
1556
1557         my $start_from  = $passedoptions->{"StartFrom"};
1558         my $limit       = $passedoptions->{"Limit"};
1559
1560         if (defined($start_from)){
1561
1562                 if (!$limit){
1563
1564                         $limit = 0;
1565
1566                 }
1567
1568                 $statement_handle       = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages LIMIT ' . $start_from . ',' . $limit) or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1569                 $statement_handle->execute();
1570
1571         } else {
1572
1573                 $statement_handle       = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1574                 $statement_handle->execute();
1575
1576         }
1577
1578         my @database_pagefilenames;
1579         my @database_pagefilenames_final;
1580
1581         # Process the collected pages.
1582
1583         while (@database_pagefilenames = $statement_handle->fetchrow_array){
1584
1585                 # Add each page to the list of pages in the database.
1586
1587                 push(@database_pagefilenames_final, decode_utf8($database_pagefilenames[0]));
1588
1589         }
1590
1591         return @database_pagefilenames_final;
1592
1593 }
1594
1595 sub getpageinfo{
1596 #################################################################################
1597 # getpageinfo: Gets the page information from the filename passed.              #
1598 #                                                                               #
1599 # Usage:                                                                        #
1600 #                                                                               #
1601 # $dbmodule->getpageinfo(options);                                              #
1602 #                                                                               #
1603 # options       Specifies the following options in any order.                   #
1604 #                                                                               #
1605 # PageFilename  Specifies the page filename to get the page information from.   #
1606 # Reduced       Specifies if the reduced version of the page information should #
1607 #               be retrieved.                                                   #
1608 #################################################################################
1609
1610         $error = "";
1611         $errorext = "";
1612
1613         my $class               = shift;
1614         my ($passedoptions)     = shift;
1615         my (%database_page, $database_page);
1616         my ($pagefilename, $pagename, $pagedescription, $pagesection, $pagetemplate, $pagedata, $pagesettings, $pagelastmodified);
1617
1618         my @data_page;
1619         my $page_found = 0;
1620
1621         # Get the page from the database.
1622
1623         my $page_filename       = $passedoptions->{"PageFilename"};
1624         my $page_reduced        = $passedoptions->{"Reduced"};
1625
1626         if ($page_reduced eq 1){
1627
1628                 $statement_handle       = $database_handle->prepare('SELECT filename, pagename, pagedescription, lastmodified FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1629                 $statement_handle->execute();
1630
1631                 # Check if the page exists in the database.
1632
1633                 while (@data_page = $statement_handle->fetchrow_array()){
1634
1635                         # Get the values from the array.
1636
1637                         $pagefilename           = decode_utf8($data_page[0]);
1638                         $pagename               = decode_utf8($data_page[1]);
1639                         $pagedescription        = decode_utf8($data_page[2]);
1640                         $pagelastmodified       = decode_utf8($data_page[3]);
1641
1642                         # Put the values into the page hash.
1643
1644                         %database_page = (
1645                                 "PageFilename"          => $pagefilename,
1646                                 "PageName"              => $pagename,
1647                                 "PageDescription"       => $pagedescription,
1648                                 "PageLastModified"      => $class->dateconvert($pagelastmodified),
1649                         );
1650
1651                         $page_found = 1;
1652
1653                 }
1654
1655         } else {
1656
1657                 $statement_handle       = $database_handle->prepare('SELECT filename, pagename, pagedescription, pagesection, pagetemplate, pagedata, pagesettings, lastmodified FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1658                 $statement_handle->execute();
1659
1660                 # Check if the page exists in the database.
1661
1662                 while (@data_page = $statement_handle->fetchrow_array()){
1663
1664                         # Get the values from the array.
1665
1666                         $pagefilename           = decode_utf8($data_page[0]);
1667                         $pagename               = decode_utf8($data_page[1]);
1668                         $pagedescription        = decode_utf8($data_page[2]);
1669                         $pagesection            = decode_utf8($data_page[3]);
1670                         $pagetemplate           = decode_utf8($data_page[4]);
1671                         $pagedata               = decode_utf8($data_page[5]);
1672                         $pagesettings           = decode_utf8($data_page[6]);
1673                         $pagelastmodified       = decode_utf8($data_page[7]);
1674
1675                         # Put the values into the page hash.
1676
1677                         %database_page = (
1678                                 "PageFilename"          => $pagefilename,
1679                                 "PageName"              => $pagename,
1680                                 "PageDescription"       => $pagedescription,
1681                                 "PageSection"           => $pagesection,
1682                                 "PageTemplate"          => $pagetemplate,
1683                                 "PageContent"           => $pagedata,
1684                                 "PageSettings"          => $pagesettings,
1685                                 "PageLastModified"      => $class->dateconvert($pagelastmodified),
1686                         );
1687
1688                         $page_found = 1;
1689
1690                 }
1691
1692         }
1693
1694         # Check if the page did exist.
1695
1696         if (!$page_found){
1697
1698                 $error = "PageDoesNotExist";
1699                 return;
1700
1701         }
1702
1703         return %database_page;
1704
1705 }
1706
1707
1708 sub addpage{
1709 #################################################################################
1710 # addpage: Add a page to the selected database.                                 #
1711 #                                                                               #
1712 # Usage:                                                                        #
1713 #                                                                               #
1714 # $dbmodule->addpage(options);                                                  #
1715 #                                                                               #
1716 # options       Specifies the following options in any order.                   #
1717 #                                                                               #
1718 # PageFilename          Specifies the page filename to use.                     #
1719 # PageName              Specifies the page name to use.                         #
1720 # PageDescription       Specifies the page description to use.                  #
1721 # PageSection           Specifies the page section to use.                      #
1722 # PageTemplate          Specifies the page template to use.                     #
1723 # PageContent           Specifies the page content to use.                      #
1724 # PageSettings          Specifies the page settings to use.                     #
1725 #################################################################################
1726
1727         # Get the data that was passed to the subroutine.
1728
1729         $error = "";
1730         $errorext = "";
1731
1732         my $class               = shift;
1733         my ($passedoptions)     = shift;
1734
1735         my @database_page;
1736         my $page_count = 0;
1737
1738         # Get the values passed to the hash.
1739
1740         my $page_filename       = $passedoptions->{"PageFilename"};
1741         my $page_name           = $passedoptions->{"PageName"};
1742         my $page_description    = $passedoptions->{"PageDescription"};
1743         my $page_section        = $passedoptions->{"PageSection"};
1744         my $page_template       = $passedoptions->{"PageTemplate"};
1745         my $page_content        = $passedoptions->{"PageContent"};
1746         my $page_settings       = $passedoptions->{"PageSettings"};
1747
1748         # Check to see if the filename given already exists
1749         # in the page database.
1750
1751         $statement_handle = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1752         $statement_handle->execute();
1753
1754         # Check if a page with the filename given really does
1755         # exist.
1756
1757         while (@database_page = $statement_handle->fetchrow_array()){
1758
1759                 # A page does exist so increment the count to 1.
1760
1761                 $page_count++;
1762
1763         }
1764
1765         if ($page_count ne 0){
1766
1767                 # The page does exist so set the error value.
1768
1769                 $error = "PageExists";
1770                 return;
1771
1772         }
1773
1774         # Check if certain values are undefined.
1775
1776         if (!$page_name){
1777
1778                 $page_name = "";
1779
1780         }
1781
1782         if (!$page_description){
1783
1784                 $page_description = "";
1785
1786         }
1787
1788         if (!$page_section){
1789
1790                 $page_section = "";
1791
1792         }
1793
1794         if (!$page_content){
1795
1796                 $page_content = "";
1797
1798         }
1799
1800         my ($created_second, $created_minute, $created_hour, $created_day, $created_month, $created_year, $created_weekday, $created_yearday, $created_dst) = localtime;
1801         my $page_date = $created_year . '-' . $created_month . '-' . $created_day . ' ' . $created_hour . ':' . $created_minute . ':' . $created_second;
1802
1803         # Add the page to the selected database.
1804
1805         $statement_handle = $database_handle->prepare('INSERT INTO ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages (filename, pagename, pagedescription, pagesection, pagetemplate, pagedata, pagesettings, lastmodified) VALUES (
1806                 \'' . $class->convert($page_filename) . '\',
1807                 \'' . $class->convert($page_name) . '\',
1808                 \'' . $class->convert($page_description) . '\',
1809                 \'' . $class->convert($page_section) . '\',
1810                 \'' . $class->convert($page_template) . '\',
1811                 \'' . $class->convert($page_content) . '\',
1812                 \'' . $class->convert($page_settings) . '\',
1813                 \'' . $class->convert($page_date) . '\'
1814         )') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1815         $statement_handle->execute();
1816
1817 }
1818
1819 sub deletepage{
1820 #################################################################################
1821 # deletepage: Delete a page from the selected database.                         #
1822 #                                                                               #
1823 # Usage:                                                                        #
1824 #                                                                               #
1825 # $dbmodule->deletepage(options)                                                #
1826 #                                                                               #
1827 # options       Specifies the following options in any order.                   #
1828 #                                                                               #
1829 # PageFilename  Specifies the page filename to delete.                          #
1830 #################################################################################
1831
1832         $error = "";
1833         $errorext = "";
1834
1835         # Get the data that was passed to the subroutine.
1836
1837         my $class = shift;
1838         my ($passedoptions) = @_;
1839         my @page_info;
1840         my $page_found = 0;
1841
1842         # Get the page filename.
1843
1844         my $page_filename = $passedoptions->{"PageFilename"};
1845
1846         # Check if the page exists before deleting it.
1847
1848         $statement_handle = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1849         $statement_handle->execute();
1850
1851         while (@page_info = $statement_handle->fetchrow_array()){
1852
1853                 $page_found = 1;
1854
1855         }
1856
1857         # Check if the page really does exist.
1858
1859         if (!$page_found){
1860
1861                 $error = "PageDoesNotExist";
1862                 return;
1863
1864         }
1865
1866         # Delete the page.
1867
1868         $statement_handle = $database_handle->prepare('DELETE FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\'') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1869         $statement_handle->execute();
1870
1871 }
1872
1873 sub editpage{
1874 #################################################################################
1875 # editpage: Edit a page from the selected database.                             #
1876 #                                                                               #
1877 # Usage:                                                                        #
1878 #                                                                               #
1879 # $dbmodule->editpage(options);                                                 #
1880 #                                                                               #
1881 # options       Specifies the following options in any order.                   #
1882 #                                                                               #
1883 # PageFilename          Specifies the filename to edit.                         #
1884 # PageNewFilename       Specifies the new filename to use.                      #
1885 # PageNewName           Specifies the new page name to use.                     #
1886 # PageNewDescription    Specifies the new page description to use.              #
1887 # PageNewSection        Specifies the new page section to use.                  #
1888 # PageNewTemplate       Specifies the new page template to use.                 #
1889 # PageNewContent        Specifies the new page content to use.                  #
1890 # PageNewSettings       Specifies the new page settings to use.                 #
1891 #################################################################################
1892
1893         $error = "";
1894         $errorext = "";
1895
1896         # Get the values passed to the subroutine.
1897
1898         my $class = shift;
1899         my ($passedoptions) = @_;
1900         my $page_found = 0;
1901         my @page_info;
1902
1903         # Get the data that was passed to the subroutine.
1904
1905         my $page_filename       = $passedoptions->{"PageFilename"};
1906         my $page_newfilename    = $passedoptions->{"PageNewFilename"};
1907         my $page_newname        = $passedoptions->{"PageNewName"};
1908         my $page_newdescription = $passedoptions->{"PageNewDescription"};
1909         my $page_newsection     = $passedoptions->{"PageNewSection"};
1910         my $page_newtemplate    = $passedoptions->{"PageNewTemplate"};
1911         my $page_newcontent     = $passedoptions->{"PageNewContent"};
1912         my $page_newsettings    = $passedoptions->{"PageNewSettings"};
1913
1914         # Check if the page with the filename given exists.
1915
1916         $statement_handle = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1917         $statement_handle->execute();
1918
1919         # Check if the page really does exist.
1920
1921         while (@page_info = $statement_handle->fetchrow_array()){
1922
1923                 # The page information is found.
1924
1925                 $page_found = 1;
1926
1927         }
1928
1929         # Check if the page really does exist.
1930
1931         if (!$page_found){
1932
1933                 $error = "PageDoesNotExist";
1934                 return;
1935
1936         }
1937
1938         # Check if there is a page that already exists with the new
1939         # filename.
1940
1941         $page_found = 0;
1942
1943         if ($page_filename ne $page_newfilename){
1944
1945                 $statement_handle = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages WHERE filename = \'' . $class->convert($page_newfilename) . '\' LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1946                 $statement_handle->execute();
1947
1948                 # Check if a page really is using the new filename.
1949
1950                 while (@page_info = $statement_handle->fetchrow_array()){
1951
1952                         # The page information is found.
1953
1954                         $page_found = 1;
1955
1956                 }
1957
1958                 if ($page_found eq 1){
1959
1960                         $error = "PageAlreadyExists";
1961                         return;
1962
1963                 }
1964
1965         }
1966
1967         # Get the current date.
1968
1969         my ($created_second, $created_minute, $created_hour, $created_day, $created_month, $created_year, $created_weekday, $created_yearday, $created_dst) = localtime;
1970         my $page_date = $created_year . '-' . $created_month . '-' . $created_day . ' ' . $created_hour . ':' . $created_minute . ':' . $created_second;
1971
1972         # Edit the selected page.
1973
1974         $statement_handle = $database_handle->prepare('UPDATE ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages SET filename = \'' . $class->convert($page_newfilename) . '\', pagename = \'' . $class->convert($page_newname) . '\', pagedescription = \'' . $class->convert($page_newdescription) . '\', pagesection = \'' . $class->convert($page_newsection) . '\', pagetemplate = \'' . $class->convert($page_newtemplate) . '\', pagedata = \'' . $class->convert($page_newcontent) . '\', pagedata = \'' . $class->convert($page_newcontent) . '\', pagesettings = \'' . $class->convert($page_newsettings) . '\', lastmodified = \'' . $page_date . '\' WHERE filename = \'' . $class->convert($page_filename) . '\'')  or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
1975         $statement_handle->execute();
1976
1977 }
1978
1979 sub movepage{
1980 #################################################################################
1981 # movepage: Moves a page from the old database to the new database.             #
1982 #                                                                               #
1983 # Usage:                                                                        #
1984 #                                                                               #
1985 # $dbmodule->movepage(options);                                                 #
1986 #                                                                               #
1987 # options       Specifies the following options in any order.                   #
1988 #                                                                               #
1989 # PageFilename  Specifies the page with the filename to move.                   #
1990 #################################################################################
1991
1992         $error = "";
1993         $errorext = "";
1994
1995         # Get the values passed to the subroutine.
1996
1997         my $class = shift;
1998         my ($passedoptions) = @_;
1999
2000         my (%database_page, $database_page);
2001         my ($pagefilename, $pagename, $pagedescription, $pagesection, $pagetemplate, $pagedata, $pagesettings, $pagelastmodified);
2002         my @page_info;
2003         my $page_found = 0;
2004
2005         # Get the data that was passed to the subroutine.
2006
2007         my $page_filename = $passedoptions->{"PageFilename"};
2008
2009         # Check if the page with the filename given exists.
2010
2011         $statement_handle = $database_handle->prepare('SELECT filename, pagename, pagedescription, pagesection, pagetemplate, pagedata, pagesettings, lastmodified FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "OldDatabaseError", $errorext = $database_handle->errstr, return );
2012         $statement_handle->execute();
2013
2014         # Check if the page really does exist.
2015
2016         while (@page_info = $statement_handle->fetchrow_array()){
2017
2018                 # Get the values from the array.
2019
2020                 $pagefilename           = decode_utf8($page_info[0]);
2021                 $pagename               = decode_utf8($page_info[1]);
2022                 $pagedescription        = decode_utf8($page_info[2]);
2023                 $pagesection            = decode_utf8($page_info[3]);
2024                 $pagetemplate           = decode_utf8($page_info[4]);
2025                 $pagedata               = decode_utf8($page_info[5]);
2026                 $pagesettings           = decode_utf8($page_info[6]);
2027                 $pagelastmodified       = decode_utf8($page_info[7]);
2028
2029                 # Put the values into the page hash.
2030
2031                 %database_page = (
2032                         "PageFilename"          => $pagefilename,
2033                         "PageName"              => $pagename,
2034                         "PageDescription"       => $pagedescription,
2035                         "PageSection"           => $pagesection,
2036                         "PageTemplate"          => $pagetemplate,
2037                         "PageContent"           => $pagedata,
2038                         "PageSettings"          => $pagesettings,
2039                         "PageLastModified"      => $pagelastmodified,
2040                 );
2041
2042                 # The page information is found.
2043
2044                 $page_found = 1;
2045
2046         }
2047
2048         # Check if the page really does exist.
2049
2050         if (!$page_found){
2051
2052                 $error = "PageDoesNotExist";
2053                 return;
2054
2055         }
2056
2057         # Check if the page with the filename given already exists in
2058         # the database the page is being moved to.
2059
2060         $page_found = 0;
2061         @page_info = ();
2062
2063         $statement_handle = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($second_database_filename) . '_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "NewDatabaseError", $errorext = $database_handle->errstr, return );
2064         $statement_handle->execute();
2065
2066         while (@page_info = $statement_handle->fetchrow_array()){
2067
2068                 $page_found = 1;
2069
2070         }
2071
2072         # Check if the page really does exist.
2073
2074         if ($page_found){
2075
2076                 $error = "PageAlreadyExists";
2077                 return;
2078
2079         }
2080
2081         # Add the page to the new database.
2082
2083         $statement_handle = $database_handle->prepare('INSERT INTO ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($second_database_filename) . '_database_pages (filename, pagename, pagedescription, pagesection, pagetemplate, pagedata, pagesettings, lastmodified) VALUES (
2084                 \'' . $class->convert($database_page{"PageFilename"}) . '\',
2085                 \'' . $class->convert($database_page{"PageName"}) . '\',
2086                 \'' . $class->convert($database_page{"PageDescription"}) . '\',
2087                 \'' . $class->convert($database_page{"PageSection"}) . '\',
2088                 \'' . $class->convert($database_page{"PageTemplate"}) . '\',
2089                 \'' . $class->convert($database_page{"PageContent"}) . '\',
2090                 \'' . $class->convert($database_page{"PageSettings"}) . '\',
2091                 \'' . $class->convert($database_page{"PageLastModified"}) . '\'
2092         )') or ( $error = "NewDatabaseError", $errorext = $database_handle->errstr, return );
2093         $statement_handle->execute();
2094
2095         # Delete the page from the old database.
2096
2097         $statement_handle = $database_handle->prepare('DELETE FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages WHERE filename = \'' . $class->convert($database_page{"PageFilename"}) . '\'') or ( $error = "OldDatabaseError", $errorext = $database_handle->errstr, return );
2098         $statement_handle->execute();
2099
2100 }
2101
2102 sub copypage{
2103 #################################################################################
2104 # copypage: Copies a page from the old database to the new database.            #
2105 #                                                                               #
2106 # Usage:                                                                        #
2107 #                                                                               #
2108 # $dbmodule->copypage(options);                                                 #
2109 #                                                                               #
2110 # options       Specifies the following options in any order.                   #
2111 #                                                                               #
2112 # PageFilename  Specifies the page with the filename to copy.                   #
2113 #################################################################################
2114
2115         $error = "";
2116         $errorext = "";
2117
2118         # Get the values passed to the subroutine.
2119
2120         my $class = shift;
2121         my ($passedoptions) = @_;
2122
2123         my (%database_page, $database_page);
2124         my ($pagefilename, $pagename, $pagedescription, $pagesection, $pagetemplate, $pagedata, $pagesettings, $pagelastmodified);
2125         my @page_info;
2126         my $page_found = 0;
2127
2128         # Get the data that was passed to the subroutine.
2129
2130         my $page_filename = $passedoptions->{"PageFilename"};
2131
2132         # Check if the page with the filename given exists.
2133
2134         $statement_handle = $database_handle->prepare('SELECT filename, pagename, pagedescription, pagesection, pagetemplate, pagedata, pagesettings, lastmodified FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($database_filename) . '_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "OldDatabaseError", $errorext = $database_handle->errstr, return );
2135         $statement_handle->execute();
2136
2137         # Check if the page really does exist.
2138
2139         while (@page_info = $statement_handle->fetchrow_array()){
2140
2141                 # Get the values from the array.
2142
2143                 $pagefilename           = decode_utf8($page_info[0]);
2144                 $pagename               = decode_utf8($page_info[1]);
2145                 $pagedescription        = decode_utf8($page_info[2]);
2146                 $pagesection            = decode_utf8($page_info[3]);
2147                 $pagetemplate           = decode_utf8($page_info[4]);
2148                 $pagedata               = decode_utf8($page_info[5]);
2149                 $pagesettings           = decode_utf8($page_info[6]);
2150                 $pagelastmodified       = decode_utf8($page_info[7]);
2151
2152                 # Put the values into the page hash.
2153
2154                 %database_page = (
2155                         "PageFilename"          => $pagefilename,
2156                         "PageName"              => $pagename,
2157                         "PageDescription"       => $pagedescription,
2158                         "PageSection"           => $pagesection,
2159                         "PageTemplate"          => $pagetemplate,
2160                         "PageContent"           => $pagedata,
2161                         "PageSettings"          => $pagesettings,
2162                         "PageLastModified"      => $pagelastmodified,
2163                 );
2164
2165                 # The page information is found.
2166
2167                 $page_found = 1;
2168
2169         }
2170
2171         # Check if the page really does exist.
2172
2173         if (!$page_found){
2174
2175                 $error = "PageDoesNotExist";
2176                 return;
2177
2178         }
2179
2180         # Check if the page with the filename given already exists in
2181         # the database the page is being moved to.
2182
2183         $page_found = 0;
2184         @page_info = ();
2185
2186         $statement_handle = $database_handle->prepare('SELECT filename FROM ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($second_database_filename) . '_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "NewDatabaseError", $errorext = $database_handle->errstr, return );
2187         $statement_handle->execute();
2188
2189         while (@page_info = $statement_handle->fetchrow_array()){
2190
2191                 $page_found = 1;
2192
2193         }
2194
2195         # Check if the page really does exist.
2196
2197         if ($page_found){
2198
2199                 $error = "PageAlreadyExists";
2200                 return;
2201
2202         }
2203
2204         # Add the page to the new database.
2205
2206         $statement_handle = $database_handle->prepare('INSERT INTO ' . $class->convert($options{"TablePrefix"}) . '_' . $class->convert($second_database_filename) . '_database_pages (filename, pagename, pagedescription, pagesection, pagetemplate, pagedata, pagesettings, lastmodified) VALUES (
2207                 \'' . $class->convert($database_page{"PageFilename"}) . '\',
2208                 \'' . $class->convert($database_page{"PageName"}) . '\',
2209                 \'' . $class->convert($database_page{"PageDescription"}) . '\',
2210                 \'' . $class->convert($database_page{"PageSection"}) . '\',
2211                 \'' . $class->convert($database_page{"PageTemplate"}) . '\',
2212                 \'' . $class->convert($database_page{"PageContent"}) . '\',
2213                 \'' . $class->convert($database_page{"PageSettings"}) . '\',
2214                 \'' . $class->convert($database_page{"PageLastModified"}) . '\'
2215         )') or ( $error = "NewDatabaseError", $errorext = $database_handle->errstr, return );
2216         $statement_handle->execute();
2217
2218 }
2219
2220 #################################################################################
2221 # Filter subroutines.                                                           #
2222 #################################################################################
2223
2224 sub connectfilter{
2225 #################################################################################
2226 # connectfilter: Connect to the filter database.                                #
2227 #                                                                               #
2228 # Usage:                                                                        #
2229 #                                                                               #
2230 # $dbmodule->connectfilter(missingignore);                                      #
2231 #                                                                               #
2232 # missingignore Ignore error about database being missing.                      #
2233 #################################################################################
2234
2235         $error = "";
2236         $errorext = "";
2237
2238         my $class = shift;
2239         my $ignoremissing = shift;
2240         my @filterdb_check;
2241         my $filterdb_exists = 0;
2242
2243         # Check if the template database exists.
2244
2245         $statement_handle = $database_handle->prepare('SHOW TABLES LIKE \'' . $class->convert($options{"TablePrefix"}) . '_filters\'') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2246         $statement_handle->execute();
2247
2248         while (@filterdb_check = $statement_handle->fetchrow_array()){
2249
2250                 $filterdb_exists = 1;
2251
2252         }
2253
2254         if (!$filterdb_exists){
2255
2256                 if (!$ignoremissing){
2257
2258                         $error = "FilterDatabaseDoesNotExist";
2259                         return;
2260
2261                 }
2262
2263         }
2264
2265 }
2266
2267 sub disconnectfilter{
2268 #################################################################################
2269 # disconnectfilter: Disconnect from the filter database.                        #
2270 #                                                                               #
2271 # Usage:                                                                        #
2272 #                                                                               #
2273 # $dbmodule->disconnectfilter();                                                #
2274 #################################################################################
2275
2276         # This subroutine is not used.
2277
2278 }
2279
2280 sub getfilterlist{
2281 #################################################################################
2282 # getfilterlist: Gets the list of filters in the filter database.               #
2283 #                                                                               #
2284 # Usage:                                                                        #
2285 #                                                                               #
2286 # $dbmodule->getfilterlist(options);                                            #
2287 #                                                                               #
2288 # options       Specifies the following options as a hash (in any order).       #
2289 #                                                                               #
2290 # StartFrom     Specifies where the list of filters should start from.          #
2291 # Limit         Specifies the amount of the filters to get.                     #
2292 #################################################################################
2293
2294         $error = "";
2295         $errorext = "";
2296
2297         my $class = shift;
2298         my ($passedoptions)     = shift;
2299
2300         my @filter_list;
2301         my @filter_data;
2302
2303         my $start_from  = $passedoptions->{"StartFrom"};
2304         my $limit       = $passedoptions->{"Limit"};
2305
2306         if (defined($start_from)){
2307
2308                 if (!$limit){
2309
2310                         $limit = 0;
2311
2312                 }
2313
2314                 $statement_handle       = $database_handle->prepare('SELECT id, priority FROM ' . $class->convert($options{"TablePrefix"}) . '_filters ORDER BY priority ASC LIMIT ' . $start_from . ',' . $limit) or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2315                 $statement_handle->execute();
2316
2317         } else {
2318
2319                 $statement_handle       = $database_handle->prepare('SELECT id, priority FROM ' . $class->convert($options{"TablePrefix"}) . '_filters ORDER BY priority ASC') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2320                 $statement_handle->execute();
2321
2322         }
2323
2324         while (@filter_data = $statement_handle->fetchrow_array()){
2325
2326                 # Add the filter to the list of available filters.
2327
2328                 push(@filter_list, decode_utf8($filter_data[0]));
2329
2330         }
2331
2332         return @filter_list;
2333
2334 }
2335
2336 sub getfiltercount{
2337 #################################################################################
2338 # getfiltercount: Gets the count of filters in the filters database.            #
2339 #                                                                               #
2340 # Usage:                                                                        #
2341 #                                                                               #
2342 # $dbmodule->getfiltercount();                                                  #
2343 #################################################################################
2344
2345         $error = "";
2346         $errorext = "";
2347
2348         my $class       = shift;
2349
2350         $statement_handle       = $database_handle->prepare('SELECT COUNT(*) FROM ' . $class->convert($options{"TablePrefix"}) . '_filters') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return);
2351         $statement_handle->execute();
2352
2353         my $count = $statement_handle->fetchrow_array();
2354
2355         return $count;
2356
2357 }
2358
2359 sub getfilterinfo{
2360 #################################################################################
2361 # getfilterinfo: Gets information about the filter.                             #
2362 #                                                                               #
2363 # Usage:                                                                        #
2364 #                                                                               #
2365 # $dbmodule->getfilterinfo(options);                                            #
2366 #                                                                               #
2367 # options       Specifies the following options in any order.                   #
2368 #                                                                               #
2369 # FilterID      Specifies the filter ID number to get information from.         #
2370 # Reduced       Specifies to get the reduced version of the filter information. #
2371 #################################################################################
2372
2373         $error = "";
2374         $errorext = "";
2375
2376         # Get the values passed to the subroutine.
2377
2378         my $class               = shift;
2379         my ($passedoptions)     = @_;
2380
2381         my %filter_info;
2382         my $filter_exists       = 0;
2383         my @filter_data;
2384
2385         # Get the values that are in the hash.
2386
2387         my $filter_id           = $passedoptions->{"FilterID"};
2388         my $reduced             = $passedoptions->{"Reduced"};
2389
2390         if ($reduced && $reduced eq 1){
2391
2392                 $statement_handle = $database_handle->prepare('SELECT id, priority, findsetting, replacesetting, enabled FROM ' . $class->convert($options{"TablePrefix"}) . '_filters where id = \'' . $class->convert($filter_id) . '\'') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2393                 $statement_handle->execute();
2394
2395         } else {
2396
2397                 $statement_handle = $database_handle->prepare('SELECT id, priority, findsetting, replacesetting, enabled, notes FROM ' . $class->convert($options{"TablePrefix"}) . '_filters where id = \'' . $class->convert($filter_id) . '\'') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2398                 $statement_handle->execute();
2399
2400         }
2401
2402         # Get the filter information.
2403
2404         while (@filter_data = $statement_handle->fetchrow_array()){
2405
2406                 $filter_info{"FilterID"}        = decode_utf8($filter_data[0]);
2407                 $filter_info{"FilterPriority"}  = decode_utf8($filter_data[1]);
2408                 $filter_info{"FilterFind"}      = decode_utf8($filter_data[2]);
2409                 $filter_info{"FilterReplace"}   = decode_utf8($filter_data[3]);
2410                 $filter_info{"FilterEnabled"}   = decode_utf8($filter_data[4]);
2411                 $filter_info{"FilterNotes"}     = decode_utf8($filter_data[5]);
2412
2413                 $filter_exists = 1;
2414
2415         }
2416
2417         # Check if the filter exists.
2418
2419         if (!$filter_exists){
2420
2421                 # The filter does not exist so return
2422                 # an error value.
2423
2424                 $error = "FilterDoesNotExist";
2425                 return;
2426
2427         }
2428
2429         # Return the filter information.
2430
2431         return %filter_info;
2432
2433 }
2434
2435 sub addfilter{
2436 #################################################################################
2437 # addfilter: Adds a filter to the filter database.                              #
2438 #                                                                               #
2439 # Usage:                                                                        #
2440 #                                                                               #
2441 # $dbmodule->addfilter(options);                                                #
2442 #                                                                               #
2443 # options       Specifies the following options in any order.                   #
2444 #                                                                               #
2445 # FindFilter    Specifies the find filter to add.                               #
2446 # ReplaceFilter Specifies the replace filter to add.                            #
2447 # Priority      Specifies the filter priority to use.                           #
2448 # Enabled       Specifies if the filter should be enabled.                      #
2449 # Notes         Specifies the notes to use.                                     #
2450 #################################################################################
2451
2452         $error = "";
2453         $errorext = "";
2454
2455         # Get the values passed to the subroutine.
2456
2457         my $class = shift;
2458         my ($passedoptions) = @_;
2459
2460         # Define some variables for later.
2461
2462         my @database_filters;
2463         my @filterdb_check;
2464         my @filterid_list;
2465         my @filterid_check;
2466         my $nofiltertable = 0;
2467         my $filter_found = 0;
2468         my $filter_count = 0;
2469         my $filterdb_exists = 0;
2470         my $filter_id;
2471         my $new_id;
2472
2473         # Get the values from the hash.
2474
2475         my $filter_find         = $passedoptions->{"FindFilter"};
2476         my $filter_replace      = $passedoptions->{"ReplaceFilter"};
2477         my $filter_priority     = $passedoptions->{"Priority"};
2478         my $filter_enabled      = $passedoptions->{"Enabled"};
2479         my $filter_notes        = $passedoptions->{"Notes"};
2480
2481         # Check if the template database exists.
2482
2483         $statement_handle = $database_handle->prepare('SHOW TABLES LIKE \'' . $class->convert($options{"TablePrefix"}) . '_filters\'') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2484         $statement_handle->execute();
2485
2486         while (@filterdb_check = $statement_handle->fetchrow_array()){
2487
2488                 $filterdb_exists = 1;
2489
2490         }
2491
2492         # Check if certain values are undefined and if they
2493         # are then set them blank.
2494
2495         if (!$filter_find){
2496
2497                 $filter_find = "";
2498
2499         }
2500
2501         if (!$filter_replace){
2502
2503                 $filter_replace = "";
2504
2505         }
2506
2507         if (!$filter_priority){
2508
2509                 $filter_priority = 1;
2510
2511         }
2512
2513         if (!$filter_notes){
2514
2515                 $filter_notes = "";
2516
2517         }
2518
2519         if (!$filter_enabled){
2520
2521                 $filter_enabled = "";
2522
2523         }
2524
2525         # Check if there is really no filter table.
2526
2527         if (!$filterdb_exists){
2528
2529                 # Create the filter database table.
2530
2531                 $statement_handle = $database_handle->prepare('CREATE TABLE ' . $class->convert($options{"TablePrefix"}) . '_filters (
2532                         id int(7) primary key,
2533                         priority int(5),
2534                         findsetting varchar(1024),
2535                         replacesetting varchar(1024),
2536                         enabled varchar(3),
2537                         notes text
2538                 ) DEFAULT CHARSET=utf8') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2539                 $statement_handle->execute();
2540
2541         }
2542
2543         # Find the lowest filter identification number available.
2544
2545         $statement_handle = $database_handle->prepare('SELECT id FROM ' . $class->convert($options{"TablePrefix"}) . '_filters ORDER BY id ASC') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2546         $statement_handle->execute();
2547
2548         while (@database_filters = $statement_handle->fetchrow_array()){
2549
2550                 $filter_id      = decode_utf8($database_filters[0]);
2551
2552                 # Add the filter identification to the list of filter IDs.
2553
2554                 push(@filterid_list, $filter_id);
2555
2556         }
2557
2558         $filter_id = "";
2559
2560         # Process each filter looking for a blank available filter.
2561
2562         foreach $filter_id (@filterid_list){
2563
2564                 # Check the next filter ID to see if it's blank.
2565
2566                 $new_id = $filter_id + 1;
2567
2568                 $statement_handle = $database_handle->prepare('SELECT id FROM ' . $class->convert($options{"TablePrefix"}) . '_filters WHERE id = \'' . $class->convert($new_id) . '\'') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2569                 $statement_handle->execute();
2570
2571                 # Get the filter identification number.
2572
2573                 while (@filterid_check = $statement_handle->fetchrow_array()){
2574
2575                         $filter_found = 1;
2576
2577                 }
2578
2579                 # Check if a filter was found.
2580
2581                 if (!$filter_found){
2582
2583                         # No filter was found using this ID so exit the loop.
2584
2585                         last;
2586
2587                 }
2588
2589                 # Increment the filter count and reset the filter found value.
2590
2591                 $filter_count++;
2592                 $filter_found = 0;
2593                 $new_id = 0;
2594
2595         }
2596
2597         # Check if there were any filters in the filter database.
2598
2599         if (!$filter_count && !$new_id){
2600
2601                 # There were no filters in the filter database so set
2602                 # the new filter identification value to 1.
2603
2604                 $new_id = 1;
2605
2606         }
2607
2608         # Add the filter to the filter database.
2609
2610         $statement_handle = $database_handle->prepare('INSERT INTO ' . $class->convert($options{"TablePrefix"}) . '_filters (id, priority, findsetting, replacesetting, notes) VALUES (
2611                 \'' . $class->convert($new_id) . '\',
2612                 \'' . $class->convert($filter_priority) . '\',
2613                 \'' . $class->convert($filter_find) . '\',
2614                 \'' . $class->convert($filter_replace) .'\',
2615                 \'' . $class->convert($filter_notes) . '\'
2616         )') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2617         $statement_handle->execute();
2618
2619 }
2620
2621
2622 sub editfilter{
2623 #################################################################################
2624 # editfilter: Edits a filter in the filter database.                            #
2625 #                                                                               #
2626 # Usage:                                                                        #
2627 #                                                                               #
2628 # $dbmodule->editfilter(options);                                               #
2629 #                                                                               #
2630 # options       Specifies the following options in any order.                   #
2631 #                                                                               #
2632 # FilterID              Specifies the filter to edit.                           #
2633 # NewFindFilter         Specifies the new find filter setting.                  #
2634 # NewReplaceFilter      Specifies the new replace filter setting.               #
2635 # NewFilterPriority     Specifies the new filter priority setting.              #
2636 # NewEnabled            Specifies if the filter is enabled.                     #
2637 # NewFilterNotes        Specifies the new notes for the filter.                 #
2638 #################################################################################
2639
2640         $error = "";
2641         $errorext = "";
2642
2643         # Get the values passed to the subroutine.
2644
2645         my $class = shift;
2646         my ($passedoptions) = @_;
2647
2648         my @filter_data;
2649         my $filter_exists = 1;
2650         my $blankfile = 0;
2651
2652         # Get the values from the hash.
2653
2654         my $filter_id           = $passedoptions->{"FilterID"};
2655         my $filter_newfind      = $passedoptions->{"NewFindFilter"};
2656         my $filter_newreplace   = $passedoptions->{"NewReplaceFilter"};
2657         my $filter_newpriority  = $passedoptions->{"NewFilterPriority"};
2658         my $filter_enabled      = $passedoptions->{"NewEnabled"};
2659         my $filter_newnotes     = $passedoptions->{"NewFilterNotes"};
2660
2661         # Check if the filter exists before editing it.
2662
2663         $statement_handle = $database_handle->prepare('SELECT id FROM ' . $class->convert($options{"TablePrefix"}) . '_filters where id = \'' . $class->convert($filter_id) . '\'') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2664         $statement_handle->execute();
2665
2666         # Check if the filter exists.
2667
2668         while (@filter_data = $statement_handle->fetchrow_array()){
2669
2670                 $filter_exists = 1;
2671
2672         }
2673
2674         # Check if the filter really does exist.
2675
2676         if (!$filter_exists){
2677
2678                 # The filter does not exist so return
2679                 # an error value.
2680
2681                 $error = "FilterDoesNotExist";
2682                 return;
2683
2684         }
2685
2686         # Edit the selected filter.
2687
2688         $statement_handle = $database_handle->prepare('UPDATE ' . $class->convert($options{"TablePrefix"}) . '_filters SET
2689                 findsetting = \'' . $class->convert($filter_newfind) . '\',
2690                 replacesetting = \'' . $class->convert($filter_newreplace) . '\',
2691                 priority = \'' . $class->convert($filter_newpriority) . '\',
2692                 enabled = \'' . $class->convert($filter_enabled) . '\',
2693                 notes = \'' . $class->convert($filter_newnotes) . '\'
2694         WHERE id = \'' . $class->convert($filter_id) . '\'') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2695         $statement_handle->execute();
2696
2697         return;
2698
2699 }
2700
2701 sub deletefilter{
2702 #################################################################################
2703 # deletefilter: Deletes a filter from the filter database.                      #
2704 #                                                                               #
2705 # Usage:                                                                        #
2706 #                                                                               #
2707 # $dbmodule->deletefilter(options);                                             #
2708 #                                                                               #
2709 # options       Specifies the following options in any order.                   #
2710 #                                                                               #
2711 # FilterID      Specifies the filter to delete from the filter database.        #
2712 #################################################################################
2713
2714         $error = "";
2715         $errorext = "";
2716
2717         # Get the values passed to the subroutine.
2718
2719         my $class = shift;
2720         my ($passedoptions) = @_;
2721
2722         my $filter_exists = 0;
2723         my @filter_data;
2724
2725         # Get the values from the hash.
2726
2727         my $filter_id           = $passedoptions->{"FilterID"};
2728
2729         # Check if the filter exists before deleting.
2730
2731         $statement_handle = $database_handle->prepare('SELECT id FROM ' . $class->convert($options{"TablePrefix"}) . '_filters where id = \'' . $class->convert($filter_id) . '\'') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2732         $statement_handle->execute();
2733
2734         while (@filter_data = $statement_handle->fetchrow_array()){
2735
2736                 $filter_exists = 1;
2737
2738         }
2739
2740         # Check to see if the filter really does exist.
2741
2742         if (!$filter_exists){
2743
2744                 $error = "FilterDoesNotExist";
2745                 return;
2746
2747         }
2748
2749         # Delete the filter from the filter database.
2750
2751         $statement_handle = $database_handle->prepare('DELETE FROM ' . $class->convert($options{"TablePrefix"}) . '_filters where id = \'' . $class->convert($filter_id) . '\'') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return );
2752         $statement_handle->execute();
2753
2754 }
2755
2756 1;