#!/usr/bin/perl ## ------------------------------------------------------- ## MultiSayac v0.5 © 18/08/2001 ## http://www.galipberk.tr.cx gberk@ixir.com ## ------------------------------------------------------- ## Dosyalar: dinamix.pl (CHMOD=755) ## ipx.dat (CHMOD=644) ## gunlux.dat (CHMOD=644) ## dsayx.dat (CHMOD=644) ## ------------------------------------------------------- ## Ucretsiz olarak dagitilmaktadir. Para karsiligi ## satilmasi yasaktir. ## ------------------------------------------------------- ## Galip Berk (Aelius MaXimus) ## ------------------------------------------------------- ## Kullanımı; ## 1- ## ## 2- (sayfanızın uzantısı .shtml olmalı ##--------------------------------------------------------------------- ####################################################################### # Önemli not: (Bu adreslerde hertürlü webmaster içeriği mevcuttur. Lütfen ziyaret edin) # Aktif kullanıcı; Mesut Akcan (http://kaynak.cjb.net) tarafından yazıldı. # Günlük ziyaretçi sayacı; Chi Kien Uong (http://proxy2.de) tarafından yazıldı. # Standart Sayaç; Aelius Maximus (Galip Berk, http://www.aelius.f2s.com) tarafından yazıldı. # Bu açıklamayı emeğe saygı açısından yazıyorum lütfen bu bilgileri silmeyerek sizde emeğe saygı gösterin, #Bugun bize yarın size.... Teşekkürler ###################################################### print "Content-type: text/html\n\n"; ############ Aktif Kullanıcıyı Hesapla ############### $url = $ENV{'SCRIPT_NAME'}; $ip = $ENV{'REMOTE_ADDR'}; # sayfaya gelenin IP no su $tol=60; #sayfa yenileme süresi saniye olarak $saat=time; open (DOSYA,'ipx.dat'); #flock(DOSYA,2); # problem olursa özellikle yoğun # ziyaretçileriniz varsa dosyayı kilitleyin @metin = ; #flock(DOSYA,8); # kilidi kaldır close (DOSYA); foreach $satir (@metin) { chop($satir); # satır sonundaki \n (yeni satır) ı sil ($dsaat,$dip)= split('=',$satir); #satırı = den böl if ($ip ne $dip){ # kullanıcı ip i dosyadaki ip e eşitdeğilse # dosyada kayıtlı ip varsa önemseme # çünkü yeni birtane eklenecek $f = time-$dsaat; # şimdiki saat ile dosyadaki kayıtlı saat farkı if ( ($f <$tol) && ( $f >0 ) ){ # fark tazelemeden küçük ve 0 dan büyükse push @ymetin, $satir # bu satırı al diğerlerini at } } } $deg="$saat=$ip"; # aktif saat ve IP push @ymetin,$deg; $azs=$#ymetin; $azs++; # aktif ziyaretçi sayısı open (DOSYA,">ipx.dat"); #flock(DOSYA,2); foreach $satir (@ymetin) { print DOSYA "$satir\n"; } #flock(DOSYA,8); close (DOSYA);################ Aktif Kullanıcı Hesabı Sonu ############## ################ Gunluk Ziyaretçi Sayısı Başla ############ $gunluk = 'gunlux.dat'; @months = ('Ocak','Şubat','Mart','Nisan','Mayıs','Haziran','Temmuz','Ağustos','Eylül','Ekim','Kasım','Aralık'); ($sec,$min,$hour,$mday,$mon,$year) = (localtime(time))[0,1,2,3,4,5]; $mday = "0$mday" if ($mday < 10); $year += 1900; $this_day = ("$mday-$months[$mon]-$year"); open (FILE, "$gunluk"); $test = ; chop($test); $count = ; close (FILE); if ($this_day eq "$test") { $count++; } else { $count=1; } open (FILE,">$gunluk") || die $!; print FILE "$this_day\n$count"; close (FILE); ################ Ziyaretçi Sayısını Hesapla ############### $dosya= 'dsayx.dat'; $say = 0; if (open(MAX,$dosya)) { $say=; close(MAX); } $say++; ############# Ekran Çıktısı ############ print ""; print ""; print "

"; print ""; print " Bugün $count Toplam $say defa ziyaret edildi
"; print "

"; open(MAX,">$dosya"); print MAX $say; close(MAX);