gnokii-admin-scripts

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
#!/usr/bin/perl
#
# gnokii-init-modem
#
# ABOUT
#
#   Copyright Benjamin Renard 2012 <brenard@easter-eggs.com>
#
#   Inspired by Roy Sigurd Karlsbakk's 'gnokii-init-modem' script
#   Source : http://karlsbakk.net/gnokii-init-modem/
#
#   Licensed under GPL v2.0. See LICENSE file for details.
#
#   This software initialize a GSM modem.
#
use Device::SerialPort qw( :PARAM :STAT 0.07 );
#
# Configuration
#
my $port_name = '/dev/ttyUSB0';     # This is the serial port device.
my $pin = '0000';           # Here goes our pin code.
my $ready_timeout = 60;         # GSM-ready timeout in seconds.
my $debug=1;
# Communication settings
my $baudrate = 9600;            # Set to current speed.
my $parity = 'none';            # Set to 'none', 'even', or 'odd'.
my $databits = 8;           # Between 5 and 8. Only 8 is commonly used.
my $stopbits = 1;           # Set to 1 or 2. 1 is most common.
my $handshake = 'rts';          # Set to 'none', 'rts' or 'xoff'
# Auto-flush
local $| = 1;
# Functions
sub debug {
    (my $text)=@_;
    if ($debug eq 0) {
        print ".";
    }
    else {
        print "$text\n";
    }
}
# Main code
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX