cellcom/bin/cellrap.pl

#!/usr/bin/perl

# $Id: cellcom.pl,v 1.1 2003/04/16 12:24:20 joko Exp $
# $Log: cellcom.pl,v $


# cellrap - or Cellular2Pim

# requirements:
# 1. testing, modularizing
# 2. high-speed phonebook (complete?) backup
# 3. FollowMe: automagically detect connection, read IMEI
# 4. status, introspection, command-groups, schema
# 5. protocol-declaration in xml (it's a "service"!)
# 6. actions from command line
# 7. web frontend via WebExplorer
# 8. synchronize clock with some time server via ntp(?)

# changelog:
# x first steps
# x Data::Storage::Handler::Cellphone
# x integration with Data::Rap for executing "actions"
# a integration with master /etc/rap.xml on grasshopper - two new targets: cellphone.clock, cellphone.*


package ctrl;

use strict;
use warnings;

use lib '../../../libs';

use Data::Dumper;
use Data::Storage::Handler::Cellphone;
use Data::Rap;

#require 'modules/me45/ME45.pm';
#my $me45 = ME45->new('COM1');
#$me45->get_vendor();


my $cellular;

sub do {
  my $command = shift;
  return $cellular->{rap}->perform_target($command);
}

sub start {
  $cellular = Data::Storage::Handler::Cellphone->new( 
    specfile => 'siemens_x45.xml',
    port => 'COM1',
    baudrate => 115200, 
    command_type => 'GSM',
  );
  #$cellular->response_read();
}

sub stop {
  $cellular->transport_shutdown();
}

sub help {
  $cellular->{rap}->start();
}


package main;

use strict;
use warnings;

my $target = shift;
#$target ||= '';

ctrl::start();
if (!ctrl::do($target)) {
  ctrl::help();
}
ctrl::stop();

1;
__END__
1	#!/usr/bin/perl
2
3	# $Id: cellcom.pl,v 1.1 2003/04/16 12:24:20 joko Exp $
4	# $Log: cellcom.pl,v $
5
6
7	# cellrap - or Cellular2Pim
8
9	# requirements:
10	# 1. testing, modularizing
11	# 2. high-speed phonebook (complete?) backup
12	# 3. FollowMe: automagically detect connection, read IMEI
13	# 4. status, introspection, command-groups, schema
14	# 5. protocol-declaration in xml (it's a "service"!)
15	# 6. actions from command line
16	# 7. web frontend via WebExplorer
17	# 8. synchronize clock with some time server via ntp(?)
18
19	# changelog:
20	# x first steps
21	# x Data::Storage::Handler::Cellphone
22	# x integration with Data::Rap for executing "actions"
23	# a integration with master /etc/rap.xml on grasshopper - two new targets: cellphone.clock, cellphone.*
24
25
26	package ctrl;
27
28	use strict;
29	use warnings;
30
31	use lib '../../../libs';
32
33	use Data::Dumper;
34	use Data::Storage::Handler::Cellphone;
35	use Data::Rap;
36
37	#require 'modules/me45/ME45.pm';
38	#my $me45 = ME45->new('COM1');
39	#$me45->get_vendor();
40
41
42	my $cellular;
43
44	sub do {
45	my $command = shift;
46	return $cellular->{rap}->perform_target($command);
47	}
48
49	sub start {
50	$cellular = Data::Storage::Handler::Cellphone->new(
51	specfile => 'siemens_x45.xml',
52	port => 'COM1',
53	baudrate => 115200,
54	command_type => 'GSM',
55	);
56	#$cellular->response_read();
57	}
58
59	sub stop {
60	$cellular->transport_shutdown();
61	}
62
63	sub help {
64	$cellular->{rap}->start();
65	}
66
67
68	package main;
69
70	use strict;
71	use warnings;
72
73	my $target = shift;
74	#$target \|\|= '';
75
76	ctrl::start();
77	if (!ctrl::do($target)) {
78	ctrl::help();
79	}
80	ctrl::stop();
81
82	1;
83	__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26