#!/usr/local/bin/perl


use CGI qw / -no_debug :all -oldstyle_urls /;
use CGI::Carp 'fatalsToBrowser';

$CGI::POST_MAX               = 1024 * 100;
$CGI::DISABLE_UPLOADS        = 1;

use CGI;
$query = new CGI;

$subkom	=$query->param(subkom);
$kom	=$query->param(kom);
$jezyk	=$query->param(jezyk);

$poz=$query->param(poz);



# PLIK LANGUAGEHOUSE.pl



#######################################################################

print "Content-type: text/html\n\n";



# --- wyklucz konkurencje ---
	open (FILE, "konkurencja.txt") or die "Nie mogę otworzyć pliku: konkur";
	flock  FILE,   LOCK_EX;
		@dane=<FILE>;
	close FILE;
			foreach $x (@dane)	{				#glowna petla foreach
				@pole=split("\#",$x);
				$ip=$pole[0];
				unless ($ENV{'REMOTE_ADDR'} eq "$ip") {} else {&wczytaj_strone("../biuro/error_404.html"); &zapisz_wizyte($ENV{'REMOTE_ADDR'});} 
			}


# --- ---- ---- 
#print "$ENV{'REMOTE_ADDR'}";
#unless ($ENV{'REMOTE_ADDR'} eq "83.14.123.62") {} else {&wczytaj_strone("../biuro/error_404.html");} 
$ip="$ENV{'REMOTE_ADDR'}";
#if ( $ip eq "83.14.123.62" || $ip eq "83.29.66.181" || $ip eq "83.29.35.12" || $ip eq "83.7.245.161" || $ip eq "83.7.254.100"  || $ip eq  "83.7.214.73") {} else {&wczytaj_strone("../biuro/error_404.html");} 







# ----------------------------

if ($kom eq "kursy") { {&wczytaj_strone("../biuro/kursy.html");	      } }
if ($kom eq "kursy_standardowe") { {&wczytaj_strone("../biuro/kursy_standardowe.html");	      } }
if ($kom eq "kursy_maturalne") { {&wczytaj_strone("../biuro/kursy_maturalne.html");	      } }
if ($kom eq "kursy_weekendowe") { {&wczytaj_strone("../biuro/kursy_weekendowe.html");	      } }
if ($kom eq "kursy_dla_dzieci") { {&wczytaj_strone("../biuro/kursy_dla_dzieci.html");	      } }
if ($kom eq "kursy_dla_wyjezdzajacych") { {&wczytaj_strone("../biuro/kursy_dla_wyjezdzajacych.html");	      } }

if ($kom eq "kursy_dla_firm") { {&wczytaj_strone("../biuro/kursy_dla_firm.html");	      } }

if ($kom eq "grupy") { {&wczytaj_strone("../biuro/grupy.html");	      } }
if ($kom eq "lektorzy") { {&wczytaj_strone("../biuro/lektorzy.html");	      } }
if ($kom eq "metoda") { {&wczytaj_strone("../biuro/metoda.html");	      } }
if ($kom eq "poziomy") { {&wczytaj_strone("../biuro/poziomy.html");	      } }
if ($kom eq "wnetrza") { {&wczytaj_strone("../biuro/wnetrza.html");	      } }
if ($kom eq "jak_do_nas_trafic") { {&wczytaj_strone("../biuro/jak_do_nas_trafic.html");	      } }
if ($kom eq "cennik") { {&wczytaj_strone("../biuro/cennik.html");	      } }

if ($kom eq "gratisy") { {&wczytaj_strone("../biuro/gratisy.html");	      } }
if ($kom eq "gratisy_podrecznik") { {&wczytaj_strone("../biuro/gratisy_podrecznik.html");	      } }
if ($kom eq "gratisy_internet") { {&wczytaj_strone("../biuro/gratisy_internet.html");	      } }
if ($kom eq "gratisy_konwersacje") { {&wczytaj_strone("../biuro/gratisy_konwersacje.html");	      } }
if ($kom eq "gratisy_konto_e_mail") { {&wczytaj_strone("../biuro/gratisy_konto_e_mail.html");	      } }
if ($kom eq "gratisy_klub_filmowy") { {&wczytaj_strone("../biuro/gratisy_klub_filmowy.html");	      } }
if ($kom eq "gratisy_biblioteka") { {&wczytaj_strone("../biuro/gratisy_biblioteka.html");	      } }
if ($kom eq "gratisy_czytelnia") { {&wczytaj_strone("../biuro/gratisy_czytelnia.html");	      } }
if ($kom eq "gratisy_test") { {&wczytaj_strone("../biuro/gratisy_test.html");	      } }
if ($kom eq "gratisy_konsultacje") { {&wczytaj_strone("../biuro/gratisy_konsultacje.html");	      } }

if ($kom eq "zapisz_sie") { {&wczytaj_strone("../biuro/zapisz_sie.html");	      } }
if ($kom eq "egzaminy") { {&wczytaj_strone("../biuro/egzaminy.html");	      } }

if ($kom eq "kontakt") { {&wczytaj_strone("../biuro/kontakt.html");	      } }

# ----------------------------



sub zapisz_wizyte {
($ip)=@_;
	open (FILE, ">>../biuro/wizyty_konkurencji.txt") or die "Nie mogę otworzyć pliku: konkur";
	flock  FILE,   LOCK_EX;
	print FILE "$ip\n"; 
	close FILE;
}

sub wczytaj_strone {
	($nazwa_strony)=@_;

	open (FILE, "$nazwa_strony");
		@dane=<FILE>;
		print @dane;
	exit;
}