foxridge-archiver/MPIWGStor.pm - diff

Return to MPIWGStor.pm CVS log

Up to [Repository] / foxridge-archiver

version 1.4, 2005/08/23 15:01:08	version 1.5, 2005/09/20 17:24:57
Line 140 sub ymd_date {	Line 140 sub ymd_date {
# file name (the last path element) and path	# file name (the last path element) and path
#	#
sub split_file_path {	sub split_file_path {
my ($fn) = @_;	my ($fn, $nodot) = @_;

if ($fn =~ /^(.*)\/([^\/]+)$/) {	if ($fn =~ /^(.*)\/([^\/]+)$/) {
return ($2, $1);	return ($2, $1);
}	}
return ($fn, '.'); # only file name	# only file name
	if ($nodot) {
	return ($fn, '');
	} else {
	return ($fn, '.');
	}
}	}