From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 27 Jan 2012 20:39:04 +0000 (+0100)
Subject: enter in diag mode automatically
X-Git-Url: http://git.rot13.org/?p=huawei.git;a=commitdiff_plain;h=9952172f4e84cc1fe59a84052e3c20658c89bf4b

enter in diag mode automatically
---

diff --git a/qcdm.pl b/qcdm.pl
index 21a1673..693e48d 100755
--- 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 ) {
-	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 = {
@@ -97,9 +101,6 @@ my $diag = {
 
 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 ( @_ ) {