#! /usr/bin/perl
# (c) 1999 by St.Traby GPL

use POSIX;

my $device = "/dev/irnine";

sub openHandy {
    sysopen(HANDY, $device, O_RDWR|O_EXCL);
    HANDY;
}

sub writeHandy {
    *FH = shift;
    my $msg = shift;
    chomp $msg;
    $msg .= "\r";
    syswrite(FH, $msg, length($msg));
}
	
sub readHandy {
    *FH = shift;
    my $ret;
    sysread(FH, $ret, 99);
    $ret;
}

sub export {
    my $v = shift;

    if($v =~ /\+CPBR:[ \t]*([0-9]+),"([^"]+)",[0-9]+,"([^"]+)"/) {
	return "$1\@$2\@$3\n";
    }
    return "";
}
sub main {
    open EXP, "<phone.export" or die "can't open export-file";
    *HAND = openHandy;
    writeHandy(HAND, "\natze0");
    sleep(1);
    my $msg = readHandy(HAND);
    while (<EXP>) {
	chomp;
	print STDERR "storing entry $_\n";
	my @a = split "@", $_;
	writeHandy(HAND, "at+cpbw=$a[0],\"$a[1]\",$a[2],\"$a[3]\"");
	my $res = readHandy(HAND);
	if ($res =~ /ERROR/) {
	    print STDERR "Error on $_\n";
	}
    }
    close EXP;
    writeHandy(HAND, "ate1q0");
}

&main;
exit 0;