NAME Device::Gsm - Perl extension to interface GSM cellular / modems WARNING This is C software, still needs extensive testing and support for custom GSM commands, so use it at your own risk, and without C warranty! Have fun. SYNOPSIS use Device::Gsm; # NOT YET DEFINED! my $gsm = new Device::Gsm( port => '/dev/ttyS1', pin => '0124' ); if( $gsm->connect() ) { print "connected!\n"; } else { print "sorry, no connection with gsm phone on serial port!\n'; } # Register to GSM network (you must supply PIN number in above new() call) $gsm->register(); # Get the manufacturer and model code of device my $mnf = $gsm->manufacturer(); my $model = $gsm->model(); # What GSM software verson ? print 'GSM VERSION is ", $gsm->software_version(), "\n"; # Test for command support if( $self->test_command('CGMI') ) { # `AT+CGMI' command supported! } else { # No luck, CGMI command not available } # Set service center number (depends on your network operator) $gsm->service_number( '+001505050' ); # This one is fake, not usable! # Retrieve actual stored service number print 'Service number is now: ', $gsm->service_number(), "\n"; # Send a short text message (SMS in text mode *only*, no PDU) $modem->send_sms( '0123456789', 'A little message from Device::Gsm' ); DESCRIPTION Device::Gsm class implements basic GSM network registration and SMS sending functions. For now, it is only an example that inherits from Device::Modem for all low-level functions. It is planned to add more custom GSM commands support, with device identification, and so on... Actually, this was a rather dated module, that does not support PDU mode (for example) and it is now undergoing a major rewrite. So please be patient and contact me if you are interested in this. REQUIRES * Device::Modem, which in turn requires * Device::SerialPort EXPORT None TO-DO * Too many things, but your suggestions are welcome... AUTHOR Cosimo Streppone, cosimo@cpan.org SEE ALSO Device::Modem(3), Device::SerialPort(3), perl(1)