### CONFIG ENDS HERE ###

# LOGGING
set date [ exec date +%Y-%m-%d\ %H:%M:%S ]
set logfile "$host-$date.log"
set timeout -1
#log_user 0



# PROCEDURES


# prints out timestamped message takes I or E for level param
# example: tsmesg "I" "Test"
proc tsmesg { level message } {

  global host
  set date [ exec date +%Y-%m-%d\ %H:%M:%S ]
  send_user "$date $host - $level - $message\n"
}

####

spawn ssh -o StrictHostKeyChecking=no -l  $username $host
expect "assword:"
send "$password\n"
expect "#"
send "terminal length 0\n"
expect "#"

send "sh run | inc hostname\n"
expect -re "hostname (.*)\r\n"
set tmp $expect_out(1,string)
set hostname [ regsub -- "/" $tmp "_" ]

#puts -nonewline "### $hostname"

unset expect_out(buffer)
send "sh pnp version | inc ASR\n"
expect -re "Device UDI: PID:(.*),VID:V01,SN:(.*)\r\n"
set hardware $expect_out(1,string)
set serial $expect_out(2,string)

append filename $hostname _ $hardware _ $serial .txt

send "license save $proto://$ftp_user:$ftp_pass@$server:/lic/$filename"
#send "$filename\r"
send "\n"
send "quit\n"