[Midnightbsd-cvs] mports: make_ftp_symlinks.pl: make_ftp_symlinks.pl - makes the symlinks
ctriv at midnightbsd.org
ctriv at midnightbsd.org
Sun May 18 02:23:31 EDT 2008
Log Message:
-----------
make_ftp_symlinks.pl - makes the symlinks needed for packages on the ftp
site. Gets the categories and the latest link.
Added Files:
-----------
mports/Tools/scripts:
make_ftp_symlinks.pl (r1.1)
-------------- next part --------------
--- /dev/null
+++ Tools/scripts/make_ftp_symlinks.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+#
+# $MidnightBSD: mports/Tools/scripts/make_ftp_symlinks.pl,v 1.1 2008/05/18 06:23:31 ctriv Exp $
+
+=head1 make_ftp_symlinks.pl mport_tree ftp_dir
+
+Makes the symlinks for the ftp site. Takes the absolute path to the mports tree
+you want to base this off of, and the absolute path to the ftp files.
+
+It is assumed that your packages are in ftp_dir/All
+
+=cut
+
+use strict;
+use warnings;
+use lib qw(/usr/mports/Tools/lib);
+
+use Mport::Utils qw(recurse_ports);
+
+# autoflush stdout
+$|++;
+
+my $root = shift;
+my $ftpdir = shift;
+
+
+($root && $ftpdir) || die "Usage: $0 <mports tree> <ftp packages dir>\n";
+
+recurse_ports {
+ my $port = shift;
+
+ print "==> Making links for $port...\n";
+ system("make PACKAGES=$ftpdir package-links");
+};
+
+
More information about the Midnightbsd-cvs
mailing list