summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2008-01-04 02:26:09 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2008-01-04 02:26:09 +0000
commitf631397b28dafed2e4fc8113ecebcfd915359ad1 (patch)
tree6d926b80aaff6abeb62855c9323d1ad9321bdd82 /Master/tlpkg/bin
parentef9c0f9c22c0b6e084b2e9a885fe55a19bed269b (diff)
mk_download_pkg.pl: new file.
git-svn-id: svn://tug.org/texlive/trunk@6032 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin')
-rw-r--r--Master/tlpkg/bin/mk_download_pkg.pl43
1 files changed, 43 insertions, 0 deletions
diff --git a/Master/tlpkg/bin/mk_download_pkg.pl b/Master/tlpkg/bin/mk_download_pkg.pl
new file mode 100644
index 00000000000..6853cd756ec
--- /dev/null
+++ b/Master/tlpkg/bin/mk_download_pkg.pl
@@ -0,0 +1,43 @@
+#!/usr/bin/env perl
+$^W=1;
+
+# $Id: $
+# mk_download_pkg.pl
+#
+# Copyright 2008 Reinhard Kotucha
+# This file is licensed under the GNU General Public License version 2
+# or any later version.
+
+# mk_download_pkg.pl is supposed to create the file "install-tl.zip"
+# is needed for network downloads. Currently it doesn't do anything
+# useful but it converts wildcards to regular expressions.
+
+while (<DATA>) {
+ next if /^\s+$/;
+ next if /\s*\#/;
+ chomp ($_);
+ if (/\/$/) {
+ print "$_ is a directory.\n";
+ } else {
+ ($dir, $file)=/^(.*)\/(.*)/;
+ $_=$file;
+ s/\./\\./g;
+ s/(\*)/\.$1/g;
+ $re_file=$_;
+ }
+
+ opendir DIR, "$dir";
+ foreach my $f (readdir (DIR)) {
+ if ("$f" =~ /^$re_file$/) {
+ print "$f\n";
+ }
+ }
+ close DIR;
+}
+
+__DATA__
+tlpkg/bin/lzma*.*
+tlpkg/bin/*tar*
+tlpkg/bin/perl*
+tlpkg/bin/wget.exe
+tlpkg/lib/