From 3470e2605595bf52b3ba07bf0b3886e5a61d3e06 Mon Sep 17 00:00:00 2001
From: Darkelarious <darkelarious@333networks.com>
Date: Sun, 5 Sep 2021 20:35:44 +0200
Subject: first version of masterinterface

---
 lib/MasterWebInterface/Util/Misc.pm | 43 +++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100755 lib/MasterWebInterface/Util/Misc.pm

(limited to 'lib/MasterWebInterface/Util/Misc.pm')

diff --git a/lib/MasterWebInterface/Util/Misc.pm b/lib/MasterWebInterface/Util/Misc.pm
new file mode 100755
index 0000000..f2979ea
--- /dev/null
+++ b/lib/MasterWebInterface/Util/Misc.pm
@@ -0,0 +1,43 @@
+package MasterWebInterface::Util::Misc;
+use strict;
+use warnings;
+use TUWF ':html';
+use POSIX 'strftime';
+use Exporter 'import';
+use Geography::Countries;
+use Unicode::Normalize 'NFKD';
+our @EXPORT = qw| date_new timeformat countryflag |;
+
+# time formatting for when a server was added
+sub date_new 
+{
+  my ($s, $d) = @_;
+  return (strftime "%a %H:%M", gmtime $d); # no seconds
+}
+
+# time formatting for when a server was added / last updated
+sub timeformat 
+{
+  my ($self, $time) = @_;
+  my @t = gmtime($time);
+  my $r = "";
+
+  # parse into d HH:mm:SS format
+  if ($t[7]){$r .= $t[7]."d "}
+  if ($t[2]){$r .= ($t[2] > 9) ? $t[2].":" : "0".$t[2].":" }
+  if ($t[1]){$r .= ($t[1] > 9) ? $t[1].":" : "0".$t[1].":" } else {$r .= "00:";}
+  if ($t[0]){$r .= ($t[0] > 9) ? $t[0] : "0".$t[0]         } else {$r .= "00";}
+  
+  return $r;
+}
+
+# returns flag, country name
+sub countryflag 
+{
+  my ($self, $c) = @_;
+  my $flag = ($c ? lc $c : 'earth');
+  my $coun = $c ? ( $c eq 'EU' ? 'Europe' : country $c ) : 'Earth' ;
+  return $flag, $coun;  
+}
+
+1;
-- 
cgit v1.2.3