#!/usr/bin/perl -w

use warnings;
use strict;
use POSIX qw(floor);

my $data;

while (1) {
	if (-e "/cygdrive/c/Inetpub/ftproot/sms.txt") {
		system("/cygdrive/c/CLISMS.exe /port=1 /ussd=*122#");
		my $credit = qx(cat /cygdrive/c/Log.txt |grep \"Baki\" |tail -1 |cut -d, -f1);
		$credit =~ s/Baki: //g;
		my $val = $credit;
		$credit = floor($credit + 0.5);

		if ($credit < 10) {
		system("/cygdrive/c/CLISMS.exe /port=1 /to=0133034931 /msg=[SMS Gateway] URGENT!! Current prepaid credit is RM$val, Please reload");
		#system("/cygdrive/c/CLISMS.exe /port=1 /to=0193301010 /msg=[SMS Gateway] URGENT!! Current prepaid credit is RM$val, Please reload");
		}

		open (TEXT, "/cygdrive/c/Inetpub/ftproot/sms.txt");
		while ($data = <TEXT>) {
			chomp($data);
			my ($num,$msg) = split(/;/, $data);
			system("/cygdrive/c/CLISMS.exe /port=1 /to=$num /msg=RM0, Your e-statement password is $msg");
			sleep 60 if $. % 10 == 0;
		}
		close (TEXT);
		system ("rm /cygdrive/c/Inetpub/ftproot/sms.txt");
	}
	sleep 5;
}