Miscellany

   sub new {
     
            my $class = shift;
            my $self = {};
     
            $self->{com} = shift;
     
            #lekezelés! (if connection OK or NOK)
           
            $self->{connection} = $self->{reconnect}->{connection} = initalize($self->{com});
            #print Dumper($self->{$self->{com}}->{connection});
            connectPhone($self);
            #print Dumper($self->{connection});
           
            $self->{imsi} = getIMSI($self->{connection});
            $self->{msisdn} = getMSISDN($self->{connection});
            $self->{imei} = getIMEI($self->{connection});
            $self->{battery} = getBattery($self->{connection});
            $self->{SigStrng} = getSignalStrength($self->{connection});
            $self->{smsRead} = getSmsAble($self->{connection});
     
            #AT+CLIP=1  számkijelzés incoming call-nál
            $self->{connection}->atsend( 'AT+CLIP=1' . Device::Modem::CR );
     
            bless $self, $class;
     
            return $self;
     
    }

create new paste | create new version of this paste RAW Paste Data