* Update the cleanup script.
This commit is contained in:
		
							parent
							
								
									a95ba4cdd9
								
							
						
					
					
						commit
						5bcdc7e351
					
				
					 3 changed files with 12 additions and 8 deletions
				
			
		|  | @ -9,13 +9,13 @@ sub readDir { | |||
|     opendir(DIR, "$dir") or die "cannot open `$dir': $!"; | ||||
|     my @as = readdir DIR; | ||||
|     foreach my $archive (@as) { | ||||
|         next unless $archive =~ /^sha256_/ || $archive =~ /\.nar-bsdiff$/ || $archive =~ /\.nar\.bz2$/; | ||||
|         $archives{$archive} = "$dir/$archive"; | ||||
|     } | ||||
|     closedir DIR; | ||||
| } | ||||
| 
 | ||||
| readDir "/data/webserver/dist/nix-cache"; | ||||
| readDir "/data/webserver/dist/test-cache"; | ||||
| readDir "/data/webserver/dist/patches"; | ||||
| readDir "/data/releases/nars"; | ||||
| readDir "/data/releases/patches"; | ||||
| 
 | ||||
| print STDERR scalar (keys %archives), "\n"; | ||||
|  |  | |||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue