retry: | send "A/" | # Repeat the previous command. |
# Expect a connection response.
expect "16\r" or "15\r" or "14\r" or "12\r" or "1ð\r" or "5\r" or "1\r" busy "7\r" timeout 6ð
| done |
|
|
|
disconnect: | delay 2 | # Separate from previous data. | ||
| ||||
| send | "+++" | # Assure command mode. | |
| delay 2 | # Allow mode switching delay. | ||
| send | "ATHðT\r" | # Set modem | |
|
|
| # (i.e., hang up). | |
| ignore "ð\r" or "OK\r" timeout 2 | # Ignore modem response. | ||
| send | "ATEðQ1\r" | # Initialize modem: Echo OFF, | |
| ignore "ð\r" timeout 1 | # | Disable responses. | |
|
|
| ||
| done |
|
|
|
condin: | send | "ATZQðT\r" | # Reset to factory defaults. | |
| ignore "ð\r" or "OK\r\n" timeout 2 | # Ignore modem response. | ||
| send | "ATEðT\r" | # Initialize modem: Echo OFF, | |
| expect "ð\r" or "OK\r\n" timeout 2 | # | Enable responses (Numeric), | |
| send | "ATQðVðT\r" | # | Limit response codes. |
| expect "ð\r" timeout 2 | # Confirm commands successful. | ||
| send | "ATSð=2\r" | # Set AutoAnswer ON | |
| expect "ð\r" timeout 2 | # Confirm command successful. | ||
| done |
|
|
|
waitcall: ignore | "2\r" timeout 1 | # Ignore first ring. | ||
expect | "2\r" timeout 1ð | # Pick up second ring | ||
|
|
| # | or timeout. |
|
|
| # Expect a connection response. | |
expect "16\r" or "15\r" or "14\r" or "12\r" or | "1ð\r" or "5\r" or "1\r" | |||
timeout 6ð | done |
|
|
|
|
|
|
| |
page: | send | "ATDT%N,,,,%R;\r" | # %N = pager call center number | |
|
|
| # Add enough commas to wait for | |
|
|
| # time to enter paging number. | |
|
|
| # %R = paging number | |
| expect "ð\r" timeout 6ð | # Confirm successful command. | ||
|
|
| ||
| delay 2 | # Wait before hanging up. | ||
| send | "ATHðT\r" |
| # Hang up. |
| expect "ð\r" timeout 2 | # Confirm successful command. | ||
| done |
|
|
|
ripo: | send | "ATZQðT\r" | # Reset to factory defaults. | |
| ignore "ð\r" or "OK\r\n" timeout 2 | # Ignore modem response. | ||
| send | "ATEðT\r" | # Initialize modem: Echo OFF, | |
| expect "ð\r" or "OK\r\n" timeout 2 | # | Enable responses (Numeric), | |
| send | "ATQðVðT\r" | # | Limit response codes. |
| expect "ð\r" timeout 2 | # Confirm commands successful. | ||
| send | "ATSð=ð\r" | # Set AutoAnswer OFF | |
| expect "ð\r" timeout 2 | # Confirm command successful. | ||
| done |
| # RI Power On enabled. | |
error: |
|
| # Handle unexpected modem | |
|
|
| # | responses. |
expect "8\r" or "7\r" or "6\r" or "4\r" or "3\r" delay 2
done
