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.6, 2006/02/10 17:01:18
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.1; # ROC 8.8.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	# only file name
	if ($nodot) {
	return ($fn, '');
	} else {
	return ($fn, '.');
	}
}	}


Line 157 sub split_file_path {	Line 162 sub split_file_path {
sub sstrip {	sub sstrip {
my ($name) = @_;	my ($name) = @_;

if ($name =~ /\s(.)\s*/) {	if ($name =~ /^\s(.?)\s*$/) {
return $1;	return $1;
}	}
return $name;	return $name;