kurs walut Opcje

[Lonas]

Hej uzywalem dotychczas skryptu ktory pokazywal mi kurs walut z NBP - czy NBP cos zmienil ? teraz wyskakuje komunikat :


Warning: fopen(http://www.nbp.pl/kursy/) [function.fopen]: failed to open stream: HTTP request failed! HTTP/1.1 403 Forbidden in /home/users/jakarusa/public_html/CMS/test.php on line 29
Błšd przy łšczeniu

a skrypt wyglada tak :

[PHP] pobierz, plaintext 
<?php
/*********************************
 *		  Kursy walut		  *
 *  Copyrigt Š by Jacek Kowalski *
 *							   *
 * Wersja 1.0 dla Skryptoteka.pl *
 *********************************/
// Początek pobierania linku do kursu walut w formacie XML...
$a = "0";
$connect = fopen("http://www.nbp.pl/kursy/kursya.html", "r") or die("Błąd przy łączeniu");
while (!feof ($connect)) {
   $a++;
   $buffer = fgets($connect, 4096) or die("Błąd przy odczycie");
   if($a=="166") {
   $link = $buffer;
   }
};
fclose($connect) or die("Błąd przy zamykaniu połączenia");
// Koniec pobierania linku do kursu walut w formacie XML
 
// Wycinanie linku
$link1 = strstr($link, 'xml');
$link2 = substr($link1, '0', '19');
$link = "http://www.nbp.pl/kursy/".$link2;
// Koniec. Link w zmiennej $link.
 
// Pobieranie arkusza XML
$a = "0";
$connect = fopen($link, "r") or die("Błąd przy łączeniu");
while (!feof ($connect)) {
   $a++;
   $buffer = fgets($connect, 4096) or die("Błąd przy odczycie");
   if($a=="4") {
   $datak = $buffer;
   }
   elseif($a=="3") {
   $numerk = $buffer;
   }
   elseif($a=="6") {
   $waluta1 = $buffer;
   }
   elseif($a=="8") {
   $symbol1 = $buffer;
   }
   elseif($a=="9") {
   $kurs1 = $buffer;
   }
   elseif($a=="30") {
   $waluta2 = $buffer;
   }
   elseif($a=="32") {
   $symbol2 = $buffer;
   }
   elseif($a=="33") {
   $kurs2 = $buffer;
   }
   elseif($a=="24") {
   $waluta3 = $buffer;
   }
   elseif($a=="26") {
   $symbol3 = $buffer;
   }
   elseif($a=="27") {
   $kurs3 = $buffer;
   }
   elseif($a=="54") {
   $waluta4 = $buffer;
   }
   elseif($a=="56") {
   $symbol4 = $buffer;
   }
   elseif($a=="57") {
   $kurs4 = $buffer;
   }
};
fclose($connect) or die("Błąd przy zamykaniu połączenia");
// Pobrano arkusz XML i wyniki do zmiennych.
// Wyświetlanie...
echo " <b><center><font SIZE="1" color="black" face="verdana">NBP z dnia <br>".$datak."</b></center></font><br> <font SIZE="1" color="black" face="verdana">".$waluta1."</FONT><br> <font SIZE="1" color="black" face="verdana"><b>(".$symbol1.")</b></FONT> <b> <font SIZE="1" color="black" face="verdana">".$kurs1."</b></FONT><br> <font SIZE="1" color="black" face="verdana">".$waluta2."</font> <br> <font SIZE="1" color="black" face="verdana"><B>(".$symbol2.")</B> </font><B> <font SIZE="1" color="black" face="verdana">".$kurs2."</font></B><br> <font SIZE="1" color="black" face="verdana">".$waluta3."</font> <br>  <font SIZE="1" color="black" face="verdana"><B>(".$symbol3.")</font></B> <font SIZE="1" color="black" face="verdana"> <B>".$kurs3."</font></B><br> <font SIZE="1" color="black" face="verdana">".$waluta4."</font><br> <font SIZE="1" color="black" face="verdana"> <B>(".$symbol4.")</font></B> <font SIZE="1" color="black" face="verdana"> <B> <font SIZE="1" color="black" face="verdana">".$kurs4."</font></B><br>"
?>
[PHP] pobierz, plaintext 

[cadavre]

Wpisz sobie w pasku adresu przeglądarki:
http://www.nbp.pl/kursy/

Dowiesz się czy NBP coś zmienił...

[Lonas]

eh.. to juz sprawdzalem w adresie nic sie nie zmienilo ..
pytam czy mogli cos zablowkowac.. bo link uzywany w skrypcie dziala

http://www.nbp.pl/kursy/kursya.html

[eyedropper]

a link http://www.nbp.pl/kursy/xml/a005z070108.xml ?
nie lepiej z xmla ?

Ten post edytował eyedropper 8.01.2007, 19:33:05

[tiraeth]

@eyedropper: Jeżeli chcesz z XMLa przy użyciu simplexml_load_file, to działa to wolniej niż przez zwykłe file + preg_match

[PHP] pobierz, plaintext 
<?php
$txtData = 'http://www.nbp.pl/kursy/kursya.html';
if ( $txtParsed = @implode('', file($txtData)) )
{
	if ( preg_match_all('#<tr valign="middle">(.*?)</tr>#is', $txtParsed, $r) )
	{
		$r = $r[1];
		foreach ( $r as $txtMoney )
		{
			if ( preg_match_all('#<td class="bg(1|2)">(.*?)</td>#is', $txtMoney, $s) )
			{
				$s = $s[2];
				$arrMoneys[] = array('name' => $s[0], 'code' => $s[1], 'exchange' => $s[2]);
			}
		}
 
		print_r($arrMoneys); // Ta zmienna ma tablice z kursami walut
	}
	else
	{
		echo 'HTML structure doesn't match the regular expression.';
	}
}
else
{
	echo 'Cannot load HTML file from <b>'.$txtData.'</b>. Please check your URL!';
}
?>
[PHP] pobierz, plaintext 

Taki kod zajmuje mi (down: 1Mb/s) 0.34685s

[Lonas]

Ale dlaczego ten skrypt wczesniej dzialal ? co sie zmienilo ?

[cadavre]

Zapytaj NBP. My tu ekspertami systemów NBP nie jesteśmy.

[sf]

Jeśli skrypt ciągle pobierałeś to na pewno Ci to zablokowali Należało użyć jakiegoś cache, który przechowuje przez 24h plik.

[Kahir]

Witam,
w linijce 13 $buffer jest kasowany przy każdym przejściu przez pętlę, w związku z czym zmienna $link2 jest pustym ciągiem i skrypt próbuje pobrać zawartość katalogu do którego nie ma dostępu ("/kursy/").
Dodaj kropkę:

[PHP] pobierz, plaintext 
<?php
$buffer .= fgets($connect, 4096) or die("Błąd przy odczycie");
?>
[PHP] pobierz, plaintext 

Ten post edytował Kahir 13.01.2007, 18:38:10

[cmike]

[PHP] pobierz, plaintext 
<?php
$txtData = 'http://www.nbp.pl/kursy/kursya.html';
if ( $txtParsed = @implode('', file($txtData)) )
{
   $link = $txtParsed;
	$link1 = strstr($link, 'xml');
	$link2 = substr($link1, '0', '19');
	$dt = substr($link2, '9', '6');
	$d = $dt[4].$dt[5];
	$m = $dt[2].$dt[3];
	$r = "20".$dt[0].$dt[1];
	$dat_wal = $r.'.'.$m.'.'.$d;
	$link = "http://www.nbp.pl/kursy/".$link2;
}
 
$wersja = phpversion();
if ($wersja[0]>4)
{
$xml = simplexml_load_file($link);
foreach ($xml->pozycja as $wpis)
{   
  echo "<li>".$wpis->nazwa_waluty."(".$wpis->kod_waluty.") ->kurs średni: ".$wpis->kurs_sredni."</li>";
}
}
else
{
	$xml_link = $link;
	$currentTag = "";
	$startpos = 0;
	$encoding = 0;
	$xml_items = array();
 
	function startTag($parser, $name, $attrs)
	{
		global $currentTag, $startpos;
		$currentTag = $name;
		if ($currentTag=='POZYCJA') $startpos++;
	}
 
	function endTag($parser, $name)
	{
		   global $currentTag;
		   $currentTag = "";
	}
 
	function characterData($parser, $data)
	{
	  global $currentTag, $startpos, $xml_items;
	  if ($startpos > 0) {
	   switch ($currentTag) {
		 case 'NAZWA_WALUTY' : $xml_items[$startpos]['NAZWA_WALUTY'] .=$data; break;
		 case 'KOD_WALUTY': $xml_items[$startpos]['KOD_WALUTY'].=$data; break;
		 case 'KURS_SREDNI': $xml_items[$startpos]['KURS_SREDNI'].=$data; break;
	   }
 
	  } else {
 
 
	  }
 
	}
 
		$xml_link = parse_url($xml_link);
 
		$header  = "GET ".$xml_link["path"].(isset($xml_link["query"]) ? "?".$xml_link["query"] : false)." HTTP/1.0rn";
		$header .= "Host: ".$xml_link['host']."rn";
		$header .= "Content-type: application/x-www-form-urlencodedrn";
		$header .= "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; www.inteco.win.pl)rn";
		$header .= "Content-length: " . strlen($request) . "rnrn";
 
		if ($xml_read = @fsockopen($xml_link['host'], ($xml_link['port']>0 ? $xml_link['port'] : 80) , $err_num, $err_msg, 10)) {
 
		   fputs($xml_read, $header . $request);
		   
		   $xml_parser = xml_parser_create();
		   xml_set_element_handler($xml_parser, "startTag", "endTag");
		   xml_set_character_data_handler($xml_parser, "characterData");
 
		   while ($data = fread($xml_read, 4096)) {
			if ((empty($encoding)) && (preg_match("#<?xml.+(|encoding="([w-]+)").*>#i",$data,$enc))) {
			  $encoding = preg_replace("#<?xml.+encoding="([w-]+)".*?>#s","1",$enc[0]);
			  $data = preg_replace('#(.*?)(<?xml)#s','2',$data);
			}
 
			if (!empty($encoding)) {
			  if (!xml_parse($xml_parser, $data, feof($xml_read))) {
			  die(sprintf("XML error: %s at line %d", xml_error_string(xml_get_error_code($xml_parser)), xml_get_current_line_number($xml_parser)));
 
			  }
			}
		   }
		   
		   xml_parser_free($xml_parser);
		}
		echo '<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" class="tbl-border">';
		for ($i=1;$i<count($xml_items);$i++)
		{
			if($xml_items[$i]['KOD_WALUTY']=="USD" || $xml_items[$i]['KOD_WALUTY']=="EUR") {
				if($klasa=="tbl1") {$klasa="tbl2";} else {$klasa="tbl1";}
				echo '<tr>
				<td class="'.$klasa.'">'.$xml_items[$i]['NAZWA_WALUTY'].'</td><td class="'.$klasa.'" align="center">'.$xml_items[$i]['KOD_WALUTY'].'</td><td class="'.$klasa.'" align="center"><b>'.$xml_items[$i]['KURS_SREDNI']."</b></td>
				</tr>";
			}
		}
		echo '</table>';
}
[PHP] pobierz, plaintext 

To przykładowy kod - mnie interesował tylko dolar i euro.