[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