⛩️ ☝🏿 🤰🏻 USBモデムhuawei e1550を介した音声通話（通知）を生成するperlスクリプト 🕸️ 🐔 🦂

かつては出張に多くの時間を費やしていたので、すばらしいおもちゃ、Huawei e1550 usbモデムを購入しました。しかし、da烈な若者の時代は過ぎ去り、意図された目的のためにこのデバイスを使用する必要はなくなりました。それで彼は数年の間私の棚にちりばめた。そして、それはさらに塵を払っていたでしょうが、タスクは警告システムを作るために起こりました。それから、モデムについて思い出しました。タスクを検討すると、SMSの読み取りに関する通知を受信できないため、音声ダイヤルを優先してSMS通知を拒否せざるを得ませんでした。アスタリスクベースのソリューションは私には少し面倒に思えたので、モデムのドックを読んだ後、自分でダイヤラーを書くことにしました。

出版の理由。

USSDおよびSMSリクエストの処理に関する豊富な記事があるにもかかわらず、スクリプト言語（Perl、PHP、Node.jsなど）での音声呼び出しの実装は見つかりませんでした。この記事が皆様のお役に立てば幸いです。

開発環境

オペレーティングシステム：Linux

配布：openSUSE 12.3

カーネル：3.7.10-1.16-desktop＃1 SMP PREEMPT Fri May 31 20:21:23 UTC 2013（97c14ba）i686 i686 i386 GNU / Linux

プログラミング言語：Perl

usbモデム：Huawei e1550

ちょっとした理論。

ほとんどのLinuxディストリビューションでは、このモデムを/ devに接続すると、3つのusbインターフェイスが作成されます。これは通常：

/ dev / ttyUSB0-モデムコマンドラインインターフェイス

/ dev / ttyUSB1-音声（音声モードがオンの場合）モデムインターフェイス

/ dev / ttyUSB2-モデムコマンドラインインターフェイス。 / dev / ttyUSB0とは異なり、コマンドに対するモデムの応答だけでなく、サービスメッセージも読み取ることができます。信号品質データ、^ CEND出力など。

モデムの操作を開始するには、ファイルとして読み書きするためのコマンドインターフェイスの1つを開くだけです。

モデムにコマンドを送信するには、開いているインターフェイスファイルにコマンドを書き込む必要があります。

このコマンドに対するモデムの応答を取得するには、開いているインターフェイスファイルから読み取る必要があります。

モデムに与えることができるコマンドはATコマンドです

Huawei e1550モデムのコマンドとそれらで取得できる回答は、仕様に記載されています。

HUAWEI CDMAデータカードモデムATコマンドインターフェイス仕様

HUAWEI UMTSデータカードモデムATコマンドインターフェイス仕様

モデムの音声機能を有効にするには、コマンドAT ^ CVOICE = 0を発行する必要があります

音声機能は、コマンドAT ^ CVOICE = 1によって無効になるまで有効になります

オーディオ情報のモデムへの送受信を開始するには、各呼び出しでAT ^ DDSETEX = 2コマンドを使用してモデムオーディオポートのモードを切り替える必要があります。

モデムに送信するための音声データは次の形式である必要があります

デジタル化周波数：8000ヘルツ。

チャンネル数：1（モノ）。

デジタル化ビット：符号付き16。

オーディオデータは、0.02秒ごとに320バイトの部分でモデムのオーディオポートに入力する必要があります。

通話の終わりに、モデムは2番目のコマンドインターフェイスを介して、CENDメッセージの形式で通話に関する情報を提供します。

^ CEND出力形式：call_index、duration、end_status、cc_cause

ここで：

call_index-一意の呼び出し識別子

duration-秒単位の通話時間

end_status-通話終了後のデバイスステータスコード

cc_cause-コール終了理由コード

だから。始めましょう。

ダイヤラーは3つのファイルで構成されます。

huawey_voice_call.pl-音声ダイヤラースクリプト自体。

