From 0d363714f1ff32be5835967246362da753f0598b Mon Sep 17 00:00:00 2001 From: Steve Checkoway Date: Sun, 5 Aug 2007 01:02:06 +0000 Subject: [PATCH] Remove unused packaging script. --- stepmania/Utils/mksmdata.pl | 40 ------------------------------------- 1 file changed, 40 deletions(-) delete mode 100755 stepmania/Utils/mksmdata.pl diff --git a/stepmania/Utils/mksmdata.pl b/stepmania/Utils/mksmdata.pl deleted file mode 100755 index 6204ed307e..0000000000 --- a/stepmania/Utils/mksmdata.pl +++ /dev/null @@ -1,40 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use File::Copy; -use File::Path; -use File::Basename; -use File::Temp qw/tempdir/; -use Cwd qw/getcwd realpath/; - -my @data = qw( BackgroundTransitions - BackgroundEffects - Characters/default - Courses/Samples - NoteSkins/common/common - NoteSkins/dance/default - NoteSkins/dance/bold - NoteSkins/dance/flat - Themes/default - Data ); - -die "usage: $0 [input_dir output_dir]\n" if @ARGV > 2; - -my $srcdir = @ARGV > 0? $ARGV[0]:getcwd; -my $destdir = @ARGV == 2? $ARGV[1]:$srcdir; - -$srcdir = realpath $srcdir; -$destdir = realpath $destdir; - -my $tmp = tempdir; - -for( @data ) -{ - mkpath "$tmp/" . dirname $_; - system 'cp', '-r', "$srcdir/$_", "$tmp/$_" and die "cp -r failed: $!\n"; -} -my @cvsdirs = split /\n/, `find "$tmp" -type d -name CVS`; -rmtree \@cvsdirs; -chdir $tmp; -system qq(zip -qyrn .ogg:.mp3:.png "$destdir"/SMData.smzip *) and die "zip failed: $!"; -rmtree $tmp