mirror of
https://git.freebsd.org/ports.git
synced 2025-07-10 05:49:22 -04:00
af5ef7aea3
Stop trying to use ports versions of all the CPAN bits and do things the way the vendor expects. It's less elegant, but much easier to maintain. Do build our own versions of binary modules so we have a chance on all platforms, but use a slightly modified version of their script to do so (mostly make it non interactive and fetch the files from DISTDIR/DIST_SUBDIR rather than direct from slimdevices each build). Mark RESTRICTED. The distfiles and the build contain non-restributable bits. Some of the people building packages for linux are working on a way around this (not distributing the firmware and using alternate images), but that's no here yet. Nagged by: many :-) Prodded by: my dying cd player
164 lines
4.1 KiB
Perl
164 lines
4.1 KiB
Perl
|
|
$FreeBSD$
|
|
|
|
--- Bin/build-perl-modules.pl.orig
|
|
+++ Bin/build-perl-modules.pl
|
|
@@ -74,28 +74,30 @@
|
|
|
|
print "*** Ignore any warnings about AppConfig. ***\n\n";
|
|
|
|
- print "Please enter a perl binary to use (defaults to /usr/bin/perl)\n";
|
|
- print "This must be the same perl binary that you ran this program with --> ";
|
|
- chomp($perlBinary = <STDIN>);
|
|
-
|
|
- $perlBinary ||= '/usr/bin/perl';
|
|
+# print "Please enter a perl binary to use (defaults to /usr/bin/perl)\n";
|
|
+# print "This must be the same perl binary that you ran this program with --> ";
|
|
+# chomp($perlBinary = <STDIN>);
|
|
+#
|
|
+# $perlBinary ||= '/usr/bin/perl';
|
|
+ $perlBinary = '%%PERL%%';
|
|
|
|
unless (-x $perlBinary) {
|
|
die "Couldn't find a perl binary. Exiting.\n";
|
|
}
|
|
|
|
- # Where does their slimserver live? Try to guess.
|
|
- if (-f 'slimserver.pl' && -d 'CPAN/arch') {
|
|
-
|
|
- $slimServerPath = cwd();
|
|
-
|
|
- } else {
|
|
-
|
|
- print "Please enter the path to your SlimServer directory (ex: /usr/local/slimserver) --> ";
|
|
- chomp($slimServerPath = <STDIN>);
|
|
- }
|
|
-
|
|
- $slimServerPath ||= '/usr/local/slimserver';
|
|
+# # Where does their slimserver live? Try to guess.
|
|
+# if (-f 'slimserver.pl' && -d 'CPAN/arch') {
|
|
+#
|
|
+# $slimServerPath = cwd();
|
|
+#
|
|
+# } else {
|
|
+#
|
|
+# print "Please enter the path to your SlimServer directory (ex: /usr/local/slimserver) --> ";
|
|
+# chomp($slimServerPath = <STDIN>);
|
|
+# }
|
|
+#
|
|
+# $slimServerPath ||= '/usr/local/slimserver';
|
|
+ $slimServerPath = '%%TMP_SLIMDIR%%';
|
|
|
|
unless (-d $slimServerPath) {
|
|
die "Couldn't find a valid SlimServer path. Exiting.\n";
|
|
@@ -104,12 +106,13 @@
|
|
# This is where the binaries will end up.
|
|
my $cpanDest = "$slimServerPath/CPAN/arch/$version/$archname/auto";
|
|
|
|
- # Where do they want the downloads to go?
|
|
- print "Please enter a directory to download files to --> ";
|
|
- chomp($downloadPath = <STDIN>);
|
|
-
|
|
- # Default to the current directory.
|
|
- $downloadPath ||= '.';
|
|
+# # Where do they want the downloads to go?
|
|
+# print "Please enter a directory to download files to --> ";
|
|
+# chomp($downloadPath = <STDIN>);
|
|
+#
|
|
+# # Default to the current directory.
|
|
+# $downloadPath ||= '.';
|
|
+ $downloadPath = '%%CPANWRKDIR%%';
|
|
|
|
# Remove trailing slash
|
|
$downloadPath =~ s|^(.+?)/$|$1|;
|
|
@@ -122,32 +125,32 @@
|
|
|
|
my $pwd = cwd();
|
|
|
|
- # What do we want to download with?
|
|
- eval { require LWP::Simple };
|
|
-
|
|
- # No LWP - try a command line program.
|
|
- if ($@) {
|
|
-
|
|
- for my $cmd (qw(curl wget)) {
|
|
-
|
|
- system("which $cmd >/dev/null 2>&1");
|
|
-
|
|
- unless ($? >> 8) {
|
|
- $downloadUsing = $cmd;
|
|
- last;
|
|
- }
|
|
- }
|
|
-
|
|
- } else {
|
|
-
|
|
- $downloadUsing = 'lwp';
|
|
- }
|
|
-
|
|
- unless ($downloadUsing) {
|
|
- die "Couldn't find any valid downloaders - install LWP, wget or curl.\n";
|
|
- } else {
|
|
- print "Downloads will use $downloadUsing to fetch tarballs.\n";
|
|
- }
|
|
+# # What do we want to download with?
|
|
+# eval { require LWP::Simple };
|
|
+#
|
|
+# # No LWP - try a command line program.
|
|
+# if ($@) {
|
|
+#
|
|
+# for my $cmd (qw(curl wget)) {
|
|
+#
|
|
+# system("which $cmd >/dev/null 2>&1");
|
|
+#
|
|
+# unless ($? >> 8) {
|
|
+# $downloadUsing = $cmd;
|
|
+# last;
|
|
+# }
|
|
+# }
|
|
+#
|
|
+# } else {
|
|
+#
|
|
+# $downloadUsing = 'lwp';
|
|
+# }
|
|
+#
|
|
+# unless ($downloadUsing) {
|
|
+# die "Couldn't find any valid downloaders - install LWP, wget or curl.\n";
|
|
+# } else {
|
|
+# print "Downloads will use $downloadUsing to fetch tarballs.\n";
|
|
+# }
|
|
|
|
for my $package (@packages) {
|
|
|
|
@@ -158,18 +161,19 @@
|
|
# Remove any previous version.
|
|
unlink $package;
|
|
|
|
- if ($downloadUsing eq 'lwp') {
|
|
-
|
|
- LWP::Simple::getstore("$SOURCE/$package?view=auto", $package);
|
|
-
|
|
- } elsif ($downloadUsing eq 'curl') {
|
|
-
|
|
- `$downloadUsing --silent -o $package $SOURCE/$package?view=auto`;
|
|
-
|
|
- } else {
|
|
-
|
|
- `$downloadUsing -q -O $package $SOURCE/$package?view=auto`;
|
|
- }
|
|
+# if ($downloadUsing eq 'lwp') {
|
|
+#
|
|
+# LWP::Simple::getstore("$SOURCE/$package?view=auto", $package);
|
|
+#
|
|
+# } elsif ($downloadUsing eq 'curl') {
|
|
+#
|
|
+# `$downloadUsing --silent -o $package $SOURCE/$package?view=auto`;
|
|
+#
|
|
+# } else {
|
|
+#
|
|
+# `$downloadUsing -q -O $package $SOURCE/$package?view=auto`;
|
|
+# }
|
|
+ `cp %%DISTDIR%%/$package .`;
|
|
|
|
unless (-r $package) {
|
|
print "Something looks wrong - I couldn't read $pwd/$package, which I just downloaded.\n";
|