From 663aa6a539fea4849b91846300685f9a3a5d2e1c Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Tue, 31 Dec 2013 18:57:14 +0100
Subject: [PATCH] integrated code from a different project
---
perl/Gnome-Tomboy/lib/Tomboy.pm | 62 +++++++++++++++++++++++++++++++++
1 file changed, 62 insertions(+)
create mode 100644 perl/Gnome-Tomboy/lib/Tomboy.pm
diff --git a/perl/Gnome-Tomboy/lib/Tomboy.pm b/perl/Gnome-Tomboy/lib/Tomboy.pm
new file mode 100644
index 0000000..443103d
--- /dev/null
+++ b/perl/Gnome-Tomboy/lib/Tomboy.pm
@@ -0,0 +1,62 @@
+
+=head1 NAME
+
+ Tomboy
+
+=head1 DESCRIPTION
+
+utility functions to work with Tomboy
+
+=head1 SYNOPSIS
+
+ use Tomboy;
+
+ $text2= $Tomboy::link($text);
+ $text2= $Tomboy::list_item($text);
+
+=head1 INTERNAL FUNCTIONS
+
+=cut
+
+package Tomboy;
+
+use strict;
+
+use UUID;
+
+sub link
+{
+ my $s= shift;
+ '<link:internal>' . $s . '</link:internal>';
+}
+
+sub list_item
+{
+ my $s= shift;
+ '<list-item dir="ltr">' . $s . '</list-item>';
+}
+
+=head2 ts_ISO ($time)
+
+return timestamp in ISO format as used by Tomboy
+
+=cut
+
+sub ts_ISO
+{
+ my $time= shift || time ();
+ my @ts= localtime ($time);
+ sprintf ("%04d-%02d-%02dT%02d:%02d:%02d.0000000+01:00",
+ $ts[5]+1900, $ts[4]+1, $ts[3], $ts[2], $ts[1], $ts[0]);
+}
+
+sub get_uuid
+{
+ my ($uuid, $uuid_str);
+ UUID::generate ($uuid);
+ UUID::unparse ($uuid, $uuid_str);
+ $uuid_str;
+}
+
+1;
+
--
GitLab