-
Notifications
You must be signed in to change notification settings - Fork 12
/
send_to_cosimo.pl
80 lines (63 loc) · 2.06 KB
/
send_to_cosimo.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
#!/usr/bin/perl
#
# This example sends an SMS to cosimo@cpan.org, the author
# of Device::Gsm module.
#
# This is a funny experiment to know how many people are
# using this module out there... :-)
#
# $Id: send_to_cosimo.pl,v 1.5 2006-05-01 11:56:54 cosimo Exp $
use strict;
use Config;
use Device::Gsm;
print "\nthis is ", '$Id: send_to_cosimo.pl,v 1.5 2006-05-01 11:56:54 cosimo Exp $', "\n\n";
print "\n", '-' x 80, "\n";
print "HEY! I'm sending out an SMS message to the author of Device::Gsm module\n";
print "(Cosimo Streppone <cosimo\@cpan.org>).\n\n";
my $port = $^O =~ /Win/ ? 'COM1' : '/dev/ttyS0';
my $myport;
my $pin = '0000';
my $mypin;
print "Select your serial port [$port] : ";
chomp( $myport = <STDIN> );
$myport ||= $port;
print "Insert your PIN number if you need to register to GSM network [$pin] : ";
chomp( $mypin = <STDIN> );
$mypin ||= $pin;
$mypin =~ s/\D//g;
$mypin = substr( $mypin, 0, 4 );
my $gsm = new Device::Gsm( port => $myport, pin => $mypin, log => 'file,send.log' );
die "cannot create Device::Gsm object!" unless $gsm;
$gsm->connect( baudrate => 9600 ) or die "cannot connect to GSM device on [$myport]\n";
$gsm->register() or die "cannot register on GSM network: check pin and/or network signal!";
print "\nOk, now ready to send.\n";
print "Your name? ";
my $name = <STDIN>;
chomp $name;
print "Insert your comment for me...: ";
my $comment = <STDIN>;
chomp $comment;
#
# My GSM phone number
#
my $number = '+4745016680';
my $content =
'From '.$name.";\n".
'Dev-Gsm v'.$Device::Gsm::VERSION.','."\n".
'Dev-Modem v'.$Device::Modem::VERSION.','."\n".
'on '.$Config{myarchname}.' perl v'.$]."\n".
'Mod:' . ($gsm->manufacturer() || '').'/'.($gsm->model() || '').
' Ver:'. ($gsm->software_version()||''). "\n" .
"-- ".$comment;
$content = substr( $content, 0, 160 );
print "Text of the message being sent (max 160 chars)...:\n", $content, "\n";
my $lOk = $gsm->send_sms(
content => $content,
recipient => $number,
class => 'normal'
);
if( $lOk ) {
print "\nThank you for your kind intentions!\n";
} else {
print "\nError in sending!\n";
}