user agents

Link to User-Agents.org !

Quicklinks
Home
Links
Feedback
Advertising
E-Mail

If you want to link to this site, here are some animated and static banners. Copy the sourcecode at the bottom of any banner and paste it in your page.

User Agents banner

User-agents banner
 

user agents animated banner
 

User Agents Small Banner
 

User Agents Banner
 

user agents banner
 

Plain Text Link:

 

 

If you want to advertise on this site please click here.

 

Home || Links || E-Mail

Copyright © 2001-2011 Andreas Staeding

  #!/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;}