Subversion Repositories DevTools

# Function        : getFileTime  

#

# Description     : Get the timestamp from a file 

#

# Inputs          : Path to the file

#

# Returns         : Time since the file was created in seconds 

#

sub getFileTime

{

    my ($fname, $idx) = @_;

    my $stamp = (stat($fname))[8];

    if (defined $stamp) {

        $stamp = time() - $stamp;

    } else {

        $stamp = 0;

    }

    return $stamp;

}

#-------------------------------------------------------------------------------

# Function        : makeFile 

#

# Description     : Create a file

#

# Inputs          : Path to the file 

#

# Returns         : 

#

sub makeFile

{

    my ($name) = @_;

    my $fh;

    open( $fh, '>',$name);

    print $fh '';

    close $fh;

}

#-------------------------------------------------------------------------------