Очередная бредня...

[phpmysql]

Исходники:
Мой вариант
Вариант Nuclear Snow

У каждого PHP програмиста наступает момент когда ему очень хочется написать свой класс для работы с HTTP... я долго ждал, решил вот немного накидать. Критика привествуется.
Исходный класс:

Покажись!

class gsocket
{
var $CONNECTION=FALSE;
var $STREAM;
var $METHOD='GET';
var $POST = ARRAY();
var $GET = ARRAY();

var $COOKIES = ARRAY();
var $PROTOCOL = ARRAY('TYPE' => 'HTTP','VERSION' => '1.0', 'PORT' => 80);

//Заголовки соединения
var $HEADERS=ARRAY();

//Инициализация
function gsocket()
{
//Генерируем заголовки
$HEADERS=&$this->HEADERS;
$HEADERS['Connection']='Close';
$HEADERS['Referer']='';
$HEADERS['Host']='';
$HEADERS['User-Agent']='grex-gsockets/1.2';
$HEADERS['Cache-Control']='no-cache';
}


//Выдача сформированных заголовков
function headers()
{
//Заголовки для посылки
$HEADERS='';

$COOKIES='';
FOREACH($this->COOKIES AS $NAME => $PROPERTY)
$COOKIES.="$NAME=$PROPERTY;";

//Кукисы
$this->HEADERS['сoоkiе']=$COOKIES;

//Генерируем заголовки
FOREACH($this->HEADERS AS $NAME => $PROPERTY)
IF($PROPERTY) $HEADERS.="$NAME: $PROPERTY\r\n";
RETURN $HEADERS;
}

function get_extract($QUERY_STRING)
{
$RESULT=ARRAY();
IF(!$QUERY_STRING) RETURN $RESULT;
FOREACH(EXPLODE('&', $QUERY_STRING) AS $QUERY)
{
$QUERY=LTRIM($QUERY);
IF(!STRPOS($QUERY,'=')) $RESULT[$QUERY]=''; ELSE $RESULT[SUBSTR($QUERY,0,STRPOS($QUERY,'='))]=RAWURLDECODE(SUBSTR($QUERY,STRPOS($QUERY,'=')+1));
}
UNSET($QUERY);
RETURN $RESULT;
}

function make_get_string($ARRAY)
{
$RESULT='';
FOREACH($ARRAY AS $NAME => $DATA)
{
IF($DATA) $DATA='='.RAWURLENCODE($DATA);
$RESULT.='&'.$NAME.$DATA;
}
RETURN SUBSTR($RESULT,1);
}


function setcookie($NAME,$PROPERTY)
{
$this->COOKIES[$NAME]=$PROPERTY;
}

function clean($ARRAY)
{
$this->$ARRAY=ARRAY();
}



function post($DATAS)
{
$this->POST=ARRAY_MERGE($this->POST,$DATAS);
}




function connect($REQUEST_URI)
{
//Закрываем предыдущий сеанс
$this->close_connection();

//Получаем сотавляющие адреса
PREG_MATCH("/(http:\/\/){0,1}(www\.){0,1}([^\/]+)\/{0,1}([^\?]*)\?{0,1}(.*)$/",$REQUEST_URI,$MATCHES);
$this->HEADERS['Host']=$MATCHES[3];
//Запрашиваемый скрипт
$sсript_NAME=$MATCHES[4];
//Строка запроса

$QUERY_STRING=$MATCHES[5];

$TEMP_GET=$this->GET=$this->get_extract($QUERY_STRING);
FOREACH($TEMP_GET AS $NAME => $PROPERTY)
$this->GET[$NAME]=$PROPERTY;

$QUERY_STRING=$this->make_get_string($this->GET);

IF($QUERY_STRING) $QUERY_STRING='?'.$QUERY_STRING;

//Создаем основной заголовок
$HEADERS=$this->METHOD." /$sсript_NAME$QUERY_STRING ".$this->PROTOCOL['TYPE'].'/'.$this->PROTOCOL['VERSION']."\r\n".$this->headers();

IF($this->METHOD=='POST')
{
$POST_DATAS=$this->make_get_string($this->POST);
//Дополнительные заголовки для POST
$HEADERS.="Content-Type: application/x-www-form-urlencoded\r\nContent-length:".STRLEN($POST_DATAS)."\r\n\r\n";
$HEADERS.=$POST_DATAS;
}
ELSE $HEADERS.="\r\n";



//Посылаем запрос

IF(!@$this->STREAM=FSOCKOPEN($this->HEADERS['Host'],$this->PROTOCOL['PORT'],$ERROR)) RETURN FALSE;
ELSE
{
FWRITE($this->STREAM,$HEADERS);
$this->CONNECTION=TRUE;
}
RETURN TRUE;
}

function close_connection()
{
$this->CONNECTION=FALSE;
@FCLOSE($this->STREAM);
}

function read($LENGTH)
{
IF($this->CONNECTION) RETURN FREAD($this->STREAM,$LENGTH);
RETURN FALSE;
}

function rfull()
{
//Читаем полностью
$RESULT='';
WHILE(!FEOF($this->STREAM))
$RESULT.=FREAD($this->STREAM,256);
$this->close_connection();
RETURN $RESULT;
}
}

А вот пример использования:

Узреть

$f = new gsocket();
$f->setcookie('user_login','%E2%EE%EB%F7%EE%ED%EE%EA+%E4%E6%E5%E9');
$f->setcookie('user_pass','пароль');

$f->connect('pda.diary.ru/member/?'.(1*@$_GET['id']).'&fullreaderslist&fullfavoriteslist');

echo $f->rfull();

//Можно и не закрывать
$f->close_connection();

Что умеет (ну это наверно умеют все подобные классы):
- Посылать GET запросы
- Посылать POST запросы (в старой форме, мультипарт можно дописать)
- Устанавливать куки
- Модифицировать запросы