🚀 go-pugleaf

Piotr napisał(a):
> Witam!
> 
> 
> Czy ktorys z grupowiczow probowal zrobic powiadamianie o nowej, 
> przychodzacej poczcie w Qmailu na GG?
> Czy moglbym poprosic ewentualnie poprosic o jakies jakies url how to? :)
> 
> Pozdrawiam
> P. 
> 
> 
Witam,
Dawno temu znalazlem w sieci coś takiego

/bin/www2gg  (tresc sktyptu poniżej miedzu liniami)

i w /home/(USER)/.procmail
dopisz

USER=`whoami`
SUBJECT=`formail -zxSubject:`
FROM=`formail -rt -xTo:`
BODY=`formail -c | mimecut`


:0 c
* .*
| if test -e $HOME/gg.txt ; then \
www2gg $UIDGG "Serwer informuje o nowej przesyłce OD: $FROM TEMAT: 
\"$SUBJECT\" TRESC: $BODY" ; fi


teraz zostaje zostaje plik gg.txt grzie wpisujesz numer gg ktory ma byc 
informowany.


---------------------------------------------------------------------
#!/usr/bin/php -q
<?php
/*
  * UWAGA WPISZ TUTAJ HASLO I NUMER KONTA GADU GADU
  * KTORE BEDZIE PELNILO ROLE BRAMKI CZYLI NADAWCY
  */

$numer_bramki = "00000000";
$haslo_bramki = "haslo";

/*
  * Jesli chcesz żeby wiadomości oczekujace na odebranie na serwerze gg 
wyświetliły
  * sie również przy używaniu konta bramki zmień poniższą wartość na 1
  * Dla 0 wiadomości będa wyświetlane tylko w przypadku używania 
własnego konta
  */

$POKAZ_OCZEKUJACE_WIADOMOSCI_DLA_BRAMKI = 0;

$adresat = $_SERVER['argv'][1]; 

$tresc   = $_SERVER['argv'][2];

/*
  * Niedawno wprowadzono na sewerze blokade, która miała w zamyśle
  * zapobiegać spamowi, polega na blokowaniu wiadomości które
  * zawieraja linki np www.wp.pl lub moj@email.pl.
a także wyrażenia "www", "pl" itp
  * Jak już wycofają się z tego błędu to zmień poniższą wartość na 0
  * 1 - to zamiana tych wyrażeń np www.wp.pl zmieni sie na w*w. wp. pl
  i uniknięcie zablokowania
  */

$DODAWAJ_SPACJE_W_LINKACH = 1;

/*
  * Teksty lepiej zmienic na własne gdyz producent gadu-gadu moze chciec 
odrzucac wiadomosci
  * z numerow majacych te opisy w statusie, mozna takze ustawic bez 
opisow czyli = ""
  */

$OPIS_W_STATUSIE_PO_ZALOGOWANIU = "Wiadomość z TELE INFO MEDIA";

$OPIS_W_STATUSIE_PO_WYLOGOWANIU = "pisz na maila artur@tim.com.pl";



//////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////


