Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Rémy Oudompheng
texlive-localmanager
Commits
8fbada90
Commit
8fbada90
authored
Aug 16, 2009
by
Francois Charette
Browse files
Fix for TL 2009 (temporary)
parent
fff002fd
Changes
1
Hide whitespace changes
Inline
Side-by-side
tllocalmgr
View file @
8fbada90
#!/usr/bin/perl
use
5.010
;
use
warnings
;
use
strict
;
use
lib
"
/usr/share/texmf-var/arch/tlpkg
";
use
TeXLive::
TLPDB
;
use
TeXLive::
TLPOBJ
;
our
$VERSION
=
"
0.2
";
use
lib
'
tlpkg
';
#use lib "/usr/share/texmf-var/arch/tlpkg";
use
TeXLive::
Arch
;
our
$VERSION
=
"
0.3.0
";
our
$YEAR
=
"
2009
";
use
Getopt::
Long
;
my
$opts
=
{};
...
...
@@ -35,12 +36,12 @@ die version(), "\n" if $opts->{'version'};
my
$term
=
new
Term::
ShellUI
(
commands
=>
get_commands
());
$term
->
prompt
(
"
tllocalmgr>
"
);
#my $TEXMFVAR=`kpsewhich -var-value=TEXMFVAR`;
my
$CTANBASEURL
=
"
http://mirror.ctan.org/systems/texlive/tlnet/2008
";
#my $CTANBASEURL="http://mirror.ctan.org/systems/texlive/tlnet/$YEAR";
my
$CTANBASEURL
=
"
ftp://tug.org/texlive/tlnet
";
# <<<< TEMPORARY
my
$ROOT
=
"
$ENV
{HOME}/.texlive/texmf-var/arch
";
my
$LOCALDB
=
"
$ROOT
/tlpkg/texlive.tlpdb
";
my
$LOCALDBLZMA
=
"
$LOCALDB
.lzma
";
#my $INSTALLEDPKGS = "$ROOT/installedpkgs";
my
$LOCALDBXZ
=
"
$LOCALDB
.xz
";
my
$INSTALLEDPKGS
=
"
/usr/share/texmf-var/arch/installedpkgs
";
my
$logfile
=
"
$ROOT
/tllocalmgr.log
";
...
...
@@ -51,25 +52,15 @@ my $mirror = $opts->{'mirror'} || $CTANBASEURL ;
my
$localsearch
=
$opts
->
{'
localsearch
'}
||
0
;
my
$TLARCHIVE
=
"
$mirror
/archive
";
my
$TLPDB
=
"
$mirror
/tlpkg/texlive.tlpdb.lzma
";
my
@core_colls
=
qw/ basic basicbin binextra context fontbin genericrecommended fontsrecommended langczechslovak langfrench langgerman langitalian langpolish langportuguese langspanish latex latexrecommended mathextra metapost psutils texinfo xetex /
;
my
@core_doc_colls
=
qw/ documentation-base documentation-bulgarian documentation-chinese
documentation-czechslovak documentation-dutch documentation-english documentation-finnish
documentation-french documentation-german documentation-greek documentation-italian
documentation-japanese documentation-korean documentation-mongolian documentation-polish
documentation-portuguese documentation-russian documentation-slovenian documentation-spanish
documentation-thai documentation-turkish documentation-ukrainian documentation-vietnamese /
;
my
$TLPDB
=
"
$mirror
/tlpkg/texlive.tlpdb.xz
";
my
@other_colls
=
qw/ bibtexextra fontsextra formatsextra games genericextra htmlxml humanities langcjk langcyrillic langgreek latex3 latexextra music pictures plainextra pstricks publishers science /
;
my
@langextra_colls
=
qw/ langafrican langarab langarmenian langcroatian langhebrew langindic langmongolian langtibetan langvietnamese /
;
#my @collections = qw/ core /;
#push @collections, (@other_colls, @langextra_colls);
########### INITIALIZATION ###########
unless
(
-
d
$ROOT
)
{
system
("
mkdir -p
$ROOT
")
}
open
LOG
,
"
>>
$logfile
";
my
$initlog
=
0
;
sub
initlog
{
...
...
@@ -88,80 +79,21 @@ unless ($skipupdate) {
print
"
Retrieving new TeXLive database from CTAN...
\n
";
initlog
()
unless
$initlog
;
print
LOG
"
* Retrieving new TeXLive database from CTAN...
\n\t
$TLPDB
";
getstore
(
$TLPDB
,
$LOCALDB
LZMA
)
||
die
"
could not fetch
$TLPDB
: $!
";
getstore
(
$TLPDB
,
$LOCALDB
XZ
)
||
die
"
could not fetch
$TLPDB
: $!
";
system
("
mv
$ROOT
/tlpkg/texlive.tlpdb
$ROOT
/tlpkg/texlive.tlpdb.old
");
system
("
un
lzma
$ROOT
/tlpkg/texlive.tlpdb.
lzma
");
system
("
un
xz
$ROOT
/tlpkg/texlive.tlpdb.
xz
");
}
};
print
GREEN
,
BOLD
,
"
Initializing ...
",
RESET
,
"
\n
"
;
my
$tlpdb
=
new
TeXLive::
TLPDB
(
root
=>
$ROOT
)
||
die
"
cannot read
$ROOT
/tlpkg/texlive.tlpdb
";
my
%tlpackages
;
my
%tldocpackages
;
my
@core_additional
=
qw/ pgf ruhyphen ukrhyph /
;
push
@
{
$tlpackages
{'
core
'}},
@core_additional
;
push
@
{
$tlpackages
{'
core-doc
'}},
'
pgf
';
foreach
my
$coll
(
@core_colls
)
{
foreach
my
$d
(
$tlpdb
->
get_package
("
collection-
$coll
")
->
depends
)
{
# avoid packages without content in texmf-dist:
next
if
$d
=~
/^(a2ping|hyphenex|luatex|pdftex|synctex|texlive\.infra|xindy)$/
;
# avoid also bin- collection- and hyphen- packages
push
@
{
$tlpackages
{'
core
'}},
$d
unless
$d
=~
/^(bin|collection|hyphen)-/
;
if
((
$tlpdb
->
get_package
(
$d
)
->
doccontainermd5
or
$tlpdb
->
get_package
(
$d
)
->
docsize
)
and
$d
!~
/^(bin|collection|hyphen)-/
)
{
push
@
{
$tlpackages
{'
core-doc
'}},
$d
;
}
}
}
foreach
my
$coll
(
@core_doc_colls
)
{
foreach
my
$d
(
$tlpdb
->
get_package
("
collection-
$coll
")
->
depends
)
{
push
@
{
$tlpackages
{'
core-doc
'}},
$d
unless
$d
=~
/^(bin|collection|hyphen)-/
;
}
}
foreach
my
$d
(
$tlpdb
->
get_package
("
collection-fontsextra
")
->
depends
)
{
next
if
$d
=~
/^(aleph|ocherokee|oinuit)$/
;
push
@
{
$tlpackages
{'
fontsextra
'}},
$d
unless
$d
=~
/^(bin|collection|hyphen)-/
;
if
((
$tlpdb
->
get_package
(
$d
)
->
doccontainermd5
or
$tlpdb
->
get_package
(
$d
)
->
docsize
)
and
$d
!~
/^(bin|collection|hyphen)-/
)
{
push
@
{
$tlpackages
{'
fontsextra-doc
'}},
$d
;
}
}
### read DB
foreach
my
$coll
(
@other_colls
)
{
next
if
$coll
eq
'
fontsextra
';
foreach
my
$d
(
$tlpdb
->
get_package
("
collection-
$coll
")
->
depends
)
{
next
if
(
$coll
=~
/^pictures/
and
$d
eq
'
pgf
');
next
if
(
$coll
=~
/^langcyrillic/
and
(
$d
eq
'
ruhyphen
'
or
$d
eq
'
ukrhyph
'));
push
@
{
$tlpackages
{
$coll
}},
$d
unless
$d
=~
/^(bin|collection|hyphen)-/
;
if
((
$tlpdb
->
get_package
(
$d
)
->
doccontainermd5
or
$tlpdb
->
get_package
(
$d
)
->
docsize
)
and
$d
!~
/^(bin|collection|hyphen)-/
)
{
push
@
{
$tlpackages
{"
$coll
-doc
"}},
$d
;
}
}
}
foreach
my
$coll
(
@langextra_colls
)
{
foreach
my
$d
(
$tlpdb
->
get_package
("
collection-
$coll
")
->
depends
)
{
next
if
$d
=~
/^(omega-devanagari|otibet)$/
;
push
@
{
$tlpackages
{'
langextra
'}},
$d
unless
(
$d
eq
'
ebong
'
or
$d
=~
/^(bin|collection|hyphen)-/
);
if
((
$tlpdb
->
get_package
(
$d
)
->
doccontainermd5
or
$tlpdb
->
get_package
(
$d
)
->
docsize
)
and
$d
!~
/^(bin|collection|hyphen)-/
)
{
push
@
{
$tlpackages
{"
langextra-doc
"}},
$d
;
}
}
}
my
$tlpdb
=
new
TeXLive::
Arch
(
root
=>
$ROOT
)
||
die
"
cannot read
$ROOT
/tlpkg/texlive.tlpdb
";
# add swebib and finbib to bibtexextra
my
@bibtexadd
=
qw /swebib
finbib
/
;
push
@
{
$tlpackages
{'
bibtexextra
'}},
@bibtexadd
;
push
@
{
$tlpackages
{'
bibtexextra-doc
'}},
'
swebib
';
my
%tlpackages
=
$tlpdb
->
archpackages
;
my
%versions
;
my
%versions
=
$tlpdb
->
archversions
;
# list of all packages in the database that interest us
# i.e. less than $tlpdb->list_packages !
...
...
@@ -171,7 +103,8 @@ my %seen = ();
foreach
my
$coll
(
keys
%tlpackages
)
{
my
@tmp
;
foreach
my
$pkg
(
@
{
$tlpackages
{
$coll
}})
{
push
@tmp
,
$tlpdb
->
package_revision
(
$pkg
);
my
$tlpkg
=
$tlpdb
->
get_package
(
$pkg
);
push
@tmp
,
$tlpkg
->
revision
;
unless
(
exists
$seen
{
$pkg
})
{
push
@allpackages
,
$pkg
};
...
...
@@ -219,7 +152,7 @@ if (@collpacman) {
next
if
$col
eq
'
texlive-bin
';
$col
=~
s/^texlive-//
;
my
$ver
=
$tmp
[
1
];
$ver
=~
s/
2008
\.([0-9]+)-[0-9]+$/$1/
;
$ver
=~
s/
[0-9]{4}
\.([0-9]+)-[0-9]+$/$1/
;
#print "debug: $col - $ver\n";
$installedcol_versions
{
$col
}
=
$ver
;
my
@list
=
();
...
...
@@ -279,10 +212,11 @@ my @updatedpkgs; # pkgs for which updates are available
foreach
my
$col
(
sort
keys
%installedcol_versions
)
{
#my $installedver = `pacman -Q texlive-$col`;
#$installedver =~ s/texlive-$col
2008
\.([0-9]+)-.+/$1/;
#$installedver =~ s/texlive-$col
$YEAR
\.([0-9]+)-.+/$1/;
next
unless
(
$installedcol_versions
{
$col
}
<
$versions
{
$col
}
)
;
foreach
my
$pkg
(
sort
@
{
$tlpackages
{
$col
}})
{
my
$newver
=
$tlpdb
->
package_revision
(
$pkg
);
my
$tlpkg
=
$tlpdb
->
get_package
(
$pkg
);
my
$newver
=
$tlpkg
->
revision
;
if
(
exists
$installedpkg_versions
{
$pkg
}
)
{
my
$oldver
=
$installedpkg_versions
{
$pkg
}
;
if
(
$newver
>
$oldver
)
{
...
...
@@ -395,7 +329,6 @@ sub warning {
print
RED
@
_
,
"
\n
"
}
sub
run_clean
{
print
"
Are you sure? (y/N) >
";
chomp
(
my
$choice
=
<
STDIN
>
)
;
...
...
@@ -432,7 +365,8 @@ sub run_status {
my
$count
=
0
;
foreach
my
$pkg
(
sort
@locpkgs
)
{
my
$localver
=
$locallyinstalledpkg_versions
{
$pkg
};
my
$newver
=
$tlpdb
->
package_revision
(
$pkg
)
||
"
0
";
my
$tlpkg
=
$tlpdb
->
get_package
(
$pkg
);
my
$newver
=
$tlpkg
->
revision
||
"
0
";
print
LOG
"
Warning: revision of
$pkg
is problematic
\n
"
if
$newver
eq
'
0
';
if
(
$newver
>
$localver
)
{
$count
++
;
...
...
@@ -449,7 +383,8 @@ sub run_status {
my
$count
=
0
;
foreach
my
$pkg
(
sort
@locdocs
)
{
my
$localver
=
$locallyinstalleddoc_versions
{
$pkg
};
my
$newver
=
$tlpdb
->
package_revision
(
$pkg
)
||
"
0
";
my
$tlpkg
=
$tlpdb
->
get_package
(
$pkg
);
my
$newver
=
$tlpkg
->
revision
||
"
0
";
print
LOG
"
Warning: revision of
$pkg
is problematic
\n
"
if
$newver
eq
'
0
';
if
(
$newver
>
$localver
)
{
$count
++
;
...
...
@@ -463,9 +398,11 @@ sub run_status {
sub
run_install
{
foreach
(
@
_
)
{
my
$tlpkg
=
$tlpdb
->
get_package
(
$_
);
my
$pkgrev
=
$tlpkg
->
revision
;
if
(
$locallyinstalledpkg_versions
{
$_
}
)
{
echo
"
$_
is already installed with texlive-local-
$_
";
if
(
$locallyinstalledpkg_versions
{
$_
}
==
$
tlpdb
->
package_revision
(
$_
)
)
{
if
(
$locallyinstalledpkg_versions
{
$_
}
==
$
pkgrev
)
{
echo
"
and it is uptodate
"
}
else
{
print
"
Do you want to update it locally? (Y/n) >
"
;
...
...
@@ -476,7 +413,7 @@ sub run_install {
}
elsif
(
$installedpkg_versions
{
$_
}
)
{
echo
"
$_
is already installed with texlive-
$collectionsbypkg
{
$_
}
";
if
(
$installedpkg_versions
{
$_
}
==
$
tlpdb
->
package_revision
(
$_
)
)
{
if
(
$installedpkg_versions
{
$_
}
==
$
pkgrev
)
{
echo
"
and it is uptodate
"
}
else
{
#TODO check if it was already locally installed
...
...
@@ -485,7 +422,7 @@ sub run_install {
next
if
$choice
=~
m/^n/i
;
makepkg
(
$_
);
}
}
elsif
(
!
$
tlpdb
->
package_revision
(
$_
)
)
{
}
elsif
(
!
$
pkgrev
)
{
warning
"
$_
is unknown
"
;
next
;
}
else
{
...
...
@@ -497,9 +434,11 @@ sub run_install {
sub
run_installdoc
{
foreach
(
@
_
)
{
my
$tlpkg
=
$tlpdb
->
get_package
(
$_
);
my
$pkgrev
=
$tlpkg
->
revision
;
if
(
$locallyinstalleddoc_versions
{
$_
}
)
{
echo
"
$_
is already installed with texlive-local-
$_
-doc
";
if
(
$locallyinstalleddoc_versions
{
$_
}
==
$
tlpdb
->
package_revision
(
$_
)
)
{
if
(
$locallyinstalleddoc_versions
{
$_
}
==
$
pkgrev
)
{
echo
"
and it is uptodate
"
}
else
{
print
"
Do you want to update it locally? (Y/n) >
"
;
...
...
@@ -508,7 +447,7 @@ sub run_installdoc {
makepkgdoc
(
$_
);
}
}
elsif
(
!
$
tlpdb
->
package_revision
(
$_
)
)
{
elsif
(
!
$
pkgrev
)
{
warning
"
$_
is unknown
"
;
next
;
}
...
...
@@ -524,9 +463,11 @@ sub run_installsrc {
sub
run_update
{
foreach
(
@
_
)
{
my
$tlpkg
=
$tlpdb
->
get_package
(
$_
);
my
$pkgrev
=
$tlpkg
->
revision
;
if
(
$locallyinstalledpkg_versions
{
$_
}
)
{
echo
"
$_
is already installed with texlive-local-
$_
";
if
(
$locallyinstalledpkg_versions
{
$_
}
==
$
tlpdb
->
package_revision
(
$_
)
)
{
if
(
$locallyinstalledpkg_versions
{
$_
}
==
$
pkgrev
)
{
echo
"
and it is uptodate
"
}
else
{
print
"
Do you want to update it locally? (Y/n) >
"
;
...
...
@@ -537,7 +478,7 @@ sub run_update {
}
elsif
(
$installedpkg_versions
{
$_
}
)
{
echo
"
$_
is already installed with texlive-
$collectionsbypkg
{
$_
}
";
if
(
$installedpkg_versions
{
$_
}
==
$
tlpdb
->
package_revision
(
$_
)
)
{
if
(
$installedpkg_versions
{
$_
}
==
$
pkgrev
)
{
echo
"
and it is uptodate
"
}
else
{
print
"
Do you want to update it locally? (Y/n) >
"
;
...
...
@@ -545,7 +486,7 @@ sub run_update {
next
if
$choice
=~
m/^n/i
;
makepkg
(
$_
);
}
}
elsif
(
!
$
tlpdb
->
package_revision
(
$_
)
)
{
}
elsif
(
!
$
pkgrev
)
{
warning
"
$_
is unknown
"
;
next
;
}
else
{
...
...
@@ -654,16 +595,17 @@ sub makepkg {
print
LOG
"
\t
",
join
("
,
",
@stack
),
"
\n\n
";
foreach
my
$pkg
(
@stack
)
{
if
(
!
defined
$tlpdb
->
package_revision
(
$pkg
)
)
{
my
$tlpkg
=
$tlpdb
->
get_package
(
$pkg
);
if
(
!
defined
$tlpkg
)
{
print
RED
"
Warning:
$pkg
does not exist
\n
";
print
LOG
"
Warning:
$pkg
does not exist
\n
";
next
;
};
mkpath
(
"
$ROOT
/builds/
$pkg
",
{
mode
=>
0755
});
open
PKGBUILD
,
"
>
$ROOT
/builds/
$pkg
/PKGBUILD
";
my
$newver
=
$tlp
db
->
package_
revision
(
$pkg
)
;
my
$newver
=
$tlp
kg
->
revision
;
my
$col
=
$collectionsbypkg
{
$pkg
};
my
$pkgmd5
=
$tl
pdb
->
get_package
(
$
pkg
)
->
containermd5
;
my
$pkgmd5
=
$tlpkg
->
containermd5
;
#TODO download it first and compare the md5sum
# if it differs ask the user if the PKGBUILD
# should be adjusted
...
...
@@ -674,21 +616,33 @@ pkgver=$newver
pkgrel=1
pkgdesc="TeX Live - local installation of CTAN package $pkg"
license=('GPL')
arch=('
i686' 'x86_64
')
arch=('
any
')
depends=('texlive-core')
conflicts=('texlive-$col>=2008.$newver')
makedepends=('lzma-utils')
conflicts=('texlive-$col>=$YEAR.$newver')
url='http://tug.org/texlive/'
source=('$TLARCHIVE/$pkg.tar.
lzma
')
source=('$TLARCHIVE/$pkg.tar.
xz
')
md5sums=($pkgmd5)
build() {
cd \$startdir/src
lzma --force -dc $pkg.tar.lzma | tar xf - || return 1
install -m755 -d \$startdir/pkg/usr/local/share || return 1
cd texmf-dist
find . -type d -exec install -d -m755 \$startdir/pkg/usr/local/share/texmf/'{}' \\; || exit 1
find . -type f -exec install -m644 '{}' \$startdir/pkg/usr/local/share/texmf/'{}' \\; || exit 1
cd \$srcdir
rm -rf tlpkg
install -m775 -d \$pkgdir/usr/local/share/texmf || return 1
wanteddirs=\$(for d in *; do test -d \$d && [[ \$d != texmf* ]] && echo \$d; done)
for dir in \$wanteddirs; do
find \$dir -type d -exec install -d -m775 \$pkgdir/usr/local/share/texmf/'{}' \\; || return 1
find \$dir -type f -exec install -m664 '{}' \$pkgdir/usr/local/share/texmf/'{}' \\; || return 1
done
for dir in texmf-dist texmf-doc; do
if [[ -d \$dir ]]; then
cd \$dir
find . -type d -exec install -d -m775 \$pkgdir/usr/local/share/texmf/'{}' \\; || return 1
find . -type f -exec install -m664 '{}' \$pkgdir/usr/local/share/texmf/'{}' \\; || return 1
cd ..
fi
done
if [[ -d \$pkgdir/usr/local/share/texmf/scripts ]]; then
find \$pkgdir/usr/local/share/texmf/scripts -type f -exec chmod a+x '{}' \\;
fi
}
EOF
;
...
...
@@ -699,7 +653,7 @@ EOF
# close INSTALL;
print
LOG
"
* Running makepkg -ci on
$ROOT
/builds/
$pkg
/PKGBUILD
\n
";
chdir
"
$ROOT
/builds/
$pkg
";
system
(
"
test -f
$pkg
.tar.
lzma
&& rm
$pkg
.tar.
lzma
"
);
system
(
"
test -f
$pkg
.tar.
xz
&& rm
$pkg
.tar.
xz
"
);
# TODO : catch error if makepkg fails
system
(
"
makepkg -ci
"
);
}
...
...
@@ -755,38 +709,43 @@ pkgver=$newver
pkgrel=1
pkgdesc="TeX Live - local installation of CTAN package $pkg (documentation and sources)"
license=('GPL')
arch=('
i686' 'x86_64
')
arch=('
any
')
depends=('texlive-core')
makedepends=('lzma-utils')
url='http://tug.org/texlive/'
EOF
;
if
(
$srcpkgmd5
)
{
print
PKGBUILD
<<"EOF"
source=('$TLARCHIVE/$pkg.doc.tar.
lzma
' '$TLARCHIVE/$pkg.source.tar.
lzma
')
source=('$TLARCHIVE/$pkg.doc.tar.
xz
' '$TLARCHIVE/$pkg.source.tar.
xz
')
md5sums=('$docpkgmd5' '$srcpkgmd5')
build() {
cd \$startdir/src
lzma --force -dc $pkg.doc.tar.lzma | tar xf - || return 1
lzma --force -dc $pkg.source.tar.lzma | tar xf - || return 1
EOF
}
else
{
print
PKGBUILD
<<"EOF"
source=('$TLARCHIVE/$pkg.doc.tar.
lzma
')
source=('$TLARCHIVE/$pkg.doc.tar.
xz
')
md5sums=('$docpkgmd5')
build() {
cd \$startdir/src
lzma --force -dc $pkg.doc.tar.lzma | tar xf - || return 1
EOF
;
print
PKGBUILD
<<"EOF"
install -m755 -d \$startdir/pkg/usr/local/share || return 1
for d in texmf-dist texmf-doc; do
if [ -d \$d ]; then
cd \$d
find . -type d -exec install -d -m755 \$startdir/pkg/usr/local/share/texmf/'{}' \\; || exit 1
find . -type f -exec install -m644 '{}' \$startdir/pkg/usr/local/share/texmf/'{}' \\; || exit 1
fi
done
};
print
PKGBUILD
<<"EOF"
build() {
cd \$srcdir
rm -rf tlpkg
install -m775 -d \$pkgdir/usr/local/share/texmf || return 1
wanteddirs=\$(for d in *; do test -d \$d && [[ \$d != texmf* ]] && echo \$d; done)
for dir in \$wanteddirs; do
find \$dir -type d -exec install -d -m775 \$pkgdir/usr/local/share/texmf/'{}' \\; || return 1
find \$dir -type f -exec install -m664 '{}' \$pkgdir/usr/local/share/texmf/'{}' \\; || return 1
done
for dir in texmf-dist texmf-doc; do
if [[ -d \$dir ]]; then
cd \$dir
find . -type d -exec install -d -m775 \$pkgdir/usr/local/share/texmf/'{}' \\; || return 1
find . -type f -exec install -m664 '{}' \$pkgdir/usr/local/share/texmf/'{}' \\; || return 1
cd ..
fi
done
if [[ -d \$pkgdir/usr/local/share/texmf/scripts ]]; then
find \$pkgdir/usr/local/share/texmf/scripts -type f -exec chmod a+x '{}' \\;
fi
}
EOF
;
...
...
@@ -797,11 +756,11 @@ EOF
# close INSTALL;
print
LOG
"
* Running makepkg -ci on
$ROOT
/builds/
$pkg
-doc/PKGBUILD
\n
";
chdir
"
$ROOT
/builds/
$pkg
-doc
";
system
(
"
test -f
$pkg
-*.tar.
lzma
&& rm
$pkg
-*.tar.
lzma
"
);
system
(
"
test -f
$pkg
-*.tar.
xz
&& rm
$pkg
-*.tar.
xz
"
);
# TODO : catch error if makepkg fails
system
(
"
makepkg -ci
"
);
}
}
print
"
\n
>>> Finished. Don't forget to run 'texhash' to update your file database.
\n
";
#system ( "sed -i '/^$pkg /d' $INSTALLEDPKGS/texlive-local-doc.pkgs" );
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment