adding perl search index builder

1 files changed, 30 insertions, 0 deletions

diff --git a/search/lib/Bucky/Thread.pm b/search/lib/Bucky/Thread.pm
new file mode 100644
index 0000000..dbd8ad0
--- /dev/null
+++ b/search/lib/Bucky/Thread.pm
@@ -0,0 +1,30 @@
+package Bucky::Thread;
+
+use base 'Bucky';
+
+sub type { $Bucky::Thread }
+sub fields
+	{[qw[
+	id title username keyword private allowed
+	createdate lastmodified revision viewed
+	size color display flagged zipped
+	]]}
+
+sub _id				{ shift->{id} }
+sub _title			{ shift->{title} }
+sub _username		{ shift->{username} }
+sub _keyword		{ shift->{keyword} }
+sub _private		{ shift->{private} }
+sub _allowed		{ shift->{allowed} }
+sub _createdate		{ shift->{createdate} }
+sub _lastmodified	{ shift->{lastmodified} }
+sub _revision		{ shift->{revision} }
+sub _viewed			{ shift->{viewed} }
+sub _size			{ shift->{size} }
+sub _color			{ shift->{color} }
+sub _display		{ shift->{display} }
+sub _flagged		{ shift->{flagged} }
+sub _zipped			{ shift->{zipped} }
+
+1;
+