list.01.pl-サブスクライバーデータを含むファイル。

test.voice.raw-音声メッセージが必要な形式で記録されたファイル。

また、記事2の最後に、追加のファイルが表示されます。

cc_cause.pl-呼び出しの終了理由のコードが含まれています（cc_cause）

end_status.pl-コール終了後のデバイスステータスコードが含まれます（end_status）

1つのアーカイブ内のすべてのファイル（私のコンピューターに投稿され、時々コンピューターの電源が切れます）

huawey_voice_call.plを検討する

＃！/ usr / bin / perl
＃モジュールTimeプラグイン:: HiResおよびインポート
＃現在のネームスペース関数sleep
＃この関数の機能は、指定する機能です
＃1秒未満の遅延
Time :: HiRes qw （ sleep ）を使用します。
＃コード切断原因コードを含むcc_cause.plファイルを含める
＃これらのコードは、通話終了の理由を示しています
＃このスクリプトは使用されませんが、書き込み用
完全なダイヤラーはこれを分析する必要があります
出力のパラメータ^ CEND：call_index、duration、end_status、cc_cause
＃my％cc_cause = do 'cc_cause.pl';
＃コードを含むファイルend_status.plをインクルードしますendind原因コードを呼び出します
＃これらのコードは、通話終了後のデバイスのステータスを表示します
＃このスクリプトは使用されませんが、書き込み用
完全なダイヤラーはこれを分析する必要があります
出力のパラメータ^ CEND：call_index、duration、end_status、cc_cause
＃my％end_status = do 'end_status.pl';
＃詳細：
＃CENDタイプのメッセージは、通話が終了するとモデムによって発行されます
＃および通話に関する情報、通話終了の理由に関する情報を含む
＃およびデバイスのステータスについて。
＃出力形式^ CEND：call_index、duration、end_status、cc_cause
＃ここで：
＃call_index-一意の呼び出し識別子
＃duration-秒単位の通話時間
＃end_status-通話終了後のデバイスステータスコード
＃cc_cause-通話を終了する理由コード
＃モデムをOS Linuxを搭載したコンピューターに接続する場合
＃3 USBインターフェイスは、モデムとのデータ交換のために作成されます
＃通常これ：
＃/ dev / ttyUSB0-モデムコマンドインターフェイス
＃/ dev / ttyUSB1-音声（音声モードがオンの場合）モデムインターフェイス
＃/ dev / ttyUSB2-モデムコマンドラインインターフェイス。その点で/ dev / ttyUSB0とは異なります
＃モデムのコマンドに対する応答だけでなく、サービスに対する応答も読むことができる
＃メッセージ。信号品質データ、^ CEND出力など。
＃モデムにサウンドを送信するポートを示します
$ VOICE_PORT = "/ dev / ttyUSB1" ;
＃モデムコマンドを提供するポートを示します
$ COMMAND_PORT = "/ dev / ttyUSB2" ;
＃設定：
＃0-デバッグ出力を無効にする
＃1-デバッグ出力を有効にする
$ VERBOSE = 1 ;
＃読み取りおよび書き込み用にモデムコマンドポートを開く
$ SENDPORT 、 '+ <' 、 $ COMMAND_PORTを開くか、「 '$ COMMAND_PORT'を開けません：$！ \ n 」 ;
＃読み取りと書き込みのためにモデムの音声ポートを開きます
＃ポートからのオーディオストリームの読み取りは、このプログラムでは使用されません
＃ただし、このスクリプトを留守番電話に変えることを妨げるものは何もありません。たとえば、
$ SENDPORT_WAV 、 '+ <' 、 $ VOICE_PORTを開くか、「 '$ VOICE_PORT'を開けません：$！ \ n 」 ;
＃サブスクライバーに関するデータを含むファイルlist.01.plを含めます
私の @user_list = do 'list.01.pl' ;
＃2つのパラメーターを送信する呼び出し関数を呼び出します。
＃1-ボイスメッセージファイル名
＃2-サブスクライバーデータ配列
call_list （ "test.voice.raw" 、 \ @user_list ） ;
＃呼び出しの最後に、開いているすべてのファイル/ポートを閉じます
exit_call （） ;
＃この関数はリスト上のサブスクライバーを呼び出します
sub call_list {
＃音声メッセージでファイル名を取得
私の $ l_file = shift ;
＃購読者に関するデータを含むリストへのリンクを取得
私の $ l_list = shift ;
＃音声メッセージでファイルからデータをロード
私の $ l_voice = load_voice （ $ l_file ） ;
＃このサイクルは、サブスクライバーのリストを実行します
＃ダイヤルしようとする
foreach $ l_info （ @ { $ l_list } ） {
＃加入者にダイヤルする機能を呼び出す
私の $ l_msg = call_one （ $ l_info 、 $ l_voice ） ;
＃受信したメッセージを表示する
print $ l_msg ;
＃次の人に電話する前
＃3秒待ちます。
睡眠 3 ;
}
}
＃この関数は、指定された番号の呼び出しを試みます
＃および成功した場合-音声メッセージをブロードキャストします
sub call_one {
私の $ l_info = shift ; ＃現在のサブスクライバデータを使用したハッシュ
私の $ l_bufer = shift ; ＃ヘッダーメッセージの320バイトチャンクの配列
＃このコマンドには、モデムの音声モードが含まれます
＃一度有効にすると、削除/再測定できます
＃このコマンド。モデムは状態を記憶します。
#at_send（ 'AT ^ CVOICE = 0'）;
＃モデムに番号を呼び出す$ l_info-> {phone}
＃モデムからの応答を期待：
＃OK-正常にダイヤルされました
＃NO CARRIER-セルラーネットワークへの接続なし
my $ l_rec = at_send （ "ATD $ l_info-> {phone};" 、 qr / （ OK | NO CARRIER ） / ） ;
＃ダイヤルアップが発生しなかった場合、関数を終了して対応するメッセージを返します
return "購読者$ l_info-> {name} [$ l_info-> {phone}]通知なし。ネットワークなし\ n " if $ l_rec eq 'NO CARRIER' ;
＃加入者が電話に出るときを期待する
＃CONN：....-加入者が電話を取りました
＃CEND：....-サブスクライバーが利用できない、通話中、または通話を切断した
$ l_rec = at_rec （ qr / \ ^（CONN \：1 \、0 | CEND \ :) / ） ;
＃加入者が電話に出ない場合、機能を終了して対応するメッセージを返す
return "購読者$ l_info-> {名前} [$ l_info-> {phone}]は通知されません。アクセス不可またはリセット\ n " if $ l_rec eq 'CEND：' ;
＃モデムを音声受信/送信モードに切り替えます
＃OK-切り替えは成功しました
＃エラー-切り替えに失敗しました
＃CEND：....-サブスクライバーが利用できない、通話中、または通話を切断した
$ l_rec = at_send （ 'AT ^ DDSETEX = 2' 、 qr / （ OK | ERROR | CEND \ :) / ） ;
＃音声モードへの切り替えに失敗した場合、またはサブスクライバーが発生しなかった場合
＃ハンドセット-関数を終了し、対応するメッセージを返す
return "購読者$ l_info-> {name} [$ l_info-> {phone}]通知なし。アクセス不可またはリセット\ n " if $ l_rec ne 'OK' ;
＃ここに着いた場合、通話が確立されており、加入者が電話に出たことを意味します
＃モデムへの音声は、0.02秒ごとに320バイトの部分で送信される必要があります
＃サービス変数を設定します$ | ユニットごとに、これはバッファリングを無効にします。
＃このようにして、データはすぐにサウンドポートに送信されます。
$ | = 1 ;
＃音声メッセージの320バイトチャンクによるバッファループ
foreach my $ c （ @ { $ l_bufer } ） {
＃次のピースをモデムの音声ポートに記録します
syswrite $ SENDPORT_WAV 、 $ c 、 320 ;
＃サイクルを続行する前に0.02秒待機します
睡眠（ 0.02 ） ;
}
＃受話器を置きます。
at_send （ 'AT + CHUP' ） ;
＃成功した通知に関するメッセージを返します。
return "購読者$ l_info-> {name} [$ l_info-> {phone}]成功通知\ n " ;
}
＃この関数は、音声メッセージを320バイトの断片の配列にロードします
＃1つのパラメーターを取ります-ファイル名
＃オーディオデータ形式-pcm、mono、8000ヘルツ、16ビット、署名あり
sub load_voice {
私の $ l_file_name = shift ;
my $ l_fh = new IO :: ファイル "<$ l_file_name" または die "$ l_file_nameを開けません：$！" ;
binmode （ $ l_fh ） ;
私の @l_bufer = （） ;
while （ read （ $ l_fh 、 $ l_bufer [ $ i ] 、 320 ）） { $ i ++; }
close $ l_fh ;
return \ @l_bufer ;
}
＃この関数は、コマンドをモデムコマンドポートに送信します
＃正規表現で示された応答を待つ
＃2つのパラメーターを取ります：
＃1-チーム
＃2-予想される回答のオプションを記述する正規表現（デフォルトはOK）
sub at_send {
私の $ l_cmd = shift ;
私の $ l_rx = シフト || qr /（OK）/ ;
print $ SENDPORT "$ l_cmd \ r " ;
print "SEND：[$ l_cmd] \ n " if $ VERBOSE ;
return at_rec （ $ l_rx ） ;
}
＃この関数は、モデムからのモデム応答を期待します
＃1つのパラメーターを受け取る-予想される回答のオプションを説明する正規表現（デフォルトはOK）
sub at_rec {
私の $ l_rx = シフト || qr / OK / ;
私の $ recive = '' ;
while （！（ $ recive =〜 $ l_rx ）） {
$ recive = < $ SENDPORT >;
$ recive = 〜s / [ \ n \ r ] + // msg ;
print "RECIVE：[$ recive] \ n " if $ VERBOSE && $ recive ;
}
$ recive =〜 $ l_rx ;
print "END RECIVE：[$ recive] [$ 1] [$ l_rx] \ n " if $ VERBOSE ;
リターン $ 1 ;
}
＃この関数は、以前に開いたモデムポートを閉じます
sub exit_call {
印刷 "通知が終了しました\ n " ;
$ SENDPORT_WAVを閉じます。
at_send （ 'AT + CHUP' ） ;
$ SENDPORTを閉じます。
}

