adding perl search index builder

1 files changed, 46 insertions, 0 deletions

diff --git a/search/lib/Common.pm b/search/lib/Common.pm
new file mode 100644
index 0000000..0797943
--- /dev/null
+++ b/search/lib/Common.pm
@@ -0,0 +1,46 @@
+## utility functions
+package Common;
+use base 'Exporter';
+our @EXPORT = qw[is_number is_string show_date get_age trim strip_html];
+
+# promiscuous namespace
+sub is_number
+    { my ($self, $s) = @_; return $s && $s !~ /\D/; }
+sub is_string
+    { my ($self, $s) = @_; return length $s && ! length ref $s; }
+sub show_date
+    { my ($self, $date) = @_; return scalar localtime($date); }
+sub get_age
+    {
+    my ($self, $time) = @_;
+	if ($time < 0)
+		{ return "old"; }
+    my $age = time - $time;
+    if ($age < 60)
+        { return int($age)."s"; }
+    $age /= 60;
+    if ($age < 60)
+        { return int($age)."m"; }
+    my $mins = $age % 60;
+    $age /= 60;
+    if ($age < 2)
+        { return int($age)."h".int($mins)."m"; }
+    elsif ($age < 24)
+        { return int($age)."h"; }
+    $age /= 24;
+    if ($age < 10000)
+		{ return int($age)."d"; }
+	my $powers = qw[k m g t p e z y];
+	foreach my $prefix (@$powers)
+		{
+		$age /= 1000;
+    	if ($age < 10000)
+			{ return int($age).$prefix."d"; }
+		}
+    }
+sub trim
+    { my ($self, $s) = @_; $s =~ s/^\s+//; $s =~ s/\s+$//; return $s; }
+sub strip_html
+    { my ($self, $s) = @_; $s =~ s/[<>]+/ /g; return $s; }
+ 
+1;