summaryrefslogtreecommitdiff
path: root/Master/tlpkg/archive/create_tlp_simple.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-10-28 23:50:25 +0000
committerNorbert Preining <preining@logic.at>2008-10-28 23:50:25 +0000
commit395b98a9ece78fb75fe68b8182a4992f83cabef4 (patch)
tree6a62ffc661fbfe5d5ece732be7ada05ae5ae39fa /Master/tlpkg/archive/create_tlp_simple.pl
parent477195e9a79a9f1339a0eb0f5f27116a3e41086d (diff)
move some scripts to tlpkg/archive
git-svn-id: svn://tug.org/texlive/trunk@11096 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/archive/create_tlp_simple.pl')
-rwxr-xr-xMaster/tlpkg/archive/create_tlp_simple.pl30
1 files changed, 30 insertions, 0 deletions
diff --git a/Master/tlpkg/archive/create_tlp_simple.pl b/Master/tlpkg/archive/create_tlp_simple.pl
new file mode 100755
index 00000000000..79b2f10e690
--- /dev/null
+++ b/Master/tlpkg/archive/create_tlp_simple.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+
+$^W = 1
+use strict;
+
+use TLSRC;
+use TLP;
+use TLTREE;
+use Data::Dumper;
+
+#our $opt_debug=1;
+
+my $tltree = TLTREE->new( 'svnroot' => "/src/TeX/texlive-svn/Master" );
+print "Initializing tltree start: ", `date`;
+$tltree->init_from_statusfile("/src/TeX/texlive-svn/Master/svn.status");
+print "Initializing tltree stop: ", `date`;
+
+foreach my $f (@ARGV) {
+ my $tlsrc = new TLSRC;
+ $tlsrc->from_file($f);
+ print "WORKING ON $f\n";
+ my $tlp = $tlsrc->make_tlp($tltree);
+ my $name = $tlp->name;
+ open(FOO,">tlp/$name.tlp");
+ $tlp->writeout_simple(\*FOO);
+ close(FOO);
+}
+
+
+print "End of operation: ", `date`;