Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. ramana35

    Help need withregards to errro occured in cvs -n -q update tempdir

    Hi, Thanks for looking into it. I am getting below error when i run command to see the changed files. bash-2.05$ cvs -n -q update /volume/ws1 cvs update: CVSROOT must be an absolute pathname (not `<?xml v') cvs update: when using local access method. cvs update: in directory /volume/ws1: cvs...
  2. ramana35

    how to findout root symlink directory?

    Amazing, this is what I wanted. thanks a ton Feherke.
  3. ramana35

    how to findout root symlink directory?

    if it is perl i can use below code while (-l $input) { $input = readlink($input) } then it will go till it doesn't find symlink. But i am not sure how to do it in TCL. please let me now if any of you have clues.
  4. ramana35

    how to findout root symlink directory?

    Thanks Bond, It is only giving one level. if there are 2 levels of links or 3 levels of links, i want the one which is very origin. ex: a->b b->c c->d set var [file readlink $input] giving b when i pass input as a.
  5. ramana35

    how to findout root symlink directory?

    HI, Thanks for looking at this. I have a directory, which is a symlink ex?ls -ld temp --> temporg2 ls -ld temporg2 --> temp_org I would like to set temp_org to my final name based on temp. Thanks in advance.
  6. ramana35

    get exit staus of command in tcl

    below one worked for me. if { ![catch {exec groups $user_or_scoped_pr} result] } { puts "user exist" { else { puts "user not exist" exit } Anyways thanks.
  7. ramana35

    Validate username in tcl

    Thanks a lot.
  8. ramana35

    get exit staus of command in tcl

    thanks, but bash-2.05$ cat test.tcl #!/usr/local/bin/tclsh set var [lindex $argv 0] puts $var if { [catch {exec /usr/bin/groups $var} option] } { puts [dict get $option -code] } bash-2.05$ test.tcl rk rk invalid command name "dict" while executing "dict get $option -code" (file...
  9. ramana35

    get exit staus of command in tcl

    Thanks for quick response. Actually i would like to check if a user is existed or not. so i can execute id username can you describe me what puts [dict get $option -code] do ? how can i exit if id username return error(means user not existed)
  10. ramana35

    get exit staus of command in tcl

    Hi, Could somebody help me in getting exit staus of command in tcl. if it is shell script we can use echo $? right, how can i do that in tcl ? thanks in advance. -Kamma
  11. ramana35

    Validate username in tcl

    Hi, I have a script that will add usernames into a permitted list. Before adding it i would like to check if that username is really existed in my unix machine or not. if it is shell scripting i can use id -a username and see exit status of that. Could somebody tell how to do that in tcl...
  12. ramana35

    check is a variable value is alphabet or numeric

    thanks , below one worked for me. if { [ regexp {^([0-9]+)$} $var ] || [ regexp {^([a-zA-Z]+)$} $var ] } { puts "true" } else { puts "false" } Anyways thanks for your replies.
  13. ramana35

    check is a variable value is alphabet or numeric

    I have a variable which has value like 1234 or ramana if it is either 1234 or ramana , i want to return true, else false can you ell me how can i use string is ?
  14. ramana35

    check is a variable value is alphabet or numeric

    Hi, I am new to tcl, Please help with below simple requirement I will have a value in my variable, need to check wheather it is numeric or string. i tried in below way, but did not work if [ [regexp {^([0-9]+)$} $variable] || ![string match {^([a-z]+)$} $var] ] { puts "either numeric or...

Part and Inventory Search

Back
Top