do not enter PIN multiple times in gcom (to prevent wrong PIN from being entered and SIM card to be locked)

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/network/connection/cellular_card.pm b/lib/network/connection/cellular_card.pm
index 084e22c..31429d1 100644
--- a/lib/network/connection/cellular_card.pm
+++ b/lib/network/connection/cellular_card.pm
@@ -159,6 +159,8 @@ sub check_hardware {
     my $pid = IPC::Open2::open2(my $cmd_out, my $cmd_in, "gcom", "-d", $self->get_tty_device);
     common::nonblock($cmd_out);
     my $selector = IO::Select->new($cmd_out);
+    my $already_entered_pin;
+
     while ($selector->can_read) {
         local $_;
         my $rv = sysread($cmd_out, $_, 512);
@@ -168,6 +170,11 @@ sub check_hardware {
             last;
         } elsif (/^Enter PIN number:/m) {
             $self->{hardware}{pin} or last;
+            if ($already_entered_pin) {
+                $self->{hardware}{error} = translate($wrong_pin_error);
+                last;
+            }
+            $already_entered_pin = 1;
             print $cmd_in $self->{hardware}{pin} . "\n";
         } elsif (/^ERROR entering PIN/m) {
             $self->{hardware}{error} = N("You entered a wrong PIN code.