#
# Opens a TELNET connection (Via TCP/IP WINSOCK api).
#
# Parameters : $p1 - host name.
#              $p2 - setup file xxx.pts name
#              $p3 - telnet port number.

ShowMessage = 0
if {$pc < 1} {ShowMessage = 1} elseif {$p1 == "Host-Name"} {ShowMessage = 1}

if {$ShowMessage == 1} {
 line1 = "You are now executing the script TELNET.PSL.\n"
 line2 = "This script requires a TELNET host name as a parameter.\n"
 line3 = "Please modify your command line or shortcut\n"
 line4 = "by replacing the script parameter Host-Name\n"
 line5 = "with the TELNET host name you would like to connect to.\n"
 line6 = "\n"
 line7 = "Example: PTW32.EXE TELNET.PSL HOSTA"
 message "$line1$line2$line3$line4$line5$line6$line7"
 return
}

if [info exist p1] {
 open-setup-file $p1 
}

set comm-type telnet
set host-name $p2 


if [info exist p3] {
 set telnet-port $p3
}

session open
set session-name $p2
run keys.psl