projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix sh/muf
[spider.git]
/
perl
/
DXXml
/
Text.pm
diff --git
a/perl/DXXml/Text.pm
b/perl/DXXml/Text.pm
index a08cbda0ded9623ec17ac12095956f786a61e868..adec20e84704e66a44d2d8d95bb7639d99d270a6 100644
(file)
--- a/
perl/DXXml/Text.pm
+++ b/
perl/DXXml/Text.pm
@@
-12,9
+12,7
@@
package DXXml::Text;
use DXDebug;
use DXProt;
use DXDebug;
use DXProt;
-use IsoTime;
-use Investigate;
-use Time::HiRes qw(gettimeofday tv_interval);
+use DXLog;
use vars qw($VERSION $BRANCH @ISA %pings);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
use vars qw($VERSION $BRANCH @ISA %pings);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
@@
-32,8
+30,7
@@
sub handle_input
if ($self->{to} eq $main::mycall) {
my $tochan = DXChannel::get($self->{u} || $main::myalias);
if ($tochan) {
if ($self->{to} eq $main::mycall) {
my $tochan = DXChannel::get($self->{u} || $main::myalias);
if ($tochan) {
- my $ref = $self->tocmd;
- $tochan->send($_) for (ref $ref ? @$ref : $ref);
+ $tochan->send($self->tocmd);
} else {
dbg("no user or $main::myalias not online") if isdbg('chanerr');
}
} else {
dbg("no user or $main::myalias not online") if isdbg('chanerr');
}
@@
-49,14
+46,14
@@
sub topcxx
my @out;
my $ref = DXUser->get_current($self->{to});
my @out;
my $ref = DXUser->get_current($self->{to});
-
while (@_
) {
- my $line =
shift
;
+
for (split /(?:%0D)?\%0A/, $self->{content}
) {
+ my $line =
$_
;
$line =~ s/\s*$//;
Log('rcmd', 'out', $self->{to}, $line);
if ($self->{u} && $dxchan->is_clx && $ref->is_clx) {
$line =~ s/\s*$//;
Log('rcmd', 'out', $self->{to}, $line);
if ($self->{u} && $dxchan->is_clx && $ref->is_clx) {
- push @out, pc85($main::mycall, $self->{to}, $self->{u}, "$main::mycall:$line");
+ push @out,
DXProt::
pc85($main::mycall, $self->{to}, $self->{u}, "$main::mycall:$line");
} else {
} else {
- push @out, pc35($main::mycall, $self->{to}, "$main::mycall:$line");
+ push @out,
DXProt::
pc35($main::mycall, $self->{to}, "$main::mycall:$line");
}
}
}
}