view release on metacpan or  search on metacpan

lib/Maplat/Web.pm  view on Meta::CPAN

# MAPLAT  (C) 2008-2011 Rene Schickbauer
# Developed under Artistic license
# for Magna Powertrain Ilz

package Maplat::Web;
use strict;
use warnings;
use base qw(HTTP::Server::Simple::CGI);
use English '-no_match_vars';

# ------------------------------------------
# MAPLAT - Magna ProdLan Administration Tool
# ------------------------------------------
#   Command-line Version
# ------------------------------------------

our $VERSION = 0.995;

use Template;
use Data::Dumper;
use FileHandle;
use Socket;
use Data::Dumper;
use Maplat::Helpers::Mascot;
use Module::Load;
#use IO::Socket::SSL;

#=!=START-AUTO-INCLUDES
use Maplat::Web::Accesslog;
use Maplat::Web::AutoDialogs;
use Maplat::Web::BaseModule;
use Maplat::Web::BrowserWorkarounds;
use Maplat::Web::CommandQueue;
use Maplat::Web::ComputerDB::Computers;
use Maplat::Web::ComputerDB::GlobalCostunits;
use Maplat::Web::ComputerDB::GlobalOperatingSystem;
use Maplat::Web::ComputerDB::GlobalProdlines;
use Maplat::Web::Debuglog;
use Maplat::Web::DirCleaner;
use Maplat::Web::DocsSearch;
use Maplat::Web::DocsSpreadSheet;
use Maplat::Web::DocsWordProcessor;
use Maplat::Web::Errors;
use Maplat::Web::FileMan;
use Maplat::Web::FiltertableSupport;
use Maplat::Web::Logging::Devices;
use Maplat::Web::Logging::Graphs;
use Maplat::Web::Logging::Report;
use Maplat::Web::Login;
use Maplat::Web::LogoCache;
use Maplat::Web::MapMaker;
use Maplat::Web::MemCache;
use Maplat::Web::MemCachePg;
use Maplat::Web::MemCacheSim;
use Maplat::Web::OracleDB;
use Maplat::Web::PathRedirection;
use Maplat::Web::PostgresDB;
use Maplat::Web::PreventGetWithArgs;
use Maplat::Web::RootFiles;
use Maplat::Web::SendMail;
use Maplat::Web::SessionSettings;
use Maplat::Web::StandardFields;
use Maplat::Web::StaticCache;
use Maplat::Web::Status;
use Maplat::Web::TT::Translate;
use Maplat::Web::TemplateCache;
use Maplat::Web::Themes;
use Maplat::Web::Translate;
use Maplat::Web::UserSettings;
use Maplat::Web::VNC;
use Maplat::Web::VariablesADM;
use Maplat::Web::WebApps;
#=!=END-AUTO-INCLUDES

use Carp;

my %httpstatuscodes = (
    100 => "Continue",
    101 => "Swicthing Protocols",
    200 => "OK",
    201 => "Created",
    202 => "Accepted",
    203 => "Non-Authoritive Information",
    204 => "No Content",
    205 => "Reset Content",
    206 => "Partial Content",