diff options
Diffstat (limited to 'NTPConfig.pm')
-rw-r--r-- | NTPConfig.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/NTPConfig.pm b/NTPConfig.pm index d5b4e4f..ba9ec57 100644 --- a/NTPConfig.pm +++ b/NTPConfig.pm @@ -45,13 +45,21 @@ sub new } dbus_method ("get", [], [[ "array", "string" ]]); +dbus_method ("set", [[ "array", "string" ]], []); dbus_signal ("changed", []); sub get { my ($self) = @_; - return Time::NTP::get (); + return &Time::NTP::get (); +} + +sub set +{ + my ($self, @config) = @_; + + &Time::NTP::set (@config); } 1; |