1 

     2 sub listdir {  

     3  my @arr, $j = 0;  

     4  for ($i=0;$i<=$#_;$i++) {  

     5   if (-d $_[$i]) {  

     6    if (opendir($handle, $_[$i])) {  

     7     while ($entry = readdir($handle)) {  

     8      if (!($entry =~ m/^\.$/) and !($entry =~ m/^(\.\.)$/)) {   

     9       if (-d $_[$i]."\\$entry") {  # is a directory, push to @arr

    10        $arr[$j++] = $_[$i]."\\$entry";   

    11       }  

    12       else {   # is a file

    13       	if ($entry =~ /$.cpcfg$/) { # is a .cpcfg file, copy it

    14       		$cmd = "copy ";

    15       		$cmd .= $_[$i]."\\$entry ";

    16       		$cmd .= "C:\\ControlPanel\\debug\\bin\\config"."\\$entry";

    17       		print ("$cmd\n");

    18       		system($cmd);

    19       	}

    20       }

    21      }  

    22     }  

    23     closedir($handle);  

    24    }  

    25   }  

    26  }  

    27  if ($j>0) {  

    28   listdir (@arr);  

    29  }  

    30 }

    31 

    32 # create target directory if it doesn't exist

    33 print ("Creating direcotry... C:\\ControlPanel\\debug\\bin\\config \n");

    34 mkdir ("C:\\ControlPanel");

    35 mkdir ("C:\\ControlPanel\\debug");

    36 mkdir ("C:\\ControlPanel\\debug\\bin");

    37 mkdir ("C:\\ControlPanel\\debug\\bin\\config");

    38 

    39 # go through source directories recrusively

    40 listdir (".\\src\\cpapplication");

    41 listdir (".\\src\\cpplugins");