cancel
Showing results for 
Search instead for 
Did you mean: 
cancel
1466
Views
0
Helpful
4
Replies

TCL - Modify Calling Name

ryan_oconnell
Level 3
Level 3

Hello I found this script modify_calling_name.tcl and thought I could use it to have all outbound calls from my customer default to the company name. It seems to work just fine. Only thing I couldn’t figure out was how to get rid of the Quotes. It appears as though the TCL script is looking for a parameter value and a space is not a valid character. So I had to put “Town of Springfield” in quotes but the call is being shipped out with the quotes.

See my config below and resulting debug. Also TCL is attached

!

application

service modifyname flash0:modify_caller_name.tcl

!

!

dial-peer voice 500000 voip

description **Match all Incoming VOIP**

service modifyname

paramspace modifyname display_name_default "Town of Springfield”

incoming called-number .

voice-class codec 1 

voice-class h323 1

dtmf-relay h245-alphanumeric

no vad

!

dial-peer voice 501000 voip

description **CUCM2**

preference 1

destination-pattern 506.......

session target ipv4:10.x.y.z

voice-class codec 1 

voice-class h323 1

dtmf-relay h245-alphanumeric

no vad

!

dial-peer voice 502000 voip

description **CUCM1**

preference 2

destination-pattern 506.......

session target ipv4:10.x.y.z

voice-class codec 1 

voice-class h323 1

dtmf-relay h245-alphanumeric

no vad

!

dial-peer voice 100000 pots

description **PSTN Incoming dial peer**

incoming called-number .

direct-inward-dial

port 0/0/0:23

!

dial-peer voice 100001 pots

description **PSTN Outbound Calls**

destination-pattern 9T

port 0/0/0:23

!

DEBUG ISDN Q931

004955: Oct 16 20:41:33.507 AST: ISDN Se0/0/0:23 Q931: Applying typeplan for sw-type 0x5 is 0x0 0x0, Calling num 5063334444

004956: Oct 16 20:41:33.507 AST: ISDN Se0/0/0:23 Q931: Sending SETUP  callref = 0x0570 callID = 0x857C switch = primary-dms100 interface = User

004957: Oct 16 20:41:33.507 AST: ISDN Se0/0/0:23 Q931: TX -> SETUP pd = 8  callref = 0x0570

        Bearer Capability i = 0x8090A2

                Standard = CCITT

                Transfer Capability = Speech 

                Transfer Mode = Circuit

                Transfer Rate = 64 kbit/s

        Channel ID i = 0xA98397

                Exclusive, Channel 23

        Display i = 0xB1, '"Town of Springfield"'

        Calling Party Number i = 0x0081, '5063334444'       

                Plan:Unknown, Type:Unknown

        Called Party Number i = 0x80, '19021114444'

                Plan:Unknown, Type:Unknown

004958: Oct 16 20:41:33.675 AST: ISDN Se0/0/0:23 Q931: RX <- CALL_PROC pd = 8  callref = 0x8570

        Channel ID i = 0xA98397

                Exclusive, Channel 23

004959: Oct 16 20:41:34.523 AST: ISDN Se0/0/0:23 Q931: RX <- ALERTING pd = 8  callref = 0x8570

        Progress Ind i = 0x8088 - In-band info or appropriate now available

004960: Oct 16 20:41:34.527 AST: ISDN Se0/0/0:23 Q931: RX <- NOTIFY pd = 8  callref = 0x8570

        Notification Ind i = 0xF1

        Display i = 0xB2, 'Bart Simpson'

004961: Oct 16 20:41:40.675 AST: ISDN Se0/0/0:23 Q931: RX <- CONNECT pd = 8  callref = 0x8570

004962: Oct 16 20:41:40.675 AST: %ISDN-6-CONNECT: Interface Serial0/0/0:22 is now connected to 19021114444

N/A

004963: Oct 16 20:41:40.675 AST: ISDN Se0/0/0:23 Q931: TX -> CONNECT_ACK pd = 8  callref = 0x0570

4 Replies 4

paolo bevilacqua
Hall of Fame
Hall of Fame

You need to code in tcl so to remove the quotes.

So I need to add code to the TCL? I was hoping it was just a different method of entering the parameter for display_name_default.

Thanks

To enter spaces in a service parameters, must use double quotes.

To remove double quotes in TCL script, must code for that.

In any case, once you make a call via script, try transferring it.

Or you can use my "outgoing calling name" script that does all the above correcty, from the the website mentioned in my profile.

mathanmogan
Level 1
Level 1

Thanks , WORK perfect