Can any tell if this site is cloaking?

[tgreicius]

I noticed that www.jansport.com is always in the top 10 for the keyword backpacks, yet their page looks pretty basic. Any experts that can help me out?

[Air]

IMO I would say -no- it is not cloaked. Page size matches, passes the usual checks in testing for a cloaked page ....

Why it ranks well -
It is well listed in directories and has ~500 links pointing to it, also has many paid listings.

[tgreicius]

Thanks Air.

I was curious about how you knew they were well listed in directories and that they had many page listings? Is there a tool that gives this info?

Sorry, I am still new at this and trying to learn.

[Air]

I used [ixquick.com] and searched on www.jansport.com , Yahoo and DMOZ I checked through the search box on their respective sites, again by searching on the URL.

At Google [google.com] you can enter link:http://www.some-domain-name.com to check how many pages link to this domain.

[Bolotomus]

I wrote a little perl script to help determine this question for myself. It makes 3 calls to the site, under 3 different USER_AGENTS (one spider and two browsers.) If it gets a different byte count it's a good guess that the page is using cloaking. (Although not necessarily.)

This program told me that it's not being cloaked.

#!/usr/bin/perl -w
use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

my $debugging=0;
my $proxy = '';
my $ua = LWP::UserAgent->new();
$ua->proxy(['http','ftp']=>$proxy) if $proxy;
my($req,$result);
my $page = "http://www.jansport.com/";
print "ANALYZING $page\n";

my $fetch=0;
foreach my $browser (
"Slurp/si; slurp\@inktomi.com; [inktomi.com...]
"Googlebot/2.1 (+http://www.googlebot.com/bot.html)",
"compatible; MSIE 5.5; MSN 2.5; Windows 98; AtHome021SI") {
print "fetching for $browser ...\n";
$ua->agent($browser);
print " ";
$req = HTTP::Request->new(GET => $page);
$result = $ua->request($req)->as_string;
$fetch++;
print "fetched #$fetch, ",length($result)," bytes\n";
open (FETCH,">fetch$fetch.html");
print FETCH $result;
close FETCH;
}

[Bolotomus]

OOPS! Don't use the above code. Small typo.
Use this code

#!/usr/bin/perl -w
use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

my $debugging=0;
my $proxy = '';
my $ua = LWP::UserAgent->new();
$ua->proxy(['http','ftp']=>$proxy) if $proxy;
my($req,$result);
my $page = "http://www.jansport.com/";

print "ANALYZING $page\n";

my $fetch=0;
foreach my $browser (
"Slurp/si; slurp\@inktomi.com; [inktomi.com...]
"Googlebot/2.1 (+http://www.googlebot.com/bot.html)",
"Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)") {
print "fetching for $browser ...\n";
$ua->agent($browser);
print " ";
$req = HTTP::Request->new(GET => $page);
$result = $ua->request($req)->as_string;
$fetch++;
print "fetched #$fetch, ",length($result)," bytes\n";
open (FETCH,">fetch$fetch.html");
print FETCH $result;
close FETCH;
}

[circuitjump]

I tried using the code above this post, but I keep getting an error. The error is

The server encountered an internal error or misconfiguration and was unable to complete your request.

Thanks

[littleman]

circuitjump, that would be a command line script. You'd have to add a little to it to make it a cgi script.

[circuitjump]

oh, ok thanks

[michaelday]

Hello,

Could someone explain in more detail how to run this script. Do I need to use Linux/Unix platform or is there Perl editor in Windows as well. Where do I get it?

Thanks

[Bolotomus]

Regarding the script above, it was intended to be run from a command line in Unix. But forget about *that* script -- there's an updated version that's much easier to work with, here...

[webmasterworld.com...]

This new improved script is designed to be put in your CGI bin directory so you have a cutesy web interface.

Bolotomus