From c66a8c1713cb9d702033ba6503ef5ed6b13a3173 Mon Sep 17 00:00:00 2001
From: Lieven Hollevoet <hollie@lika.be>
Date: Mon, 4 Mar 2013 22:26:54 +0100
Subject: [PATCH 1/3] Added xpl-uptime tool to report the uptime of a host

---
 MANIFEST       |   1 +
 bin/xpl-uptime | 102 +++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 103 insertions(+)
 create mode 100755 bin/xpl-uptime

diff --git a/MANIFEST b/MANIFEST
index 9e91f7af..000b3972 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -40,6 +40,7 @@ bin/xpl-sms-send
 bin/xpl-tcphelp
 bin/xpl-tty-tcp
 bin/xpl-udin
+bin/xpl-uptime
 bin/xpl-viom
 bin/xpl-w800
 bin/xpl-wol
diff --git a/bin/xpl-uptime b/bin/xpl-uptime
new file mode 100755
index 00000000..bb393df0
--- /dev/null
+++ b/bin/xpl-uptime
@@ -0,0 +1,102 @@
+#!/usr/bin/env perl
+
+=head1 NAME
+
+xpl-uptime - Creates messages reporting the uptime of a host.
+ 
+=head1 SYNOPSIS
+
+  xpl-uptime [flags] [options]
+  where valid flags are:
+    -h - show this help text
+    -v - verbose mode
+  and valid options are (default shown in brackets):
+    -i if0 - the interface for xPL messages (first non-loopback or loopback)
+
+  # start the clock application with "tick" interval of 60 seconds
+  xpl-uptime 
+
+=head1 DESCRIPTION
+
+This script is an xPL client that periodically sends out
+"sensor.basic" messages.  It can be used to let other devices on the
+network know when a specific host is up.
+
+=cut
+
+use strict;
+use warnings;
+use Getopt::Long;
+use Pod::Usage;
+use Unix::Uptime;
+use xPL::Client;
+$|=1; # autoflush helps debugging
+
+my %args = ( vendor_id => 'hollie', device_id => 'uptime', );
+my %opt = ();
+my $verbose;
+my $interface;
+my $help;
+my $man;
+my $tick_interval = 10;
+my $time_format = '%Y%m%d%H%M%S';
+GetOptions('verbose+' => \$verbose,
+           'interface=s' => \$interface,
+           'define=s' => \%opt,
+           'help|?|h' => \$help,
+           'man' => \$man,
+          ) or pod2usage(2);
+pod2usage(1) if ($help);
+pod2usage(-exitstatus => 0, -verbose => 2) if ($man);
+
+$args{'interface'} = $interface if ($interface);
+$args{'verbose'} = $verbose if ($verbose);
+
+# Create an xPL Client object
+my $xpl = xPL::Client->new(%args, %opt) or die "Failed to create xPL::Client\n";
+
+# Add a timer to the xPL Client event loop to generate the
+# "sensor.basic" messages.  The negative interval causes the timer to
+# trigger immediately rather than waiting for the first interval.
+$xpl->add_timer(id => 'tick',
+                timeout => -60,
+                callback => \&tick,
+                arguments => [$xpl]);
+
+$SIG{TERM} = \&end;
+$SIG{QUIT} = \&end;
+
+# Run the main loop
+$xpl->main_loop();
+
+# The callback to send the "clock.update" messages
+sub tick {
+  my %p = @_;
+  my $xpl = $p{arguments}->[0];
+  $xpl->send(message_type => 'xpl-trig', class => 'sensor.basic',
+             body => { device => 'uptime', type => 'generic', 'current' => Unix::Uptime->uptime() } );
+  return 1;
+};
+
+# send a "hbeat.end" message on exit
+sub end { defined $xpl && undef $xpl;exit; }
+
+=head1 SEE ALSO
+
+xPL::Client(3), xPL::Listener(3)
+
+Project website: http://www.xpl-perl.org.uk/
+
+=head1 AUTHOR
+
+Lieven Hollevoet, E<lt>hollie@lika.beE<gt>
+
+=head1 COPYRIGHT
+
+Copyright (C) 2005, 2009 by Mark Hindess
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.8.7 or,
+at your option, any later version of Perl 5 you may have available.
+
+=cut

From f1ac013c68786890754d7881aca3eea9e1856309 Mon Sep 17 00:00:00 2001
From: Lieven Hollevoet <hollie@lika.be>
Date: Sun, 17 Mar 2013 10:52:32 +0100
Subject: [PATCH 2/3] Bugfix: propagate the interval instead of using a default
 60 seconds value

The interval was not being passed to the timer function.
---
 bin/xpl-uptime | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/xpl-uptime b/bin/xpl-uptime
index bb393df0..2116abab 100755
--- a/bin/xpl-uptime
+++ b/bin/xpl-uptime
@@ -59,7 +59,7 @@ my $xpl = xPL::Client->new(%args, %opt) or die "Failed to create xPL::Client\n";
 # "sensor.basic" messages.  The negative interval causes the timer to
 # trigger immediately rather than waiting for the first interval.
 $xpl->add_timer(id => 'tick',
-                timeout => -60,
+                timeout => -$interval,
                 callback => \&tick,
                 arguments => [$xpl]);
 

From 038c1eed3bed7be9474eedd8a7f39445783479b9 Mon Sep 17 00:00:00 2001
From: Lieven Hollevoet <hollie@lika.be>
Date: Sun, 17 Mar 2013 10:52:32 +0100
Subject: [PATCH 3/3] Bugfix: propagate the interval instead of using a default
 60 seconds value

The interval was not being passed to the timer function.
---
 bin/xpl-uptime | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/xpl-uptime b/bin/xpl-uptime
index bb393df0..36d345e2 100755
--- a/bin/xpl-uptime
+++ b/bin/xpl-uptime
@@ -59,7 +59,7 @@ my $xpl = xPL::Client->new(%args, %opt) or die "Failed to create xPL::Client\n";
 # "sensor.basic" messages.  The negative interval causes the timer to
 # trigger immediately rather than waiting for the first interval.
 $xpl->add_timer(id => 'tick',
-                timeout => -60,
+                timeout => -$tick_interval,
                 callback => \&tick,
                 arguments => [$xpl]);