TCL TK SCRIPT Help Please


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting TCL TK SCRIPT Help Please
# 1  
Old 05-12-2008
Data TCL TK SCRIPT Help Please

Hi Seniors,

Need a help from your end. I am new to scripting and still in the learning process of scripting. I have written a script on TCL TK.

This is the script that i have written.

if { $EssEntityType == "rss_user" && $EssAction == "Insert" } {
puts $fp " Ess Action :$EssAction"

set rss_type [EssGetFieldValue "rss_type"]
set rss_name [EssGetFieldValue "rss_name"]
set rss_user [EssGetFieldValue "rss_user_name"]
set ent_user [EssGetFieldValue "user_id"]

puts $fp " Rss type :$rss_type , Rss name :$rss_name , rss_user name : $rss_user"

if { "$rss_type" == "Win2000" } {
if { "$ent_user" != "-" } {
set len [ string length $ent_user ]
set employeeID [ string range $ent_user [expr $len-5] $len ]
puts $fp "Populating EMPLOYEE ID for rss_user : rss_user"
set tvalue "1"
puts $fp "Value $tvalue"
set CMD "Refresh rss_user with rss_user_name=\"$rss_user\" rss_name=\"$rss_name\" \
rss_type=\"$rss_type\" set __47__EmployeeID=\"$employeeID\" SET __99__TRANS_PRIORITY=\"$tvalue\"; EXECUTE;"
doBatch "$CMD"
}
}
}

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

The output fails with the below siad error. Can you please let me know where i am doing wrong.

---------------------- BATCHRUN STARTED -------------------------
No input file was specified , input redirected to stdin.
>>>> Line Number:1

Executing -> Refresh rss_user with rss_user_name="CN=ca10000,CN=Users,DC=deltapre,DC=ent" rss_name="sacprectrlsa" rss_type="Win2000" set __47__EmployeeID="10000" SET __99__TRANS_PRIORITY="1"

>>>> ERROR in Line 1 <<<
>>>> Line Number:2

Executing -> EXECUTE
OK
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

TCL script help

Hi All , I am having a file as stated below File 1 chain = chan6 group = grp0 input = '/pad_pc10' output = '/pad_pb7' length = 9900 chain = chan2 group = grp0 input = '/pad_pa4' output = '/pad_pb12' length = 10000 chain = chan7 group = grp0 input = '/pad_pb2' output =... (1 Reply)
Discussion started by: kshitij
1 Replies

2. Shell Programming and Scripting

Help using regexp in a TCL script ??

In a tcl script I need to find a way of reading a file, and looking for a phrase ("set myvariable") and putting the word following that into a variable. I've used a file open, and a while loop with gets to read each line from the file into a variable, and using regexp searched for the item. I'm... (1 Reply)
Discussion started by: Tonyb61
1 Replies

3. Programming

Csh script and tcl

I have csh script and call tck command but it do nothing. can you help me? I only can see it echo #!/bin/csh -f set mypath = `pwd` echo $mypath if ($mypath =~ *PLL*) then echo "source ../PreBoot.qel" else if ($mypath !~ *PLL*) then echo "source ../hdfuse.qel" endif if i remove... (1 Reply)
Discussion started by: sabercats
1 Replies

4. Shell Programming and Scripting

Split in tcl script

Hi All, I have a string re_em="NODE_NAME=ABCDEF;NODE_TYPE=ghijkl;CIRCLE=jkl;Serving_Circle=abcdefghthjk;DOMAIN_TYPE=1234;REGION=12345;ZONE=12334;SOURCE_TYPE=dhfkdkfjdjf" I want to split this string and convert it into array so that i can easily access any value like NODE_NAME or... (2 Replies)
Discussion started by: sujit_kashyap
2 Replies

5. UNIX for Dummies Questions & Answers

What is wrong with the the tcl script

Hi All, I am searching for two string in the .log file The strings are Active Flop-Maps "0 0 1 0 1" 1 and Ouput-Maps " 0 0 1 1 0" 2 It should search in the file ignoring white spaces .Tell me what is wrong with this script. The tcl script is as follows proc proc2 {arglist} { ... (2 Replies)
Discussion started by: suvendra
2 Replies

6. Shell Programming and Scripting

Help with TCL script

I need to read a file, the file has a table in it. From the table I need to choose all the rows for which AVG 2 value is greater than 0.050 and write them on to a separate file. Please help me with the TCL script for this. Thanks in Advance (0 Replies)
Discussion started by: tonystark
0 Replies

7. Programming

Tcl script

Dear Users I'm struck by while the following tcl script. foreach l { set w($l) {} set fsum 0 foreach ftemp $f($l) { set fsum lappend w($l) $fsum } } It shows me error as "missing operand at _@_ in expression "0.10308400000000001 + _@_* 0.4 * 1" ... (0 Replies)
Discussion started by: bala06
0 Replies

8. Shell Programming and Scripting

Syntax error calling TCL script from shell script

hello everyone i am beginner on shell scripting .and i am working on my project work on ad hoc network i wrote a batch (.sh) to do a looping and execute a tcl script i wrote before in each iteration ..but i got this problem " syntax error near unexpected token `('... (1 Reply)
Discussion started by: marcoss90
1 Replies

9. Shell Programming and Scripting

expect TCL script

Hello, I write a TCL script for Expect/ Telnet. I want to send command to the telnet server. But I want to close after the command is sent. Anybody know which command can flush the expect so I can sure the command is sent to the telnet server??? EX: send "./command1\r" close... (0 Replies)
Discussion started by: linboco
0 Replies

10. Shell Programming and Scripting

Sed Script in TCL

Hi, I am trying to run the following in my tcl script--- set ul *//;s/*$//;/^$/d;s/^/"20080401 09:43:08.770798,/;s/$/"/;s/,/","/g} | \ /bin/awk -F, {{print $1","$2","$3","$4","$5}} | \ sed '1i\ REPORT.TIMESTAMP.s,REPORT.CUSTOMER.s,REPORT.CODE.s,REPORT.A_CODE.s,REPORT.DESCRIPTION.s' \ >... (2 Replies)
Discussion started by: MrG-San
2 Replies
Login or Register to Ask a Question