org/netfrag/shortcuts.pm

## ---------------------------------------------------------------------------
##  $Id: shortcuts.pm,v 1.1 2003/01/19 02:08:08 joko Exp $
## ---------------------------------------------------------------------------
##  $Log: shortcuts.pm,v $
##  Revision 1.1  2003/01/19 02:08:08  joko
##  + initial check-in
##
## ---------------------------------------------------------------------------


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 {
  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 {
  return strftime("%Y-%m-%d", localtime);
}

sub run_cmd {
  my $cmd = shift;
  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);
  #`$cmd`;
  print "ready.", "\n";
}

sub run_cmds {
  foreach (@_) {
    run_cmd($_);
  }
}


1;
1	joko	1.1	## ---------------------------------------------------------------------------
2	joko	1.2	## $Id: shortcuts.pm,v 1.1 2003/01/19 02:08:08 joko Exp $
3	joko	1.1	## ---------------------------------------------------------------------------
4	joko	1.2	## $Log: shortcuts.pm,v $
5			## Revision 1.1 2003/01/19 02:08:08 joko
6			## + initial check-in
7			##
8	joko	1.1	## ---------------------------------------------------------------------------
9
10
11			package org::netfrag::shortcuts;
12
13			use strict;
14			use warnings;
15
16			require Exporter;
17			our @ISA = qw( Exporter );
18			our @EXPORT_OK = qw(
19			now today
20			run_cmd run_cmds
21			);
22
23
24			# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - main
25
26			use Data::Dumper;
27			use POSIX qw(strftime);
28
29			# $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
30			# see "perldoc -f localtime"
31
32			sub now {
33	joko	1.2	my $options = shift;
34			my $pattern = "%Y-%m-%d %H:%M:%S";
35			$pattern = "%Y-%m-%d_%H-%M-%S" if $options->{fs};
36			my $result = strftime($pattern, localtime);
37			return $result;
38	joko	1.1	}
39
40			sub today {
41			return strftime("%Y-%m-%d", localtime);
42			}
43
44			sub run_cmd {
45			my $cmd = shift;
46	joko	1.2	my $caption = shift;
47			#$cmd = 'perl ' . $cmd;
48	joko	1.1	my $sep = "-" x 90;
49			print $sep, "\n";
50			print " ", $cmd, "\n";
51	joko	1.2	print " ", $caption, "\n" if $caption;
52	joko	1.1	print $sep, "\n";
53			system($cmd);
54	joko	1.2	#`$cmd`;
55			print "ready.", "\n";
56	joko	1.1	}
57
58			sub run_cmds {
59			foreach (@_) {
60			run_cmd($_);
61			}
62			}
63
64
65			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26