# THE FOLLOWING BLOCK IS USED TO RETRIEVE AND DISPLAY LINK INFORMATION.
# PLACE THIS ENTIRE BLOCK IN THE AREA YOU WANT THE DATA TO BE DISPLAYED.
# MODIFY THE VARIABLES BELOW:
# BackLinkSpider user key:
print "Content-type: text/html\n\n";
my $UserKey ="PR-79PU-RI";
# The following variable defines how many columns are used to display categories
my $CategoryColumns = "2";
# The following variable defines how many links to display per page
my $LinksPerPage = "25";
# The following variable defines whether links are opened in a new window
# (1 = Yes, 0 = No)
my $OpenInNewWindow = "0";
# The following variable determines whether the search function is enabled
# for your links page (1 = Yes, 0 = No)
my $AllowSearch = "1";
# DO NOT MODIFY ANYTHING ELSE BELOW THIS LINE!
# ----------------------------------------------
use LWP::Simple;
use URI::Escape;
my $ThisPage = $ENV{"SCRIPT_NAME"};
my $QueryString;
$QueryString = "UserKey=" .uri_escape($UserKey);
$QueryString .= "&ScriptName=" .uri_escape($ThisPage);
$QueryString .= "&CategoryColumns=" .uri_escape($CategoryColumns);
$QueryString .= "&LinksPerPage=" .uri_escape($LinksPerPage);
$QueryString .= "&OpenInNewWindow=" .uri_escape($OpenInNewWindow);
$QueryString .= "&AllowSearch=" .uri_escape($AllowSearch);
$QueryString .="&siteid=".72;
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
my @pairs = split(/&/, $ENV{'QUERY_STRING'});
my ($name, $value);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ s/\n//g; $value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n//g; $value =~ s///g;
$value = uri_escape($value);
$QueryString .= "&$name=$value";
}
}
#Make request
my $linkspile_content = get("http://www.backlinkspider.com/generate.links.php?".$QueryString);
if(!$linkspile_content) {
print "Error processing request";
}
else {
print $linkspile_content;
}