Shell Programming and Scripting

#./sendsms &
#ps -ef |grep send
#ps -ef |grep perl
xxxx   1234   640  2  Dec 11  /usr/bin/perl

#!/usr/bin/perl -w

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

my $exp = strftime "%d/%m/%Y %H:%M:%S", localtime(time + 86400);
my $data;

print ("...SMS GATEWAY START...\n");
while (1) {
	if (-e "/cygdrive/c/Inetpub/ftproot/CSV_SMS.csv") {
		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";
		$val =~ s/\s//g;
		$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 (LOG, ">> /cygdrive/c/Inetpub/ftproot/sms.log");
		open (TEXT, "/cygdrive/c/Inetpub/ftproot/CSV_SMS.csv");
		while ($data = <TEXT>) {
		  chomp($data);
		  next if ($data =~ /TelNo/);
		  my ($num,$msg) = split(/;/, $data);
		  system("/cygdrive/c/CLISMS.exe /port=1 /to=$num /msg=$msg");
		  print(LOG "$exp,$num,$msg\n");
		  sleep 60 if $. % 10 == 0;
		}
		close (TEXT);
		close(LOG);
		system ("rm /cygdrive/c/Inetpub/ftproot/CSV_SMS.csv");
	}
	sleep 5;
}

$ ./sendsms &

perl sendsms.pl