Re: Huawei Surfstick

[Sebastian Rose <sebastian_rose@gmx.de>]

Sascha Reißner <reiszner@novaplan.at> writes:
> gcom hatte ich früher auch für dir PIN-Eingabe, aber nachdem man die PIN
> auch über das Chatscript eingeben kann, finde ich es etwas overkilled
> ein Paket zu installieren nur zur PIN-Eingabe.


Irgendwie muss der PIN ja eingegeben werden.

Ich benutze oft das angehängte Perl-Skript.  Ich glaube das Original ist
von wiki.debian.org, weis es aber nicht mehr.


>> Das ganze ist simple.  Es kursieren auch ausreichend Perl-Skripte
>> u.ä. so wie Dokumentation zu dem Thema.
>> 
>>   http://www.google.de/search?q=umts%20Debian
>> 
>> Aber das obige macht mir keine Mühe.
>> 
>>   sh$ !gcom
>>   # evtl. PIN eingeben
>>   sh$ !pon
>> 
>> 
>> Installiere bash-completion, dann hast Du sogar TAB-Vervollständigung
>> für Deine eingerichteten Provider.
>> 
>> 
>> Grafische Tools:
>> 
>>   gpppon - grafische Einwal
>
> gpppon hatte ich auch im Test.
> Nach Suspend oder Hibernate reagiert es oft garnicht mehr.


Das suspend Problem habe ich auch noch nie gelöst.
Ich ziehe den Stick ohnehin ab, wenn ich das Gerät ausmache ode
zuklappe. Passt sonst ja nicht in den Rucksack :)

Aber an einer Lösung bin ich natürlich nicht ganz uninteressiert.

Gruß,

  Sebastian


#!/usr/bin/env perl

use strict;
use warnings;



## #########################################################
# Setup
##

# Your device, i.e. /dev/ttyUSB0 or /dev/noz0.
# If empty, ask for it. This was done, because my Ubuntu did not
# reliably assign the same devices when I plugged in my PCMCIA card.
my $modem = ""; # "/dev/ttyUSB0";
my $mdefault = "/dev/ttyUSB0"; # Default and fallback.

# Enter your PIN here. Leave empty, to read the PIN interactively.
my $pin = "";

##
# End of setup
## #########################################################





unless ($modem) {
    print "Please enter device (default $mdefault): ";
    $modem=<STDIN>;
    chomp $modem;
    unless ($modem) {
        $modem = $mdefault;
    }
}




unless ($pin) {
    print "Please enter PIN: ";
    $pin=<STDIN>;
    chomp $pin;
}



$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");
        print "Please wait until the red light stops blinking.\n";
        sleep(3);
        exit(0);
    }
    if (m/ERROR/) {
        close(MODEM);
        print("PIN rejected\n");
        sleep(3);
        exit(1);
    }
}


sleep(3);