#
use strict;
-require 'CONFIG_ROOT/general-functions.pl';
+require '/var/ipfire/general-functions.pl';
my %pppsettings;
my %modemsettings;
&General::readhash("${General::swroot}/modem/settings", \%modemsettings);
if ($modemsettings{'INIT'} eq '') {
- $modemsettings{'INIT'} = 'AT'; }
+ $modemsettings{'INIT'} = '+++ATZ'; }
if ($modemsettings{'HANGUP'} eq '') {
- $modemsettings{'HANGUP'} = 'AT'; }
+ $modemsettings{'HANGUP'} = 'ATH'; }
if ($modemsettings{'SPEAKER_ON'} eq '') {
$modemsettings{'SPEAKER_ON'} = 'AT'; }
if ($modemsettings{'SPEAKER_OFF'} eq '') {
else {
$btfudge = ''; }
+
+my ($add_at1, $add_at2, $add_at3);
+
+if ($pppsettings{'ADD_AT1'} eq '') {
+ $add_at1 = 'AT'; }
+else {
+ $add_at1 = $pppsettings{'ADD_AT1'}; }
+if ($pppsettings{'ADD_AT2'} eq '') {
+ $add_at2 = 'AT'; }
+else {
+ $add_at2 = $pppsettings{'ADD_AT2'}; }
+if ($pppsettings{'ADD_AT3'} eq '') {
+ $add_at3 = 'AT'; }
+else {
+ $add_at3 = $pppsettings{'ADD_AT3'}; }
+
unlink('/var/log/connect.log');
my $com = "/usr/sbin/chat -v -r /var/log/connect.log \
ABORT '\\nRINGING\\r\\n\\r\\nRINGING\\r' \
ABORT '\\nNO CARRIER\\r' \
'' '$modemsettings{'INIT'}' \
+ '' '$add_at1' \
+ '' '$modemsettings{'INIT'}' \
OK '$modemsettings{'HANGUP'}' \
OK '$speaker' \
+ OK '$add_at2' \
+ '' '$add_at3' \
+ '' 'sleep 5' \
TIMEOUT '$modemsettings{'TIMEOUT'}' \
- OK '${dial}${telephone}' \
+ OK '\d${dial}${telephone}' \
CONNECT '${btfudge}' ";
if ($loginscript)