···

       
165
       
165
       
 
       
        my $hash = $fetch->{hash};

     

       
166
       
166
       
 
       
        my $name = $fetch->{name};

     

       
167
       
167
       
 
       


     

       
168
       
168
       
+
       
        if ($hash =~ /^([a-z0-9]+)-([A-Za-z0-9+\/=]+)$/) {

     

       
169
       
169
       
+
       
            $algo = $1;

     

       
170
       
170
       
+
       
            $hash = `nix hash to-base16 $hash` or die;

     

       
171
       
171
       
+
       
            chomp $hash;

     

       
172
       
172
       
+
       
        }

     

       
173
       
173
       
+
       


     

       
174
       
174
       
+
       
        next unless $algo =~ /^[a-z0-9]+$/;

     

       
175
       
175
       
+
       


     

       
176
       
176
       
+
       
        # Convert non-SRI base-64 to base-16.

     

       
177
       
177
       
+
       
        if ($hash =~ /^[A-Za-z0-9+\/=]+$/) {

     

       
178
       
178
       
+
       
            $hash = `nix hash to-base16 --type '$algo' $hash` or die;

     

       
179
       
179
       
+
       
            chomp $hash;

     

       
180
       
180
       
+
       
        }

     

       
181
       
181
       
+
       


     

       
168
       
182
       
 
       
        if (defined $ENV{DEBUG}) {

     

       
169
       
183
       
 
       
            print "$url $algo $hash\n";

     

       
170
       
184
       
 
       
            next;

     
···

       
184
       
198
       
 
       


     

       
185
       
199
       
 
       
        my $storePath = makeFixedOutputPath(0, $algo, $hash, $name);

     

       
186
       
200
       
 
       


     

       
187
       
187
       
-
       
        print STDERR "mirroring $url ($storePath)...\n";

     

       
201
       
201
       
+
       
        print STDERR "mirroring $url ($storePath, $algo, $hash)...\n";

     

       
188
       
202
       
 
       


     

       
189
       
203
       
 
       
        if ($dryRun) {

     

       
190
       
204
       
 
       
            $mirrored++;