org/netfrag/pkgTools.pm

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


package org::netfrag::pkgTools;

use strict;
use warnings;

require Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( 
  mkSnapshotFilename
);


# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main

use org::netfrag::shortcuts qw( now );

sub mkSnapshotFilename {
  my $input = shift;
  my $stamp = now({ fs => 1 });
  my $target = $input . '_' . $stamp . '.tar.gz';
  return $target;
}

1;
1	joko	1.1	## ---------------------------------------------------------------------------
2			## $Id: shortcuts.pm,v 1.1 2003/01/19 02:08:08 joko Exp $
3			## ---------------------------------------------------------------------------
4			## $Log: shortcuts.pm,v $
5			## ---------------------------------------------------------------------------
6
7
8			package org::netfrag::pkgTools;
9
10			use strict;
11			use warnings;
12
13			require Exporter;
14			our @ISA = qw( Exporter );
15			our @EXPORT_OK = qw(
16			mkSnapshotFilename
17			);
18
19
20			# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - main
21
22			use org::netfrag::shortcuts qw( now );
23
24			sub mkSnapshotFilename {
25			my $input = shift;
26			my $stamp = now({ fs => 1 });
27			my $target = $input . '_' . $stamp . '.tar.gz';
28			return $target;
29			}
30
31			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26