2 |
## $Id$ |
## $Id$ |
3 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/03/27 15:42:27 joko |
6 |
|
## minor fix: substitute certain chars in packagename? |
7 |
|
## |
8 |
## Revision 1.1 2003/01/20 21:19:42 joko |
## Revision 1.1 2003/01/20 21:19:42 joko |
9 |
## + initial check-in |
## + initial check-in |
10 |
## |
## |
29 |
|
|
30 |
sub mkSnapshotFilename { |
sub mkSnapshotFilename { |
31 |
my $input = shift; |
my $input = shift; |
32 |
|
$input =~ s/\//-/g; |
33 |
my $stamp = now({ fs => 1 }); |
my $stamp = now({ fs => 1 }); |
34 |
my $target = $input . '_' . $stamp . '.tar.gz'; |
my $target = $input . '_' . $stamp . '.tar.gz'; |
35 |
return $target; |
return $target; |