BISNIS ONLINE
#!C:/Perl/bin/perl.exe
my $searchKeywords = "";
use LWP::UserAgent;
use Time::HiRes qw(gettimeofday);
use URI::Escape;
sub pesan_com_append_screen_res {
my $screen_res = $ENV{"HTTP_UA_PIXELS"};
if ($screen_res == "") {
$screen_res = $ENV{"HTTP_X_UP_DEVCAP_SCREENPIXELS"};
}
if ($screen_res == "") {
$screen_res = $ENV{"HTTP_X_JPHONE_DISPLAY"};
}
my @res_array = split("[x,*]", $screen_res);
if (@res_array == 2) {
return "&u_w=" . $res_array[0] . "&u_h=" . $res_array[1];
}
}
sub pesan_com_append_muid {
my $muid = $ENV{"HTTP_X_DCMGUID"};
if ($muid) {
return "&muid=" . $muid;
}
my $muid = $ENV{"HTTP_X_UP_SUBNO"};
if ($muid) {
return "&muid=" . $muid;
}
my $muid = $ENV{"HTTP_X_JPHONE_UID"};
if ($muid) {
return "&muid=" . $muid;
}
my $muid = $ENV{"HTTP_X_EM_UID"};
if ($muid) {
return "&muid=" . $muid;
}
}
sub pesan_com_append_via_and_accept {
if ($_[0] eq "") {
my $via_and_accept;
my $via = uri_escape($ENV{"HTTP_VIA"});
if ($via) {
$via_and_accept = "&via=" . $via;
}
my $accept = uri_escape($ENV{"HTTP_ACCEPT"});
if ($accept) {
$via_and_accept = $via_and_accept . "&accept=" . $accept;
}
if ($via_and_accept) {
return $via_and_accept;
}
}
}
my $pesan_com_scheme = ($ENV{"HTTPS"} eq "on") ? "https://" : "http://";
my $pesan_com_user_agent = uri_escape($ENV{"HTTP_USER_AGENT"});
my $pesan_com_ad_url = "http://www.pesan.com/wap-ads.php?" .
"&pid=380".
"&id=569".
"&search=".uri_escape($searchKeywords).
"&ip=" . uri_escape($ENV{"REMOTE_ADDR"}) .
"&ref=" . uri_escape($ENV{"HTTP_REFERER"}) .
"&url=" . uri_escape($tplvalues[1]['IO_ADSERVER']_scheme . $ENV{"HTTP_HOST"} . $ENV{"REQUEST_URI"}) .
"&useragent=" . $pesan_com_user_agent .
pesan_com_append_screen_res() .
pesan_com_append_muid() .
pesan_com_append_via_and_accept($pesan_com_user_agent);
my $pesan_com_ua = LWP::UserAgent->new;
my $pesan_com_ad_output = $pesan_com_ua->get($pesan_com_ad_url);
if ($pesan_com_ad_output->is_success) {
print "Content-type: text/html\n\n";
print $pesan_com_ad_output->content;
}
Langganan:
Postingan (Atom)