Oracle Sample Code Send SMS
Oracle Sample Code Send SMS
set define off;
CREATE OR REPLACE PACKAGE sms_api IS
FUNCTION send_sms(mobiles IN VARCHAR2,
message IN VARCHAR2,
sender IN VARCHAR2,
route IN PLS_INTEGER,
country IN PLS_INTEGER,
flash IN PLS_INTEGER,
unicode IN PLS_INTEGER,
schtime IN VARCHAR2,
campaign IN VARCHAR2,
response IN VARCHAR2 DEFAULT 'text',
authkey IN VARCHAR2 DEFAULT 'Your auth key')
RETURN VARCHAR2;
END sms_api;
/
CREATE OR REPLACE PACKAGE BODY sms_api IS
FUNCTION get_clobFromUrl(p_url VARCHAR2) RETURN CLOB IS
req utl_http.req;
resp utl_http.resp;
val VARCHAR2(32767);
l_result CLOB;
BEGIN
req := utl_http.begin_request(p_url);
resp := utl_http.get_response(req);
LOOP
utl_http.read_line(resp, val, TRUE);
l_result := l_result || val;
END LOOP;
utl_http.end_response(resp);
RETURN l_result;
EXCEPTION
WHEN utl_http.end_of_body THEN
utl_http.end_response(resp);
RETURN l_result;
WHEN OTHERS THEN
utl_http.end_response(resp);
RAISE;
END;
FUNCTION send_sms(mobiles IN VARCHAR2,
message IN VARCHAR2,
sender IN VARCHAR2,
route IN PLS_INTEGER,
country IN PLS_INTEGER,
flash IN PLS_INTEGER,
unicode IN PLS_INTEGER,
schtime IN VARCHAR2,
campaign IN VARCHAR2,
response IN VARCHAR2 DEFAULT 'text',
authkey IN VARCHAR2 DEFAULT 'Your auth key')
RETURN VARCHAR2 IS
l_url VARCHAR2(32000) := 'http://priority.muzztech.in/api/sendhttp.php';
l_result VARCHAR2(32000);
BEGIN
l_url := l_url || '?authkey=' || authkey;
l_url := l_url || '&mobiles=' || mobiles;
l_url := l_url || '&message=' || message;
l_url := l_url || '&sender=' || sender;
l_url := l_url || '&route=' || route;
l_url := l_url || '&country=' || country;
l_url := l_url || '&flash=' || flash;
l_url := l_url || '&unicode=' || unicode;
IF schtime IS NOT NULL THEN
l_url := l_url || '&schtime=' || schtime;
END IF;
l_url := l_url || '&response=' || response;
l_url := l_url || '&campaign=' || campaign;
l_url := utl_url.escape(l_url);
l_result := get_clobFromUrl(l_url);
RETURN l_result;
END;
END sms_api;
/
Recent Posts