Zone MMF Implementation (for map files)

utils/scripts/convert_maps_to_mmfs.pl

@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+###########################################################
+#::: Automatic (Map-to-MMF) Conversion Script
+#::: Author: Uleat
+#::: Purpose: To convert existing zone maps to memory-mapped files
+###########################################################
+
+use Config;
+
+print("\n");
+print("Zone Map-to-MMF Batch convertor\n");
+print("===============================\n");
+print("\n");
+
+if($Config{osname}=~/freebsd|linux/i){ $OS = "Linux"; }
+if($Config{osname}=~/Win|MS/i){ $OS = "Windows"; }
+print("Operating System is: $Config{osname}\n");
+print("\n");
+
+opendir(D, "maps") || die "Can't find directory maps: $!\n";
+my @mapfiles = grep { /\.map$/ && !/_lit/ } readdir(D);
+closedir(D);
+
+foreach my $mapfile (@mapfiles) {
+	my $result = "Unknown action..\n";
+	print("processing map: '$mapfile'\n");
+    if($OS eq "Windows"){ $result = `zone convert_map $mapfile`; } 
+	if($OS eq "Linux"){ $result = `./zone convert_map $mapfile`; } 
+	print("-- $result");
+}
+
+print("\n");
+print("Batch processing complete\n")