/[cvs]/nfo/perl/libs/org/netfrag/pkgTools.pm
ViewVC logotype

Diff of /nfo/perl/libs/org/netfrag/pkgTools.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Mon Jan 20 21:19:42 2003 UTC revision 1.2 by joko, Thu Mar 27 15:42:27 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 26  use org::netfrag::shortcuts qw( now ); Line 29  use org::netfrag::shortcuts qw( now );
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;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed