--- nfo/perl/libs/org/netfrag/shortcuts.pm	2003/01/19 02:08:08	1.1
+++ nfo/perl/libs/org/netfrag/shortcuts.pm	2003/01/20 21:19:27	1.2
@@ -1,7 +1,10 @@
 ## ---------------------------------------------------------------------------
-##  $Id: shortcuts.pm,v 1.1 2003/01/19 02:08:08 joko Exp $
+##  $Id: shortcuts.pm,v 1.2 2003/01/20 21:19:27 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: shortcuts.pm,v $
+##  Revision 1.2  2003/01/20 21:19:27  joko
+##  + updated 'sub now': knows about option 'fs' now
+##
 ##  Revision 1.1  2003/01/19 02:08:08  joko
 ##  + initial check-in
 ##
@@ -30,7 +33,11 @@
 # see "perldoc -f localtime"
 
 sub now {
-  return strftime("%Y-%m-%d %H:%M:%S", localtime);
+  my $options = shift;
+  my $pattern = "%Y-%m-%d %H:%M:%S";
+  $pattern = "%Y-%m-%d_%H-%M-%S" if $options->{fs};
+  my $result = strftime($pattern, localtime);
+  return $result;
 }
 
 sub today {
@@ -39,13 +46,16 @@
 
 sub run_cmd {
   my $cmd = shift;
-  $cmd = 'perl ' . $cmd;
+  my $caption = shift;
+  #$cmd = 'perl ' . $cmd;
   my $sep = "-" x 90;
   print $sep, "\n";
   print "  ", $cmd, "\n";
+  print "  ", $caption, "\n" if $caption;
   print $sep, "\n";
   system($cmd);
-  print "\n";
+  #`$cmd`;
+  print "ready.", "\n";
 }
 
 sub run_cmds {