namespace eval ::hotmail {
    if { $initialize_amsn == 1 } {
	variable unread 0
    }

   proc unreadMessages {} {
      variable unread
      return $unread
   }


   proc setUnreadMessages { number } {
      variable unread
      set unread $number
   }

   proc composeMail { toaddr userlogin {pass ""} } {
   # Note: pass can be empty, so user must enter password in the login
   # page.
   #
   # $Id: hotmail.tcl,v 1.34 2004/03/23 20:22:00 airadier Exp $
   #
      global tcl_platform HOME config

      if {$pass != ""} {

         set read_id [open "hotmlog.htm" r]

         set page_data ""
         while {[gets $read_id tmp_data] != "-1"} {
            set page_data "$page_data\n$tmp_data"
         }

         close $read_id

         #Here we calculate the creds and fields in the web page
         set d(valid) Y
         ::abook::getDemographics d

         set userdata [split $userlogin "@"]
         set email $userlogin

         set login [lindex $userdata 0]

         set kv $d(kv)
         set sl [expr {[clock seconds] - $d(sessionstart)}]
         set sid $d(sid)
         set auth $d(mspauth)
         set tomd5 $auth$sl$pass
         set creds [::md5::md5 $tomd5]

         set url "/cgi-bin/compose?mailto=1&to=$toaddr"

         #Now let's substitute the $vars in hotmlog.htm

         set page_data [subst -nocommands -nobackslashes $page_data]

         if {$tcl_platform(platform) == "unix"} {
            set file_id [open "[file join ${HOME} hotlog.htm]" w 00600]
         } else {
            set file_id [open "[file join ${HOME} hotlog.htm]" w]
         }

         puts $file_id $page_data

         close $file_id

     if {$tcl_platform(os) != "Darwin"} {
     launch_browser "file://${HOME}/hotlog.htm" 1
     } else {
     launch_browser "${HOME}/hotlog.htm" 1
     }

      } else {

	 launch_browser "http://www.hotmail.com"

      }

   }

   proc viewProfile {user_login} {
      launch_browser "http://members.msn.com/default.msnw?mem=${user_login}&pgmarket="
   }
}

proc hotmail_login {userlogin {pass ""}} {
# Note: pass can be empty, so user must enter password in the login
# page.
#
# $Id: hotmail.tcl,v 1.34 2004/03/23 20:22:00 airadier Exp $
#
  global tcl_platform HOME config d

  if {$pass != ""} {

    set read_id [open "hotmlog.htm" r]

    set page_data ""
    while {[gets $read_id tmp_data] != "-1"} {
      set page_data "$page_data\n$tmp_data"
    }

    close $read_id


    #Here we calculate the creds and fields in the web page
    set d(valid) Y
    ::abook::getDemographics d

    set userdata [split $userlogin "@"]
    set email $userlogin

    set login [lindex $userdata 0]

    set kv $d(kv)
    set sl [expr {[clock seconds] - $d(sessionstart)}]
    set sid $d(sid)
    set auth $d(mspauth)
    set tomd5 $auth$sl$pass
    set creds [::md5::md5 $tomd5]

    set url "/cgi-bin/HoTMaiL"


    #Now let's substitute the $vars in hotmlog.htm

    set page_data [subst -nocommands -nobackslashes $page_data]

    if {$tcl_platform(platform) == "unix"} {
      set file_id [open "[file join ${HOME} hotlog.htm]" w 00600]
    } else {
      set file_id [open "[file join ${HOME} hotlog.htm]" w]
    }

     puts $file_id $page_data

     close $file_id
if {$tcl_platform(os) != "Darwin"} {
     launch_browser "file://${HOME}/hotlog.htm" 1
     } else {
     launch_browser "${HOME}/hotlog.htm" 1
     }
     
   } else {
     launch_browser "http://www.hotmail.com"
   }

}


