package WebGUI::Macro::seoslave;

#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com                     info@plainblack.com
#-------------------------------------------------------------------

use strict;
use LWP::Simple;
use CGI qw(param);
use URI::Escape;
use utf8;

sub process {
my $seo_user = 426;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen

#my $out = "Content-Type: text/html\n\n<center>";
my $out = "";
my $domain=uri_escape($ENV{'HTTP_HOST'});
my $url_request=uri_escape($ENV{'REQUEST_URI'});
my $query_string_windows=$ENV{'QUERY_STRING'};
my $url_redirect=$ENV{'REDIRECT_URL'};
my $ip=$ENV{'REMOTE_ADDR'};
my $url="http://www.seoslave.com/seoslave/links.php?user_id=$seo_user&domain=$domain&url_request=$url_request";
my $data=get($url);
if ($utf==0) {utf8::decode($data)};
my $out = $out.$data."</center>";
return $out;
}


1;