foxridge-archiver/MPIWGStor.pm - diff

Return to MPIWGStor.pm CVS log

Up to [Repository] / foxridge-archiver

version 1.3, 2005/05/26 14:31:28	version 1.7, 2006/06/12 17:01:39
Line 12 use vars qw(@ISA @EXPORT $VERSION	Line 12 use vars qw(@ISA @EXPORT $VERSION
$file_perm);	$file_perm);
use Exporter;	use Exporter;

$VERSION = 0.6; # ROC 26.5.2005	$VERSION = 0.6.2; # ROC 10.2.2006

@ISA = qw(Exporter);	@ISA = qw(Exporter);

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
	if ($nodot) {
	return ($fn, '');
	} else {
	return ($fn, '.');
	}
}	}


#	#
# $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;
}	}