Pobieranie informacji o nowych artykułach

 #!/usr/bin/php -q
 <?php
 //Kategorie dostępne na compzone.org
 $cats = array('PHP'=>'4','SQL'=>'5','Inne'=>'6');
  
 //Tu wczytamy artykuły, o których istnieniu wiemy
 $arts = array();
 //Konstruujemy ścieżkę do pliku konfiguracyjnego - plik .compzone.arts w katalogu domowym
 $config_path = $_ENV['HOME'].'/.compzone.arts';
 //Jeżeli nie jest to pierwsze uruchomienie i plik istnieje wczytamy konfiguracje
 if(file_exists($config_path)){
 //Otwiramy plik do odczytu
 $file = fopen($config_path,"r");
 //Dopóki nie osiągniemy końca pliku
 while(!feof($file)){
 //wczytaj linie do zmiennej $line, oczyść z białych znaków
 $line = trim(fgets($file,1024));
 //jeżeli linia zawiera kategorię
 if(array_key_exists($line,$cats)){
 //wczytujemy liczbę artykułów
 $count = (int)(trim(fgets($file,1024)));
 for($i=0;$i<$count;$i++){
 //wczytujemy po koleji wszystkie artykuły do tablicy $arts
 $arts[] = trim(fgets($file,1024));
 }
 }
 }
 }
  
 //W tej tablicy będziemy przechowywać informacje na temat nowych artykułów
 $new_arts=array();
  
 //Otwieramy plik konfiguracji do pisania. Czyści cały plik
 $file = fopen($config_path,'w');
  
 //Dla każdej kategorii
 foreach($cats as $key=>$cat){
 //Połącz się z serwerem www compzone.org na porcie 80 - port HTTP
 $fp = fsockopen('www.compzone.org',80);
 //Wyśli żądanie GET
 fwrite($fp,'GET /index.php?katid='.$cat.' HTTP/1.1'."\nHost: www.compzone.org\n\n");
 //Wypisz informacje co pobieramy
 echo 'Pobieranie danych z kategori: '.$key.".";
 $page ='';
 //Dopóki w strumieniu są dane
 while(!feof($fp)){
 //wypisz znak postępu pobierania
 echo '.';
 //odczytaj dane ze strumienia do zmiennej $page
 $page .= fread($fp,1024);
 }
 echo "\n";
  
 //Zamknij połączenie z serwerem
 fclose($fp);
  
 //Znajdujemy początek listy artykułów
 $begin = strpos($page,'width="415">');
 //Znajdujemy koniec liczby artykułów
 $end = strpos($page, '</table>',$begin);
 //Zapisujemy do zmiennej $text odpowiedni fragment
 $text = substr($page,$begin,$end-$begin);
 //Używając wyrażeń regularnych znajdujemy wszystkie tytuły arykuły - linki
 preg_match_all('/href="([A-Z\+a-z0-9\._\-&;?=]*)">([ [:alnum:]_:\-&!@#$%^*+\/?"\']*)<\/a>/',$text,$matches);
  
 $count = count($matches[1]);
  
 //Zapisujemy do pliku konfiguracyjnego kategorię i liczbę artykułów
 fwrite($file,$key."\n$count\n");
 //Przetwarzamy wszystkie tytuły
 for($i=0;$i<$count;$i++){
 //Jeśli tytuł ($matches[2][$i]) nie jest jeszcze w naszej "bazie" artykułów
 if(!in_array($matches[2][$i],$arts)){
 //dodaj go do listy nowych artykułów
 $new_arts[$key][] = $matches[2][$i];
 }
 //Zapisz tytuł artykułu do pliku
 fwrite($file,$matches[2][$i]."\n");
 }
 }
  
 //Wyświetl nową linie
 echo "\n";
 //Jeśli liczba artykułów nie zmieniła się - nie ma nowych
 if(count($new_arts)==0){
 //Wyświetl stosowny komunikat
 echo 'Nie ma nowych artykulow'."\n";
 }else{
 //jeśli są nowe artykuły wyświetl je
 echo 'Nowe artykuly!'."\n";
 foreach($new_arts as $cat=>$arr){
 echo "\t$cat:\n\t\t".implode("\n\t\t",$arr)."\n";
 }
 }
 ?>