source: subversion/applications/rendering/mapnik/uncustomize-mapnik-map @ 16002

Last change on this file since 16002 was 10742, checked in by twain, 11 years ago

script to generate a osm-template.xml from osm.xml

  • Property svn:executable set to *
File size: 1.7 KB
Line 
1#!/usr/bin/perl -w
2#
3#  uncustomize-mapnik-map
4#  attempts to produce a osm-template.xml from the current osm.xml
5#
6
7use strict;
8$ENV{MAPNIK_PREFIX} ||= "planet_osm";
9
10open(IN, '<', 'osm.xml');
11
12while(<IN>) {
13    s/$ENV{MAPNIK_SYMBOLS_DIR}/%SYMBOLS_DIR%/;
14    s/$ENV{MAPNIK_WORLD_BOUNDARIES_DIR}/%WORLD_BOUNDARIES_DIR%/;
15    s#<Parameter name="dbname">$ENV{MAPNIK_DBNAME}</Parameter>#<Parameter name="dbname">%DBNAME%</Parameter>#;
16    s#$ENV{MAPNIK_PREFIX}#%PREFIX%#;
17
18    if ($ENV{'MAPNIK_DBHOST'} ne '') {
19        s#<Parameter name="host">$ENV{MAPNIK_DBHOST}</Parameter>#<Parameter name="host">%DBHOST%</Parameter>#
20    } else {
21      if ($_ eq "      <Parameter name=\"type\">postgis</Parameter>\n") {
22        print;
23        $_ = "      <Parameter name=\"host\">%DBHOST%</Parameter>\n";
24      }
25    }
26
27    if ($ENV{'MAPNIK_DBPORT'} ne '') {
28        s#<Parameter name="port">$ENV{MAPNIK_DBPORT}</Parameter>#<Parameter name="port">%DBPORT%</Parameter>#
29    } else {
30      if ($_ eq "      <Parameter name=\"host\">%DBHOST%</Parameter>\n") {
31        print;
32        $_ = "      <Parameter name=\"port\">%DBPORT%</Parameter>\n";
33      }
34    }
35
36    if ($ENV{'MAPNIK_DBUSER'} ne '') {
37        s#<Parameter name="user">$ENV{MAPNIK_DBUSER}</Parameter>#<Parameter name="user">%DBUSER%</Parameter>#
38    } else {
39      if ($_ eq "      <Parameter name=\"port\">%DBPORT%</Parameter>\n") {
40        print;
41        $_ = "      <Parameter name=\"user\">%DBUSER%</Parameter>\n";
42      }
43    }
44
45    if ($ENV{'MAPNIK_DBPASS'} ne '') {
46        s#<Parameter name="password">$ENV{MAPNIK_DBPASS}</Parameter>#<Parameter name="password">%DBPASS%</Parameter>#
47    } else {
48      if ($_ eq "      <Parameter name=\"user\">%DBUSER%</Parameter>\n") {
49        print;
50        $_ = "      <Parameter name=\"password\">%DBPASS%</Parameter>\n";
51      }
52    }
53
54    print;
55}
56
Note: See TracBrowser for help on using the repository browser.