IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Merkez bankasından bir kod parçası ile doviz bilgilerinizi alarak sitenize eklemenizi sağlayan kısa bir php kod parçası. Uygulama sisteme bağlanma ve bilgi çekme konularında dikkat edilmesi gereken bilgiler içeriyor.

Kod:

<?php
$fp = pfsockopen("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80, $errno, $errstr);
if (!$fp)
{
echo "$errstr ($errno)<br/>\n";
echo $fp;
} else {
fputs($fp, "GET /kurlar/today.html HTTP/1.1\r\n");
fputs($fp, "Host: tcmb.gov.tr\r\n");
fputs($fp, "Authorization: Basic ".base64_encode("username:password")."\r\n");
fputs($fp, "Connection: close\r\n\r\n");
fwrite($fp, $out);
$i = 0;
while (!feof($fp))
{
$yaz = fgets($fp, 128);
if($sonuc = eregi("^[(usd/try)(eur/try)]+([[:space:]]+)1([[:space:]]+)",$yaz) AND ($i<2))
{
$sonuc1[$i]=explode(" ",$yaz);
$j=0;
foreach($sonuc1[$i] as $_sonuc1)
{
if($_sonuc1!="")
{
$sonuc2[$i][$j] = $_sonuc1;
$j++;
}
}
$i++;
}
}
fclose($fp);
}
?>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<title>Döviz Kurları</title>
</head>
<body bgcolor="#ffffff">
<table width="200" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="61" height="20">Dolar / Alış,</td>
<td width="83" align="right"><?=$sonuc2[0][4];?> YTL</td>
</tr>
<tr>
<td height="20">Dolar / Satış,</td>
<td align="right"><?=$sonuc2[0][5];?> YTL</td>
</tr>
<tr>
<td height="20" valign="top">Euro / Alış,</td>
<td align="right" valign="top"><?=$sonuc2[1][3];?> YTL</td>
</tr>
<tr>
<td height="20" valign="top">Euro / Satış,</td>
<td align="right" valign="top"><?=$sonuc2[1][4];?> YTL</td>
</tr>
</table>
</body>
</html>