--- nfo/perl/libs/org/netfrag/shortcuts.pm	2003/01/19 02:08:08	1.1
+++ nfo/perl/libs/org/netfrag/shortcuts.pm	2003/02/09 16:31:00	1.4
@@ -1,7 +1,16 @@
 ## ---------------------------------------------------------------------------
-##  $Id: shortcuts.pm,v 1.1 2003/01/19 02:08:08 joko Exp $
+##  $Id: shortcuts.pm,v 1.4 2003/02/09 16:31:00 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: shortcuts.pm,v $
+##  Revision 1.4  2003/02/09 16:31:00  joko
+##  - moved code to ../../shortcuts.pm, this just inherits from that module now
+##
+##  Revision 1.3  2003/01/22 17:58:48  root
+##  sub get_chomped
+##
+##  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
 ##
@@ -14,45 +23,11 @@
 use warnings;
 
 require Exporter;
-our @ISA = qw( Exporter );
+our @ISA = qw( shortcuts Exporter );
 our @EXPORT_OK = qw( 
   now today
   run_cmd run_cmds
+  get_chomped
 );
 
-
-# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main
-
-use Data::Dumper;
-use POSIX qw(strftime);
-
-# $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
-# see "perldoc -f localtime"
-
-sub now {
-  return strftime("%Y-%m-%d %H:%M:%S", localtime);
-}
-
-sub today {
-  return strftime("%Y-%m-%d", localtime);
-}
-
-sub run_cmd {
-  my $cmd = shift;
-  $cmd = 'perl ' . $cmd;
-  my $sep = "-" x 90;
-  print $sep, "\n";
-  print "  ", $cmd, "\n";
-  print $sep, "\n";
-  system($cmd);
-  print "\n";
-}
-
-sub run_cmds {
-  foreach (@_) {
-    run_cmd($_);
-  }
-}
-
-
 1;