#    This source code file is part of the "mod_survey" package.
#
#    Copyright (C) 2004  Joel Palmius
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program (probably in a file named "LICENSE.txt" or the like);
#    if not, write to:
#
#    Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

#!/usr/bin/perl

package Survey::Admin;
use strict;

use Survey::Slask;
use Survey::Statistics;
use Survey::Language;
use Survey::Upload;
use CGI qw/:standard/;
use CGI::Cookie;

sub new
{
    my ($crap, $doc, $arg) = @_;
    my $self = {};

    $self->{ERROR}     = 0;
    $self->{ERRORCODE} = 0;
    $self->{DOCUMENT}  = $doc;
    $self->{ARGUMENT}  = $arg;

    bless($self);

    my (%cookies) = fetch CGI::Cookie;
    my ($passwd);

    if (!$self->{ERROR})
    {
        if ($cookies{'password'})
        {
            $passwd = $cookies{'password'}->value;
        }

        if ($arg->ArgByName("password"))
        {
            my ($c) = new CGI::Cookie(-name => 'password', -value => $arg->ArgByName("password"));
            $doc->{HANDLER}->headers_out->{'Set-Cookie'} = $c;

            # "print"ing Set-Cookie is deprecated in mp2, use headers_out instead
            #      print "Set-Cookie: " . $c . "\n";
            $passwd = $arg->ArgByName("password");
        }

        if (($doc->GetOption("PASSWORD")) && ($doc->GetOption("PASSWORD") ne $passwd))
        {
            $self->ReqPassword();
        }
        else
        {
            if (!($arg->ArgByName("admin")))
            {
                $self->Base();
            }
            else
            {
                if ($arg->ArgByName("admin") eq "debug")  { $self->ShowDebug(); }
                if ($arg->ArgByName("admin") eq "source") { $self->ShowSource(); }
                if ($arg->ArgByName("admin") eq "flush")  { $self->ShowFlush(); }

                #        if($arg->ArgByName("admin") eq "test") { $self->TestBed(); }
            }
        }
    }
    return ($self);
}

sub GoodContentType
{
    my ($self, $ct) = @_;
    $self->{DOCUMENT}->{HANDLER}->content_type($ct);
}

sub CountOccur
{
    my ($str, $chr) = @_;
    $str =~ s/[^$chr]//g;
    return length($str);
}

sub int2str
{
    my ($i) = @_;

    my ($b24) = 256 * 256 * 256;
    my ($b16) = 256 * 256;
    my ($b8)  = 256;

    my ($a, $b, $c, $d) = (0, 0, 0, 0);

    if ($i >= 0)
    {
        $a = int($i / $b24);
        $i = $i % $b24;

        $b = int($i / $b16);
        $i = $i % $b16;

        $c = int($i / $b8);
        $i = $i % $b8;

        $d = $i;
    }
    else
    {
        $i = abs($i) - 1;

        $a = 255 - int($i / $b24);
        $i = $i % $b24;

        $b = 255 - int($i / $b16);
        $i = $i % $b16;

        $c = 255 - int($i / $b8);
        $i = $i % $b8;

        $d = 255 - $i;
    }

    return chr($d) . chr($c) . chr($b) . chr($a);
}

sub PadZero
{
    my ($str, $len) = @_;

    if ($len > length($str))
    {
        $str .= chr(0) x ($len - length($str));
    }

    return $str;
}

sub Pad
{
    my ($self, $str, $len) = @_;

    if ($len > length($str))
    {
        $str .= " " x ($len - length($str));
    }

    return $str;
}

sub ObjType
{
    my ($self, $obj) = @_;
    my ($objname, $crap);

    ($objname, $crap)    = split(/=/,  $obj,     2);
    ($crap,    $objname) = split("::", $objname, 2);

    return $objname;
}

sub TestBed
{
    my ($self) = shift;
    1;
}

