summaryrefslogtreecommitdiff
path: root/Master/tlpkg/archive/create_tlp_simple.pl
diff options
context:
space:
mode:
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`;