org/netfrag/pkgTools.pm

## ---------------------------------------------------------------------------
##  $Id: pkgTools.pm,v 1.1 2003/01/20 21:19:42 joko Exp $
## ---------------------------------------------------------------------------
##  $Log: pkgTools.pm,v $
##  Revision 1.1  2003/01/20 21:19:42  joko
##  + initial check-in
##
## ---------------------------------------------------------------------------


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;
  $input =~ s/\//-/g;
  my $stamp = now({ fs => 1 });
  my $target = $input . '_' . $stamp . '.tar.gz';
  return $target;
}

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