* Use right directories for NAR files and patches.
* Print errors to STDERR.
This commit is contained in:
		
							parent
							
								
									f0d6318dd1
								
							
						
					
					
						commit
						fcec32a2c5
					
				
					 1 changed files with 5 additions and 4 deletions
				
			
		|  | @ -1,4 +1,4 @@ | ||||||
| #! /usr/bin/perl -w | #! /usr/bin/perl -w -I. | ||||||
| 
 | 
 | ||||||
| use strict; | use strict; | ||||||
| use readmanifest; | use readmanifest; | ||||||
|  | @ -19,8 +19,9 @@ sub readDir { | ||||||
|     closedir DIR; |     closedir DIR; | ||||||
| } | } | ||||||
| 
 | 
 | ||||||
| readDir "/mnt/scratchy/eelco/public_html/nix-cache"; | readDir "/data/webserver/dist/nix-cache"; | ||||||
| readDir "/mnt/scratchy/eelco/public_html/patches"; | readDir "/data/webserver/dist/test"; | ||||||
|  | readDir "/data/webserver/dist/patches"; | ||||||
| 
 | 
 | ||||||
| print STDERR scalar @archives, "\n"; | print STDERR scalar @archives, "\n"; | ||||||
| 
 | 
 | ||||||
|  | @ -48,7 +49,7 @@ foreach my $narFile (keys %narFiles) { | ||||||
|         die unless defined $basename; |         die unless defined $basename; | ||||||
| #        print $basename, "\n"; | #        print $basename, "\n"; | ||||||
|         $usedFiles{$basename} = 1; |         $usedFiles{$basename} = 1; | ||||||
|         die "missing archive `$basename'" |         print STDERR "missing archive `$basename'\n" | ||||||
|             unless defined $archives{$basename}; |             unless defined $archives{$basename}; | ||||||
|     } |     } | ||||||
| } | } | ||||||
|  |  | ||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue