[Amsn-commits] SF.net SVN: amsn: [7542] trunk/amsn-extras/plugins/gnotify/gnotify.tcl

[<kak...@us...>]

Revision: 7542
          http://svn.sourceforge.net/amsn/?rev=7542&view=rev
Author:   kakaroto
Date:     2006-11-28 01:44:58 -0800 (Tue, 28 Nov 2006)

Log Message:
-----------
oups.. no more D:\test now...

Modified Paths:
--------------
    trunk/amsn-extras/plugins/gnotify/gnotify.tcl

Modified: trunk/amsn-extras/plugins/gnotify/gnotify.tcl
===================================================================
--- trunk/amsn-extras/plugins/gnotify/gnotify.tcl	2006-11-28 09:32:48 UTC (rev 7541)
+++ trunk/amsn-extras/plugins/gnotify/gnotify.tcl	2006-11-28 09:44:58 UTC (rev 7542)
@@ -416,7 +416,7 @@
 				set cookie [join [list [set user_cookies($username,gv)] [set user_cookies($username,sid)]] "; "]
 			}
 			set headers [list Cookie "$cookie"]
-			http::geturl "http://mail.google.com/mail/?ui=pb" -headers $headers -command [list ::gnotify::check_gmail_callback $username]
+			http::geturl "http://mail.google.com/mail/?ui=html" -headers $headers -command [list ::gnotify::check_gmail_callback $username]
 		} else {
 			authenticate_gmail $username $password [list ::gnotify::check_gmail $username $password]
 			return 
@@ -437,9 +437,6 @@
 					}
 				}
 			}
-			set fd [open d://test w]
-			puts -nonewline $fd [::http::data $token]
-			close $fd
 			set info_l [parseGData [::http::data $token]]
 			array set info $info_l
 			if { $info(errors) > 0 } {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.