list.01.plを検討してください

＃サブスクライバーのリスト。

＃これは、各エントリに含まれるハッシュ配列の配列です

＃加入者データ：

＃電話-加入者の電話

＃name-サブスクライバーの名前

＃加入者に関する他のデータを保存することも可能です

（

{電話=> '+79111234567' 、名前=> 'Petrov Petr Petrovich' } 、

{電話=> '+79117654321' 、名前=> 'Vasilyev Vasily Vasilyevich' }

） ;

test.voice.rawを検討してください

このファイルを作成するために、写真に示すようにAudacityオーディオエディターを使用しました。

また、追加のファイルcc_cause.plおよびend_status.plを提供します。これらは、スクリプトの提示されたバージョンでは使用されませんが、改善する場合に役立ちます。

cc_cause.pl

＃切断原因（cc）コード

＃英語http://www.eversoft.net/dcc.html

＃ロシア語http://ru.wikipedia.org/wiki/Q.931

＃Huaweiのマナ

＃HUAWEI CDMAデータカードモデムATコマンドインターフェイス仕様

＃ "http://www.letswireless.com.cn/asp_bin/downfile/2009929121443234.pdf"

＃

＃HUAWEI UMTSデータカードモデムATコマンドインターフェイス仕様

＃ "http://www.net139.com/UploadFile/menu/HUAWEI%20UMTS%20Datacard%20Modem%20AT%20Command%20Interface%20Specification_V2.3.pdf"

