4 |
## |
## |
5 |
## $Id$ |
## $Id$ |
6 |
## |
## |
7 |
|
## $Log$ |
8 |
|
## Revision 1.2 2002/06/15 03:45:21 cvsjoko |
9 |
|
## + cvs id & log |
10 |
|
## + clearing inputbuffer just after getting the "enter"-key |
11 |
|
## |
12 |
|
## |
13 |
package POE::Component::Terminal; |
package POE::Component::Terminal; |
14 |
|
|
15 |
use strict; |
use strict; |
194 |
# send command |
# send command |
195 |
my $buf = $heap->{state}{InputBuffer}; |
my $buf = $heap->{state}{InputBuffer}; |
196 |
if ($buf) { |
if ($buf) { |
197 |
|
$heap->{state}{InputBuffer} = ''; |
198 |
$heap->{state}{RequestPending} = 1; |
$heap->{state}{RequestPending} = 1; |
199 |
#print "ord: ", ord($buf), "\n"; |
#print "ord: ", ord($buf), "\n"; |
200 |
my $response_target = { |
my $response_target = { |
203 |
}; |
}; |
204 |
$kernel->post( $self->{RequestSession} => $self->{RequestState} => $buf, $response_target); |
$kernel->post( $self->{RequestSession} => $self->{RequestState} => $buf, $response_target); |
205 |
} |
} |
|
$heap->{state}{InputBuffer} = ''; |
|
206 |
|
|
207 |
# prepare new loop for fresh prompt |
# prepare new loop for fresh prompt |
208 |
print "\n"; |
print "\n"; |