Beiträge von mcpapen

#!/usr/bin/perl
 
use strict;
use warnings;
 
my $modem = "/dev/ttyUSB0";
# Substitute xxxx with your PIN.
# You should probably put your PIN somewhere else, e.g. on a USB stick,
# an encrypted file system or something else, and read it from there...
# You have been warned!
my $pin = "XXXX";
 
$SIG{ALRM} = sub {
        die("timeout: no response from modem $modem\n");
};
 
open(MODEM, "+<", $modem) or die("can't open modem $modem");
alarm(10);
print(MODEM "AT+CPIN=\"$pin\"\n\r");
while (<MODEM>) {
        if (m/OK/) {
                close(MODEM);
                print("PIN accepted\n");
                exit(0);
        }
        if (m/ERROR/) {
                close(MODEM);
                print("PIN rejected\n");
                exit(1);
        }
}

connect "/usr/sbin/chat -v -f /etc/chatscripts/ppp0"
/dev/ttyUSB0
460800
user "vodafone"
password "vodafone"
usepeerdns


persist


defaultroute

TIMEOUT 60 
ABORT ERROR 
ABORT BUSY 
ABORT VOICE 
ABORT "NO CARRIER" 
ABORT "NO DIALTONE" 
ABORT "NO DIAL TONE" 
ABORT "NO ANSWER" 
"" "ATZ" 
"" 'AT+cgdcont=1,"IP","web.vodafone.de"' 
OK-AT-OK "ATDT*99#" 
TIMEOUT 75
CONNECT