package require TclCurl

proc getUrl {curlHandle url} {

   puts                "\n ### getUrl using $url\n"

   set userAgent "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)" 

   puts                "\nuserAgent = $userAgent\n" 

   $curlHandle configure   -url               $url \
			   -bodyvar           body \
			   -headervar         headers \
			   -failonerror       1 \
			   -followlocation    1 \
			   -sslverifypeer     0  \
			   -useragent         $userAgent \
			   -errorbuffer       errorBuffer   

   if { [ catch {$curlHandle perform } r ] == 0} {

	set  httpCode      [$curlHandle getinfo httpcode]
	set  contentType   [$curlHandle getinfo contenttype]   
	set  redirectCount [$curlHandle getinfo redirectcount]
	set  fileTime      [$curlHandle getinfo filetime]      
	set  effUrl        [$curlHandle getinfo effectiveurl] 
	set  totalTime     [$curlHandle getinfo totaltime]     

	foreach { 1 2 } [ array get headers ] {
	    puts                [ format "%-20s = %-20s" $1 $2 ]
	    if { [ regexp -nocase "location" $1 ] == 1 }   { set url $2 }
	    if { [ regexp -nocase "Set-Cookie" $1 ] == 1 } { set cookie $2 }
	}

	puts                "\nLast effective URL = $url"

	puts                "\nCookie returned    = $cookie"
  
	return $cookie

      } else {
	  puts "ERROR1"
	  return -code error $errorBuffer
   }
}

proc postUrl {curlHandle url postString cookie} {

   puts                "\n postString is $postString"

   puts                "\n ### postUrl using $url\n"

   puts                "\n ### cookie  is    $cookie\n"

   set userAgent "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)" 

   puts "userAgent = $userAgent" 

   $curlHandle configure -url               $url \
          		 -cookie            $cookie \
          		 -bodyvar           body \
          		 -headervar         headers \
          		 -postfields        $postString \
          		 -useragent         $userAgent \
          		 -failonerror       1 \
          		 -errorbuffer       errorBuffer   

   if { [ catch {$curlHandle perform } r ] == 0} {

	set  httpCode      [$curlHandle getinfo httpcode]
	set  contentType   [$curlHandle getinfo contenttype]   
	set  redirectCount [$curlHandle getinfo redirectcount]
	set  fileTime      [$curlHandle getinfo filetime]      
	set  effUrl        [$curlHandle getinfo effectiveurl] 
	set  totalTime     [$curlHandle getinfo totaltime]     

	foreach { 1 2 } [ array get headers ] {
	    puts                [ format "%-20s = %-20s" $1 $2 ]
	    if { [ regexp -nocase "location" $1 ] == 1 }   { set url $2 }
	    if { [ regexp -nocase "Set-Cookie" $1 ] == 1 } { set cookie $2 }
	}

	puts                "\nLast effective URL = $url"

	puts                "\nCookie returned    = $cookie"
  
	return $cookie

      } else {
	  puts "ERROR1"
	  return -code error $errorBuffer
      }

}

proc getUrlCookie {curlHandle url cookie} {

   puts "\n ### getUrl using $url\n"
   puts "\n ### cookie  is    $cookie\n"

   set userAgent "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)" 

   puts "\nuserAgent = $userAgent\n" 

   $curlHandle configure   -url               $url \
			   -bodyvar           body \
			   -headervar         headers \
			   -failonerror       1 \
			   -followlocation    1 \
			   -sslverifypeer     0  \
          		   -cookie            $cookie \
			   -useragent         $userAgent \
			   -errorbuffer       errorBuffer   

   if { [ catch {$curlHandle perform } r ] == 0} {

	set  httpCode      [$curlHandle getinfo httpcode]
	set  contentType   [$curlHandle getinfo contenttype]   
	set  redirectCount [$curlHandle getinfo redirectcount]
	set  fileTime      [$curlHandle getinfo filetime]      
	set  effUrl        [$curlHandle getinfo effectiveurl] 
	set  totalTime     [$curlHandle getinfo totaltime]     

	foreach { 1 2 } [ array get headers ] {
	    puts                [ format "%-20s = %-20s" $1 $2 ]
	    if { [ regexp -nocase "location" $1 ] == 1 }   { set url $2 }
	    if { [ regexp -nocase "Set-Cookie" $1 ] == 1 } { set cookie $2 }
	}

	puts                "\nLast effective URL = $url"

	puts                "\nCookie returned    = $cookie"

  
	return $body

      } else {
	  set  httpCode      [$curlHandle getinfo httpcode]

	  puts "ERROR: $httpCode"

	  puts $errorBuffer
	  return -code error $errorBuffer
   }
}

######################################
# Set Variables
######################################

set curlHandle [curl::init]

#####################################################
# get initial url(login page) and return cookie.
# set url https://www.yoursite.com/yoursite/login.jsp
#####################################################

set url https://www.yoursite.com/yoursite/login.jsp

if {[catch {getUrl $curlHandle $url} r] == 0} {
     set cookie $r
     } else {
        puts "ERROR:"
        puts $r 
        $curlHandle cleanup
	exit 1
}

#######################################################################
#post userid and password with sessionid to login page 
#set url https://www.yoursite.com/yoursite/j_security_check 
#######################################################################

set url https://www.yoursite.com/yoursite/j_security_check 
set postString "j_username=abcde&j_password=12345&submit=logon" 

if {[catch {postUrl $curlHandle $url $postString $cookie} r] == 0} {
     set cookie $r
     } else {
        puts "ERROR:"
        puts $r 

        $curlHandle cleanup
	exit 1
}

#######################################################################
#get protected url(page)
#set url https://www.yoursite.com/yoursite/member/
#######################################################################

set url https://www.yoursite.com/yoursite/member/

if {[catch {getUrlCookie $curlHandle $url $cookie} r] == 0} {
     set body $r
     if {[regexp -nocase {\<title\>Members Area\<\/title\>} $body] ==1} {
	 set continue true 
     } else {
	    puts "ERROR:"
	    puts $r 

	    $curlHandle cleanup
	    exit 1
     }
} else {
	puts "ERROR:"
	puts $r 

	$curlHandle cleanup
	exit 1
}

$curlHandle cleanup