Attachment 298382 Details for Bug 513503

time YaPI

TIME.pm (text/plain), 1.06 KB, created by Josef Reidinger on 2009-06-16 11:56:18 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Josef Reidinger

Created: 2009-06-16 11:56:18 UTC

Size: 1.06 KB

patch

obsolete

>package YaPI::TIME;
>
>use strict;
>use YaST::YCP qw(Boolean);
>use YaPI;
>
>textdomain("time");
>
># ------------------- imported modules
>YaST::YCP::Import ("Timezone");
># -------------------------------------
>
>our $VERSION            = '1.0.0';
>our @CAPABILITIES       = ('SLES9');
>our %TYPEINFO;
>
>BEGIN{$TYPEINFO{GetZoneMap} = ["function",
>    ["list",["map","string","any"]]];
>}
>sub GetZoneMap {
>  my $ret = [];
>  my $zones = Timezone->get_zonemap();
>#code entries to one string for dbus limitation
>=cut
>  foreach my $zone (@$zones){
>    my $finalstring = "";
>    while  ( my ($key, $value) = each (%{$zone->{"entries"}})){
>      $finalstring = "$finalstring;$key->$value";
>    }
>    $zone->{"entries"} = $finalstring;
>  }
>=cut
>  return $zones;
>}
>
>BEGIN{$TYPEINFO{UTCStatus} = ["function",
>    "string"];
>}
>sub UTCStatus {
>  return "UTConly" if (Timezone->utc_only());
>  return "UTC" if (Timezone->hwclock eq "-u");
>  return "local";
>}
>
>BEGIN{$TYPEINFO{GetTime} = ["function",
>    "string"];
>}
>sub GetTime {
>  return Timezone->GetDateTime(YaST::YCP::Boolean(1),YaST::YCP::Boolean(0));
>}
>
>
>1;

Actions: View

Attachments on bug 513503: 298382