foxridge-archiver/MPIWGStor.pm - diff

Return to MPIWGStor.pm CVS log

Up to [Repository] / foxridge-archiver

version 1.6, 2006/02/10 17:01:18	version 1.7, 2006/06/12 17:01:39
Line 155 sub split_file_path {	Line 155 sub split_file_path {


#	#
# $name = sstrip($name)	# $name = sstrip($name, $slash)
#	#
# strips leading and trailing whitespace from $name	# strips leading and trailing whitespace from $name
	# replaces double slashes with single ones with $slash.
#	#
sub sstrip {	sub sstrip {
my ($name) = @_;	my ($name, $slash) = @_;

if ($name =~ /^\s(.?)\s*$/) {	if ($name =~ /^\s(.?)\s*$/) {
return $1;	$name = $1;
	}
	if ($slash) {
	# trim multiple slashes
	$name =~ s/\/+/\//g;
}	}
return $name;	return $name;
}	}