15 lines
488 B
Plaintext
15 lines
488 B
Plaintext
|
{
|
||
|
|
# Add configuration database entry for TimeZone if there is not one already
|
||
|
|
return if defined $DB->get('TimeZone');
|
||
|
|
if (-l "/etc/localtime")
|
||
|
|
{
|
||
|
|
# get timezone information from the system /etc/localtime
|
||
|
|
my $localtime = readlink "/etc/localtime" || "US/Eastern";
|
||
|
|
# Make a relative link into an absolute one
|
||
|
|
$localtime =~ s:^\.\.::;
|
||
|
|
# Extract timezone from absolute path
|
||
|
|
$localtime =~ s:^/usr/share/zoneinfo/::;
|
||
|
|
$DB->new_record('TimeZone', {type => $localtime});
|
||
|
|
}
|
||
|
|
}
|