|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anton Gorlov 2:5059/37 03 Mar 2007 15:46:32
To : Serge Chervjakov
Subject : Net::SMTP
--------------------------------------------------------------------------------
03 марта 2007 года (а было тогда 14:08:08)
Serge Chervjakov в своем письме к Mykola Dzham писал:
SC> message(), в котором предварительно вызвать метод предка. Вариант 3 -
SC> разобраться как производится очистка из message() и сделать свой метод
SC> dataend().
Я так и не разобрася где и как очищается message. message обьявлена в net::Cmd
==== заливка "Windows Clipboard" ====
sub message
{
@_ == 1 or croak 'usage: $obj->message()';
my $cmd = shift;
wantarray ? @{${*$cmd}{'net_cmd_resp'}}
: join("", @{${*$cmd}{'net_cmd_resp'}});
}
sub debug_text { $_[2] }
sub debug_print
{
my($cmd,$out,$text) = @_;
print STDERR $cmd,($out ? '>>> ' : '<<< '), $cmd->debug_text($out,$text);
}
==== конец "Windows Clipboard" ====
dataend здесь же
==== заливка "Windows Clipboard" ====
sub dataend
{
my $cmd = shift;
return 0 unless defined(fileno($cmd));
my $ch = ${*$cmd}{'net_cmd_last_ch'};
my $tosend;
if (!defined $ch) {
return 1;
}
elsif ($ch ne "\012") {
$tosend = "\015\012";
}
$tosend .= ".\015\012";
local $SIG{PIPE} = 'IGNORE' unless $^O eq 'MacOS';
$cmd->debug_print(1, ".\n")
if($cmd->debug);
syswrite($cmd,$tosend, length $tosend);
delete ${*$cmd}{'net_cmd_last_ch'};
$cmd->response() == CMD_OK;
}
==== конец "Windows Clipboard" ====
С уважением. Anton aka Stalker
np: silence ( Winamp ушел в Партизаны ;-)
Linux Registered User #386476
[#*TEAM:*#] [#_Злой СисОп_#] [*Heavy Metal!*] [*_Усачи_*]
--- GoldED+/W32 1.1.5-041013
* Origin: Вскрытие показало, что больной умер от вскрытия. (2:5059/37)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
