Changeset 337

Timestamp:

04/17/08 21:31:56 (2 years ago)

Author:

calh

Message:

don't copy the .svn files over - that would be dumb

Files:

• trunk/uploadr/xulrunner_locales/build.pl (modified) (3 diffs)

trunk/uploadr/xulrunner_locales/build.pl

@@ -32 +32 @@
-`rm $dir/??-??.*`;
-
-mkdir "$dir/build"
+`mkdir $dir/build`
-`rm -r $dir/build/*`;
-
@@ -42 +42 @@
-        mkdir "$dir/build/locale/$locale";
-
-`cp -r $dir/locale/en-US/* $dir/build/locale/$locale/`
+&copy_files_to("$dir/locale/en-US/", "$dir/build/locale/$locale/")
-
-        if ($locale ne 'en-US'){
-
-`cp -r $dir/locale/$locale/* $dir/build/locale/$locale/`
+&copy_files_to("$dir/locale/$locale/", "$dir/build/locale/$locale/")
-        }
-
@@ -83 +83 @@
-
-print "ok, all done!\n";
+
+
+
+
+sub copy_files_to {
+
+        my ($src, $dst) = @_;
+
+        my @lines = split "\n", `find $src | grep -v .svn`;
+
+        my $src_q = quotemeta $src;
+
+        for my $file (@lines){
+
+                $file =~ s/^$src_q//;
+
+                if (length $file){
+
+                        if (-f "$src$file"){
+
+                                `cp $src$file $dst$file`;
+                        }
+
+                        if (-d "$src$file" && !-d "$dst$file"){
+
+                                `mkdir $dst$file`;
+                        }
+                }
+        }
+}