--- nfo/perl/libs/shortcuts.pm	2003/02/09 04:49:45	1.1
+++ nfo/perl/libs/shortcuts.pm	2003/02/14 14:17:04	1.3
@@ -1,7 +1,13 @@
 ## ---------------------------------------------------------------------------
-##  $Id: shortcuts.pm,v 1.1 2003/02/09 04:49:45 joko Exp $
+##  $Id: shortcuts.pm,v 1.3 2003/02/14 14:17:04 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: shortcuts.pm,v $
+##  Revision 1.3  2003/02/14 14:17:04  joko
+##  - shortened seperator
+##
+##  Revision 1.2  2003/02/11 05:14:28  joko
+##  + refactored code from libp.pm
+##
 ##  Revision 1.1  2003/02/09 04:49:45  joko
 ##  + shortcuts now refactored to this file
 ##
@@ -20,6 +26,7 @@
   now today
   run_cmd run_cmds
   get_chomped
+  bool2status
 );
 
 
@@ -47,7 +54,7 @@
   my $cmd = shift;
   my $caption = shift;
   #$cmd = 'perl ' . $cmd;
-  my $sep = "-" x 90;
+  my $sep = "-" x 60;
   print $sep, "\n";
   print "  ", $cmd, "\n";
   print "  ", $caption, "\n" if $caption;
@@ -69,4 +76,9 @@
   return $str;
 }
 
+sub bool2status {
+  my $bool = shift;
+  return ($bool ? 'ok' : 'failed');
+}
+
 1;