How to set UID and password through a socket?

[thelordoftherings]

Hello,

I am connection to an IP using the socket command likr this:
set fid [socket <IP Address>]
The problem is that this IP requires UserID and password and I don't know how to put it through the open socket.
I tried:
puts $fid UserID
flush $fid

But it doesn't seem to work.
Any ideas?

 

[marsd]

Here is a server and client example set for you.
Client

#!/usr/bin/tclsh
set server [expr {[string length [lindex $argv 0]] > 0 ? [lindex $argv 0] : [gets stdin]}]
set port [expr {[string length [lindex $argv 1]] > 0 ? [lindex $argv 1] : [gets stdin]}]

proc sendsock {msg fd1} {

 puts $fd1 $msg
 flush $fd1

}

proc readfromsock {sck} {
                
                  if {[gets $sck line] > -1} {
                       puts $line
                       sendsock [gets stdin] $sck
                  } else {
                      after 1000;
                      readfromsock $sck
                  }
return [string length $line]
}      


  if {![catch {set client [socket $server $port]} err]} {
      while {1 && ![eof $client]} {
            readfromsock $client
      }
  } else {
       puts "ERROR: $err"
       exit
  }

Server

#!/usr/bin/tclsh
#trivial little server

set msgcount 0

proc handlestuff {sck address port} {
puts "Got connect from $address"
puts $sck "HI..welcome to stoopsrv: $address" ; flush $sck
 if {[checkpass $sck] < 1} {error "Could not determine socket fd???"}
fileevent $sck readable [list do_retr $sck]
fileevent $sck writable [list do_write $sck]
}


proc checkpass {svar} {
       if {![catch {puts [set svar]}]} {
            return 1
       }
return -1
}

proc do_retr {s} {
global msgcount 
                if {[gets $s line] > 0} {
                    puts "Read: $line at message count [incr msgcount]"
                    uplevel #0 "set lastread $line"
                    return [string length $line]
                }
}

proc do_write {s} { 
global lastread
     for {set x 0} {$x < [expr int(1+ rand() * 25)]} {incr x} {
         append str [format  %c [expr int(1 + rand() * 25)]]
     }
     #string created
     if {[binary scan $str B* var]} {
         puts $s "Random: $var"
         flush $s
     }
fconfigure stdout -blocking 0 
catch {binary scan $lastread B* var1}
catch {puts "Last input transform = $var1 and raw gen string = $str"}
}


set psock [socket -server handlestuff 2000]
vwait forever