sub ReqPassword
{
    my ($self) = shift;
    my ($doc)  = $self->{DOCUMENT};
    my ($arg)  = $self->{ARGUMENT};

    $self->BaseHead();

    print "    <h1>" . lprint("Password is incorrect or missing") . "</h1>\n";
    print "    "
      . lprint("The author of the survey document has put a password restriction on the use of the administration part")
      . ". \n";
    print "    "
      . lprint(
        "In order to continue you have to write the correct password in the text box below and click the submit button")
      . ".<br /><br />\n";
    print "    <form method=\"post\" action=\"";
    print $doc->GetOption("URI");
    print "\">\n";
    print "    <input type=\"hidden\" name=\"action\" value=\"admin\" />\n";
    print "    <input type=\"password\" name=\"password\" />\n";
    print "    <input type=\"submit\" name=\"submit\" value=\"submit\" />\n";
    print "    </form>\n";
    Survey::Slask->HtmlFoot();

    1;
}

sub printHead
{
    my ($self) = shift;

    print "<html>\n";
    print "  <head>\n";
    print "    <title>" . lprint("Survey administration") . "</title>\n";
    print "    <link rel=\"stylesheet\" type=\"text/css\" href=\""
      . $ENV{_SURVEY_ROOT_ALIAS}
      . "system/data.css\" />\n";
    print "  </head>\n";
    print "  <body>\n";
    print "    <span class=\"commonblk\"><center>\n";
    print "      <span class=\"mainhead\">" . lprint("Admin") . "</span><br />\n";
    print "    </center></span>\n";

    1;
}

