Index: openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl,v diff -u -r1.6 -r1.6.4.1 --- openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl 5 Nov 2003 15:37:51 -0000 1.6 +++ openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl 23 Dec 2004 07:26:10 -0000 1.6.4.1 @@ -48,12 +48,12 @@ set time_and_date_page [util_httpget "http://www.timeanddate.com/worldclock/"] - regexp {Current UTC \(or GMT\)-time used: ([^<]*)} $time_and_date_page match utc_from_page + regexp {Current UTC \(or GMT/Zulu\)-time used: ([^<]*)} $time_and_date_page match utc_from_page # UTC in format: # Wednesday, November 20, 2002, at 2:49:07 PM # Wednesday, August 6, 2003, at 12:11:48 - regexp {^([^,]*), *([^ ]*) *([0-9]*), *([0-9]*), at (.*)$} $utc_from_page match weekday month day year time + regexp {^([^,]*), *([^ ]*) *([0-9]*), *([0-9]*) at (.*)$} $utc_from_page match weekday month day year time set utc_epoch [clock scan "${month} ${day}, ${year} ${time}"]