diff options
Diffstat (limited to 'TimeConfig.pm')
-rw-r--r-- | TimeConfig.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/TimeConfig.pm b/TimeConfig.pm index 53e074b..05d06e2 100644 --- a/TimeConfig.pm +++ b/TimeConfig.pm @@ -45,6 +45,7 @@ sub new } dbus_method ("get", [], [ "int32", "int32", "int32", "int32", "int32", "int32", "string" ]); +dbus_method ("set", [ "int32", "int32", "int32", "int32", "int32", "int32", "string" ], []); dbus_signal ("changed", []); sub get @@ -55,4 +56,11 @@ sub get return Time::TimeDate::get (); } +sub set +{ + my ($self, @config) = @_; + + Time::TimeDate::set (@config); +} + 1; |