Distribution name: Device::Gsm Module Version: 1.52
Perl version: v5.10.0 built for i486-linux-gnu-thread-multi
Operating System vendor and version: Linux nagios-wgk 2.6.26-2-686 #1
SMP Thu Mar 26 01:08:11 UTC 2009 i686 GNU/Linux
------------------------------------------------------------------------
Error: Use of uninitialized value $cReply in pattern match (m//)
at /usr/local/share/perl/5.10.0/Device/Gsm.pm line 483.
------------------------------------------------------------------------
Executed Script:
#!/usr/bin/perl -w
use strict;
use CGI;
use Device::Gsm;
my $to = '04########';
my $message = 'Dit is een test';
my $gsm = new Device::Gsm( port => '/dev/ttyS0');
if( $gsm->connect(baudrate => 9600) ) {
print "connected!\n";
} else {
print "sorry, no connection with gsm phone on serial port!\n";
exit 1;
}
$gsm->send_sms(
recipient => $to,
content => $message);
exit 0;
------------------------------------------------------------------------
Is this a bug, or is this a problem connection to the device (Siemens
C45).
Regards,
Davy
RT for rt.cpan.org