www.2xlnt.com

#!/usr/bin/perl -w 
$| = 1; 
 
use CGI::Carp qw(fatalsToBrowser); 
 
############################################################################### 
############################################################################### 
# WebAPP - Automated Perl Portal							    # 
#												     # 
# Copyright (C) 2002 by Carter (carter@mcarterbrown.com)			    # 
#												     # 
# 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; if not, write to the Free Software Foundation, Inc.,     # 
# 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.		   # 
#												     # 
# Last modified: 05/13/02								     # 
############################################################################### 
############################################################################### 
 
use vars qw($scriptname $anonuser @months @days); 
 
eval { 
   require "../../config.pl"; 
   require "$sourcedir/subs.pl"; 
   require "config.dat"; 
}; 
if ($@) { 
   print "Content-type: text/html\n\n"; 
   print qq~<h1>Software Error:</h1> 
Execution of <b>$scriptname</b> has been aborted due a compilation error:<br> 
<pre>$@</pre> 
<p>If this problem persists, please contact the webmaster and inform him about date and time you've received this error.</p> 
~; 
   exit; 
} 
 
$anonuser = "Guest"; 
@months = qw(January February March April May June July August September October November December); 
@days = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday); 
 
getcgi(); 
getdate(); 
loadcookie(); 
loaduser(); 
logips(); 
&ban; 
logvisitors(); 
&getver; 
 
#################################### 
# A Wonderful Mod By Me! 
#################################### 
 
if ($lang_support eq "1") { mod_langsupp(); } 
 
< -The Bulk of Your script Goes Here, Then finish like...- > 
 
################## 
sub mod_langsupp { 
################## 
 
   my $modlang = $userlang; 
   $modlang =~ s/\.lng$//; 
 
   eval { 
      require "language/$modlang.dat"; 
   }; 
 
   if ($@) { mod_langsuppfail();} 
 
} 
 
###################### 
sub mod_langsuppfail { 
###################### 
 
   eval { 
      require "language/$mod_lang"; 
   }; 
   if ($@) { 
      print "Content-type: text/html\n\n"; 
print qq~<h1>Software Error:</h1> 
Execution of <b>$scriptname</b> has been aborted due a compilation error:<br> 
<pre>$@</pre> 
<p>If this problem persists, please contact the webmaster and inform him about date and time you've received this error.</p> 
~; 
   exit; 
   } 
 
} 
 
1;