view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use lib 'lib';
use Alien::QtSmoke;
use Cwd;
use File::Fetch;
use File::Path;
use File::Spec;
use ExtUtils::MakeMaker;

my $CWD = Cwd::cwd(); 

sub fetch_kdebindings {
    my $version = Alien::QtSmoke->version();

    my $downloadDir = File::Spec->catdir( $CWD, 'src' );

    my @mirrors = (
        'http://chernabog.cc.vt.edu/pub/projects',
        'http://ftp.gtlib.cc.gatech.edu/pub',
        'ftp://carroll.aset.psu.edu/pub',
        'http://kde.mirrors.tds.net/pub',
        'http://ibiblio.org/pub/mirrors',
        'ftp://ftp.ussg.iu.edu/pub',
        'http://mirror.cc.columbia.edu/pub/software',
        'http://mirrors.isc.org/pub',
        'ftp://chernabog.cc.vt.edu/pub/projects',
        'ftp://ibiblio.org/pub/mirrors',
        'http://ftp.ussg.iu.edu',
        'ftp://kde.mirrors.tds.net/pub',
        'ftp://ftp.gtlib.cc.gatech.edu/pub',
    );

    foreach my $url ( @mirrors ) {
        $url .= "/kde/stable/$version/src/kdebindings-$version.tar.bz2";

        print "Attempting to download kdebindings source package\n";
        print "from $url\n";
        my $ff = File::Fetch->new( uri => $url ) or next;
        my $loc = $ff->fetch( to => $downloadDir ) or next;

        next if( !$loc || $ff->error() );

        print "Successfully downloaded kdebindings source.\n";
        return $loc;
    }

    die 'Unable to fetch kdebinding source.';
}

sub extract_kdebindings {
    my ( $src ) = @_;
    my $srcDir = File::Spec->catdir( $CWD, 'src' );
    chdir $srcDir;
    system "tar -xf $src";
    if ( ($? >> 8) > 0 ) {
        die "Unable to extract sources: $!\n";
    }
}

sub build_kdebindings {
    my $version = Alien::QtSmoke->version();
    my $prefix = Alien::QtSmoke->prefix();