#!/usr/bin/perl -w

use GSMI;
use Data::Dumper;


my $conn = GSMI->connect("driver=Gnokii;device=/dev/ttyS0;options=model:6110,connection:dau9p,initlength:1");
my (%memstat, %smsstat, %netinfo, %rf, %power);

while ( 1 )
{
    %memstat	= ();
    %smsstat	= ();
    %netinfo	= ();
    %rf		= ();
    %power	= ();

    $conn->GetMemoryStatus(\%memstat);
    $conn->GetSMSStatus(\%smsstat);
    $conn->GetNetworkInfo(\%netinfo);
    $conn->GetRF(\%rf);
    $conn->GetPowerStats(\%power);


    printf "RFLevel: %d\n", $rf{'level'};
    printf "Battery: %d\n", $power{'level'};
    printf "SIM: Used %d, Free %d\n", $memstat{'simused'}, $memstat{'simfree'} if defined($memstat{'simused'});
    printf "Phone: Used %d, Free %d\n", $memstat{'phoneused'}, $memstat{'phonefree'} if defined($memstat{'phoneused'});
    printf "DC: Used %d, Free %d\n", $memstat{'dcused'}, $memstat{'dcfree'} if defined($memstat{'dcused'});
    printf "EN: Used %d, Free %d\n", $memstat{'enused'}, $memstat{'enfree'} if defined($memstat{'enused'});
    printf "FD: Used %d, Free %d\n", $memstat{'fdused'}, $memstat{'fdfree'} if defined($memstat{'fdused'});
    printf "MC: Used %d, Free %d\n", $memstat{'ldused'}, $memstat{'ldfree'} if defined($memstat{'ldused'});
    printf "MC: Used %d, Free %d\n", $memstat{'mcused'}, $memstat{'mcfree'} if defined($memstat{'mcused'});
    printf "ON: Used %d, Free %d\n", $memstat{'onused'}, $memstat{'onfree'} if defined($memstat{'onused'});
    printf "RC: Used %d, Free %d\n", $memstat{'rcused'}, $memstat{'rcfree'} if defined($memstat{'rcused'});
    printf "SMS Messages: Unread %d, Number %d\n", $smsstat{'unread'}, $smsstat{'read'} if defined($smsstat{'unread'});
    printf "Network: %s (%s), LAC: %s, CellID: %s\n", $netinfo{'name'}, $netinfo{'countryname'}, $netinfo{'lac'}, $netinfo{'cellid'};

    sleep(2);
}