Home || User
Agent List Pt.1 || Pt.2 || Pt.3
|| Banners || Feedback & Additions || E-Mail
|
|
|
Search engine optimization forums & information |
|
Learn HTML tags including form, frames, and tables with help from this free reference. |
|
|
A really comprehensive link list. |
How to defeat bad web robots with apache |
|
Photoshop tutorials and web design. |
|
analyzes a robots.txt file to see if it is a "valid" file as established by Robots Exclusion Standard. | |
is intended to be a forum for the discussion of search engine optimization and search engines. | |
Tools to create .htaccess files and a tutorial to get you started. |
|
|
Ethical Search Engine Optimization (SEO) for the long term success for your website. Keyword research, SEO strategy, link building techniques and consultancy services. |
This website offers loads of information about search engines and SE optimization. It contains information for both beginning and experienced optimizers. | |
Search Engine Watch provides tips and information about searching the web, analysis of SE's and more. | |
Search engine marketing news. Fresh. Not frozen. | |
Search Engine Optimization Book is a blog which provides daily search engine news. |
|
Your source for free, high quality search engine optimization tools. |
|
Web authoring reference, tools, links, validators. Worth a visit - before your page looks like mine. |
|
Eliminate Spyware, PopUps, and Evidence that could be used against you! | |
Buy and sell text links. | |
The open-source and free crawler tracking script, using PHP and MySQL. |
|
Ten Spider Business Center information pages about search engines crawlers and bots. |
|
© 2002-2011 Andreas Staeding |
a Psychedelix.com product |
Home || User Agent List Pt.1 || Pt.2 || Pt.3 || Banners || Feedback & Additions || E-Mail
#!/usr/bin/perl
########################################################################
# Advance Logger (c) Perlonline.com 2001=2004 #
# author : Farid S. Kapasi (farid@perlonline.com) #
# #
# UNAUTHORISED USE OF THIS SCRIPT IS STRICTLY PROHIBITED #
########################################################################
#IMPORTANT FOR WINDOWS SERVERS
#Remove the # before chdir and enter the path to Advlogger here.
#All \ in the path should be written as \\.
#chdir "/cgi-bin/advlogger";
#Manual Setup (Make all changes in config.cgi)
require "config.cgi";
require "subs.cgi";
$maxsize = $maxsize * 1024 * 1024;$ip = $ENV{'REMOTE_ADDR'};$browser = $ENV{'HTTP_USER_AGENT'};$referer = $ENV{'HTTP_REFERER'};$doc = $ENV{$ssienv};@digits = split (/\./, $ip);$address = pack ("C4", @digits);$host = gethostbyaddr ($address, 2);@pairs = split(/&/, $ENV{"QUERY_STRING"});foreach $pair (@pairs) {($q_name, $q_value) = split(/=/, $pair);$q_value =~ tr/+/ /;$q_value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;chomp($q_value);$QUERY{$q_name} = $q_value;}@pairs=split(/; /, $ENV{'HTTP_COOKIE'});foreach $pair (@pairs) {($q_name, $q_value) = split(/=/, $pair);$QUERY{$q_name} = $q_value;}if ($QUERY{'ref'} ne "" or $QUERY{'doc'} ne "") {$doc = $QUERY{'doc'};$referer = $QUERY{'ref'};if ($QUERY{'res'} ne "") {$browser .= " res=$QUERY{'res'}";}$id = $QUERY{'loggerid'};$session = $QUERY{'loggersession'};if ($QUERY{'loggersessionlogged'} ne 'yes') {$session = $session + 1;print "Set-Cookie: loggersession=$session; expires=Friday, 31-Dec-2010 00:00:00 GMT; path=/;\n";if ($QUERY{'loggerid'} eq "") {$id = seed(10);print "Set-Cookie: loggerid=$id; expires=Friday, 31-Dec-2010 00:00:00 GMT; path=/;\n";}print "Set-Cookie: loggersessionlogged=yes; path=/;\n";}print "Content-type: image/gif\n\nGIF89a\1\0\1\0\200\0\0\0\0\0\0\0\0!\371\4\1\0\0\0\0,\0\0\0\0\1\0\1\0\0\2\2D\1\0\n";}$ignore = 0;foreach $myip (@ignoreip){if ($ip eq $myip) {$ignore = 1;last;}}if ($ignore == 0) {$rawtime = time;if ($removewww == 1) {$doc =~ s/\/www\./\//;}$size = (-s "$datadir/$logfile");if ($size > $maxsize) {require "append.cgi";}else{unless (-e "$datadir/$logfile") {open (CREATE, ">$datadir/$logfile");close CREATE;chmod(0777, "$datadir/$logfile");}open(FILE,"+<$datadir/$logfile") or die "Unable to open $datadir/$logfile";seek(FILE, 0,2);print FILE "$ip|$rawtime|$host|$browser|$doc|$referer|$error|$id|$session\n" or die "Unable to write to file $datadir/$logfile";close (FILE);}}print "Content-type: text/html\n\n";print "";sub seed{my $nos = $_[0];my $pass = "";my @c = split(/ */,"1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ");my $i = 0;my $max = @c;for($i=1;$i<=$nos;$i +=1) {$pass = $pass.$c[int(rand($max))];}return $pass;}