proc hotmail_viewmsg {msgurl userlogin {pass ""}} {
# Note: pass can be empty, so user must enter password in the login
# page.
#
# $Id: hotmail.tcl,v 1.34 2004/03/23 20:22:00 airadier Exp $
#
  global tcl_platform HOME config

  if {$pass != ""} {

    set read_id [open "hotmlog.htm" r]

    set page_data ""
    while {[gets $read_id tmp_data] != "-1"} {
      set page_data "$page_data\n$tmp_data"
    }

    close $read_id

    #Here we calculate the creds and fields in the web page
    set d(valid) Y
    ::abook::getDemographics d

    set userdata [split $userlogin "@"]
    set email $userlogin

    set login [lindex $userdata 0]

    set kv $d(kv)
    set sl [expr {[clock seconds] - $d(sessionstart)}]
    set sid $d(sid)
    set auth $d(mspauth)
    set tomd5 $auth$sl$pass
    set creds [::md5::md5 $tomd5]

    set url $msgurl

    #Now let's substitute the $vars in hotmlog.htm

    set page_data [subst -nocommands -nobackslashes $page_data]

    if {$tcl_platform(platform) == "unix"} {
      set file_id [open "[file join ${HOME} hotlog.htm]" w 00600]
    } else {
      set file_id [open "[file join ${HOME} hotlog.htm]" w]
    }

     puts $file_id $page_data

     close $file_id

if {$tcl_platform(os) != "Darwin"} {
     launch_browser "file://${HOME}/hotlog.htm" 1
     } else {
     launch_browser "${HOME}/hotlog.htm" 1
     }

   } else {
     launch_browser "http://www.hotmail.com"
   }

}


proc QPDecode {str} {

	#New version, no need of url_unmap

	set begin 0
	set end [string first "=" $str $begin]
	set decode ""


	while { $end >=0 } {
		set decode "${decode}[string range $str $begin [expr {$end-1}]]"

		set carval [format %d 0x[string range $str [expr {$end+1}] [expr {$end+2}]]]
		if {$carval > 128} {
			set carval [expr { $carval - 0x100 }]
		}

		set car [binary format c $carval]

		set decode "${decode}$car"

		set begin [expr {$end+3}]
		set end [string first "=" $str $begin]
	}

	set decode ${decode}[string range $str $begin [string length $str]]

}


proc decode_from_field { from } {
	set from [string map {"\r" ""} $from]
	set from_list [split $from "?"]
	
	if { [llength $from_list] == 1 } {
		return $from
	}
	
	set encoding [string tolower [lindex $from_list 1]]
	set sender [string map {"_" " " "= " ""} [join [lrange $from_list 3 end]]]
	set sender [QPDecode $sender]
	if { [catch {set sender [encoding convertfrom $encoding $sender]}]} {
		status_log "decode_from_field: Wrong encoding - $encoding\n" red
		return $sender 
	}
	
	return $sender
	
}

proc hotmail_procmsg {msg} {
	global config password

	#Nuevo by AIM
	
	set content [::MSN::GetHeaderValue $msg Content-Type]

	if {[string range $content 0 29] == "text/x-msmsgsemailnotification"} {     
	  if {[::MSN::GetHeaderValue $msg From] != ""} {				
	    set from [::MSN::GetHeaderValue $msg From]
	    set fromaddr [::MSN::GetHeaderValue $msg From-Addr]
	    if {[catch {set from [decode_from_field $from]} res]} {
	    	status_log "Fail to decode from field: $res\n" res
		set from $fromaddr
	    }
	    set msgurl [::MSN::GetHeaderValue $msg Message-URL]
	    status_log "Hotmail: New mail from $from - $fromaddr\n"

            ::hotmail::setUnreadMessages [expr { [::hotmail::unreadMessages] + 1}]
	
	    if { $config(notifyemail) == 1 } {
	    	::amsn::notifyAdd "[trans newmailfrom $from $fromaddr]" \
	      	"hotmail_viewmsg $msgurl $config(login) $password" newemail
	    }

	    cmsn_draw_online

	  } 
	}
	if {[string range $content 0 36]  == "text/x-msmsgsinitialemailnotification"} {
  	  set noleidos [::MSN::GetHeaderValue $msg Inbox-Unread]
	  status_log "Hotmail: $noleidos unread emails\n"
	  if { [string length $noleidos] > 0 } {
	    ::hotmail::setUnreadMessages $noleidos
	    cmsn_draw_online
	  }
	}
	if {[string range $content 0 34]  == "text/x-msmsgsactivemailnotification"} {
	  set source [::MSN::GetHeaderValue $msg Src-Folder]
	  set dest [::MSN::GetHeaderValue $msg Dest-Folder]
	  set delta [::MSN::GetHeaderValue $msg Message-Delta]
	  if { $source == "ACTIVE" } {
  	    set unread [expr {[::hotmail::unreadMessages] - $delta}]
	  } elseif {$dest == "ACTIVE"} {
  	    set unread [expr {[::hotmail::unreadMessages] + $delta}]
	  } else {
	    set unread [::hotmail::unreadMessages]
	  }
	  status_log "Hotmail num of messages changed: $unread unread emails\n"
	  if { [string length $unread] > 0 } {
	    ::hotmail::setUnreadMessages $unread
	    cmsn_draw_online
	  }
	}
		#End by AIM
	# dock mail icon 
	send_dock "MAIL" [::hotmail::unreadMessages]
	status_log "hotmail_procmsg: Finishing\n"

}