Comment puis-je obtenir et utiliser le paramètre TZ d'un utilisateur à partir de son .bashrc dans un script CGI Perl?

Question

Chacun de mes utilisateurs a un (éventuellement) TZ différent défini dans leur .bashrc. J'ai un script Perl qui affiche la date/heure et je veux qu'il l'affiche avec son fuseau horaire de profil.

Est-ce que quelqu'un sait la meilleure façon de le faire?

Answer 1

Une réponse simple est d'utiliser:

use POSIX; 
    .... 
    print strftime("%H:%M %Z", localtime); 

Mais la zone retournée par Z% varie d'un système à. J'ai GMT Daylight Time et BST sur deux plates-formes différentes.

Modifier Voici une expérience montrant que (au moins pour moi)% Z tient compte de la TZ

export TZ='' 
    perl -MPOSIX -e 'print strftime("%H:%M %Z\n", localtime)' 
    export TZ=America/Los_Angeles 
    perl -MPOSIX -e 'print strftime("%H:%M %Z\n", localtime)' 

produit une sortie

16:45 UTC 
    09:45 PDT 

Answer 2

Ce qui est un "profil" dans ce le contexte?

Answer 3

Vous pouvez utiliser le module merveilleux DateTime pour cela:

use strict; use warnings; 
use DateTime; 

# extract timezone name from file in env variable 
(my $tz = $ENV{TZ}) =~ s#^/usr/share/zoneinfo/##; 
my $now = DateTime->now(time_zone => $tz); 

print "The current time is: " . $now->strftime('%F %T %Z') . "\n"; 

Quand je lance cela avec TZ = "/ usr/share/zoneinfo/Europe/Paris", je vois:

L'heure actuelle est: 2010-04-19 20:09:03 CEST

Pour extraire les données de fuseau horaire du fichier de l'utilisateur: une solution rapide est de stocker la configuration TZ de cet utilisateur dans un fichier séparé (qui pourrait .bashrc source), et vous pouvez analyser manuellement dans le CGI (mais cela entre dans un autre sujet: Comment mieux stocker les configurations par utilisateur pour un CGI?)

# /home/<user>/.tz should have the content: export TZ="/usr/share/zoneinfo/timezonename" 
open(my $tz_fh, "/home/${user}/.tz"); 
chomp(my $tz_data = <$tz_fh>); 
close $tz_fh; 
(my $tz_path) = $tz_data =~ m/^export TZ\s*=\s*"(.+)"$/; 

# now $tz_path contains what $ENV{TZ} would contain in the earlier code snippet.