#!/usr/bin/perl # # Short example of use for Device::Gsm class # Get date and time from phone # # $Id: get_time.pl,v 1.1 2003-12-15 22:49:44 cosimo Exp $ use strict; use lib 'blib/arch'; use lib 'blib'; use Device::Gsm; print "\nthis is ", '$Id: get_time.pl,v 1.1 2003-12-15 22:49:44 cosimo Exp $', "\n"; print "This script tries to get your gsm date/time\n"; my $gsm = conn(); print "\nok! connected to gsm phone.\n"; if( my $time = $gsm->datetime() ) { print "Time of phone should be now $time (yy/mm/dd hh:mn:ss)\n"; } else { print "Failed to get time!\n"; } # End sub conn { my $port = $^O =~ /Win/ ? 'COM2' : '/dev/ttyS1'; my $myport; print "Select your serial port [$port] : "; chomp( $myport = <STDIN> ); $myport ||= $port; my $gsm = new Device::Gsm( port => $myport, log => 'file,get_time.log', loglevel=>'info' ); die "cannot create Device::Gsm object!" unless $gsm; $gsm->connect( baudrate => 19200 ) or die "cannot connect to GSM device on [$myport]\n"; return $gsm; }