电信168用户验证函数.sc

来自「一个中国电信IVR平台的开发手册」· SC 代码 · 共 43 行

/*************************************************
函数说明: 
检查电信不允许播打的电话号码
返回0为正常用户,返回其它请退出流程。
*************************************************/
funcCheckLaw		
{
#declare IR m_nRet = 0							//返回值

:stWait
	      [ASSIGN m_nRet, 1 ]	
	      [ASSIGN SR5,$CallerID ]
       	[STRSUB SR5,1,1 ]                
      	[EQUAL SR0,"0" ]
       	Passed ->stchecklen
       	Failed ->stORD_CHECKCALLERIDMOB
       	
:stchecklen
       	[STRLEN SR5 ]   
       	[LESS IR0,10 ]
       	Passed ->stExit
       	Failed ->stORD_CHECKCALLERIDMOB 

:stORD_CHECKCALLERIDMOB
       	[ASSIGN SR16,$callerid ]
       	[STRSUB SR16,1,2 ]
       	[EQUAL SR0,"13" ]
				Passed	->stExit
				Failed	-> stCHECKCALLERIDMOB1

:stCHECKCALLERIDMOB1
       [STRSUB SR16,1,3 ]
       [EQUAL SR0,"013" ]
       Passed ->stExit
       Failed ->st_normalsuccess

:st_normalsuccess
	[ASSIGN m_nRet, 0]
	->stExit

:stExit
	[ RETURN m_nRet]
}