From e76b691e78e273226cba9284cb8cd22a423319ed Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:23:25 -0500
Subject: bucky2

---
 bucky2/lib/Common.pm | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 bucky2/lib/Common.pm

(limited to 'bucky2/lib/Common.pm')

diff --git a/bucky2/lib/Common.pm b/bucky2/lib/Common.pm
new file mode 100644
index 0000000..0797943
--- /dev/null
+++ b/bucky2/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;
-- 
cgit v1.2.3-70-g09d2