From d657812363640148bc9f3f8a3d786dae012461d7 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Tue, 1 Oct 2013 18:06:23 +0200
Subject: [PATCH] more metadata about notes
---
perl/Gnome-Tomboy/lib/Tomboy/Directory.pm | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm b/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
index 3026419..b886902 100644
--- a/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
+++ b/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
@@ -4,7 +4,7 @@
=head1 NAME
- Tomboy::Directory;
+ Tomboy::Directory
=head1 SYNOPSIS
@@ -21,7 +21,7 @@ use strict;
use Tomboy::Note::Simple;
my @TB_note_attrs= qw(title create-date last-change-date last-metadata-change-date);
-my @TB_meta_attrs= qw(uid notebook);
+my @TB_meta_attrs= qw(uid mtime size notebook is_template);
sub TB_attrs { return (@TB_meta_attrs, @TB_note_attrs) }
sub new
@@ -61,6 +61,13 @@ sub scan_dir
my $fp= join ('/', $dir, $e);
# print "reading note [$fp]\n"; # TODO: if verbose...
+ my @st= stat ($fp);
+ unless (@st)
+ {
+ print "ATTN: can't stat '$fp'\n";
+ next NOTE;
+ }
+
my $n= parse Tomboy::Note::Simple ($fp);
unless (defined ($n))
@@ -71,10 +78,13 @@ sub scan_dir
my %rec= map { $_ => $n->{$_} } @TB_note_attrs;
$rec{'uid'}= $uid;
+ $rec{'mtime'}= $st[9];
+ $rec{'size'}= $st[7];
foreach my $tag (@{$n->{'tags'}})
{
if ($tag =~ m#system:notebook:(.+)#) { $rec{'notebook'}= $1 }
+ elsif ($tag eq 'system:template') { $rec{'is_template'}= 1; }
}
push (@res, \%rec);
--
GitLab