projects
/
huawei.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't modify echo ATE0
[huawei.git]
/
qcdm.pl
diff --git
a/qcdm.pl
b/qcdm.pl
index
21a1673
..
693e48d
100755
(executable)
--- a/
qcdm.pl
+++ b/
qcdm.pl
@@
-72,7
+72,11
@@
$port->read_char_time(3000); # 5 s char timeout
$port->read_const_time(3000); # 1 s read timeout
while ( my $drain = $port->input ) {
$port->read_const_time(3000); # 1 s read timeout
while ( my $drain = $port->input ) {
- warn "# drain $drain\n# /drain\n";
+ warn "# drain $drain\n";
+
+ $port->write('AT$QCDMG' . "\r");
+ warn "DIAG mode: ", $port->read(2), $port->input; # OK+cr/lf
+
}
my $diag = {
}
my $diag = {
@@
-97,9
+101,6
@@
my $diag = {
warn "## using $device\n";
warn "## using $device\n";
-#$port->write('AT$QCDMG');
-#warn "DIAG mode: ", $port->read(2), $port->input; # OK+cr/lf
-
sub as_hex {
my @out;
foreach my $str ( @_ ) {
sub as_hex {
my @out;
foreach my $str ( @_ ) {