#!/usr/bin/perl use CGI qw(:all escape); use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use Cwd; use DBI; use DBD::mysql; use XML::Parser::Expat; use GD; #use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); #use Getopt::Std; #use Archive::Zip::Tree; #use Compress::Zlib (); #use Perl6::Form; #eval('use encoding \'iso-8859-2\';'); #eval('use Encode qw/encode decode/;'); #no utf8; #use bytes; require 'func_db.pl'; # FUNKCJE BAZODANOWE &getformdata; if($czy_zdjecie ne 'yes') { if($lang eq 'pl'){require 'format_html_pl.pl';}else {if($lang eq 'en'){require 'format_html_en.pl';}else {if($lang eq 'de'){require 'format_html_de.pl';} } } } &ini_set; &data_connect; &zawartosc; &data_disconnect; if($hd ne 'no') { print "Content-type: text/html\r\n\r\n"; } if($czy_zdjecie eq 'yes') { print "Content-type: image/jpeg\r\n\r\n"; } else { #$content=~s/\n/ /g; $content=~s/\t//g; } print $content; if($hd ne 'no') { print " "; } sub getformdata { $query = new CGI; $sw=$query->param('sw'); $page=$query->param('page'); $subpage=$query->param('subpage'); $lang=$query->param('lang'); if(length($lang)!=2){$lang='pl'} $hd=$query->param('hd'); # czy naglowek header no -> nie $uppath=$query->param('uppath'); # czy wychodzimy grafika (../) x uppath $page=$query->param('page'); $biuroid=$query->param('biuroid'); $innerid=$query->param('innerid'); $czy_zdjecie=$query->param('photo'); } sub ini_set { #$szt=5; $br=user_agent(); $program=script_name(); $cur_host=remote_host(); # data i godzina ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); @months = $min=sprintf("%02d", $min); $sec=sprintf("%02d", $sec); $year+=1900; $mon+=1; if (length($mon)<2) {$mon='0'.$mon;} $yday+=1; if (length($mday)<2) {$mday='0'.$mday;} if (length($hour)==1){$hour='0'.$hour} $godzina=$hour.':'.$min.':'.$sec; $data = $year.'-'.$mon.'-'.$mday; if($lang eq 'pl') {require 'daty_pl.pl';} else { if($lang eq 'en') {require 'daty_en.pl';} if($lang eq 'de') {require 'daty_de.pl';} } if ($cur_host eq '127.0.0.1') { $bazadanych = 'DBI:mysql:modex'; $uzytkownik = ''; $haslo = ''; $txtpath = '..'; $def_web='/Modex'; } else { $bazadanych = 'DBI:mysql:database=lm120086_baza_pwmodex'; $uzytkownik = 'lm120086_user'; $haslo = 'wojwoj3016'; $txtpath = '../..'; $def_web=''; if(length($uppath)==0){$uppath=1}; } if($uppath>0){$webpath='../' x $uppath}else{$webpath=$def_web} } sub zawartosc { $ss="SET names latin2"; $sth = $dbh->prepare($ss); eval('$sth->execute()|| die "Could not execute SQL statement ... maybe invalid???";'); if($photo ne 'yes') { &nabij_licznik; } if($czy_zdjecie eq 'yes') { my $WB=$query->param('wb'); my $Io=$query->param('Io'); if(($WB gt ' ')or($Io==1)) { require 'photo.pl'; } else { require '__photo.pl'; #die; } } else { if ($page eq 'main') {require 'page_main_'.$lang.'.pl';} elsif($page eq 'ubezpieczenia') {require 'page_ubezpieczenia_'.$lang.'.pl';} elsif($page eq 'info') {require 'page_info_'.$lang.'.pl';} elsif($page eq 'formularz') {require 'page_form_'.$lang.'.pl';} elsif($page eq 'galeria') {require 'page_galeria_'.$lang.'.pl';} elsif($page eq 'kalkulator') {require 'page_kalkulator_'.$lang.'.pl';} elsif($page eq 'forumnieruchomosci') {require 'page_info_'.$lang.'.pl';} elsif($page eq 'forumturystyczne') {require 'page_info_'.$lang.'.pl';} elsif($page eq 'uslugi') {require 'page_uslugi_'.$lang.'.pl';} elsif($page eq 'licencja') {require 'page_licencja_'.$lang.'.pl';} elsif($page eq 'ofertyturystyczne') {require 'page_ofertyturystyczne_'.$lang.'.pl';} elsif($page eq 'intro') {require 'page_intro_'.$lang.'.pl';} elsif($page eq 'search') {require 'page_search_'.$lang.'.pl';} elsif($page eq 'ofirmie') {require 'page_ofirmie_'.$lang.'.pl';} elsif($page eq 'nieruchomosci') {require 'page_nieruchomosci_'.$lang.'.pl';} elsif($page eq 'oferty') {require 'page_oferty_'.$lang.'.pl';} elsif($page eq 'agencje') {require 'page_agencje_'.$lang.'.pl';} elsif($page eq 'developerzy') {require 'page_developerzy_'.$lang.'.pl';} elsif($page eq 'ogloszenia') {require 'page_ogloszenia_'.$lang.'.pl';} elsif($page eq 'specjalne') {require 'page_specjalne_'.$lang.'.pl';} elsif($page eq 'results') {require 'page_results_'.$lang.'.pl';} elsif($page eq 'details') {require 'page_details_'.$lang.'.pl';} elsif($page eq 'photo') {require 'photo2.pl';} elsif($page eq 'photos') {require 'photos.pl';} elsif($page eq 'kontakt') {require 'page_kontakt_'.$lang.'.pl';} elsif($page eq 'pomoc') {require 'page_pomoc_'.$lang.'.pl';} elsif($page eq 'kredyty') {require 'page_kredyty_'.$lang.'.pl';} elsif($page eq 'informacje') {require 'page_informacje_'.$lang.'.pl';} elsif($page eq 'specjalne') {require 'page_spec_'.$lang.'.pl';} elsif($page eq 'komentarze') {require 'page_komentarze_'.$lang.'.pl';} elsif($page eq 'faq') {require 'page_faq_'.$lang.'.pl';} elsif($page eq 'polecam') {require 'page_polecam_'.$lang.'.pl';} else { &strona_pusta; }; } } sub nabij_licznik { $virtual_addr=$query->param('ra'); $virtual_host=$query->param('rh'); if($virtual_addr le ' '){$virtual_addr=$cur_host;} my($ss, $sth); my(@row,$rek,$rekord); my $ile_jest=0; # pobierz ostatni licznik $licznik=100; $ss="select counter from licznik order by counter DESC limit 1"; $sth = $dbh->prepare($ss); $sth->execute()|| die "Could not execute SQL statement ... maybe invalid???"; while (@row=$sth->fetchrow_array) { $rekord = @row; $rek=''; foreach $rekord (@row) {$rek.=$rekord;$rek.='|';} ($licznik)=split(/\|/,$rek); } # czy dzis byl juz ten gosc $ss="select count(*) from licznik where cur_host=? and data='$data';"; $sth = $dbh->prepare($ss); $sth->execute( $virtual_addr )|| die "Could not execute SQL statement ... maybe invalid???"; while (@row=$sth->fetchrow_array) { $rekord = @row; $rek=''; foreach $rekord (@row) {$rek.=$rekord;$rek.='|';} ($ile_jest)=split(/\|/,$rek); } if($ile_jest==0) { # wstawiamy goscia i zwiekszamy licznik $licznik+=1; $ss="insert into licznik (dzial, counter, data, godzina, cur_host) VALUES (?, ?, ?, ?, ?);"; $sth = $dbh->prepare($ss); $sth->execute( $page, $licznik, $data, $godzina, $virtual_addr )|| die "Could not execute SQL statement ... maybe invalid???"; } #$licznik=('0' x (7-length($licznik))).$licznik; } sub strona_pusta { $content.=qq! Pusty dokument - Empty document Podana strona nie istnieje | Given page does not exist.

Przejdz do | Go directly to :

www.modex.pl !; }