adding perl search index builder

1 files changed, 19 insertions, 0 deletions

diff --git a/search/lib/Bucky/Session.pm b/search/lib/Bucky/Session.pm
new file mode 100644
index 0000000..0cff753
--- /dev/null
+++ b/search/lib/Bucky/Session.pm
@@ -0,0 +1,19 @@
+package Bucky::Session;
+
+use base 'Bucky';
+
+use CGI;
+
+sub param
+	{
+	my ($self, $name) = @_;
+	return unless $name;
+	return $self->q->param($name);
+	}
+sub q
+	{
+	my ($self) = @_;
+	$self->{'_q'} ||= new CGI;
+	return $self->{'_q'};
+	}
+1;