actions/itgmania212121
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

small changes to install-stepmania.pl

Browse Source
This commit is contained in:
AJ Kelly
2011-08-23 15:18:35 -05:00
parent f75757ea4e
commit b1061937f6
1 changed files with 12 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Utils/install-stepmania.pl
+5 -16
View File
@@ -53,14 +53,11 @@ sub ReadCommand
{
++$cur;
}
next;
}
$ret[$cur] .= $ch;
}
return @ret;
}
print "guh\n";
@@ -82,19 +79,18 @@ sub CreateDirectories
}
}
if ($#ARGV == -1)
{
print "Install where? (eg. /usr/games/sm-ssc)\n";
print "Install where? (eg. /usr/games/stepmania5)\n";
exit 1;
}
my $instdir = $ARGV[0];
print "Installing to $instdir\n";
# Normally, this script is run after building, which means we probably have a Makefile
# available. Look for it, and pull out vpath, if any, to see where the real source
# directory is.
# Normally, this script is run after building, which means we probably
# have a Makefile available. Look for it, and pull out vpath, if any,
# to see where the real source directory is.
my $bin_path;
@@ -120,7 +116,6 @@ print "Binary path: $bin_path\n";
open(F, "sm-ssc.nsi") || die "Couldn't open sm-ssc.nsi: $!";
# Search for the default installation section.
my $FoundSection = 0;
while(!eof(F))
@@ -133,7 +128,6 @@ while(!eof(F))
$FoundSection = 1;
last;
}
}
$FoundSection || die "sm-ssc.nsi parse error";
@@ -175,7 +169,6 @@ while(!eof(F))
# {
# mkdir($line[1]) || die "mkdir($line[1]): $!";
# }
#
# next;
# }
@@ -238,20 +231,16 @@ while(!eof(F))
{
system("rm $args \"$dir\"");
}
next;
}
}
$FoundSection || print "warning: SectionEnd not found\n";
close F;
system("cp -vp \"" . $bin_path . "sm-ssc\" \"$instdir\"");
system("cp -vp \"" . $bin_path . "stepmania5\" \"$instdir\"");
if( -e $bin_path . "GtkModule.so" )
{
system("cp -vp \"" . $bin_path . "GtkModule.so\" \"$instdir\"");
}