diff --git a/pkg/Dist-MegaLight-GNULinux.lst b/pkg/Dist-MegaLight-GNULinux.lst deleted file mode 100644 index 4853c3ccc..000000000 --- a/pkg/Dist-MegaLight-GNULinux.lst +++ /dev/null @@ -1,24 +0,0 @@ -src:. -doc:. -data/*.png:data/ -data/*.dae:data/ -data/*.ttf:data/ -data/*.ini:data/ -data/mods:data/ -data/necks:data/ -data/shaders:data/ -data/sounds:data/ -data/themes:data/ -data/translations:data/ -data/tutorials/jurgenfof:data/tutorials/ -data/tutorials/drumtest:data/tutorials/ -data/users:data/ -dist/FoFiX:. -dist/FoFiX.bin:. -AUTHORS:. -COPYING:. -CREDITS:. -NEWS:. -README:. -../FoFiX-wiki:. -dist/*.so*:. diff --git a/pkg/Package-GNULinux.pl b/pkg/Package-GNULinux.pl deleted file mode 100644 index ed78a25dd..000000000 --- a/pkg/Package-GNULinux.pl +++ /dev/null @@ -1,58 +0,0 @@ -#!/usr/bin/perl -# -# Copyright 2008 Pascal Giard -# -# Create patch for FoFiX from a list of source:destination -# Look at ../Makefile for a usage example. -use strict; -use warnings; -use Getopt::Long; -use File::Path; -use File::Remove qw(remove); -use File::NCopy; -use File::Find; - -use vars qw(%opt @src @dest @tuple @svndirs); -my $cwd = ( $0 =~ /(^.*\/)[^\/]+$/ ) ? $1 : "./"; - -GetOptions( "dest=s" => \$opt{'dir'}, - "list=s" => \$opt{'list'} ); - -die "Need destination directory!" unless( defined $opt{'dir'} ); -$opt{'list'} = "Dist-MegaLight-GNULinux.lst" unless( defined $opt{'list'} ); - -sub delsvn { - return unless ( $File::Find::name =~ /\.svn$/ ); - push @svndirs, $File::Find::name; -} - -open(FH, "$opt{'list'}") or die $!; -while( ) { - chop(); - next if( /^$/ ); - @tuple = split( /:/, $_); - push @src, $tuple[0]; - push @dest, $tuple[1]; -} -close FH; - -my $cp = File::NCopy->new(recursive => 1, - force_write => 1, - follow_links => 1); - -mkpath("$opt{'dir'}"); -for(my $i = 0; $i < scalar(@src); $i++ ) { - mkpath("$opt{'dir'}/$dest[$i]") unless ( -e "$opt{'dir'}/$dest[$i]" ); - $cp->copy("$src[$i]", "$opt{'dir'}/$dest[$i]") - or die "Copy of $src[$i] to $opt{'dir'}/$dest[$i] failed: $!"; -} - -chdir $opt{'dir'}; -remove( \1, qw{ - src/*.pyc src/*.pyo src/*.bat - src/midi/*.pyc src/midi/*.pyo } ); -find({ wanted => \&delsvn, no_chdir => 1 }, "."); -remove( \1, @svndirs ) or die $! if( scalar(@svndirs) > 0 ); -chdir ".."; - -__END__