| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Short timeouts could cause fetchmail to not wait long enough for the
"250 Ok" after shipping a long message, particularly with synchronous
mailers and extensive spam filtering. This caused fetchmail to re-fetch
long messages.
While the actual fix is making sure that the timeout is no shorter than
the time the SMTP server takes to process the message, we now enforce
the minimum RFC-5321 recommended timeouts even if the user configures a
lower timeout.
This is to fix Berlios Bug #10972, reported by Viktor Binzberger.
NOTE: it is untested whether we will properly delete the m#!/usr/bin/perl
BEGIN { $SIG{'__WARN__'} = sub {};};
$hostname = "criens.u-psud.fr";
$username = "p99dreyf";
$passwd = "xxxxxxxx";
$command = "exec ~/bin/imapd";
use Net::Telnet ();
$host = new Net::Telnet (Timeout => 10,
Port => 23,
Prompt => '/p99dreyf>\s?$/',
Cmd_remove_mode => 1);
$host->option_accept(Dont => &Net::Telnet::TELOPT_ECHO,
Wont => &Net::Telnet::TELOPT_ECHO);
open (FILE,">log");
$host->dump_log("log2");
$host->input_log("log3");
## Issue some commands.
$host->open($hostname);
#$host->login($username, $passwd);
$host->waitfor('/login:\s?$/');
$host->print("$username");
$host->waitfor('/Password:\s?$/');
$host->print("$passwd");
$host->waitfor('/p99dreyf>\s?$/');
$host->print("$command");
$strip=1;
while ($strip) {
$greeting=$host->getline();
if ($greeting=~/^\* PREAUTH.*$/) { print "$greeting"; $strip=0;};
}
do {
do {
$cmd=<STDIN>;
chop $cmd;
} while ($cmd !~/[A-Za-z0-9]/);
$host->print("$cmd");
print FILE ">>$cmd<<\n";
do {
$line=$host->getline();
chop($line);
print "$line\n";
print FILE "<<$line<<\n";
} while (($line!~/^[A-Za-z0-9]+ (OK|BAD|Expunge).*$/) &&
($line!~/^\* BAD.*$/));
print FILE "--next cmd\n";
} while ($line!~/^[A-Za-z0-9]+ OK LOGOUT.*$/);
exit;
|
