logoselect.pl

M3355的源代码

#!/usr/bin/perl
use BuildRscCFile;

my $LAN_GROUPS = "LangGroups";
my @main_logo_name = ("logolgNew.inc","logolgNew.inc");
my @main_logo_save_name = ("lg20","lg20");

if (@ARGV == 0)
{
	die ("Logo Select Error: Please give out your logo file's index !\n");
}
elsif (@ARGV == 1)
{
	$logo_index = $ARGV[0];
}

##### output to RscScript

open (H_RSCSCRIPT,">>RscScript.wrk") || die"Error: can not open \"RscScript.wrk\"\n";
print H_RSCSCRIPT "\n\n";
print H_RSCSCRIPT "[general] ; pub info for following resource\n";
print H_RSCSCRIPT "resource_path = ..\\..\\source\\cstm\\logo\\\n";
print H_RSCSCRIPT "\n";
print H_RSCSCRIPT "[logo] ; ==> \\logo\\??????	?????? is idstr\n";

print H_RSCSCRIPT "file=$main_logo_name[$logo_index-1],	idstr=$main_logo_save_name[$logo_index-1],	iszip=0\n";

print H_RSCSCRIPT "\n";

close (H_RSCSCRIPT);