balance_cn.pm

Astercon2 开源软交换 2.2.0

sub playfree_current
{
my	$number = shift;
my	($int,$float)=split(/\./,$number);

	if (length($float) > 2) {$float=substr($float,0,2);}

	$AGI->exec('Playback',"astercon/account-youhave|noanswer");

	#达到万以上级别的中文按照数字播放
	if (length($int) > 5) {
		$AGI->say_digits($int);
	#万以下的中文按照习惯播放
	} else {
		if ($int < 1) {
			$AGI->exec('Playback',"digits/0|noanswer");
		} else {
			for (my $i=length($int);$i>=1 ;$i--) {
			my	$bit = substr($int,length($int)-$i,1);
				next if ($bit == 0 && substr($int,length($int)-$i+1,1) == 0);

				$AGI->exec('Playback',"digits/$bit|noanswer");

				#play 
				if ($i == 5 && $bit != 0) {	$AGI->exec('Playback',"digits/wan|noanswer");	}
				elsif ($i == 4 && $bit != 0) {	$AGI->exec('Playback',"digits/thousand|noanswer");	}
				elsif ($i == 3 && $bit != 0) {	$AGI->exec('Playback',"digits/hundred|noanswer");	}
				elsif ($i == 2 && $bit != 0) {	$AGI->exec('Playback',"digits/10|noanswer");	}

			}
		}
	}
	$AGI->exec('Playback',"digits/oclock|noanswer");
	$AGI->say_digits($float);
	$AGI->exec('Playback',"digits/dollars|noanswer");
}

1;