[Scummlinux-cvs-logs] scummlinux/generator generator.exe,NONE,1.1 generator.pl,NONE,1.1 perl58.dll,NONE,1.1

[<yo...@us...>]

Update of /cvsroot/scummlinux/scummlinux/generator
In directory sc8-pr-cvs1:/tmp/cvs-serv6064/generator

Added Files:
	generator.exe generator.pl perl58.dll 
Log Message:
moving generator files to good dir

--- NEW FILE: generator.exe ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: generator.pl ---
#!/usr/bin/perl

use File::Copy;
use File::Path;
use File::Glob qw(:globally :nocase);

$OS = $Config::Config{'osname'};
$gamesloc = "games";
$gamesdest = "iso/SCUMMLINUX/games";
$conf = "iso/SCUMMLINUX/etc/scummvm.conf";

opendir (GAMES_REP, $gamesloc) or die("Error: cannot open source directory $gamesloc");
@games = grep !/^\.\.?\z/, readdir GAMES_REP;
closedir GAMES_REP;

mkpath("$gamesdest");
open(scummvm, ">$conf");
foreach $game (@games) {
	$i++;
	opendir (THISGAME_REP, "$gamesloc/$game");
	print "\nFound $game, copying files..\n";
	mkpath("$gamesdest/$game");
	
	if ($game eq "monkey1" || $game eq "monkey2" || $game eq "samnmax" || $game eq "atlantis" || $game eq "tentacle") {
		@files = ("$game.000", "$game.001");
		foreach $file (@files) {
			$filecaps = uc($file);
			#print "Copying $filecaps\n";
			copy("$gamesloc/$game/$filecaps", "$gamesdest/$game") or copy("$gamesloc/$game/$file", "$gamesdest/$game") or die("Missing file $filecaps for the game $game\n");
		}
		@sounds = glob("$gamesloc/$game/{track,monster}*"); 
		foreach $sound (@sounds) {
			#print "Copying $sound\n";
			copy("$sound", "$gamesdest/$game");
		}
	}
	
	if ($game eq "indy3" || $game eq "loom" || $game eq "maniac" || $game eq "indy3ega" || $game eq "zak") {
		@lfls = glob("$gamesloc/$game/*.lfl") or die("Missing files for the game $game\n");
		foreach $lfl (@lfls) {
			#print "Copying $lfl\n";
			copy("$lfl", "$gamesdest/$game");
		}
	}

	if ($game eq "ft") {
		@files = glob("$gamesloc/$game/*.{flc,nut,la0,la1}") or die("Missing files for the game $game\n");
		foreach $file (@files) {
			#print "Copying $file\n";
			copy("$file", "$gamesdest/$game");
		}
		mkpath("$gamesdest/$game/VIDEO/");
		@files = glob("$gamesloc/$game/VIDEO/*") or die("Missing files for the game $game\n");
		foreach $file (@files) {
			#print "Copying $file\n";
			copy("$file", "$gamesdest/$game/VIDEO");
		}
		mkpath("$gamesdest/$game/DATA/");
		@files = glob("$gamesloc/$game/DATA/*") or die("Missing files for the game $game\n");
		foreach $file (@files) {
			#print "Copying $file\n";
			copy("$file", "$gamesdest/$game/DATA");
		}
	}
	
        if ($game eq "dig") {
                @files = glob("$gamesloc/$game/*.{flc,nut,la0,la1,trs,bun,bnd}") or die("Missing files for the game $game\n");
                foreach $file (@files) {
                        #print "Copying $file\n";
                        copy("$file", "$gamesdest/$game");
                }
                mkpath("$gamesdest/$game/VIDEO/");
                @files = glob("$gamesloc/$game/VIDEO/*") or die("Missing files for the game $game\n");
                foreach $file (@files) {
                        #print "Copying $file\n";
                        copy("$file", "$gamesdest/$game/VIDEO");
                }
        }

	if ($game eq "sky") {
		@files = ("sky.dnr", "sky.dsk", "sky.rst");
		foreach $file (@files) {
			$filecaps = uc($file);
			#print "Copying $filecaps\n";
			copy("$gamesloc/$game/$filecaps", "$gamesdest/$game") or copy("$gamesloc/$game/$file", "$gamesdest/$game") or die("Missing file $file for the game $game\n");
		}
	}
	
	if ($game eq "monkeyega" || $game eq "loomcd" || $game eq "zak256" || $game eq "monkeyvga") {
		@lfls = glob("$gamesloc/$game/*.{lfl,lec}") or die("Missing files for the game $game\n");
		foreach $lfl (@lfls) {
			#print "Copying $lfl\n";
			copy("$lfl", "$gamesdest/$game");
		}
		@sounds = glob("$gamesloc/$game/track*"); 
		foreach $sound (@sounds) {
			#print "Copying $sound\n";
			copy("$sound", "$gamesdest/$game");
		}
	}
	
	closedir THISGAME_REP;
	print scummvm "[$game]\n";
	print scummvm "amiga=false\n";
	print scummvm "path=/mnt/cdrom/games/$game\n\n";
}

open(LANG, "LANGUAGE") or die("Error: LANGUAGE file missing !");
$language = <LANG>;
close(LANG);

print scummvm "[scummvm]
language=$language
gfx_mode=advmame3x
versioninfo=0.5.0pre-cvs
fullscreen=true
";

close(scummvm);
if ($i < 1) {
	die("Error: no game found! You must copy your games in the $gamesloc directory. Read the README for more help.\n");
}

rmtree("ziso",0,0);
mkpath("ziso");

if ($OS eq "MSWin32") {
	$command = 'win32\\mkzftree iso/SCUMMLINUX ziso/SCUMMLINUX';
} else {
	$command = 'mkzftree iso/SCUMMLINUX ziso/SCUMMLINUX';
}

print "Creating zisofs file tree, this may take some time..\n";
system($command);

@files = glob("iso/SCUMMLINUX/isolinux/*");
foreach $file (@files) {
	copy("$file", "ziso/SCUMMLINUX/isolinux");
}


open(VERSION, "VERSION") or die("Error: VERSION file missing !");
$vers = <VERSION>;
close(VERSION);

if ($OS eq "MSWin32") {
	$command = "win32\\mkisofs -quiet -no-pad -V ScummLinux -volset ScummLinux -P \"ScummVM\" -p \"ScummVM\" -A \"ScummLinux\" -z -D -r -J -b isolinux/isolinux.bin -c isolinux/boot.cat -no-emul-boot -boot-load-size 4 -boot-info-table ziso/SCUMMLINUX > scummlinux-$vers.iso";
} else {
	$command = "mkisofs -quiet -no-pad -V ScummLinux -volset ScummLinux -P ScummVM -p ScummVM -A ScummLinux -z -D -r -J -b isolinux/isolinux.bin -c isolinux/boot.cat -no-emul-boot -boot-load-size 4 -boot-info-table ziso/SCUMMLINUX > scummlinux-`cat VERSION`.iso";
}

print "Creating ISO image, this may take some time..\n\n";
system($command);

rmtree("ziso",0,0);
rmtree("iso/SCUMMLINUX/games",0,0);

print "\n --- Your ScummLinux iso is ready to burn ! --- \n";

--- NEW FILE: perl58.dll ---
(This appears to be a binary file; contents omitted.)