#!/usr/bin/perl
#
# Get GSM network name
#
# $Id: network.pl,v 1.1 2006-12-19 21:04:52 cosimo Exp $
use strict;
use Device::Gsm;
my $port = $ENV{DEV_GSM_PORT} or die "Set DEV_GSM_PORT environment variable!";
my $gsm = new Device::Gsm( port => $port, log => 'file,network.log', loglevel => 'info' );
die "cannot create Device::Gsm object!" unless $gsm;
$gsm->connect( baudrate => ($ENV{DEV_GSM_BAUD} || 19200) )
or die "cannot connect to GSM device on [$port]\n";
$gsm->register() or die "Can't register to network";
my($network, $code) = $gsm->network();
if($network || $code) {
print "Network name the gsm software returns is [$network]\n";
print "Its gsm code is [$code]\n";
} else {
print "No network name...\n";
}