diff options
| author | Sergej Pupykin | 2018-10-05 15:09:51 +0300 |
|---|---|---|
| committer | Sergej Pupykin | 2018-10-05 15:09:51 +0300 |
| commit | e5b79a03f3cc0592951a6d6f374d17e91e4163b0 (patch) | |
| tree | d4054c134f2d4697d8a0fbaadf4ce77e966fa4f8 | |
| download | aur-e5b79a03f3cc0592951a6d6f374d17e91e4163b0.tar.gz | |
init
| -rw-r--r-- | .SRCINFO | 16 | ||||
| -rw-r--r-- | PKGBUILD | 23 | ||||
| -rw-r--r-- | mirror.pl | 25 |
3 files changed, 64 insertions, 0 deletions
diff --git a/.SRCINFO b/.SRCINFO new file mode 100644 index 000000000000..c0bb5f590ccf --- /dev/null +++ b/.SRCINFO @@ -0,0 +1,16 @@ +# Generated by mksrcinfo v8 +# Fri Oct 5 12:09:40 UTC 2018 +pkgbase = x-docs-pdf + pkgdesc = X documentation + pkgver = 20140422 + pkgrel = 2 + url = http://www.x.org/docs/ + arch = any + license = custom + depends = wget + options = docs + source = mirror.pl + sha512sums = 16f13158b371140ad00a15d8fe87c088277641dc2508b06e9595b611a40bd665c6e5bd7f21b19c5a906a8fec2febf309a59a29313db8427a7219de424a5ddb1b + +pkgname = x-docs-pdf + diff --git a/PKGBUILD b/PKGBUILD new file mode 100644 index 000000000000..93ccd4b8e0d2 --- /dev/null +++ b/PKGBUILD @@ -0,0 +1,23 @@ +# Maintainer: Sergej Pupykin <pupykin.s+arch@gmail.com> + +pkgname=x-docs-pdf +pkgver=20140422 +pkgrel=2 +pkgdesc="X documentation" +arch=(any) +url="http://www.x.org/docs/" +license=('custom') +options=(docs) +depends=('wget') +source=('mirror.pl') +sha512sums=('16f13158b371140ad00a15d8fe87c088277641dc2508b06e9595b611a40bd665c6e5bd7f21b19c5a906a8fec2febf309a59a29313db8427a7219de424a5ddb1b') + +package() { + mkdir -p "$pkgdir"/usr/share/doc/X11 "$pkgdir"/usr/share/licenses/x-docs-pdf "$srcdir"/X11 + cd "$srcdir"/X11 + perl "$srcdir"/mirror.pl + cp -r "$srcdir"/X11 "$pkgdir"//usr/share/doc/ + cat <<EOF >"$pkgdir"/usr/share/licenses/x-docs-pdf/COPYRIGHT + See PDF's first pages for copyright notes. +EOF +} diff --git a/mirror.pl b/mirror.pl new file mode 100644 index 000000000000..8e14f8c000e8 --- /dev/null +++ b/mirror.pl @@ -0,0 +1,25 @@ +#!/usr/bin/perl -w + +sub http_list +{ + my $FH; + my ($baseurl, $url, $level) = @_; + open $FH, "wget -q $baseurl/$url -O -|" || die "wget error"; + + while(<$FH>) + { + if(/href="([\w.-]+\/)"/) + { + http_list($baseurl, $url.$1, $level+1); + } + elsif(/href="([\w.-]+\.pdf)"/) + { + system("mkdir -p $url"); + print "$baseurl$url$1\n"; + system("wget -c $baseurl$url$1 -O $url$1"); + } + } + close $FH; +} + +http_list("http://www.x.org/docs/", "", 0); |