summaryrefslogtreecommitdiff
path: root/createarchdeps
diff options
context:
space:
mode:
Diffstat (limited to 'createarchdeps')
-rwxr-xr-xcreatearchdeps58
1 files changed, 0 insertions, 58 deletions
diff --git a/createarchdeps b/createarchdeps
deleted file mode 100755
index aab8346..0000000
--- a/createarchdeps
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/perl -w
-
-# Archlinux support, based on the GSoC work of Nikolay Rysev <mad.f3ka@gmail.com>
-
-################################################################
-#
-# Copyright (c) 1995-2014 SUSE Linux Products GmbH
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License version 2 or 3 as
-# published by the Free Software Foundation.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program (see the file COPYING); if not, write to the
-# Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
-#
-################################################################
-
-BEGIN {
- unshift @INC, ($::ENV{"BUILD_DIR"} || "/usr/lib/build");
-}
-
-use strict;
-use Build ':arch';
-use Build::Archrepo;
-use Digest::MD5 ();
-use File::Path;
-use Getopt::Long;
-
-Getopt::Long::Configure("no_ignore_case");
-
-my $cachedir = "/var/cache/build";
-
-sub getreponame {
- my ($url) = @_;
- return $1 if "/$url/" =~ /.*\/([^\/]+)\/os\//;
- return undef;
-}
-
-GetOptions("cachedir=s" => \$cachedir) or exit(1);
-
-for my $url (@ARGV) {
- die("$url: not an remote Archlinux repo") unless $url =~ /^(:?ftps?|https?):\/\/([^\/]*)\/?/;
- my $reponame = getreponame($url);
- die("could not determine reponame from url $url\n") unless defined $reponame;
- my $repoid = Digest::MD5::md5_hex($url);
- my $dir = "$cachedir/$repoid";
- $url .= '/' unless $url =~ /\/$/;
- File::Path::mkpath($dir);
- system("$INC[0]/download", $dir, "$url$reponame.db");
- Build::Archrepo::parse("$dir/$reponame.db", sub { Build::writedeps(\*STDOUT, $_[0], $url) }, 'addselfprovides' => 1);
-}