#!/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;
}