[Comm] Squid

[Comm] Squid

[max]

Кто-нибудь знает как смотреть кеш squid и вытаскивать из этой помойки ;) 
картинки и проги?
-- 
С наилучшими пожеланиями, Баукин Максим max@zlt.ru

Re: [Comm] Squid

[Denis Klykvin]

On Wed, 29 Sep 2004 13:30:24 +0600
max <max@zlt.ru> wrote:

> Кто-нибудь знает как смотреть кеш squid и вытаскивать из этой помойки
> ;) картинки и проги?
cd /var/spool/squid и искать в "этой помойке" картинки и проги


-- 
With Best Wishes, Denis Klykvin
JID:	nikon@jabber.ru
XmmS now play:  DMX - Get It On The Floor

Re: [Comm] Squid

[max]

Denis Klykvin пишет:
> On Wed, 29 Sep 2004 13:30:24 +0600
> max <max@zlt.ru> wrote:
> 
> 
>>Кто-нибудь знает как смотреть кеш squid и вытаскивать из этой помойки
>>;) картинки и проги?
> 
> cd /var/spool/squid и искать в "этой помойке" картинки и проги

А ты сам-то так пробовал делать?
Что-то там нет никаких картинок и прог, там всё в своём специфическом 
формате.
-- 
С наилучшими пожеланиями, Баукин Максим max@zlt.ru

Re: [Comm] Squid

[Mike Lykov]

В сообщении от Среда 29 Сентябрь 2004 13:15 max написал:

> А ты сам-то так пробовал делать?
> Что-то там нет никаких картинок и прог, там всё в своём специфическом
> формате.

cachemgr.cgi пробовал?

-- 
Mike Lykov
Samara, "Vesna" parfum company, System administrator 

Re: [Comm] Squid

[BSW]

max wrote:
> А ты сам-то так пробовал делать?
А ты пробовал? :)

> Что-то там нет никаких картинок и прог, там всё в своём специфическом 
> формате.
Этот формат "ломается" одним глазом:
- в файле, по смещению 0x0001 лежит целое число (4 байта), которое есть 
длина заголовка;
- остальное не обязательно, но там, по смещению 0x003C, есть исходный 
URL, его видно глазами, кончается 0x00;
- дальше идет собственно ответ http-сервера (HTTP/1.0...):
   - http-заголовок, который кончается символами 0x0D 0x0A 0x0D 0x0A;
   - тело объекта (html, картинка, программа, ...).
Вот и вся специфика.

Re: [Comm] Squid

[max]

Mike Lykov пишет:
> В сообщении от Среда 29 Сентябрь 2004 13:15 max написал:
> 
> 
>>А ты сам-то так пробовал делать?
>>Что-то там нет никаких картинок и прог, там всё в своём специфическом
>>формате.
> 
> 
> cachemgr.cgi пробовал?
> 
Там такого не нашёл...

-- 
С наилучшими пожеланиями, Баукин Максим max@zlt.ru

Re: [Comm] Squid

[max]

BSW пишет:

>> Что-то там нет никаких картинок и прог, там всё в своём специфическом 
>> формате.
> 
> Этот формат "ломается" одним глазом:
> - в файле, по смещению 0x0001 лежит целое число (4 байта), которое есть 
> длина заголовка;
> - остальное не обязательно, но там, по смещению 0x003C, есть исходный 
> URL, его видно глазами, кончается 0x00;
> - дальше идет собственно ответ http-сервера (HTTP/1.0...):
>   - http-заголовок, который кончается символами 0x0D 0x0A 0x0D 0x0A;
>   - тело объекта (html, картинка, программа, ...).
> Вот и вся специфика.

А есть автоматическая "ломалка"? Она то мне и нужна, чтоб казала что 
вообще в кеше лежит и позволяла взять это что-то от туда.

-- 
С наилучшими пожеланиями, Баукин Максим max@zlt.ru

Re: [Comm] Squid

[BSW]

max wrote:
> А есть автоматическая "ломалка"? Она то мне и нужна, чтоб казала что 
> вообще в кеше лежит и позволяла взять это что-то от туда.
Вот же народ ленивый пошел! :-)

Вот тебе. Умеет следующее:
- показывать исходный URL (ключ -u);
- показывать тип (ключ -t);
- выдавать нагора тело (ключ -b).
Никаких проверок. Вызывать так:
`script [-t] [-u] [-b] <1234 >coolgirl.jpg`, где 1234 - файл из 
сквидового кеша.
Как скормить весь кеш целиком - man find.

-==================================================-
#!/usr/bin/perl

# читаем параметры ком.строки
while ($p = shift)
{
     if ("$p" eq "-u") { $url = 1; }     # показывать URL
     elsif ("$p" eq "-t") { $type = 1; } # показывать тип контента
     elsif ("$p" eq "-b") { $body = 1; } # отдать тело
     else { print "Плохие параметры\n"; exit; };
};

$tmp = $/;

# читаем длину заголовка
read(STDIN, $buf, 5);
(undef, $headlen) = unpack("HIH*", $buf);

# читаем URL
seek(STDIN, 0x3C, SEEK_SET);
$/ = "\0";
$URL = <>;
chomp $URL;

# читаем заголовок HTTP
seek(STDIN, $headlen, SEEK_SET);
$/ = "\r\n\r\n";
$HTTP = <>;
chomp $HTTP;

$/ = $tmp;

$err = 1;
if ($url)
{
     print "$URL\n";
     $err = 0;
};

if ($type)
{
     $HTTP =~ /^Content-Type:\s(.+)\r\n/m;
     print "$1\n";
     $err = 0;
};

if ($body)
{
     undef $/;
     print <>;
     $/ = $tmp;
     $err = 0;
};

exit($err);
-==================================================-