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}"]