view release on metacpan or  search on metacpan

lib/Bio/ConnectDots/scripts/update_connectorsets.pl  view on Meta::CPAN

		push @{$files{$dir}}, $file;
	}	
	return \%files;
}

# recieves a file and returns hashref of day,month,year it was last modified in the local file system
sub get_file_date {
	my ($filename) = @_;
	my %out;
	open(FILE,$filename) or die "Can not open $filename\n";
	my $stat = stat($filename);
	my $lastmodified = $stat->mtime;
	my @times = localtime($lastmodified);
	$out{day} = $times[3];
	$out{month} = $times[4];
	$out{year} = $times[5]+1900;
	return \%out;
}

# returns true when remote(year,month,day) is newer than local
sub is_new {