Tcl - How to get cookies?

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

How to get cookies?

una

2006-08-22, 12:16 am

Hi,

This is una new learner of TCL.
I am trying to redirect to another page once logged in to a web page.
But i am getting as sessions expired please relogin.
To that i need to get cookies of a web page.

Following code iam using :

set query [::http::formatQuery msisdn1 $username password $password]
set http [::http::geturl $url -query $query]
set html [::http::data $http]
if {[regexp {Welcome} $html]} {
set query [::http::formatQuery buddyname $Buddyname msisdn $Msisdn email $Email]
set http [::http::geturl $url -query $query]
set html [::http::data $http]
if {[regexp {buddy added} $html]} {
puts "Buddy Added"
}
}

Thanks for any help.

Sponsored Links