[Gambas-user] User timezone - could I ask a favour?

[Jussi Lahtinen]

Next time please make it ready to run project!

I'm not sure this is correct: "Europe/Mariehamn".
I don't live in Mariehamn, but there is only one timezone in Finland!
Confusion... but then it should be Helsinki which is our capital..!?
Gnome shows my location as Vantaa which is correct.

Ubuntu 11.04 64bit also with gnome 2.

Jussi





On Tue, Oct 25, 2011 at 00:30, Bruce Bruen <bbruen at ...2308...> wrote:

> Hi all,
>
> According to my web research the module below is the "best" way to
> obtain the user's timezone name (or "Olson name" if you prefer).  This
> is because distros implement timezoning in different ways.
>
> It works fine for me using using the test harnesses I can devise for my
> (non-standard) distro.  I was hoping that some of you would run it on
> your distro and report that it works OK.  It should just print your
> timezone name like "Arctic/Longyearbyen"
>
> Thanks in advance.
> Bruce
>
> ' Gambas module file
>
> Public Sub main()
>
>  Print GetUserTimezone()
>
> End
>
> Private Function GetUserTimezone() As String
>
>  Dim tzetc As String   ' Used to determine the type of
> the /etc/localtime file
>  Dim tzmd5 As String   ' The md5 sum for the /etc/localtime file
>  Dim rtnval As String  ' Manipulated substring of tzraw that is finally
> returned
>
>  rtnval = Replace(Application.Env["TZ"], "/usr/share/zoneinfo/", "")
>
>  If Not rtnval Then
>    Shell "file /etc/localtime" To tzetc
>    If tzetc Like "* symbolic link to *" Then
>      rtnval = Mid(tzetc, InStr(tzetc, "`") + 1, -2)
>      rtnval = Replace(rtnval, "/usr/share/zoneinfo/", "")
>    Endif
>  Endif
>
>  If Not rtnval Then
>    Shell "md5sum /etc/localtime" To tzmd5
>    tzmd5 = Left(tzmd5, InStr(tzmd5, " ") - 1)
>    Shell Subst("find /usr/share/zoneinfo -type f | xargs md5sum | grep
> &1", tzmd5) To rtnval
>    rtnval = Left(rtnval, InStr(rtnval, "\n") - 1)
>    rtnval = Mid(rtnval, InStr(rtnval, "info/") + 5)
>  Endif
>
>  Return Replace(rtnval, "posix/", "")
>
> End
>
> ------------------------------------------------------------------------------
> The demand for IT networking professionals continues to grow, and the
> demand for specialized networking skills is growing even more rapidly.
> Take a complimentary Learning at ...2709... Self-Assessment and learn
> about Cisco certifications, training, and career opportunities.
> http://p.sf.net/sfu/cisco-dev2dev
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>