Send SMS from Oracle Database | Ad Tec | Bulksms api | IP Base api

---SEND SMS FROM ORACLE DATABASE

মোবাইল নাম্বার কমা (,) সেপারেটেড  অথবা  Newline/Space থাকতে হবে যেমন  (88017,017,17)

SMS

'This is a sample English testing message from oracle Database'

'এটি ওরাকল ডেটাবেস থেকে একটি নমুনা বাংলা পরীক্ষার বার্তা' 

'This is a sample English testing message from oracle Database or এটি ওরাকল ডেটাবেস থেকে একটি নমুনা বাংলা পরীক্ষার বার্তা '

Conn sys as Sysdba

----------------------

SELECT * FROM DBA_NETWORK_ACL_PRIVILEGES;

BEGIN

DBMS_NETWORK_ACL_ADMIN.drop_acl (

acl => 'WWW ACL');

COMMIT;

END;

/

BEGIN

  DBMS_NETWORK_ACL_ADMIN.CREATE_ACL(acl         => 'fa1.xml',

                                    description => 'WWW ACL',

                                    principal   => 'TEST',---------------------Database Schema

                                    is_grant    => true,

                                    privilege   => 'connect');

 DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE(acl       => 'fa1.xml',

                                       principal => 'TEST',---------------------Database Schema

                                       is_grant  => true,

                                       privilege => 'resolve');

 DBMS_NETWORK_ACL_ADMIN.ASSIGN_ACL(acl  => 'fa1.xml',

                                    host => '66.45.237.70'); ------------------- SMS HOST IP 

END;

GRANT EXECUTE ON UTL_HTTP TO TEST;

Conn Test user

----------------------

CREATE OR REPLACE PROCEDURE SEND_SMS (P_Output OUT VARCHAR2)

IS

   V_message    VARCHAR2 (2000) := 'message';

   url          VARCHAR2 (2000);

   V_RECEIVER   VARCHAR2 (15) := NULL;

   Vmsg         VARCHAR2 (2000);

   Vmsg1        VARCHAR2 (2000);

   Vsts         VARCHAR2 (20);

BEGIN

   V_RECEIVER:='01744642682';---------------Sample Mobile Number

   V_RECEIVER := '88' || SUBSTR (V_RECEIVER, -11);

   V_MESSAGE := 'This is testing message.';-----------------This is sample message

V_MESSAGE := REPLACE (V_MESSAGE, ' ', '%20');----------------Remove Space From Message

 IF V_RECEIVER IS NOT NULL AND V_RECEIVER<>'N'

   THEN--------------Check Validation

   -------------------------------------------For HTTP -------------------------

      url :=

         UTL_HTTP.

          request (

               'http://66.45.237.70/api.php?username=Quium'           -- SMS API

            || CHR (38)

            || 'password=ZWVCAHPG'---------------------Password

            || CHR (38)

            || 'number='

            || V_RECEIVER

            || CHR (38)

            || 'sender=IQM'

            || CHR (38)

            || 'type=0'

            || CHR (38)

            || 'message='

            || V_MESSAGE);

      DBMS_OUTPUT.put_line (URL);

      Vmsg := url;

   

      --SELECT LENGTH (Vmsg) INTO Vsts FROM DUAL;

      Vmsg1 := SUBSTR (Vmsg, 121, 1); 

---------------------------Checking Return Message ---------

    IF TO_CHAR (SUBSTR (URL, 1, 4)) = '1101'

      THEN

         P_Output := 'S';--------------

      ELSIF TO_CHAR (SUBSTR (URL, 1, 4)) = '1001'

      THEN

         P_Output := 'F_NO';

      ELSIF TO_CHAR (SUBSTR (URL, 1, 4)) = '1002'

      THEN

         P_Output := 'F_SN';

      ELSIF TO_CHAR (SUBSTR (URL, 1, 4)) = '1003'

      THEN

         P_Output := 'F_MS';

      ELSIF TO_CHAR (SUBSTR (URL, 1, 4)) = '1004'

      THEN

         P_Output := 'F_PRM';

      ELSIF TO_CHAR (SUBSTR (URL, 1, 4)) = '1005'

      THEN

         P_Output := 'F_UP';

      ELSIF TO_CHAR (SUBSTR (URL, 1, 4)) = '1006'

      THEN

         P_Output := 'F_BAL';

      ELSIF TO_CHAR (SUBSTR (URL, 1, 4)) = '1007'

      THEN

         P_Output := 'F_AV';

      ELSIF TO_CHAR (SUBSTR (URL, 1, 4)) = '1008'

      THEN

         P_Output := 'F_OS';

      ELSIF TO_CHAR (SUBSTR (URL, 1, 4)) = '1009'

      THEN

         P_Output := 'F_AS';

      ELSE

         P_Output := 'F_OT';

      END IF;

      P_Output := Vmsg1;

   ELSE

      RAISE_APPLICATION_ERROR (-20001, SQLERRM);

      NULL;

   END IF;

--END IF;

EXCEPTION

   WHEN OTHERS

   THEN

      RAISE_APPLICATION_ERROR (-20001, SQLERRM);

END;

--Procedure Execute Process:

------------------------------------

DECLARE

   V_OUTPUT   VARCHAR2 (100);

BEGIN

   SEND_SMS (V_OUTPUT);

   DBMS_OUTPUT.put_line (V_OUTPUT);

END;