（

'1' => 'UNASSIGNED_CAUSE' 、

'3' => 'NO_ROUTE_TO_DEST' 、

'6' => 'CHANNEL_UNACCEPTABLE' 、

'8' => 'OPERATOR_DETERMINED_BARRING' 、

'16' => 'NORMAL_CALL_CLEARING' 、

'17' => 'USER_BUSY' 、

'18' => 'NO_USER_RESPONDING' 、

'19' => 'USER_ALERTING_NO_ANSWER' 、

'21' => 'CALL_REJECTED' 、

'22' => 'NUMBER_CHANGED' 、

'26' => 'NON_SELECTED_USER_CLEARING' 、

'27' => 'DESTINATION_OUT_OF_ORDER' 、

'28' => 'INVALID_NUMBER_FORMAT' 、

'29' => 'FACILITY_REJECTED' 、

'30' => 'RESPONSE_TO_STATUS_ENQUIRY' 、

'31' => 'NORMAL_UNSPECIFIED' 、

'34' => 'NO_CIRCUIT_CHANNEL_AVAILABLE' 、

'38' => 'NETWORK_OUT_OF_ORDER' 、

'41' => 'TEMPORARY_FAILURE' 、

'42' => 'SWITCHING_EQUIPMENT_CONGESTION' 、

