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	## ---------------------------------------------------------------------------
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