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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n
";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;
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=notset;
my $utf = 0; # bei falscher Umlautdarstellung auf 1 setzen
#my $out = "Content-Type: text/html\n\n";
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."";
return $out;
}
1;