Revert "scripts/download.pl: read file natively"

This reverts commit 65560de58d.

Seems to broke CI and require more testing.

Signed-off-by: Christian Marangi <ansuelsmth@gmail.com>
This commit is contained in:
Christian Marangi 2024-10-27 15:58:16 +01:00
parent 388de64d9f
commit 07159cc25a
No known key found for this signature in database
GPG Key ID: AC001D09ADBFEAD7

View File

@ -32,12 +32,6 @@ my $download_tool;
$url_filename or $url_filename = $filename;
sub cat {
open my $fh, '<', $1 or die "Can't open file $!";
read $fh, my $file_content, -s $fh;
return $file_content;
}
sub localmirrors {
my @mlist;
open LM, "$scriptdir/localmirrors" and do {
@ -209,7 +203,7 @@ sub download
copy($link, "$target/$filename.dl");
$hash_cmd and do {
if (system("$hash_cmd '$target/$filename.dl' > '$target/$filename.hash'")) {
if (system("cat '$target/$filename.dl' | $hash_cmd > '$target/$filename.hash'")) {
print("Failed to generate hash for $filename\n");
return;
}
@ -239,7 +233,7 @@ sub download
}
$hash_cmd and do {
my $sum = cat("$target/$filename.hash");
my $sum = `cat "$target/$filename.hash"`;
$sum =~ /^(\w+)\s*/ or die "Could not generate file hash\n";
$sum = $1;
@ -305,11 +299,11 @@ projectsmirrors '@OPENWRT';
if (-f "$target/$filename") {
$hash_cmd and do {
if (system("$hash_cmd '$target/$filename' > '$target/$filename.hash'")) {
if (system("cat '$target/$filename' | $hash_cmd > '$target/$filename.hash'")) {
die "Failed to generate hash for $filename\n";
}
my $sum = cat("$target/$filename.hash");
my $sum = `cat "$target/$filename.hash"`;
$sum =~ /^(\w+)\s*/ or die "Could not generate file hash\n";
$sum = $1;