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

Device::Modem Ranking & Summary

Device::Modem Tags

modem serial Perl extension serial port modem devices

Device::Modem Description

Device::Modem is a Perl extension to talk to modem devices connected via serial port. Device::Modem is a Perl extension created to talk to modem devices connected via serial port.WARNINGThis 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); # Don't do that if you definitely don't 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.Requirements:· Perl· Device::SerialPort Requirements: · Perl · Device::SerialPort

Device::Modem Related Software