Учёт трафика на perl

[Духъ]

С недавнего времени начал кодить на perl, но как всегда возник вопрос: возможно ли учитывать трафик срествами perl в виндовс, трафик проходит через прокси. Прокси тоже написан на perl.

[Talisman]

епть.... сорцы проксика то дай :) он 100% в своем нутре считает траф, чтобы пакеты не "рвать" и ждать конца. ищи эту функцию по примерному называнию, возможному названию.

[Духъ]

вот сорцы, сразу говорю писал не я


#!usr/bin/perl

use Socket;

my $port = 4444;

my $protocol = getprotobyname('tcp');
my $my_addr = sockaddr_in ($port, INADDR_ANY);

socket (SOCK, AF_INET, SOCK_STREAM, $protocol) or die "socket(): $!";
setsockopt (SOCK, SOL_SOCKET, SO_REUSEADDR,1 ) or die "setsockopt(): $!";
bind (SOCK, $my_addr) or die "bind(): $!";
listen (SOCK, SOMAXCONN) or die "listen(): $!";

$SIG{'INT'} = sub {
print " terminate process\n";
close (SOCK);
exit;
};

warn "Џ® агббЄЁ §*ЇгбЄ Їа®ЄбЁ: HTTP Proxy started on port $port\n";

while (1) {
next unless my $remote_addr = accept (SESSION, SOCK);

my ($fist, $method, $remote_host, $remote_port) = analyze_request();

if (open_connection (REMOTE, $remote_host, $remote_port) == 0) {
# ....
print "Couldnt connect";
close (SESSION);
next;
}

print REMOTE $first;
print REMOTE "User-Agent: Googlebot/2.1 (+http://www.google.com/bot.html)\n";

while (<SESSION>) {
next if (/Proxy-Connection:/ || /User-Agent:/);

print REMOTE $_;

last if ($_ =~ /^[\s\x00]*$/);
}

print REMOTE "\n";
$header = 1;

while (<REMOTE>) {
print SESSION $_;

if ($header) {
if ($header && $_ =~ /^[\s\x00]*$/) {
$header = 0;
}
}

}

close (REMOTE);
close (SESSION);
}

close (SOCK);


sub analyze_request {
my ($fist, $url, $remote_host, $remote_port, $method);

$first = <SESSION>;
$url = ($first =~ m|(http://\S+)|)[0];
print " Request for URL: $url \n";

($method, $remote_host, $remote_port) =
($first =~ m!(GET) http://([^/:]+):?(\d*)! );

# bad request
if (!$remote_host) {
close(SESSION);
exit;
}

$remote_port = "http" unless ($remote_port);
$first =~ s/http:\/\/[^\/]+//;
return ($first, $method, $remote_host, $remote_port);
}

# arg : SOCKET, host, port
sub open_connection {
my ($host, $port) = @_[1,2];
my ($dest_addr, $cur);

if ($port !~ /^\d+$/) {
$port = (getservbyname($port, "tcp"))[2];
$port = 80 unless ($port);
}

$host = inet_aton ($host) or return 0;
$dest_addr = sockaddr_in ($port, $host);

socket ($_[0], AF_INET, SOCK_STREAM, $protocol) or die "socket() : $!";
connect ($_[0], $dest_addr) or return 0;

$cur = select($_[0]);
$| = 1;
select($cur);

return 1;
}

[C!klodoL]

вообще можно считать входящие и исходящие данные функцией length и складывать, а вообще посмотри тут http://search.cpan.org/search?query=traffic&mode=all может что из модулей подойдёт

[genom--]

ну впринципе C!klodoL правильно сказал считать длину данных и бампить в файл в таком виде каком тебе это удобно -- ток зачем немогу понять