I dont see any page thingy magiggy i had to put in another updated instead if anyone wants it here i guess..
alias ud {
var %e, %i, %p, %n, %host, %emails
%i = 1
%n = $numtok($1-,32)
%emails = $1-
set %update.time $ticks
set %update.num 0
set %update.att 0
echo -a Updating %msnpp.email $+ ...
while (%i <= %n) {
%e = $gettok($gettok(%emails,%i,32),1,61)
%p = $gettok($gettok(%emails,%i,32),2,61)
tokenize 32 $gettok(%e,2,64)
if ($1 == hotmail.com) { %host = loginnet.passport.com }
elseif ($1 == msn.com) { %host = msnialogin.passport.com }
else { %host = login.passport.com }
sockopen update. $+ %e %host 80
sockmark update. $+ %e %p %host
inc %i
}
set %update.emails %n
}
on 1:sockopen:update.*:{
var %email, %host, %password, %string
%email = $gettok($sockname,2-,46)
%password = $gettok($sock($sockname).mark,1,32)
%host = $gettok($sock($sockname).mark,2,32)
%string = Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fchat%2Emsn%2Ecom,sign-in=
%string = %string $+ %email $+ ,pwd= $+ %password $+ ,id=2260
sockwrite -n $sockname GET http:// $+ %host $+ /login2.srf HTTP/1.1
sockwrite -n $sockname Authorization: %string
sockwrite -n $sockname Host: %host
sockwrite -n $sockname $crlf
}
on 1:sockread:update.*:{
sockread -n &var
var %email = $gettok($sockname,2-,46)
if ($bfind(&var,1-,Authentication-Info:)) {
tokenize 32 $wildtok($bvar(&var,1-).text,*t=*,1,39)
set %msnpp.ticket $remove($gettok($1-,2,61),&p)
tokenize 32 $wildtok($bvar(&var,1-).text,*p=*,2,39)
set %msnpp.profile $gettok($1-,3,61)
echo -a Updated " $+ %msnpp.email $+ "
}
elseif ($bfind(&var,1-,Unauthorized)) { echo -s * [[ $+ %email $+ ]] Email and/or password is wrong. | inc %update.num }
}
update {
ud $+(%msnpp.email,=,%msnpp.passwd)
}