diff options
author | Norbert Preining <preining@logic.at> | 2008-10-28 23:50:25 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-10-28 23:50:25 +0000 |
commit | 395b98a9ece78fb75fe68b8182a4992f83cabef4 (patch) | |
tree | 6a62ffc661fbfe5d5ece732be7ada05ae5ae39fa /Master/tlpkg/archive/create_tlp_simple.pl | |
parent | 477195e9a79a9f1339a0eb0f5f27116a3e41086d (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-x | Master/tlpkg/archive/create_tlp_simple.pl | 30 |
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`; |