Hi Used Have this updater working and now it don't I been over this code so would like a fresh per of eyes please
alias update {
if (!%msnpp.email) { set %msnpp.email $$?"Please enter in the account" }
if (!%msnpp.passwd) { set %msnpp.passwd $$?"Please enter in the password" }
if ($1) { getinfo $1 $2 }
else { getinfo }
}
alias getinfo {
if (!$1) { tokenize 32 %msnpp.email }
if ($gettok($1,2,64) == msn.com) { set %GCDomain msnialogin.passport.com }
elseif ($gettok($1,2,64) == hotmail.com) { set %GCDomain loginnet.passport.com }
else { set %GCDomain login.passport.com }
server -me %GCDomain 443
set %udticks $ticks
}
on ^*:LOGON:*:{
if ($server == %GCDomain) {
scid $cid window -nh "Status Window"
set %udCID $cid
.raw GET /login2.srf HTTP/1.1 $+ $crlf $+ Authorization: Passport1.4 OrgVerb=GET,OrgURL=?,sign-in= $+ $gettok(%email,1,64) $+ $chr(37) $+ 40 $+ $gettok(%email,2,64) $+ ,pwd= $+ %passwd $+ ,id=507 $+ $crlf $+ Host: $+($server,$crlf,$crlf)
halt
}
}
on *:DISCONNECT:{
if ($server == %GCDomain) { scid $cid window -c "Status Window" }
halt
}
raw *:*:{
if ($1 == Passport1.4) {
if (da-status=failed-noretry isin $2) { scid 0 echo -s Passport update failed. | halt }
set %ticket $right($gettok($mid($2,$pos($2,'t=),$len($2)),1,38),-3)
set %profile $right($gettok($gettok($mid($2,$pos($2,'t=),$len($2)),2,38),1,39),-2)
set %pauth : $+ $passform(%ticket,%profile)
scid $cid disconnect
render
}
if ($cid == %udCID) { halt }
return
}
alias render {
sockclose renderchat
sockopen renderchat chat.msn.com 80
}
on *:sockopen:renderchat:{
sockwrite -n $sockname GET /renderchat.msnw? HTTP/1.1
sockwrite -n $sockname HOST: chat.msn.com
sockwrite -n $sockname User-Agent: compatible; MSIE 4.0; Windows NT 4.0
sockwrite -n $sockname Cookie: MSPAuth= $+ %ticket $+; MSPProf= $+ %profile $+ $crlf $+ $crlf
}
on *:sockread:renderchat:{
sockread -n &read
if ($sockbr == 0) { return }
var %x = $bvar(&read,$bfind(&read,1,"SubscriberInfo"),$bvar(&read,0)).text
if (SubscriberInfo isin %x) {
%x = $mid(%x,$pos(%x,VALUE),$len(%x))
%x = $mid(%x,$calc($pos(%x,") + 1),$len(%x))
set %subinfo $mid(%x,1,$calc($pos(%x,") - 1))
echo -s 2-update complete ( $+ $iif(%email,%email,unknown) - $calc(($ticks - %udticks) / 1000) $+ s)
}
}
alias passform return $+($base($len(%ticket),10,16,8),%ticket,$base($len(%profile),10,16,8),%profile)