sub Base
{
    my ($self) = shift;
    my ($doc)  = $self->{DOCUMENT};
    my ($arg)  = $self->{ARGUMENT};
    my ($any)  = 1;
    my ($uri1, $crap);
    $self->printHead();

    my ($uri)  = $doc->GetOption("URI");
    my (@path) = split(/\//, $uri);
    my ($fn)   = @path[@path - 1];
    ($fn, $crap) = split(/\./, $fn, 2);
    $fn = "/" . $fn;

    print "    <span class=\"commonblk\"><br />\n";
    if ($doc->GetOption("ALLOWSOURCE") eq "yes")
    {
        $uri1 = $uri . "?action=admin\&admin=source\&source=";
        print "      <span class=\"subhead\">" . lprint("View Source") . "</span><br /><br />\n";
        print "    <b>" . lprint("You can view the source as Raw (plain text) or as HTML") . " : </b><br /><br />\n";
        print "      <a href=\"" . $uri1 . "raw\">" . lprint("Access source as plain text") . "</a><br />\n";
        print "      <a href=\"" . $uri1 . "html\">" . lprint("Acess source as HTML") . "</a><br /><br />\n";
        $any = 0;
    }

    print "      <br /><span class=\"subhead\">" . lprint("Download data") . "</span><br /><br />\n";

    print lprint("The data downloads have been moved to the new") . " ";
    print "<a href=\"$uri?action=data\">" . lprint("Data module") . "</a><br /><br />\n";
    $any = 0;

    if ($doc->GetOption("ALLOWDEBUG") eq "yes")
    {
        print "      <br /><span class=\"subhead\">" . lprint("View Debug Info") . "</span><br /><br />\n";
        print "      <b>"
          . lprint("You can view some debug information about the parsing of the document")
          . " : </b><br /><br />\n";
        print "      <a href=\"" . $uri . "?action=admin\&admin=debug\">Debug information</a><br /><br />\n";
        $any = 0;
    }

    if ($doc->GetOption("ALLOWFLUSH") eq "yes")
    {
        print "      <br /><span class=\"subhead\">"
          . lprint("Remove Data / Download raw data")
          . "</span><br /><br />\n";
        print "      <b>" . lprint("You can remove all the data so far submitted : ") . "</b>\n";
        print "        <a href=\"" 
          . $uri
          . "?action=admin\&admin=flush&flush=data\">"
          . lprint("Remove all data")
          . "</a><br />";

  #    print "      <b>" . lprint("You can replace the existing data with an uploaded data file:") . "</b>";
  #    print " <a href=\"" . $uri . "?action=admin\&admin=flush&flush=upload\">" . lprint("Upload data") . "</a><br />";

        print "      <b>" . lprint("You can download the raw data file:") . "</b>";
        print " <a href=\"" 
          . $uri
          . "/AutoData.dat?action=admin\&admin=flush&flush=download\">"
          . lprint("Download data")
          . "</a> <br /><br />";

        $any = 0;
    }

    if ($any)
    {
        print "    ("
          . lprint("Unfortunately it seems like the author of the document has disallowed all administrative tasks")
          . ")";
    }

    print "      <br /><span class=\"subhead\">" . lprint("More Info") . "</span><br /><br />\n";
    print "      <b><i>"
      . lprint("Do the above not look as expected ? Try reading the documentation, available from") . "\n";
    print
"      <a href=\"http://gathering.itm.mh.se/modsurvey\">http://gathering.itm.mh.se/modsurvey</a>.</i></b><br /><br />\n";

    print "    </span>\n\n";
    print "  </body>\n";
    print "</html>\n";

    #  Survey::Slask->HtmlFoot();

    1;
}

sub ShowSource
{
    my ($self) = shift;
    my ($doc)  = $self->{DOCUMENT};
    my ($arg)  = $self->{ARGUMENT};
    my ($inlin);

    if ($doc->GetOption("ALLOWSOURCE") eq "yes")
    {
        if ($arg->ArgByName("source") eq "raw")
        {
            $self->GoodContentType('text/plain');
            if (open(FIL, $doc->GetOption("FILE")))
            {
                while ($inlin = <FIL>) { print $inlin; }
                close(FIL);
            }
            else
            {
                $self->{ERROR}     = lprint("Could not open source file");
                $self->{ERRORCODE} = 10;
            }
        }

        if ($arg->ArgByName("source") eq "html")
        {
            if (open(FIL, $doc->GetOption("FILE")))
            {
                Survey::Slask->HtmlHead();
                print "    <title>" . lprint("Source of survey ") . $doc->GetOption("TITLE") . "</title>\n";
                Survey::Slask->BodyTag();
                print "    <h1>" . lprint("Source of survey ") . "\"" . $doc->GetOption("TITLE") . "\"</h1>\n";
                print "    <pre>\n";
                while ($inlin = <FIL>)
                {
                    $inlin =~ s/\</\&lt\;/g;
                    $inlin =~ s/\>/\&gt\;/g;
                    print $inlin;
                }
                print "    </pre>\n";
                close(FIL);
                Survey::Slask->HtmlFoot();
            }
            else
            {
                $self->{ERROR}     = lprint("Could not open source file");
                $self->{ERRORCODE} = 10;
            }
        }
    }
    else
    {
        $self->{ERROR}     = lprint("ALLOWSOURCE is not set to yes");
        $self->{ERRORCODE} = 1;
    }

    1;
}

sub ShowStats
{
    my ($self) = shift;

    print "    <h1>" . lprint("Descriptive Statistics") . "</h1>\n";
    print "    " . lprint("This part of the admin interface is deprecated. The new approach for getting ");
    print lprint('descriptive statistics (and a lot of other stuff), is to use ".presentation" files.') . "\n";

    1;
}

sub ShowDebug
{
    my ($self)  = shift;
    my ($doc)   = $self->{DOCUMENT};
    my ($debug) = $doc->{DEBUG};
    my ($a, $b, $c, $d, $e);

    if ($doc->GetOption("ALLOWDEBUG") eq "yes")
    {
        print "    <title>" . lprint("SURVEY : Function not implemented") . "</title>\n";
        Survey::Slask->BodyTag();

        print "<h1>" . lprint("Benchmarks") . "</h1>\n";

        $a = $debug->GetDebugParam("BEFOREDOCTIME");
        $b = $debug->GetDebugParam("AFTERCACHETIME");
        $c = $debug->GetDebugParam("AFTERPARSETIME");
        $d = $debug->GetDebugParam("AFTERCWRITETIME");
        $e = $debug->GetDebugParam("TOTDOCTIME");

        print "<pre>\n";
        print lprint("Start time") . "        : " . $a . "\n";
        print lprint("After cache read") . "  : " . ($b || "(" . lprint("cache was not read") . ")") . "\n";
        print lprint("After doc parse") . "   : " . ($c || "(" . lprint("document was not parsed") . ")") . "\n";
        print lprint("After cache write") . " : " . ($d || "(" . lprint("cache was not written") . ")") . "\n";
        print lprint("End time") . "          : " . $e . "\n\n";

        if ($b)
        {
            print lprint("Cache read took") . "   : " . ($b - $a) . "\n";
        }

        if ($c)
        {
            print lprint("Doc parse took") . "    : " . ($c - $a) . "\n";
        }

        if ($e)
        {
            print lprint("Cache write took") . "  : " . ($d - $c) . "\n";
        }

        print lprint("Total doc time") . "    : " . ($e - $a) . "\n";

        print "\n</pre>";

        print "<hr><h1>" . lprint("Debug Messages") . "</h1>\n";
        $debug->PrintDebugMsgs();

        Survey::Slask->HtmlFoot();
    }
    else
    {
        $self->{ERROR}     = lprint("ALLOWDEBUG is not set to yes");
        $self->{ERRORCODE} = 3;
    }

    1;
}

sub FlushAscii
{
    my ($self) = shift;
    my ($doc)  = $self->{DOCUMENT};
    my ($file) = $doc->GetOption("ASCIIFILE");

    if (open(FIL, ">" . $file))
    {
        close(FIL);
    }
    else
    {

        #error
    }

    1;
}

sub FlushDbi
{
    my ($self)  = shift;
    my ($doc)   = $self->{DOCUMENT};
    my ($table) = $doc->GetOption("DBITABLE");
    my ($dsn)   = $doc->GetOption("DBIDSN");
    my ($usr)   = $doc->GetOption("DBIUSER");
    my ($psw)   = $doc->GetOption("DBIPASSWD");
    my ($dbh);

    if ($dbh = DBI->connect($dsn, $usr, $psw, { PrintError => 0, AutoCommit => 1, RaiseError => 0 }))
    {
        if (!$dbh->do("DELETE FROM " . $table . "\;"))
        {

            #error
        }
        $dbh->disconnect;
    }
    else
    {

        #error
    }

    1;
}

sub FlushKeys
{
    my ($self)    = shift;
    my ($doc)     = $self->{DOCUMENT};
    my ($dirname) = $doc->GetOption("SYSBASE");
    my (@dir, $f);

    opendir(DIR, $dirname) || return;    # Silently ignore errors here
    @dir = grep(/[0-9]+\_[0-9]+\_[0-9]+/, readdir(DIR));
    closedir(DIR);

    foreach $f (@dir)
    {
        unlink("$dirname$f");
    }
}

sub FlushUnique
{
    my ($self)    = shift;
    my ($doc)     = $self->{DOCUMENT};
    my ($dirname) = $doc->GetOption("SYSBASE");
    my (@dir, $f);

    opendir(DIR, $dirname) || return;    # Silently ignore errors here
    @dir = grep(!/[0-9]+\_[0-9]+\_[0-9]+/, readdir(DIR));
    @dir = grep(!/AutoData\.dat/,          @dir);
    @dir = grep(!/^\.+/,                   @dir);
    closedir(DIR);
    foreach $f (@dir)
    {
        unlink("$dirname$f");
    }
}

sub ShowFlush
{
    my ($self) = shift;
    my ($doc)  = $self->{DOCUMENT};
    my ($arg)  = $self->{ARGUMENT};

    if ($doc->GetOption("ALLOWFLUSH") eq "yes")
    {
        if ($arg->ArgByName("flush") eq "upload")
        {
            if ($arg->ArgByName("file"))
            {
                my ($upl) = Survey::Upload->new();
                print "<html>\n";
                print "  <head>\n";
                print "    <title>" . lprint("SURVEY: File uploaded") . "</title>";
                Survey::Slask->BodyTag();
                print "<h1>File uploaded</h1>\n";
            }
            else
            {
                my ($uri) = $doc->GetOption("URI");

                print "<html>\n";
                print "  <head>\n";
                print "    <title>" . lprint("SURVEY: Upload raw data") . "</title>\n";
                print "  </head>\n";

                Survey::Slask->BodyTag();

                print "<h1>Upload data</h1>\n";

                print "<form action=\"$uri\" method=\"POST\" enctype=\"multipart/form-data\">\n";
                print "<input type=\"file\" name=\"filename\" />\n";
                print "<input type=\"submit\" name=\"submit\" value=\"Upload\" />\n";
                print "</form>\n";
            }
        }

        if ($arg->ArgByName("flush") eq "download")
        {
            $doc->{HANDLER}->content_type("application/mod_survey");

            #$doc->{HANDLER}->content_type("text/plain");

            my ($fn) = $doc->GetOption("ASCIIFILE");

            my ($inlin);
            open(FIL, $fn);
            while ($inlin = <FIL>)
            {
                print $inlin;
            }
            close(FIL);
        }

        if ($arg->ArgByName("flush") eq "data")
        {
            if (!$arg->ArgByName("confirm"))
            {
                print "    <title>" . lprint("SURVEY : Confirm Flush") . "</title>";
                Survey::Slask->BodyTag();
                print "    <h1>" . lprint("Are you really, REALLY sure you want to remove all data ?") . "</h1>\n";
                print "    <br /><br />\n";
                print "    <h3><a href=\"";
                print $doc->GetOption("URI") . "?";
                print "action=admin";
                print "\&admin=flush";
                print "\&flush=data";
                print "\&confirm=1";
                print "\">" . lprint("Yes, I'm sure") . "</a></h3><br /><br />\n";
            }
            else
            {
                if ($doc->GetOption("ASCIIFILE")) { $self->FlushAscii(); }
                if ($doc->GetOption("DBITABLE"))  { $self->FlushDbi(); }
                print "    <title>" . lprint("SURVEY : Data removed") . "</title>";
                Survey::Slask->BodyTag();
                print "    <h1>" . lprint("All data is now removed") . "</h1><br /><br />";
                print "    <a href=\"" . $doc->GetOption("URI") . "?action=admin";
                print "\">" . lprint("Back to administration") . "</a><br /><br />\n";
                $self->FlushUnique();
                $self->FlushKeys();
            }
        }

        if ($arg->ArgByName("flush") eq "cache")
        {
            if ($doc->GetOption("SENSIBLE"))
            {
                system "rm -f " . $doc->GetOption("SYSBASE") . ".cache*";
                system "rm -f " . $doc->GetOption("SYSBASE") . ".display.cache";
            }
            else
            {
                system "del " . $doc->GetOption("SYSBASE") . ".cache*";
                system "del " . $doc->GetOption("SYSBASE") . ".display.cache";
                system "del " . $doc->GetOption("SYSBASE") . "*.cache*";
                system "del " . $doc->GetOption("SYSBASE") . "*.display.cache";
            }
            print "    <title>" . lprint("SURVEY : Cache removed") . "</title>";
            Survey::Slask->BodyTag();
            print "    <h1>" . lprint("The cache is now removed") . "</h1><br /><br />";
            print "    <a href=\"" . $doc->GetOption("URI") . "?action=admin";
            print "\">" . lprint("Back to administration") . "</a><br /><br />\n";
        }

        if ($arg->ArgByName("flush") ne "download")
        {
            Survey::Slask->HtmlFoot();
        }
    }
    else
    {
        $self->{ERROR}     = lprint("ALLOWFLUSH is not set to yes");
        $self->{ERRORCODE} = 4;
    }

    1;
}

sub Error
{
    my ($self) = shift;
    return $self->{ERROR};
}

sub PrintErrorDescription
{
    my $self = shift;

    my ($e)     = $self->{ERRORCODE};
    my ($found) = 0;

    my ($lb) = "<b>\&lt\;";
    my ($rb) = "\&gt\;</b>";

    print "    <br /><br />\n    ";

    if ($e)
    {
        if ($e eq 1)
        {
            print "<b><i>[" . lprint("ADMIN ERROR 1, ALLOWSOURCE IS NOT SET TO YES") . "]</i></b> ";
            print lprint(
"The requested administrative task (to view the source of the survey) is not permitted, since the parameter ALLOWSOURCE (in the SURVEY tag) is not explicitly set to yes. "
            );
            print lprint(
"All administrative tasks are disallowed per default and has to be explicitly permitted to be available.");
            $found = 1;
        }
        if ($e eq 2)
        {
            print "<b><i>[" . lprint("ADMIN ERROR 2, ALLOWSTATS IS NOT SET TO YES") . "]</i></b> ";
            print lprint(
"The requested administrative task (to view statistics about the data) is not permitted, since the parameter ALLOWSTATS (in the SURVEY tag) is not explicitly set to yes. "
            );
            print lprint(
"All administrative tasks are disallowed per default and has to be explicitly permitted to be available.");
            $found = 1;
        }
        if ($e eq 3)
        {
            print "<b><i>[" . lprint("ADMIN ERROR 3, ALLOWDEBUG IS NOT SET TO YES") . "]</i></b> ";
            print lprint(
"The requested administrative task (to view debug info about the survey) is not permitted, since the parameter ALLOWDEBUG (in the SURVEY tag) is not explicitly set to yes. "
            );
            print lprint(
"All administrative tasks are disallowed per default and has to be explicitly permitted to be available.");
            $found = 1;
        }
        if ($e eq 4)
        {
            print "<b><i>[" . lprint("ADMIN ERROR 4, ALLOWFLUSH IS NOT SET TO YES") . "]</i></b> ";
            print lprint(
"The requested administrative task (clear all data) is not permitted, since the parameter ALLOWFLUSH (in the SURVEY tag) is not explicitly set to yes. "
            );
            print lprint(
"All administrative tasks are disallowed per default and has to be explicitly permitted to be available.");
            $found = 1;
        }
        if ($e eq 5)
        {
            print "<b><i>[" . lprint("ADMIN ERROR 5, ALLOWDATA IS NOT SET TO YES") . "]</i></b> ";
            print lprint(
"The requested administrative task (to view te data of the survey) is not permitted, since the parameter ALLOWDATA (in the SURVEY tag) is not explicitly set to yes. "
            );
            print lprint(
"All administrative tasks are disallowed per default and has to be explicitly permitted to be available.");
            $found = 1;
        }
        if ($e eq 6)
        {
            print "<b><i>[" . lprint("ADMIN ERROR 6, COULD NOT OPEN ASCIIFILE FOR READING") . "]</i></b> ";
            print lprint(
                       "Something went wrong when the program tried to access the ASCIIFILE (set in the SURVEY tag). ");
            print lprint("Please check that it exists and that it is readable by the web user.");
            $found = 1;
        }
        if ($e eq 7)
        {
            print "<b><i>[" . lprint("ADMIN ERROR 7, A DBI ERROR OCCURED") . "]</i></b> ";
            print lprint("An error occured while trying to interact with the DBI database. ");
            print lprint(
"Quite a lot of things can go wrong here, so you will have to try to interpret the error message printed above.");
            $found = 1;
        }
        if ($e eq 8)
        {
            print "<b><i>[" . lprint("ADMIN ERROR 8, NO DATA") . "]</i></b> ";
            print lprint("There is no data submitted, so the administrative task requested is not applicable.");
            $found = 1;
        }
        if ($e eq 9)
        {
            print "<b><i>[" . lprint("ADMIN ERROR 9, NOT EXPORTING TO ASCIIFILE") . "]</i></b> ";
            print lprint("The ASCIIFILE parameter is not set, so the administrative task requested is not applicable.");
            $found = 1;
        }
        if ($e eq 10)
        {
            print "<b><i>[" . lprint("ADMIN ERROR 10, COULD NOT OPEN SOURCE FILE") . "]</i></b> ";
            print lprint(
                "The program could not open the survey source file. This is one of the errors that should never occur. "
            );
            print lprint("If it does anyway, please check ownership and persmissons on the source file.");
            $found = 1;
        }
        if ($e eq 11)
        {
            print "<b><i>[" . lprint("ADMIN ERROR 11, IS NOT ADMINUSER") . "]</i></b> ";
            print lprint(
"When ADMINUSER is set as a parameter in the SURVEY tag, you have to authenticate (through Apache's \"Basic\" authentication) as that user. "
            );
            print lprint(
"If you have authenticated as another user alredy, you will probably have to close your browser, re-open it and try again."
            );
            $found = 1;
        }

        if (!$found)
        {
            print lprint("This error is not in the knowledge base, so I guess the programmer has made a mistake.");
        }
    }
    else
    {
        print "<i>[" . lprint("ARGUMENT ERROR 0, NO ERROR") . "]</i> ";
        print lprint(
                "No error has occured, but the programmer has for some reason called PrintErrorDescription() anyway. ");
        print lprint("I guess the programmer has again made a mistake, something that is a very common event indeed.");
    }
    print "\n    <br /><br />\n";

    1;
}

1;