org/netfrag/shortcuts.pm

## ---------------------------------------------------------------------------
##  $Id$
## ---------------------------------------------------------------------------
##  $Log$
## ---------------------------------------------------------------------------


package org::netfrag::shortcuts;

use strict;
use warnings;

require Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( 
  now today
  run_cmd run_cmds
);


# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   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;
1	## ---------------------------------------------------------------------------
2	## $Id$
3	## ---------------------------------------------------------------------------
4	## $Log$
5	## ---------------------------------------------------------------------------
6
7
8	package org::netfrag::shortcuts;
9
10	use strict;
11	use warnings;
12
13	require Exporter;
14	our @ISA = qw( Exporter );
15	our @EXPORT_OK = qw(
16	now today
17	run_cmd run_cmds
18	);
19
20
21	# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - main
22
23	use Data::Dumper;
24	use POSIX qw(strftime);
25
26	# $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
27	# see "perldoc -f localtime"
28
29	sub now {
30	return strftime("%Y-%m-%d %H:%M:%S", localtime);
31	}
32
33	sub today {
34	return strftime("%Y-%m-%d", localtime);
35	}
36
37	sub run_cmd {
38	my $cmd = shift;
39	$cmd = 'perl ' . $cmd;
40	my $sep = "-" x 90;
41	print $sep, "\n";
42	print " ", $cmd, "\n";
43	print $sep, "\n";
44	system($cmd);
45	print "\n";
46	}
47
48	sub run_cmds {
49	foreach (@_) {
50	run_cmd($_);
51	}
52	}
53
54
55	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26