+# Sanity checks
+die "Theme directory must be given\n" unless length $srcthemedir;
+die "Theme directory \"$srcthemedir\" not found\n" unless -e $srcthemedir and -d $srcthemedir;
+die "Theme name must not be empty\n" unless length $themename;
+
+my $destbasedir = File::Spec->catdir($srcroot, "3rdparty", "icons");
+my $destthemedir = File::Spec->catdir($destbasedir, $themename);
+
+my $whitelistfile = "$scriptroot/whitelisted-icons";
+my $blacklistfile = "$scriptroot/blacklisted-icons";