--- nfo/perl/libs/libp.pm	2002/12/05 13:54:00	1.9
+++ nfo/perl/libs/libp.pm	2002/12/19 01:05:35	1.10
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: libp.pm,v 1.9 2002/12/05 13:54:00 joko Exp $
+#  $Id: libp.pm,v 1.10 2002/12/19 01:05:35 joko Exp $
 #
 #  $Log: libp.pm,v $
+#  Revision 1.10  2002/12/19 01:05:35  joko
+#  + sub today
+#
 #  Revision 1.9  2002/12/05 13:54:00  joko
 #  + fix: let 'deep_copy' print its message out (instead of die)
 #
@@ -56,6 +59,7 @@
     getNewPerlObjectByPkgName
     cmd
     run_cmds
+    today
 );
 
 use Data::Dumper;
@@ -202,6 +206,10 @@
   return strftime("%Y-%m-%d %H:%M:%S", localtime);
 }
 
+sub today {
+  return strftime("%Y-%m-%d", localtime);
+}
+
 # ACK's go to ...
 sub deep_copy {
   my $this = shift;