|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alex Sokolov 2:5020/662 26 Mar 2001 20:09:42
To : All
Subject : mail::pop3client не приходит return-path
--------------------------------------------------------------------------------
разбираюсь с работой с POP ящиком. все нормально кроме одного: не проходит
строка с значением return-path.
она возвращается пустой, хотя в mailbox она есть.
если включить debug, в нем r-p тоже ЕСТЬ, а в ->head() его нету в упор :((
переписал pop3client.pm к себе в директорию, дамплю данные, читаемые из сокета
my $me = shift;
my $num = shift;
my $lines = shift;
$lines ||= 0;
$lines =~ /\d+/ || ($lines = 0);
my $header = '';
my $s = $me->Socket();
$me->_sockprint( "TOP $num $lines", $me->EOL );
my $line = $me->_sockread();
chomp $line;
$line =~ /^\+OK/ or $me->Message("Bad return from TOP: $line") and return;
$line =~ /^\+OK (\d+) / and my $buflen = $1;
while (1) {
$line = $me->_sockread();
print "=== $line ===<br>";
>## вот тут смотрю - уже r-p пустой :((( ##
last if $line =~ /^\.\s*$/;
$line =~ s/^\.\././;
$header .= $line;
}
return wantarray ? split(/\r?\n/, $header) : $header;
} # end Head
Пока! Алекc.
--- GoldED/386 3.00.Beta5+
* Origin: Злые люди доброй киске не дают украсть сосиски * (2:5020/662)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