'43' => 'ACCESS_INFORMATION_DISCARDED' 、

'44' => 'REQUESTED_CIRCUIT_CHANNEL_NOT_AVAILABLE' 、

'47' => 'RESOURCES_UNAVAILABLE_UNSPECIFIED' 、

'49' => 'QUALITY_OF_SERVICE_UNAVAILABLE' 、

'50' => 'REQUESTED_FACILITY_NOT_SUBSCRIBED' 、

'55' => 'INCOMING_CALL_BARRED_WITHIN_CUG' 、

'57' => 'BEARER_CAPABILITY_NOT_AUTHORISED' 、

'58' => 'BEARER_CAPABILITY_NOT_PRESENTLY_AVAILABLE' 、

'63' => 'SERVICE_OR_OPTION_NOT_AVAILABLE' 、

'65' => 'BEARER_SERVICE_NOT_IMPLEMENTED' 、

'68' => 'ACM_GEQ_ACMMAX' 、

'69' => 'REQUESTED_FACILITY_NOT_IMPLEMENTED' 、

'70' => 'ONLY_RESTRICTED_DIGITAL_INFO_BC_AVAILABLE' 、

'79' => 'SERVICE_OR_OPTION_NOT_IMPLEMENTED' 、

'81' => 'INVALID_TRANSACTION_ID_VALUE' 、

'87' => 'USER_NOT_MEMBER_OF_CUG' 、

'88' => 'INCOMPATIBLE_DESTINATION' 、

'91' => 'INVALID_TRANSIT_NETWORK_SELECTION' 、

'95' => 'SEMANTICALLY_INCORRECT_MESSAGE' 、

'96' => 'INVALID_MANDATORY_INFORMATION' 、

'97' => 'MESSAGE_TYPE_NON_EXISTENT' 、

'98' => 'MESSAGE_TYPE_NOT_COMPATIBLE_WITH_PROT_STATE' 、

'99' => 'IE_NON_EXISTENT_OR_NOT_IMPLEMENTED' 、

'100' => 'CONDITIONAL_IE_ERROR' 、

'101' => 'MESSAGE_NOT_COMPATIBLE_WITH_PROTOCOL_STATE' 、

'102' => 'RECOVERY_ON_TIMER_EXPIRY' 、

'111' => 'PROTOCOL_ERROR_UNSPECIFIED' 、

'127' => 'INTERWORKING_UNSPECIFIED' 、

'160' => 'REJ_UNSPECIFIED' 、