if (($numer_bramki == "") or ($haslo_bramki == ""))
     die("Wpisz do skrytpu numer i haslo bramki czyli jakies nieuzywane 
konto gg");


define ('HEADER','<HTML><HEAD><TITLE> Bramka www--&gt;GG </TITLE></HEAD>'
        .'<META HTTP-EQUIV = "Content-Type" CONTENT ="text/html; 
charset=ISO-8859-2" ><BODY>
');
define ('FOOTER','</BODY></HTML>');


error_reporting(E_ALL ^ E_NOTICE);  # jakby bylo za duzo błędów zmien na 
E_NONE  ;)
//require('klasy-gg.inc');            # w razie problemow wpisz pelna 
sciezke do pliku

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

#  BRAMKA WWW2GG V2.1 W CALOSCI W PHP A WIEC MULIPLATFORMOWA
#  MOZLIWA DO ZAMIESZCZENIA NA SERWERACH BEZ OBSLUGI CGI
#
#  (C) Copyright 2001-2003 Piotr Mach <pm@gg.wha.la>
#
#  Bramka powstala dzięki opisowi protokołu gadu-gadu
#  z projektu EKG http://dev.null.pl/ekg/

# nazwy pakietów pochodzą w większości z EKG
define("GG_WELCOME",			0x0001);
define("GG_LOGIN",  			0x000c);
define("GG_LOGIN_OK",			0x0003);
define("GG_LOGIN_FAILED",		0x0009);
define("GG_NEW_STATUS",			0x0002);
define("GG_STATUS",	    		0x0002);
define("GG_STATUS_NOT_AVAIL",	0x0001);
define("GG_STATUS_NOT_AVAIL_DESCR",	0x0015);
define("GG_STATUS_AVAIL",		0x0002);
define("GG_STATUS_AVAIL_DESCR",	0x0004);
define("GG_STATUS_BUSY",		0x0003);
define("GG_STATUS_BUSY_DESCR",	0x0005);
define("GG_STATUS_INVISIBLE",	0x0014);
define("GG_NOTIFY",             0x0010);
define("GG_NOTIFY_REPLY",		0x000c);
define("GG_USER_NORMAL",		0x0003);
define("GG_USER_BLOCKED",		0x0004);
define("GG_SEND_MSG",			0x000b);
define("GG_CLASS_MSG",			0x0004);
define("GG_CLASS_CHAT",			0x0008);
define("GG_CLASS_ACK",          0x0020);
define("GG_SEND_MSG_ACK",		0x0005);
define("GG_ACK_DELIVERED",		0x0002);
define("GG_ACK_QUEUED",			0x0003);
define("GG_RECV_MSG",			0x000a);
define("GG_LOGIN_FAILED2",		0x000B);
define("GG_ACK_MBOXFULL",		0x0004);
define("DISCONNECTED
",          0x0100);
define("GG_PUBDIR50_REQUEST",   0x0014);
define("GG_PUBDIR50_REPLY",     0x000e);
define("GG_PUBDIR50_SEARCH",    0x0003);


/* Zawiera funkcje nizszego poziomu ,z tej klasy dziedziczy klasa www2gg */
class GaduGadu
{
   var $fp;	                            // polaczenie w sesji gadu-gadu
   var $wiadomosci = array();            // tablica z odebranymi 
wiadomosciami
   var $status_kontaktu = array();       // odebrane dane adresata 
wiadomosci
   var $status_dostarczenia = array();   // tablica ze stanami 
dostarczenia wiadomosci
   var $wyniki_szukania = array();	    // wyniki wyszukiwania w katalogu
   var $debug = FALSE;                   // tryb debug

   function GaduGadu()
// konstruktor
   {
       mt_srand((double)microtime() * 1000000);
   }

   // zwraca stan dostarczenia wiadomosci o danym seq
   function status_dostarczenia ($seq)
   {
       if ($this->status_dostarczenia[$seq])
           return $this->status_dostarczenia[$seq];
       else
           return 0;
   }

   // wersje gadu gadu > 0x14 (4.8.9, 4.9.2, 5.x itp.)
   function oblicz_nowy_hash ($haslo, $klucz) {  //takie efekty bitwy z 
php i jego signed int  ;-)
	
     $x0=0; $x1=0; $y0=0; $y1=0; $z=0; $tmp=0;
     $y0 = ($klucz << 16) >> 16; $y1 = $klucz >> 16 ;

     for ($i=0; $i<strlen($haslo); $i++) {
         $x0 = ($x0 & 0xFF00) | ord($haslo[$i]); $x1 &= 0xFFFF;
     	$y0 ^= $x0; $y1 ^= $x1;
         $y0 += $x0; $y1 += $x1;
     	$x1 <<= 8; $x1 |= ($x0 >> 8); $x0 <<= 8;
         $y0 ^= $x0; $y1 ^= $x1;
     	$x1 <<= 8; $x1 |= ($x0 >> 8); $x0 <<= 8;
         $y0 -= $x0; $y1 -= $x1;
         $x1 <<= 8; $x1 |= ($x0 >> 8); $x0 <<= 8;
         $y0 ^= $x0; $y1 ^= $x1;
         $z = $y0 & 0x1F;

         $y0 &= 0xFFFF; $y1 &= 0xFFFF;
         if ($z <= 16) {
     	    $tmp= ($y1 << $z) | ($y0 >> (16-$z));
     	    $y0 = ($y1 >> (16-$z)) | ($y0 << $z);
             $y1 = $tmp;
         } else {
     	    $tmp= $y0 << ($z-16);
     	    $y0 = ($y0 >> (32-$z)) | ( (($y1 << $z) >> $z) << ($z-16) );
             $y1 = ($y1 >> (32-$z)) | $tmp;
     	}
     	$y0 &= 0xFFFF; $y1 &= 0xFFFF;
     }
     $hash = hexdec(sprintf("%04x%04x", $y1, $y0));
     settype($hash, 'integer');

   return $hash;
   }

   function znajdz_serwer($numer)
   {
     $http_fp = fsockopen("appmsg.gadu-gadu.pl", 80, $errno, $errstr, 
3); //timeout=3s
     if (!$http_fp) {
	$this->Debug
         ("BRAK POLACZENA Z APPMSG.GADU-GADU.PL, MOZE BYC PRZECIAZONY: 
$errno - $errstr<BR>\n");
     } else {
         $get = "GET /appsvc/appmsg.asp?fmnumber=<$numer> HTTP/1.0\r\n";
         $get.= "Host: appmsg.gadu-gadu.pl\r\n";
         $get.= "User-Agent: Mozilla/4.7 [en] (Win98; I)\r\n";
         $get.= "Pragma: no-cache\r\n\r\n";
         fputs($http_fp, $get);
         fgets($http_fp, 128); fgets($http_fp, 128); $tmp = 
fgets($http_fp, 128); // 3 linijka
         fclose($http_fp);
         if (preg_match("/\s([\d\.]{8,16})\:([\d]{1,5})\s/", $tmp, 
$addres)) {
             $host = $addres[1];
             $port = $addres[2];
             $this->Debug("Uzyskano adres hosta z appmsg.gadu-gadu.pl: 
".$host.":".$port);

             return array ($host, $port);
         }
     }
     # Losowanie jednego z hostow gadu-gadu w przypadku gdy nie udaje 
sie uzyskać
     # adresu hosta z appmsg.gadu-gadu.pl, ta lista może się w 
przyszłości zmienić
     $ip = array(85, 86, 88, 89);
     $host = '217.17.41.'.$ip[rand(0,sizeof($ip)-1)];
     $port = 8074;
     $this->Debug ("Nie udalo sie uzyskac hosta od appmsg uzyto 
domyslnego $host:$port");

   return array ($host, $port);
   }

   function login($numer, $haslo, $host, $port, $opis = "", $wersja = 0x16)

   {
     $this->fp = fsockopen($host, $port, $errno, $errstr, 10); //timeout 
= 10s
     $this->Debug("Logowanie do $host:$port ...");
     if (!$this->fp) {
         $this->Debug("PROBLEM Z POLACZENIEM: $errno - $errstr<BR>\n");
         return DISCONNECTED;
     }

     if (!$data = fread($this->fp, 12)) {
         $this->Debug("Polaczenie nieoczekiwanie zamkniete<BR>\n");
         return DISCONNECTED;
     }
     $tab = unpack("Vtyp/Vrozmiar/Vklucz", $data);
     $this->Debug("Otrzymano pakiet z kluczem hasla: ", $tab, 
bin2hex($data));
     // wersja - 0x16-GG 4.9.x, 0x19-5.0.3
     $hash = $this->oblicz_nowy_hash($haslo, $tab['klucz']);
  //dla wersji gg >= 0x14
     $this->Debug("Obliczono hash hasla ");

     $data = pack("VVVVVVVva".strlen($opis)
, GG_LOGIN, 0x16 + strlen($opis), $numer, $hash,
     	    ($opis)?GG_STATUS_AVAIL_DESCR:GG_STATUS_AVAIL, $wersja, 0, 0, 
$opis);
     fwrite($this->fp, $data);

     $this->Debug("Wyslano pakiet logowania: ".bin2hex($data));
     # Przy podaniu zlego hasla moze natychmiast zerwac polaczenie
     if (!$data1 = fread($this->fp, 8))
     	return GG_LOGIN_FAILED2;

     $tab = unpack("Vlogin_status/Vrozmiar", $data1);
     $this->Debug("Odpowiedz na logowanie ", $tab);

   return $tab['login_status'];     //Wynik logowania GG_LOGIN_OK lub 
GG_LOGIN_FAILED
   }


   function wyslij_liste_kontaktow ($uin)
   {
     // lista kontaków z jednym numerem
     $data = pack ("VVVC",GG_NOTIFY, 5, $uin, GG_USER_NORMAL);
     $this->Debug("Wyslano liste kontaktów".bin2hex($data));

   return fwrite($this->fp,$data);
   }

   function wyslij_wiadomosc($adresat, $tresc, $potwierdzenie = TRUE)
   {
     $tresc = txt::iso2cp($tresc);
     $seq = mt_rand();

     $data = pack("VVVVVa".strlen($tresc)."C", GG_SEND_MSG, 0x0d + 
strlen($tresc), $adresat,
		 $seq,  ($potwierdzenie)?GG_CLASS_MSG:GG_CLASS_MSG | GG_CLASS_ACK, 
$tresc, 0);
     $this->Debug("Wyslano pakiet wiadomości : ".bin2hex($data), $data);

     $this->status_dostarczenia[$seq] = FALSE; //zmieni sie przy 
otrzymaniu potwierdzenia

     if (!fwrite($this->fp, $data))
       return FALSE;

   return $seq;
   }

   function odbierz_dane ($auto_odpowiedz = "")
   {
     if (!$data = fread($this->fp, 8))
         return FALSE;
     $tab = unpack("Vtyp/Vrozmiar", $data);

	
     # Odebranie wszystkich oczekujacych wiadomosci
     while ($tab['typ'] == GG_RECV_MSG || $tab['typ'] == GG_NOTIFY_REPLY
             || $tab['typ'] == GG_STATUS) {
         $data = fread($this->fp, $tab['rozmiar']);

         switch($tab['typ']) {
           case GG_RECV_MSG:
	        $tab = unpack("Vnadawca/Vseq/Vtime/Vclass/A*wiadomosc", $data);
             $this->Debug("Otrzymano wiadomosc ", $tab);
             if ($auto_odpowiedz)
               $this->wyslij_wiadomosc($tab['nadawca'], $auto_odpowiedz, 
FALSE); //bez potwierdzen
             array_push($this->wiadomosci, $tab);
	        break;
           case GG_STATUS:
           case GG_NOTIFY_REPLY:
	        $this->Debug ("Otrzymano odpowiedz ze statusem kontaktu 
".bin2hex($data));
         	$tab = unpack("Vuin/Vstatus", $data);
         	$this->status_kontaktu[$tab['uin']] = $data;
         	$this->Debug ($tab, $this->status_kontaktu);
         	break;
	    }

     	$data = fread($this->fp, 8);
     	$tab = unpack("Vtyp/Vrozmiar", $data);
     }

     # odebranie ostatnich pakietów
     if (!$data = fread($this->fp, $tab['rozmiar']))
         return FALSE;

     if ($tab['typ']==GG_SEND_MSG_ACK) {
     	$tab = unpack("Vstatus/Vadresat/Vseq", $data);
     	$this->Debug("Otrzymano potwierdzenie wiadomosci ", $tab);
         $this->status_dostarczenia[$tab['seq']] = $tab['status'];
     } else if ($tab['typ']==GG_PUBDIR50_REPLY) {
	    $tab = unpack("Cunknown/Vczas/A*results", $data);
     	$this->Debug("Otrzymano wyniki szukania ", $tab);
     	$this->wyniki_szukania = $tab['results'];
     }

   return TRUE;
   }

   function logoff ($opis = "")
   {
     $data = pack("VVVa".strlen($opis), GG_NEW_STATUS, 0x04 + 
strlen($opis),
             ($opis)?GG_STATUS_NOT_AVAIL_DESCR:GG_STATUS_NOT_AVAIL, $opis);
     fwrite($this->fp, $data);
     $this->Debug("Wyslano pakiet logoff : ".bin2hex($data));
     fclose($this->fp);
   }

   function Debug()
   {
     if (!$this->debug)
         return;
     foreach (func_get_args() as $info) {
         if (is_array($info))
             print_r($info);
         else
             echo "<BR>\nDEBUG: $info";
     }
     flush();
   }

} // koniec klasy GaduGadu



Class www2gg extends GaduGadu
{
   var $numer = "";
   var $haslo = "";
   var $OPIS_W_STATUSIE_PO_ZALOGOWANIU = "";
   var $OPIS_W_STATUSIE_PO_WYLOGOWANIU = "";
   var $ilosc_prob = 3;    // ile razy probowac sie zalogowac i wyslac 
wiadomosc
   var $error = FALSE;
   var $auto_odpowiedz;    // gdy rozna od "" wtedy przy odebraniu wiad 
nadawca zostanie
                           // poinformawany ze jest to numer bramki i 
wiadomosc nie dotarla

   function www2gg($numer, $haslo)
   {
     $this->GaduGadu();      // trzeba wywolywac konstuktor recznie
     $this->numer = $numer;
     $this->haslo = $haslo;
   }

   function ustaw_opisy ($opis1 ,$opis2)
   {
     # konwersja kodowania na CP-1250 i skrócenie statusów opisowych do 
41 znaków
     $this->OPIS_W_STATUSIE_PO_ZALOGOWANIU = 
txt::iso2cp(substr($opis1,0,41));
     $this->OPIS_W_STATUSIE_PO_WYLOGOWANIU = 
txt::iso2cp(substr($opis2,0,41));
   }

   function wiadomosc($adresat, $tresc, $DODAWAJ_SPACJE_W_LINKACH = TRUE)
   {
     # Usuniecie dodatkowych \ przy włączonym magic_quotes w php.ini
     if (get_magic_quotes_gpc())
         $tresc = stripslashes($tresc);

     # Modyfikacja linkow www, email i slow www, pl ktore sa filtrowane 
przez blokade "antyspamowa"
     if ($DODAWAJ_SPACJE_W_LINKACH)
         $tresc = txt::odlinkuj($tresc);

     # Sprawdzenie danych czy sie nadaja do wysyłania:)
     if ($adresat == "") {
         $this->error = "Wpisz numer adresata";
         return FALSE;
     }
     if (!is_numeric($adresat) or ($adresat <= 1000) or ($adresat > 
10000000)) {
         $this->error = "Adresat ma byc numerkiem gadu - gadu";
         return FALSE;
     }
     if (strlen($tresc) == 0) {
         $this->error = "Nie wpisaleś treści wiadomości";
         return FALSE;
     }
     if (strlen($tresc) > 1999) {
         $this->error = "Dlugość Wiadomości nie może przekroczyć 2000 
znaków";
         return FALSE;
     }
     if (($this->numer < 1000) or ($this->numer > 10000000) or 
($this->haslo == "")) {
         $this->error = "Wpisz poprawnie numer i hasło nadawcy";
         return FALSE;
     }
     if ($adresat == $this->numer) {
         $this->error = "Nie możesz wysłać wiadomości sam do siebie";
         return FALSE;
     }

     for ($i = 1; $i <= $this->ilosc_prob; ++$i) {
     	$this->Debug("Proba $i");

         # Pyta o host z jakim nalezy sie polaczyc lub losuje domyslny w 
przypadku niepowodzenia
         list ($host, $port) = $this->znajdz_serwer($this->numer);

         # Logowanie do serwera GG
         switch ($this->login($this->numer, $this->haslo, $host,
                 $port, $this->OPIS_W_STATUSIE_PO_ZALOGOWANIU))
         {

     	# Wysyłanie wiadomości gdy GG_LOGIN_OK
         case GG_LOGIN_OK:
     	    if ($this->wyslij_liste_kontaktow ($adresat)) {
	          if ($seq = $this->wyslij_wiadomosc($adresat, $tresc))
         		if ($this->odbierz_dane($this->auto_odpowiedz))  // czy 
wysylac odp. ze bramka
     	    	  $this->logoff($this->OPIS_W_STATUSIE_PO_WYLOGOWANIU);
     		        return $seq;  //sukces  :)
     	    } else {
     	      $this->Debug("Połączenie zerwane po zalogowaniu"); break;
     	    }

     	case DISCONNECTED:
     	    $this->Debug("Polaczenie odrzucone dla: $host
     	    ".gethostbyaddr($host).": $port"); break;

     	case GG_LOGIN_FAILED:
     	    $this->error = "<BR>LOGIN FAILED - złe hasło dla $numer";
     	    return FALSE;

     	case GG_LOGIN_FAILED2:
     	    $this->error = "<BR>LOGIN FAILED. "; return FALSE;

     	default:
     	    $this->error = '<BR>LOGIN FAILED - hm, to nie powinno sie 
zdarzyc:)';
             return FALSE;
         }
     } // for i..

     $this->error = "<BR>LOGIN FAILED - połączenie odrzucone $i 
krotnie<BR>\n"
                 ."Mozesz sprobowac jeszcze raz (odwiez strone)\n";
   return FALSE;
   } // function wiadomosc

} // koniec klasy www2gg


#
# funckje do przekształcania i wyświetlania tekstu
#

class txt
{
   function txt() { die ("to jest statyczna klasa"); }

   function wyswietl_status_odbiorcy($data)
   {
     if (strlen($data)<8)
       return "";
     $tab = unpack("Vuin/Vstatus", $data);

     $opisy_stanow = array(GG_STATUS_AVAIL => "dostępny",
                           GG_STATUS_AVAIL_DESCR => "dostępny z opisem",
                           GG_STATUS_BUSY => "zaraz wracam",
                           GG_STATUS_BUSY_DESCR => "zaraz wracam z opisem",
                           GG_STATUS_NOT_AVAIL_DESCR => "niedostępny lub 
niewidoczny z opisem");

     switch ($tab['status']) {
     	case GG_STATUS_AVAIL:
	    case GG_STATUS_BUSY:
           $tab = unpack("Vuin/Vstatus/Vip/vport/Vversion/vunknown/",$data);
	      break;
     	case GG_STATUS_AVAIL_DESCR:
	    case GG_STATUS_BUSY_DESCR:
           $tab = 
unpack("Vuin/Vstatus/Vip/vport/Vversion/vunknown/A*opis",$data);
	      break;
	    case GG_STATUS_NOT_AVAIL_DESCR:
	      $tab = unpack("Vuin/Vstatus/A*opis",$data);
	      break;
	    default:
           // Takiego statusu serwer nie powinien zwrocic
           return "";
     }
     $tab['stan_slownie'] = $opisy_stanow[$tab['status']];

     if ($tab['opis'])
         list($tab['opis'], $tab['czaspowrotu']) = explode("\0", 
$tab['opis']);

     if ($tab['czaspowrotu']) {
     	$temp=unpack("Vczaspowrotu",$tab['czaspowrotu']);
	    setlocale ("LC_TIME", "pl_PL");
     	$tab['czaspowrotu']=strftime("<I>Będzie: %B %d(%A)  o %H:%M </I>", 
$temp['czaspowrotu']);
     }

     // ułożenie informacji do wyświetlenia
     $informacja = $tab['uin']." ma stan: <B>".$tab['stan_slownie']."</B>";
     if ($tab['opis'])
         $informacja.=': "'.$tab['opis'].'" ';
     if ($tab['czaspowrotu'])
         $informacja.=$tab['czaspowrotu'];

   return "<BR>\n".$informacja;
   }

   function wyswietl_wiadomosci ($wiadomosci)
   {
     $html="";
     foreach ($wiadomosci as $tab)
         $html.=txt::wyswietl_wiadomosc($tab['nadawca'], $tab['time'], 
$tab['wiadomosc']);

   return $html;
   }

   function wyswietl_wiadomosc($nadawca, $czas, $wiadomosc)
   {
     # Wykrycue formatowania tekstu w nowszych wersjach i przerobienie 
go na html
     if (strpos($wiadomosc, "\0")+1 < strlen($wiadomosc)) {
         $fmt = substr($wiadomosc, strpos($wiadomosc, "\0"));
         $wiadomosc = substr($wiadomosc, 0, strpos($wiadomosc, "\0"));
         $wiadomosc = txt::konwertuj_formatowanie_na_html($wiadomosc, $fmt);
     }
     $wiadomosc = nl2br($wiadomosc);
     # Ułożenie htmla do wyświetlenia
     $html = "<BR><B>".$nadawca."</B> ".strftime("(%H:%M)<BR>\n",$czas);
     $html.= txt::cp2iso($wiadomosc)."<HR>\n";

   return $html;
   }

   function konwertuj_formatowanie_na_html($tresc, $fmt)
   {

     # Rozbijamy formatowenie na bajty i wstawiamy do tablicy
     $fmt = preg_split('//', $fmt, -1, PREG_SPLIT_NO_EMPTY);
     $i = 1;                    // Wskaznik aktualnego znaku
     $tab = unpack("Ctyp/vsize", $fmt[$i++].$fmt[$i++].$fmt[$i++]);
     # Rozmiar format. i typ=2
     $size = $tab['size'];

     $nr = 0;
     $kawalek = "";

     # Tekst składa się z kawałków o innym formatowaniu
     while ($i < $size + 2) {
         $nr++;
         $tab = unpack("vpoz/Cmaska", $fmt[$i++].$fmt[$i++].$fmt[$i++]);
         $kawalek[$nr]['pozycja'] = $tab['poz'];
         $kawalek[$nr]['maska'] = $tab['maska'];

         if ($tab['maska'] & 1)
             $kawalek[$nr]['bold'] = 1;
         if ($tab['maska'] & 2)
             $kawalek[$nr]['italic'] = 1;
         if ($tab['maska'] & 4)
             $kawalek[$nr]['underline'] = 1;
         if ($tab['maska'] & 8) {
             $tab = unpack("CR/CG/CB", $fmt[$i++].$fmt[$i++].$fmt[$i++]);
             $kawalek[$nr]['R'] = $tab['R'];
             $kawalek[$nr]['G'] = $tab['G'];
             $kawalek[$nr]['B'] = $tab['B'];
         }
     }

     # Tworzymy pomocniczy kawalek z pozycja rowna dlugosci tresci
     $poz = 0;
     $kawalek[$nr + 1]['pozycja'] = strlen($tresc);

     # Znalezienie granic textu n podstawie pozycji i dodanie html'a;
     for ($i = 1; $i <= $nr; $i++) {
         $kawalek[$i]['tekst'] = substr($tresc, $poz, $kawalek[$i + 
1]['pozycja'] - $poz);
         $poz = $kawalek[$i + 1]['pozycja'];
         $kawalek[$i]['html'] = $kawalek[$i]['tekst'];
         if ($kawalek[$i]['bold'])
             $kawalek[$i]['html'] = '<B>'.$kawalek[$i]['html'].'</B>';
         if ($kawalek[$i]['italic'])
             $kawalek[$i]['html'] = '<I>'.$kawalek[$i]['html'].'</I>';
         if ($kawalek[$i]['underline'])
             $kawalek[$i]['html'] = '<U>'.$kawalek[$i]['html'].'</U>';
         $rgb = sprintf("%02X%02X%02X", $kawalek[$i]['R'],
         $kawalek[$i]['G'], $kawalek[$i]['B']);
         $kawalek[$i]['html'] = '<FONT 
COLOR="'.$rgb.'">'.$kawalek[$i]['html'].'</FONT>';
         $tresc_html.= $kawalek[$i]['html'];
     }
     array_pop($kawalek);       //Wywalamy pomocniczy kawalek

   return $tresc_html;
   }

   function cp2iso($co) {
     return strtr($co, "\xA5\x8C\x8F\xB9\x9C\x9F", 
"\xA1\xA6\xAC\xB1\xB6\xBC"); }

   function iso2cp($co) {
     return strtr($co, "\xA1\xA6\xAC\xB1\xB6\xBC", 
"\xA5\x8C\x8F\xB9\x9C\x9F"); }


   /* zmiana linków np moj@email.pl na moj@ email. pl zeby uniknac 
usunięcia */
   function odlinkuj ($text) {

     function dodajspacje ($text) { return 
preg_replace("/([\.@:])/","\\1 ","$text"); }

     $search = array (
               "/(\S+([\@\.])+?\S+)|(\S+:\/\/)/e"
               ,"/www/i"
               ,"/http/i"
               ,"/pl/i"
               );

     $replace = array(
               "dodajspacje('\\1\\3')"
               ,"w*w"
               ,"ht*p"
               ,"p1"      //co ja poradze ze pogłupieli i filturja "pl" 
np. plastik  :)
               ); 	
		
   return preg_replace($search, $replace ,$text);
   }

} // koniec klasy txt


////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/*
  * Dzieki temu bedzie dzialac na register_globals
  on i off
  * (php 4.2.0) a takze na track_vars on i off
  */

if ($HTTP_POST_VARS) foreach ($HTTP_POST_VARS as $Key => $Value) $$Key = 
$Value;
if ($HTTP_GET_VARS)  foreach ($HTTP_GET_VARS as $Key => $Value)  $$Key = 
$Value;
if ($_REQUEST)       foreach ($_REQUEST as $Key => $Value)       $$Key = 
$Value;

$tablica_komunikatow = array (
       GG_ACK_DELIVERED =>
        "<BR>\nWiadomość dla $adresat została odebrana",

       GG_ACK_QUEUED =>
        "<BR>\nWiadomość dla $adresat oczekuje w kolejce na 
odebranie.<BR>\n"
       ."Zostanie dostarczona gdy adresat włączy gadu-gadu<BR>\n lub 
adresat"
       ." ma w tej chwili status <B>niewidoczny</B> bądź \"tylko dla 
znajomych\"",

       GG_ACK_MBOXFULL =>
        "<BR>\nSkrzynka odbiorcza adresata jest pełna, "
       ."wiadomość nie została dostarczona",

       0 =>
        "<BR>Wiadomość nie została dostarczona, spróbuj jeszcze raz 
(odśwież strone)"
);

# POCZATEK

if ( $tryb == "numer_wlasny" ) {        // Dla trybu z wlasnym numerkiem 
zostana
	$pokaz_odebrane = true;             // wyswietlone wiadomosci 
oczekujace na serwerze GG
     $gg = new www2gg ($numer, $haslo);

} else {                                // dla trybu 'z bramki' lub dla 
uproszczonej wersji
     $gg = new www2gg ($numer_bramki, $haslo_bramki);
     $gg->auto_odpowiedz = "To jest jednostronna bramka www2gg, 
wiadomość nie dotarła do nadawcy";

     $pokaz_odebrane = $POKAZ_OCZEKUJACE_WIADOMOSCI_DLA_BRAMKI; // Czy 
pokazac wiadomosci dla bramki
                                                                // ustaw 
w zmiennej na poczatku pliku
     $gg->ustaw_opisy($OPIS_W_STATUSIE_PO_ZALOGOWANIU, 
$OPIS_W_STATUSIE_PO_WYLOGOWANIU);
}

//$gg->debug=true;

/* wyswietlenie roznych informacji, które odebralismy */

echo HEADER;

if ($seq = $gg->wiadomosc ($adresat, $tresc, $DODAWAJ_SPACJE_W_LINKACH))
{
     /* statusu dostarczenia wiadomości */
     echo $tablica_komunikatow[$gg->status_dostarczenia ($seq)];

     /* pełnego statusu adresata wiadomości */
     echo txt::wyswietl_status_odbiorcy ($gg->status_kontaktu[$adresat]);

     /* opcjonalnie wiadomości odebrancyh z serwera o ile były jakieś */
     if ($pokaz_odebrane)
         echo txt::wyswietl_wiadomosci ($gg->wiadomosci);

} else {
     echo $gg->error;
}

echo FOOTER;
?>


---------------------------------------------------------------------------------