#!/usr/bin/perl
###################################################################################
#                                                                                 #
#                   PerlDesk - Customer Help Desk Software                        #
#                                                                                 #
###################################################################################
#                                                                                 #
#     Author: John Bennett	                                                  #
#      Email: j.bennett@perldesk.com                                              #
#        Web: http://www.perldesk.com                                             #
#   Filename: pdesk.cgi                                                           #
#    Details: User Help Desk File                                                 #
#    Release: 1.8                                                                 #
#   Revision: 01                                                                  #
#                                                                                 #
###################################################################################
# Please direct bug reports,suggestions or feedback to the perldesk forums.       #
# www.perldesk.com/board                                                          #
#                                                                                 #
# (c) PerlDesk (JBSERVE LTD) 2002/2003                                            #
# PerlDesk is protected under copyright laws and cannot be resold, redistributed  # 
# in any form without prior written permission from JBServe LTD.                  #
#                                                                                 #
# This program is commercial and only licensed customers may have an installation #
################################################################################### 
# REQUIRED MODULES

 use CGI qw(:standard);                                 
 use DBI();                                             
 use Digest::MD5;

# DEBUGGING MODULE

use CGI::Carp qw(fatalsToBrowser set_message);   # ONLY TO BE USED FOR DEBUGGING

# USE STRICT AND WARNINGS

 use strict;
# use warnings;   # FOR PERL 5.6 > 

############################################
# FILE UPLOADS                             #
                                           #
   $CGI::DISABLE_UPLOADS = 0;              #
   $CGI::POST_MAX        = 500 * 1024;     #
                                           #
############################################
  
 use vars qw[ $dbh $language $bypass $dbname $dbhost $dbuser $dbpass $WIN $global %global $q %template ]; 


 use lib 'include/mods';
 use Mail::Sender;

 require "include/pd.cgi";
 require "include/conf.cgi";

   my $FILENAME = "pdesk.cgi";
 
eval
 {

   $dbh   =  DBI->connect("DBI:mysql:$dbname:$dbhost","$dbuser","$dbpass") or script_fatal("Sorry, PerlDesk was unable to establish a connection with the database. Please check that you have set the variables in the conf.cgi file correctly<br><br><i>include/conf.cgi - Unable to establish database connection</i><br><br><b>Possible Causes<br><ul><li>Invalid Database Name/Username/Password Specified</li><li>Database Fields not entered in configuration file</li><li>Database is not running</li></ul>")   if $WIN != "1";
   $dbh   =  DBI->connect("DBI:mysqlPP:$dbname:$dbhost","$dbuser","$dbpass") or script_fatal("Sorry, PerlDesk was unable to establish a connection with the database. Please check that you have set the variables in the conf.cgi file correctly<br><br><i>include/conf.cgi - Unable to establish database connection</i><br><br><b>Possible Causes<br><ul><li>Invalid Database Name/Username/Password Specified</li><li>Database Fields not entered in configuration file</li><li>Database is not running</li></ul>") if $WIN == "1";
    %global   =  get_vars();                                    
   $q        =  CGI->new();                         
     
   die_nice("Sorry, the file you are attempting to upload is above the specified file size limit") if $q->cgi_error =~ m/413/;

   &get_time();
   
   $language = $q->param('lang');
   $language = $global{'language'} if !$language;            

    require "include/subs.cgi";             # Get the Required Files  
    require "include/lang/$language.inc";   # Get the specified lang file
    require "include/parse/user.cgi";       # The template parsing 

    navigate();   
                          # Run the program
  
   $dbh->disconnect;
 };

if ($@) {                                               
           script_error("$@");              # There was an error, Make a quick exit!
           exit;
        }                                                        


sub navigate 
 { 

      $template{'mainfile'} = $FILENAME; 
      section($q->param('do')) if defined $q->param('do');

        if (!$q->param('do')) {  $bypass=1; section("login");   }
        exit;	
 }