#!/usr/bin/perl -w

# pluginScript.pl

#

# Controls the availability of cert store plugins on the emulator, for testing

# purposes.  

$UsageMessage = <<"EOF";

usage:

  pluginScript disable PLUGIN

    Disable the specified plugin by moving it to a backup location

  pluginScript disable_all

    Disable all plugins

  pluginScript enable PLUGIN

    Enable the specified plugin by copying the backup to its original location

  pluginScript list PLATFORM BUILD

    List the currently enabled plugins for the specified platform and build

    (default is winscw udeb)

EOF

@plugins = ('filecertstore.dll',

			'tadditionalstores.dll',

			'tadditionalstoressoftware.dll',

			'wapcertstore.dll',

 			'swicertstoreplugin.dll',

 			'thwsimstores.dll',

 			'thwuiccstores.dll',

 			'thwwimstores.dll',

			'tDeviceImmutablestores.dll',

 			'MIDP2CertStore.dll');

@platforms = ('wins', 'winscw');

@builds = ('udeb', 'urel');

$EpocRoot = $ENV{'EPOCROOT'} . "epoc32";

sub usage()

{

	die $UsageMessage;

}

sub copyFile($$)

{

	my ($from, $to) = @_;

	print "Copying $from -> $to\n";

	die "Can't copy: $!" unless system("cmd", "/c", "copy", $from, $to) == 0;

}

sub deleteFile($)

{

	my ($file) = @_;

	print "Deleting $file\n";

	die "Can't delete '$file': $!" unless unlink $file;

}

sub ensureDir($)

{

	my ($dir) = @_;

	if (! -d $dir)

	{

		print "Creating $dir\n";

		die "Can't create dir '$dir': $!" unless mkdir $dir;

	}

}

sub isSecure($)

{

	my ($plugin) = @_;

	$plugin =~ s/\.dll/.rsc/i;

	return -f "$EpocRoot\\data\\z\\resource\\plugins\\$plugin"

}

sub pluginDir($$)

{

	my ($plugin, $path) = @_;

	if (isSecure($plugin))

	{

		return "$path";

	}

	else

	{

		return "$path\\z\\system\\libs\\plugins";

	}

}

sub backupDir($$)

{

	my ($plugin, $path) = @_;

	if (isSecure($plugin))

	{

		return "$path\\plugins_backup";

	}

	else

	{

		return "$path\\z\\system\\libs\\plugins_backup";

	}

}

sub disable($)

{

	my ($plugin) = @_;

	for my $platform (@platforms)

	{

		for my $build (@builds)

		{

			my $path = "$EpocRoot\\release\\$platform\\$build";

			my $backupDir = backupDir($plugin, $path);

			my $pluginDir = pluginDir($plugin, $path);

			my $pluginFile = "$pluginDir\\$plugin";

			my $backupFile = "$backupDir\\$plugin";

			if (-f $pluginFile)

			{

				# Always copy, in case plugin has been rebuilt

				ensureDir($backupDir);

				copyFile($pluginFile, $backupDir);

				deleteFile($pluginFile);

			}

		}

	}

}

sub disableAll()

{

	for my $plugin (@plugins)

	{

		disable($plugin)

	}

}

sub enable($)

{

	my ($plugin) = @_;

	for my $platform (@platforms)

	{

		for my $build (@builds)

		{

			my $path = "$EpocRoot\\release\\$platform\\$build";

			my $backupDir = backupDir($plugin, $path);

			my $pluginDir = pluginDir($plugin, $path);

			my $pluginFile = "$pluginDir\\$plugin";

			my $backupFile = "$backupDir\\$plugin";

			if (! -f $pluginFile && -f $backupFile)

			{

				copyFile($backupFile, $pluginDir);					

			}

		}

	}

}

sub list($$)

{

	my ($platform, $build) = @_;	

	my $path = "$EpocRoot\\release\\$platform\\$build";

	printf "%-32s %-12s %s\n",  "Plugin:", "Type:", "Status:";

	for my $plugin (@plugins)

	{

		my $secure = isSecure($plugin);

		my $enabled = 0;

		if ($secure)

		{

			$enabled = -f "$path\\$plugin";

		}

		else

		{

			$enabled = -f "$path\\z\\system\\libs\\plugins\\$plugin";

		}

		my $secureMess = $secure ? 'secure' : 'old-style';

		my $enabledMess = $enabled ? 'enabled' : 'disabled';

		printf "%-32s %-12s %s\n",  $plugin, $secureMess, $enabledMess;

	}

}

sub main(@)

{

	my $action = shift || usage();

	if ($action eq 'backup_all')

	{

		backupAll();

	}

	elsif ($action eq 'disable')

	{

		my $plugin = shift || usage();

		usage() unless grep { $_ eq $plugin } @plugins;

		disable($plugin);

	}

	elsif ($action eq 'disable_all')

	{

		disableAll();

	}

	elsif ($action eq 'enable')

	{

		my $plugin = shift || usage();

		usage() unless grep { $_ eq $plugin } @plugins;

		enable($plugin);

	}

	elsif ($action eq 'list')

	{

		my $platform = shift || 'winscw';

		my $build = shift || 'udeb';

		usage() unless grep { $_ eq $platform } @platforms;

		usage() unless grep { $_ eq $build } @builds;

		list($platform, $build);

	}

	else

	{

		usage();

	}

}

main(@ARGV);