From a9d46f9399516b6a48cb12bffd812024a802a264 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 29 Jan 2012 13:46:35 +0100
Subject: [PATCH] query Huawei and ZTE specific AT commands

---
 at-chat.pl | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/at-chat.pl b/at-chat.pl
index 37fa988..a9a8756 100755
--- a/at-chat.pl
+++ b/at-chat.pl
@@ -56,7 +56,9 @@ c 'ATZ' => 'reset';
 
 c 'ATI'  => 'info';
 
-c 'AT+CGMI'  => 'manufacturer';
+c 'AT+CPIN?' => 'SIM pin';
+
+my $manufacturer = c 'AT+CGMI'  => 'manufacturer';
 
 c 'AT+CGMM'  => 'model';
 
@@ -74,6 +76,10 @@ c 'AT+CNUM'  => 'MSISDN';
 
 c 'AT+CLCK=?' => 'facility lock';
 
+if ( $manufacturer =~ m/Huawei/i ) {
+
+print "# Huawei\n";
+
 c 'AT^HWVER' => 'hardware version';
 
 c 'AT^CVOICE?' => 'is voice enabled?';
@@ -82,6 +88,17 @@ c 'AT^DDSETEX=?' => 'voice output';
 
 c 'AT^SYSINFO' => 'sys info';
 
+} elsif ( $manufacturer =~ m/ZTE/i ) {
+
+print "# ZTE\n";
+
+c 'AT+GMR'  => 'revision';
+
+c 'AT+GCI?' => '?';
+
+c 'AT+ZOPRT?' => '?';
+
+}
 
 $port->close || die "can't close port $!";
 
-- 
2.20.1