'161' => 'AS_REJ_RR_REL_IND' 、

'162' => 'AS_REJ_RR_RANDOM_ACCESS_FAILURE' 、

'163' => 'AS_REJ_RRC_REL_IND' 、

'164' => 'AS_REJ_RRC_CLOSE_SESSION_IND' 、

'165' => 'AS_REJ_RRC_OPEN_SESSION_FAILURE' 、

'166' => 'AS_REJ_LOW_LEVEL_FAIL' 、

'167' => 'AS_REJ_LOW_LEVEL_FAIL_REDIAL_NOT_ALLOWD' 、

'168' => 'MM_REJ_INVALID_SIM' 、

'169' => 'MM_REJ_NO_SERVICE' 、

'170' => 'MM_REJ_TIMER_T3230_EXP' 、

'171' => 'MM_REJ_NO_CELL_AVAILABLE' 、

'172' => 'MM_REJ_WRONG_STATE' 、

'173' => 'MM_REJ_ACCESS_CLASS_BLOCKED' 、

'174' => 'ABORT_MSG_RECEIVED' 、

'175' => 'OTHER_CAUSE' 、

'176' => 'CNM_REJ_TIMER_T303_EXP' 、

'177' => 'CNM_REJ_NO_RESOURCES' 、

'178' => 'CNM_MM_REL_PENDING' 、

'179' => 'CNM_INVALID_USER_DATA'

） ;

end_status.pl

＃通話終了原因コード

＃Huaweiのマナ

＃

＃HUAWEI CDMAデータカードモデムATコマンドインターフェイス仕様

＃ "http://www.letswireless.com.cn/asp_bin/downfile/2009929121443234.pdf"

＃

＃HUAWEI UMTSデータカードモデムATコマンドインターフェイス仕様

＃ "http://www.net139.com/UploadFile/menu/HUAWEI%20UMTS%20Datacard%20Modem%20AT%20Command%20Interface%20Specification_V2.3.pdf"

（

'0' => 'ボードはオフラインです。' 、

'21' => 'ボードは使用できません。' 、

'22' => '通話は正常に終了します。、

'23' => 'BSにより通話が中断されました。、

「24」 => 「通話中にBSレコードを受信しました。」、

'25' => 'BSはコールをリリースします。、

'26' => 'BSは現在のSOサービスを拒否します。、

'27' => 'BS呼び出しがあります。、

'28' => 'BSからアラート停止を受信しました。、

'29' => 'クライアントエンドによってコールが正常に終了します。、

'30' => '終了アクティベーションを受信-OTASPコール。、

'31' => 'MCは通話開始または通話を終了します。、

'34' => 'RUIMは利用できません。' 、

'99' => 'NDSSエラー。、

'100' => 'rxd下位層からの理由、cc_causeを確認' 、

'101' => 'MSがコールを開始した後、ネットワークが応答しません。、

'102' => 'MSは着信コールを拒否します。、

'103' => 'プットスループロセス中にコールが拒否されました。、

'104' => 'リリースは、詳細についてはチェックしてください' 、

'105' => '電話料金が使い果たされました。、

'106' => 'MSはサービスを停止しています'

） ;

結論として。

このバージョンの音声通知スクリプトは、完全で正確なふりをするものではありませんが、単なるデモンストレーションであり、真剣に使用するために改善する必要があります。 CEND状態のより深刻な処理を追加して、初めて通知することができなかった場合に加入者に再ダイヤルするための条件を実装する必要があります。タスクスケジューラ、サブスクライバリストのエディタ、レポート生成などを含むWebインターフェイスを作成することもできます。

この記事があなたにとって需要があり、役に立つことを願っています。そして、私は興味深く有用な記事を投稿し続けるつもりです。

USBモデムhuawei e1550を介した音声通話（通知）を生成するperlスクリプト

出版の理由。

開発環境

ちょっとした理論。

だから。 始めましょう。

結論として。

More articles:

だから。始めましょう。