Loader:yabause loader0910

Perl Script

#!/usr/bin/perl
#
# Yabause Loader
# Work around to launch yabause 0.9.10

use IO::Handle;
my $home = "/home/" . `whoami`;
chomp($home);

######## CONFIG OPTIONS ########

my $cdromcore = "1";
my $yabpath = $home . "/.config/";
#my $yabpath = $home . "/.yabause/";

######## END CONFIG OPT ########

my $command = `which yabause-gtk`;
#my $command = `which yabause-qt`;
chomp($command);

my $cdrom = $ARGV[1];
my $biosfile = $ARGV[0];
my $procfile = $yabpath . "yabause-template.ini";
my $destfile = $yabpath . "yabause.ini";

# Pickup last used yabuse.ini at runtime
if ( -e $destfile ) {   
        system( "cp", "-u", $destfile, $procfile );
}

if ( -e $procfile && @ARGV > 1 ) {

        open (YABINI, ">", $destfile) or die $!;
        open (YABTINI, "<", $procfile) or die $!;
        while ($line = <YABTINI>) {
        if ($line =~ m/^CDROMCore\=/) {
                print YABINI "CDROMCore=1\n";
        } elsif ( $line =~ m/^CDROMDrive\=/ ) {
                print YABINI "CDROMDrive=".$cdrom."\n";
        } elsif ( $line =~ m/^BiosPath\=/ ) {
                print YABINI "BiosPath=".$biosfile."\n";
        } else {
                print YABINI $line;
        }
}
        system($command, "-a", "-f");
} else {
        print "Yabause Loader v0.1 by sairuk";
        print "\n";
        print "Usage: $0 BIOSFILE ISO\n";
}