Device::Modem 1.47

Device::Modem is a Perl extension created to talk to modem devices connected via serial port.

WARNING

This is BETA software, so use it at your own risk, and without ANY warranty! Have fun.

SYNOPSIS

use Device::Modem;

my $modem = new Device::Modem( port => /dev/ttyS1 );

if( $modem->connect( baudrate => 9600 ) ) {
print "connected!n";
} else {
print "sorry, no connection with serial port!n";
}

$modem->attention(); # send `attention sequence (+++)

($ok, $answer) = $modem->dial(02270469012); # dial phone number
$ok = $modem->dial(3); # 1-digit parameter = dial number stored in memory 3

$modem->echo(1); # enable local echo (0 to disable)

$modem->offhook(); # Take off hook (ready to dial)
$modem->hangup(); # returns modem answer

$modem->is_active(); # Tests whether modem device is active or not
# So far it works for modem OFF/ modem ON condition

$modem->reset(); # hangup + attention + restore setting 0 (Z0)

$modem->restore_factory_settings(); # Handle with care!
$modem->restore_factory_settings(1); # Same with preset profile 1 (can be 0 or 1)

$modem->send_init_string(); # Send initialization string
# Now this is fixed to AT H0 Z S7=45 S0=0 Q0 V1 E0 &C0 X4

# Get/Set value of S1 register
my $S1 = $modem->S_register(1);
my $S1 = $modem->S_register(1, 55); # Dont do that if you definitely dont know!

# Get status of managed signals (CTS, DSR, RLSD, RING)
my %signal = $modem->status();
if( $signal{DSR} ) { print "Data Set Ready signal active!n"; }

# Stores this number in modem memory number 3
$modem->store_number(3, 01005552817);

$modem->repeat(); # Repeat last command

$modem->verbose(1); # Normal text responses (0=numeric codes)

# Some raw AT commands
$modem->atsend( ATH0 );
print $modem->answer();

$modem->atsend( ATDT01234567 . Device::Modem::CR );
print $modem->answer();

Device::Modem class implements basic AT (Hayes) compliant device abstraction. It can be inherited by sub classes (as Device::Gsm), which are based on serial connections.