ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cf.schmorp.de/maps/Info/rewrite_styles.pl
Revision: 1.1.1.1 (vendor branch)
Committed: Sat Feb 4 23:55:29 2006 UTC (18 years, 9 months ago) by root
Content type: text/plain
Branch: UPSTREAM, MAIN
CVS Tags: post_fixaltar, last_stable, post_fixaltar2, rel-2_82, rel-2_81, rel-2_80, pre_coinconvert, UPSTREAM_2006_03_15, rel-3_0, rel-2_6, rel-2_7, rel-2_4, rel-2_5, rel-2_2, rel-2_0, rel-2_1, rel-2_72, rel-2_73, rel-2_71, rel-2_76, rel-2_77, rel-2_74, rel-2_75, rel-2_54, rel-2_55, rel-2_56, rel-2_79, UPSTREAM_2006_02_01, rel-2_53, pre_material_cfarch_normalize_run, rel-2_32, pre_fixconverter, post_coinconvert, pre_fixaltar2, pre_map_rename, UPSTREAM_2006_02_22, rel-2_90, rel-2_92, rel-2_93, rel-2_78, post_fixconverter, pre_fixaltar, rel-2_61, rel-2_43, rel-2_42, rel-2_41, HEAD
Changes since 1.1: +0 -0 lines
Log Message:
Initial Import

File Contents

# Content
1 #!/usr/bin/perl
2 #
3 # This script goes and fixes the *_style names for random maps.
4 # It is aimed at the mlab maps. the original mlab maps used
5 # uppercase file names, which were quite ugly, and also put the
6 # new styles with old styles, which isn't good when it comes to
7 # random styles. Instead, I put those style maps into their own
8 # subdirectory so they should only show up on mlab maps.
9 #
10
11 &maplist(".");
12
13 while ($file = shift (@maps)) {
14 &updatemap;
15 }
16
17
18 exit;
19
20 # return table containing all objects in the map
21 sub updatemap {
22 local ($m, $made_change=0);
23 $last = "";
24 $parent = "";
25
26 if (! open (IN, $file)) {
27 print "Can't open map file $file\n";
28 return;
29 }
30 if (! open(OUT, ">$file.new")) {
31 print "Can't open output file $file.new\n";
32 return;
33 }
34 if ($VERBOSE) {
35 print "Testing $file, ";
36 }
37 while (<IN>) {
38 if (/(.*style) (MLAB.*)/) {
39 $style= $1 . "style";
40 $dest = "mlab/" . $2;
41 $dest =~ tr /A-Z/a-z/;
42 print OUT "$style $dest\n";
43 $made_change=1;
44 } else {
45 print OUT $_;
46 }
47 } # while <IN> LOOP
48 close (IN);
49 close(OUT);
50 if ($made_change) {
51 print "$file has changed\n";
52 unlink($file);
53 rename("$file.new", $file);
54 }
55 else {
56 unlink("$file.new");
57 }
58 }
59
60 # @maps contains all filenames
61 sub maplist {
62 local ($dir, $file, @dirs) = shift;
63
64 opendir (DIR , $dir) || die "Can't open directory : $dir\n";
65 while ($file = readdir (DIR)) {
66 next if ($file eq "." || $file eq ".." || $file eq "CVS");
67
68 $file = "$dir/$file";
69 next if (-l $file); # don't process symbolic links
70 push (@dirs, $file) if (-d $file);
71 push (@maps, $file) if (-f $file);
72 }
73 closedir (DIR);
74
75 # recursive handle sub-dirs too
76 while ($_ = shift @dirs) {
77 &maplist ($_);
78 }
79 }
80