[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Feb 20 18:28:45 EST 2008
Update of /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache
In directory dev.open-bio.org:/tmp/cvs-serv18680/Perl/MOBY/RDF/Ontologies/Cache

Modified Files:
	ObjectCache.pm NamespaceCache.pm ServiceTypeCache.pm 
	ServiceCache.pm 
Log Message:

moby-live/Perl/MOBY/RDF/Ontologies/Cache ObjectCache.pm,1.2,1.3 NamespaceCache.pm,1.3,1.4 ServiceTypeCache.pm,1.3,1.4 ServiceCache.pm,1.8,1.9
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/ObjectCache.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/ObjectCache.pm	2008/02/15 23:15:16	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/ObjectCache.pm	2008/02/20 23:28:45	1.3
@@ -339,6 +339,13 @@
 		my @files = $self->{utils}->plainfiles($cachedir);
 		foreach my $path (@files) {
 			my $filename = substr $path, length($cachedir)+1;
+			
+			next if -d $filename;
+			next
+			  if $filename eq $self->{utils}->RDF_FILE
+				  or $filename eq $self->{utils}->LIST_FILE
+			  	or $filename eq $self->{utils}->UPDATE_FILE;
+			
 			unlink($path) unless $new_services{$filename};
 			$wasOld++;
 		}

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/NamespaceCache.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/NamespaceCache.pm	2008/02/15 23:15:16	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/NamespaceCache.pm	2008/02/20 23:28:45	1.4
@@ -338,6 +338,13 @@
 		my @files = $self->{utils}->plainfiles($cachedir);
 		foreach my $path (@files) {
 			my $filename = substr $path, length($cachedir)+1;
+			
+			next if -d $filename;
+			next
+			  if $filename eq $self->{utils}->RDF_FILE
+				  or $filename eq $self->{utils}->LIST_FILE
+			  	or $filename eq $self->{utils}->UPDATE_FILE;
+			
 			unlink($path) unless $new_services{$filename};
 			$wasOld++;
 		}

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/ServiceTypeCache.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/ServiceTypeCache.pm	2008/02/15 23:15:16	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/ServiceTypeCache.pm	2008/02/20 23:28:45	1.4
@@ -339,6 +339,13 @@
 		my @files = $self->{utils}->plainfiles($cachedir);
 		foreach my $path (@files) {
 			my $filename = substr $path, length($cachedir)+1;
+			
+			next if -d $filename;
+			next
+			  if $filename eq $self->{utils}->RDF_FILE
+				  or $filename eq $self->{utils}->LIST_FILE
+			  	or $filename eq $self->{utils}->UPDATE_FILE;
+			
 			unlink($path) unless $new_services{$filename};
 			$wasOld++;
 		}

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/ServiceCache.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/ServiceCache.pm	2008/02/20 22:31:12	1.8
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/ServiceCache.pm	2008/02/20 23:28:45	1.9
@@ -339,6 +339,14 @@
 		my @files = $self->{utils}->plainfiles($cachedir);
 		foreach my $path (@files) {
 			my $filename = substr $path, length($cachedir)+1;
+			
+			# dont remove the RDF, LIST or update file
+			next if -d $filename;
+			next
+			  if $filename eq $self->{utils}->RDF_FILE
+				  or $filename eq $self->{utils}->LIST_FILE
+			  	or $filename eq $self->{utils}->UPDATE_FILE;
+			  	
 			unlink($path) unless $new_services{$filename};
 			$wasOld++;
 		}