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	## ---------------------------------------------------------------------------
2	## $Id: pkgTools.pm,v 1.1 2003/01/20 21:19:42 joko Exp $
3	## ---------------------------------------------------------------------------
4	## $Log: pkgTools.pm,v $
5	## Revision 1.1 2003/01/20 21:19:42 joko
6	## + initial check-in
7	##
8	## ---------------------------------------------------------------------------
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	$input =~ s/\//-/g;
30	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