X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=692bf98bf29150cebcaeff9c14cd5ba3c8356908;hb=e00a697bdb9f7c066b3e921d4f8ccc9bb9cf7485;hp=9f0db819a9ee2da8244ac15bf97d1e4a810e5700;hpb=6a0068ec3df1dca0c6ae2714af3c0a4a62998dcf;p=spider.git diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index 9f0db819..692bf98b 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -60,7 +60,12 @@ use vars qw(%channels %valid); lang => '0,Language', func => '9,Function', loc => '9,Local Vars', # used by func to store local variables in + beep => '0,Want Beeps,yesno', lastread => '9,Last Msg Read', + outbound => '9,outbound?,yesno', + remotecmd => '9,doing rcmd,yesno', + pagelth => '0,Page Length', + pagedata => '9,Page Data Store', ); # create a new channel object [$obj = DXChannel->new($call, $msg_conn_obj, $user_obj)] @@ -76,6 +81,8 @@ sub alloc $self->{startt} = $self->{t} = time; $self->{state} = 0; $self->{oldstate} = 0; + $self->{lang} = $user->{lang} if defined $user; + $self->{lang} = $main::lang if !$self->{lang}; bless $self, $pkg; return $channels{$call} = $self; } @@ -146,8 +153,8 @@ sub send_now foreach $line (@_) { chomp $line; - dbg('chan', "-> $sort $call $line\n") if $conn; $conn->send_now("$sort$call|$line") if $conn; + dbg('chan', "-> $sort $call $line") if $conn; } $self->{t} = time; } @@ -164,8 +171,8 @@ sub send # this is always later and always data foreach $line (@_) { chomp $line; - dbg('chan', "-> D $call $line\n") if $conn; $conn->send_later("D$call|$line") if $conn; + dbg('chan', "-> D $call $line") if $conn; } $self->{t} = time; } @@ -188,7 +195,7 @@ sub send_file sub msg { my $self = shift; - return DXM::msg(@_); + return DXM::msg($self->{lang}, @_); } # change the state of the channel - lots of scope for debugging here :-)