#!/usr/bin/perl
use Socket;
$bannerkoe=<;
close(hf);
$check=1;#Check if any save session
$nomer=1;
$googleurl="http://www.klikbca.com";
$httppost="GET $googleurl HTTP/1.0\r\n\r\n";
@results=sendraw($httppost);
$data = join("",@results);
printlog("Kurs di klikbca.com :\n\n");
@tmp=split(/Kurs TT BCA\:\
/,$data);
@u=split(/\
\<\/font\>\<\/A\>/,$tmp[1]);
printlog("$u[0]\n");
###
@tmp=split(/color\=\"\#0000c0\"\>USD/,$data);
@u=split(/\/,$tmp[1]);
@t=split(/\<\/font\>/,$u[0]);
@v=split(/color\=\"\#0000c0\"\>/,$t[1]);
@w=split(/color\=\"\#0000c0\"\>/,$t[2]);
printlog("USD\t JUAL = $v[1]\t BELI = $w[1]\n");
exit;
# ------------- Sendraw - thanx RFP rfp@wiretrip.net
sub sendraw { # this saves the whole transaction anyway
my ($pstr)=@_;
socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')||0) ||
die("Socket problems\n");
if(connect(S,pack "SnA4x8",2,$port,$target)){
my @in;
select(S); $|=1; print $pstr;
while(){ push @in, $_;}
select(STDOUT); close(S); return @in;
}
}
sub printlog {
print @_[0];
open(lo,">>$log");
print lo @_[0];
close(lo);
return;
}               ( geocities.com/iko94)