--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/controlpanelui/cpcfg_win.pl	Fri Mar 19 09:29:29 2010 +0200
@@ -0,0 +1,49 @@
+
+# description: copy all cpcfg files to destination directory when building control panel in window envionment
+# usage: go to control panel source directory, 
+# run cpcfg_win.pl if you want to build control panel in debug mode or cpcfg_win -R in release mode.
+
+use File::Path qw (mkpath);
+
+#default debug dir
+$config_dir = "C:\\ControlPanel\\debug\\bin\\config";
+if ($ARGV[0] =~ m/^-R$/i) { #release dir
+	$config_dir = "C:\\ControlPanel\\release\\bin\\config";
+} 
+
+sub go_through_dir {  
+ my @arr, $j = 0;  
+ for ($i=0;$i<=$#_;$i++) {  
+  if (-d $_[$i]) {  
+   if (opendir($handle, $_[$i])) {  
+    while ($entry = readdir($handle)) {  
+     if (!($entry =~ m/^\.$/) and !($entry =~ m/^(\.\.)$/)) {   
+      if (-d $_[$i]."\\$entry") {  # is a directory, push to @arr
+       $arr[$j++] = $_[$i]."\\$entry";   
+      }  
+      else {   # is a file
+      	if ($entry =~ m/\.cpcfg$/i) { # is a .cpcfg file, copy it
+      		$cmd = "copy ";
+      		$cmd .= $_[$i]."\\$entry ";
+      		$cmd .= $config_dir."\\$entry";
+      		print ("$cmd\n");
+      		system($cmd);
+      	}
+      }
+     }  
+    }  
+    closedir($handle);  
+   }  
+  }  
+ }  
+ if ($j>0) {  
+  go_through_dir (@arr);  
+ }  
+}
+
+# create target directory if it doesn't exist
+print ("Creating direcotry... $config_dir \n");
+mkpath $config_dir;
+
+# go through source directories recrusively
+go_through_dir ".\\src\\cpapplication",".\\src\\cpplugins";
\ No newline at end of file